RUNT VERSICN FEB 74 B 13i04 04/09/76 



413 DO 26 I-l»2 



414 ?6 DTOR(I)"CTDY(I)*XCAB(I)-OTOX(I)*YCAe(I) 

 432 PRINT 27 



435 27 F0RMAT(//5X*CABLE NO. DTDX*eX*DTDY*8X*DTDR*/ / ) 



435 DO 2e I-l»2 



440 28 PRINT 29, I,DTDX( I ) ,DTDY( I ) »OTDR ( I) 



461 29 FQRMAT19X,I1,3(XE11.4)) 



C SPRING CONSTANTS SWAY DIRECTION 

 461 KM11«(0FXDX(1)+DFX0X(2))*(-1.) 



471 KM12»(DFYDX(1)*DFYDX<2 ))♦(-!.) 



500 KM13-(DFYDX<l)*XCAB(l)+0FYDX(2)*XCA9(2»-nFXnxll)*YCAB(l)-DFXDX(2)* 



2 YCAB(2))*(-1.) 



C SPRING CONSTANTS HEAVE 

 530 KH21«(0FXDY(1)+DFXDY(2))*(-1.) 



537 KM22" J DFYDY(1)*DFY0Y (2 ))♦(-!.) 



546 KM23-(0FY0Y(1»*XCAB(1)*0FYDY(2)*XCAB(2) 



2 -DFX0Y(1)*YCAB(1)-DFXDY(2)*YCAB(2))*(-1.) 



C SPRING CONSTANTS POLL DIRECTION 

 576 K»i31"(DFXDY(l)*XCAB(l)+0FXDY(2)*XCAB(2)-DFXDX(l)*YCAB(l) 



2 -DFX0X(2»*YCAB(2))*(-1.) 

 626 KM32"(DFY0Y(1)*XCAB(1)+0FY0Y(2)*XCAP(2) 



2 -DFYDX(1)*YCAB(1)-DFYDX(2)*YCAB(2))*(-1.) 

 656 KM33"<XCAB(1)**2*DFYDY(1)+XCAB<2)**2*DFY0Y(2) 



2 ♦YCAB(1)*»2*DFXDX(1)+YCAB(2)**2*0FXDX(2) 



3 -XCAB(1)*YCAB(1)*(DFYDX(1)*0FXDY(1)) 



4 -XCAB(2)*YCAB(2)*{DFYDX(2)*DFXDY(2)) )*(-l.) 

 756 PRINT 30,FS,FH,EMR 



767 30 F0RMAT(///5X*FaRCES AND MOf«ENTS ON BREAKWATFP AT EQULIBPIUM DUE ♦ 



2 ♦TO MOORING LINES*/10X*FS" •F12.4/10X*FH» ♦F12.4/10X*MR- ♦F12.4) 

 767 PRINT 32,KM11.KM12»KM13 



1001 32 F0RHAT(//5X»SPRING CONSTANTS SWAY 0IRECTI0N«/10X*KM11 ■ ♦E12.5/ 



2 10X*KW12 ■ ♦E12.5/10X+KH13 ■♦612.5) 

 1001 PRINT 34,KM21,KM22,KM23 



1013 34 F0RMAT</5X^SPRING CONSTANTS HEAVE DIPECTI0N^/10X*KM21 ■ ♦E12.5/ 



2 10X^KM22 • ♦E12.5/10X^KH23 ■♦EIJ.S) 

 1013 PRINT 36,KM31»KM32,KH33 



1025 36 FQRMAT(/5X^SPRIN6 CONSTANTS ROLL DTPECTI0N+/10X+KM31 • *E12.5/ 



2 10X*KH32 • ♦E12.5/10X^KH33 •♦E12.5//) 

 1025 PRINT 38 



1031 38 FORHATJIHI) 



1031 RETURN 



1032 END 



Table B-3. Continued 



102 



