DM10={{58.054126082680284`,134.2011757080763`},{58.054126082680284`,129.54798239610574`},{57.61096481487357`,124.67320845023184`},{57.832545448776926`,119.57685387045456`},{57.832545448776926`,115.14524119238736`},{57.38938418097021`,111.15678978212689`},{57.16780354706684`,107.38991900576977`},{56.503061645356766`,101.85040315818577`},{56.503061645356766`,95.20298414108498`},{56.05990037755005`,90.54979082911441`},{56.05990037755005`,85.89659751714387`},{56.94622291316348`,81.46498483907666`},{56.724642279260124`,77.25495279491284`},{57.61096481487357`,72.60175948294227`},{59.82677115390716`,67.72698553706834`},{61.82099685903741`,63.73853412680788`},{66.03102890320123`,60.193243984354126`},{70.24106094736507`,57.97743764532052`},{70.6842222151718`,57.97743764532052`},{74.22951235762555`,55.54005067238356`},{74.67267362543227`,55.54005067238356`},{80.21218947301627`,54.43214750286677`},{84.4222215171801`,53.988986235060054`},{88.41067292744059`,52.88108306554324`},{93.06386623941114`,53.102663699446595`},{97.7170595513817`,53.102663699446595`},{101.26234969383546`,52.88108306554324`},{107.02344617532282`,53.32424433334995`},{113.00612329071353`,53.54582496725331`},{118.54563913829753`,55.09688940457684`},{118.98880040610425`,55.09688940457684`},{122.75567118246136`,57.31269574361045`},{127.18728386052857`,60.8579858860642`},{130.95415463688568`,63.960114760711235`},{133.83470287762935`,68.83488870658516`},{135.3857673149529`,75.7038883575893`},{137.15841238617975`,80.35708166955988`},{137.60157365398646`,85.01027498153042`},{137.15841238617975`,90.77137146301777`},{137.82315428788982`,94.98140350718162`},{137.3799930200831`,99.41301618524881`},{137.15841238617975`,104.50937076502609`},{137.15841238617975`,108.05466090747984`},{137.15841238617975`,111.82153168383697`},{136.71525111837303`,116.47472499580752`},{136.49367048446967`,120.68475703997136`},{136.9368317522764`,125.11636971803856`},{136.27208985056632`,128.6616598604923`},{136.49367048446967`,133.31485317246288`},{136.05050921666296`,136.86014331491663`},{135.8289285827596`,140.62701409127374`},{135.1641866810495`,144.8370461354376`},{134.49944477933943`,149.49023944740816`},{134.72102541324278`,153.70027149157198`},{133.613122243726`,159.6829486069627`},{133.613122243726`,163.89298065112655`},{132.06205780640246`,169.43249649871052`},{130.51099336907896`,173.64252854287437`},{127.18728386052857`,177.8525605870382`},{124.52831625368825`,180.95468946168523`},{122.31250991465464`,183.61365706852555`},{118.10247787049082`,186.05104404146252`},{113.22770392461689`,187.60210847878602`},{109.68241378216312`,188.48843101439948`},{105.4723817379993`,188.9315922822062`},{101.26234969383546`,189.3747535500129`},{97.27389828357498`,190.26107608562637`},{94.17176940892794`,189.81791481781963`},{89.74015673086075`,189.3747535500129`},{86.85960849011707`,189.15317291610955`},{82.64957644595323`,188.9315922822062`},{78.8827056695961`,187.60210847878602`},{76.44531869665916`,187.1589472109793`},{72.67844792030203`,184.94314087194573`},{69.576319045655`,182.72733453291212`},{66.47419017100796`,180.51152819387852`},{64.70154509978109`,176.96623805142477`},{62.928900028554196`,172.9777866411643`},{60.93467432342396`,168.5461739630971`},{60.269932421713875`,164.33614191893327`},{58.497287350487`,158.1318841696392`},{58.497287350487`,154.1434327593787`},{58.054126082680284`,148.82549754569806`},{57.832545448776926`,144.8370461354376`},{58.054126082680284`,141.29175599298384`},{58.054126082680284`,138.18962711833677`}}
lista=%;
x=Transpose[lista][[1]];
y=Transpose[lista][[2]];
M=Length[x];
Z={};
Do[a0=Sum[x[[j]],{j,1,M}]/M;
Do[a[k]=Sum[x[[j]] Cos[2 Pi k j/M],{j,1,M}]/M;
b[k]=Sum[x[[j]] Sin[2 Pi k j/M],{j,1,M}]/M,
{k,1,n}];
X=a0+Sum[a[k]Cos[k*t]+b[k] Sin[k*t],{k,1,n}];
aa0=Sum[y[[j]],{j,1,M}]/M;
Do[aa[k]=Sum[y[[j]] Cos[2 Pi k j/M],{j,1,M}]/M;
bb[k]=Sum[y[[j]] Sin[2 Pi k j/M],{j,1,M}]/M,
{k,1,n}];
Y=aa0+Sum[aa[k]Cos[k*t]+bb[k] Sin[k*t],{k,1,n}];
Z=Append[Z,{X,Y}],
(* {n,10,20,2} n varía de 10 a 20 aumentando de dos en dos*)
{n,IntegerPart[M/4],IntegerPart[M/4],2}]
graficas=ParametricPlot[{Z},{t,0,2Pi}];

