{2Cos[u](1 + Sin[u]) + 8(1 - Cos[u]/2)(Cos[v + Pi]),
3Sin[u],
8(1 - Cos[u]/2)Sin[v]},
{u, 0, 2Pi},
{v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{r Cos[Cos[r]]Cos[psi],
r Cos[Cos[r]]Sin[psi],
r Sin[Cos[r]]},
{r, 0.001, 9Pi/2},
{psi, 0, 3Pi/2},
PlotPoints -> {72, 30},
Boxed -> False,
Axes -> None]
{Sin[t] Cos[p],
Sin[t]Sin[p],
Sin[2t]},
{t, 0, Pi},
{p, 0, 3Pi/2},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
Back to Tohsuke Urabe Laboratory
.