Exmedian Point

Author

Eric W. Weisstein
February 15, 2003

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

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

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

Initialization

<<PlaneGeometry`

Figure

t=Triangle[{{0,0},{1,0},{.1,.7}}];
Show[Graphics[{
t,
{Red,at=AnticomplementaryTriangle[t]},
PointLabels[Join[
Transpose[{Point/@Vertices[t],{"(Subscript[A, 1])","(Subscript[A, 2])","(Subscript[A, 3])"}}],
Append[#,Red]&/@Transpose[{Exmedians[t],{"A(Subscript[', 1])","A(Subscript[', 2])","A(Subscript[', 3])"}}]
],
{PointSize[.025],LabelOffset->.04}
]
}],
PlotRange->All,AspectRatio->Automatic]