当前位置:文档之家› 推算坐标方位角程序

推算坐标方位角程序

推算坐标方位角程序
推算坐标方位角程序

推算坐标方位角程序

分类:土建参考资料

2006.9.5 20:26 作者:小杨 | 评论:0 | 阅读:1922

Option Explicit

Rem **** GPHVB2.VBP ****

Rem **** 奇进偶舍、度分秒与弧度互化、推算坐标方位角程序**** Rem **** 2005/03/23*****

Private Sub Form_Load()

Rem ***** 此为第一个窗体From1.frm ****

Form1.Height = Screen.Height: '**** 设置窗体高占整个屏幕

Form1.Width = Screen.Width: '***** 设置窗体宽占整个屏幕

Form1.Left = 0: '**** 设置窗体位置距离屏幕左端的距离为值零

Form1.Top = 0: '**** 设置窗体位置距离屏幕上端的距离值为零

End Sub

Private Sub GPHT1_Click(index As Integer)

Rem **** 奇进偶舍演示 ****

Rem ——————————————————————————————Rem **** VB提倡使用显示变量,要显示声明变量,方法有二:

Rem **** 1.可在类模块、窗体模块或标准模块的声明段加入如下语句:Rem **** Option Explicit

Rem **** 2.在“工具”菜单中选取“选项”,单击“编辑器”选项卡,Rem **** 再复选“要求变量声明”选项,最后单击“确定”退出,这样Rem **** 就在任何新模块(类模块、窗体模块、标准模块)的声明段中Rem **** 自动插入Option Explicit语句,但不会在已经建立起来的Rem **** 模块中自动插入;所在工程内部,只能用手工方法向现有模Rem **** 块添加 Option explicit 语句。

Rem ——————————————————————————————

Dim A As Integer

Cls

Print

Print Spc(6); "奇进偶舍演示"

Print

Print Spc(6); "PI()"

For A = 1 To 20

Print Spc(6); LTrim$(A); " NNN="; NNN(PI(), A)

'DO

'Loop Until INKEY$<>""

Next A

End Sub

Private Function NNN(ByVal NM As Double, ByVal BB As Integer) As Double Rem **** 奇进偶舍函数 ****

Rem **** NM为需要奇进偶舍的变量,BB为NM这个变量需要保留的小数点后面的位数 *****

Rem **** 分别用NM=PI()、BB=1、2、……

Rem **** NM=1.2225、BB=3

Rem **** NM=1.2235、BM=3 来验证该FUNCTION过程的正确性 ****

Dim BNM As Double

Dim C As Integer

Dim J As Integer

Dim K As Integer

Dim I As Double

C = Sgn(NM)

BNM = Abs(NM)

I = (BNM * 10 ^ (BB + 1) + 10 ^ (-11)) - 10 * Fix(BNM * 10 ^ BB + 10 ^ (-11))

I = (Fix(I * 10 ^ 10)) / 10 ^ 10

J = Fix(BNM * 10 ^ BB + 10 ^ (-11)) - 10 * Fix(BNM * 10 ^ (BB - 1) + 10 ^ (-110))

If I > 5 Then

K = 1

ElseIf I < 5 Then

K = 0

ElseIf (I = 5 And J = 2 * Fix(J / 2)) Then

K = 0

Else

K = 1

End If

NNN = C * Fix(BNM * 10 ^ BB + K) / 10 ^ BB

End Function

Private Static Function PI() As Double

Rem ****** 计算PI *******

PI = 4 * Atn(1)

End Function

Private Sub GPHT2_CLICK(index As Integer)

Rem ****** DEG->RAD 演示******

Dim D As String

Cls

'D="0 00 00"

'D="0 12 55"

'D="2 12 55"

'D = "12 36 56"

'D="233 12 45"

'D="-233 12 45"

Print

Print Spc(6); "DEG->RAD 演示"

Print

Print Spc(6); "DEG$="; D

Print Spc(6); "RAD="; RAD(D)

'*******当D$="12 36 56 " 时 , RAD=0.220182981***** End Sub

Private Function RAD(ByVal DEGREE As String) As Double Rem **** XXX°XX′XX"->rad *****

Rem **** DEGREE$如"12 45 18"的形式****

Rem **** 应加上如下功能:1.测试DEGREE$是否带有+-号;Rem **** 2.测试度和分之间的空格之间有多少字符

Dim DEG11 As Double

Dim DEG12 As Double

Dim DEG13 As Double

DEG11 = Val(Left$(DEGREE, 3))

DEG12 = Val(Mid$(DEGEE, 5, 2)) / 60

DEG13 = Val(Right$(DEGEE, 2)) / 3600

RAD = (DEG11 + DEG12 + DEG13) * PI() / 180

End Function

Private Sub GPHT3_CLICK(index As Integer)

Rem **** RAD->DEG演示****

Dim RADIAN As Double

Cls

RADIAN = -2.1234

Print

Print Spc(6); "RAD->DEG演示"

Print

Print Spc(6); "RAD="; RADIAN

Print Spc(6); "DEG$="; DEG(RADIAN)

End Sub

Private Function DEG(ByVal RAD As Double) As String

Rem ****RAD->#XXX°XX'XX″****

Rem ****#号表示输出XXX°XX′XX″前应带有的符号,其若为"-"号,即取之;Rem **** 其若为“+”号,使空格顶位。

Rem **** 新增编一个功能:秒值输出时,可选小数点后保留的位数BB****

Dim SIGN As Integer, WE As Integer

Dim G As String

Dim DEGREE As Double, DEG21 As Double, DEG31 As Double

Dim I As Integer

Dim DEG1 As String, DEG2 As String, DEG3 As String

Dim DEG11 As Integer, DEG22 As Integer

Dim DEG33 As Double

Dim BB As Integer

Rem **** BB 为秒值输出时,可选小数点后保留的位数****

