Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.01 E
 1.02 A "G"G;S J=1
 1.04 A "N"N;S P=1;S S=0
 1.05 A "S"X(P);S S=S+X(P)
 1.07 S P=P+1;I (N-P)1.08,1.05,1.05
 1.08 D 2
 1.09 S J=J+1;I (G-J)1.10,1.04,1.04
 1.10 F J=1,G;S SZ=SZ+N*M(J)/SN
 1.11 T "ANALYSIS OF VARIANCE TABLE:",!;G 3.01
 2.01 S M(J)=S/N;S KR=N-1;S SX=0;S SN=SN+N
 2.02 F P=1,N;S SX=SX+(X(P)-M(J))^2;S XM(P)=XM(P)+X(P)/G
 2.03 S V(J)=SX/KR;S SD=FSQT(V(J));
 2.04 T "GROUP   DF          MEAN               ",
 2.05 T "VARIANCE         STAND. DEV.",!
 2.06 T %2 J,"  ",KR,"  ";T %, M(J),"  ",V(J),"  ",SD,!
 3.01 F J=1,G;S SB=SB+N*(M(J)-SZ)^2;S SW=SW+KR*V(J)
 3.02 S KB=G-1;S MB=SB/KB;S ST=SB+SW;S KE=KB*KR;S KT=KB+KR+KE
 3.03 T "   VARIATION          DF           SS                   MS",!
 3.04 T %4,"BETWEEN:          "KB;T %,"    "SB,"    "MB,!
 3.05 F P=1,N;S SR=SR+G*(XM(P)-SZ)^2
 3.06 S SE=SW-SR;S MR=SR/KR;S ME=SE/KE
 3.07 T %4,"REPLICATION:      "KR;T %,"    "SR,"    "MR,!
 3.08 T %4,"ERROR:            "KE;T %,"    "SE,"    "ME,!
 3.09 T %4,"TOTAL:            "KT;T %,"    "ST,!
 3.10