Source
%% auteur : 

28.346 setxunit
-5 6 setxrange
-2 8 setyrange
1.7 setlinewidth
traceaxes
axesarrow
tracerepere
marks

1.2 setlinewidth
/O {0 0} def
16 setfontsize
setTimesItalic
(O) O dltext
/f {setxvar -2 x 1 add div 3 add} def
/g {setxvar 3} def
/f' {setxvar 2 x 1 add 2 exp div} def

bleu
-5 -1.1 {f} Courbe
-0.9 6 {f} Courbe
rouge
-5 6 {g} Courbe
vert
5 settailletangente
-2 {f} tangente

<latex>
$$\int_{1}^{3}\left( 3-f(x)\right)dx$$
</latex>
vert
boxit_all
2. 5.8 drtexlabel


gris
1 3 {f} {g} Hachcourbes

noir
[3 5 2 2.7](->) ligne

gris
pointilles
[1 3 1 0] ligne
[3 3 3 0] ligne