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
/fillstyle {hachure} def
%[A0 B0 B1 A1] polygone*
%[A1 B2 B3 A2] polygone*
%[A2 B4 B5 A3] polygone*
%[A3 B6 B7 A4] polygone*
[A1 C1 C2 A2] polygone*
[A2 C3 C4 A3] polygone*
[A3 C5 C6 A4] polygone*
%[An-1 Bn-1 Bn An]polygone*
[An-1 Cn-1 Cn An] polygone*
$$ 1 \over n $$
A1 [1 1]dctexlabel
$$ 2 \over n $$
A2 [1 1]dctexlabel
$$ 3 \over n $$
A3 [1 1]dctexlabel
$$ 4 \over n $$
A4 [1 1]dctexlabel
$$ {n-1} \over n $$
An-1 [1 1]dctexlabel
setTimesItalic
(C) 0.8 0.55 ultext
(f) indice
(D) 0.75 0.33 drtext