% Producent silników twierdzi, ¿e jego silniki maj¹
% œredni¹ moc 220KM,a 
% odchylenmie standardowe wynosi 15 KM. 
% Potencjalny klient testuje 100 silników. 
% Jakie jest prawdopodobieñstwo, ¿e œrednia z próby bedzie 
% mniejsza ni¿ 217 KM?

% ze wzoru:
p=normcdf(-2)
% symulacja
mu=220;
sig=15;
N_prob=100;

m_kryt=217;

N_rep=1e5;
srednia=zeros(1,N_rep);
for i=1:N_rep
    seria=sig*randn(1,100)+mu;
    srednia(i)=mean(seria);
end
[n,x]=hist(srednia,30);
bar(x,n)
line([m_kryt m_kryt],[0 max(n)],'Color',[1 0 0])
p1=length(find(srednia<m_kryt))/N_rep