Rem **** BB 取值范围;0≤BB≤5****

BB = 2: '**** 此为演示事例的取值****

SIGN = Sgn(RAD)

If SIGN < 0 Then G = "-" Else G = ""

DEGREE = Abs(RAD * 180 / PI())

If DEGREE < 10 ^ (-10) Then I = 0 Else I = 1

Select Case I

Case 0

DEG1 = " 0"

DEG2 = " 00"

DEG3 = " 00"

If BB > 0 Then

DEG3 = DEG3 + "." + String$(BB, "0")

End If

Case Else

DEG11 = Fix(DEGREE)

DEG21 = (DEGREE - DEG11) * 60

DEG22 = Fix(DEG21)

DEG31 = (DEG21 - DEG22) * 60

'DEG33=Cint(DEG31;**** 当秒值只为整数时,采用此公式 ****

DEG33 = NNN(DEG31, BB): '****当秒值输出时,可选小数点后保留的位数时,采用此公式 ****

DEG1 = LTrim$(Str$(DEG11)) + ""

DEG2 = LTrim$(Str$(DEG22))

DEG3 = LTrim$(Str$(DEG33))

If Len(DEG2) = 1 Then DEG2 = "0" + DEG2 Else DEG2 = DEG2

If Len(DEG3) = 1 Then DEG3 = "0" + DEG3 Else DEG3 = DEG3

DEG2 = DEG2 + ""

WE = Len(DEG1)

Select Case WE

Case 1

DEG1 = "" + DEG1

Case 2

DEG1 = "" + DEG1

Case 3

DEG1 = DEG1

End Select

DEG = G + DEG1 + DEG2 + DEG3

End Function

Private Sub GPHT7_CLICK(index As Integer)

Rem **** 推算坐标方位角菜单子过程 ****

Dim TT12 As String: '****声明起算坐标方位角变量

Dim TTAN As Double: '**** 声明所推算终边的坐标方位角变量

Dim N As Integer: '**** 声明推算坐标方位角所使用的折角个数变量

N = 3: '**** 这里设推算坐标方位角所使用的折角个数为3

ReDim PP(1 To N) As String: '**** 声明推算坐标方位角所使用的折角变量,左折角取正号,右折角取负号

TT12 = " 228 06 06"

PP(1) = "273 12 50"

PP(2) = "-106 47 10"

PP(3) = "79 34 18"

PP(4) = ""

'PP(5)=""

TTAN = RAD(TT12) + RAD(PP(1)) + RAD(PP(2)) + RAD(PP(3)) + N * PI(): '**** 转换为弧度

TTAN = TTAN(TTAN): '**** 调用Function TTNN(ByVal TTRAD As Double)函数

CurrentX = 2000

CurrentX = 1000

Print "TTAN="; DEG(TTAN, 0): '**** 输出的结果应为“294 06 04”

End Sub

Private Function TTNN(ByVal TTRAD As Double) As Double

Rem **** 推算坐标方位角子过程,主要目的是将角处理为〔0度,360度) ****

Do

If TTRAD >= 2 * PI() Then

TTRAD = TTRAD - 2 * PI()

ElseIf TTRAD < 0 Then

TTRAD = TTRAD + 2 * PI()

End If

If TTRAD >= 0 And TTRAD < 2 * PI() Then Exit Do

End If

Loop

TTNN = TTRAD

End Function

坐标方位角计算

=(PI()*(1 - SIGN(B3-$B$1) / 2) - ATAN((A3-$A$1) /(B3-$B$1)))*180/PI() Excel 中求方位角公式:a1,b1放起始点坐标 a3,b3放终点坐标。 度分秒格式: =INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/PI()) &"-"& INT( ((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180 /PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/ PI()))*60)&"-"&INT( (((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3- $b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3- $b$1)))*180/PI()))*60-INT(((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) / (B3-$b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) / (B3-$b$1)))*180/PI()))*60))*600)/10 其中:A1,B1中存放测站坐标,a3,b3放终点坐标。 上面的计算出来的是度分秒格式,也就是字符串格式,不能用来计算,只是用来看的哟! 下面这个简单一点: =INT((PI()*(1-SIGN(C6-C4)/2)-ATAN((B6-B4)/(C6-C4)))*180/PI())*10000+INT(((PI()*(1-S IGN(C6-C4)/2)-ATAN((B6-B4)/(C6-C4)))*180/PI()-INT((PI()*(1-SIGN(C6-C4)/2)-ATAN((B6-B4) /(C6-C4)))*180/PI()))*60)*100+(((PI()*(1-SIGN(C6-C4)/2)-ATAN((B6-B4)/(C6-C4)))*180/PI()-I NT((PI()*(1-SIGN(C6-C4)/2)-ATAN((B6-B4)/(C6-C4)))*180/PI()))-(INT(((PI()*(1-SIGN(C6-C4)/ 2)-ATAN((B6-B4)/(C6-C4)))*180/PI()-INT((PI()*(1-SIGN(C6-C4)/2)-ATAN((B6-B4)/(C6-C4)))*1 80/PI()))*60))/60)*3600 Excel 中求方位角公式:a1,b1放起始点坐标 a3,b3放终点坐标。 求距离公式: =Round(SQRT(POWER((A3-$A$1),2)+POWER((B3-$B$1),2)),3)

坐标方位角计算

