Casio FP-200 - Page 119

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
'
123
l
l
I
L