7 lines
200 B
Text
7 lines
200 B
Text
RANDOMIZE TIMER 'seeds random number generator with the system time
|
|
pi = 3.141592653589793#
|
|
DIM a(1 TO 1000) AS DOUBLE
|
|
CLS
|
|
FOR i = 1 TO 1000
|
|
a(i) = 1 + SQR(-2 * LOG(RND)) * COS(2 * pi * RND)
|
|
NEXT i
|