 %FIXME: PAS AU POINT DU TOUT !
 % Illustration de la vitesse de convergence dans 
 % le théorème de Glivenko-Cantelli pour des unif. 
 % Tracé du sup des fonctions de répartitions
 % intervenant dans la convergence en loi vers KS :
 % sup(F(|Femp-Fth|)/Fks).
 clf;  clear; 
 m=100;    % nombre d'échantillons
 n=100;    % taille des échantillons
 X=rand(m,n);
 Z=zeros(m,n);
 for i=2:n, % X_1,...,X_i
   for j=2:m, % Échantillons de taille i
	 [E,C]=hist(X(j,1:i),j,1);
	 FRE=cumsum(E);
	 FRT=C+(range(X(j,1:i))/j)/2;
	 SD(i,j)=max(abs(FRE-FRT));
   end
   SD(i,1)=0;
   [E,C]=hist(SD(i,:),i,1);
   FR(i,1:i)=cumsum(E);
   KS(i,1:i)=pks(C+range(SD(i,:)/(2*i)));   
   Z(i,1:i)=sqrt(i)*FR(i,:)-KS(i,:);
 end
plot(max(Z'))