Festlegen der Eckpunkte

[a:[-5,-2],b:[6,-1],c:[2,7]]$

Streckensymmetralen der Seiten ab und bc

[mab:(a+b)/2, mbc:(b+c)/2];

stab:[x,y].(b-a)=mab.(b-a);

stbc:[x,y].(c-b)=mbc.(c-b);

Schnitt der Streckensymmetralen =
Umkreismittelpunkt!

um:linsolve([stab,stbc],[x,y]);

absv2(v):=sqrt(v[1]**2+v[2]**2);

Bestimmung des Umkreisradius

rum:absv2(um-a);

wxplot2d([
[discrete, [a,b,c,a]],
ev(y,solve(stab,y)),
ev(y,solve(stbc,y))],
[x,-7,7],[y,-4,8],
[gnuplot_preamble,"set zeroaxis"]);