%Normal, vår 12 menn gj.snitt
figure
niutval=92;
AntallUtval=200;
pauseint=0.05;
mu=179.8;
sigma=6.5;
for(i=1:AntallUtval)	
	utval=normrnd(mu,sigma, niutval,1);
	gjsnitt(i)=mean(utval);
	subplot(1,2,1);
	hist(utval);	
	gjsnitt(i)=mean(utval);	
	subplot(1,2,2);
	hist(gjsnitt(1:i));
	pause(pauseint)
end
hold
plot(mean(hogdeMann),0,'r*')
subplot(1,2,1);
title('Utval')
subplot(1,2,2);
title('Fordelinga til gjennomsnittet')

%Normal, våren 12 kvinner gj.snitt

figure
niutval=40;
AntallUtval=200;
pauseint=0.05;
mu=167.2;
sigma=6.5;
for(i=1:AntallUtval)	
	utval=normrnd(mu,sigma, niutval,1);
	gjsnitt(i)=mean(utval);
	subplot(1,2,1);
	hist(utval);	
	gjsnitt(i)=mean(utval);	
	subplot(1,2,2);
	hist(gjsnitt(1:i));
	pause(pauseint)
end
hold
plot(mean(hogdeKvinne),0,'r*')
subplot(1,2,1);
title('Utval')
subplot(1,2,2);
title('Fordelinga til gjennomsnittet')

%Menn våren 12, S²
figure
niutval=90;
AntallUtval=200;
pauseint=0.05;
mu=182.8; %kan bruke kva som helst
sigma=6.5;
for(i=1:AntallUtval)	
	utval=normrnd(mu,sigma, niutval,1);
	s2(i)=var(utval);
	subplot(1,2,1);
	hist(utval);		
	subplot(1,2,2);
	hist(s2(1:i));
	pause(pauseint)
end
hold
plot(var(hogdeMann),0,'r*')

%Kvinner våren 12, S²
figure
niutval=40;
AntallUtval=200;
pauseint=0.05;
mu=168.9; %kan bruke kva som helst
sigma=6.5;
for(i=1:AntallUtval)	
	utval=normrnd(mu,sigma, niutval,1);
	s2(i)=var(utval);
	subplot(1,2,1);
	hist(utval);		
	subplot(1,2,2);
	hist(s2(1:i));
	pause(pauseint)
end
hold
plot(var(hogdeKvinne),0,'r*')



