距離后方交會(huì )計算(CASIO fx-4850P計算器)程序
本程序用于全站儀自由設站時(shí)檢驗得到的坐標是否正確，特別是有些無(wú)自由設站功能的全站儀面前尤為重要。
程序名： 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以?xún)?，超出跳回，自己?shí)際調控)
"XP"：X=(G+K)÷2◢
"YP"：Y=(H+L)÷2◢
Goto 1
使用說(shuō)明
1、規定
(1) 未知點(diǎn)為P點(diǎn)，已知點(diǎn)分別為A點(diǎn)、B點(diǎn)；
(2) P點(diǎn)至A點(diǎn)的距離為DPA，P點(diǎn)至B點(diǎn)的距離為DPB；
(3) 當A、B、P三點(diǎn)逆時(shí)針排列時(shí)，Q=-1；當A、B、P三點(diǎn)順時(shí)針排列時(shí)，Q=1。
2、輸入與顯示說(shuō)明
輸入部分：
XA ? 輸入A點(diǎn)的X坐標
YA ？輸入A點(diǎn)的Y坐標
XB ? 輸入B點(diǎn)的X坐標
YB ？輸入B點(diǎn)的Y坐標
D1 ？輸入P點(diǎn)至A點(diǎn)的距離為D1
D2 ？輸入P點(diǎn)至B點(diǎn)的距離為D2
Q ？輸入A、B、P三點(diǎn)排列方式（逆時(shí)針時(shí)，Q=-1；順時(shí)針時(shí)，Q=1）
顯示部分：
XP=××× 所求點(diǎn)P的X坐標
YP=××× 所求點(diǎn)P的Y坐標
算例(已經(jīng)驗證，完全正確)
已知XA=539.3551，YA=602.9159，XB=433.0034，YB=1087.4213，D1=380.7996，D2=245.8664，A、B、P三點(diǎn)排列方式為逆時(shí)針（Q=-1），求P點(diǎn)的坐標。
輸入數據后，經(jīng)計算得
XP=647.8773101
YP=967.9244825
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
