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

()0L,BTC-PS/8 FOCAL, 1971?MBBJT !!,"CHI SQ PROB",!!;E?MB2BTA "CHI2",X,
DF
,;S BX=X?MCCDJS A=.5*X;S E=2*FITR(DF/2)-DF?MCODOI (E)2.2,2.27,2.2?MC\DTI (DF-2)2.3,2.3,2.27?MC*D[I (BX-40)2.29,2.3,2.3?MC4D]S YY=FEXP(-A)?MLID^I (E)2.4;S S=YY;G 2.6?ML%D-S P=(1-Z)/2?MDXD<I (DF-2)2.7,2.7,3.1?MD8EFT %6.04,!!!,"P ",S," FOR CHI2 ",BX," WITH",
4,DF," DF",!!!?MD>EZG 1.2?MERFJS X=.5*(DF-1);I (E)3.2;S Z=1;G 3.3?MEXFTS Z=.5?ME,F^I (BX-40)3.8;I (E)3.4;S E=0;G 3.5?ME5F(S E=.572365?ME>F2S C=FLOG(A)?MF^F<I (X-Z)3.7;S E=E+FLOG(Z);S S=FEXP(C*Z-A-E)+S;S Z=Z+1;G 3.6?MF$GFG 2.7?MF2GPI (E)3.85;S E=1;G 3.87?M
>GUS E=.56419/FSQT(A)?MGDGWS C=0?MG]GZI (X-Z)3.95;S E=E*A/Z;S C=C+E;S Z=Z+1;G 3.9?MG(G
S S=C*YY+S;G 2.7?MG6TJI (X)10.11,10.2;D 11;R?MG<TKD 11;R?MHCTTS Z=0;R?MHMVJS Y=FABS(X)/2?MHZVTI (Y-3)11.3;S Z=1; R?MH&V^I (Y-1)11.4;D 12;R?MH-V(S W=Y*Y?MIFV2S Z=((.000124819*W-.0010752)*W+.00519877)*W?MI
V<S Z=(((Z-.0191983)*W+.0590540)*W-.151969)*W?MI8WFS Z=(((Z+.319153)*W-.531923)*W+.797885)*Y*2?MI<WPR?MJCXJS Y=Y-2?MJ^XTS Z=((-.00004526*Y+.000152529)*Y-.0000195381)*Y?MJ9X^S Z=(((Z-.000676905)*Y+.0013906)*Y-.00079462)*Y?MKSX(S Z=(((Z-.00203425)*Y+.006549
9)*Y-.0105576)*Y?MK-X2S Z=(((Z+.0116308)*Y-.00927945)*Y+.00535358)*Y?MLEX<S Z=((Z-.00214127)*Y+.00053531)*Y+.999937?MYFR?MDBD(S X=-FSQT(X);D 10;I (X)2.45,2.45;S P=(Z+1)/2;G 2.5?MDKD2S S=2*P?MD2L S CHI?M?X);D 10;I (X)2.45,2.45;S P=(Z+1)/2;G 2.5?M?MMSIAI (U
182)),4.75?MM]IFS G=1;S =*13?MM(IKI (U(183)),4.85?MM2IPS H=1;S =*17?MM=IUI (U(184)),4.95?MNHIZS 

Note: Lines longer than 256 characters were wrapped