C1:=cercle(A,B);
O:=milieu(A,B);
t:=element(0..2*pi);
C:=element(C1,t);
D1:=perpendiculaire(C,droite(o,C));
D2:=parallele(o,droite(A,C));
M:=inter(D1,D2);
N:=M[0];
lieu(N,C);