-4 6 setyrange
-6 2.5 setxrange
/f {
   setxvar
   2 x mul Exp
   x Exp 3 mul sub
   x add 2 add
} def
/f' {
   setxvar
   2 x mul Exp 2 mul
   x Exp 3 mul sub
   1 add
} def

/yA 1.2 def                             %% en fait, c'est yA"
/A {2 ln neg dup f} def                 %% pt d'abscisse ln 2 de C
/A' {yA A dupp 1 -1 addv ydpoint} def   %% pt d'ordonnee yA de la
                                        %% droite passant par A, de
                                        %% vecteur dir (1, -1)
/A" {-3 yA} def
/yB 2.2 def
/B {1.5 ln dup f} def
/B' {yB B dupp 1 -1 addv ydpoint} def
/B" {-3 yB} def

%%quadrillage
/unites {} def
tracerepere
marks

{f} courbe

gsave
   mixte
   {2 add} courbe
grestore

3 ln dup f point

/arrowscale {.5 dup} def
/dotscale {.5 dup} def
1.8 settailletangente
2 ln neg (f) tangente
0 (f) tangente
3.8 settailletangente
1.5 ln (f) tangente

<tex>
$
  \big( -\ln 2; {3\over 4} - \ln 2 \big) 
$
</tex>

-3 1 ultexlabel
<tex>
$
  \big( \ln {3\over 2}; -{1\over 4} + \ln {3\over2} \big) 
$
</tex>
-3 2 ultexlabel

<tex>
$$
   f (x) = e^{2x} - 3e^x + x + 2
$$
</tex>
-3 5 uctexlabel

.3 setlinewidth
[A A' A"] (-) ligne
[B B' B"] (-) ligne
setTimesItalic
   (D) -5 -3 drtext
   (C) 1.2 dup f ultext
   %% on recupere avec le curseur de gv les coordonnées du point ou
   %% afficher T, puis on les transforme en coordonnees jps
   (T) 225 160 xtranslate ytranslate subv ptojpoint uctext