测量平差基础课程设计范文.doc

测量平差基础课程设计

24
2020年4月19日
文档仅供参考

测量平差基础课程设计

题目：导线平差

班级： 测绘二班
姓名： 潘 多
学号：
完成日期：

测量平差课程设计
摘要：内容，以补充题名的不足。包括研究工作的目的、方法、结果和结论，而重点是结果和结论。（摘要使用小4号宋体）
关键词：EXCEL；无缝结合；数据处理；平差；导线；导线网
1.概述（4号黑体）
该课程设计主要目的是对导线平差进行计算机化,在输入数据后报表自动生成,和平差后的图形自动生成。在对数据是否合格和与草图对比起到了很大的检验作用。在进行闭合导线，附和导线及其导线网平差计算时都相当简便。
2. 设计的基本原理
在EXCEL对数据处理有着很强大的功能，能够完成数据的排序，分类汇总，函数计算，统计，自动生成统计图表，数据库编辑等功能，所有计算过程都以表格形式体现，能够直接输出或被WORD调用形成报表的插表。在对控制网的平差计算中对矩阵的计算也相当简便。在与VB结合，在VB中调用EXCEL实现了数据输入的便捷，全部自动化计算。实现了在一个界面同时输出报表，图形等。
2.1.VB与EXCEL的无缝结合
VB是常见的应用软件开发工具之一，由于VB的报表功能有限，而且一旦报表格式发生变化，就得相应修改程序，给应用软件的再利用带来极大的不方便。由于VB的自动化功能能够读写EXCEL,这就实现了VB与EXCEL的有机结合。
2.2. 网形结构的平差
在这部分由于要加入逻辑运算，在对网状结构的判断及其行列式的运行都很困难，还有函数式的自动化还无法实现，因此在此就只好我们先手工给出判断，以列出法方程来进行计算，其实这部分也就是一个计算程序。
3.程序设计（4号黑体）
3.1×××（小4号黑体）
要求：系统（或顶层文件）结构描述，各个模块（或子程序）的功能描述；
1）用原理图实现的，报告需包含以下内容：
(1)系统原理图

(2)主要模块或符号说明；
1）数据录入：能够用TXT文本编好过后直接进行数据传输，也可一在EXCEL中直接编写进行计算
2）数据处理：这一模块住要在EXCEL中做出，对所有的公式进行编写一达到我们所要的计算目的。

3）成 图：是在VB图形控件中显示，即与CAD结合
2）用VB语言实现，报告包含以下内容：
(1)源代码；
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim a As Integer
Dim b As Integer
Dim b As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer

a = Val(Text1.Text)
b = Val(Text5.Text)
c = Val(Text6.Text)
d = Val(Text7.Text)
e = Val(Text8.Text)
f = Val(Text9.Text)

Private Sub Command3_Click()

If Dir("d:\temp\excel.bz") = "" Then
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlbook = xlapp.Workbooks.open("d:\temp\bb.xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Activate
xlsheet.Cells(2, 3) = "abc"
xlbook.RunAutoMacros (xlAutoOpen)
Else
MsgBox ("excel已经打开!")
End If
End Sub

Private Sub Command2_Click()
If Dir("d;\temp\excel.bz") <> "" Then
xlbook.RunAutoMacros (xlAutoClose)
xlbook.Close (True)
xlapp.Quit
End If
Set xlapp = Nothing
End Sub

Private Sub Command4_Click()
If Dir("d:\temp\excel.bz") = "" Then
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlbook = xlapp.Workbooks.open("d:\temp\bb.xls")
Set xlsheet = xlbook.Worksheets(2)
xlsheet.Activate
xlsheet.Cells(1, 1) = "abc"
xlbook.RunAutoMacros (xlAutoOpen)
Else
MsgBox ("excel已经打开!")
End If
End Sub
程序代码:
Option Base 1
Private Sub Form_Click()
Dim m As Integer,n As Integer
Dim i As Integer,j As Integer
ReDim b(3,3)As Integer
ReDim c(3,3)As Integer
For i=1 To 3
For j=1 To 3
b(i,j)=CInt(Rnd*3)+2
Next j
Next i
Print"矩阵b:"
Print
For i=1 To 3
For j=1 To 3
Print Tab(4*j);b(i,j);
Next j
Next i
For i=1 To 3
For j=1 To 3
c(i,j)=b(j,i)
Next j
Next i
Print
Print"b矩阵的转置:";‘显示转置后的数组以确认代码的正确性
Print
For i=1 To 3
For j=1 To 3
Print Tab(4*j);c(i,j);
Next j
Next i
End Sub
b)矩阵乘法模块
模块代码:
Option Base 1
Private Sub Form_Click()
Dim m As Integer
Dim n As Integer
Dim i As Integer
Dim a(3,3)As Integer
Dim b(3,3)As Integer
Dim c(3,3)As Integer
For m=1 To 3
For n=1 To 3
a(m,n)=Rnd*20+8
b(m,n)=Rnd*12+7
Next n
Next m
Print"矩阵a:"
For m=1 To 3
For n=1 To 3
Print Tab(5*n);a(m,n);
Next n
Next m
Print
Print"矩阵b:"
For m=1 To 3
For n=1 To 3
Print Tab(5*n);b(m,n);
Next n
Next m
For m=1 To 3
For n=1 To 3
c(m,n)=0
For i=1 To 3
c(m,n)=c(m,n)+a(m,i)*b(i,n)
Next i
Next n
Next m
Print
Print"矩阵c:"
For m=1 To 3
For n=1 To 3
Print Tab(5*n);c(m,n);
Next n
Next m
End Sub
c)矩阵求逆模块
程序采用了求矩阵的行列式和矩阵伴随矩阵,最后求商得到矩阵的逆的方法,由于采用了大量的循环语句和递归调用的方式,程序在执行大数据量的时候显得有些慢,例如在解算校内导线的时候,是一个8×8矩阵,而且数据量较大,因而在解算时花了好几秒的时间。因此该方法还有待改进。
程序代码:
Option Base 1
'建立一个函数求下一个矩阵
Function next_a(ByRef a()As Integer,ByVal n As Integer,ByVal i
As Integer)As Integer
Dim k,j As Integer
Dim count As Integer
count=0
For k=2 To n+1
For j=1 To n+1
If j<>i Then
a(Fix(count/n)+1,(count Mod n)+1)=a(k,j)
count=count+1
End If
Next j
Next k
End Function
'建立一个函数求取矩阵的行列式值
Function dvalue(ByRef a()As Integer,ByVal n As Integer)As
Integer
Dim b()As Integer
Dim o,p As Integer
Dim i,k,j As Integer
Dim sign As Integer:sign=1
Dim sum As Integer:sum=0
ReDim b(n,n)As Integer
If n=1 Then
sum=a(1,1)
Else:For i=1 To n
For j=1 To n
For k=1 To n
b(j,k)=a(j,k)
Next k
Next j
next_a b(),n-1,i'调用nexta函数
sum=sum+sign*a(1,i)*dvalue(b(),n-1)'递归调用
dvalue函数
sign=(-1)*sign
Next i
End If
dvalue=sum
End Function
'建立一个函数求取矩阵的伴随矩阵
Function accom_a(ByRef a()As Integer,ByVal n As Integer,ByVal i
As Integer,ByVal j As Integer)As Integer
Dim t()As Integer
Dim e,b As Integer
Dim count As Integer:count=0
Dim s As Integer:s=0
ReDim t(n,n)As Integer
For e=1 To n
For b=1 To n
If e<>i And b<>j Then
t(Fix(count/(n-1))+1,(count Mod(n-1))+1)=a(e,b)
count=count+1
End If
Next b
Next e
s=dvalue(t(),n-1)
If((i+j)Mod 2)<>0 Then
s=(-1)*s
Else:s=s
End If
accom_a=s
End Function
abc
闭合导线平差
度
分
秒

