Listing of file='RNDCK.BAS;01' on disk='vmedia/taylor-sideA-sector.ccvf'
1 REM ****ADAPTED FROM A REVIEW BY ALAN R. MILLER IN THE JULY 1980 ISSUE OF INTERFACE AGE ****** 2 PRINT CHR$ (12) 5 REM FROM SAN JOSE STATE COMPUTER CENTER 6 REM MARJORIE FITTING DERECTOR 7 REM 10 REM SM IS SUM: SS IS SUM OF SQUARES 20 REM A IS RANDOM NUMBER: AV IS AVERAGE OF 50 RANDOM NUMBERS 30 REM SD IS STANDARD DEVIATEION OF RANDOM NUMBERS 50 PRINT "THIS PROGRAM OBTAINS 50 RANDOM NUMBERS AND COMPUTES" 60 PRINT "THEIR MEAN (AVERAGE) AND STANDARD DEVIATION." 70 PRINT "IF THE NUMBERS ARE RANDOM, THE MEAN SHOULD" 80 PRINT "BE .5 AND THE STANDARD DEVIATION SHOULD BE THE" 90 PRINT "RECIPROCAL OF THE SQUARE ROOT OF 12 (0.2887)." 92 PRINT :PRINT "THE PROGRAM REPEATS 15 TIMES. " 95 PRINT :PRINT 99 FOR F= 1TO 15 100 SM= 0:SS= 0 110 N= 50 120 FOR I= 1TO N 130 A= RND (1) 140 SM= SM+ A 150 SS= SS+ A* A 160 NEXT I 170 AV= SM/ N 180 SD= SQR ((SS- SM* SM/ N)/ (N- 1)) 190 PRINT "AVERAGE = ";AV,"STANDARD DEVIATION = ";SD 200 NEXT F 210 PRINT 220 INPUT "HIT ENTER TO RETURN TO MENU";ZZ 320 LOAD "MENU":RUN 340 END