{2*(Cos[u] + u*Sin[u])Sin[v]/(1 + u*u*Sin[v]*Sin[v]),
2 * (Sin[u] - u*Cos[u])Sin[v]/(1 + u*u*Sin[v] * Sin[v]),
Log[Tan[v/2]] + 2 * Cos[v] /(1 + u*u*Sin[v]*Sin[v])},
{u, -4, 4},
{v, 0.05, Pi},
AspectRatio -> Automatic,
ViewPoint -> {0.988, 3.850, 2.656},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{Cos[t] (3 + Cos[u]),
Sin[t] (3 + Cos[u]),
Sec[2t]Sin[2u]},
{t, 0, 2 Pi},
{u, 0, 2Pi},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
{(r^2*Cos[2*phi])/2 - Log[r],
-phi - (r^2*Sin[2*phi])/2,
2*r*Cos[phi]},
{r, 0.005, 2.0},
{phi, -2*Pi, 3*Pi},
ViewPoint -> {-1.0, -1.0, 1.0},
PlotPoints -> {10, 100},
Boxed -> False,
Axes -> None]
{Sin[u]Cos[v],
2u Cos[v],
2v Cos[u]},
{u, -Pi, Pi},
{v, -Pi, Pi},
ViewPoint -> {-1.140, 2.250, 1.850},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]
Back to Tohsuke Urabe Laboratory
.