Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0025/twoway.bas
There are 2 other files named twoway.bas in the archive. Click here to see a list.
00010 DIMV(72,12),T(13,13)
00020 PRINT
00040 READI1,I2,I3
00100 GO TO 850
00110 LETD1=I2-1
00112 LETD2=I1-1
00114 LETD3=D1*D2
00116 LETM=I3*I1
00118 LETN=I3*I2
00120 IFI1>12THEN990
00122 IFN>72THEN990
00124 LETD4=I2*I1-1
00126 LETD5=I2*I1*(I3-1)
00128 LETD6=I2*M-1
00130 LETD7=M-I1
00132 LETT1=0.
00134 LETT2=0.
00136 LETT3=0.
00138 LETG=0.
00140 LETS1=0.
00142 FORI=1TO13
00144 FORJ=1TO13
00146 LETT(I,J)=0.
00148 NEXTJ
00150 NEXTI
00152 FORI=1TOI2
00154 FORJ=1TOI1
00156 LETL=(I-1)*I3+1
00158 LETL1=L+I3-1
00160 FORK=LTOL1
00162 READV(K,J)
00200 DATA 174.0,173.0,173.5,173.0,172.0,173.
00201 DATA 171.5,171.0,173.0,173.5,171.0,172.5
00300 LETT(I,J)=T(I,J)+V(K,J)
00310 LETG=G+V(K,J)
00320 LETS1=S1+V(K,J)^2
00330 NEXTK
00340 LETT(I,13)=T(I,13)+T(I,J)
00350 LETT(13,J)=T(13,J)+T(I,J)
00360 LETT1=T1+T(I,J)^2
00370 NEXTJ
00380 NEXTI
00390 LETF=G^2/(D6+1)
00400 LETS2=S1-F
00410 LETS3=T1/I3-F
00420 FORI=1TOI2
00430 LETT2=T2+T(I,13)^2
00440 NEXTI
00450 FORJ=1TOI1
00460 LETT3=T3+T(13,J)^2
00470 NEXTJ
00480 LETS3=T1/I3-F
00490 LETS4=T2/M-F
00500 LETS5=T3/N-F
00510 LETS6=S3-S4-S5
00520 LETS7=S2-S3
00530 PRINT
00540 PRINT"A N A L Y S I S O F V A R I A N C E"
00550 PRINT
00560 PRINT
00570 PRINT" SOURCE","SUM SQUARES"," DF","MEAN SQUARE","F-RATIO"
00580 PRINT
00590 IFI3=1THEN750
00600 IFI2=1THEN810
00610 PRINT"ROW MEANS",S4,D1,S4/D1
00620 PRINT
00630 PRINT"COLUMN MEANS",S5,D2,S5/D2
00640 PRINT
00650 PRINT"INTERACTION",S6,D3,S6/D3
00660 PRINT
00670 PRINT" SUB-TOTAL",S3,D4
00680 PRINT
00690 PRINT"RESIDUAL",S7,D5,S7/D5
00700 PRINT
00710 PRINT" TOTAL",S2,D6
00720 PRINT
00730 PRINT
00740 GOTO1000
00750 PRINT"ROW MEANS",S4,D1,S4/D1,S4*D2/S6
00760 PRINT
00770 PRINT"COLUMN MEANS",S5,D2,S5/D2,S5*D1/S6
00780 PRINT
00790 PRINT"RESIDUAL",S6,D3,S6/D3
00800 GOTO710
00810 PRINT"COLUMN MEANS",S5,D2,S5/D2,S5*D7/(S7*D2)
00820 PRINT
00830 PRINT"WITHIN COLUMNS",S7,D7,S7/D7
00835 PRINT
00840 GOTO710
00850 PRINT
00851 PRINT"THIS PROGRAM CALCULATES AN ANALYSIS OF VARIANCE FOR 1-WAY OR"
00852 PRINT"2-WAY CLASSIFICATIONS, WITH REPLICATION OF EACH CELL IF PRESENT."
00853 PRINT"TO USE, TYPE THE FOLLOWING:"
00854 PRINT
00855 PRINT" 100 DATA COLS,ROWS,REPS"
00856 PRINT" (COLS = NUMBER OF COLUMN CLASSES, 12 OR LESS."
00857 PRINT" ROWS = NUMBER OF ROW CLASSES, 12 OR LESS. LET"
00858 PRINT" ROWS=1 FOR A 1-WAY CLASSIFICATION."
00859 PRINT" REPS = NUMBER OF REPLICATIONS PER CELL, NOT TO"
00860 PRINT" EXCEED 72 DIVIDED BY THE NUMBER OF ROWS.)"
00865 PRINT
00870 PRINT" 200 DATA THE TABLE ENTRIES"
00875 PRINT" (CONTINUE ON LINES 201-299 AS NEEDED. THE INPUT"
00880 PRINT" IS SUPPLIED IN THE FOLLOWING ORDER: ALL REPS FOR"
00885 PRINT" COL1,ROW1, THEN ALL REPS FOR COL2,ROW1 AND SO ON"
00890 PRINT" FOR ALL COLUMN CLASSES, THEN THE SAME FOR ROW2,"
00895 PRINT" ROW3, AND SO ON UNTIL ALL ENTRIES HAVE BEEN GIVEN.)"
00900 PRINT
00905 PRINT"THEN TYPE 'RUN'."
00907 GOTO1000
00990 PRINT
00991 PRINT
00992 PRINT"TABLE SUPPLIED IS TOO LARGE. MUST HAVE COLS<13 AND"
00995 PRINT"ROWS*REPS<73. YOU WILL NEED A LARGER PROGRAM."
01000 END