Lösungen / Statistik 2/12

Remove["Global`*"]

1.

a

σ = 0.015;  n = 24;  α = 0.01;

fr=FindRoot[
        Integrate[
            E^(-(t^2)/2)/ Sqrt[2 Pi], {t, -Infinity, 
              z}] == 1 - α/2, {z, 1}]

zQ = z /. fr

h =  zQ * σ / Sqrt[n]

iI = {22.46 - h, 22.46 + h}

===>   Nein / Non

b

σ = 0.15; h =  zQ * σ / Sqrt[n];  
    iI = {22.46 - h, 22.46 + h}

===>   Ja / Oui

c

Solve[
      22.46 + zQ * σ1 / Sqrt[n] == 
        22.5, {σ1}]