F I N5 ,4A 



09/04/68 



ir(N-MAX(H2) ) 3ii3li23 



31 MxM*l $ CKM) bN 

 TL(M)5A{L)*8a)«!!L<M) 



•••• REOIRSIVF SM00ThInQ FUNcTISN ♦••♦ 

 DELETE REGRESSION P0lN|TS THaT FaLL WTTHIN A NEGLIGIBLE DISTaNcE 

 er A STRAIQI.T LINE CQNNECTIns ALTERNATE REGRISSIRN P0IMS, 



STEP 1 TEST SUCCESSIVE PftINT SETS FQR CQLINEARITY 



301 IVYsp i L«0 5 J»l 



30? t<«J*2 3 IFCH-K) 3U7i303«303 



303 B3=(Tl{k>-Tl(j>)/(Dl<K^-DL<J> J 



A3sTL<iw>-B3*DL(o) 



Qa (A3*B3«DL(J*i>"TL(J*l) )»«2 

 PRM8i.4i42l3562»TF<B3) 

 30P LsL*l S KI=IPGINT(J) 



►'iNdJ'MlNCKl ) f IP0INT(L>»L 

 IF(PRH-(C) 305,304.304 



CELETE SUFERFLLQLS INTERMEDIATE PQTNTS 



304 C0NTINUE 

 KUPaMlN(KI)SKU«IP0lNT(J*l)jND0W»f AX(KU) 



CALL SQLIiNE(T(i),NUp,nD0W,ai,B1) 

 PRMa2.»TF(ei) 



re 3? N^a^LP,NC0w 



CbNN 1 Qs (Ai*Pi*Q'T(NN) )**2 

 IF(PRM-C) 305i305»32 

 3? C0NTTKUE 



IVYbI 5 KIsKU 



A(L)bA1 S 8(L)3l51 i JsJ*i$ G0 T0 306 



305 A(L)3A(KI) J B(L>= B(KI> 



30f mAX(l '■f'AX(K! ' 5 J^J*!* tF(M-J> 310.3l0i3O2 

 ?07 QbPRM*10, ■ 



Gfl T0 30€ 

 310 CONTINUE 



«TEP 2 ICEN'TlFY *<EGRESSl(!)N P0INTS 



Hal I TL(1 )sA(l)*B(l) 

 395 IF{L,M) 45,45,40 

 4 IM = M + ifPLIN=MAX(h')*lSHLlM = MlN(IM)-i 

 ri={A(INV»A(M))/(BlM)-B(lMn 

 IF(RLIM-DI) 41,42»42 



41 rL( IM)=.5« (RLIM+hLlM) 

 TLfI^')S|5«(A(M)*A(i'-l) + (BCM)*B(IM))iiiDL(IH)) 

 G0 TP 44 



42 TF(DI-WLli^) 41,43»43 



43 rLUMJBCl 

 T L U '^ ) = M N ) + B { y ) • D I 



44 M3lM'?:GP! TC 395 



