{(1 + 0.1Cos[4s])*Sin[s],
(1 + 0.1Cos[4s])*(1 + Sin[t + 0.3s]),
(1 + 0.1Cos[4s])*(1 + Cos[t + 0.3s])},
{s, 0, 2Pi}, {t, 0, 2Pi},
ViewPoint -> {2, 1, 0.7},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
(*It takes much time.*)
{Cos[x + y],
Cos[x - y],
Sin[x + y]},
{x, 0, 2Pi}, {y, 0, 2Pi},
PlotPoints -> {20, 20},
Boxed -> False,
Axes -> None]
{Cos[t] Cos[s + t],
Cos[t] Sin[s + t],
Sin[t]},
{t, 0, 2Pi}, {s, 0, 2Pi},
PlotPoints -> {20, 20},
Boxed -> False,
Axes -> None]
{Sin[v] Cos[u],
Sin[v] Sin[u],
Cos[v]},
{u, 0, Pi/2},
{v, 0, 2Pi},
PlotPoints -> {12, 36},
Boxed -> False,
Axes -> None]
卜部東介研究室に戻る
まで！