Orthocorrespondent

Author

Eric W. Weisstein
November 17, 2005

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

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

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

Definition

Orthocorrespondent[{p,q,r}]

Table

ortho={#,KimberlingLookup[Orthocorrespondent[#]]}&/@Take[KimberlingCenters,All];//Timing

Name[X[2]]

Symmetrize[ToSidelengths[Orthocorrespondent[X[30]]]]

l=DeleteCases[ortho,_?(Last[#]==={}||Last[#]==={2}&)]

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