Tucker Cubic

Author

Eric W. Weisstein
November 18, 2005

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

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

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

Trilinear Equation

TrilinearEquation[TuckerCubic]

Factor[%]

Incident Centers

(ctrs=IncidentCenters[Take[KimberlingCenters,All],TuckerCubic])//Timing

First/@ctrs

Length[ctrs]

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

Figure

t=Triangle[{{0,0},{1,0},{.3,.7}}];
Show[Graphics[{
t,
{Red,TuckerCubic[t]
},
PointLabels[Join[
Transpose[{VertexPoints[t],{"A","B","C"}}],
{#[t],Subscript["X",#[[1]]],Red}&/@ctrs
],LabelOffset->.06]
}],AspectRatio->Automatic,PlotRange->{{-.5,1.9},{-1.,1.1}}]//Timing