二 计算坐标与坐标方位角的基本公式 控制测量的主要目的是通过测量和计算求出控制点的坐标,控制点的坐标是根据边长及方位角计算出来的。下面介绍计算坐标与坐标方位角的基本公式,这些公式是矿山测量工中最基本最常用的公式。 一、坐标正算和坐标反算公式 1.坐标正算 根据已知点的坐标和已知点到待定点的坐标方位角、边长计算待定点的坐标,这种计算在测量中称为坐标正算。 如图5—5所示,已知A 点的坐标为A x 、A y ,A 到B 的边长和坐标方位角分别为AB S 和AB α,则待定点B 的坐标为 AB A B AB A B y y y x x x ?+=?+= } (5—1) 式中 AB x ? 、AB y ?——坐标增量。 由图5—5可知 AB AB AB AB AB AB S y S x ααsin cos =?=? } (5—2) 式中 AB S ——水平边长; AB α——坐标方位角。 将式(5-2)代入式(5-1),则有 AB AB A B AB AB A B S y y S x x ααsin cos +=+= }

(5—3) 当A 点的坐标A x 、A y 和边长AB S 及其坐标方位角AB α为已知时,就可以用上述公式计算出待定点B 的坐标。式(5—2)是计算坐标增量的基本公式,式(5—3)是计算坐标的基本公式,称为坐标正算公式。 从图5—5可以看出AB x ?是边长AB S 在x 轴上的投影长度, AB y ?是边长AB S 在 y 轴上的投影长度,边长是有向线段,是在 实地由A 量到B 得到的正值。而公式中的坐标方位角可以从0°到360°变化,根据三角函数定义,坐标方位角的正弦值和余弦值就有正负两种 情况,其正负符号取决于坐标方位角所在的象限,如图5—6所示。从式(5—2)知,由于三角函数值的正负决定了坐标增量的正负,其符号归纳成表5—3。

104373_坐标方位角计算公式

坐标方位角计算公式(通用) 用极坐标法放样必须计算出测站点(仪器点)到放样点得距离和方位角,才能进行放样。 原计算公式为: S12=sqr( (x2-x1)2+(y2-y1)2)= sqr(△x221+△y221) A12=arcsin((y2-y1)/S12) S12为测站点1至放样点2的距离; A12为测站点1至放样点2的坐标方位角。 x1,y1为测站点坐标; x2,y2为放样点坐标。 按公式A12=arcsin((y2-y1)/S12)计算出的方位角都要进行象限判断后加常数才是真正的方位角。 新计算公式为: A12=arccos(△x21/S12)*sgn(△y21)+360° 式中sgn()为取符号函数,改公式只需加上条件(A12>360°, A12= A12-360°)就可以计算出坐标方位角,不需要进行象限判断。 我的这个公式要更好一些,计算结果就是正确结果: SGN是正负号的函数。括号内的数字大于零SGN()就是+号,反之就是-号。

===================================函数开始=================================== 'jiaodu10(x,splitStr)函数将60进制度转换为10进制度格式.x为度数,splitStr为分隔符号,'如x为43%67%367,则splitStr为"%",参数要用双引号括起来,jiaodu10("x","%") Function jiaodu10(x,splitStr) If InStr(1,x,splitStr) Then Dim s s=Split(x,splitStr) jiaodu10=s(0)+s(1)/60+s(2)/3600 Else jiaodu10="错误" End If End Function '-------------------------------------------------------------------------------- 'jiaodu60(x,splitStr)函数将10进制度转换为60进制度格式,splitStr分隔表示 'x为数字,可以不用双引号括起来,参数splitStr要用双引号括起来iaodu10(12.31313,"-") Function jiaodu60(x,splitStr) Dim fen,miao Fen =Round((fen-Int(fen))*60,0) If miao >= 60 Then miao = miao-60 fen = fen+1 End If jiaodu60=Int(x) & splitStr & Int(fen) & splitStr & miao End Function '-------------------------------------------------------------------------------- 'juli(待算点纵坐标x,待算点横坐标y,测站点纵坐标m,测站点纵坐标n)用于计算距离。 Function juli(x,y,m,n) juli=Math.Spr((x-m)^2+(y-n)^2) End Function '-------------------------------------------------------------------------------- 'jiaodu(x,y,m,n)计算角度 Function jiaodu(x,y,m,n) Dim dx,dy,a,jdu10 dx=x-m dy=y-m a=Math.Abs(Math.Atn(dy/dx) * 180 / 3.14159265) jdu10=0 If (dx > 0) Then If (dy > 0) Then jdu10 = a Else jdu10 = 360-a End If Else If (dy > 0) Then jdu10 = 180-a

(完整word版)坐标方位角计算

二 计算坐标与坐标方位角的基本公式 控制测量的主要目的是通过测量和计算求出控制点的坐标,控制点的坐标是根据边长及方位角计算出来的。下面介绍计算坐标与坐标方位角的基本公式,这些公式是矿山测量工中最基本最常用的公式。 一、坐标正算和坐标反算公式 1.坐标正算 根据已知点的坐标和已知点到待定点的坐标方位角、边长计算待定点的坐标,这种计算在测量中称为坐标正算。 如图5—5所示,已知A 点的坐标为A x 、A y ,A 到B 的边长和坐标方位角分别为AB S 和AB α,则待定点B 的坐标为 AB A B AB A B y y y x x x ?+=?+= } (5—1) 式中 AB x ? 、AB y ?——坐标增量。 由图5—5可知 AB AB AB AB AB AB S y S x ααsin cos =?=? } (5—2) 式中 AB S ——水平边长; AB α——坐标方位角。 将式(5-2)代入式(5-1),则有 AB AB A B AB AB A B S y y S x x ααsin cos +=+= }

(5—3) 当A 点的坐标A x 、A y 和边长AB S 及其坐标方位角AB α为已知 时,就可以用上述公式计算出待定点B 的坐标。式(5—2)是计算坐标增量的基本公式,式(5—3)是计算坐标的基本公式,称为坐标正算公式。 从图5—5可以看出AB x ?是边长AB S 在x 轴上的投影长度, AB y ?是边长AB S 在y 轴上的投影长度,边长是有向线段,是在 实地由A 量到B 得到的正值。而公式中的坐标方位角可以从0°到360°变化,根据三角函数定义,坐标方位角的正弦值和余弦值就有正负两种 情况,其正负符号取决于坐标方位角所在的象限,如图5—6所示。从式(5—2)知,由于三角函数值的正负决定了坐标增量的正负,其符号归纳成表5—3。

