()0J+HZC-PS/8 FOCAL, 1971?MB+HJI (X^2-.01)4.12;S X=X/2; D 4; S X=X^2;R?MINHLS X=1+X+X^2/2+X^3/6+X^4/24+X^5/120+X^6/720;R?MCNHRF I=1,N1;D 10?MJZHTS MA=0;F I=1,N1;D 7?MC$HXT !,"MEDIAN"?MH3HZS X=(X(FITR((N1+1)/2))+X(FITR((N1+2)/2)))/2?MDKNOS T=1/(1+0.2316419
X1)?MDWNTS X=-X1*X1/2; D 4?MG)N^S P=0.3989423*X*T?MD9N%S P=1-P*(0.31938153+T*(-0.35656378+X))?MEEN(I (Z)7.6,7.6,7.65?MELN<S P=1-P?ME^OAI (MA-FABS(P-I/N1))7.7,7.7,7.9?ME*OFS MA=FABS(P-I/N1)?ME.OZC?ME4TES J=N1?MFHTJS X1=X(100*VT+I);S X2=X(100*VT+J)?MFWTTI (
1-X2)10.4,10.3,10.3?MF+T^S X(100*VT+I)=X2;S X(100*VT+J)=X1?MF=T(S J=J-1; I (J-I)10.9,10.9,10.1?MGAUZR?MGTVJI (X(BA*100+I)-SA)11.2,11.9,11.2?MHDVTS N1=N1+1;S X(100*VT+N1)=X(BA*100+I)?MDNS X=T*(1.78147794+T*(-1.82125598+T*1.33027443))?MWZR?MC=NJS Z=(X(I)-ME
/SD; S X1=FABS(Z)?MJ!DJA !!!!,"ANALYSIS ",LI;IF (LI-11)2.2,4.14,2.2?MHHH\T X,!,
MAX.DEVIATION
,!,"NUMBER ",%4.00,N1;G 2.1?MI9HNA "VARIABLE ",BA,!,"FOR THE NORMAL POPULATION STATE MEAN ",?MCDHPS VP=-1;S DF=0?MI/HOA ME,"  STANDARD DEVIATION ",SD,!;S N1=0;S VT=0;F I=1,N;D 11?MC[HVT %8.03?MBTDTL R SORT 2.15?MSOL S STAT11?M?M%8.03?03?M?M DEVIATION ",SD
!;S N1=0;S VT=0;F I=1,N;D 11?MIAE 10.6?M?MSTANDARD DEVIATION ",SD;S N1=0;S VT=0;F I=1,N;D 11?MIAE 10.35?M?N1=0;S VT=0;F I=1,N;+I+1)=X(VT*100+I+1);S X(VT*100+I)=X(VT*100+I)?ML/\PI (X(VT*100+I)-X(VT*100+I+1)) 14.17,14.2?ML=\QS X(I+VT*100)=I;G 14.1?MMJ\TS NT
0;S J=I; S M=0?MM^\WS J=J+1;S X(VT*100+J)=X(VT*100+J);?MM6\YI (X(VT*100+J)-X(VT*100+I))14.3,14.23,14.3?MQ]\^S NT=J-I;F K=I-N

Note: Lines longer than 256 characters were wrapped