input geometriesyr16;

figuremainlevee(0,0,10u,6.5u);
pair A,B,C,D,E,M;
A=u*(7,1);
B-A=u*(0,4);
C-A=u*(-5,0);
M=iso(C,B);
E=4/3[A,C];
D=4/3[A,M];
trace triangle(A,B,C);
trace codeperp(B,A,C,5);
trace demidroite(C,E);
trace demidroite(A,M);
marque_p:="croix";
nomme.bot(E);
nomme.urt(D);
marque_p:="non";
nomme.top(M);
nomme.bot(C);
nomme.lrt(A);
nomme.urt(B);
finmainlevee;

end