公用模块: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
#
主程序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▲
坐标方位角计算程序置镜点坐标:ZX??ZY后视点坐标:HX??HY方??位??角:W两点间距离:?SLb1?0←?{A??B??C??D}←A〝ZX=〞:B〝ZY=〞:C〝HX=〞:D〝HY=〞:W=tg1((D-B)÷(C-A)):(D-B)>0=>(C-A)>0=>W=W:∟∟(D-B)>0=>(C-A)<0=>W=W180:∟∟(D-B)<0=>(C-A)<0=>W=W180:∟∟(D-B)
主程序 TYQXJSDefm10:Lbl 0: =>XY: =>LC: {V}:V=1=>GOTO 1: ≠> GOTO 2 △Lbl 1: {DZG}:D:ZJL=:GJ=:Z=0=>G=0:△Prog QXYS: Prog ZSZB : X=:X ◢ Y=:Y◢J>360=>J=J-360:△J<0=>J=J360:△FWJ=:J→DMS◢{HU}:HXC:UYC:I=0:J=0:Pol(X-
坐标方位角计算实例 在市政工程 =SE696BDE5B7A5E6B58BE9878Fch== t _blank 施工测量过程中经常会遇到根据已知导线 =SE68EA7E588B6E782B9ch== t _blank 控制点利用 =SE7BB8FE7BAACE4BBAAch== t _blank 经纬仪钢尺测设待定点的实际问题解决此类问题往往需要计算 =SE59D90E6A
=(PI()(1?-?SIGN(B3- B 1)??2)?-?ATAN((A3- A 1)?(B3- B 1)))180PI()Excel?中求方位角公式:a1b1放起始点坐标??a3b3放终点坐标?度分秒格式:=INT((PI()(1?-?SIGN(B3- b 1)??2)?-?ATAN((A3- a 1)?(B3- b 1)))180PI())-?INT(?((PI()(1?-?SIGN
#
坐标计算程序及坐标计算公式坐标计算公式直线段:中桩公式:x=x1(z-c)cosay=y1(z-c)sina边桩公式:x=x1(z-c)cosa±dcos(a-90)y=y1(z-c)sina±dsin(a-90)说明: x1——起点x坐标y1——起点y坐标z——计算点桩号 c——起点桩号a——方位角d——距中桩距离 ±左边桩为右边桩为-方位角计算公式直线段方位角图纸提供若为单一圆曲
:
违法有害信息,请在下方选择原因提交举报