"Vecteurs avec Maxima";

u:[2,3];

v:[-1,5];

v-u;

1/2*u;

A:[xA,yA];

B:[xB,yB];

vec(A,B):=B-A;

eval(vec(A,B));

mil(A,B):=(A+B)/2;

eval(mil(A,B));

xA:2;yA:-1;xB:3;yB:1;

A;

B;

eval(A,B);

ev(%, nouns);

vec(A,B);

ev(%, nouns);

mil(A,B);

ev(%, nouns);

"Droite (AB)";

"Coefficient directeur : ";

a(A,B):=(yB-yA)/(xB-xA);

eq:y=a(A,B)*x+b;

solve(yA=a(A,B)*xA+b,b);

M:[xM,yM];

eq:vec(A,M)=2*vec(A,B);

linsolve([xM-xA=2*(xB-xA), yM-xA=2*(yB-xA)], [xM,yM]);