Curtate Cycloid Evolute

Author

Eric W. Weisstein
March 16, 2008

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

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

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

Equation

CurtateCycloid[a_,b_]:={a t-b Sin[t],a-b Cos[t]}

Evolute[CurtateCycloid[a,b],t]//FullSimplify

Plot

EvolutePlot[CurtateCycloid[1.,.6],{t,-Pi,3Pi},PlotRange->{{-5.,15.},Automatic}]