测量平差基础课程设计

《测量平差基础课程设计》由会员分享，可在线阅读，更多相关《测量平差基础课程设计（10页珍藏版）》请在金锄头文库上搜索。

1、- 1 -测量平差基础课程设计测量平差基础课程设计题目：导线平差班级：测绘一班 姓名：沙江楠 学号： 05013115 完成日期：- 2 -测量平差课程设计沙江楠 摘要：内容，以补充题名的不足。包括研究工作的目的、方法、结果和结论，而重 点是结果和结论。 （摘要使用小4号宋体） 关键词：EXCEL；无缝结合；数据处理；平差；导线；导线网 1.概述（4号黑体） 该课程设计主要目的是对导线平差进行计算机化,在输入数据后报 表自动生成,和平差后的图形自动生成。在对数据是否合格和与草图对 比起到了很大的检验作用。在进行闭合导线，附和导线及其导线网平 差计算时都相当简便。 2. 设计的基本原理在EXCE

2、L对数据处理有着很强大的功能，能够完成数据的排序，分 类汇总，函数计算，统计，自动生成统计图表，数据库编辑等功能， 所有计算过程都以表格形式体现，可以直接输出或被WORD调用形成报 表的插表。在对控制网的平差计算中对矩阵的计算也相当简便。在与 VB结合，在VB中调用EXCEL实现了数据输入的便捷，全部自动化计算。 实现了在一个界面同时输出报表，图形等。 2.1.VB与EXCEL的无缝结合VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一旦报表格式发生变 化，就得相应修改程序，给应用软件的再利用带来极大的不方便。由于VB的自动化功能可以读 写EXCEL,这就实现了VB与EXCEL的

3、有机结合。 2.2. 网形结构的平差在这部分由于要加入逻辑运算，在对网状结构的判断及其行列式的运行都很困难，还有函 数式的自动化还无法实现，所以在此就只好我们先手工给出判断，以列出法方程来进行计算， 其实这部分也就是一个计算程序。 3.程序设计（4号黑体） 3.1（小4号黑体） 要求：系统（或顶层文件）结构描述，各个模块（或子程序）的功能描述； 1）用原理图实现的，报告需包含以下内容： (1)系统原理图- 3 -平差系统数据 录入数据 处理C A D 成图成图报表 输出图形 输出(2)主要模块或符号说明； 1）数据录入：可以用TXT文本编好过后直接进行数据传输，也可一在EXCEL中直接编写 进

4、行计算 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- 4 -Dim b As Integer Dim b As Integer Dim d As Integer Dim e As Integer Dim f As Intege

5、ra = 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:tempexcel.bz“) = “ Then Set xlapp = CreateObject(“excel.application“) xlapp.Visible = True Set xlbook = xlapp.Workbooks.open(“d:tempbb.xls“) S

6、et xlsheet = xlbook.Worksheets(1) xlsheet.Activate xlsheet.Cells(2, 3) = “abc“ xlbook.RunAutoMacros (xlAutoOpen) Else MsgBox (“excel 已经打开!“) End If End SubPrivate Sub Command2_Click() If Dir(“d;tempexcel.bz“) i Then a(Fix(count/n)+1,(count Mod n)+1)=a(k,j) count=count+1 End If Next j Next k End Func

7、tion 建立一个函数求取矩阵的行列式值 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)

8、 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 Inte

9、ger 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 ej Then t(Fix(count/(n-1)+1,(count Mod(n-1)+1)=a(e,b) count=count+1 End If Next b- 8 -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 Functionabc闭合导线平差度分秒X 坐标

10、Y 坐标 距离所 测角度方位角已知 方位角 第 1 点 第 2 点 第 3 点 第 4 点 第 5 点 第 6 点 第 7 点 第 8 点 第 9 点 第 10 点 第 11 点 第 12 点 第 13 点 第 14 点 xyS=相对精度=- 9 -4.课程设计过程中遇到的问题以及解决方法在 vb 中实现导线的平差太难了，而且编制过成也太长，我们在接 到通知要交的时候还六下 3 天时间，所以我们主要编制导线网的平差， 在导线那一部分我们使用 vb 与 EXCEL 连接计算，本来我们还要把 acd 连接进入直接进行成图，但是还没找到相关资料，不过我们知道以 后会在这一方面努力的 首先在页面设计是

11、我要考虑到我们要的起誓数据是什么，一开始我 们并没有在意，可是后来我们在编制程序的时候发现了问题。所以又 耽误了我们好长时间重新来过，包括 EXCEL 的编制，主要使用起内部 函数。 第二在实现编程的时候我们对于 vb 的好多命令有点生疏了，使得 进度更加慢了我们知道在学习编程的时候我们不可以停下脚步，我们 要不段的饿学习，不断的更新自己的知识 在最后编制过车工中出现了错误，晕人的挖，不知道是哪里错了， 可是用的 vb 是下载的没有 msdn 不好查找，只好出现一个在网上搜一 个，只怪自己技术不到家。 其实我想如果我们在做课程设计的时候有个老师在边上指导我想， 那效果会更好的 5.总结- 10

12、 -经过一个星期的上机实践学习，使我对vb语言有了更进一步的认识 和了解，要想学好它要重在实践，要通过不断的上机操作才能更好地 学习它，通过实践，我也发现我的好多不足之处，首先是自己在指法 上还不行，经常按错字母，通过学习也有所改进；再有对vb语言的一 些标准库函数不太了解，还有对函数调用的正确使用不够熟悉，还有 对vb语言中经常出现的错误也不了解，通过实践，使我在这几个方面 的认识有所提高。 通过实践的学习，我认到学好计算机要重视实践操作，不仅仅是学习 vb语言，还是其它的语言，以及其它的计算机方面的知识都要重在实 践，所以后在学习过程中，我会更加注视实践操作，使自己便好地学 好计算机。 6

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