Trilinear Polar

Author

Eric W. Weisstein
October 25, 2005

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

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

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

Lines

namedlines=#[[1,1,1]]&/@DownValues[CenterLine]

i=IncidentCenters[KimberlingCenters,IsogonalConjugate[#]]&/@Take[namedlines,All]

{#[[2]],Name[#[[2]]],CenterLine[#[[1]]],#[[1]]/.X->L}&/@Sort[Transpose[{namedlines,Flatten[i]}],#1[[2,1]]<#2[[2,1]]&]//TableForm

Symmetrize[TrilinearPolar[X[2]][[1]]]

Trilinears[X[6]]