with(stats):X:=[0.62,1.19,1.35,1.06,0.61,0.58,0.87,0.88,0.88,0.72];

NiM+JSJYRzcsJCIjaSEiIyQiJD4iRigkIiROIkYoJCIkMSJGKCQiI2hGKCQiI2VGKCQiIygpRigkIiMpKUYoRjUkIiNzRig=

n:=nops(X);

NiM+JSJuRyIjNQ==

xbar:=1/n*sum(X[j],j=1..nops(X));

NiM+JSV4YmFyRyQiKysrK2coKSEjNQ==

Aufgabe 1c:=statevalf[icdf,normald]((1+0.95)/2);

NiM+JSJjRyQiKyYpUicqZj4hIio=

Konfidenzintervallsigma:=0.3;

NiM+JSZzaWdtYUckIiIkISIi

evalf([xbar-c*sigma/sqrt(n),xbar+c*sigma/sqrt(n)]);

NiM3JCQiKy5caCtwISM1JCIrNSZRPjEiISIq

Aufgabe 2c:=statevalf[icdf,studentst[9]]((1+0.95)/2);

NiM+JSJjRyQiK2pyOmlBISIq

S:=sqrt(1/9*sum((X[j]-xbar)^2,j=1..nops(X)));

NiM+JSJTRyQiKy12bSRmIyEjNQ==

Konfidenzintervallevalf([xbar-c*S/sqrt(n),xbar+c*S/sqrt(n)]);

NiM3JCQiK1Q/Zy9wISM1JCIrJ3pSOjEiISIq