{(1 + 0.3Cos[5s])*Sin[s]*Cos[t],
(1 + 0.3Cos[5s])*Sin[s]*Sin[t],
(1 + 0.3Cos[5s])*Cos[s]},
{s, 0, 2Pi},
{t, 0, 2Pi},
ViewPoint -> {2, 1, 0.7},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{(3u + 3u v^2 - u^3) (1 + u^2)^1/2,
(v^3 - 3v - 3u^2v)(1 + v^2)^1/2 ,
3(u^2 + v^2)(1 + u^2 + v^2)^1/2},
{u, -Pi, Pi},
{v, -Pi, Pi},
PlotRange -> {{-100, 100}, {-100, 100}, {3, 150}},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{Cos[t] Cos[s + 12t],
Cos[t] Sin[s + 12t],
Sin[t]},
{t, 0, 2Pi},
{s, -0.2, 0.2},
PlotPoints -> {200, 2},
Boxed -> False,
Axes -> None]
Back to Tohsuke Urabe Laboratory
.