A=lista[[All,1]]+200;
B=lista[[All,2]]+206;
AB=Table[{A[[n]],B[[n]]},{n,1,M}];
puntos=ListPlot[0.5*AB];
Show[graficas, AspectRatio->GoldenRatio]

DM11={{339.9777251396644`,429.3699978052676`},{342.2614984836389`,397.3971709896251`},{339.9777251396644`,365.4243441739827`},{336.9326940143651`,338.0190640462892`},{333.88766288906584`,306.0462372306468`},{333.12640510774105`,280.16347266560285`},{331.60388954509136`,256.5644814445335`},{330.08137398244173`,227.63668575419035`},{328.5588584197921`,204.03769453312088`},{330.8426317637666`,178.91618774940184`},{330.8426317637666`,157.6009698723069`},{336.1714362330403`,141.61455646448576`},{344.5452718276133`,120.29933858739071`},{352.91910742218636`,105.83544074221913`},{379.56312976855503`,102.79040961691987`},{406.96840989624855`,102.79040961691987`},{438.1799789305661`,106.59669852354398`},{458.7339390263362`,103.55166739824472`},{488.4229924980042`,97.4616051476462`},{523.440850438946`,98.98412071029577`},{540.9497794094168`,108.11921408619367`},{556.1749350359131`,133.2407208699127`},{561.5037395051869`,163.69103212290543`},{567.5938017557854`,184.24499221867563`},{567.5938017557854`,211.6502723463691`},{568.3550595371103`,230.6817168794896`},{564.5487706304862`,256.5644814445335`},{562.2649972865117`,280.16347266560285`},{559.9812239425372`,304.5237216679971`},{562.2649972865117`,335.7352907023147`},{559.2199661612125`,363.9018286113331`},{560.742481723862`,387.5008198324025`},{559.9812239425372`,435.4600600558661`},{560.742481723862`,468.9554024341582`},{559.9812239425372`,495.5994247805269`},{543.9948105347161`,521.4821893455708`},{520.3958193136466`,538.9911183160416`},{473.9590946528326`,543.5586650039905`},{452.6438767757377`,539.7523760973664`},{420.6710499600953`,539.7523760973664`},{394.02702761372655`,536.7073449720672`},{369.66677861133235`,531.3785405027934`},{352.1578496408615`,517.6759004389467`},{339.21646735833957`,499.405713687151`},{336.9326940143651`,475.80672246608157`},{337.69395179568994`,449.1627001197129`}}
lista=%;
x=Transpose[lista][[1]];
y=Transpose[lista][[2]];
M=Length[x];
Z={};
Do[a0=Sum[x[[j]],{j,1,M}]/M;
Do[a[k]=Sum[x[[j]] Cos[2 Pi k j/M],{j,1,M}]/M;
b[k]=Sum[x[[j]] Sin[2 Pi k j/M],{j,1,M}]/M,
{k,1,n}];
X=a0+Sum[a[k]Cos[k*t]+b[k] Sin[k*t],{k,1,n}];
aa0=Sum[y[[j]],{j,1,M}]/M;
Do[aa[k]=Sum[y[[j]] Cos[2 Pi k j/M],{j,1,M}]/M;
bb[k]=Sum[y[[j]] Sin[2 Pi k j/M],{j,1,M}]/M,
{k,1,n}];
Y=aa0+Sum[aa[k]Cos[k*t]+bb[k] Sin[k*t],{k,1,n}];
Z=Append[Z,{X,Y}],
(* {n,10,20,2} n varía de 10 a 20 aumentando de dos en dos*)
{n,IntegerPart[M/4],IntegerPart[M/4],2}]
graficas=ParametricPlot[{Z},{t,0,2Pi}];

