"PARA EXPERIMENTAR CON EL CIRCUNCIRCULO DE UN TRIANGULO Y EL CIRCULO DE FEUER~
BACH"

"+++++++++++++++++++++++++++++++++++++++++++++"

MEDIATRIZ(a,b,e,f):=2*x*(e-a)+2*y*(f-b)+a^2+b^2-e^2-f^2=0

CIRCUNCENTRO(a,b,c,d,e,f):=[0.5*(a^2*(d-f)+b^2*(d-f)-b*(c^2+d^2-e^2-f^2)+c^2*~
f+d*(d*f-e^2-f^2))/(a*(d-f)+b*(e-c)+c*f-d*e),-0.5*(a^2*(c-e)-a*(c^2+d^2-e^2-f~
^2)+b^2*(c-e)+c^2*e-c*(e^2+f^2)+d^2*e)/(a*(d-f)+b*(e-c)+c*f-d*e)]

CIRCULOCENTRORADIO(u,r):=(x-u SUB 1)^2+(y-u SUB 2)^2-r^2=0

RADIOCIRCUNSCRITO(a,b,c,d,e,f):=ABS(CIRCUNCENTRO(a,b,c,d,e,f)-[a,b])

CIRCUNCIRCULO(a,b,c,d,e,f):=CIRCULOCENTRORADIO(CIRCUNCENTRO(a,b,c,d,e,f),RADI~
OCIRCUNSCRITO(a,b,c,d,e,f))

TRIANGULOCIRCUNCIRCULO(a,b,c,d,e,f):=[[[a,b],[c,d],[e,f],[a,b]],CIRCUNCIRCULO~
(a,b,c,d,e,f)]

"+++++++++++++++++++++++++++++++++++++++++++++"

CIRCULOFEUERBACH(a,b,c,d,e,f):=[[[a,b],[c,d],[e,f],[a,b]],CIRCUNCIRCULO((a+c)~
/2,(b+d)/2,(a+e)/2,(b+f)/2,(c+e)/2,(d+f)/2)]

"++++++++++++++++++++++++++++++++++++++++++++++"

"EJEMPLO"

TRIANGULOCIRCUNCIRCULO(0,0,-1,3,4,5)

"++++++++++++++++++++++++++++++++++++++++++++++"

CIRCULOFEUERBACH(0,0,-1,3,4,5)

"++++++++++++++++++++++++++++++++++++++++++++++"

CIRCULOFEUERBACH(7,0,0,2,-3,-4)