Advertisement
MATHEMATICS AND GEOMETRY..J
290 TT=VY/G
300
TX=VX*TT
310 TY=H+VY*TT-G*TTA2/2
320LT=TT+SQR(2*TY/G)
330 LX=VX*LT
340 IF VY<0 THEN,·TY=H
350 SY=50/TY
360 SCX=1:SCY==1
- 370 IF TY>LX THEN SCX=LX/TY:M=TY ELSE SCY=TY/LXiM
=LX
...
380 M=M/5:M1=l!N=2
~90 IF M>10 THEN Ml=M1*10:M=M/10:GOTO 390
~400 FOR
I=0 TO
3
410
N=N+2*I-1
·420
IF
M>N THEN 440
430
I=3
440 NEXT I
_450 N=N*M 1 : M=M*M 1
46-0 cf"OR.::-.1=0 TO 60 -STEP---50/·(M*5) *N
. •'. . . ' :j ,:--.
.
., .. --- . -
'.
470 ' IFT·I)55 OR , I=0
.THEN
.490 -
~J' - ~fJ~::~i?~~--:~:~i•1~r~~~/L' x
,•Gii~1~
,;;·,,_,,A
510 SX=TT/LT
520_ LOCATE 9, 7: PR I NT US I NG "SCALE#####
fl;
N;
530 FOR:;.!=1 TO 50:JI-SX
540
~=TX~I/(50*SX)
_550
T=TT•l/C50*SX)
560
Y=(H+VY•T~G*TA2/2)
570 .GOSUf1 780
580 NEXT
f
59!2!
T=TT
600 X=TX
610 Y=TY
620 GOSUB 780
630 J=I
640 LOCATE 9,7:F'RINT "HIT ANYKEY";
650 IF INKEY$="" THEN 650
660 LOCATE 9,7:PRINT"
";
670 LOCATE 9,7:PRINT USING "SCALE#tt###";N;
680 FOR I=J TO 50
690
X=LX*I/50
700
T=L
T* I
/50
710
Y=(H+VY*T-G*TA2/2)
720
GOSUB 780
-1 ----
1
'
l
l
I
Advertisement
