水准闭合测量计算表A4
附（闭）合水准计算表
观测、记录：立尺：计算：复核：日期：年月日
实验一 闭合水准路线测量
实验一闭合水准路线测量 一、目的与要求 1．了解DS3型水准仪（自动安平水准仪）各部件的名称及作用。 2．练习水准仪的安置、粗平、瞄准、精平与读数。 3．测量地面两点间的高差。 4．掌握路线水准测量的观测、记录和检核的方法。 5．掌握水准测量的闭合差调整及推求待定点高程的方法。 二、计划与设备 1．实验安排3 ~ 4学时，实验小组由4~ 5人组成。 2．实验设备为每组自动安平水准仪一台，水准尺2根，记录板1块，记录表格。 3．实验场地选定一条闭合（或附合）水准路线，其长度以安置3~6个测站为宜，中间设待定点B、C。4．从已知水准点A出发，水准测量至B、C点，然后再测至A点（或另一个水准点）。根据已知点高程（或假定高程）及各测站的观测高差，计算水准路线的高差闭合差，并检查是否超限。如外业精度符合要求，对闭合差进行调整，求出待定点B、C的高程。各测站的操作可以轮流进行，其余同学必须确认操作及读数结果，各自记录、计算在记录表中。 三、方法与步骤 1．背离已知点方向为前进方向，第1测站安置水准仪在A点与待测点之间，前、后距离大约相等，其视距约为20～40米，粗略整平水准仪。 2．操作程序是后视A点上的水准尺，精平，用中丝读取后尺A读数，记入实验表中。前视待测点1上的水准尺，精平并读数，记入表中。然后立即计算该站的高差。 3．迁至第2测站，继续上述操作程序，直到最后回到A点（或另一个已知水准点）。 4．根据已知点高程及各测站高差，计算水准路线的高差闭合差，并检查高差闭合差是否超限，其限差公式为： 平地（mm） 或山地（mm） 式中：n ——测站数 L ——水准路线的长度，以km为单位。 5．若高差闭合差在容许范围内，则对高差闭合差进行调整，计算各待定点的高程。 四、注意事项 1．在每次读数之前，要消除视差，并使符合水准气泡严格居中。 2．在已知点和待定点上不能放置尺垫，但在松软的转点必须用尺垫，在仪器迁站时，前视点的尺垫不能移动。 3．弄清每一个测站的前视点、后视点、前视读数、后视读数、转点、中间点的概念，不要混淆。
水准测量的基本原理及测量方法
水准测量的基本原理及测量方法 内容：理解水准测量的基本原理；掌握DS3 型微倾式水准仪、自动安平水准仪的构造特点、水准尺和尺垫；掌握水准仪的使用及检校方法；掌握水准测量的外业实施（观测、记录和检核）及内业数据处理（高差闭合差的调整）方法；了解水准测量的注意事项、精密水准仪和电子水准仪的构造及操作方法。 重点：水准测量原理；水准测量的外业实施及内业数据处理。 难点：水准仪的检验与校正。 §2.1 高程测量（Height Measurement ）的概念 测量地面上各点高程的工作, 称为高程测量。高程测量根据所使用的仪器和施测方法的不同，分为： （1）水准测量(leveling) （2）三角高程测量(trigonometric leveling) （3）气压高程测量(air pressure leveling) （4）GPS 测量(GPS leveling) §2.2 水准测量原理 一、基本原理 水准测量的原理是利用水准仪提供的“水平视线”，测量两点间高差，从而由已知点高程推算出未知点高程。
a ——后视读数A ——后视点 b ——前视读数B ——前视点 1、A 、 B 两点间高差： 2、测得两点间高差后，若已知A 点高程，则可得B点的高程： 。 3、视线高程： 4、转点TP(turning point) 的概念：当地面上两点的距离较远，或两点的高差太大，放置一次仪器不能测定其高差时，就需增设若干个临时传递高程的立尺点，称为转点。 二、连续水准测量
如图所示，在实际水准测量中，A 、 B 两点间高差较大或相距较远，安置一次水准仪不能测定两点之间的高差。此时有必要沿A 、 B 的水准路线增设若干个必要的临时立尺点，即转点（用作传递高程）。根据水准测量的原理依次连续地在两个立尺中间安置水准仪来测定相邻各点间高差，求和得到A 、 B 两点间的高差值，有： h 1 = a 1 － b 1 h 2 = a 2 － b 2 …… 则：h AB = h 1 + h 2 +…… + h n = Σ h = Σ a －Σ b 结论：A 、 B 两点间的高差等于后视读数之和减去前视读数之和。 § 2.3 水准仪和水准尺 一、水准仪(level) 如图所示，由望远镜、水准器和基座三部分组成。
用VBA自动计算水准测量的原始数据
用VBA自动计算水准测量的原始数据 2007-02-09 17:51:30| 分类：默认分类| 标签：水准仪原是数据处理计算 exce vba |字号大中小订阅 Option Explicit Private Sub gaocheng() '数据处理代码 Dim i, K, Pointer Dim I_first As Integer, I_end As Integer I_first = Sheet1.Range("H" & 4).Value I_end = Sheet1.Range("H" & 5).Value '开始行要为转点下一行,且转点前一行高程数据已经计算好. If Sheet1.Range("D" & 1).Value = "1" Then Pointer = MsgBox("数据已经存在,确定覆盖吗?", vbYesNo + vbInformation, "继续?") If Pointer = vbNo Then Exit Sub
End If End If K = Sheet1.Range("B" &I_first - 1).Value + Sheet1.Range("C" &I_first - 1).Value For i = I_first To I_end If Trim(Sheet1.Range("A" & i).Value) = "ZD" Then K = Sheet1.Range("B" & i).Value + Sheet1.Range("C" & i - 1).Value Else Sheet1.Range("C" & i).Value = K - Sheet1.Range("B" & i).Value End If Next i MsgBox "I LOVE 'VBA'" &vbCrLf& "CopyRight by ZZL" &vbCrLf& "liulangr110@https://www.360docs.net/doc/e914458774.html,", vbInformation, "高程计算完毕" Sheet1.Range("D" & 1).Value = "1" End Sub Private Sub Clear() '清除代码 Dim i For i = Sheet1.Range("H" & 4).Value To Sheet1.Range("H" & 5).Value Sheet1.Range("C" & i).Value = Empty Next i Sheet1.Range("D" & 1).Value = Empty End Sub Sub Macro1() '删除导线点行 Dim i For i = 1 To 445 If Left(Trim(Sheet2.Range("A" & i).Value), 1) = "D" Then Rows(i & ":" & i).Select Selection.Delete SHIFT:=xlUp End If Next i MsgBox "OK" End Sub Sub Macro2() '删除转点行 Dim i For i = 1 To 445