Coin Paradox

Author

Eric W. Weisstein
January 27, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/CoinParadox.nb.

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

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

Initialization

<<Curves`

Animation

Show/@(movie=Epicycloid[{1,1},{0,2Pi-.001,2Pi/40.}]);

<<GIF`;

Length[movie]

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

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