(完整word版)坐标方位角计算.doc

二计算坐标与坐标方位角的基本公式 控制测量的主要目的是通过测量和计算求出控制点的坐 标,控制点的坐标是根据边长及方位角计算出来的。下面介 绍计算坐标与坐标方位角的基本公式,这些公式是矿山测量 工中最基本最常用的公式。 一、坐标正算和坐标反算公式 1.坐标正算 根据已知点的坐标和已知点到待定点的坐标方位角、边长 计算待定点的坐标,这种计算在测量中称为坐标正算。 如图 5—5 所示,已知 A 点的坐标为x A、y A,A 到 B 的边长和坐标方位角分别为 S AB和AB,则待定点B的坐标为 x B x A x AB } y B y A y AB (5— 1) 式中x AB、y AB——坐标增量。 由图 5—5 可知 x AB S AB cos y AB S AB sin AB }AB (5— 2) 式中S AB——水平边长; AB ——坐标方位角。 将式( 5-2 )代入式( 5-1 ),则有 x B x A S AB cos AB } y B y A S AB sin AB

(5— 3) 当 A 点的坐标x A、y A和边长S AB及其坐标方位角AB 为已知时,就可以用上述公式计算出待定点 B 的坐标。式(5— 2)是计算坐标增量的基本公式,式(5— 3)是计算坐标的基本 公式,称为坐标正算公式。 从图 5—5 可以看出x AB是边长 S AB在x轴上的投影长度, y AB是边长 S AB在y轴上的投影长度,边长是有向线段,是在 实地由 A 量到 B 得到的正值。而公式中的坐标方位角可以从 0°到 360°变化,根据三角函数定义,坐标方位角的正弦值 和余弦值就有正负两种 情况,其正负符号取决于坐标方位角所在的象限,如图5— 6 所示。从式( 5—2)知,由于三角函数值的正负决定了坐标 增量的正负,其符号归纳成表 5— 3。

坐标方位角计算实例

坐标方位角计算实例 在市政工程施工测量过程中,经常会遇到根据已知导线控制点,利用经纬仪、钢尺测设待定点的实际问题,解决此类问题往往需要计算坐标方位角或点位坐标,根据工作中实践体会将计算方法总结如下: 1 根据已知控制点计算坐标方位角,测设放样点平面位置(极坐标法) 首先明确方位角的概念,方位角是指从直线起点的标准方向北端开始,顺时针量到直线的夹角,以坐标纵轴作为标准方向的称为坐标方位角(以下简称方位角)。测量上选用的平面直角坐标系,规定纵坐标轴为x轴,横坐标轴为y轴,象限名称按顺时针方向排列(图1),即第Ⅰ象限x>0 y>0;第Ⅱ象限x<0 y>0;第Ⅲ象限x<0 y<0;第Ⅳ象限x>0 y<0,或许对于测量坐标系与数学坐标系的x、y 轴位置不同,象限规定不同,觉得难理解,其实能注意到测量上的平面直角坐标系与数学上的平面直角坐标系只是规定不同,x轴与y轴互换,象限的顺序与相反,因为轴向与象限顺序同时都改变,只要真正理解了方位角的定义,测量坐标系的实质与数学上的坐标系是一致的,因此数学中的公式可以直接应用到测量计算中。 1.1 按给定的坐标数据计算方位角αBA、αBP ΔxBA=xA-xB=+123.461m ΔyBA=yA-yB=+91.508m 由于ΔxBA>0,ΔyBA>0 可知αBA位于第Ⅰ象限,即 αBA=arctg =36°32'43.64" ΔxBP=xP-xB=-37.819m ΔyBP=yP-yB=+9.048m 由于ΔxBP<0,ΔyBP>0 可知αBP位于第Ⅱ象限, αBP=180o-α=180o-arctg=180o-13o27'17.33"=166°32'42.67" 此外,当Δx<0,Δy<0;位于第Ⅲ象限,方位角=180°+ arctg 当Δx>0,Δy<0;位于第Ⅳ象限,方位角=360°+ arctg 1.2 计算放样数据∠PBA、DBP ∠PBA=αBP-αBA=129°59'59.03" 1.3 测设时,把经纬仪安置在B点,瞄准A点,按顺时针方向测设∠PBA,得到BP方向,沿此方向测设水平距离DBP,就得到P点的平面位置。 2 当受地形限制不便于量距时,可采用角度交会法测设放样点平面位置 上例中,当BP间量距受限时,通过计算测设∠PAB、∠PBA来定P点

坐标自动计算表格

K18+000-K20+934.86(1075m) 桩号偏距X(m)Y(m)方位角高程1808002961525.733487467.350137.72801651 1808502961529.688487470.409737.72801651 1809002961533.642487473.469237.72801651 1809502961537.597487476.528837.72801651 1810002961541.551487479.588437.72801651 1810502961545.506487482.64837.72801651 1811002961549.461487485.707537.72801651 1811502961553.415487488.767137.72801651 1812002961557.37487491.826737.72801651 1812502961561.325487494.886237.72801651 1813002961565.279487497.945837.72801651 1813502961569.234487501.005437.72801651 1814002961573.188487504.064937.72801651 1814502961577.143487507.124537.72801651 1815002961581.098487510.184137.72801651 1815502961585.052487513.243637.72801651 1816002961589.007487516.303237.72801651 1816502961592.962487519.362837.72801651 1817002961596.916487522.422437.72801651 1817502961600.871487525.481937.72801651 1818002961604.825487528.541537.72801651 1818502961608.78487531.601137.72801651 1819002961612.735487534.660637.72801651 1819502961616.689487537.720237.72801651 1820002961620.644487540.779837.72801651 1820502961624.599487543.839337.72801651 1821002961628.553487546.898937.72801651 1821502961632.508487549.958537.72801651 1822002961636.462487553.01837.72801651 1822502961640.417487556.077637.72801651 1823002961644.372487559.137237.72801651 1823502961648.326487562.196837.72801651 第 1 页,共 23 页

