-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
(-5) -5 b [a dup] dctext
(-8) -1 2.2 [a dup] cctext

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

 
%% adresse IP : 83.99.30.230