用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]）. 选项必须是一个规则或者规则列表.

这就尴尬了

你在这个吧起码呆了4年还问这种问题是想气死我是吧？！谁告诉你ContourPlot3D有这种语法了？去把自带帮助好好看看！

看样子是还没看懂我的话，那么：
{x,-4.8,4.8},{y,-4.8,4.8},{z,-4.8,4.8},{x,y,z}∈Ball[{0,0,0},2] <- 你这写的啥？

2. 对自带帮助的示例视而不见是吧？：

3. 页面最后的链接你也不看是吧：