Para el día del amor y la amistad (de modo Mathematica)
corazon =
Table[ContourPlot3D[(-1 + x^2 + 9/4 y^2 + z^2)^3 == (x^2 +
9/80 y^2) z^3, {x, -1.5, 1.5}, {y, -1.5, 1.5}, {z, -1.5, 1.5},
Boxed -> False, Axes -> False,
ViewPoint -> {2 Cos[s Pi], 2 Sin[s Pi], 0}], {s, 0, 2, 0.05}];
para convertirlo en gif
Export[NotebookDirectory[] <> "corazon1.gif", corazon,
"DisplayDurations" -> 1/12]
No hay comentarios.:
Publicar un comentario