f1.x:=abs(a1.x-a2.x)/2
f1.y:=abs(a1.y-a1.y)/2;
f2.x:=abs(a2.x-a3.x)/2
f2.y:=abs(a2.y-a3.y)/2;

y(x): szamlalo: (a1*f1.x)+(b1*f1.y)-a1.x
      nevezo: b1

x:= szamlalo: b1*a2*f2.x + b2*f2.y - b2a1*f1.x
    nevezo: b1*b1+b2*a1

sugar: sqrt( (f1.x-k.x)_a_negyzeten + (f1.y-k.y)_a_negyzeten) )