function [a,b,c]=eqdroite(A,B)
xa=A(1);
ya=A(2);
xb=B(1);
yb=B(2);
xc=(xa+xb)/2;
yc=(ya+yb)/2;
xd=xb-xa;
yd=yb-ya;
d=sqrt(xd^2+yd^2);
xd=xd/d;
yd=yd/d;
a=xd;
b=yd;
c=xc*xd+yc*yd;
