Logarithmic Spiral Involute

Author

Eric W. Weisstein
March 16, 2008

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

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

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

Equation

FullSimplify[Involute[{Cos[t],Sin[t]}Exp[b t],t]]

Animation

Off[ParametricPlot::"ppcom"]

movie=InvoluteMovie[{Cos[t],Sin[t]}Exp[.3 t],{t,10,0,-.2},{0,10},
PlotRange->{{-50,40},{-30,70}},ImageSize->200];

<<GIF`;

Export[gifs<>"logspinv.gif",movie]//Timing

Show[Take[movie,{1,50,2}]]