２つの例を書いておきます.走らせてのお楽しみ
- Donuts
a = 0.3;
b = 0.07;
c = 8;
ParametricPlot3D[{Cos[u] + (a – b*Cos[c*u])*Cos[v]*
Cos[u], (a – b*Cos[c*u])*(Sin[v]),
Sin[u] + (a – b*Cos[c*u])*Cos[v]*Sin[u]}, {u, 0, 2 Pi}, {v, 0,
2 Pi}, Axes -> False] - French
a = 1.3;
b = 5;
c = 5;
d = 2;
e = 3;
ParametricPlot3D[{Cos[u] (c + Cos[v + e u]/2*(b + Cos[2 (u + d v)])),
Sin[u] (c + Cos[v + e u]/2*(b + Cos[2 (u + d v)])),
a*Sin[v + e u]/2*(b + Cos[2 (u + d v)])}, {u, 0, 2 Pi}, {v, 0,
2 Pi}]