Orthogonal Circles

Author

Eric W. Weisstein
October 21, 2005

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

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

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

Table

t=Triangle[Table[Random[Real,{0,1},30],{3},{2}]];

Length[pairs=Subsets[Select[CentralCircles,CircleFunction[#]=!=Null&],{2}]]

l={};
Do[
Print[{i,pairs[[i]],expr=TimeConstrained[OrthogonalQ@@Through[pairs[[i]][t]],500]//Timing;
If[Last[expr]=!=False,AppendTo[l,{pairs[[i]],Last[expr]}]];expr}],
{i,Length[pairs]}
]

orth=First/@Select[l,Last[#]===True&]

Function[cc,{cc,Sort[Flatten[Complement[#,{cc}]&/@Select[orth,MemberQ[#,cc]&]]]}]/@Union[Flatten[orth]]//ColumnForm