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

[Gil]

Small correction
in prog lat—>R

\<< "1 single Argument:

lat
 in D.mmss

To 
change a, b, INV.f


run
 before all 
C.abf

" DROP DEG DUP 'lat' STO HMS\-> \-> la
\<< '\v/(((a^2*COS(la))^2+(b^2*SIN(la))^2)/((a*COS(la))^2+(b*SIN(la))^2))' \->NUM "R Centre-Earth(" lat + ")" + \->TAG 'b/a*TAN(la)' \->NUM ATAN COS a * 2 * \pi * \->NUM "Circumf(" lat + ")" + \->TAG
\>>
\>>
You should have only one DROP instruction before DEG.

Regards,
Gil