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

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

 
%% adresse IP : 83.99.30.230