测量常用计算公式.

测量常用计算公式 一、 方位角的计算公式 二、 平曲线转角点偏角计算公式 三、 平曲线直缓、缓直点的坐标计算公式 四、 平曲线上任意点的坐标计算公式 五、 竖曲线上点的高程计算公式 六、 超高计算公式 七、 地基承载力计算公式 八、 标准差计算公式 一、 方位角的计算公式 1. 字母所代表的意义: x 1:QD 的X 坐标 y 1:QD 的Y 坐标 x 2:ZD 的X 坐标 y 2:ZD 的Y 坐标 S :QD ~ZD 的距离 α:QD ~ZD 的方位角 2. 计算公式: ()()212212y y x x S -+-=

1)当y 2- y 1>0,x 2- x 1>0时:1 21 2x x y y arctg --=α 2)当y 2- y 1<0,x 2- x 1>0时:1 21 2360x x y y arctg --+?=α 3)当x 2- x 1<0时:1 21 2180x x y y arctg --+?=α 二、 平曲线转角点偏角计算公式 1. 字母所代表的意义: α1:QD ~JD 的方位角 α2:JD ~ZD 的方位角 β:JD 处的偏角 2. 计算公式: β=α2-α1(负值为左偏、正值为右偏) 三、 平曲线直缓、缓直点的坐标计算公式 1. 字母所代表的意义: U :JD 的X 坐标 V :JD 的Y 坐标 A :方位角(ZH ~JD ) T :曲线的切线长,23 22402224R L L D tg R L R T s s s -+??? ? ??+= D :JD 偏角,左偏为-、右偏为+

2. 计算公式: 直缓(直圆)点的国家坐标:X ′=U+Tcos(A+180°) Y ′=V+Tsin(A+180°) 缓直(圆直)点的国家坐标:X ″=U+Tcos(A+D) Y ″=V+Tsin(A+D) 四、 平曲线上任意点的坐标计算公式 1. 字母所代表的意义: P :所求点的桩号 B :所求边桩~中桩距离,左-、右+ M :左偏-1,右偏+1 C :J D 桩号 D :JD 偏角 L s :缓和曲线长 A :方位角(ZH ~JD ) U :JD 的X 坐标 V :JD 的Y 坐标 T :曲线的切线长,23 22402224R L L D tg R L R T s s s -+??? ? ??+= I=C -T :直缓桩号 J=I+L :缓圆桩号 s L DR J H -+ =180 π:圆缓桩号

工程测量计算坐标

知道方位角和距离怎么计算坐标 设原点坐标为(x,y),那么计算坐标(x1,y1)为 x1=x+s·cosθ y1=y+s·sinθ 其中θ为方位角,s为距离 CAD里计算方位角和距离 CAD默认的世界坐标系跟测量上用的坐标系是不同的。世界坐标系中的X即测量坐标系中的Y,世界坐标系中的Y即测量坐标系中的X。 不知道你是不是要编程的方法或源程序?下面是在CAD下的常用操作方法: 用命令id可以查看点的XYZ坐标 例如: 命令: '_id 指定点: X = 517.0964 Y = 431.1433 Z = 0.0000 命令: ID 指定点: X = 879.0322 Y = 267.6949 Z = 0.0000 用命令dist(快捷命令di)即可知道两点间的角度和距离 例如: 命令: '_dist 指定第一点: 指定第二点: 距离 = 397.1308,XY 平面中的倾角 = 335d41'46.7",与 XY 平面的夹角 = 0d0'0.0" X 增量 = 361.9358, Y 增量 = -163.4483, Z 增量 = 0.0000 其中的“XY 平面中的倾角= 335d41'46.7”是世界坐标系内的平面夹角,用450度减去这个值335d41'46.7"即是坐标方位角114°18′13.3〃。 你可以用计算器验算一下,点1、X = 431.1433,Y = 517.0964;点2、X = 267.6949,Y = 879.0322的坐标方位角和距离值是不是114°18′13.3〃和397.131m。 已知两坐标点求方位角和距离的计算公式 如点A(X1,Y1 ) 点B(X2,Y2) A到B的方位角为:Tan(Y2-Y1)/(X2-X1)其中(X2-X1)>0时加360°,(X2-X1)<0时加180° 而距离就是((X2-X1)平方+(Y2-Y1)平方)最后开方得到的值即为A到B距离 方位角坐标计算公式

三种方位角之间的关系

