Die Masszahl des Gewichtes eines Artikels, der in grossen Mengen 
hergestellt wird, sei eine angenähert normal verteilte Zufallsvariable X. 
In längeren Untersuchungen hat man festgestellt, dass der empirische
Mittelwert  = 40 und die empirische Varianz = 0,04 betragen. 
Diese Werte können als Schätzwerte für m und s verwendet werden.
Aus der Produktion wird ein Stück herausgegriffen.
a)    Welches ist die Wahrscheinlichkeit, dass sein Gewicht zwischen 39,6 und 40,4 liegt?
b)    Mit welcher Wahrscheinlichkeit ist die Masszahl des Gewichtes grösser als 40,6?
c)    Wie gross darf das um den Mittelwert liegende, symmetrische Intervall sein, damit die 
Wahrscheinlichkeit für ein Messergebnis in diesem Intervall 97% wird? 

Anmerkung: für die Lösung von (c) habe ich noch keine zufriedenstellende wxMaxima-Berechnung

load(distrib)$

m:40;

s:sqrt(0.04);

WA:cdf_normal(40.4,m,s)-cdf_normal(39.6,m,s),numer;

WA:floor(WA*1000+0.5)/1000.0;

WB:1-cdf_normal(40.6,m,s),numer;

WB:floor(WB*1000+0.5)/1000.0;

W(x):=is(cdf_normal(x+m,m,s)-cdf_normal(m-x,m,s)>=0.97);

W(0.434);

W(0.4341);

W(x):=cdf_normal(x+m,m,s)-cdf_normal(m-x,m,s)-0.97;

schritt:makelist(k/10,k,0,10);

makelist(W(x),x,schritt),numer;