Fichier 6647.jps — Modifié le 11 Mai 2008 à 17 h 40
%% auteur : Peric
42.675 setxunit
28.45 setyunit
/xmarkstyle {[1.4 dup] dctext} def
/ymarkstyle {[1.4 dup] ultext} def
-5.9 5.9 setxrange
-6.5 6.5 setyrange
1 1 settkstep
1 1 setmkstep
ticks
marks
(0) 0 0 [1.4 dup] dltext
traceaxes
axesarrow
unites
/a{1.5}def
/f {setxvar
#rpn# -x/4+2-1/(x+1)
} def
/f' {setxvar
#rpn# 0
} def
/g{setxvar
#rpn# -x/4+2
} def
/m{9 4 div} def
gsave
% bleu
2 setlinewidth
continu
xmin -1.01 {f} (-) Courbe
-0.99 xmax {f} (-) Courbe
%1 settailletangente
%2 ln (f) tangente
1 setlinewidth
xmin xmax {g} (-) Courbe
[-1 ymin -1 ymax] ligne
grestore
gsave
#latex# $D_1$
-5.5 dup g [a dup] dctexlabel
#latex# $A$
-1 m [a dup] ultexlabel
#latex# $B$
0 1 [a dup] drtexlabel
#latex# $D_2$
-1 -6 [a dup] cltexlabel
grestore