【方位角(azimuthangle)】从某点的指北方向线起,依顺时针方向到目标方向线之间的水平夹角,叫方位角。 (一)方位角的种类由于每点都有真北、磁北和坐标纵线北三种不同的指北方向线,因此,从某点到某一目标,就有三种不同方位角。 (1)真方位角。某点指向北极的方向线叫真北方向线,而经线,也叫真子午线。由真子午线方向的北端起,顺时针量到直线间的夹角,称为该直线的真方位角,一般用A表示。通常在精密测量中使用。 (2)磁方位角。地球是一个大磁体,地球的磁极位置是不断变化的,某点指向磁北极的方向线叫磁北方向线,也叫磁子午线。在地形图南、北图廓上的磁南、磁北两点间的直线,为该图的磁子午线。由磁子午线方向的北端起,顺时针量至直线间的夹角,称为该直线的磁方位角,用A m表示。 (3)坐标方位角。由坐标纵轴方向的北端起,顺时针量到直线间的夹角,称为该直线的坐标方位角,常简称方位角,用α表示。方位角在测绘、地质与地 球物理勘探、航空、航海、炮兵射击及部队行进时等,都广泛使用。不同的方位 角可以相互换算。军事应用:为了计算方便精确,方位角的单位不用度,用密位作单位。换算作:360度=6000密位。 【三种方位角之间的关系】 因标准方向选择的不同,使得同一条直线有三种不同的方位角,三种方位角 之间的关系如图4-19所示。 A12 为真方位角,A m12为磁方位角,α12为坐标方位角。 过1点的真北方向与磁北方向之间的夹角称为磁偏角(δ),过1点的真北方 向与坐标纵轴北方向之间的夹角称为子午线收敛角(γ)。 真方位角A12=磁方位角A m12+磁偏角δ=坐标方位角α12+子午线收敛角γ α12=A m12+δ-γ(1) A12=A m12+δ(2) A12=α12+γ(3) (4) δ和γ的符号规定相同:当磁北方向或坐标纵轴北方向在真北方向东侧时,δ和γ的符号为“+”;当磁北方向或坐标纵轴北方向在真北方向西侧时,δ和γ的符号为“-”。 同一直线的三种方位角之间的关系为(注意在计算时带上δ和γ的符号): 坐标方位角和大地方位角的关系示意图

角度,坐标测量计算定律明细介绍

计算细则 1、坐标计算: X1=X+Dcosα, Y1=Y+Dsinα。 式中Y、X为已知坐标,D为两点之间的距离,Α为方位角。 2、方位角计算: 1)、方位角=tan=两坐标增量的比值,然后用计算器按出他们的反三角函数(±号判断象限)。 2)、方位角:arctan(y2-y1)/(x2-x1)。加减180(大于180就减去180(还大于360就在减去360)、小于180就加180 如果x轴坐标增量为负数,则结果加180°。如果为正数,则看y轴的坐标增量,如果Y轴上的结果为正,则算出来的结果就是两点间的方位角,如果为负值,加360°。S=√(y 2-y1)+(x2-x1), 1)、当y2-y1>0,x2-x1>0时;α=arctan(y2-y1)/(x2-x 1)。 2)、当y2-y1<0,x2-x1>0时;α=360°+arctan(y2-y1)/(x 2-x1)。 3)、当x2-x1<0时;α=180°+arctan(y2-y1)/(x2-x1)。

再用两点之间的距离公式可算距离(根号下两个坐标距离差的平方相加)。拨角:arctan(y2-y1)/(x2-x1) 1、例如:两条巷道要互相平行掘进的话,求它们的拨角:方法(前视边方位角减后视边方位)在此后视边方位要加减180°,若拨角结果为负值为左偏“逆时针”(+360°就可化为右偏,正值为右偏“顺时针”。 2、在图上标识方位的方法:就是导线边与Y轴的夹角。 3、高程计算: 目标高程=测点高程+?h+仪器高—占标高。 4、直角坐标与极坐标的换算: (直角坐标用坐标增量表示;极坐标用方位角和边长表示) 1)、坐标正算(极坐标化为直角坐标)已知一个点的坐标及该点至未知点的距离和方位角,计算未知点坐标方位角, 知A(Xa,Ya)、Sab、αab,求B(Xa,Ya) 解:?Xab=Sab×COSαab 则有Xb=Xa+?Xab ?Yab=Sab×SINαab Yb=Ya+?Yab 2)、坐标反算,已知两点的坐标,求两点的距离(称反算边长)和方位角(称反算方位角)的方法 已知A(Xa,Ya)、B(Xb,Yb),求αab、Sab。

曲线计算线元方位角及坐标

