%% auteur : 

60 setxunit
7.5 setborder
90 setangle_repere
-1 7 setxrange
-1 3 setyrange
traceaxes
axesarrow
marks


/f {setxvar
    x 0.5 exp
} def
gsave
   noir
   2 setlinewidth
   continu
 0 7   {f} Courbe
grestore

/g {setxvar
 1
} def

/fillstyle {hachure} def
1.5 4.5 {f} Fillcourbe 

/fillstyle {hachure} def
0 1 {g} Fillcourbe 

/A0 {1.5 0} def
/A1 {4.5  0} def
/B0 {1.5 1.5 0.5 exp} def
/B1 {4.5 4.5 0.5 exp} def
/C0 {1 0} def
/C1 {-0.25 1.125} def
/C2 {-0.125 0} def
[A0 B0] ligne
[A1 B1] ligne


<tex>
  $I$
</tex>
C0 [1.5 1.5]dctexlabel

<tex>
  $0$
</tex>
C2 [1.5 1.5]dctexlabel

<tex>
  $J$
</tex>
C1 [1.5 1.5]dctexlabel

<tex>
  $a$
</tex>
A0 [1.5 1.5]dctexlabel

<tex>
  $b$
</tex>
A1 [1.5 1.5]dctexlabel

<latex>
  $C$
</latex>
6 3 [1.5 1.5]dctexlabel


<tex>
  $A$
</tex>
3 1 [3 3]dctexlabel