Data commit

Task/Random-numbers/Minimal-BASIC/random-numbers.basic

@@ -0,0 +1,20 @@
+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