49 50 Ver6.09.hp Geodesic distance & Earth Euclidean distance calculator, bearing

[Gil]

Version 2.5

For that earth distance calculator — ccurateness within 1 mm —,
I just added here the possibility to modulate the radius equatorial radius a, the pole radius b and flatness f (or INV.f),
knowing that (a-b)/a = INV.f

(Note that you cannot enter the value of the flatness f,
but instead its inverse value INV. f (=1/f).
If you know f — instead of 1/f —, then put f in the stack and press the key 1/x (juste above the 9-key).)

For that, if changes really required, just run before everything
the small "solver" program pressing
1) C.abc ENTER

2) Then give two values:
- for a and b, then press Left-Shift INV.f
(to get INV.f = 1/f) ;
- or for a and INV.f, then press LEFT-SHIFT b
(to get the pole radius b) ;
- or for b and INV.f, then press Left-Shift a
(to get the equatorial radius a).

3) Then run normally (as many times you want)
- P1P2—>
- or P1—>P2
- or lat—>R

without having to repeat anymore the steps 1 and 2 above.

Code for C.abc
\<< "WGS84
a:6378137
INV.f:298.257223563
" DROP '(a-b)/a-1/INV.f' STEQ 30 MENU
\>>

Enjoy and regards,

Gil Campart