Triangle Median

Author

Eric W. Weisstein
February 17, 2003

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

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

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

Initialization

<<PlaneGeometry`

Figure

t=Triangle[{{0.,0.},{3.,0.},{1.3,1.7}}];
Show[Graphics[{
t,
{
Red,
Medians[t],
EqualSideTicksAboutMidpoints[t,.04,.015]
},
PointLabels[Join[
Transpose[{VertexPoints[t],{"(Subscript[A, 1])","(Subscript[A, 2])","(Subscript[A, 3])"}}],
Append[#,Red]&/@Transpose[{Midpoints[t],{"(Subscript[M, 1])","(Subscript[M, 2])","(Subscript[M, 3])"}}],
{{Centroid[t],"G",Blue}}
],
{PointSize[.025],LabelOffset->.08}
]
}],AspectRatio->Automatic,PlotRange->All]