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 + (
Comentarios
Buen retrato. Refleja el 99% de sus actuaciones: misma mirada, mismo movimiento...
¿UnitStep[-123 Pi + t] + (21697/36 + (5534 Sin[11/7 + t])/33? Ahí discrepo.
Aparte del doctor Sheldon Cooper,¿quién más puede encontrarle la gracia a esto?
#0 La entradilla en castellano, por favor.
#1
¿En que idioma esta ahora?#0 ahí te has pasao...
el resultado es 25, no entiendo la broma, si es que lo es.
vamos, lo que viene a ser el dibujo vectorial de toda la vida... Irrelevante
Alguno sabe en que gastaba su tiempoo libre Wolfram Alpha