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

来源:百度文库 编辑:神马文学网 时间:2024/04/29 22:14:30
本程序用于全站仪自由设站时检验得到的坐标是否正确,特别是有些无自由设站功能的全站仪面前尤为重要。
程序名: 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