y=zeros(10000,1);
for i=1:12
subplot(3,4,i)
    for j=1:10000
    y(j)=sum(gen3(rand*1000,i));
    end    
%figure(i-1)
y=y-i/2;
hist(y,20)
end