Kochanski's Approximation

Author

Eric W. Weisstein
August 4, 2004

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

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

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

Inialization

Code

KochanskiConstruction::usage="KochanskiConstruction gives a graphic showing the Kochanski construction."

KochanskiConstruction:=Module[{o={0,1},a={0,0},b={-Sqrt[3],1}/2,c=-{Sqrt[3],1}/2,d={-Sqrt[3]/3,0},e={3-Sqrt[3]/3,0},f={0,2},pts},pts={o,"O",a,"A",b,"B",c,"C",d,"D",e,"E",f,"F"};
Show[Graphics[{Circle[{0,1},1],Line[{{-2,0},{3,0}}],Circle[a,1],Circle[b,1],Circle[o,1],Line[{o,c}],Line[{e,f}],Line[{a,f}],PointLabels[pts]}],AspectRatio->Automatic]]

Figure

KochanskiConstruction