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

测量平差基础课程设计242020年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.ApplicationDim xlbook As Excel.WorkbookDim xlsheet As Excel.WorksheetDim a As IntegerDim b As IntegerDim b As IntegerDim d As IntegerDim e As IntegerDim f As Integera = 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) = ThenSet xlapp = CreateObject(excel.application)xlapp.Visible = TrueSet xlbook = xlapp.Workbooks.open(d:tempbb.xls)Set xlsheet = xlbook.Worksheets(1)xlsheet.Activatexlsheet.Cells(2, 3) = abcxlbook.RunAutoMacros (xlAutoOpen)ElseMsgBox (excel已经打开!)End IfEnd SubPrivate Sub Command2_Click()If Dir(d;tempexcel.bz) Thenxlbook.RunAutoMacros (xlAutoClose)xlbook.Close (True)xlapp.QuitEnd IfSet xlapp = NothingEnd SubPrivate Sub Command4_Click()If Dir(d:tempexcel.bz) = ThenSet xlapp = CreateObject(excel.application)xlapp.Visible = TrueSet xlbook = xlapp.Workbooks.open(d:tempbb.xls)Set xlsheet = xlbook.Worksheets(2)xlsheet.Activatexlsheet.Cells(1, 1) = abcxlbook.RunAutoMacros (xlAutoOpen)ElseMsgBox (excel已经打开!)End IfEnd Sub程序代码:Option Base 1Private Sub Form_Click()Dim m As Integer,n As IntegerDim i As Integer,j As IntegerReDim b(3,3)As IntegerReDim c(3,3)As IntegerFor i=1 To 3For j=1 To 3b(i,j)=CInt(Rnd*3)+2Next jNext iPrint矩阵b:PrintFor i=1 To 3For j=1 To 3Print Tab(4*j);b(i,j); Next jNext iFor i=1 To 3For j=1 To 3c(i,j)=b(j,i) Next jNext iPrintPrintb矩阵的转置:;显示转置后的数组以确认代码的正确性PrintFor i=1 To 3For j=1 To 3Print Tab(4*j);c(i,j);Next jNext iEnd Subb)矩阵乘法模块模块代码:Option Base 1Private Sub Form_Click()Dim m As IntegerDim n As IntegerDim i As IntegerDim a(3,3)As IntegerDim b(3,3)As IntegerDim c(3,3)As IntegerFor m=1 To 3For n=1 To 3a(m,n)=Rnd*20+8b(m,n)=Rnd*12+7Next nNext mPrint矩阵a:For m=1 To 3For n=1 To 3Print Tab(5*n);a(m,n);Next nNext mPrintPrint矩阵b:For m=1 To 3For n=1 To 3Print Tab(5*n);b(m,n);Next nNext mFor m=1 To 3For n=1 To 3c(m,n)=0For i=1 To 3c(m,n)=c(m,n)+a(m,i)*b(i,n)Next iNext nNext mPrintPrint矩阵c:For m=1 To 3For n=1 To 3Print Tab(5*n);c(m,n);Next nNext mEnd Subc)矩阵求逆模块程序采用了求矩阵的行列式和矩阵伴随矩阵,最后求商得到矩阵的逆的方法,由于采用了大量的循环语句和递归调用的方式,程序在执行大数据量的时候显得有些慢,例如在解算校内导线的时候,是一个88矩阵,而且数据量较大,因而在解算时花了好几秒的时间。因此该方法还有待改进。程序代码:Option Base 1建立一个函数求下一个矩阵Function next_a(ByRef a()As Integer,ByVal n As Integer,ByVal iAs Integer)As IntegerDim k,j As IntegerDim count As Integercount=0For k=2 To n+1For j=1 To n+1If ji Thena(Fix(count/n)+1,(count Mod n)+1)=a(k,j)count=count+1End IfNext jNext kEnd Function建立一个函数求取矩阵的行列式值Function dvalue(ByRef a()As Integer,ByVal n As Integer)AsIntegerDim b()As IntegerDim o,p As IntegerDim i,k,j As IntegerDim sign As Integer:sign=1Dim sum As Integer:sum=0ReDim b(n,n)As IntegerIf n=1 Thensum=a(1,1)Else:For i=1 To nFor j=1 To nFor k=1 To nb(j,k)=a(j,k)Next kNext jnext_a b(),n-1,i调用nexta函数sum=sum+sign*a(1,i)*dvalue(b(),n-1)递归调用dvalue函数sign=(-1)*signNext iEnd Ifdvalue=sumEnd Function建立一个函数求取矩阵的伴随矩阵Function accom_a(ByRef a()As Integer,ByVal n As Integer,ByVal iAs Integer,ByVal j As Integer)As IntegerDim t()As IntegerDim e,b As IntegerDim count As Integer:count=0Dim s As Integer:s=0ReDim t(n,n)As IntegerFor e=1 To nFor b=1 To nIf ei And bj Thent(Fix(count/(n-1)+1,(count Mod(n-1)+1)=a(e,b)count=count+1End IfNext bNext es=dvalue(t(),n-1)If(i+j)Mod 2)0 Thens=(-1)*sElse:s=sEnd Ifaccom_a=sEnd Functionabc 闭合导线平差度分秒X坐标Y坐标 距离 所测角度 方位角 已知方位角第1点第2点第3点第4点第5点第6点第7点第8点第9点第10点第11点第12点第13点第14点xyS=相对精度=4.课程设计过程中遇到的问题以及解决方法 在vb中实现导线的平差太难了，而且编制过成也太长，我们在接到通知要交的时候还六下3天时间，因此我们主要编制导线网的平差，在导线那一部分我们使用vb与EXCEL连接计算，原来我们还要把acd连接进入直接进行成图，可是还没找到相关资料，不过我们知道以后会在这一方面努力的首先在页面设计是我要考虑到我们要的起誓数据是什么，一开始我们并没有在意，可是后来我们在编制程序的时候发现了问题。因此又耽误了我们好长时间重新来过，包括EXCEL的编制，主要使用起内部函数。第二在实现编程的时候我们对于vb的好多命令有点生疏了，使得进度更加慢了我们知道在学习编程的时候我们不能够停下脚步，我们要不段的饿学习，不断的更新自己的知识在最后编制过车工中出现了错误，晕人的挖，不知道是哪里错了，可是用的vb是下载的没有msdn不好查找，只好出现一个在网上搜一个，只怪自己技术不到家。其实我想如果我们在做课程设计的时候有个老师在边上指导我想，那效果会更好的5.总结经过一个星期的上机实践学习，使我对vb语言有了更进一步的认识和了解，要想学好它要重在实践，要经过不断的上机操作才能更好地学习它，经过实践，我也发现我的好多不足之处，首先是自己在指法上还不行，经常按错字母，经过学习也有所改进；再有对vb语言的一些标准库函数不太了解，还有对函数调用的正确使用不够熟悉，还有对vb语言中经常出现的错误也不了解，经过实践，使我在这几个方面的认识有所提高。经过实践的学习，我认到学好计算机要重视实践操作，不但仅是学习vb语言，还是其它的语言，以及其它的计算机方面的知识都要重在实践，因此后在学习过程中，我会更加注视实践操作，使自己便好地学好计算机。6.心得体会经过该课程设计，对该课程的一些基本概念、词法分析、语法分析、属性文法和语法制导翻译有了深刻的了解并比较掌握了什么是平差，平差工作的基本过程及其各阶段的基本任务，熟悉了编译程序总流程框图，了解了编译程序的生成过程、构造工具及其相关的技术对课本上的知识有了更深的理解，课本上的知识机械的，表面的。经过把该算法的内容，算法的执行顺序在计算机上实现，把书本知识更好的融入自己的头脑，对实验原理有更深的理解。经过该课程设计，全面系统的理解了编译原理程序构造的一般原理和基本实现方法。把学过的计算机平差原理以及相关课程的知识强化，能够把课堂上学的知识经过自己设计的程序表示出来，加深了对理论知识的理解和对自己动手能力的提高。以前对与计算机平差系统概念上的认识是模糊的，现在经过自己动手做实验，从实践上认识了操作系统是如何处理命令的，如何协调计算机内部各个部件运行记忆是怎么运行的，对计算机平差原理的认识更加深刻。在这次课程设计中，经过自己动手，加深理解文件系统的内部功能及内部实现，培养实践动手能力和程序开发能力的目的。把死板的课本知识变得生动有趣，激发了学习的积极性。参考文献：互联网