Welcome to Blog Entry #66
This is a program for some solving elastic collision problems for the Hewlett Packard 50g calculator.
Variables (refer to the diagrams above):
MA = mass of object A
VA = initial velocity of object A
θA = initial angle of A
MB = mass of object B
VB = initial velocity of object B
θB = initial angle of B
FA = final velocity of object A
αA = final angle of object A
FB = final velocity of object B
αB = final angle of object B
To type θ, press ΑLPHA right-shift T
To type α, press ALPHA right-shift A
Program:
PROGRAM NAME: ELASTIC
(spaces added for readability)
<< DEG
{ ' MA * VA * COS(θA) + MB * VB * COS(θB) = MA * FA * COS(αA) + MB * FB * COS(αB) '
' MA * VA * SIN(θA) + MB * VB * SIN(θB) = MA * FA * SIN(αA) + MB * FB * SIN(αB) '
' .5 * MA * VA^2 + .5 * MB * VB^2 = .5 * MA * FA^2 + .5 * MB * FB^2 ' }
'EQ' STO
MINIT
"Elastic Collisions"
{ ' MA ' ' VA ' ' θA ' ' MB ' ' VB ' ' θB ' ' FA ' ' αA ' ' FB ' ' αB ' }
MITM MSOLVR >>
Angle Guide
Examples: (FIX 4)
Example 1:
Known:
MA = 1.2450
VA = 40.0000
θA = 30.0000
MB = 0.9780
VB = 45.0000
θB = 225.000
FA = 25.0000
αA = 170.0000
Solved:
FB = 57.1505
αB = 40.2485
Example 2:
Known:
MA = 4.0000
VA = 3.4565
θA = 0.0000
MB = 4.0000
VB = 4.5000
θB = 270.0000
FA = 2.8750
αA = 170.0000
αB = 80.0000
Solved:
FB = 10.2957
This blog is property of Edward Shore. © 2012
