%%% Illustration de la décroissance vers zéro de la distance à 
%%% l'intervalle [-sig,+sig] dans le théorème de Strassen
%%% (loi du logarithme itéré)
clear
n=1000;
n0=3;
moy=1/2; sig=sqrt(1/12);
N=[1:n];
S=cumsum(rand(1,n));
Y=(S(n0:n)-N(n0:n)*moy)./sqrt(2*N(n0:n).*log(log(N(n0:n))));
Z=((Y>sig).*(Y-sig)+(Y<-sig).*(-Y-sig))/sig;
clf; 
plot(N(n0:n),Z,'b-.');
xlabel('Taille n de l''echantillon'); 
ylabel('Distance(Y_n,[-sig,sig])/sig');
legend('Distance dans LLI de Strassen');
