最簡(jiǎn)單之坐標
方位角計算子程序
一、
源程序(FWJ)
J=0：D=Pol(U-X, V-Y)：F=J：F<0=>F=F+360△
二、說(shuō)明
1、該子程序適用于CASIO fx-4800
計算器及CASIO fx-4850計算器。
對于CASIO fx-4500計算器，注意調整Pol()計算結果之儲存變量結果即可。
2、該子程序入口參數X、Y為直線(xiàn)
起點(diǎn)（或測站點(diǎn)）之坐標，U、V
為直線(xiàn)止點(diǎn)（或后視點(diǎn)）之坐標，
返回值D為起點(diǎn)至止點(diǎn)間之平距、F為起
點(diǎn)至止點(diǎn)之方位角。
使用計算器自帶之
坐標變換函數Pol()快速準確地反算任意兩點(diǎn)間之平距和坐標方位向角，可避免方位角所在
象限之復雜判斷。至于tandeyong所給之程序是坐標計算，與坐標方位角計算題意不相符。
1.調用坐標方位計算之主程序示例(ZCX)
Lbl 1：{XYUV}：X"X1"：Y"Y1"：U"X2"：V"Y2"←┘ 輸入兩點(diǎn)之坐標(x1,y1)、(x2,y2)
Prog "FWJ"←┘ 調用坐標方位角計算子程序“FWJ”
D"D"=D◢ 顯示兩點(diǎn)(x1,y1)、(x2,y2)間之平距
F""F"=F◢ 顯示點(diǎn)(x1,y1)至(x2,y2)之坐標方位角
Goto 1←┘
2.算例
已知兩點(diǎn)P1（19827.336, 28506.838)、P2（19742.686, 28652.914)間之距離和方位角。
(1)選擇程序"ZCX"并啟動(dòng)它
(2)輸入 X1? 19827.336 ↙ (↙代表藍色之[EXE]鍵)
Y1? 28506.838 ↙
X2? 19742.686 ↙
Y2? 28652.914 ↙
(3)顯示
D=168.8307445
F=120.0919859(以度為單位, 即120°05′31.15″)
