Diagonal Paradox

Author

Eric W. Weisstein
March 17, 2004

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

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

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

Initialization

<<Graphics`Colors`
<<Utilities`Typesetting`

Code

square=Line[{{0,0},{1,0},{1,1},{0,1},{0,0}}];

Diagonal[n_]:=Module[{i},
{square,Red,Line[Join[Flatten[Table[{{i,i},{i+1,i}},{i,0,n-1}],1]/n,{{1,1}}]]
}
]

Graphic

Show[GraphicsArray[Graphics[Diagonal[#],AspectRatio->Automatic,
PlotLabel->TraditionalForm[n==#]]&/@{5,20,100}]]