Listing of file='RNDCK.BAS;01' on disk='vmedia/isc_demos-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 8 REM SM IS SUM: SS IS SUM OF SQUARES 9 REM A IS RANDOM NUMBER: AV IS AVERAGE OF 50 RANDOM NUMBERS 10 REM SD IS STANDARD DEVIATEION OF RANDOM NUMBERS 20 OUT 8,199:POKE 33278,0:GOTO 55 30 PLOT 27,88,15,3,63,31,6,6,31,46,15,6,0,3,64,0:OUT 8,207 40 FOR I= 1TO 100:A= PEEK (33278):IF A= 13THEN OUT 8,207:PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "MENU":RUN 45 IF A= 32THEN 1 46 IF A= 72OR A= 104THEN OUT 8,199:PLOT 6,2,12,15,29:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN 50 NEXT I:OUT 8,199:IF PEEK (33284)= 1THEN PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "SALES":RUN 55 PLOT 15,30,16,29,18,12,27,24 60 PRINT "THIS PROGRAM OBTAINS 50 RANDOM NUMBERS AND COMPUTES" 65 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 FOR K= 1TO 4000:NEXT K 340 GOTO 30