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<I (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