四等水准测量报告.doc

时间：2024.4.14

20##-20##学年第1学期

平差程序设计报告

课程号：024003

学号：07270222

班级：07级测绘工程2班

姓名：蔡地

成绩：

20##年 1 月 5 日

一、实验名称：四等水准测量测站计算

二、实验目的：接合课上所学知识和以前的数字测图知识，设计程序来实现四等水准测量测站计算（可进行几个测站的各要素计算，并输出到文件）。

三、设计思路

输入后尺前尺8个数据，并按照要求设置尺长常数。然后需要算出后视距、前视距、后距差、每站高差及总高差。误差提示用msgbox函数显示。因为输入的数据按习惯是mm单位的，但结果是m来显示的，所以要注记单位。按钮的设计要满足数据计算的需要，比如计算是算本测站的，下一站的数据要累积上一站的数据，清除是在数据输入错误的时候清除用的，打开输出文件可以直接打开保存数据的文本，退出即可退出程序。

四、设计过程

1、设计界面

然后修改各文本框及标签的属性等，根据数据要求设置。然后调整字体颜色等，增加可视化效果。便于检验，附初始值。

2、编写代码并调试过程

点计算按钮后，结果如下图点击下一站后，测站数变为2，其它清空

视距差和总高差是需要累积的，所以不要清空。若点清除按钮除了测站数都会清空，重新输入。

输入下一站数据后,如有误差，则会有误差提示。

点退出按钮，即退出程序。

3,代码

Dim x(0 To 500) As Single

Dim y(0 To 500) As Single

Dim z(0 To 500) As Single

Public Sub clear() '清零过程

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text11.Text = ""

Text12.Text = ""

Text14.Text = ""

End Sub

Public Sub first()

End Sub

Dim i As Integer

For i = 0 To 100

x(i) = 0 '视距差

y(i) = 0 '每站高差

z(i) = 0 '累计差

End Sub

Public Sub sideng()

Dim a As Single '后尺黑面上丝

Dim b As Single '后尺黑面下丝

Dim c As Single '后尺黑面中丝

Dim d As Single '后尺红面中丝

Dim e As Single '前尺黑面上丝

Dim f As Single '前尺黑面下丝

Dim g As Single '前尺黑面中丝

Dim h As Single '前尺红面中丝

Dim m As Single '后尺尺长常数

Dim n As Single '前尺尺长常数

Dim Zy As Single '总高差

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

d = Val(Text4.Text)

e = Val(Text5.Text)

f = Val(Text6.Text)

g = Val(Text7.Text)

h = Val(Text8.Text)

m = Val(Combo1.Text)

n = Val(Combo2.Text)

Text11.Text = (a - b) * 0.1 '后视距

Text12.Text = (e - f) * 0.1 '前视距

If Abs((a - b) * 0.1 - (e - f) * 0.1) >= 5 Then '

MsgBox "视距差超限", , "误差超限"

End If

If Abs(g + n - h) > 5 Then

MsgBox "误差超限:后尺黑红面高差之差超过5mm", , "误差显示"

End If

If Abs(c + m - d) > 5 Then

MsgBox "误差超限:前尺黑红面高差之差超过5mm", , "误差显示"

End If

If m > n Then

Text14.Text = (((c - g) + (d - h)) - 100) / 2 / 1000

Else:

Text14.Text = (((c - g) + (d - h)) + 100) / 2 / 1000

End If

End Sub

Private Sub Command1_Click()

Form1.sideng '调用四等

x(Text9.Text) = Val(Text11.Text) - Val(Text12.Text)

z(Text9.Text) = z(Text9.Text - 1) + x(Text9.Text)

y(Text9.Text) = Val(Text14.Text)

For n = 1 To Val(Text9.Text) '计算总高差

Zy = Zy + y(n) '总高差

Zx = Zx + x(n) '总视距差差

Next n

Text13.Text = Zx

Text15.Text = Zy

If Zx > 5 Then MsgBox "视距差超过5m", , "视距差超限" '如果视距差大于5，则以提示框显示视距差大于5m

Open "c:\123.txt" For Append As 1

