Calculating Parabolic Motion - Sharp EL-9650 User Manual

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
distance and altitude after t seconds. Specify the angle in Deg.
Calculation
X = V cos T
• •
0
Initial velocity
Angle
Gravitational acceleration g = 9.8 [m/s
Time
FLOWCHART
Start
Entry of initial velocity
Calculation and
display from
released angle 45ß
THETA
Entry of released angle
Y
0 or > 90
N
Calculation and
display of values
for entered angle
Range setting
LOOP1
Calculation and
plotting of graph
D = (D + T/100)
Y
D T
N
Entry of time
Z 0 or Z > T
N
Calculation and
display of distance
and altitude after time Z.
Display of graph
EL-9650/9600c/9450/9400 Graphing Calculator
T - 1 gT
Y = V sin
• •
0
2
V [m/s]
0
[˚ ]
2 ]
T [s]
Enter velocity when thrown.
Highest altitude, throwing
distance (horizontal distance),
and time (duration of flight) in
case of released angle 45˚
calculated and displayed.
Angle for throwing entered.
Entered angle less than or equal
to 0˚ or larger than 90˚?
Highest altitude, throwing distance
(horizontal distance), and time
(duration of flight) for entered angle
calculated and displayed.
Range of graph set based on
values for released angle 45˚.
Graph (parabola) calculated
and plotted.
Elapsed time counted.
Calculation and plotting repeated
until D (time elapsed) reaches
T (duration of flight).
TX
Entered time less than or equal
Y
to 0 or more than T?
Altitude and distance after entered
time elapses from throwing
calculated and displayed.
Returns to entry of time.
and angle , and find the horizontal
0
y
2
V
0
PROGRAMME LIST
Title : PARABOLA
Print "V0 (M/S), ,T(S)
Print "Input V0
Input V
2 V sin 45/9.8 A
2
V /9.8 B
2
V /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
2 2
V (sin ) /19.6 H
2
V 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
(REAL MODE)
0 Xmin
0 Ymin
B Xmax
C Ymax
0 D
Label LOOP1
V cos D X
2
V sin D-(0.5 9.8 D ) 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
2
V sin Z-(0.5 9.8 Z ) Y
Print "X=
Print X
Print "Y=
Print Y
Wait
Line(0,Y,X,Y)
Line(X,0,X,Y)
Wait
Goto TX
0000
25