File STAT2.FC (FOCAL source file)

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

X()0O MYC-PS/8 FOCAL, 1971?ML,F(S SD=FSQT((Q1-S1^2/N1)/(N1-1))?MCDGFS N1=0;S S1=0;S S2=0;S SQ=0;S Q1=0;S DD=0;S D=0;S Q2=0?MCQGPD 3.7; F I=1,N; D 8?MOGZD 3.7; F I=1,N; D 9?MC<IHD 3.8;S S3=S1;D 3.4;S S=SD;S N2=N1;S BA=BE;D 3.8;D 3.4?MDUIJS S=FSQT(((N1-1)*S
^2+(N2-1)*S^2)/(N1+N2-2))?MD7ILS T=(S1/N1-S3/N2)/(S*FSQT((N1+N2)/(N1*N2)));S DF=N1+N2-2;G 4.9?MEVIND 4.72;S  DF=(S^2/N2+SD^2/N1);S T=(S1/N1-S3/N2)/FSQT(DF)?ME3IPS DF=(DF)^2/((S^2/N2)^2/(N2+1)+(SD^2/N1)^2/(N1+1))-2?ME9IRG 4.9?MFNITD 3.9;S SD=FSQT((DD-D^2/N
)/(N1-1))?MF!IVS T=((S1/N1-S2/N1)/SD)*FSQT(N1)?MMEIXS DF=N1-1?MF<LJS X=X(100*BA+I); S Y=X(100*BE+I)?MGILOI (X-SA)6.3,6.9,6.3?MGVL^I (Y-SA)6.4,6.9,6.4?MG^L(S N1=N1+1?MG-L2S X(N1)=X;S X(N1-100)=Y?MG1MZR?MHFPES X=X(BA*100+I);I (X-SA)8.2,8.15,8.2?MHJPOR?MH^PT
 S1=S1+X;S Q1=Q1+X^2; S N1=N1+1;R?MH$P^D 4.32?MH1PS N1=0;F I=1,N; D 6?MH;P+S VT=0;S VP=-1?MIEP-F I=1,N1;D 10?MIMP/D 15;D 14?MIZP2S Y(1)=0; S Y(-1)=0;?MI1P4F I=N0,N1;S Y(X(I-100))=Y(X(I-100))+X(I)?MJJP7S N1=N1-N0+1;I (Y(1)-Y(-1)) 8.6;S Y(1)=Y(-1)?MJ!P<T %6
02;S T=Y(1);I (N1-25) 8.65,8.65,8.7?MJ.QAT !," T ",Y(1);G 2.1?MKNQFT !,  ," Z ",(T-N1*(N1+1)/4)/FSQT((N1*(N1+1)*(2*N1+1))/24)?MKTQPG 2.1?MK	RJS X=X(BA*100+I);S Y=X(BE*100+I)?MK4RTI (X-SA)9.3,9.9,9.3?MLAR^I (Y-SA)9.4,9.9,9.4?ML R(S S2=S2+Y;D 8.2;S Q2=Q2+Y^
;S SQ=SQ+X*Y;S DD=DD+(X-Y)^2?ML(R2S D=D+X-Y?MSZR?MB&F-T !,%3.0,BA,N1,%8.03; T S1/N1,SD,SD/FSQT(N1)?MF)IZT !,%6.02,
T 
,%5.00,
   DF
;G 2.1?MM1DJA !!!!,"ANALYSIS ",LI;IF (LI-2)2.2,4.7,2.2?MN<DTL R SORT 2.15?MNVFOT !,"  VAR.   N    MEAN      S.D.        S.E.M.?MN6FTF BA=1,KB;D 3.8;D 3.4;D 3.45;S X(BA)=S1/N1;S X(BA-100)=N1?MBTF^G 2.1?MM;FJC?MC^IFA !,
TYPE  
,"VARIABELS  ",BA,BE,!;I (TY-2)4.72,4.78,4.84?MIFL S STAT2?M?,"VARIABELS  ",BA,BE,!;I (TY-2)4.72,4.78,4.84?M?N1

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