// Les medianes d'un triangle sont concourrantes
assume(Ax=-1);
assume(Ay=-1);
A:=point(Ax,Ay);
assume(Bx=0.5);
assume(By=1);
B:=point(Bx,By);
assume(Cx=1);
assume(Cy=-1);
C:=point(Cx,Cy);
triangle(A,B,C);
a:=mediane(A,B,C);
b:=mediane(B,C,A);
c:=mediane(C,A,B);
M:=head(inter(a,b));
N:=head(inter(b,c));
normal(longueur2(M,N));