ParametricPlot[{If[Sin[t/2] < 0, I, 1] ((-15669/34 - (41 Sin[37/24 - 11 t])/6 - (23 Sin[35/23 - 6 t])/14 + (4445 Sin[63/40 + t])/43 + (1977 Sin[30/19 + 2 t])/53 + (442 Sin[49/31 + 3 t])/25 + (381 Sin[49/31 + 4 t])/37 + (44 Sin[59/38 + 5 t])/19 + (53 Sin[67/42 + 7 t])/13 + (46 Sin[59/37 + 8 t])/21 + (85 Sin[18/11 + 9 t])/31 + (219 Sin[67/42 + 10 t])/43 + (39 Sin[141/88 + 12 t])/7) UnitStep[127 Pi - t] UnitStep[-123 Pi + t] + (21697/36 + (5534 Sin[11/7 + t])/33 + (176 Sin[47/30 + 2 t])/21 + (145 Sin[96/61 + 3 t])/9 + (135 Sin[96/61 + 4 t])/58 + (
|
etiquetas: nicolas , cage 
