Directory of image this file is from
This file as a plain text file
X()0Q<NNC-PS/8 FOCAL, 1971?MBZTES J=N1?MB.TJS X1=X(100*VT+I);S X2=X(100*VT+J)?MB=TTI (X1-X2)10.4,10.3,10.3?MCQT^S X(100*VT+I)=X2;S X(100*VT+J)=X1?MC1TS X(100*VP+I)=X(100*VP+I);S X(100*VP+J)=X(100*VP+J);D 10.6?MDCT(S J=J-1; I (J-I)10.9,10.9,10.1?MD$T<S X1= (100*VP+I);S X(100*VP+I)=X(100*VP+J);S X(100*VP+J)=X1?MD(UZR?MD6\FS N0=N0;S I=N0-1;S T=0?MEH\JS I=I+1;I (I-N1)14.15,14.15;R?ME \OS X(VT*100+I+1)=X(VT*100+I+1);S X(VT*100+I)=X(VT*100+I)?MG2\PI (X(VT*100+I)-X(VT*100+I+1)) 14.17,14.2?MFK\TS NT=0;S J=I; S M=0 MF \WS J=J+1;S X(VT*100+J)=X(VT*100+J);?MF7\YI (X(VT*100+J)-X(VT*100+I))14.3,14.23,14.3?MG \^S NT=J-I;F K=I-N0+1,J-N0;;S M=M+K?M\(S I=J-1;S T=T+(NT^3-NT)/12;G 14.1?MGK\F K=I,J-1;S X(VT*100+K)=M/(J-I)?ME>\QS X(I+VT*100)=I-N0+1;G 14.1?MH^H A "VARIABLES ",BA,BE,!;I (BA-BE)4.33,4.34,4.34?MH"H!R?MH7H"T !,"FIRST MUST BE SMALLER",!;G 4.32?MH=JEG 5.5? ITJJD 4;S AN=2;S IN(1)=BA;S IN(2)=BE;G 5.14?MI&JLS AN=KB;T !;F I=1,KB;S IN(I)=I?MI7JNS N1=0;F I=1,AN;F J=1,N;D 5?MJAJPS VT=0;S VP=-1?MJKJRF I=1,N1;D 10?MM*JTS N0=1;D 14?MJ3JXF I=N0,N1;S J=X(I-100);S N(J)=N(J)+1;S IN(J)=IN(J)+X(I)?MKAJZI (AN-2)5.58,5.58,5. 8?MOVJ\S DF=0;F I=1,AN;S DF=DF+(IN(I)^2)/N(I)?MQEJ I (N1-15)5.34,5.34,5.38?MQ[J$I (AN-3)5.5,2.1;T !,"TOO FEW D.F.";G 2.1?MMGJ8R?MM;J<I (2*DF-N(1)*N(2))5.62,5.62;S DF=N(1)*N(2)-DF?MO3KT !,%4.00,"U",DF, N(1) , N(2) ;G 2.1?MBTKHT DF/FSQT((N1^3-N1)/12-T);G 2.1?MLAJ:S N(1)=N(BA);S N(2)=N(BE);S DF=N(1)*N(2)+N(1)*(N(1)+1)/2-IN(BA)?MJTJVF I=1,KB;S N(I)=0;S IN(I)=0?ML[J>I (20-N(1))5.66;I (20-N(2))5.66?MQ2DJA !!!!,"ANALYSIS ",LI;IF (LI-14)2.2,5.10,2.2?MN3J2S X=X(IN(I)*100+J ?MOJ4I (X)5.54,5.56,5.54?MK=J6S N1=N1+1;S X(N1)=X;S X(N1-100)=IN(I)?MKWJ^S DF=((12/(N1*(N1+1)))*DF-3*(N1+1))/(1-T/(N1^3-N1))?MPQKBS I=(DF-N(1)*N(2)/2)/FSQT(N(1)*N(2)*(N(1)+N(2)+1)/12)?MP)KDT %8.03,!,"Z UNCORRECTED ",I," Z CORRECTED?ML4KFS DF=(DF-N(1)*N(2) 2)/FSQT(N(1)*N(2)/(N1*(N1-1)))?MK&J"T !,%8.03,"H",DF,%4.00;F I=1,AN;T N(I)?MN J&T %8.03,"H",DF," DF ",%4.00,AN-1;G 2.1?MHCDTL R SORT 2.15?M 2L S ST Note: Lines longer than 256 characters were wrapped