Cardioid Evolute

Author

Eric W. Weisstein
March 16, 2008

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

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

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

Equation

cardioid={Cos[t](1+Cos[t]),Sin[t](1+Cos[t])};

FullSimplify[Evolute[cardioid,t]]

Plot

<<Graphics`ImplicitPlot`

EvolutePlot[cardioid,{t,0,2Pi},PlotPoints->70]