You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
1.3 KiB
QBasic
55 lines
1.3 KiB
QBasic
#lang br/demo/basic
|
|
|
|
10 PRINT TAB(33);"BOUNCE"
|
|
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
30 PRINT:PRINT:PRINT
|
|
90 DIM T(20)
|
|
100 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY"
|
|
110 PRINT "OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT OF"
|
|
120 PRINT "ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION"
|
|
130 PRINT "COEFFICIENCY (LESS THAN 1)."
|
|
131 PRINT
|
|
132 PRINT "YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN"
|
|
133 PRINT "'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALLY)."
|
|
134 PRINT
|
|
135 INPUT "TIME INCREMENT (SEC)";S2
|
|
140 PRINT
|
|
150 INPUT "VELOCITY (FPS)";V
|
|
160 PRINT
|
|
170 INPUT "COEFFICIENT";C
|
|
180 PRINT
|
|
182 PRINT "FEET"
|
|
184 PRINT
|
|
186 S1=INT(70/(V/(16*S2)))
|
|
190 FOR I=1 TO S1
|
|
200 T(I)=V*C^(I-1)/16
|
|
210 NEXT I
|
|
220 FOR H=INT(-16*(V/32)^2+V^2/32+.5) TO 0 STEP -.5
|
|
221 IF INT(H)<>H THEN 225
|
|
222 PRINT H;
|
|
225 L=0
|
|
230 FOR I=1 TO S1
|
|
240 FOR TI=0 TO T(I) STEP S2
|
|
245 L=L+S2
|
|
250 IF ABS(H-(.5*(-32)*TI^2+V*C^(I-1)*TI))>.25 THEN 270
|
|
260 PRINT TAB(L/S2);"0";
|
|
270 NEXT TI
|
|
275 TI=T(I+1)/2
|
|
276 IF -16*TI^2+V*C^(I-1)*TI<H THEN 290
|
|
280 NEXT I
|
|
290 PRINT
|
|
300 NEXT H
|
|
310 PRINT TAB(1);
|
|
320 FOR I=1 TO INT(L+1)/S2+1
|
|
330 PRINT ".";
|
|
340 NEXT I
|
|
350 PRINT
|
|
355 PRINT " 0";
|
|
360 FOR I=1 TO INT(L+.9995)
|
|
380 PRINT TAB(INT(I/S2));I;
|
|
390 NEXT I
|
|
400 PRINT
|
|
410 PRINT TAB(INT(L+1)/(2*S2)-2);"SECONDS"
|
|
420 PRINT
|
|
430 GOTO 135
|
|
440 END |