% PROGRAM TO DISPLAY THE POWER OF CENTRAL LIMIT THEOREM
clc;
loops = 50000;
n = 1;
normmean = zeros(loops,1);
cc = 1;
while cc <= loops
x = (randn(n,1)).^2;
meanx = mean(x);
normmean(cc,1) = sqrt(nobs)*(meanx - 1)/sqrt(2);
cc = cc + 1;
end
hist(normmean,50);
title('Simulated Sampling Distribution of Transformed Mean from Chi-Square(1) pdf');