Out[]=
Geometria2D`Circunferencias`
In[]:=
Example 1:
In[]:=
EulerGergonneSoddyTriangle[tri={{-1,3},{4,5},{7,-3}},{-10,10},{-10,10}]
PuntoFletcher
{3.40627,8.34546}
PuntoEvans
{4.45126,8.25337}
PuntoLongchampsZ
{2.26087,-4.65217}
PuntoX
650
{-35.0635,11.7356}
Circunferencia CEGS
Centro
radio
{3.35607,1.8006}
6.54505
Circunferencia GEOS
Centro
radio
{-16.4013,3.54169}
20.3818
m and b of the centers line:
-0.0881235
2.09635
m and b of the radical axis:
11.3477
-30.3079
Out[]=
Euler-Gergonne-Soddy triangle
EGS circumference
GEOS circumference
Base triangle
CEGS point
GEOS point
X
650
point
Example 2:
In[]:=
EulerGergonneSoddyTriangle[tri={{-2,5},{7,12},{9,-4}},{-16,15},{-15,21}]
PuntoFletcher
{-13.703,12.5178}
PuntoEvans
{-14.2044,11.3441}
PuntoLongchampsZ
{10.7089,2.08861}
PuntoX
650
{66.9997,201.42}
Circunferencia CEGS
Centro
radio
{-1.74778,6.71635}
13.2885
Circunferencia GEOS
Centro
radio
{38.8543,101.754}
103.564
m and b of the centers line:
2.34072
10.8074