Droussent Cubic

Author

Eric W. Weisstein
November 18, 2005

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

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

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

Trilinear Equation

TrilinearEquation[DroussentCubic]

Incident Centers

(ctrs=IncidentCenters[KimberlingCenters,DroussentCubic])//Timing

First/@ctrs

Length[ctrs]

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

Figure

t=Triangle[{{0,0},{1,0},{.3,.7}}];
Show[Graphics[{
t,
{Red,DroussentCubic[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