Write #1, "经测站" & n - 1 & "测得高差为" & Text15.Text

Close 1

End Sub

Private Sub Command2_Click()

Text13.Text = ""

Text15.Text = ""

Form1.clear '清零过程

Text1.SetFocus

End Sub

Private Sub Command3_Click() '下一站

Form1.sideng '调用四等

x(Text9.Text) = Val(Text11.Text) - Val(Text12.Text)

z(Text9.Text) = z(Text9.Text - 1) + x(Text9.Text)

y(Text9.Text) = Val(Text14.Text)

Form1.clear '清零

Text9.Text = Text9.Text + 1 '测站累计

Text1.SetFocus

End Sub

Private Sub Command4_Click() '打开输出的文件

Shell "NotePad " & "C:\123.txt", vbNormalFocus

End Sub

Private Sub Command5_Click()

End

End Sub

Private Sub Text6_Change()

End Sub

五、实验心得

平差程序设计是一门需要结合自己以前学过的测量平差课程和VB程序设计课程的课，在这次试验中，我通过自己的努力才完整的做出了这个程序，其中很多平差的知识也都忘了，在翻看了很多以前的作业和书籍后，才把程序的原理弄懂，而VB的知识也是在慢慢回忆中，才将这个程序做出，做完以后却发现还是有很多不够人性化的地方，比如不能自定义存储输出文件的位置，清空数据时也会导致很多问题，这只能待以后慢慢修正了。

这次的试验我学到了许多，真正了解了测量平差是多么重要的一门课。

第二篇：四等水准测量报告

《数字化测图原理》

课程实习报告

名称：实习总结报告

姓名：

学号：

指导老师：

完成时间： 20##.10.18

20##-20##年度第一学期

南京工业大学测绘学院

一． 实习目的.........................................................................................................................3

二． 实习要求和地点...........................................................................................................3

三． 实习内容.......................................................................................................................4.

3.1四等水准测量..................................................................................................................5

3.1.1 i角的检验

3.1.2 四等水准测量观测数据

四． 实习体会.及问提..........................................................................................................6

五．实习人员介绍.......................................................................................................6

一． 实习目的

进入南京工业大学学习测量已有两年时间，但一直接触的都是理论上的知识，虽然也有实践课，但只是对仪器有了一些了解，并未对测量学的本质产生系统的本质上的认识，通过本次实习我们巩固、扩大和加深从课堂上所学理论知识，获得测量工作的初步经验和基本技能，着重培养自己的独立工作能力，进一步熟练掌握测量仪器的操作技能，提高计算和绘图能力，并对测绘小区域大比例尺地形图的全过程有一个全面和系统的认识。在自己的独立工作能力加强的同时，我们还要培养团队之间的合作精神，因为专业的特殊性，一个工程的测绘任务，我们通常是组队完成，所以组员之间的团结默契成为工作效率提高的关键，培养团队精神为以后的工作打好基础。

二．实习要求和地点

(1) 实习任务:

1.普通水准测量

不少于3个未知水准点，每人独立观测一个闭合水准路线（或附合水准路线），路线长度不少于5km。

2 .内业计算

(2) 实习各项要求:

1.量距：往返丈量，相对精度为1/2000。

2测完后的数据要进行相关计算和误差处理

（3）实习地点

四等水准测量：校门至水塔往返

实习仪器：水准仪，尺子，尺垫

三． 实习内容

3．1 普通水准测量 3.1.1 i角的检验

1.观测

在较平坦地方选定适当距离的两个点A、B，并用尺垫代替，用米尺量取A、B之间距离（24m）。置水准仪于A、B的中间，使两端距离严格相等，如图（1）。

此时测量正确的高差，然后将水准仪置于A点附近，如图（2）。

2.计算

第一次仪器安置在A,B的中间，得读书a’＝1490mm，ｂ’＝0636mm。算得ｈ’=0854mm。然后改变仪器高，再测一次：ａ’’=1492mm，ｂ’’=0636，算得h’’=0856mm。由两次测得的数据算得在这一点AB两点的高差为h1=（ｈ’+ h’’）/2=0855mm。第二次仪器安置在Ｂ点的一端距Ｂ点3米，测得ａ＝1149mm，ｂ＝0293mm。算得在这一点AB两点的高差为h2=0856mm。两次高差不相等说明存在i角误差；计算得ｈ2－ｈ1＝1mm；所以i=1*10^(-3)*ρ/24=8.6’’

