%% auteur : 

-5 5.5 setxrange
-4 4 setyrange
30 setxunit

traceOx

xticks
0 xtick
/A{0 0} def
A point
/B{5 0} def
B point

/cer{O 4} def
%cer cercle
/M{-60 cer cpoint} def
M point
/M'{M projx} def

/C{4 0} def
A M C arcp
[A M] ligne
/arrowscale {1.5 dup} def
/arrowangle 8 def
M A C  0.8 (<-) tripointarc
setTimes
(M) M drtext
/cerc{O 3} def
/N{150 cerc cpoint} def
N point
[A N] ligne
/D{3 0} def
A D N arcp
/E{0 3} def
[A E] ligne
/N'{N projy} def
/arrowangle -8 def
D A N  1 (->) tripointarc


#latex#$-\frac{\pi}{3}$
1 -0.5 [1.5 1.5] cctexlabel

#latex#$\frac{5\pi}{6}$
1 1 [1.5 1.5] cctexlabel


setTimes
(A) A dtext
(B) B dtext
(N) N ltext
(E) E utext
(C) C utext
pointilles
[N N'] ligne
[M M'] ligne

A N' 2 marked
N' E 2 marked