距离后方交会计算(CASIO fx-4850P计算器)程序

距离后方交会计算(CASIO fx-4850P计算器)程序

本程序用于全站仪自由设站时检验得到的坐标是否正确，特别是有些无自由设站功能的全站仪面前尤为重要。

程序名： JLHFJH

Lbl 1：Deg：{ABCDEFQ}：A"XA"：B” YA”：C"XB"：D"YB"：E"D1"：F"D2"：Q"+-"

 

I=0：J=0：Pol(C-A, D-B) ：M=J+Qcos-1((II+EE-FF)÷(2IE))：N=J+180-Qcos-1((II+FF-EE)÷(2IF))

"XP1"：G=A+EcosM◢
"YP1"：H=B+EsinM◢
"XP2"：K=C+FcosN◢
"YP2"：L=D+FsinN ◢

Abs(G-K)>.01=>Goto 1≠>Abs(H-L)>.01=>Goto 1△

(理论上XP1=XP2,YP1=YP2,这里可做计算检核。设定误差1cm以内，超出跳回，自己实际调控)

"XP"：X=(G+K)÷2◢
"YP"：Y=(H+L)÷2◢

Goto 1


使用说明
1、规定
(1) 未知点为P点，已知点分别为A点、B点；
(2) P点至A点的距离为DPA，P点至B点的距离为DPB；
(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点的距离为D1
D2 ？输入P点至B点的距离为D2
Q ？输入A、B、P三点排列方式（逆时针时，Q=-1；顺时针时，Q=1）
显示部分：
XP=××× 所求点P的X坐标
YP=××× 所求点P的Y坐标
算例(已经验证，完全正确)
已知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.8773101
YP=967.9244825