求距离与方位角程序.docVIP

求距离和方位角程序 奀叟 徐金树 已知两点的坐标，求它们间的距离和方位角。 编程：名称：M-N Lbl 0←┚ “X1＝”？A：（第一点坐标X值） “Y1＝”？B：（第一点坐标Y值） “X2＝”？C：（第二点坐标X值） “Y2＝”？D（第二点坐标Y值）←┚ Pol（C－A，D－B）：Cls←┚ J＜0?J＋360→J←┚ “I＝”：I◢（计算出两点间距离） “J＝”：J?DMS◢（计算出两点间方位角） Goto 0←┚ 注：①凡？需要输入的数据值； ②◢为计算结果数值； ③什么都没有的为过度计算； ④只适用于5800计算器，若其他的需要修改； ⑤（）里的是说明，理解就行； ⑥桩号输入应注意：如K2+457，正确输入为2457即可。