SurfaceOfRevolution.
 |
 |
| JavaView Snapshot | Mathematica Snapshot |
| JavaView Applet | JavaView Lite Applet |
| Rotate the tractrix {f[x],g[x]} around the z-axis. | In[1]:=
<< Graphics`SurfaceOfRevolution` In[2]:= gPsd = SurfaceOfRevolution[{ Exp[-Abs[x]], -Sign[x](Sqrt[1 - Exp[-2 Abs[x]]] - Log[(1 + Sqrt[1 - Exp[-2 Abs[x]]])/Exp[-Abs[x]]])}, {x, -2., 2.}] In[3]:= JavaView[gPsd] |