伊吹美奈裳2018-2-22 09:51 /
无意中在zorich上看到的题目，脑补了一下然后用mathematica做了个图
Show[ParametricPlot3D[{Cos[t] (2 + Cos), Sin[t] (2 + Cos),
Sin}, {t, 0, 2 Pi}, {u, 0, 2 Pi}, PlotStyle -> Opacity[0.5],
MeshStyle -> Gray],
ParametricPlot3D[{Cos[t] (2 + Cos[t]), Sin[t] (2 + Cos[t]),
Sin[t]}, {t, 0, 2 Pi}, PlotStyle -> Thickness[0.01]]]
Show[ParametricPlot3D[{Cos[t] (2 + Cos), Sin[t] (2 + Cos),
Sin}, {t, 0, 2 Pi}, {u, 0, 2 Pi}, PlotStyle -> Opacity[0.5],
MeshStyle -> Gray],
ParametricPlot3D[{Cos[t] (2 + Cos[t]), Sin[t] (2 + Cos[t]),
Sin[t]}, {t, 0, 2 Pi}, PlotStyle -> Thickness[0.01]]]
