最简单的坐标方位角计算子程序

最简单的坐标方位角计算子程序
一、源程序(FWJ)
       J=0：D=Pol(U-X, V-Y)：F=J：F<0=>F=F+360△
  二、说明
          1、该子程序适用于CASIO fx-4800计算器及CASIO fx-4850计算器。
对于CASIO fx-4500计算器，注意调整Pol()计算结果的储存变量结果即可。
          2、该子程序入口参数X、Y为直线起点（或测站点）的坐标，U、V
为直线止点（或后视点）的坐标，返回值D为起点至止点间的平距、F为起
点至止点的方位角。

使用计算器自带的坐标变换函数Pol()快速准确地反算任意两点间的平距和坐标方位向角，可避免方位角所在象限的复杂判断。至于tandeyong所给的程序是坐标计算，与坐标方位角计算题意不相符。
1.调用坐标方位计算的主程序示例(ZCX)
Lbl 1：{XYUV}：X"X1"：Y"Y1"：U"X2"：V"Y2"←┘ 输入两点的坐标(x1,y1)、(x2,y2)
Prog "FWJ"←┘ 调用坐标方位角计算子程序“FWJ”
D"D"=D◢  显示两点(x1,y1)、(x2,y2)间的平距
F""F"=F◢  显示点(x1,y1)至(x2,y2)的坐标方位角
Goto 1←┘
2.算例
    已知两点P1（19827.336, 28506.838)、P2（19742.686, 28652.914)间的距离和方位角。
  (1)选择程序"ZCX"并启动它
  (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″)