HP 50g Inverse by Coordinates

[RMollov]

Code:


RECT          sets RECT mode
->V2          composes vector from levels 1 and 2
UNROT       sends vector to level 3, moves levels 3 and 2 to levels 2 and 1
->V2          composes vector from levels 1 and 2
-                subtracts 2 vectors
CYLIN         sets calc in CYLIN mode
V->            decomposes vector to 2: dist and 1: azimuth -180 - 180 deg
360 MOD    makes azimuth positive 0 - 360 deg
SWAP         obvious