Second Yff Triangle

Author

Eric W. Weisstein
February 11, 2005

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

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

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

Figure

t=Triangle[{{0,0},{1,0},{.3,.5}}];
Show[Graphics[{
t,
{Red,Cartesian[CevianTriangle[YffPoint[2]][t]]},
{Blue,Cartesian[#[t]]&/@Cevians[YffPoint[2]]},
{Dashing[{.005,.02}],
{Red,Cartesian[CevianTriangle[YffPoint[1]][t]]},
{Blue,Cartesian[#[t]]&/@Cevians[YffPoint[1]]}
},
PointLabels[Join[
Transpose[{VertexPoints[t],{"A","B","C"}}],
Append[#,Red]&/@Transpose[{VertexPoints[Cartesian[CevianTriangle[YffPoint[2]][t]]],{"A'","B'","C'"}}],
{
{YffPoint[1][t],"U",Blue},
{YffPoint[2][t],"U'",Blue}
}
],LabelOffset->.03]
}],AspectRatio->Automatic,PlotRange->All]

Area

FullSimplify[Area[YffTriangle[1]],TriangleQ[]]//Timing