A:=point(-3.84000000000,1.95000000000);
B:=point(-2.16000000000,-0.723000000000);  
C:=point(1.30000000000,0.710000000000); 
triangle(A,B,C);
u:=element(-4..4,0.182);
M:=element(droite(B,C),u);
D:=element(droite(A,B));
D1:=droite(D,M);
E:=(inter(droite(A,C),D1))[0];
C1:=circonscrit(B,D,M);
C2:=circonscrit(E,C,M);
L:=inter(C1,C2);
if (affixe(L[0])==affixe(M)) {Q:=L[1];} else {Q:=L[0];};
P:=Q;
lieu(P,D);