%% auteur :
10 setfontsize 
200 setxunit
7.5 setborder
90 setangle_repere
3.3 4.5 setxrange
-2 0.2 setyrange
3.5 4.5 setxrange
-2 0 setyrange
1 1 settkstep
.5 .5 setsubtkstep
1 1 setmkstep
ticks
traceaxes
/f {setxvar
#rpn#   1/2*(x-2)^2-3
} def
/g {setxvar
#rpn#   2*x-9
} def
gsave
   noir
   .75 setlinewidth
   continu
   {f} courbe
grestore
gsave
   noir
   .75 setlinewidth
   continu
   {g} courbe
grestore
[3.5 0 3.5 -2 4.5 -2 4.5 0 ]ligne
2.4 settailletangente

% les graduations
4 xtick
4.2 xtick
3.5 0 setorigine
-1 ytick
-0.58 ytick

% les points
[4 4.2] {dup f dashpoint} apply

% les vecteurs
[4 -1 4.2 -1] (\(>)ligne
[4.2 -1 4.2 -0.58] (\(>)ligne

% le texte
0 0 setorigine
setTimesItalic
   (4) 4 0 utext
   (4 + h) 4.2 0 utext
   (f(4)) 3.5 -1 ltext
   (f(4 + h)) 3.5 -0.58 ltext
   (h)4.1 -1 dtext
   (f(4 + h) -f(4)) 4.2 -0.8 rtext
15 setfontsize
setPalatino
   (A) 4 -1 ultext