First Morley Center

Author

Eric W. Weisstein
January 21, 2005

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

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

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

Center

Center[MorleysCircle][[1]]

IncidentCenters[KimberlingCenters,Center[MorleysCircle]]//Timing

Figure

t=Triangle[{{0,0},{1,0},{.3,.7}}];
Show[Graphics[{
t,
{Blue,MorleysTriangle[t]},
{Red,MorleysCircle[t]},
PointLabels[Join[
Transpose[{VertexPoints[t],{"A","B","C"}}],
Append[#,Blue]&/@Transpose[{VertexPoints[MorleysTriangle[t]],{"A'","B'","C'"}}],
{
{X[356][t],"(Subscript[X, 356])",Red}
}
],LabelOffset->.03]
}],AspectRatio->Automatic,PlotRange->All]