-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
$
\big( -\ln 2; {3\over 4} - \ln 2 \big)
$
-3 1 ultexlabel
$
\big( \ln {3\over 2}; -{1\over 4} + \ln {3\over2} \big)
$
-3 2 ultexlabel
$$
f (x) = e^{2x} - 3e^x + x + 2
$$
-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