一葉双曲面

ParametricPlot3D[{Cos[v]/Cos[u], Sin[v]/Cos[u], Tan[u]}, {u, -Pi/3, Pi/3}, {v, 0, 2 Pi}]

[Graphics:HTMLFiles/index_3.gif]

-Graphics3D -

二葉双曲面

ParametricPlot3D[{{1/Cos[u], Tan[u] Cos[v], Tan[u] Sin[v]}, {-1/Cos[u], Tan[u] Cos[v], Tan[u] Sin[v]}}, {u, -Pi/3, Pi/3}, {v, 0, 2 Pi}]

[Graphics:HTMLFiles/index_7.gif]

-Graphics3D -

懸垂面

ParametricPlot3D[{(1/2) (Exp[u] + Exp[-u]) Cos[v], (1/2) (Exp[u] + Exp[-u]) Sin[v], u}, {u, -1, 1}, {v, 0, 2 Pi}]

[Graphics:HTMLFiles/index_11.gif]

-Graphics3D -

ら線面

ParametricPlot3D[{u Cos[v], u Sin[v], v}, {u, -3, 3}, {v, 0, 3 Pi}, PlotPoints -> 30]

[Graphics:HTMLFiles/index_15.gif]

-Graphics3D -

Converted by Mathematica  (May 15, 2004)