AW: Zufallszahlen normalverteilt (Näherung)
18.03.2004 23:05:30
Uwe
Hallo, Karl-Otto,
ich habe mir erlaubt, eine einfache Näherungsformel für normalverteilte Zufallszahlen in Deine Arbeitsmappe einzubauen.
Function ZUFALLSBEREICH_NV(a0 As Integer, a1 As Integer)
Dim z1 As Double, z2 As Double, w As Double
Dim r As Double, phi As Double
Dim x As Double, y As Double
Dim pi As Double
pi = 4 * Atn(1)
w = -1
While w < 0
z1 = (a1 - a0 + 1) * Rnd()
w = -2 * Log(z1) / Log(10)
Wend
r = Sqr(w)
z2 = (a1 - a0 + 1) * Rnd()
phi = 2 * pi * z2
x = r * Cos(phi)
y = r * Sin(phi)
ZUFALLSBEREICH_NV = (a1 - a0 + 1) * Sqr(x * x + y * y) / 2
End Function
Der Aufruf der Funktion muss entsprechend angepasst werden. Ggf. kann der Wertebereich der Zufallszahl noch erhöht werden um die Glockenform zu verdeutlichen, obwohl diese auch bei den Grenzen [0,10) erkennbar wird.
Natürlich könnte man nun noch ein Wahlschalter in das Arbeitsblatt einbauen, so dass man deutlich den Unterschied zwischen Gleichverteilung und Normalverteilung sieht (die Fehlerindikatoren solten gelöscht werden), aber es wird ja, dank Deiner Vorarbeit auch wohl so deutlich, was zu beachten ist.
Gruß,
Uwe
P.S.
Wenn weitere Fragen, versuche ich Sie gerne mit Euch zu klären, doch vielleicht gleiten wir hier langsam in das Fachgebiet der Statisik ab und verlieren EXCEL aus den Augen.