Eigencenter

Author

Eric W. Weisstein
November 25, 2005

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

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

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

Enumeration

ctrs={#,KimberlingLookup[Eigencenter[#]]}&/@Triangles;

kc=DeleteCases[ctrs,_?(Last[#]==={}&)]

{#[[1]],X[#[[2,1]]],Name[X[#[[2,1]]]]}&/@Sort[{Name[#[[1]]],#[[2]]}&/@kc]//TableForm