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

()0L?L&C-PS/8 FOCAL, 1971?MK5BOA "NUMBER DATA POINTS ",NP;T !?MLSBYS I=1;S J=0?MB=BI (J-NP)1.3,1.38,1.38?MCXB&T "WAIT"?MC+B-S MN=SU/NP;S SU=0.;F I=1,ND;D 3.6?MCDB(S ND=I-1;S SU=0.;F I=1,ND;D 3.5?MDFB2S SD=FSQT(SU/(NP-1.));S TP=10000;S Q=-TP;S SX=0?MD B5T 
!,"    X(T)      F(I)      FN(I)      ARG"?MD4B6T "      F(ARG)  F(ARG)-FN(I)",!!?MD>B7F IJ=1,ND;D 5?MESCPT "PICK LARGEST NO. IN RH COLUMN",!?ME
CUT "DF = ",%2,NP,!?MECZQ?ME0F2S SU=SU+NX(I)*X(I);R?MFBF<S SU=SU+NX(I)*((X(I)-MN)^2);R?MFJHBS KEY=10.?MFWHCI (B)4.05,4.05,4.04?MFHDS B=-B;S KEY=-10.?MF/HES C=B+6.;S D=B-6.?MGCHJS A1=.238619*C+D;S A2=-.238619*C+D?MGWHTS A3=.661209*C+D;S A4=-.661209*C+D?MG*
^S A5=.93247*C+D;S A6=-.93247*C+D?MHBHS A1=FEXP(-A1*A1/8.);S A2=FEXP(-A2*A2/8.)?MHZH(S A3=FEXP(-A3*A3/8.);S A4=FEXP(-A4*A4/8.)?MH2H<S A5=FEXP(-A5*A5/8.);S A6=FEXP(-A6*A6/8.)?MIOIFS XX=.467914*(A1+A2)+.360762*(A3+A4)+.171324*(A5+A6)?MI^IPS XX=.19947*C*XX-.
0027?MI+IUI (KEY)4.86,4.9,4.9?MI3IVS XX=1.-XX?MI7IZR?MJJAF I=1,ND;D 6?MJPJTS Q=TP;S B=(TP-MN)/SD;D 4?MJZJ^S SX=SX+NX(KL)?MJ+J(S NF=SX/NP;S DF=FABS(XX-NF)?MJ=J+T %7.05,TP,NX(KL),NF,B,XX,DF,!?MKFJ-S TP=100000?MKJKZR?MKXLJI (Q-X(I))6.2,6.9,6.9?MK&LTI (TP-X(I
)6.9,6.9,6.3?MK1L^S TP=X(I);S KL=I?MMZR?MB&BTT "INPUT DATA POINT,SPACE,NO. OF OCCURENCES,SPACE",!!?MB/B^A X(I),NX(I);S J=J+NX(I);S I=I+1?MBTBJT "KOLMOGOROV-SMIRNOV TEST FOR NORMALITY",!!?M!!L S KLMGRV?M?MROV-SMIRNOV TEST FOR NORMALITY",!!?M!!?M?M?MM(IKI (
(183)),4.85?MM2IPS H=1;S =*17?MM=IUI (U(184)),4.95?MNHIZS 

Note: Lines longer than 256 characters were wrapped