Die Standardabweichung bei der Reißfestigkeit von Kettengliedern wird mit 
sig = 1200 Newton geschätzt. Wie groß muss der Erwartungswert mu mindestens sein,
damit höchstens 1% der Kettenglieder eine Festigkeit von weniger als 10000 Newton
besitzen?
x ... Reißfestigkeit in Newton

load(distrib)$

[sig:1200, wahr:0.01, wert:10000]$

Erstellen einer entsprechenden Funktion:
a) Rückwandlung auf die Standardnormalverteilung (mu = 0, sigma = 1)
b) Umrechnung des Ergebnisses
x ... 0.01 (wahr, Wahrscheinlichkeit)
i ... 10000 (wert, Grenze)

normalm(s,x,i):=block(
  [hilf:0],
  hilf:quantile_normal(x,0,1),numer,
  i-s*hilf)$

Berechnung

mu:normalm(sig,wahr,wert);

Der Erwartungswert mu für die Reißfestigkeit muss mindestens
12791,6 Newton betragen, damit weniger als 1% aller Kettenglieder
eine Reißfestigkeit unter 10000 Newton besitzen.

Probe:

cdf_normal(wert,mu,sig),numer;