Uniform Circular Motion

Author

Eric W. Weisstein
February 24, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Trigonometry/UniformCircularMotion.nb.

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

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

Figure

Orbit[q_]:=Graphics[{Circle[],PointSize[.07],Red,Point[{0,0}],Blue,Point[{Cos[q],Sin[q]}]}]

GraphicsGrid[Partition[Orbit/@Range[0,2π,2π/9],5,5,{1,1},{}],ImageSize->500]