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

C-PS/8 FOCAL, 1971
 2.10 A !!!!,"ANALYSIS ",LI;IF (LI-2)2.2,4.7,2.2
 2.20 L R SORT 2.15
 3.10 C
 3.15 T !,"  VAR.   N    MEAN      S.D.        S.E.M.
 3.20 F BA=1,KB;D 3.8;D 3.4;D 3.45;S X(BA)=S1/N1;S X(BA-100)=N1
 3.30 G 2.1
 3.40 S SD=FSQT((Q1-S1^2/N1)/(N1-1))
 3.45 T !,%3.0,BA,N1,%8.03; T S1/N1,SD,SD/FSQT(N1)
 3.70 S N1=0;S S1=0;S S2=0;S SQ=0;S Q1=0;S DD=0;S D=0;S Q2=0
 3.80 D 3.7; F I=1,N; D 8
 3.90 D 3.7; F I=1,N; D 9
 4.70 A !,
TYPE  
,"VARIABELS  ",BA,BE,!;I (TY-2)4.72,4.78,4.84
 4.72 D 3.8;S S3=S1;D 3.4;S S=SD;S N2=N1;S BA=BE;D 3.8;D 3.4
 4.74 S S=FSQT(((N1-1)*SD^2+(N2-1)*S^2)/(N1+N2-2))
 4.76 S T=(S1/N1-S3/N2)/(S*FSQT((N1+N2)/(N1*N2)));S DF=N1+N2-2;G 4.9
 4.78 D 4.72;S  DF=(S^2/N2+SD^2/N1);S T=(S1/N1-S3/N2)/FSQT(DF)
 4.80 S DF=(DF)^2/((S^2/N2)^2/(N2+1)+(SD^2/N1)^2/(N1+1))-2
 4.82 G 4.9
 4.84 D 3.9;S SD=FSQT((DD-D^2/N1)/(N1-1))
 4.86 S T=((S1/N1-S2/N1)/SD)*FSQT(N1)
 4.88 S DF=N1-1
 4.90 T !,%6.02,
T 
,%5.00,
   DF
;G 2.1
 6.10 S X=X(100*BA+I); S Y=X(100*BE+I)
 6.15 I (X-SA)6.3,6.9,6.3
 6.30 I (Y-SA)6.4,6.9,6.4
 6.40 S N1=N1+1
 6.50 S X(N1)=X;S X(N1-100)=Y
 6.90 R
 8.05 S X=X(BA*100+I);I (X-SA)8.2,8.15,8.2
 8.15 R
 8.20 S S1=S1+X;S Q1=Q1+X^2; S N1=N1+1;R
 8.30 D 4.32
 8.35 S N1=0;F I=1,N; D 6
 8.43 S VT=0;S VP=-1
 8.45 F I=1,N1;D 10
 8.47 D 15;D 14
 8.50 S Y(1)=0; S Y(-1)=0;
 8.52 F I=N0,N1;S Y(X(I-100))=Y(X(I-100))+X(I)
 8.55 S N1=N1-N0+1;I (Y(1)-Y(-1)) 8.6;S Y(1)=Y(-1)
 8.60 T %6.02;S T=Y(1);I (N1-25) 8.65,8.65,8.7
 8.65 T !," T ",Y(1);G 2.1
 8.70 T !,  ," Z ",(T-N1*(N1+1)/4)/FSQT((N1*(N1+1)*(2*N1+1))/24)
 8.80 G 2.1
 9.10 S X=X(BA*100+I);S Y=X(BE*100+I)
 9.20 I (X-SA)9.3,9.9,9.3
 9.30 I (Y-SA)9.4,9.9,9.4
 9.40 S S2=S2+Y;D 8.2;S Q2=Q2+Y^2;S SQ=SQ+X*Y;S DD=DD+(X-Y)^2
 9.50 S D=D+X-Y
 9.90 R