{If[Pi < u <= 2 Pi,
6 Cos[u] (1 + Sin[u]) + 4 (1 - Cos[u] / 2) Cos[v + Pi],
6 Cos[u] (1 + Sin[u]) + 4 (1 - Cos[u] / 2) Cos[u] Cos[v]],
If[Pi < u <= 2 Pi,
16 Sin[u],
16 Sin[u] + 4 (1 - Cos[u] / 2) Sin[u] Cos[v]],
4 (1 - Cos[u] / 2) Sin[v]},
{u, 0, 2 Pi},
{v, 0, 2 Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{6Cos[u](1 + Sin[u]) + 4(1 - Cos[u]/2)(Cos[v + Pi]),
16Sin[u],
4(1 - Cos[u]/2)Sin[v]},
{u, 0, 2Pi},
{v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{6Cos[u] (1 + Sin[u]) + 4(1 - Cos[u]/2) (Cos[v + Pi]),
16Sin[u],
4(1 - Cos[u]/2) Sin[v]},
{u, Pi, 2Pi},
{v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
Back to Tohsuke Urabe Laboratory
.