Compucolor.org – Virtual Media

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