Intangent

Author

Eric W. Weisstein
March 3, 2003

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

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

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

Initialization

<<PlaneGeometry`

Figure

t=Triangle[{{0,0},{1,0},{.3,.7}}];
Show[Graphics[{
t,
{Blue,Incircle[t]},
{Dashing[{.01}],Sides[t,2]},
{Red,Sides[IntangentsTriangle[t],2][[1]]
},
{Purple,Excircles[t][[1]]},
PointLabels[Join[
Transpose[{VertexPoints[t],{"A","B","C"}}],
{
{Incenter[t],"I",Blue},
{Excenters[t][[1]],"(Subscript[J, A])",Purple}
}
],LabelOffset->.1,PointSize[.015]]
}],AspectRatio->Automatic]