Filter
Top Products
EL-9600/9400 Graphing Calculator
Calculating Parabolic Motion
Display on a graph the altitude change and the horizontal distance over a period of time
when an object is thrown at initial velocity V
0
and angle θ, and find the horizontal
distance and altitude after t seconds. Specify the angle in Deg.
Calculation
FLOWCHART PROGRAMME LIST
(REAL MODE)
Entry of initial velocity
Start
Enter velocity when thrown.
Highest altitude, throwing
distance (horizontal distance),
and time (duration of flight) in
case of released angle 45˚
calculated and displayed.
Highest altitude, throwing distance
(horizontal distance), and time
(duration of flight) for entered angle
calculated and displayed.
Angle for throwing entered.
Entered angle less than or equal
to 0˚ or larger than 90˚?
Graph (parabola) calculated
and plotted.
Elapsed time counted.
Range of graph set based on
values for released angle 45˚.
Calculation and plotting repeated
until D (time elapsed) reaches
T (duration of flight).
Entered time less than or equal
to 0 or more than T?
Altitude and distance after entered
time elapses from throwing
calculated and displayed.
Returns to entry of time.
Print "V0 (M/S),θ,T(S)
Print "Input V0
Input V
2 V sin 45/9.8 A
V
2
/9.8 B
V
2
/19.6 C
Print "HMAX=
Print C
Print "LMAX=
Print B
Print "TMAX=
Print A
Wait
Label THETA
Input θ
If θ ≤ 0 Goto THETA
If θ > 90 Goto THETA
V
2
(sin θ)
2
/19.6 H
V
2
sin (2θ)/9.8 L
2 V sin θ/9.8 T
Print "H=
Print H
Print "L=
Print L
Print "T=
Print T
Wait
C/10 Yscl
B/10 Xscl
X = V
0
•
cos θ
•
T Y = V
0
•
sin θ
•
T -
1
gT
2
Calculation and
display from
released angle 45˚
Calculation and
display of values
for entered angle
Entry of released angle
Initial velocity V
0
[m/s]
Angle θ [˚ ]
Gravitational acceleration g = 9.8 [m/s
2
]
Time T [s]
Range setting
D = (D + T/100)
Entry of time
Display of graph
Calculation and
plotting of graph
Calculation and
display of distance
and altitude after time Z.
θ≤ 0 or θ> 90
D ≤ T
N
N
TX
Y
LOOP1
Z
≤
0 or Z > T
N
Y
Y
THETA
2
y
x
V
0
θ
0 Xmin
0 Ymin
B Xmax
C Ymax
0 D
Label LOOP1
V cos θ D X
V sin θ D-(0.5 9.8 D
2
) Y
Pnt0N(X,Y)
D+(T/100) D
If D≤T Goto LOOP1
Wait
Label TX
Print "Input TX
Input Z
If Z≤0 Goto THETA
If Z>T Goto THETA
V cos θ Z X
V sin θ Z-(0.5 9.8 Z
2
) Y
Print "X=
Print X
Print "Y=
Print Y
Wait
Line(0,Y,X,Y)
Line(X,0,X,Y)
Wait
Goto TX
0000
Title : PARABOLA
25
HB2.Doc02. 98.10.1, 0:31 PM25