最简单之坐标方位角计算子程序
一、源程序(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″)
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
热心网友
回答时间：2023-05-17 15:35
