Appendix A

Back    Forward    Index

LIST OF SYMBOLS

See Figure 21 for Force Symbols

X1 Drogue position

V1 Drogue velocity

X2 Boat position

V2 Boat velocity

L Wave length

C Half wave height

R Wave circular frequency, rad./sec.

V3 Wave speed

Y Wave height

SL Wave slope

CL Length of breaking wave crest

APPENDIX A

1 REM BOAT AND DROGUE RIDING REGULAR TROCHOIDAL WAVE 12/21/86

5     OPEN #1:"PIO"

6     PRINT #1:"BOAT AND DROGUE ON REGULAR TROCHOIDAL WAVE i2/21/86"

7     PRINT #1:"T";TAB(10);"Y";TAB(20);'IV2";TAB(30);"XI-X2";TAB(45);"FD";TAB(55);"Vl"

10    Xl=l

20    Vl=S

30    X2=2

40    V2=S

50     L=200

60    C=10

70    R=14.2/SQR(L)

80 V3=L*R/6.28

90 M=233

110 RB=4.8

115 DA=300

120  DD=12.6

130 K=200

140 N=25

150 G=32.2

160 E=2*3.14/L

180 H=.0l

190 FOR T=0 TO 50 STEP H

193 Xl=XI+H*Vl

196 X2=X2+H*V2

200 Y=E*C^2/2+C*COS(E*X2-R*T)+E*C^2/2*COS(2*(E*X2-R*T))+3/8*E^2*C^3*COS(3*(E*X2-R*T))

210 PSL=SL

220 SL=-C*E*SIN(E*X2-R*T)-C^2*E^2*SIN(2*(E*X2-R*T))-9/8*C^3*E^3*SIN(3*(E*X2-R*T)

222 AV=((V3-V2)*-SL-(V3-PV2)*-PSL)/H

230 VW=R*Y

235 FA=.6*DA+.4*DA*Y/C

240 FB=-M*(G+AV)*SL

250 FD=KK*(X2-XI)

260 FH=RB*(VW-V2)^2*SGN(VW-V2)

300 V1=V1+H*(FD-DD*V1^2)/N

310 PV2=V2

330 V2=V2+H*(FB+FA+FH-FD)/M

350 IF X2<X1 THEN 420

360 KK=K

370 IF 2*T<>INT(2*T) THEN 410

372 PRINT "T=" ; T

390 PRINT #I;T;TAB(10);INT(Y);TAB(20);INT(V2);TAB(30);INT(X2-XI);TAB(45);INT(FD);TAB(55);INT(VI)

410 NEXT T

420 KK=O

430 GO TO 370

Top