{Cos[v + 1/2Pi*v]Sin[u + 1/2Pi*u]Cos[u]Sin[v] + 1/3Cos[u/2],
Cos[u]Sin[v],
Cos[u + 1/2Pi*u]Sin[v + 1/2Pi*v] Cos[v]Sin[u] - 1/3Sin[v/2]},
{u, 0, -2Pi}, {v, 0, 2 Pi},
ViewPoint -> {-1.708, -2.391, 1.865},
PlotPoints -> {50, 50},
Boxed -> False, Axes -> None]
{Cos[v]u, Sin[u] v, Cos[u]v},
{u, -Pi, Pi}, {v, -Pi, Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{2/3u^2 Cos[t],u Sin[2t], u},
{t, -Pi, Pi}, {u, -Pi, Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
卜部東介研究室に戻る
まで！