Hace 11 años | Por --320894-- a wolframalpha.com
Publicado hace 11 años por --320894-- a wolframalpha.com

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

ElPerroDeLosCinco

Buen retrato. Refleja el 99% de sus actuaciones: misma mirada, mismo movimiento...

roker

¿UnitStep[-123 Pi + t] + (21697/36 + (5534 Sin[11/7 + t])/33? Ahí discrepo.

D

Aparte del doctor Sheldon Cooper,¿quién más puede encontrarle la gracia a esto?

ﻞαʋιҽɾαẞ

#0 La entradilla en castellano, por favor.

sorrillo

#1 ¿En que idioma esta ahora?

D

#0 ahí te has pasao...

j

el resultado es 25, no entiendo la broma, si es que lo es.

D

vamos, lo que viene a ser el dibujo vectorial de toda la vida... Irrelevante

D

Alguno sabe en que gastaba su tiempoo libre Wolfram Alpha