X坐标
Y坐标
距离
所测角度
方位角
已知方位角
第1点

第2点

第3点

第4点

第5点

第6点

第7点

第8点

第9点

第10点

第11点

第12点

第13点

第14点

x
y
S=

相对精度=

4.课程设计过程中遇到的问题以及解决方法
在vb中实现导线的平差太难了，而且编制过成也太长，我们在接到通知要交的时候还六下3天时间，因此我们主要编制导线网的平差，在导线那一部分我们使用vb与EXCEL连接计算，原来我们还要把acd连接进入直接进行成图，可是还没找到相关资料，不过我们知道以后会在这一方面努力的
首先在页面设计是我要考虑到我们要的起誓数据是什么，一开始我们并没有在意，可是后来我们在编制程序的时候发现了问题。因此又耽误了我们好长时间重新来过，包括EXCEL的编制，主要使用起内部函数。
第二在实现编程的时候我们对于vb的好多命令有点生疏了，使得进度更加慢了我们知道在学习编程的时候我们不能够停下脚步我们要不段的饿学习，不断的更新自己的知识
在最后编制过车工中出现了错误，晕人的挖，不知道是哪里错了，可是用的vb是下载的没有msdn不好查找，只好出现一个在网上搜一个，只怪自己技术不到家。
其实我想如果我们在做课程设计的时候有个老师在边上指导我想，那效果会更好的
5.总结
经过一个星期的上机实践学习，使我对vb语言有了更进一步的认识和了解，要想学好它要重在实践，要经过不断的上机操作才能更好地学习它，经过实践，我也发现我的好多不足之处，首先是自己在指法上还不行，经常按错字母，经过学习也有所改进；再有对vb语言的一些标准库函数不太了解，还有对函数调用的正确使用不够熟悉，还有对vb语言中经常出现的错误也不了解，经过实践，使我在这几个方面的认识有所提高。
经过实践的学习，我认到学好计算机要重视实践操作，不但仅是学习vb语言，还是其它的语言，以及其它的计算机方面的知识都要重在实践，因此后在学习过程中，我会更加注视实践操作，使自己便好地学好计算机。
6.心得体会
经过该课程设计，对该课程的一些基本概念、词法分析、语法分析、属性文法和语法制导翻译有了深刻的了解并比较掌握了什么是平差，平差工作的基本过程及其各阶段的基本任务，熟悉了编译程序总流程框图，了解了编译程序的生成过程、构造工具及其相关的技术对课本上的知识有了更深的理解，课本上的知识机械的，表面的。经过把该算法的内容，算法的执行顺序在计算机上实现，把书本知识更好的融入自己的头脑，对实验原理有更深的理解。
经过该课程设计，全面系统的理解了编译原理程序构造的一般原理和基本实现方法。把学过的计算机平差原理以及相关课程的知识强化，能够把课堂上学的知识经过自己设计的程序表示出来，加深了对理论知识的理解和对自己动手能力的提高。以前对与计算机平差系统概念上的认识是模糊的，现在经过自己动手做实验，从实践上认识了操作系统是如何处理命令的，如何协调计算机内部各个部件运行记忆是怎么运行的，对计算机平差原理的认识更加深刻。在这次课程设计中，经过自己动手，加深理解文件系统的内部功能及内部实现，培养实践动手能力和程序开发能力的目的。把死板的课本知识变得生动有趣，激发了学习的积极性。

参考文献：互联网