Jerabek Center

Author

Eric W. Weisstein
November 16, 2005

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

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

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

Figure

t=Triangle[{{0,0},{1,0},{.4,.7}}];
Show[Graphics[{
t,
{Red,JerabekHyperbola[t]},
{Blue,NinePointCircle[t]},
PointLabels[Join[
Transpose[{Point/@Vertices[t],{"A","B","C"}}],
{{X[125][t],"(Subscript[X, 125])",Red}}
],
{PointSize[.025],LabelOffset->-.08}
]
}],
PlotRange->{{-.5,1.5},{-.5,1}},
AspectRatio->Automatic]