% Serie 10, Nr. 4.  Zugriffszeiten 158922
%Es werden die Zugriffszeiten bei einem bestimmten Produktionsprozess untersucht.
%Folgende Stichprobe [in Sekunden] wurde ermittelt. Sind diese Zeiten wirklich von 0.4 Sekunden verschieden? 
%Signifikanzniveau ist 1%.
XX=[0.23,0.23,0.23,0.30,0.32,0.32,0.34,0.34,0.34 , 0.43,0.43,0.43,0.43,0.45,0.45,0.45,0.45,0.45 , 0.54,0.54,0.54,0.54,0.54,0.54,0.56,0.56,0.56, 0.62,0.65,0.65,0.65,0.67,0.67,0.68,0.76,0.76] 

NN=length(XX)
alph=1/100; % Signifikanzniveau
mu=0.4 ;   % Mittelwert, der getestet werden soll

% a) Berechne
xbar=mean(XX) % geschätzten Mittelwert
ss=std(XX)    % geschätzte Standard-Abweichung
% b) Berechne Testgrösse
tt=(xbar-mu)/ss*sqrt(NN)
% 
% c) bestimme Annahmegrenzen 
 qq=1-alph/2 % zweiseitige Tests
 % qq=1-alph  % einseitige Tests
toben=tinv(qq,NN-1)   % entspricht Auslesen Tabelle T.3
tunten=-toben

% d) Statistischer Schluss
abs(tt)> toben
% Prüfgrösse liegt nicht im Annahmebereich (sie ist grösser als die obere
% Grenze). Die Nullhypthese wird verworfen, die Zugriffzeiten sind nicht
% gleich mu != xbar 

% Serie 10, Nr. 6. Zugriffszeiten II 936195
%Gegeben sei wieder die Stichprobe aus der vorherigen Aufgaben zu den
%Zugriffszeiten. In welchem Vertrauensintervall zur Vertrauenswahrscheinlichkeit 0.99
%liegt der wirkliche Wert des Mittels der Zugriffszeiten?

NN=length(XX)
alph=1/100; % Signifikanzniveau
xbar=mean(XX) % geschätzten Mittelwert
ss=std(XX)    % geschätzte Standard-Abweichung
qq=1-alph/2 % zweiseitige Tests
toben=tinv(qq,NN-1)   % entspricht Auslesen Tabelle T.3

grenz=[ -1, 1]*ss*toben/sqrt(NN)+xbar

 