Random numbers: Difference between revisions
→{{header|BASIC}}
Line 169:
NEXT i
==={{header|Commodore BASIC}}===
10 DIM AR(999): DIM DE(999)
20 FOR N = 0 TO 999
30 AR(N)= 0 + SQR(-1.3*LOG(RND(1))) * COS(1.2*PI*RND(1))
|
Line 169:
NEXT i
==={{header|Commodore BASIC}}===
10 DIM AR(999): DIM DE(999)
20 FOR N = 0 TO 999
30 AR(N)= 0 + SQR(-1.3*LOG(RND(1))) * COS(1.2*PI*RND(1))
|
edits