-2.5 8.5 setxrange
-1 1.5 setyrange
77.3 setxunit
18 setfontsize

traceOx
axeOxarrow
/ticklength {10} def
xticks
0 xtick
/a {3} def
/b {-0.4} def
(1) 1 b [a dup] dctext
(0) 0 b [a dup] dctext
(5) 5 b [a dup] dctext
(3) 3 b [a dup] dctext
(2) 2 1.1 [a dup] cctext
(2) 4 1.1 [a dup] cctext

/arrowscale {2 dup} def
/angleA 50 def
/angleB 130 def
3 0.3 5 0.3 (->) pccurve


/angleA 130 def
/angleB 50 def
3 0.3 1 0.3 (->) pccurve

4 setlinewidth
[xmin 0 1 0] (-) ligne
[5 0 xmax 0] (-) ligne
(]) 0.96 0 [4 dup] cctext
([) 5.04 0 [4 dup] cctext