-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
(-3) -3 b [a dup] dctext
(+1) +1 b [a dup] dctext
(+4) -1 1.6 [a dup] cctext

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

 
%% adresse IP : 83.99.30.230