HP Forums / HP Software Libraries / General Software Library v / (49g 50g) Theoretical Earth gravity g = g(latitude, height), WGS84, GRS80/67

Post Reply 
(49g 50g) Theoretical Earth gravity g = g(latitude, height), WGS84, GRS80/67
09-21-2021, 07:04 AM (This post was last modified: 01-12-2023 01:45 PM by Gil.)
Post: #1
Gil Offline
Senior Member
 		Posts: 578
Joined: Oct 2019
(49g 50g) Theoretical Earth gravity g = g(latitude, height), WGS84, GRS80/67
HP49-50G
Gravity g calculation in function of two arguments:
- latitude (in d.mmss), in stack level 2
- height/altitude (in m), in last stack level 1,

According to equations & parameters:
- International gravity 1967
- WGS 84.

See, for example, for more details:
https://en.m.wikipedia.org/wiki/Theoretical_gravity

The code is:

\<< "https://en.m.wikipedia.org/wiki/Theoretical_gravity
Version 1

2 Arg
. lat [in D.mmss]
. alt [in m]
" DROP "alt [m]" \->TAG SWAP "lat [D.mmss]" \->TAG SWAP DUP2 \-> lat alt
\<< lat HMS\-> 'lat' STO DEG '9.780327*(1+.0053024*SIN(lat)^2-.0000058*SIN(lat*2)^2)-.000003086*alt' \->NUM "Int.grav 1967" \->TAG '9.7803253359*((1+1.9318526464E-3*SIN(lat)^2)/\v/(1-6.69437999014E-3*SIN(lat)^2))-(1-.00139*SIN(lat)^2)*.0000030877*alt+7.2E-13*alt^2' \->NUM "WGS 84" \->TAG
\>>
\>>

Regards,
Gil Campart


Attached File(s)
.hp  GRAVITY.14b.hp (Size: 21.24 KB / Downloads: 1)
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
(49g 50g) Theoretical Earth gravity g = g(latitude, height), WGS84, GRS80/67 - Gil - 09-21-2021 07:04 AM



User(s) browsing this thread: 1 Guest(s)

Contact Us | The Museum of HP Calculators | Return to Top | Return to Content | Lite (Archive) Mode | RSS Syndication