多点距离后方交会计算程序李德彪主程序:PROGDDHFJHCls:Defm 0:Defm 21: 注:先清除以前的扩充变量再扩充21个变量可存7个点3的倍数可变为691215等{Z}:Z: 注:Z为已知点个数Q=1:S=0:T=0:N=0:U=0:注:Q=1为顺时针Q=-1为逆时针此处均按顺时针Lbl 0:{XYD}:U=U1▲ Z[N1]=X:Z[N2]=Y:Z[N3]=D
#
主程序FWJJSCXLb0“”:””{N}:N=1=>Goto 1:≠>Goto 2ΔLb1{AB}:A”XCZ”:B”YCZ”Z[498]=A:Z[499]=BGoto 3Lb2A=Z[498]:B=Z[499]Goto 3Lb3{XY}Prog“FWJZCX”“DIST=”:S=I▲“FWJ=”:F=J ->DMS▲Goto 0子程序FWJZCXJ=0:I=0Pol(X-A,Y-B)JO=>J=J+360:≠>J=J▲
Lbl 1:AD N(X)=A:AD E(N)=B:BD N(X)=C:BDE(Y)=D:PA→DE:PB→DFf红色的字可以不要!Pol(C-A,D-B):If J0:Then J+360→J:Else J→Jf 好像也可以不要但最好留下!(E^2+I^2-F^2)÷(2I)→W: E^2-W^2→HfA+W COS(J)?+H Sin(J)→X:B+W Sin(J)?-H COS(J)→Y
#
#
公用模块:Option ExplicitPublic Const PI = 已知AB两点坐标计算方位角JSFWJ的中文意思是计算方位角Public Function JSFWJ(xa As Double ya As Double xb As Double yb As Double) As Double 已知AB两点坐标计算方位角函数过程 Dim As Double vy As Dou
#
后方交会计算原理已知参数:A点()B点()A-架仪点平距:LaB-架仪点平距:Lb求解方位角:Aab=tan-1((Yb-Ya) (Xb-Xa))= tan-1(() ())= 84°4634Lab=((Xa-Xb)2(Ya-Yb)2)==c求解夹角:C点处夹角cA点处夹角aB点处夹角bC=cos-1((C2- a2-b2)2ab):由余弦定理公式得A=sin-1 (La×sinC)Lab)
后方交会法计算原理已知参数:A点()B点()A-架仪点平距:LaB-架仪点平距:Lb求解方位角:Aab=tan-1((Yb-Ya) (Xb-Xa))= tan-1(() ())= 84°4634Lab=((Xa-Xb)2(Ya-Yb)2)==c求解夹角:C点处夹角cA点处夹角aB点处夹角bC=cos-1((C2- a2-b2)2ab):由余弦定理公式得A=sin-1 (La×sinC)Lab):由
违法有害信息,请在下方选择原因提交举报