mik>.yn ^ 



SlJMTaO.n 



SiiMPan.O 



Do ?6 TbL.N 



-tr7=T-T^n 



SIIM4 = SUM4*Y (LZ)*Y(T) 

 Siim«5b<;uv5-»Y(LZ) 

 Sl]Mfa<;UM6*V (I) 

 SUM7=SUM7*X (LZ)*Y(T) 



?ft SlIi^BaSUMft^Y (L7>«X (T ) 



8 ( L ) =C0EF*«;UM4-r0PF2«SUM5«SUM6 

 C(L)=COEF»CiUM7-rOF F 2 ♦ SUM2»SUM6 

 D (L) =C0FF»f;UMfl-C0FF2*5Lni^«SUM3 



E(L) = (n(L)*C(L) )/?. 



" F(l.) = (0(L)-CrL) )/?. " 



?4 CONTINUE 



?? CnNTlNUE 



Dn ?7 K=lfM? 



IT'(K-n 2rt.28»2<? 

 ?8 Zm1= M1 



TJFLTal./T2.*ZMT) ~" 

 GO TO 32 



^T9T[? rX-M2 ) 3 1 . 28 1 2R 



31 Zm1=M1 



UPLT = 1./ZM1 



3? S:)M1=0.0 

 5r)M2aO.O 

 Si|M330« 



EmIsMI 



C/\Y=K-1 

 _D0 33 L = ?^M2 



El=L-1 

 _GnT= n^ + CqSF jPI*EL/EMU ) »COSF (PI»CAY *EL /EM1 ) 



SMM1=SIJM1*GUT»A (LT 



IF (COOF) ^5i33»3S 



35 SijM2=SUM?*RUT>R(L) 



Si)t>^3aSlJM3 + RUT«F(L) 



SnM4^'?LrM4* ( 1 ."♦COSF fPI*EL/EMi )y»SINrTFr»CSY»EL/EMTr»r{LT 

 33 COMTINiJE 



XTaOeLT»TsTlMT*^A<irT ' " 



IF(C00E)37.36»37 

 37 Yi=nELr»(SilM2*R(l) ) 



ZanELT«(SU'^3*E(l) ) 



«=SQRT( (Z»*2*W»»2)/(X1«Y1) ) 



T^1STAMF(W/71 



TaT/, 0174533 



Ma7/!3iiRI (X1»Y1) 



Qa«(/SORT(Xl»Yl) 



"KK^M : — 



Xl QaMl 



— XIQPaKK 



FXLP«(2.*XL0*Y04)/XLQP 



WHJ Hi(felffeft 2 )KK.A(M tH(K > »fc:(K ) t F (K) ,Xl» T lfZt W «FXLP» R « T 



WniTE(«2*602)KK«A(K) «B(K) tE(K) «F (N) •Il*n»t*«triLPtKtT 



^en TO ?T — — — 



-^^"^^===^ b-'j 



