Listing of file='10A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 420, program filename = '10A' 0005 DIM X(10),T(9),V(9) 0010 READ R : PRINT "INPUT TABLE OF DATA" 0015 FOR I=1 TO R : S6=0 0020 INPUT X(1),X(2),X(3),X(4),X(5),X(6),X(7),X(8),X(9),X(10) 0025 FOR K=1 TO R 0030 T(K)=T(K)+X(K) 0035 READ A : V(A)=V(A)+X(K) 0040 S6=S6+X(K) : S2=S2+X(K)^2 : NEXT K 0050 S3=S3+S6^2 : S1=S1+S6 : NEXT I 0055 FOR J=1 TO R : S4=S4+T(J)^2 : S5=S5+V(J)^2 : NEXT J 0060 S1=(S1/R)^2 : S=S2-S1 0065 I=R-1 : J=I*(R-2) 0070 S3=S3/R-S1 : S4=S4/R-S1 : S5=S5/R-S1 0075 S6=S-S3-S4-S5 : A=S6/J : PRINT 0080 PRINT "SOURCE","SUM OF SQ.","DEG.FREEDOM","MEAN SQ." 0085 PRINT "ROW",S3,I,S3/I 0090 PRINT "COLUMN",S4,I,S4/I 0095 PRINT "TREATMENT",S5,I,S5/I 0100 PRINT "RESIDUAL",S6,J,A 0110 PRINT "TOTAL",S,R^2-1 0120 PRINT : PRINT "F(ROW)=";S3/I/A 0130 PRINT "F(COL)=";S4/I/A 0140 PRINT "F(TREAT)=";S5/I/A 0999 END