距离后方交会计算(CASIO fx-4800P计算器)程序一、程序功能 本程序适用于在一个未知点上设测站，观测两到个已知点的距离后，解算该未知坐标。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。 注意：这种观测两到个已知点的距离后解算该未知坐标的方法，缺少多余观测值，也就缺少检核条件。二、源程序Lbl 1：{ABCDEFQ}：A"XA"：B” YA”：C"XB"：D"YB"：E"D1"：F"D2"：Q：J=0：G=Pol(C-A, D-B) ：H=J+QCos-1((GG+EE-FF)÷2÷G÷E)：X"XP"=A+ECosH◢Y"YP"=B+ESinH◢Pol (C-X,D-Y):J<θ=>J=J+36θ: ⊿←︱ J“DXFWJ=”◢（增加计算最后点方位角计算）Goto 1←┘注：CASIO fx-4850改如下Lbl 1：{ABCDEFQ}：A"XA"：B” YA”：C"XB"：D"YB"：E"D1"：F"D2"：Q：J=0：G=Pol(C-A, D-B) ：H=J+QCos-1((GG+EE-FF)÷2÷G÷E)："XP"：X=A+ECosH◢"YP"：Y=B+ESinH◢Pol (C-X,D-Y):J<θ=>J=J+36θ: ⊿←┘ J“DXFWJ=”◢（增加计算最后点方位角计算）Goto 1←┘三、使用说明1、规定 (1) 未知点为P点，已知点分别为A点、B点；(2) P点至A点的距离为D1，P点至B点的距离为D2；(3) 当A、B、P三点逆时针排列时，Q=-1；当A、B、P三点顺时针排列时，Q=1。2、输入与显示说明 输入部分： XA ? 输入A点的X坐标YA ？输入A点的Y坐标XB ? 输入B点的X坐标YB ？输入B点的Y坐标D1 ？输入P点至A点的距离为D1D2 ？输入P点至B点的距离为D2Q ？输入A、B、P三点排列方式（逆时针时，Q=-1；顺时针时，Q=1） 显示部分： XP=××× 所求点P的X坐标 YP=××× 所求点P的Y坐标DXFWJ=XXX°（按shift °′″ 键转为XX°XX′XX″ ，相对于后一点B）四、算例 已知XA=539.3551，YA=602.9159，XB=433.0034，YB=1087.4213，D1=380.7996，D2=245.8664，A、B、P三点排列方式为逆时针（Q=-1），求P点的坐标。输入数据后，经计算得XP=647.8773101YP=967.9244825DXFWJ=150.9204583°= 150°55′13.65″（注：程序红色字体部分为A-HONG加入2009-11-11）
