% TLC pour la loi uniforme
clear;clf
N=input('Taille de l echantillon:')
M=input('Nombre de realisations:')

X=rand(N,M);
Z=(sum(X)-N/2)/sqrt(N/12);    % Centrage et reduction
nbclasses=sqrt(M);
[E,C]=histo(Z,nbclasses,0,1);
hold on
plot(C,dnorm(C),'r-')         % Comparaison avec la loi N(0,1)
Legend('Histogramme','Loi normale');