|
最简单之坐标方位角计算子程序 一、源程序(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″) |
|
|
