XProfan

Español

p.specht

Das después de individual 'Teil-Erfindern' así genannte Lindgren-Meyer-Verfahren es una Grenzfall: Recht rápidamente, puede ser qualitativ manchmal akzeptieren, muß uno pero no: In el individual Glockenkurven-Ausläufern debería uno el Qualität ggf. con otro Verfahren überprüfen (z.B. si en Atomkraftwerke

va):

Kompilieren Marca Separación

Título de la ventana "Lindgren-Meyer: Normalverteilte Zufallszahlen"
' Demoware (D) Jan. 2012 P. Pájaro carpintero. Keine Gewähr - para garnichts.
' Nach el "Zentralen Grenzwertsatz" puede quasi-normalverteilte
' Zufallszahlen por Aufsummieren unabhängiger gleichverteilter
' Zufallszahlen obtener voluntad (Qualität = Aufwandsfrage! B.W. Lindgren 1960, en MacMillan)
' [Zit. O.Schlosser - Einführung en el sozialwissenschaftliche
' Zusammenhanganalyse,Anhang S.282, rororo, ISBN 3 499 21089 4:]
' Nach [D. L. Meyer 1969] reichen ya 12 unabhängige Zufallszahlen. Zieht
' uno de cada Z-Valor [Anm.d.Verf.: Z = Sum[1..12](rnd())] el Mittel-
' wert 6 de, erhält uno el ..Werte el Standard-Normalverteilung (Sigma=1)
' [Zit. Ende] - Na el wäre sí simplemente! Schauen wir veces:
Font 2:Cls:Conjunto("decimals",16)
AppendMenubar 10,"Für Edición el Zahlenwerte Ratón en el linken Zona halten."
declarar sum!,n&,i&
declarar sumsum!,mw!,vrz!
n&=10000

Repeat

    inc i&
    sum!=0

    Whileloop 12

        sum!=sum!+rnd()

    Endwhile

    sum!=sum!-6
    caso %mousex<200:imprimir sum!
    sumsum!=sumsum!+sum!' Nur para Test
    vrz!=vrz!+sum!*sum!' Nur para Test
    caso %csrlin>22:cls
    caso %Key=1:romper

Until i&>n&

' Test:
mw!=sumsum!/n&
imprimir "\n        Mittelwert: "; mw!
vrz!=(vrz!-(mw!*mw!)/n&)/(n&-1)
imprimir "           Varianz: "; vrz!
imprimir " Standardabweichug: "; sqrt(vrz!)
WaitInput