高速公路线路(缓和曲线、竖曲线、圆曲β 一、缓和曲线上的点坐标计算 已知:①缓和曲线上任一点离ZH 点的长度:l ②圆曲线的半径:R ③缓和曲线的长度:l 0 ④转向角系数:K(1或-1) ⑤过ZH 点的切线方位角:F ⑥点ZH 的坐标:x Z ,y Z 计算过程: 说明:当曲线为左转向时,K=1,为右转向时,K=-1, 公式中n 的取值如下: 当计算第二缓和曲线上的点坐标时,则: l 为缓和曲线上任一点到点HZ 的长度; F 为过点HZ 的切线方位角再加上 180° K 值与计算第一缓和曲线时相反; x Z ,y Z 为点HZ 的坐标 切线角计算公式:

二、圆曲线上的点坐标计算 已知:①圆曲线上任一点离ZH点的长度:l ②圆曲线的半径:R ③缓和曲线的长度:l 0④转向角系数:K(1或-1) ⑤过ZH点的切线方位角:α ⑥点ZH的坐标:x Z,y Z 计算过程: 说明:当曲线为左转向时,K=1,为右转向时,K=-1,公式中n的取值如下:

当只知道HZ点的坐标时,则: l为到点HZ的长度 α为过点HZ的切线方位角再加上180°K值与知道ZH点坐标时相反x Z,y Z为点HZ的坐标 三、曲线要素计算公式各符号说明:

l——任意点到起点的曲线长度(或缓曲上任意点到缓曲起点的长度) l1——第一缓和曲线长度 l2——第二缓和曲线长度 l0——对应的缓和曲线长度 R——圆曲线半径R1——曲线起点处的半径R2——曲线终点处的半径P1——曲线起点处的曲率P2——曲线终点处的曲率α——曲线转角值 四、竖曲线上高程计算 已知:①第一坡度:i 1 (上坡为“+”,下坡为“-”) ②第二坡度:i 2 (上坡为“+”,下坡为“-”) ③变坡点桩号:S Z ④变坡点高程:H Z ⑤竖曲线的切线长度:T ⑥待求点桩号:S 计算过程:

道路测量坐标计算实例及公用公式

道路测量坐标计算 一:坐标方位角计算 如图所示,已知),(A A y x A ,),(B B y x B ,计算方位角AB α。 B (x B , y B ) A (x A , y A ) αA B x O y A 、 B 点坐标关系 坐标方位角AB α 备注 B A y y < 90 y 轴正半轴上 B A y y = 任意值 原点O 上,即A 、B 点重合 B A x x = B A y y > 270 y 轴负半轴上 B A y y < A B A B x x y y --arctan 第Ⅰ象限 B A y y = x 轴正半轴上 B A x x < B A y y > A B A B x x y y --+arctan 360 第Ⅳ象限 B A y y < A B A B x x y y --+arctan 180 第Ⅱ象限 B A y y = 180 x 轴负半轴上 B A x x > B A y y > A B A B x x y y --+arctan 180 第Ⅲ象限 注:在EXCLE 中,可统一用公式ATAN2(x B -x A ,y B -y A )

二:直线段坐标计算 如图所示,已知),(A A y x A ,距离l L AB =,d L BC =方位角AB α, 计算),(B B y x B 、),(C C y x C 。 B (x B , y B ) A (x A , y A ) αA B x O y C (x C , y C ) αA C l d l ' 1、),(B B y x B ???+=+=AB A B AB A B l y y l x x ααsin cos 2、),(C C y x C 方法一:利用B 点求C 点 ???±+=±+=)90sin()90cos( AB B C AB B C d y y d x x αα

EXCEL表格中计算方位角

电子表格中求方位角公式 度格式: =(PI()*(1 - SIGN(B3-$B$1) / 2) - ATAN((A3-$A$1) /(B3-$B$1)))*180/PI() Excel 中求方位角公式:a1,b1放起始点坐标 a3,b3放终点坐标。 度分秒格式: =INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/PI()) &"-"& INT( ((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180 /PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/ PI()))*60)&"-"&INT( (((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3- $b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3- $b$1)))*180/PI()))*60-INT(((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) / (B3-$b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) / (B3-$b$1)))*180/PI()))*60))*600)/10 其中:A1,B1中存放测站坐标,a3,b3放终点坐标。 上面的计算出来的是度分秒格式,也就是字符串格式,不能用来计算,只是用来看的哟!下面这个简单一点: =(PI()*(1 - SIGN(B3-B1) / 2) - ATAN((A3-A1) /(B3-B1)))*180/PI() Excel 中求方位角公式:a1,b1放起始点坐标 a3,b3放终点坐标。 求距离公式: =Round(SQRT(POWER((A3-$A$1),2)+POWER((B3-$B$1),2)),3)

方位角计算

三、三种方位角之间的关系 因标准方向选择的不同,使得一条直线有不同的方位角,如图4-19所示。过1点的真北方向与磁北方向之间的夹角称为磁偏角,用δ表示。过1点的真北方向与坐标纵轴北方向之间的夹角称为子午线收敛角,用γ表示。 δ和γ的符号规定相同:当磁北方向或坐标纵轴北方向在真北方向东侧时,δ和γ的符号为“+”;当磁北方向或坐标纵轴北方向在真北方向西侧时,δ和γ的符号为“-”。同一直线的三种方位角之间的关系为: δ+=m A A (4-14); γα+=A (4-15); γδα-+=M A (4-16) 四、坐标方位角的推算 1.正、反坐标方位角 2 图4-19 三种方位角之间的关系

如图4-20所示,以A 为起点、B 为终点的直线AB 的坐标方位角αΑB ,称为直线AB 的坐标方位角。而直线BA 的坐标方位角αBA ,称为直线AB 的反坐标方位角。由图4-20中可以看出正、反坐标方位角间的关系为: ?±=180BA AB αα (4-17) 2.坐标方位角的推算 在实际工作中并不需要测定每条直线的坐标方位角,而是通过与已知坐标方位角的直线连测后,推算出各直线的坐标方位角。如图4-21所示,已知直线12的坐标方位角α12,观测了水平角β2和β3,要求推算直线23和直线34的坐标方位角。 y 图4-20 正、反坐标方位角

由图4-21可以看出: 21222123180βαβαα-?+=-= 32333234180βαβαα+?+=+= 因β2在推算路线前进方向的右侧,该转折角称为右角;β3在左侧,称为左角。从而可归纳出推算坐标方位角的一般公式为: 左后前βαα+?+=180 (4-18) 右后前βαα-?+=180 (4-19) 计算中,如果α前>360?,应自动减去360°;如果α前 <0?,则自动加上360?。 五、象限角 1 3 4 图4-21 坐标方位角的推算

坐标正反算定义及公式

第六章→第三节→导线测量内业计算 导线计算的目的是要计算出导线点的坐标,计算导线测量的精度是否满足要求。首先要查实起算点的坐标、起始边的方位角,校核外业观测资料,确保外业资料的计算正确、合格无误。 一、坐标正算与坐标反算 1、坐标正算 已知点的坐标、边的方位角、两点间的水平距离,计算待定点的坐标,称为坐标正算。如图6-6 所示,点的坐标可由下式计算: 式中、为两导线点坐标之差,称为坐标增量,即:

【例题6-1】已知点A坐标,=1000、=1000、方位角 =35°17'36.5",两点水平距离=200.416,计算点的坐标? 35o17'36.5"=1163.580 35o17'36.5"=1115.793 2、坐标反算 已知两点的坐标,计算两点的水平距离与坐标方位角,称为坐标反算。如图6-6可知,由下式计算水平距离与坐标方位角。 (6-3) (6-4) 式中反正切函数的值域是-90°~+90°,而坐标方位角为0°~360°,因此坐标方位角的值,可根据、的正负号所在象限,将反正切角值换算为坐标方位角。 【例题6-2】=3712232.528、=523620.436、 =3712227.860、=523611.598,计算坐标方位角计算坐标方位角 、水平距离。

