变化的心脏形图片

代码:

ContourPlot3D[(x^2 + 9/4 y^2 + z^2 - 1) == 
  CubeRoot[x^2 z^3 + 9/80 y^2 z^3], {x, -6/5, 6/5}, {y, -6/5, 
  6/5}, {z, -6/5, 3/2}, Mesh -> None, Boxed -> False, 
 AxesLabel -> {"x", "y", "z"}, Axes -> False, 
 ContourStyle -> 
  Directive[Red, Opacity[0.58], Specularity[Yellow, 30]], 
 AspectRatio -> 1.15, ViewPoint -> {0.085, 3.328, 0.607}, 
 ViewVertical -> {0.015, 0.268, 0.963}]

公式和图片:

版权声明：本文原创博客，转载请注明出处。