{Sin[v]Cos[u] + v/4,
Cos[u + v] + u/2,
Sin[u] + u/8},
{u, -2Pi, 2Pi},
{v, -2Pi, 2Pi},
PlotPoints -> {40, 40},
Boxed -> False,
Axes -> None]
{(2 + 0.5 Cos[u + 2v]Cos[v + 5]),
(2 + 0.3 Cos[2u + v]) Sin[v]Cos[u]Sin[v],
Sin[u]Sin[v] + v/3},
{u, 0, 2 Pi},
{v, -3 Pi, 3 Pi},
PlotPoints -> {25, 100},
Boxed -> False,
Axes -> None]
{Cos[u] + v/4,
Cos[u + v], Sin[v]},
{u, -2Pi, 2Pi}, {v, -2Pi, 2Pi},
PlotPoints -> {40, 40},
Boxed -> False,
Axes -> None]
(*It takes much time.*)
{u - 1/7*u^7 + 3*u^5*v^2 - 5*u^3*v^4 + u*v^6,
-v - u^6*v + 5*u^4*v^3 - 3*u^2*v^5 + 1/7*v^7,
1/2*u^4 - 3*u^2*v^2 + 1/2*v^4},
{u, -1.15, 1.15},
{v, -1.15, 1.15},
Boxed -> False,
Axes -> None]
卜部東介研究室に戻る
まで！