3.检验结果及校正

检验结果i=8.6”＜20 ”符合要求，无需校正。

3.1.2 四等水准测量观测数据

（1）水准测量原理：

水准测量是测出两点间的高差。即在两个点上分别竖立水准尺，利用水准测量的仪器提供的一条水平视线，瞄准并在水准尺上读数，求得两点间的高差，从而由已知点高程推求未知点高程。如图：

在A点水准尺上读数为a（后视读数），B点水准尺上读数为b（前视读数），则：

hab = a - b

HB = HA + hab = HA + ( a – b )

注：表示A点至B点的高差。

（2）普通水准测量的相关概念：

水准测量：从某一已知高程的水准点开始，经过一定的水准路线，测定各待定点的高程。

转点：如果两点间高差较大或相距较远，仅安置一次仪器不能测得它们的高差，这时需要加设若干个临时的立尺点，作为传递高程的临时点。

测站：每安置一次仪器，称为一个测站。（从安置仪器到测完到搬到另一点）

2.高差闭合差分配和计算改正后高差

分配原则：对于闭合或附合水准路线，按与路线长度L或按路线测站数n成正比的原则，将高差闭合差反其符号进行分配。

或

3.计算各点改正后的高程

根据已知水准点高程和各测段改正后的高差，依次逐点推求各点改正后的高程。

hi = hi原+vi

（5）注意事项：

a) 选择土质稳固的地方作为转点位置，要保持转点（尺垫）稳定不动；

b) 要尽可能保持各测站的前后视距大致相等；还要尽可能通过调节前、后视距离保持整条水准路线中的前视视距之和与后视视距之和相等，这样有利于消除（或减弱）地球曲率和仪器某些误差对高差的影响。

c) 如果高差过大，可以增加站点来减少误差。

4. 测站与转点的距离太大会超过标尺数值界限，看不到标尺上的数值；

距离太近，标尺成像过大，还是看不到标尺上的数字；故距离要适中。

四．实习体会及问题

为时一个月的测量实习已经结束了,通过实际的测量实习，让我学到了许多实实在在的东西。首先在这次实习中我个人的管理能力得到了提升，作为小组中的一员，我很好的按要求地完成了自己要完成的一切任务。其次我个人的业务水平得到了提升，以前学习中许多的重点难点在本次实习中得到了巩固和解决。实习是辛苦的，我们每天要背着几十斤的仪器步行几公里，这无论是对心理还是身体都是一次严峻的考验，虽然实习过程中我们都感到好累,但当我们看到自己亲手测量出的数据时，我却觉得好开心。这次实习使我们对测量学知识有了一个综合应用的机会，可以更好的巩固理论教学知识，提高实际操作的技能，并在理论知识与实践相结合中得到了进一步升华。为以后的工作打下坚实的基础。

通过这次实习，我们深刻体会了测量的辛苦和要求的精确，更加深刻认识到合作的重要性。期间我们巩固了水准仪的安置，瞄准与读数的方法，牢固掌握了闭合水准测量的观测步骤与记录计算，深刻体会了水准仪的基本构造；体会到生产实践过程中测量的重要性和要求的严谨。同组四个人通力合作，在炎炎烈日和下下雨的情况下尽心尽力，分工明确，轮流使用仪器和竖立水准尺，锻炼了小组的合作能力，也加深了彼此之间的默契。严酷天气抵不住我们的毅力，复杂的测量比不过我们的耐心。这次测量中学到的知识和团队精神将对今后的学习和生活有很大帮助，非常高兴能出色地完成了任务。

这是一次收获丰裕的实习，期间的许多细节都成为我们难得的记忆，非常感谢学校营造的机会，更是非常感谢老师给予的不吝指导!

问题及解决：

1. 坡度较陡的路面高差较大，视距远了就看不见尺

