%Normal, vår 11 menn gj.snitt

niutval=91;
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år 11 kvinner gj.snitt

figure
niutval=18;
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år 11, S²
figure
niutval=79;
AntallUtval=200;
pauseint=0.05;
mu=181.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(hogdeMann),0,'r*')

%Kvinner vår 11, S²
figure
niutval=18;
AntallUtval=200;
pauseint=0.05;
mu=170.4; %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*')

disttool

