-2 8 setyrange

tracerepere
marks

%% la fonction carre
/f {
   setxvar
   x 2 exp
} def

%% la fonction g (x) = (x-2)^2 + 1
/g {
   setxvar
   x 2 sub
   2 exp
   1 add
} def
%% derivee de g
/g' {2 mul 4 sub} def

1.5 setlinewidth        %% epaisseur du trait

{f} courbe
{g} courbe

1.8 settailletangente           %% taille de la tangente
2 (g) tangente                  %% trace d'une tangente
5.8 settailletangente           %% taille de la tangente
4 (g) tangente                  %% trace d'une tangente

%% hachure entre 1 courbe et l'axe Ox
orange
-3 -1 {f} Hachcourbe

%% hachure entre 2 courbes
bleu
0 1 {f} {g} Hachcourbes