Entrada destacada

Juego del Caos cambiando el dado al orden del Genoma

martes, 12 de septiembre de 2017

Corazón 3D




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