Strip Theory 



C 



55 WRITE CUTPUT 

 WRITE CUTPUT 



TAPE 6,210, KCDC-KCOP 

 TAPE 6,211, UVE,0IS 

 WRITE CUTPUT TAPE 6,212,AVE,FG 

 WRITE CUTPUT TAPE 6, 21 3,DFTAM,RG I 



WRITE CUTPUT TAPE 6,209 ' . , 



DC 94 1-1,19 ' 



94 WRITE CUTOUT TAPE 6, 224, I ,UIL(1 , I ),U IL(2, I ) 

 C 



C SHIP SPEED AND WAVE LENGTH VARIATICN 



C 



14 DC 54 IV-1,NVEL 

 V-VE(IV) 



15 DC 47 l>1,NCND 

 CLUI^CtUlC) 

 IF(NSTR2)33,33,16 



C 



C HYDRCDYNAMIC CHARACTERISTICS IM SHIP TRAflSVERSE SECTICfJS 



C 



16 F>7.849/SQRTF{CLUN) 

 F1=FC+6.28*V/CLUN 



DC 19 J»1,K 



GG(J)=CA(3,J)/CA(2,J) 



X'"GG(J)/DrT(J) 



Y=CA(2,J)/DFT(J) 



Z=CA(2,J)*F1**2 /19.62 :. . 



iniz-o 



KP.= 1 . . 



GC TC 401 



17 CG(4,J)=0.3927*"0*CA(2,J)**2 /F . , : 



imz=66 



KR-2 



GC TC 401 



18 CG(5,J)=96.236l*r'C*F**2 /Fi**3 



19 CCtlTlNUE 



DC 20 J"1,K 

 CG(3.J)"EXPF(-6.28*GG(J)/CLUN) 



20 CG(2,J)"9.81*RC*CA(2,J) 

 C 



C MCTICN DIFFERENTIAL EQUATICN CCEFFICIENTS 



DC 21 J-1.K 



21 A(J)-CG(l'j> 

 KDEF-K 

 INDEF"4 



DC 24 L^1,3 

 LL^(7*L-L*L-2)/2 

 DC 24 J-1.3 

 DC 22 1-1. K 



22 B(I)-CG(LL,I)*CG(1,I)**(J-1) 

 GC TC 301 



23 CC(J,L)-OEF 



24 CCNTINUE 



DC 29 Lf1,2 

 DC 25 1-1 ,K 

 PI-6.28*CG(1.l)/GtUN 

 AA(1,1>-CCSFtPI) 

 AAUjl)— StMF(PI) 



865 



