Moving Ladder Problem

Author

Eric W. Weisstein
July 10, 2003

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

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

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

Figure

<<Graphics`Colors`

Show[Graphics[{
Line[{{0,0},{3,0},{3,3}}],
Line[{{0,1},{2,1},{2,3}}],
{Red,Thickness[.015],Line[{{1,0},{3,2}}]}
}],AspectRatio->Automatic]

Norm[Subtract@@{{1,0},{3,2}}]