input geoelem.mp ; beginfig(1); numeric u; u=1.5cm ; draw fullcircle scaled 3cm; dotlabel.lft(btex $0$ etex, (0,0)); draw (0,0)--(cosd(30)*u,sind(30)*u); draw (0,0)--(cosd(30)*u,-sind(30)*u); dotlabel.lrt(btex $A$ etex, (cosd(30)*u,-sind(30)*u)); dotlabel.urt(btex $M$ etex, (cosd(30)*u,sind(30)*u)); z1=(cosd(30)*u,sind(30)*u);z2=(0,0);z3=(cosd(30)*u,-sind(30)*u); %mark_angle(z3,z2,z1,2); %ca tourne dans le sens trigo %label.top(btex $l$ etex, (0.4*u,-0.15*u)); label.rt(btex $l$ etex,(1.1*u,0*u)); endfig; beginfig(2); numeric u; u=1.5cm ; draw fullcircle scaled 3cm; dotlabel.lft(btex $0$ etex, (0,0)); drawarrow (cosd(30)*1.4*u,sind(30)*1.4*u)..(cosd(45)*1.4*u,sind(45)*1.4*u).. (cosd(60)*1.4*u,sind(60)*1.4*u); drawarrow (cosd(30)*1.4*u,-sind(30)*1.4*u)..(cosd(45)*1.4*u,-sind(45)*1.4*u).. (cosd(60)*1.4*u,-sind(60)*1.4*u); label.rt (btex $+$ etex,(cosd(45)*1.6*u,sind(45)*1.6*u)); label.rt (btex $-$ etex,(cosd(45)*1.6*u,-sind(45)*1.6*u)); label.top(btex $1$ etex, (0.4*u,0.2*u)); draw (0,0)--(cosd(30)*u,sind(30)*u); endfig; beginfig(3); numeric u; u=1.5cm ; draw fullcircle scaled 3cm; draw (-u,0)--(u,0); draw (0,-u)--(0,u); label.lft(btex $0$ etex, (0,-0.15*u)); dotlabel.lrt(btex $A$ etex, (u,0)); dotlabel.lft(btex $A'$ etex,(-u,0)); dotlabel.top(btex $B$ etex, (0,u)); dotlabel.bot(btex $B'$ etex, (0,-u)); drawarrow (cosd(30)*1.4*u,sind(30)*1.4*u)..(cosd(45)*1.4*u,sind(45)*1.4*u).. (cosd(60)*1.4*u,sind(60)*1.4*u); drawarrow (cosd(30)*1.4*u,-sind(30)*1.4*u)..(cosd(45)*1.4*u,-sind(45)*1.4*u).. (cosd(60)*1.4*u,-sind(60)*1.4*u); label.rt (btex $+$ etex,(cosd(45)*1.6*u,sind(45)*1.6*u)); label.rt (btex $-$ etex,(cosd(45)*1.6*u,-sind(45)*1.6*u)); endfig; end