% TLC uniforme

clear;clf;
n=input('Taille de l echantillon:');
m=input('Nombre de realisations:');
X=rand(n,m);              
moy=0.5;sig=1/12;           
S=sum(X);                 
Scr=(S-n*moy)/sqrt(n*sig);  
[E,C]=histo(Scr,sqrt(m),0,1);
hold on
plot(C,dnorm(C),'r')