Hawaiian Earring

Author

Eric W. Weisstein
July 31, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneGeometry/HawaiianEarring.nb.

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

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

Additional Authors

Original notebook by Margherita Barile
July 18, 2002

Initialization

<<Graphics`ImplicitPlot`
<<Graphics`Colors`
<<Curves`

Degree

AlgebraicDegree[(x-1/n)^2+y^2-1/n^2,{x,y}]

Graphic

Show[Graphics[{Red,
Table[
Circle[{1/n^2,0},1/n^2],{n,20}]
},
PlotRange->All,
Axes->True,
Ticks->None,
AspectRatio->Automatic]
]