740.jps

%% 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