用mathematica11我这样作显示不出来
ContourPlot3D[3Sin[x^2+y^2+z^2]-2x*y*z==1,{x,-4.8,4.8},{y,-4.8,4.8},{z,-4.8,4.8},{x,y,z}∈Ball[{0,0,0},2],ContourStyle→{Opacity[0.8],Yellow},Mesh→None,Boxed→False,Axes→None,PlotPoints→30]//AbsoluteTimin
提示：ContourPlot3D……中位置 4 外应该是选项（而不是 {x,y,z}\[Element]Ball[{0,0,0},2]）. 选项必须是一个规则或者规则列表.
ContourPlot3D[3Sin[x^2+y^2+z^2]-2x*y*z==1,{x,-4.8,4.8},{y,-4.8,4.8},{z,-4.8,4.8},{x,y,z}∈Ball[{0,0,0},2],ContourStyle→{Opacity[0.8],Yellow},Mesh→None,Boxed→False,Axes→None,PlotPoints→30]//AbsoluteTimin
提示：ContourPlot3D……中位置 4 外应该是选项（而不是 {x,y,z}\[Element]Ball[{0,0,0},2]）. 选项必须是一个规则或者规则列表.
