%% auteur : Péric
50 setxunit
7.5 setborder
90 setangle_repere
-0.8 5 setxrange
-2.9 8 setyrange
1 1 settkstep
1 1 setsubtkstep
2 2 setmkstep
ticks
subticks
20 setfontsize
marks
traceaxes
axesarrow
unites
/f {setxvar
#rpn#   x+3/x-1/x^2
} def
/h {setxvar
#rpn#   x+9/4
} def
/g {setxvar
#rpn#   x
} def
/f' {  setxvar
#rpn# (x-1)^2*(x+2)/x^3
} def
gsave
   noir
   1 setlinewidth
   continu
   0.1 xmax {f} Courbe
grestore
gsave
   noir
   %rouge
   .75 setlinewidth
   pointilles
   0 xmax {g} Courbe
grestore
gsave
   noir
   %rouge
   .75 setlinewidth
   pointilles
   0 xmax {h} Courbe
grestore
noir
%rouge
1.5 settailletangente          
1 (f) tangente               
2 3 div (f) tangente               
  
<latex>
$y=x$
</latex>
3 dup g [1.5 dup] {1 1 atan} drtexlabel
<latex>
$y=x+\frac{9}{4}$
</latex>
3 dup h [1.5 dup] {1 1 atan} urtexlabel
#latex# $\frac{2}{3}$
2 3 div 0 [1.5 dup] dctexlabel
(1) 1 -0.1 [1 dup] dctext

0.75 setlinewidth
dotted
[ 2 3 div dup dup f 0 3 1 roll] ligne
[ 1 dup dup f 0 3 1 roll] ligne
[ 0 2 3 div dup f dup 3 1 roll] ligne
#latex# $\frac{35}{12}$
0 2 3 div f [1.5 dup] cltexlabel