Data update

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

@@ -0,0 +1,19 @@
+100 REM Random numbers
+110 RANDOMIZE
+120 DEF RandomNormal = COS(2 * PI * RND) * SQR(-2 * LOG(RND))
+130 DIM R(0 TO 999)
+140 LET Sum = 0
+150 FOR I = 0 TO 999
+160    LET R(I) = 1 + RandomNormal / 2
+170    LET Sum = Sum + R(I)
+180 NEXT I
+190 LET Mean = Sum / 1000
+200 LET Sum = 0
+210 FOR I = 0 TO 999
+220    LET Sum = Sum + (R(I) - Mean) ^ 2
+230 NEXT I
+240 LET SD = SQR(Sum / 1000)
+250 PRINT "Mean is              "; Mean
+260 PRINT "Standard Deviation is"; SD
+270 PRINT
+280 END