Trilinear Pole

Author

Eric W. Weisstein
October 25, 2005

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

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

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

Lines

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

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

i={{X[1]},{X[6]},{X[4]},{X[2]},{X[76]},{X[7]},{X[107]},{X[110]},{X[476]},{X[648]},{X[190]},{X[658]}};

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