File VAR2.FC (FOCAL source file)

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

()0JIBTC-PS/8 FOCAL, 1971?MBXBAE?MB!BBA "G"G;S J=1?MB-BDA "N"N;S P=1;S S=0?MB:BEA "S"X(P);S S=S+X(P)?MCLBGS P=P+1;I (N-P)1.08,1.05,1.05?MCQBHD 2?MCBIS J=J+1;I (G-J)1.10,1.04,1.04?MC3BJF J=1,G;S SZ=SZ+N*M(J)/SN?MDJBKT "ANALYSIS OF VARIANCE TABLE:",!;G 3.01
MD
DAS M(J)=S/N;S KR=N-1;S SX=0;S SN=SN+N?MD;DBF P=1,N;S SX=SX+(X(P)-M(J))^2;S XM(P)=XM(P)+X(P)/G?MEMDCS V(J)=SX/KR;S SD=FSQT(V(J));?ME&DDT "GROUP   DF          MEAN               ",?ME:DET "VARIANCE         STAND. DEV.",!?MFVDFT %2 J,"  ",KR,"  ";T %, M(J),
  ",V(J),"  ",SD,!?MF0FAF J=1,G;S SB=SB+N*(M(J)-SZ)^2;S SW=SW+KR*V(J)?MGOFBS KB=G-1;S MB=SB/KB;S ST=SB+SW;S KE=KB*KR;S KT=KB+KR+KE?MG2FCT "   VARIATION          DF           SS                   MS",!?MHOFDT %4,"BETWEEN:          "KB;T %,"    "SB,"    "MB
!?MH!FEF P=1,N;S SR=SR+G*(XM(P)-SZ)^2?MI,FFS SE=SW-SR;S MR=SR/KR;S ME=SE/KE?MILFIT %4,"TOTAL:            "KT;T %,"    "ST,!?MFJ?MH4FHT %4,"ERROR:            "KE;T %,"    "SE,"    "ME,!?MIOFGT %4,"REPLICATION:      "KR;T %,"    "SR,"    "MR,!?MFGL S VAR2?M
MATION:      "KR;T %,"    "SR,"    "MR,!?(V)-172)]1.6,3.6,1.6?MJ;F<S U(S(V))=1;G 3.3?MKFHAC: ENCODE FLAGS?MKQHEI (U(185)),4.15?MK^HJF Z=177,180;S U(Z)=1?MK)HOI (U(177)),4.25?MK2HTS A=1;S =2?MK=HYI (U(178)),4.35?MLIH^S AD"P[U LBIDNC
>G=,HU 2D>A0TA\BAD,HU 1E>A RXH[!E$L  [Q E\RA<E\  [M E\RA<E\DPRF$,HA 2CBIE\BA*H,TXH[!E$L P[U LBID,HU 2D>A0TA\BADNNH!?;(GA\VA?:(CNL!39 OJU [M E\JA7E\DPRGK,HA 2CBIE\BA6HHTXH[!E$L(F;,HA 1EBIXH["DE\TT3<BA

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search