%% auteur : Péric
-5 10 setxrange
-4 4.5 setyrange
%20 setxunit
18 setfontsize

traceOx
axeOxarrow
/ticklength {10} def
xticks
0 xtick


%[-1 3 7] {xmark} apply
/a {3} def
/b {-0.3} def
(0) 0 b [a dup] dctext
(-1) -1 b [a dup] dctext
(3) 3 b [a dup] dctext
(7) 7 b [a dup] dctext
(A) 1 2 [a dup] cctext
(B) 5 2 [a dup] cctext
/D{4.7 -0} def  
/arrowscale {2 dup} def
/angleA 120 def
/angleB 60 def
3 0.5 -1 0.5 (->) pccurve


/angleA 60 def
/angleB 120 def
3 0.5 7 0.5 (->) pccurve

3 setlinewidth
[-1 0 7 0] (-) ligne
1 setlinewidth
/dotscale {2.5 2.5} def
[-1 0 7 0] ([-]) ligne
%([) -0.97 0 [4 dup] cctext
%(]) 6.97 0 [4 dup] cctext