-7.5 6.5 setxrange
-1.5 2.5 setyrange
50 setxunit
18 setfontsize

traceOx
axeOxarrow
/ticklength {10} def
xticks
0 xtick
%[-9 -4 1] {xmark} apply
/a {3} def
/b {-0.4} def
(0) 0 b [a dup] dctext
(+2) +2 b [a dup] dctext
(+6) +6 b [a dup] dctext
(+4) 4 1.6 [a dup] cctext

/arrowscale {2 dup} def
/angleA 30 def
/angleB 150 def
2 0.5 6 0.5 (->) pccurve

 
%% adresse IP : 83.99.30.230