300 setxunit
7.5 setborder
90 setangle_repere
-0.2 1.2 setxrange
-0.2 1.2 setyrange
traceaxes
axesarrow
marks


/f {setxvar
    x 3 exp
} def
gsave
   noir
   3 setlinewidth
   continu
  0  1 {f} Courbe
grestore

/fillstyle {0.9 0.9 0.9 setrgbcolor fill} def %colorie en dessous de la courbe en gris clair 
0 1 {f} Fillcourbe 

/n 7 def
/A0 {0 0} def
/A1 {1 n div 0} def
/A2 {2 n div 0} def
/A3 {3 n div 0} def
/A4 {4 n div 0}def

/B0 {0 1 n div 3 exp} def
/B1 {1 n div 1 n div 3 exp} def
/B2 {1 n div  2 n div 3 exp} def
/B3 {2 n div  2 n div 3 exp} def
/B4 {2 n div  3 n div 3 exp} def
/B5 {3 n div  3 n div 3 exp} def
/B6 {3 n div  4 n div 3 exp} def
/B7 {4 n div  4 n div 3 exp} def

/C1 {1 n div 1 n div 3 exp} def
/C2 {2 n div  1 n div 3 exp} def
/C3 {2 n div  2 n div 3 exp} def
/C4 {3 n div  2 n div 3 exp} def
/C5 {3 n div  3 n div 3 exp} def
/C6 {4 n div  3 n div 3 exp} def
/C7 {4 n div  4 n div 3 exp} def

/An-1 { n 1 sub n div 0} def
/An {1 0} def
/Bn-1 { n 1 sub n div 1} def
/Bn {1 1} def
/Cn-1 {n 1 sub n div  n 1 sub n div 3 exp} def
/Cn {1  n 1 sub n div 3 exp} def

[A0 B0 B1 A1] polygone*
[A1 B2 B3 A2] ligne
[A2 B4 B5 A3] ligne
[A3 B6 B7 A4] ligne

%[A0 0 C1 A1] ligne
[A1 C1 C2 A2] ligne
[A2 C3 C4 A3] ligne
[A3 C5 C6 A4] ligne
[An-1 Bn-1 Bn An]ligne
[An-1 Cn-1 Cn An] ligne

<tex>
  $$ 1 \over n $$
</tex>
A1 [1 1]dctexlabel

<tex>
  $$ 2 \over n $$
</tex>
A2 [1 1]dctexlabel

<tex>
  $$ 3 \over n $$
</tex>
A3 [1 1]dctexlabel

<tex>
  $$ 4 \over n $$
</tex>
A4 [1 1]dctexlabel
  
<tex>
  $$ {n-1} \over n $$
</tex>
An-1 [1 1]dctexlabel


setTimesItalic
   (C) 0.8 0.55 ultext
   (f) indice 
   (D) 0.75 0.33 drtext