原图是这样的
torus1 = ParametricPlot3D[
{
(1+Cos[Theta])Cos[Phi],
(1+Cos[Theta])Sin[Phi],
Sin[Theta]
},
{Theta,0,2Pi},
{Phi,0,2Pi}
]
然后我尝试了
Graphics3D[
Tube[Table[
{
(1 + Cos[Theta]) Cos[Phi],
(1 + Cos[Theta]) Sin[Phi],
Sin[Theta]
},
{Theta, 0, 2 Pi, 0.1},
{Phi, 0, 2 Pi, 0.1}
]]
]
但是不知道这个算不算exactly the same object???
后面的那个RegionPlot3D就更无从下手了。。。

Graphics3D[Tube[{Table[{Cos[Phi], Sin[Phi], 0}, {Phi, 0, 2 Pi, 0.01}]}, 1]]
RegionPlot3D[(Sqrt[x^2 + y^2] - 1)^2 + z^2 <= 1, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]