Tusi Couple

Author

Eric W. Weisstein
March 16, 2008

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

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

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

Plot

<<Utilities`Typesetting`

ParametricPlot[{2{Cos[t],Sin[t]},Hypocycloid[{2,1},t]},{t,0,2Pi},
Ticks->None,PlotStyle->{Dashing[{.05}],Red},AspectRatio->Automatic,
AxesOrigin->{0,0},
PlotLabel->TraditionalForm[InlineFraction[a,b]==2]]

movie=Show/@Hypocycloid[{2,1},{0,2Pi-.001,2Pi/30},PlotLabel->TraditionalForm[InlineFraction[a,b]==2]];

Show[GraphicsArray[Partition[Take[movie,{1,30,4}],4]]]

<<Utilities`GIF`;

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