| 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]
|
