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