Casio FP-200 - Page 118

rPARABOLA----------------------------
122
Screen output
y
.-- .......
, ·.
,• .
,
: ·.
,' .
.
: .
.
.
.
0 L....-- ➔ ------x
10 '* .......... * ... * .. * .. .
20
30 · F'ar-abolas
40 '
50 '*-ll·*-ll·-ll·-ll·****-11·
60 CLEAR
70 ANGLE 0
80 IN IT ( IZI, IZI) , 1 , 1
90 CLS
100 DRAW (8,0)-(8,55)
110 DRAW <8,S5)-(63,55l
120 DRAW (68,0)-(68,63)
130 LOCATE 0,7:F'RINT "0";
140 LOCATE 0,1:F'RINT "y"
150 LOCATE 6, 7: PRINT ":•:";
g =9. 8
h =50
Vo=500
X=16415.82
Y =0.00
T =95.99
V =500. 98
0 =70
160 LOCATE 9,0: INPUT "g=",G
170 LOCi:iTE 9,1:INF'UT "h==",H
180 LOCATE 9,2: INPUT "Vo=",V0
190 IF V0=0 THEN 240
200 LOCATE 9,3: INPUT "0=", TH
210 VX=COS(TH)*V0
220 VY=SINCTH)*V0
230 GOTO 270
240 LOCATE 9,2:F'RINT"
250 ·LOCATE 9,2: INPUT "V:-:==" ,VX
2b0 LOCATE 9,3: INPUT "Vy=",VY
270 SG== 1
1583 Bytes
280 IF VX<0 THEN VX=-VX:SG=-1:LOCATE 6,7:PRINT"