-
- 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
|