Circle Point Picking

Author

Eric W. Weisstein
April 15, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/ComputationalGeometry/CirclePointPicking.nb.

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

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

Examples

CirclePoints[n_]:=Module[{pts=Select[Table[Random[Real,{-1,1}],{n},{2}],#.#<=1&]},
{(#1^2-#2^2),2#1#2}/(#1^2+#2^2)&@@@pts
]

Show[GraphicsArray[Graphics[{PointSize[.02],Point/@CirclePoints[#]},AspectRatio->Automatic]&/@{50,100,500}]]