A=lista[[All,1]]+200;
B=lista[[All,2]]+206;
AB=Table[{A[[n]],B[[n]]},{n,1,M}];
puntos=ListPlot[0.5*AB];
Show[graficas,puntos,AspectRatio->GoldenRatio]

DM12={{1.404322614654717`,33.93058513442276`},{1.170268845545598`,30.887886136004212`},{0.9362150764364792`,28.430321560358458`},{0.7021613073273585`,25.85573010015814`},{0.5851344227727981`,23.39816552451238`},{0.5851344227727981`,21.291681602530304`},{0.5851344227727981`,18.60006325777543`},{0.5851344227727981`,16.025471797575115`},{0.4681075382182396`,13.333853452820236`},{0.9362150764364792`,10.525208223510802`},{1.2872957301001584`,8.88683183974696`},{2.6916183447548754`,6.663321033210323`},{4.564048497627834`,4.556837111228248`},{6.43647865050079`,3.0354876120189687`},{8.659989457037428`,1.5141381128096896`},{11.702688455455982`,0.694949920927769`},{14.394306800210858`,0.5779230363732211`},{16.14971006852926`,1.0460305745914553`},{19.426462836056928`,1.7481918819188138`},{19.660516605166052`,1.865218766473376`},{22.352134949920924`,2.33332630469161`},{24.92672641012124`,2.4503531892461723`},{26.682129678439637`,2.4503531892461723`},{26.91618344754876`,2.4503531892461723`},{29.841855561412757`,2.5673800738007344`},{31.48023194517659`,2.5673800738007344`},{33.82076963626779`,2.4503531892461723`},{36.16130732735898`,1.7481918819188138`},{38.61887190300474`,1.3971112282551417`},{38.7358987875593`,1.6311649973642517`},{41.0764364786505`,1.3971112282551417`},{43.182920400632575`,1.3971112282551417`},{43.41697416974169`,1.3971112282551417`},{45.055350553505534`,2.4503531892461723`},{46.81075382182393`,3.0354876120189687`},{48.449130205587764`,4.205756457564576`},{49.5023721665788`,5.4930521876647305`},{50.55561412756985`,7.365482340537682`},{50.789667896678964`,7.482509225092244`},{51.49182920400632`,9.706020031628881`},{51.95993674222456`,12.514665260938315`},{52.07696362677912`,15.557364259356874`},{52.66209804955192`,18.13195571955719`},{52.77912493410648`,20.940600948866624`},{52.54507116499736`,23.983299947285182`},{52.19399051133368`,26.791945176594616`},{52.4280442804428`,29.834644175013175`},{52.19399051133368`,31.94112809699525`},{51.95993674222456`,34.398692672641005`},{52.07696362677912`,36.739230363732204`},{52.07696362677912`,38.72868740115972`},{51.84290985767`,41.771386399578276`},{51.257775434897205`,44.22895097522403`},{51.14074855034264`,47.03759620453347`},{50.438587243015284`,49.96326831839747`},{50.087506589351605`,52.65488666315234`},{49.85345282024248`,55.229478123352656`},{48.917237743806005`,57.921096468107535`},{48.68318397469689`,58.03812335266209`},{48.21507643647865`,59.676499736425924`},{47.51291512915129`,61.314876120189766`},{46.45967316816025`,63.07027938850816`},{45.055350553505534`,64.35757511860832`},{43.65102793885082`,65.76189773326304`},{42.012651555086975`,67.16622034791776`},{40.14022140221402`,68.10243542435424`},{37.91671059567738`,69.03865050079071`},{35.810226673695304`,69.03865050079071`},{33.11860832894043`,68.57054296257247`},{30.778070637849233`,68.33648919346335`},{28.320506062203478`,68.10243542435424`},{26.214022140221402`,67.98540853979968`},{23.756457564575648`,68.21946230890879`},{21.767000527148127`,69.15567738534527`},{19.07538218239325`,69.74081180811807`},{16.266736953083814`,70.09189246178175`},{13.809172377438058`,69.62378492356352`},{11.702688455455982`,68.8045967316816`},{9.830258302583024`,67.63432788613599`},{7.957828149710068`,65.8789246178176`},{6.670532419609909`,64.00649446494464`},{4.681075382182392`,61.43190300474433`},{4.2129678439641545`,58.623257775434894`},{3.3937796520822356`,55.931639430680015`},{3.0426989984185546`,53.3570479704797`},{2.4575645756457565`,50.78245651027938`},{1.989457037427517`,48.0908381655245`},{1.989457037427517`,44.93111228255139`},{1.5213494992092773`,42.473547706905634`},{1.0532419609910377`,40.250036900369`},{0.9362150764364792`,36.97328413284132`}}
lista=%;
x=Transpose[lista][[1]];
y=Transpose[lista][[2]];
M=Length[x];
Z={};
Do[a0=Sum[x[[j]],{j,1,M}]/M;
Do[a[k]=Sum[x[[j]] Cos[2 Pi k j/M],{j,1,M}]/M;
b[k]=Sum[x[[j]] Sin[2 Pi k j/M],{j,1,M}]/M,
{k,1,n}];
X=a0+Sum[a[k]Cos[k*t]+b[k] Sin[k*t],{k,1,n}];
aa0=Sum[y[[j]],{j,1,M}]/M;
Do[aa[k]=Sum[y[[j]] Cos[2 Pi k j/M],{j,1,M}]/M;
bb[k]=Sum[y[[j]] Sin[2 Pi k j/M],{j,1,M}]/M,
{k,1,n}];
Y=aa0+Sum[aa[k]Cos[k*t]+bb[k] Sin[k*t],{k,1,n}];
Z=Append[Z,{X,Y}],
(* {n,10,20,2} n varía de 10 a 20 aumentando de dos en dos*)
{n,IntegerPart[M/4],IntegerPart[M/4],2}]
graficas=ParametricPlot[{Z},{t,0,2Pi}];

