跳跃的心脏

 

Export["c:\\a.gif", 
 Table[ContourPlot3D[(x^2 + (9/4 + t) y^2 + (1 - 0.02 t) z^2 - 1)^3 - 
     x^2 z^3 - 9/80 y^2 z^3 == 0, {x, -1.15, 1.15}, {y, -1, 
    1}, {z, -1.3, 1.3}, Mesh -> None, Boxed -> False, Axes -> None, 
   ContourStyle -> Directive[Red], BoundaryStyle -> None, 
   PlotPoints -> 50], {t, 0, 2, 0.4}]]