PRINT RESULTS OF ANALYSIS 

 PRINT ♦ 

 ♦ FORMAT (10X,6MT(SEC) ,7X,6HMT(FT » , 5X , 9HMAVEL ( FT ) , 6X, 'HDEP (FT I ,4X,9mj 

 IMAXCFPS) ,4X,9HCLE»R(FT) , 6X , 7HD I A ( F T » ,3X,I2HCYL LGTHJFTJ ,AX,8HANG<D 

 2EG)) 

 PJ?INT 30Q,T,H,XL,L>,U,CL,DIA,XC, -VNGLE 



300 F0RMAT(2X,F13.2,F13.3,F13. 2,5FI3.3,FI3. 1////) 

 PRINT 307 



307 FORMAT(6X,l2HTOTAL SUM SQ .dX ,5HC0S2 A , t OXtSHSI N2 A , II K ,4HCOSA,8X, I OH 

 lSINA/$INA/,6XieHVARIANCE) 

 PRINT 30I,SFF, VV,VO,VX,VZ,VR 



301 F0RMAT(6F15.6/) 

 PRINT 310 



310 FORMAT (26Xt2HAV I 13Xf 2HAQ ■ 13X.2HAX| t3X«2HAZf t3X,2HVA) 

 PRINT 302t*Vt*0tAX, A2tVA 



302 F0BMAT<15X,5FI5»6/» 

 PRINT 308 



30a FOCMATfAlX, 3HFU V « 12X , 3HF i!y 1 12 X . 3HF DV > 

 PRINT 303,FLV,FMV,FDV 



303 FQRMATOOX, 3F15,6////) 

 PRINT 104 



.aa4 FORMAT! 10X,4H CL«flOX,5H CLVA,10X«SH CLVU*11X,5H CMV ,tOX,SH COV , 

 111X,2H K.12X,4H PHI) 

 PRINT 30S,CLV,CLVA,CLVU,CMV,COV,XK,PHI 

 305 FORMAT(5F15.3fF15.*,F15.2////» 



PHINT 309 



309 FORMAT(3 8X,4HFAVG(LB) i 7X|eHFMAX( L8 ) t7X,BHFMIN(LB)) 

 PRINT 304,SF,FMAX,FMIN 



304 FORMAT(30X,F15.6,2F15.5////) 



PUNCH 3a7tCLtOIAtANGL£*T«H,XL»U,CLy,CLVA>CLVJ,PHI ,XK,CMV|CDV 



387 FORMAT(F4.3fF5*3tF4.0tFS.2tFS«3|F6.2,F6.4,F5*2, 2F6. 2,F7.2 ,F 7.4,F6. 



PLCT ORIGINAL DATA ANO RESULTS FOR COMPARISON 

 -^ IFlT.Gl*l.ai601»60a- 



601 tF(T.GT.2.4)603,602 

 600 JS<2 



GO TO 606 

 £02 JS33 



GO TO 606 

 603 JS34 

 606 C»A8S(FMAX) 



A«ABS(FMIN1 



BsAMAXl < A,C) 

 68=35. /e 

 CC«33./HMAX( 1 ) 

 PRINT 26 

 26 F0RMAT(4X,7H FP(Lai,3X,7H FV(L8)(2Xt8H RESILBI/I 

 00 31 L>ltl01 

 G(L)slH 

 Jl CONTINUE 



DO 32 1=1, J, JS 

 G(5I ><1HI 



HP( I >=HI( I»ITM1-1 I 



FV( I1=AX*X( 1 )+AQ*QIl)*AY*y( I )tAZ*Z(I )tSF 

 RESd )«FP( I )-FV( I) 

 JJ»Sl.»BB«FPtI ) 

 ltlt»51.»BB*FVII) 

 JJ^SX • ♦ eB* R£ili ) 

 MM»51.>CC*HP(lT 

 GIJJ )«1H* 

 GIKKI^IH^- 

 5(I.U)«1H. 

 G(MM)xlHS 



PRINT lOO.FPd J.FVII >fRCS(I),G 

 100 FORMAT! |HZ,3F10«5, lOlAl/l 

 6( JJ)»1H 

 GIKKl'lH 

 G(LLI-1H 

 eifMlxlH 

 32 CONTINUE 



GO TO 8 

 to CONTINUE 

 END 



SUBROUTINE MA VEt ITj D , Xk. J 

 e»32.2*T*T/6.283ia5 

 TP0»6»283185«0 



C oilp^llU InlIlAU eSJlM.ATt FQfiL WAyELENGTH 



2 XL'B 

 C SHALLoI°»«ATEH INITIAL ESTIMATE FOR WAyELENGTH 

 3_ jl|.ir»aQBJiO*_32»21 

 A XLX*XL 



XL«8*TANH( TPD/XLXI 

 IFIABS ( XLX-XLl-«005»5,4,4 

 _5 ^BEIJJRN 

 END 



148 



