%% PhS gh %% %% Èchelle et Ètendue de l'image 60 setxunit -1 6.5 setxrange -1 4 setyrange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% procÈdures %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% on donne ici x(t) /xdet { 1 dict begin /t exch def t end } def %% on donne ici y(t) /ydet { 1 dict begin /t exch def t dup mul dup mul -0.05 mul t dup mul 0.4 mul add t -0.3 mul add 1.5 add end } def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% dÈfinitions des couleurs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /coul1 {120 255 div 70 255 div 9 255 div setrgbcolor} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% tracÈs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% tracÈ des axes et du point Origine 1 setlinewidth 15 setfontsize noir continu traceaxes marks tracerepere 2 setlinewidth noir continu -2 2.5 settrange {xdet 2.5 add} {ydet} courbeparam /fillstyle {hachure} def 1 setlinewidth coul1 continu [0.5 0 0.5 -2 ydet] (-) ligne [5 0 5 2.5 ydet] (-) ligne /x1 0.5 def /x2 1.625 def /x3 2.75 def /x4 3.875 def /x5 5 def [x1 0 x1 dup -2.5 add ydet x2 x1 -2.5 add ydet x2 0] polygone* [x2 0 x2 dup -2.5 add ydet x3 x2 -2.5 add ydet x3 0] polygone* [x3 0 x3 dup -2.5 add ydet x4 x3 -2.5 add ydet x4 0] polygone* [x4 0 x4 dup -2.5 add ydet x5 x4 -2.5 add ydet x5 0] polygone* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% texte %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% setTimesItalic noir $\displaystyle S_n(f)=\frac{(b-a)}{n}\sum_{i=0}^{n-1}f(a_i)$ 3.9 3.2 [1.8 dup] cctexlabel coul1 $\xi_{i}=a_{i},\; \forall i$ 2 -.5 [1.8 dup] cctexlabel