%Normal, vår 09 menn gj.snitt

niutval=79;
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(mann),0,'r*')

%Normal, vår 09 kvinner gj.snitt

figure
niutval=36;
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(kvinne),0,'r*')

%Menn vår 09, S²
figure
niutval=79;
AntallUtval=200;
pauseint=0.05;
mu=183.1; %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(mann),0,'r*')


disttool