Fichier 501.jps — Modifié le 31 Juillet 2007 à 15 h 37
%% 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