HP 50g Inverse by Coordinates

[RMollov]

(06-07-2015 10:51 PM)MNH Wrote:  Hello,

The following code was inspired by Dave Britten:

Code:

\<< SWAP 4 ROLL - SWAP
ROT - R\->C  DUP ARG DUP
0 <
   \<< 360 +
   \>> IFT SWAP ABS
\>>

Input:

4:N1
3:E1
2:N2
1:E2

Output:

2:Azimuth
1:Distance

Regards,

Mark

So you assume the calculator is set to DEGREES

Another way of doing it can be:

Code:

\<< RECT \->V2 UNROT \->V2 - CYLIN V\-> 360 MOD SWAP \>>

Cheers,