FTN5.4A 



09/04/68 



SlJBRGUTINE SGLImE(T .K1.K2iA'.B) 



rALClJLATBS LEAST SQUARES LINE 0F RPGRESSI0N F0R PT DATA PQInTS 

 FROM T(*<1) T0 T(K2), inclusive 



I (111- T-i^n^ ■ PetD i_i/^ tit 



LINE 



T=A*e*^ F0R JbKi 



riMENSl'GN T(i) 

 A30,?88CrJSDaO.$SD2sO,SsTso,$STD«0. 



rT=J-Kl S TJeT(J)$SD»SD*DT«SD2«SD2*DT«*2 

 STaST*T^JSTD*STD*DT*Tj 



CPINTINLE 



A-4 



