%% auteur : Y.lagier
% définition de deux nouvelles couleurs
/gris_clair {0.85 0.85 0.85 setrgbcolor} def
/vert_clair {0.1 0.9 0.2 setrgbcolor} def
% trace la courbe y=f(x)=-2/(x+1)+3
/f { %% définition de la fonction f, en notation postfixée
setxvar %% on nomme x la variable sur la pile
-2 x 1 add div 3 add
} def
/g{ % asymptote horiz
3
} def
/f'{ %définition de la dérivée
setxvar
2 x 1 add 2 exp div
} def
% 1 cm comme unité soit environ 28 points
28.3464956695 setxunit
-4.5 4.5 setxrange 
-6.2 6.2 setyrange
1 setxyrapport
0.5 0.5 gris_clair Quadrillage
noir % on revient à la couleur noire
% écriture de la fonction
<tex>
$$
f(x)={-2 \over x+1}+3
$$
</tex>
% placement du label TEX défini ci-dessus
1 1 f drtexlabel
% définition d'un label TEX pour le premier vecteur
<tex>
$$
\vec{i}
$$
</tex>
% placement du label TEX défini ci-dessus
0.2 -0.6 urtexlabel
% définition d'un label TEX pour le second vecteur
<tex>
$$
\vec{j}
$$
</tex>
% placement du label TEX défini ci-dessus
-0.1 0.2 urtexlabel
% définition de la police et de sa taille
setTimes
12.5 setfontsize
%placement de la chaîne de caractère O
(O) -0.2 -0.2 cctext
% tracé de la tangente au point d'abscisse -2.5
3.5 settailletangente % uniquement si repère orthonormé
-2.5 (f) tangente
%définition du point de tangence
/A {-2.5 -2.5 f} def
(A) -2.5 -2.5 f drtext
A dashpoint
%hachures entre la courbe et son asymptote horizontale
/hangle 30 def %angle avec l'axe x'x
/hstep 3 def % espacement, en points
/hcolor vert_clair
/hwidth 0.2 def % épaisseur du trait
0 2 {f}{3} Hachcourbes
noir
pointilles
[2 3 2 2 f] ligne
%mieux vaut tracer les courbes après les hachures ou remplissage
continu 
1 setlinewidth
-4.5 4.5 noir {f} Courbe 
-4.5 4.5 noir {g} Courbe
tracerepere 
marks 
0.5 xsubtick 
0.5 ysubtick