Comb Space

Author

Eric W. Weisstein
July 27, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Topology/CombSpace.nb.

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

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

Initialization

<<Graphics`Colors`

Figure

Show[Graphics[{
{Red,Circle[{1/25,1/2}, 1/4]},
Table[Line[{{1/n,0} ,{1/n,1}}],{n,25} ],
Line[{{1/25,0}, {1,0}}]
}, AspectRatio->Automatic]
]