%% auteur : 

70 setxunit
7.5 setborder
90 setangle_repere
-1 7 setxrange
-2 2 setyrange

/f {setxvar
   x Cos
} def

/fillstyle {0.9 0.9 0.9 setrgbcolor fill} def %colorie en dessous de la courbe en gris clair 
0.3 5.6 {f} Fillcourbe 
%/fillstyle {hachure} def
%2 5 {f} Fillcourbe 
traceaxes
axesarrow
marks
tracerepere
gsave
   noir
   2 setlinewidth
   continu
    {f} courbe
grestore

/A{0.3 0.3 Cos} def
/B{0.3 0} def
[A B] ligne
/C{5.6 5.6 Cos} def
/D{5.6 0} def
[C D] ligne

<latex>
  $\mathcal{C}_f$
</latex>
6.5 1.5 [1.5 1.5]dctexlabel

<latex>
  $a$
</latex>
0.3 0 [1.5 1.5]dctexlabel
<latex>
  $b$
</latex>
5.6 0 [1.5 1.5]dctexlabel

<tex>
  $O$
</tex>
0 0 [1.5 1.5]dltexlabel

<tex>
  $A_1$
</tex>
3 1.5 [3 3]uctexlabel

/arrowscale {2 dup} def
/E{0.8 0.4} def
/F{2.5 1.5} def
[F E] (->) ligne
/G{3.5 1.5} def
/H{5.2 0.3} def
[G H] (->) ligne

<tex>
  $A_2$
</tex>
3 -0.5 [3 3]cctexlabel