image of READY prompt

Wang2200.org

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