Parry Point

Author

Eric W. Weisstein
February 13, 2003

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

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

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

Initialization

<<PlaneGeometry`

Figure

t=Triangle[{{0,0},{1,0},{.3,.5}}];
Show[Graphics[{
t,
{Red,ParryCircle[t]},
{Blue,Circumcircle[t]},
PointLabels[Join[
Transpose[{Point/@Vertices[t],{"(Subscript[A, 1])","(Subscript[A, 2])","(Subscript[A, 3])"}}],
{
{IsodynamicPoint[1][t],"S",Red},
{IsodynamicPoint[2][t],"S'",Red},
{Centroid[t],"G",Red},
{ParryPoint[t],"P",Purple},
{X[110][t],"(Subscript[X, 110])",Purple}
}
],
{PointSize[.04],LabelOffset->-.08}
]
}],AspectRatio->Automatic,PlotRange->All]