(49g 50g) Theoretical Earth gravity g = g(latitude, height), WGS84, GRS80/67

[Gil]

Version 2b

Just changed some minor details, the main ones being the results labels.

Regards,
Gil
.
\<< "Version 2b 2021.09.25

2 Arg
. 
lat
 [in D.mmss]
. 
alt
 [in m]

https://en.m.wikipedia.org/wiki/Theoretical_gravity
https://eu.docworkspace.com/d/sIEG9949c5qq2igY
(GSR 80 by H Moritz)

\[]g(90,0)=9.8321849378
but form\->9.83218493787
\[]\GD calc poss. for alt
" DROP "alt [m]" \->TAG SWAP "lat D.mmss" \->TAG DUP2 RCLF \-> alt lat f
\<< DEG lat HMS\-> 'lat' STO DEG '9.780327*(1+.0053024*SIN(lat)^2-.0000058*SIN(lat*2)^2)-.000003086*alt' \->NUM "
Lambert GRS 80
" \->TAG '9.7803267715*(1+.0052790414*SIN(lat)^2+.0000232718*SIN(lat)^4+.0000001262*SIN(l​at)^6+.0000000007*SIN(lat)^8)-(1-.00139*SIN(lat)^2)*.0000030877*alt+7.2E-13*alt^2' \->NUM "
Somigliana GRS 80
" \->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 "
Somigliana WGS 84
" \->TAG f STOF
\>>
\>>