(50g) Astronomy Programs

[Eddie W. Shore]

HP 50G: Astronomy Programs
5/21/2014

Escape Velocity:

Input:
2: mass in pounds
1: distance in miles

Output:
1: escape velocity in mi/sec

Program ESCVEL
<< 5280 * INV * 2 * 1.0690441604E-9 * √ 5280 / >>

Period Around the Sun:

Input:
2: mass of orbiting object in pounds
1: distance from sun in miles

Output:
1: period of orbit in years

Program PERSUN
<< 5280 * 3 ^ SWAP 4.384E30 +
1.0690441604E-9 * / √ 2 * π *
→NUM 31556925.9747 / >>

Distance of Stars using Parallax

Input:
1: angle in arc seconds

Output:
1: distance to star in light years

Program PARALLAX
<< PUSH DEG 3600 / TAN
63239.7263452 * INV POP >>

Newton's Law of Gravity Solver

F = force (ft^3)/(lb s^2)
M1 = mass of object 1 (lb)
M2 = mass of object 2 (lb)
R = distance between objects (ft)

Program GRAVITY
<< {'F' 'M1' 'M2' 'R'} PURGE F M1 M2 1.0690466104E-9
* * R SQ / = STEQ 30 MENU >>

Source (where I did my research): Astronomy 801: Planets, Stars, and the Universe - Penn State University
https://www.e-education.psu.edu/astro801/