测量平差基础课程设计范文.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.心得体会
经过该课程设计，对该课程的一些基本概念、词法分析、语法分析、属性文法和语法制导翻译有了深刻的了解并比较掌握了什么是平差，平差工作的基本过程及其各阶段的基本任务，熟悉了编译程序总流程框图，了解了编译程序的生成过程、构造工具及其相关的技术对课本上的知识有了更深的理解，课本上的知识机械的，表面的。经过把该算法的内容，算法的执行顺序在计算机上实现，把书本知识更好的融入自己的头脑，对实验原理有更深的理解。
经过该课程设计，全面系统的理解了编译原理程序构造的一般原理和基本实现方法。把学过的计算机平差原理以及相关课程的知识强化，能够把课堂上学的知识经过自己设计的程序表示出来，加深了对理论知识的理解和对自己动手能力的提高。以前对与计算机平差系统概念上的认识是模糊的，现在经过自己动手做实验，从实践上认识了操作系统是如何处理命令的，如何协调计算机内部各个部件运行记忆是怎么运行的，对计算机平差原理的认识更加深刻。在这次课程设计中，经过自己动手，加深理解文件系统的内部功能及内部实现，培养实践动手能力和程序开发能力的目的。把死板的课本知识变得生动有趣，激发了学习的积极性。

参考文献：互联网