SFF»0. 



SFZ=0. 



DT=, 31415926536 



A«-OT 



DO 15 1=1.40 



»»A*DT 



P(U=SIN<A) 



c»cas< A> 



Z<I)=C*ABS (C) 

 F( I )=FP( I > 

 SFF=SFF*F< I »«F( II 

 SFP = SFO«.F( I )*P( I ) 

 SFZ«SFZ»F(I )*Z(I1 

 IS CONTINUE 

 AP=SFP/20. 

 AZ^SFZ/IS. 

 JtPxAP*5FP. 

 VZ=AZ*SFZ 

 CALCULATE COEFFICIENTS 

 CMH^-AP/FMH 

 COHaAZyFDM 

 PPINT RESULTS OF ANALYSIS 

 PRINT 200 

 200 FORMATdHll 



PRINT « 



♦ FORMAT ( 10X,6HT(SEC) , 7X , 6HHT< FT » ,5X ,9H«(A VEL (FT 1 ,6X , THOEP <FT » , 4X, 9MU 

 IMAX(FPS) ,*X,9HCLEAR(FT) , 6X, 7H0 IA( FT ) , 3X , 1 2HCYL LGTH(FT» ,4X,SHANG(0 

 2EG) » 

 PRINT 30Q,T.H,XLtD*U»CL»QIA,XC«AN<UjE 

 300 F0fiMAT(2X,F13«2,F13«3,F13.2,SF13.3tF|3. I////) 

 PRINT 330 



330 FORMAT ( 26X, 12HTOTAL SUM SQ > 7X( 3HSIN » lOX, 8HCOS/COS/ I 

 PRINT 33l.5FF^«P»yZ 



331 FORMAT(20X, 3F15*6/) 

 PRINT 332 



332 F0fiMAT<46X,2HAP,13X,2HAZ» 

 PRINT 333,AP.AZ 



333 F0I;MAT(35X,2F15.6/» 

 PRINT 334 



334 F0RMAT(46X,3HFMH, t2X,3HF0H) 

 PRINT 33S»FJ!lH,FDl± _ 



335 F0RM*T(35X.2F15.6////) 

 PRINT 336 



336 F0RMAT(46X, 3HCMH,12X,3HC0H> 

 PRINT 337,CMH.CDH 



337 FOflMAT(35X,2F15.3////» 

 PRINT 309 



309 F0nMAT(38X,aHFAV6(LB>,7X,SHFMAX(LB),7X,SHFMIN(La) ) 



PRINT 304,SF,FMAX,FH1N 

 304 FOBMAT( 30X,F15.6,2F15.a////> 



PUNCH i8 7,CL,0IA,ANGLE.T,H,XL,U,CMH,CDH,SF 

 387 FORMAT (F4. 3 ,F5. 3 tF4. » FS* 2rF5. 3|F6« 2 ,F6. 4 , 2Fa> 2 , F 1 0*6 ) 

 PLOT ORIGINAL DATA AND RESULTS FOR COMPARISON 



PRINT 26 

 26 FCBMAT<4X,7H FP(L8),3X,7H FH(LB>,2X,8H RES<LB>/t 



151 



