Mathematica怎么画三维的方程

如题所述

　　

　　比如画球  x^2+y^2+z^2=1

　　ContourPlot3D[x^2+y^2+z^2==1,{x,-1,1},{y,-1,1},{z,-1,1}]

　　又比如：

　　ContourPlot3D[{(x^2 + (9 y^2)/4 + z^2 - 1)^3 - x^2 z^3 - (9 y^2 z^3)/80 == 0}, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}]