Evolute

Author

Eric W. Weisstein
March 16, 2008

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

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

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

Initializtaion

Equation

Evolute[{f[t],g[t]},t]

Gallery

Show[GraphicsArray[Block[{$DisplayFunction=Identity},
Partition[{
EvolutePlot[{2 Cos[t],Sin[t]},{t,0,2Pi}],
EvolutePlot[{t-Tanh[t],Sech[t]},{t,-3,3}],
EvolutePlot[{t,t^2},{t,-2,2},
PlotRange->{Automatic,{-.1,4}}],
EvolutePlot[{2Cos[t]+Cos[2t],2Sin[t]-Sin[2t]},{t,0,2Pi}]
},4]]]]