Inverse Points

Author

Eric W. Weisstein
July 22, 2003

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

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

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

Initialization

<<PlaneGeometry`

Graphic

d=1.8;
p={d,0};
o={0,0};
q={1/d,Sqrt[1-1/d^2]};
pp={q[[1]],0};
pts={p,"P",q,"Q",o,"O",pp,"P'"};
Show[Graphics[{
Line[{o,p,q,o}],
PerpSquare[{{o,q},{q,p}},.1,4],
PointLabels[pts],Circle[{0,0},1],
Dashing[{.02,.02}],Line[{pp,q}]
}],
AspectRatio->Automatic]