%% 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
<latex>
$\displaystyle S_n(f)=\frac{(b-a)}{n}\sum_{i=0}^{n-1}f(a_i)$
</latex>
3.9 3.2 [1.8 dup] cctexlabel

coul1
<latex>
$\xi_{i}=a_{i},\; \forall i$
</latex>
2 -.5 [1.8 dup] cctexlabel