Appendix B
Back    Forward    Index

5 REM     DEC.31,1986,     BREAKING WAVE STRIKE
10     OPEN #1: "PIO"
12     PRINT #1:"BREAKING WAVE STRIKE, 12/31/86"
13     PRINT #1:"Xl=0_";"L=200_";"K=200_";"RB=4.8_";"DD=12.6_";"DA=300_";"M=233_";"SL=-.36"
15     PRINT #1:"T";TAB(7);"FD";TAB(20);"V2";TAB(30);"V1";TAB(40);"CL";TAB(50);"FH";TAB(60);"FB"
20 X1=O
30 Vl=O
40 X2=0
43 L=200
45 V3=2.26*SQR(L)
50 V2=V3
60 K=200
70 RB=4.8
80    DD=12.6
85 DA=300
90 SL=-.36
100 M=233
110 G=32.2
140 H=.Ol
150 FOR T=0 TO 8 STEP H
160 Xl=Xl+H*Vl
170 X2=X2+H*V2
180 FD=K*(X2-Xl)
190 FH=RB*(V3-V2)^2*SGN(V3-V2)
200 FB=-M*G*SL
202 CL=(V3*T)-X2
204 IF CL>30 THEN 470
2iO V1=SQR (FD/DD)
220 V2=V2+H*(FB+FH+DA-FD)/M
221 IF V2>V3 THEN 490
222 IF 4*T<>INT(4*T)THEN 390
270 PRINT "T=";T
330 PRINT #1;T;TAB(7);INT(FD);TAB(20);INT(V2);TAB(30);INT(V1);TAB(40);INT(CL);TAB(50);INT(FH);TAB(60);FB
390 NEXT T
470 SL=0
480 GO TO 210
490 V2=V3
500 GO TO 222

Top