Involute

Author

Eric W. Weisstein
March 16, 2008

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

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

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

Initiazliation

Examples

Show[GraphicsArray[Partition[{
InvolutePlot[{ Cos[t],Sin[t]},{t,0,2Pi},DisplayFunction->Identity],
InvolutePlot[{t,Cosh[t]},{t,-3,3},
DisplayFunction->Identity],
InvolutePlot[{2Cos[t]+Cos[2t],2Sin[t]-Sin[2t]},{t,0,2Pi},DisplayFunction->Identity]
},3]]]

Animation

<<Utilities`GIF`;

Export[gifs<>"involute.gif",InvoluteMovie[{Cos[t],Sin[t]},{t,4Pi,0,-4Pi/30},{0,2Pi},PlotRange->{{-15,10},{-15,10}}]
]//Timing