{Cos[u],
Sin[v],
Sin[v] Cos[u - v]},
{u, 0, 2Pi}, {v, 0, 2Pi},
ViewPoint -> {-2.488, 1.552, 1.689},
PlotPoints -> {48, 48},
Boxed -> False,
Axes -> None]
{4Sin[u](1 + Cos[u])*Cos[v] + 3(1 - Sin[v])(Cos[v]),
9Sin[v]*Cos[2u],
4(1 - Cos[u])Cos[v]*Sin[u]},
{u, 0, 2Pi}, {v, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{Cos[t](2 + Cos[2t]Sin[u/2] - Sin[2t]Sin[2u]),
Sin[t](2 + Cos[2t]Sin[u/2] - Sin[2t]Sin[2u]),
Cos[2t]Sin[u] + Sin[t]Cos[2u]},
{t, -Pi, 2Pi/2},
{u, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
(*Huge*)
{Cos[2t/3] Cos[u] + Sin[2t/3] Sin[4u],
Sin[t](Cos[2t/3] Cos[4u] - Sin[2t/3] Sin[u]),
Cos[t/3] Cos[u] + Sin[t/3] Sin[u]},
{t, -Pi/4, 3Pi/2},
{u, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
卜部東介研究室に戻る
まで！