XProfan

English

p.specht

the to individual 'Teil-Erfindern' so named Lindgren-Meyer-take action is a Grenzfall: right quick, can qualitative sometimes to accept, must one but not: into individual Glockenkurven-Ausläufern ought to one The quality ggf. with others take action to check on (z.B. if it circa Atomkraftwerke

goes):

Compile Mark Separation

Window Title "Lindgren-Meyer: Normalverteilte Zufallszahlen"
' Demoware (D) jan. 2012 P. woodpecker. No Gewähr - for garnichts.
' After the "Zentralen Grenzwertsatz" can quasi-normalverteilte
' Zufallszahlen through Aufsummieren unabhängiger gleichverteilter
' Zufallszahlen receive go (quality = Aufwandsfrage! B.W. Lindgren 1960, with MacMillan)
' [Zit. O.Schlosser - introduction into sozialwissenschaftliche
' Zusammenhanganalyse,attachment s.282, rororo, ISBN 3 499 21089 4:]
' After [D. L. Meyer 1969] wealthy already 12 independent Zufallszahlen. Zieht
' one of each Z-worth [Anm.d.Verf.: Z = Sum[1..12](rnd())] whom middle-
' worth 6 ex, sustain one The ..values the standard-Normalverteilung (Sigma=1)
' [Zit. end] - well the would Yes simply! look we time:
Font 2:Cls:Set("decimals",16)
AppendMenubar 10,"Für spending the Zahlenwerte mouse in the left area hold."
declare sum!,n&,i&
declare sumsum!,mw!,vrz!
n&=10000

Repeat

    inc i&
    sum!=0

    Whileloop 12

        sum!=sum!+rnd()

    Endwhile

    sum!=sum!-6
    case %mousex<200:print sum!
    sumsum!=sumsum!+sum!' only for Test
    vrz!=vrz!+sum!*sum!' only for Test
    case %csrlin>22:cls
    case %Key=1:break

Until i&>n&

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