Extangent

Author

Eric W. Weisstein
March 3, 2003

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

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

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

Initialization

<<PlaneGeometry`;

Figure

t=Triangle[{{0,0},{1,0},{0.6,0.8}}];
Show[Graphics[{
t,
{Dashing[{.015}],Sides[t,3]},
{Blue,Rest[Excircles[t]]},
{Red,Sides[ExcircleEnclosingTriangle[t],2][[3]]},
PointLabels[Join[
Transpose[{VertexPoints[t],{"A","B","C"}}],
Append[#,Blue]&/@Transpose[{Rest[Excenters[t]],{"(Subscript[J, B])","(Subscript[J, C])"}}]
],LabelOffset->.15,PointSize[.015]
]
}],
AspectRatio->Automatic]

Wrong

t=Triangle[{{0,0},{1,0},{0.6,0.8}}];
Show[Graphics[{
t,
{Dashing[{.015}],Sides[t,3]},
{Blue,Rest[Excircles[t]]},
{Red,Sides[ExtangentsTriangle[t],2][[3]]},
PointLabels[Join[
Transpose[{VertexPoints[t],{"A","B","C"}}],
Append[#,Blue]&/@Transpose[{Rest[Excenters[t]],{"(Subscript[J, B])","(Subscript[J, C])"}}]
],LabelOffset->.15,PointSize[.015]
]
}],
AspectRatio->Automatic]