Présentation de riemann_03.jps

/syracuse/bbgraf/albums/integration/riemann_03.jpg
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* <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