File VAR1.FC (FOCAL source file)

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

()0I,BTC-PS/8 FOCAL, 1971?ME>BAE?MB&BDA "N"N(J);S P=1;S S=0?MB3BEA "S"X(P);S S=S+X(P)?MCFBGS P=P+1;I (N(J)-P)1.08,1.05,1.05?MCKBHD 2?MC]BIS J=J+1;I (G-J)1.10,1.04,1.04?MFGBJF J=1,G;S SZ=SZ+(N(J)*M(J))/SN?MDHDAS M(J)=S/N(J);S K=N(J)-1;S SX=0;S SN=SN+N(J)?M
[DBF P=1,N(J);S SX=SX+(X(P)-M(J))^2?MD9FAF J=1,G;S SB=SB+N(J)*(M(J)-SZ)^2;S SW=SW+(N(J)-1)*V(J)?MEKFBS KB=G-1;S MB=SB/KB;S ST=SB+SW?MEZFCF J=1,G;S KW=KW+(N(J)-1)?MG&FDS KT=KB+KW;S MW=SW/KW?MFIT "RATIO BETWEEN/WITHIN : ",MB/MW,!;Q?MBXBBA "G"G;S J=1?MC/BKT 
ANALYSIS OF VARIANCE TABLE:",!;G 3.01?MF7DDT "GROUP   DF          MEAN               ",?MGKDET "VARIANCE         STAND. DEV.",!?MD[DFT %2 J,"  ",K,"  ";T %, M(J),"  ",V(J),"  ",SD,!?MHIFET "   VARIATION          DF           SS                  MS",!?MH&F
T %4,"BETWEEN:          "KB;T %,"    "SB,"    "MB,!?MICFGT %4," WITHIN:          "KW;T %,"    "SW,"    "MW,!?ME(FHT %4,"  TOTAL:          "KT;T %,"    "ST,!?MF^DCS V(J)=SX/K;S SD=FSQT(V(J))?MT L S VAR1?M?MK;S SD=FSQT(V(J))?J))G?MT 

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