12 lines
335 B
Plaintext
12 lines
335 B
Plaintext
DIM array(999)
|
|
FOR number% = 0 TO 999
|
|
array(number%) = 1.0 + 0.5 * SQR(-2*LN(RND(1))) * COS(2*PI*RND(1))
|
|
NEXT
|
|
|
|
mean = SUM(array()) / (DIM(array(),1) + 1)
|
|
array() -= mean
|
|
stdev = MOD(array()) / SQR(DIM(array(),1) + 1)
|
|
|
|
PRINT "Mean = " ; mean
|
|
PRINT "Standard deviation = " ; stdev
|