1 setxyrapport
30 setxunit
7.5 setborder
90 setangle_repere
-0.8 5.8 setxrange
-0.8 5.8 setyrange
1 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
marks
traceaxes
unites
/f {setxvar
#rpn#   x+3/x-1/(x^2)
} def
/g {setxvar
#rpn#   x
} def
gsave
   rouge
   .75 setlinewidth
   continu
 0.1 xmax  {f} Courbe
grestore
gsave
   bleu
   .75 setlinewidth
   continu
   -0.1 xmax {g} Courbe
grestore

bleu
setTimesItalic
   (D) 4 4 drtext

rouge
setTimes
#latex#${\mathcal{C}}$
3 4.5  crtexlabel

noir
setTimesItalic
/K {0.33 0.33} def
(K) K crtext
(x) 5.6 0 dctext
(y) 0 5.6 cltext

#latex#${\overrightarrow{i}}$
0.5 0  dctexlabel
#latex#${\overrightarrow{j}}$
0 0.5  cltexlabel

(O) 0 0 dltext