{(u^2 + v^2) Sin[u + v] Sin[u - v] Cos[u],
(u^3 + v^3) Cos[u + v] Cos[u - v] Sin[v],
(u^4 + v^4) Sin[u + v] Cos[u - v]},
{u, 0, 2Pi},
{v, 0, 2Pi},
ViewPoint -> {-2.000, 0.000, 2.000},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
(*It takes much time.*)
{Sin[v] Cos[2u + v],
Sin[3v^3] Sin[u - 2v],
Cos[v^2]},
{u, 0,3Pi/2}, {v, 0, Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
(*It takes much time.*)
{Cos[t](Cos[2t/3] Sin[u^2] - Sin[2t/3] Sin[4u^2]),
Sin[t](Cos[2t/3] Sin[4u] - Sin[2t/3] Sin[u^2]),
Cos[t/5] Sin[u] + Sin[2t/3] },
{t, -3Pi/4, 3Pi/2}, {u, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
(*It takes much time.*)
卜部東介研究室に戻る
まで！