{6Cos[u/3] (1 + Sin[u]) + 4(1 - u*Cos[u]/2) (Cos[v + Pi]),
8Cos[3u]*Sinh[Cos[2v]],
4(1 - Cos[u]/2) Sin[2v]},
{u, 0, 2Pi},
{v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{Sin[v]Cos[u],
Cos[v]Cos[u],
Cos[v]Sin[u]},
{u, 1, 3Pi/2},
{v, 1, 3Pi/2},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{(2 + 0.8 Cos[u]) Cos[v],
(2 + 0.8 Cos[u]) Sin[v],
0.8 Sin[u] + v/2},
{u, 0, 2 Pi},
{v, -3Pi, 3 Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
Back to Tohsuke Urabe Laboratory
.