Point at Infinty

Author

Eric W. Weisstein
November 20, 2004

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

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

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

Comparison

t=Triangle[Table[Random[Real,{0,1},50],{3},{2}]];
Off[TrilinearToCartesian::"orient"];
sides=SideLengths[Evaluate[t]];
angles=Angles[Evaluate[t]];

CenterFunction/@{X[30],Brisse[30]}

IncidentCenters[l_List?VectorQ,tri_List?VectorQ,opts___?OptionQ]:=IncidentCenters[l,Norm[Subtract@@@Partition[Divide@@{{α,β,γ},tri},2,1,1]]]/;Length[tri]===3

Kimberling Centers at Infinity

(ctrs=IncidentCenters[KimberlingCenters,LineEquation[LineAtInfinity]])//Timing

{#,CenterName[#]}&/@ctrs//TableForm