修改了的心型图片

标签：mathematica   visualization   3d   

代码:

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}]

修改了的心型图片

标签：mathematica   visualization   3d   

原文地址：http://blog.csdn.net/stereohomology/article/details/38166791