解决：在此陡坡路面上增加测站

2. 尺未方正导致多次读数不一致

解决：观测员目测尺是否正，并以手势示意扶尺员

3. 在测站上测量的数据不满足容许的误差

解决：重新测量该站的数据，直到数据满足要求为止

五．实习人员介绍

观测员：## 记录员：## 跑尺员：##

更多相关推荐：

四等水准测量实习报告: 一四等水准测量实习报告一实习时间和实习地点实习时间为七天在这七天里不包括周末周末正常休息实习的地点为校内的公路上20xx年6月1日至20xx年6月10日二实习目的和任务实习的目的为一掌握水准仪的安置瞄准精平读数...
四等水准测量实验报告: 一、测区概况：四等水准测量的区域为信息学院与六一教工宿舍区中间，即粤汉路，此区域车流量与人流量较多，且树木较多，易遮挡视线，为我们的测量工作增加了难度。当天气温为22-26℃，风力较大，间中有小雨，测量天气状况…
四等水准测量的实习报告: 四等水准测量的实习报告一实习的目的和要求目的1进一步熟练水准仪的操作掌握用双面水准尺进行四等水准测量的观测记录与计算方法2熟悉四等水准测量的主要技术指标掌握测站及线路的检核方法要求四等水准测量技术要求二仪器和工...
水准测量成果书报告: 新建宁波铁路枢纽北环线工程水准控制测量成果书编号NBSNCL版本号修改状态编制复核审核有效状态中国中铁四局集团有限公司20xx年7月31日目录一编制依据二工程概况三水准测量人员安排四水准测量仪器五水准点标注六水...
四等闭合水准测量实验报告: 四等闭合水准测量实验报告一目的与要求1掌握四等水准测量观测程序和具体施测方法2熟悉四等水准测量的主要技术要求与检核方法3掌握四等水准测量的内业计算方法二实验过程1在确定为闭合水准测量以及要求前后尺的距离不小于3...
四等水准测量实验报告: 四等水准测量实验报告个等级其布设原则采用从高级到低级从整体到局部分级布置逐级加密的原则等级四等水准测量直接为地形测图和各种工程建设提供所必需的高程控制水准测量levelingsurvey指的是测定各点高程的作业...
四等水准测量实验报告: 四等水准测量实验报告一实验目的1掌握四等水准测量观测程序和具体施测方法2熟悉四等水准测量的主要技术要求与检核方法3熟悉四等水准测量的主要技术要求与检核方法二实验计划与准备经老师要求四等水准测量的观测应在通视良好...

四等水准测量: 实训三四等水准测量双面尺法一目的和要求1进一步熟练水准仪的操作掌握用双面水准尺进行四等水准测量的观测记录与计算方法2熟悉四等水准测量的主要技术指标掌握测站及线路的检核方法视线高度gt02m视线长度80m前后视视...
综合实训：四等水准测量: 咸宁职业技术学院测量综合实训报告册班级姓名学号日期综合实训一闭合水准路线四等水准测量一实训目的掌握四等水准测量二仪器设备每组S3自动安平水准仪1台水准尺1对尺垫2个记录板1个三实训任务依N37170S37272...
四等水准测量(双面尺法): 实训三四等水准测量双面尺法一目的和要求1进一步熟练水准仪的操作掌握用双面水准尺进行四等水准测量的观测记录与计算方法2熟悉四等水准测量的主要技术指标掌握测站及线路的检核方法视线高度gt02m视线长度80m前后视视...
二等水准、四等导线控制测量设计书: 测绘工程系工程测量专业二等水准四等导线控制测量实习计划书系别测绘系班级工程测量1007班姓名郭瑞林学号20xx020xx3第一部分实习准备一实习目的1巩固课堂教学知识加深对控制测量学的基本理论的理解能够用有关理...
四等水准测量: 水准观测的主要技术要求四等水准测量四等水准测量的一般方法1双面水准标尺法观测顺序1初步平整水准仪检查前后视距较差是否满足要求如果不满足则移动水准仪位置使之符合限差要求2照准后视标尺黑面旋转倾斜螺旋使符合水准器的...

热门关注