level 1
这个确实不知道，一种做法是消除一个变量后作图
2017年07月04日 13点07分
level 2
level 7
Show[Graphics3D[{Opacity[0.5], Ball[{0, 0, 0}, 2]}],
ParametricPlot3D[{4 + (3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],
Sin[v]}, {u, 0, 2 \[Pi]}, {v, -\[Pi], \[Pi]},
MeshFunctions -> Function[{x, y, z}, (z^2 + x^2 + y^2)],
Mesh -> {{{4, Directive[Thick, Red]}}}, PlotPoints -> 50]]
用MeshFunctions
2017年07月05日 11点07分
3
ParametricPlot3D[{4 + (3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],
Sin[v]}, {u, 0, 2 \[Pi]}, {v, -\[Pi], \[Pi]},
MeshFunctions -> Function[{x, y, z}, (z^2 + x^2 + y^2)],
Mesh -> {{{4, Directive[Thick, Red]}}}, PlotPoints -> 50]]
用MeshFunctions
level 7
另外 SliceContourPlot 也可以, 参见 http://www.cnblogs.com/dabaopku/p/6525147.html
2017年07月05日 11点07分
4