=62°09'29.4"+180°=242°09'29.4" 注意:一直线有两个方向,存在两个方位角,式中:、 的计算是过A点坐标纵轴至直线的坐标方位角,若所求坐标方位角为,则应是A点坐标减点坐标。 坐标正算与反算,可以利用普通科学电子计算器的极坐标和直角坐标相互转换功能计算,普通科学电子计算器的类型比较多,操作方法不相同,下面介绍一种方法。 【例题6-3】坐标反算,已知=2365.16、=1181.77、 =1771.03、=1719.24,试计算坐标方位角、水平距离。 键入1771.03-2365.16按等号键[=]等于纵坐标增量,按储存键[], 键入1719.24-1181.77按等号键[=]等于横坐标增量,按[]键输入,按[]显示横坐标增量,按[]键输入,按第二功能键[2ndF],再按[]键,屏显为距离,再按[]键,屏显为方位角。 【例题6-4】坐标正算,已知坐标方位角=294°42'51", =200.40,试计算纵坐标增量横坐标增量。 键入294.4251,转换为以度为单位按[DEG],按[]键输入,

EXCEL制表计算坐标的方位角及距离

EXCEL中计算方位角距离公式 发布日期:2012-01-31 作者:未知浏览次数:424 电子表格中求方位角公式 度格式: =(PI()*(1 - SIGN(B3-$B$1) / 2) - ATAN((A3-$A$1) /(B3-$B$1)))*180/PI() Excel 中求方位角公式:a1,b1放起始点坐标 a3,b3放终点坐标。 度分秒格式: =INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/PI()) &"-"& INT( ((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180 /PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/ PI()))*60)&"-"&INT( (((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3- $b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3- $b$1)))*180/PI()))*60-INT(((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) / (B3-$b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) / (B3-$b$1)))*180/PI()))*60))*600)/10 其中:A1,B1中存放测站坐标,a3,b3放终点坐标。 上面的计算出来的是度分秒格式,也就是字符串格式,不能用来计算,只是用来看的哟!下面这个简单一点: =(PI()*(1 - SIGN(B3-B1) / 2) - ATAN((A3-A1) /(B3-B1)))*180/PI() Excel 中求方位角公式:a1,b1放起始点坐标 a3,b3放终点坐标。 求距离公式: =Round(SQRT(POWER((A3-$A$1),2)+POWER((B3-$B$1),2)),3)

己知两点坐标手算方位角

一、坐标反算 坐标方位角:以坐标纵轴的北端顺时针旋转到某直线的夹角 γ>0边线点坐标计算 曲率变化点坐标的计算 道路设计中,一般只给出了中线交点的坐标,如图1所示的i,j,k点的坐标及曲线参数,它们包括偏角γ,切线长T,缓和曲线长l0,曲线总长L,外距E及曲率半径R。测设前需根据上述设计参数求出ZH,HY,YH,HZ等曲率变化点的平面坐标,其中ZH和HZ点的坐标计算公式为 xZH=xj+Tcosαji (1a) yZH=yj+Tsinαji (1b) xHZ=xj+Tcosαjk (2a) yHZ=yj+Tsinαjk (2b) 式中αji,αjk分别为j点至i点及j点至k点的坐标方位角。在图1所示的ZH-x′-y′假定坐标系中,HY点的坐标为〔1〕 (3a) (3b) 则 (4a) 4b) HY点的大地坐标为 xHY=xZH+SZH-HYcos(αij+R′ΖΗ-ΗY) (5a) yHY=yZH+SZH-HYsin(αij+R′ΖΗ-ΗY) (5b) 需注意的是,式(4b)仅要求为象限角,且R′ZH-HY是有符号的。如以i→j→k为前进方向,本文定义偏角γ的符号为,相对于i→j方向,j→k右偏角时γ>0,左偏角时γ<0。由图1不难看出,当γ>0

时,式(3b)中的y′HY取“+”号,故R′ZH-HY>0;而r<0时,式(3b)中y′HY取“-”号,故R′ZH-HY<0。可见,编程时可以通过γ的正负自动对y′HY取号。因缓和曲线ZH-HY与缓和曲线HZ-YH是对称的,所以YH点的大地坐标为 xYH=xHZ+SZH-HYcos(αkj-R′ΖΗ-ΗY) (6a) yYH=yHZ+SZH-HYsin(αkj-R′ΖΗ-ΗY) (6b) 缓和曲线中线点与边线点的坐标计算 当曲线弧长l在区间(0,l0)取值时,中线点位于缓和曲线ZH-HY内。令C=Rl0,当γ>0时,距ZH点曲线长为l,缓和曲线中线上对应P 点在ZH-x′-y′直角坐标系中的坐标为〔1〕 (7a) (7b) 与P点相对应的缓和曲线边线点的坐标为〔2〕 (8a) (8b) 式中:ρ=57.29577951,为弧度转换为度的系数;D为道路的半宽。当γ>0时,式(7b)取“+”号,当γ<0时,式(7b)取“-”号。当计算外边线点的坐标时,式(8a)、(8b)等号右边第二项前的符号分别取“+”、“-”号;当计算内边线点的坐标时,式(8a)、(8b)等号右边第二项前的符号分别取“-”、“+”号。 圆曲线中线点与边线点的坐标计算 建立图1所示的假定坐标系HY-x〃-y〃,设圆曲线上有任一点q,其对应的从HY点起算的圆弧长为l〃,则有微分关系式 (9a) (9b) 将上式分别在区间〔0,l〃〕上做定积分得 (10a) (10b) 当l〃=0时,与q点对应的外、内边线点有边界条件y〃=D,仿式(10)可以写出相应的边线点坐标为 (11a) (11b)

相关主题
相关文档 最新文档