Listing of file='8A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 513, program filename = '8A' 0005 DIM N(99),X(4) 0010 PRINT "NO. OF GROUPS" 0015 INPUT K 0020 FOR J=1 TO K 0022 S=0 0025 PRINT "NO. OF ELEMENTS IN GROUP";J 0030 INPUT N(J) 0035 PRINT "INPUT GROUP";J 0037 FOR L=1 TO N(J) STEP 4 0040 INPUT X(1),X(2),X(3),X(4) 0045 FOR I=1 TO 4 0050 S=S+X(I) 0055 S2=S2+X(I)^2 0060 NEXT I 0062 NEXT L 0065 S1=S1+S 0070 S3=S3+S^2/N(J) 0075 M=M+N(J) 0080 NEXT J 0085 S1=S1^2/M 0090 S=S3-S1 0095 S3=S2-S3 0100 S2=S2-S1 0110 J=M-K 0120 K=K-1 0130 PRINT 0140 PRINT 0150 PRINT "SOURCE","SUM OF SQ.","DEG. FREEDOM","MEAN SQ." 0160 PRINT "BETW. GROUPS",S,K,S/K 0170 PRINT "WITHIN GROUPS",S3,J,S3/J 0180 PRINT "TOTAL",S2,M-1 0190 PRINT 0200 PRINT "F=";S/K*J/S3 0210 END