Yff Contact Triangle

Author

Eric W. Weisstein
November 8, 2005

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

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

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

Figure

t=Triangle[{{0,0},{1,0},{3/10,5/10}}]//N[#,10]&;
Show[Graphics[
{
{Green,Sides[t,2]},
t,
{Blue,
(Cartesian[#[t]]&/@(Cevians[X[190]]/.Line[x__]:>Line[x,Trilinears[X[190]]]))/.Line:>LongestLine
},
{Red,YffTriangle[t]},
PointLabels[Join[
Transpose[{VertexPoints[t],{"A","B","C"}}],
Append[#,Red]&/@Transpose[{VertexPoints[YffTriangle[t]],{"(Subscript[X, A])","(Subscript[X, B])","(Subscript[X, C])"}}],
{
{X[190][t],"(Subscript[X, 190])",Blue}
}
],LabelOffset->.06,PointSize[.025]]
}
],AspectRatio->Automatic,PlotRange->{{-.2,2},{-.2,1.7}}]

Trilinear Vertex Matrix

Vertices[Triangle[YffTriangle]]//TraditionalForm

Perspectrix

i=Intersections@@@Partition[Line@@@Transpose[TrilinearVertexMatrix/@{YffTriangle,ReferenceTriangle}],2,1,1]

-Map[Symmetrize,ExactTrilinears/@i,2]

Symmetrize/@Trilinears[X[190]]

Area

area=Factor[Together//@Area[YffTriangle]]

Simplify[area(Δ/(Area[])),TriangleQ[]]

Side Lengths

Map[Factor,Simplify[Map[Factor,Together//@ToSidelengths[SideLengths[YffTriangle]],3],TriangleQ[]],3]

Centers

(pts={#,KimberlingLookup[#[YffContactTriangle]]}&/@Take[KimberlingCenters,200]);//Timing

{#[[1]],Name[#[[1]]],X[#[[2,1]]],Name[X[#[[2,1]]]]}&/@Cases[pts,_?(Last[#]=!={}&)]//TableForm