In[]:=
In the command below, type the coordinates of three new points. Then evaluate the notebook.
In[]:=
RadicalCircumferenceLucas[tri={{-2,5},{7,12},{9,-4}}]
Coordinates of the centers and radii of the circumferences:
Lucas1
Lucas2
Lucas3
Soddy1
Soddy2
Central
RadicalLucas
{{1.09091,4.53589},3.12556}
{{6.63889,8.38889},3.62912}
{{7.45139,0.263889},4.5364}
{{4.78603,4.62009},0.570517}
{{6.17722,3.77215},8.26889}
{{5.45851,4.16773},4.38309}
{{4.87582,4.56536},2.13478}
Out[]=
Radical circumference
Lucas' circumferences
Soddy's circumferences
Central circumference of Lucas