A=lista[[All,1]]+200;
B=lista[[All,2]]+206;
AB=Table[{A[[n]],B[[n]]},{n,1,M}];
puntos=ListPlot[0.5*AB];
Show[graficas,puntos,AspectRatio->GoldenRatio]

DM13={{8.906882591093117`,35.05360323886639`},{8.906882591093117`,33.00502024291497`},{8.728744939271254`,32.91595141700404`},{8.639676113360323`,31.31271255060728`},{8.639676113360323`,29.79854251012145`},{8.37246963562753`,28.28437246963562`},{8.194331983805666`,26.413927125506063`},{7.838056680161943`,25.077894736842097`},{7.838056680161943`,24.899757085020234`},{7.9271255060728745`,23.563724696356267`},{7.9271255060728745`,22.31676113360323`},{8.283400809716598`,20.624453441295536`},{8.639676113360323`,19.110283400809706`},{9.17408906882591`,18.130526315789467`},{10.064777327935222`,16.972631578947357`},{11.044534412955466`,16.081943319838047`},{12.380566801619432`,16.171012145748982`},{13.538461538461538`,16.705425101214566`},{14.42914979757085`,17.239838056680156`},{15.497975708502024`,18.041457489878532`},{16.03238866396761`,19.110283400809706`},{16.92307692307692`,20.090040485829952`},{18.43724696356275`,20.357246963562744`},{19.95141700404858`,20.357246963562744`},{20.84210526315789`,19.82283400809716`},{21.554655870445345`,19.19935222672064`},{22.267206477732792`,18.30866396761133`},{23.157894736842103`,17.77425101214574`},{24.40485829959514`,17.15076923076922`},{25.29554655870445`,16.616356275303637`},{26.631578947368418`,16.616356275303637`},{27.700404858299592`,17.417975708502013`},{28.502024291497975`,18.754008097165986`},{28.94736842105263`,20.357246963562744`},{29.036437246963565`,21.782348178137646`},{28.94736842105263`,23.20744939271254`},{28.94736842105263`,24.45441295546558`},{28.94736842105263`,26.324858299595135`},{28.94736842105263`,27.482753036437238`},{28.68016194331984`,28.551578947368412`},{28.68016194331984`,29.887611336032382`},{28.769230769230766`,31.401781376518212`},{28.68016194331984`,32.381538461538454`},{28.68016194331984`,33.80663967611335`},{28.68016194331984`,34.96453441295546`},{28.502024291497975`,36.924048582995944`},{28.32388663967611`,38.26008097165992`},{28.05668016194332`,39.328906882591085`},{28.145748987854248`,41.110283400809706`},{28.05668016194332`,42.535384615384615`},{28.05668016194332`,43.96048582995951`},{27.700404858299592`,45.029311740890684`},{27.522267206477736`,46.454412955465585`},{27.344129554655872`,48.14672064777327`},{27.255060728744937`,49.57182186234817`},{27.076923076923073`,51.17506072874494`},{26.987854251012145`,52.511093117408905`},{26.364372469635626`,53.84712550607287`},{25.562753036437243`,54.915951417004045`},{24.582995951417004`,55.71757085020242`},{23.425101214574894`,56.16291497975708`},{22.267206477732792`,56.16291497975708`},{21.287449392712546`,55.45036437246963`},{20.5748987854251`,54.64874493927125`},{20.129554655870443`,53.66898785425101`},{19.149797570850204`,53.04550607287449`},{17.902834008097166`,52.867368421052625`},{16.744939271255056`,53.57991902834008`},{15.854251012145747`,54.64874493927125`},{15.1417004048583`,56.07384615384615`},{13.80566801619433`,56.430121457489875`},{12.202429149797569`,56.34105263157894`},{11.222672064777326`,55.71757085020242`},{10.331983805668015`,54.82688259109311`},{9.797570850202428`,53.758056680161936`},{9.530364372469634`,52.42202429149797`},{9.085020242914979`,50.81878542510121`},{8.995951417004047`,49.482753036437245`},{8.817813765182185`,47.87951417004048`},{8.817813765182185`,46.63255060728744`},{8.728744939271254`,44.85117408906882`},{8.728744939271254`,43.515141700404854`},{8.728744939271254`,42.62445344129554`},{9.085020242914979`,41.377489878542505`},{9.085020242914979`,40.30866396761133`},{9.085020242914979`,38.70542510121457`},{8.995951417004047`,36.924048582995944`}}
lista=%;
x=Transpose[lista][[1]];
y=Transpose[lista][[2]];
M=Length[x];
Z={};
Do[a0=Sum[x[[j]],{j,1,M}]/M;
Do[a[k]=Sum[x[[j]] Cos[2 Pi k j/M],{j,1,M}]/M;
b[k]=Sum[x[[j]] Sin[2 Pi k j/M],{j,1,M}]/M,
{k,1,n}];
X=a0+Sum[a[k]Cos[k*t]+b[k] Sin[k*t],{k,1,n}];
aa0=Sum[y[[j]],{j,1,M}]/M;
Do[aa[k]=Sum[y[[j]] Cos[2 Pi k j/M],{j,1,M}]/M;
bb[k]=Sum[y[[j]] Sin[2 Pi k j/M],{j,1,M}]/M,
{k,1,n}];
Y=aa0+Sum[aa[k]Cos[k*t]+bb[k] Sin[k*t],{k,1,n}];
Z=Append[Z,{X,Y}],
(* {n,10,20,2} n varía de 10 a 20 aumentando de dos en dos*)
{n,IntegerPart[M/4],IntegerPart[M/4],2}]
graficas=ParametricPlot[{Z},{t,0,2Pi}];

A=lista[[All,1]]+200;
B=lista[[All,2]]+206;
AB=Table[{A[[n]],B[[n]]},{n,1,M}];
puntos=ListPlot[0.5*AB];
Show[graficas, AspectRatio->GoldenRatio]