7 lines
176 B
Text
7 lines
176 B
Text
|
10 RANDOMIZE 0 : REM seeds random number generator based on uptime
|
||
|
|
20 DIM a(1000)
|
||
|
|
30 CLS
|
||
|
|
40 FOR i = 1 TO 1000
|
||
|
|
50 LET a(i) = 1 + SQR(-2 * LN(RND)) * COS(2 * PI * RND)
|
||
|
|
60 NEXT i
|