{y*0.5Cos[x],
Sin[x]Cos[y],
2Cos[x]},
{x, -3.0, 3.0},
{y, -3.5, 3.5},
ViewPoint -> {-1.005, 6.345, -1.757},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{1/4 Cos[ u + 4] ,
Cos[u]Sin[v]Cos[v]Sin[u]Cos[v],
Cos[v]Sin[u] Cos[u]Sin[v] },
{u, 0, 2Pi},
{v, 0, 2 Pi},
ViewPoint -> {1.300, -2.400, 2.000},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{3(1 + 1/u)*(Cos[u] + 3)*Cos[v],
5(1 + 1/u)*(Cos[u] + 3)*Sin[v],
u},
{u, Pi/10, 100Pi},
{v, Pi/2, 2Pi},
ViewPoint -> {2, 3, -2},
PlotPoints -> {50, 25},
Boxed -> False,
Axes -> None]
{8(1 + 1/u)*(Cos[u] + 3)*Cos[v],
8(1 + 1/u)*(Cos[u] + 3)*Sin[v],
u*Sin[v]},
{u, Pi/10, 70Pi},
{v, Pi/2, 2Pi},
ViewPoint -> {2, 2, 2},
PlotPoints -> {50, 25},
Boxed -> False,
Axes -> None]
Back to Tohsuke Urabe Laboratory
.