真方位角與羅盤方位角轉換
程式編寫日期: 2007年3月4日
注意: πr 是按 SHIFT EXP SHIFT Ans 2
程式 (59 bytes，使用記憶A及B)
?→A: ?→B: A => Goto 0: B ÷ 90 + . 5:
Fix 0: Rnd: Norm 1◢ Lbl 0:
180(Ans=4) - cos πrAns(B - 180
(Ans≠1) cosπr AnsA
註1: 輸入方向資料時，0表示沒有東南北方向資料，即輸入為真方位角，1代表東北(NE)，2代表東南(SE)，3代表西南(SW)，4代表西北(NW)。
註2: 為方便記憶上述數字的意思，1, 2, 3, 4的編排可理解為順時針由右上角(1:NE)至右下角(2:SE)至左下角(3:SW)至左上角(4:NW)。
例題1: 將真方位角 130°轉換為羅盤方位角。
按 Prog 1 再按 0 EXE (0代表沒有方向資料，即輸入為真方位角)
130 EXE (顯示2，代表東南) EXE (顯示角度為50°)
所以羅盤方位角為 S 50°E
例題2: 將真方位角 280°轉換為羅盤方位角。
按 Prog 1 再按 0 EXE (0代表沒有方向資料，即輸入為真方位角)
280 EXE (顯示4，代表西北) EXE (顯示角度為80°)
所以羅盤方位角為 N 80°W
例題3: 將羅盤方位角S 50°E轉換為真方位角。
按 Prog 1 再按 2 EXE (2代表東南SE)
50 EXE (顯示角度為130°)
所以真方位角為 130°
例題4: 將羅盤方位角N 80°W轉換為真方位角。
按 Prog 1 再按 4 EXE (4代表西北NW)
80 EXE (顯示角度為280°)
所以真方位角為 280°
註3: 注意輸入的角度範圍，真方位角為0≦θ<360°，羅盤方位角為0≦θ≦90°。