21 lines
402 B
Plaintext
21 lines
402 B
Plaintext
10 REM Random numbers
|
|
20 LET P = 4*ATN(1)
|
|
30 RANDOMIZE
|
|
40 DEF FNN = COS(2*P*RND)*SQR(-2*LOG(RND))
|
|
50 DIM R(999)
|
|
60 LET S = 0
|
|
70 FOR I = 0 TO 999
|
|
80 LET R(I) = 1+FNN/2
|
|
90 LET S = S+R(I)
|
|
100 NEXT I
|
|
110 LET M = S/1000
|
|
120 LET S = 0
|
|
130 FOR I = 0 TO 999
|
|
140 LET S = S+(R(I)-M)^2
|
|
150 NEXT I
|
|
160 LET D = SQR(S/1000)
|
|
170 PRINT "Mean is "; M
|
|
180 PRINT "Standard Deviation is"; D
|
|
190 PRINT
|
|
200 END
|