Tractrix Evolute

Author

Eric W. Weisstein
March 16, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneCurves/TractrixEvolute.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/TractrixEvolute.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Equation

FullSimplify[Evolute[{t-Tanh[t],Sech[t]},t]]

Graphic

Show[GraphicsArray[{EvolutePlot[{t-Tanh[t],Sech[t]},{t,-3,3},DisplayFunction->Identity,PlotRange->{{-2,2},{-.1,3}}],EvolutePlot[{t-Tanh[t],Sech[t]},{t,-3,3,.1},4,PlotRange->{{-2,2},{-.1,3}},DisplayFunction->Identity,AspectRatio->Automatic]}]]