请问，这幅图是怎么绘制的？

echbsyljb

这幅图是怎么绘制的，用的什么命令？希望大神解答！！！！！！！

FreddyMusic

先画出几何图形，然后用等值线标上颜色。

1. 
   
2. ContourPlot3D[
   
3. 16 x^3 + 16 y^3 - 31 z^3 + 24 x^2 z - 48 x^2 y - 48 x y^2 +
   
4.    24 y^2 z - 93.5307 z^2 - 72 z == 0, {x, -2, 2}, {y, -2,
   
5.   2}, {z, -2.3, 2},
   
6. ColorFunction -> Function[{x, y, z, f}, ColorData["Rainbow"][z]],
   
7. Mesh -> 4]
   

复制代码

http://reference.wolfram.com/lan ... tml?q=ContourPlot3D