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