{u + v/4,Cos[u + v], Sin[v]},
{u, -2Pi, 2Pi}, {v, -2Pi,
2Pi}, PlotPoints -> {40, 40},
Boxed -> False, Axes -> None]
{Cos[t](4 + Sin[t] Cos[u] - Sin[t] Sin[u]),
Sin[t](4 + Cos[t/2] Sin[u] - Cos[7t] Sin[2u]),
Cos[t/4t] + Sin[t/2] Cos[u]},
{t, -Pi/4, 3Pi/4}, {u, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{(3 + 0.5Cos[u]Cos[v])Cos[v]Sin[v],
(2 + 0.4 Sin[u])Cos[v],
0.2Sin[u]Sin[v] + v/7},
{u, 0, 3 Pi}, {v, -3 Pi, 2Pi},
PlotPoints -> {25, 80},
Boxed -> False,
Axes -> None]
{(1 + Cos[u]Cos[v]) Cos[v]Sin[v],
(2 + Cos[u]) Sin[v],
0.5 Sin[u]Sin[v] + v/3},
{u, 0, 2 Pi}, {v, -3 Pi, 3 Pi},
PlotPoints -> {25, 100},
Boxed -> False,
Axes -> None]
卜部東介研究室に戻る
まで！