XProfan

Français

p.specht

cela pour individuel 'Teil-Erfindern' so genannte Lindgren-Meyer-procéder est un Grenzfall: droite vite, peux on qualitativ quelquefois akzeptieren, doit on mais pas: dans den individuel Glockenkurven-Ausläufern sollte on qui la qualité ggf. avec anderen procéder überprüfen (z.B. si es um Atomkraftwerke

allez):

Kompilieren Marque Séparation

Titre de la fenêtre "Lindgren-Meyer: Normalverteilte Zufallszahlen"
' Demoware (D) Jan. 2012 P. Specht. aucun Gewähr - pour garnichts.
' Pour dem "Zentralen Grenzwertsatz" peut quasi-normalverteilte
' nombres aléatoires par Aufsummieren unabhängiger gleichverteilter
' nombres aléatoires conservé volonté (la qualité = Aufwandsfrage! B.W. Lindgren 1960, chez MacMillan)
' [Zit. O.Schlosser - introduction dans qui sozialwissenschaftliche
' Zusammenhanganalyse,Anhang S.282, rororo, ISBN 3 499 21089 4:]
' Pour [D. L. Meyer 1969] reichen bereits 12 unabhängige nombres aléatoires. Zieht
' on de chaque Z-Wert [Anm.d.Verf.: Z = Sum[1..12](rnd())] den Mittel-
' wert 6 ab, erhält on qui ..Werte qui Standard-Normalverteilung (Sigma=1)
' [Zit. Ende] - Na cela wäre oui simple! regarder wir la fois:
Font 2:Cls:Set("decimals",16)
AppendMenubar 10,"Für Ausgabe qui Zahlenwerte souris im linken Bereich tenir."
declare sum!,n&,i&
declare sumsum!,mw!,vrz!
n&=10000

Repeat

    inc i&
    sum!=0

    Whileloop 12

        sum!=sum!+rnd()

    Endwhile

    sum!=sum!-6
    cas %mousex<200:imprimer sum!
    sumsum!=sumsum!+sum!' seulement pour Test
    vrz!=vrz!+sum!*sum!' seulement pour Test
    cas %csrlin>22:cls
    cas %Key=1:pause

Until i&>n&

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