1、自19世纪初到20世纪五六十年代的一百多年来,测量平差学者在基于最小二乘原理的平差方法上做了许多研究,提出了一系列解决各类测量问题的平差方法,针对这一时期的计算工具的情况,提出了许多分组解算线性方程组的方法,达到了简化计算的目的。自20世纪70年代开始,随着计算机技术的进步和生产实践中的高精度要求,测量平差得到了很大发展,主要表现在:1 从单纯的偶然误差到包含系统误差和粗差。21947年,铁斯特拉(TMTienstra)提出了相关观测值的平差理论。31969年,克拉鲁(T.Krarup)提出最小二乘虑波,也称为拟和推估法。41962年,迈赛尔(P meissl)提出针对非满秩平差问题的内制约束
2、平差原理。5对系统误差的特性、传播、检验、分析的理论的发展6.测量中粗差理论的研究。要求:系统(或顶层文件)结构描述,各个模块(或子程序)的功能描述;1)用原理图实现的,报告需包含以下内容:(1)系统原理图(2)主要模块或符号说明;1)数据录入:可以用TXT文本编好过后直接进行数据传输,也可一在EXCEL中直接编写进行计算2)数据处理:这一模块住要在EXCEL中做出,对所有的公式进行编写一达到我们所要的计算目的。3)成 图:是在VB图形控件中显示,即与CAD结合2)用VB语言实现,报告包含以下内容:(1)源代码;Dim xlapp As Excel.ApplicationDim xlbook
3、As Excel.WorkbookDim xlsheet As Excel.WorksheetDim a 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) = ThenSe
4、t xlapp = CreateObject(excel.application)xlapp.Visible = TrueSet xlbook = xlapp.Workbooks.open(tempbb.xlsSet xlsheet = xlbook.Worksheets(1)xlsheet.Activatexlsheet.Cells(2, 3) = abcxlbook.RunAutoMacros (xlAutoOpen)ElseMsgBox (excel已经打开!End IfEnd SubPrivate Sub Command2_Click()d;) xlbook.RunAutoMacros
5、 (xlAutoClose)xlbook.Close (True)xlapp.QuitSet xlapp = NothingPrivate Sub Command4_Click()Set xlsheet = xlbook.Worksheets(2)xlsheet.Cells(1, 1) = 程序代码: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
6、 3For j=1 To 3b(i,j)=CInt(Rnd*3)+2Next jNext iPrint矩阵b:PrintPrint Tab(4*j);b(i,j); Next jc(i,j)=b(j,i)b矩阵的转置:;显示转置后的数组以确认代码的正确性c(i,j);b)矩阵乘法模块模块代码: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)
7、=Rnd*12+7Next nNext m矩阵a:Print Tab(5*n);a(m,n);b(m,n);c(m,n)=0c(m,n)=c(m,n)+a(m,i)*b(i,n)矩阵c:c(m,n);c)矩阵求逆模块程序采用了求矩阵的行列式和矩阵伴随矩阵,最后求商得到矩阵的逆的方法,由于采用了大量的循环语句和递归调用的方式,程序在执行大数据量的时候显得有些慢,例如在解算校内导线的时候,是一个88矩阵,并且数据量较大,因而在解算时花了好几秒的时间。因此该方法还有待改进。建立一个函数求下一个矩阵Function next_a(ByRef a()As Integer,ByVal n As Integ
8、er,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+1Next kEnd Function建立一个函数求取矩阵的行列式值Function dvalue(ByRef a()As Integer,ByVal n As Integer)AsIntegerDim b()As IntegerDim o,p As IntegerD
9、im 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_a b(),n-1,i调用nexta函数sum=sum+sign*a(1,i)*dvalue(b(),n-1)递归调用dvalue函数sign=(-1)*signdvalue=sum建立一个函数求取矩阵的伴随矩阵Function accom_a(ByRef
10、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:Dim 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)Next bNext es=dvalue(t(),n-1)If(i+j)
11、Mod 2)0 Thens=(-1)*ss=saccom_a=sabc 闭合导线平差度分秒X坐标Y坐标 距离 所测角度 方位角 已知方位角第1点第2点第3点第4点第5点第6点第7点第8点第9点第10点第11点第12点第13点第14点xyS=相对精度=4.课程设计过程中遇到的问题以及解决方法 在vb中实现导线的平差太难了,而且编制过成也太长,我们在接到通知要交的时候还六下3天时间,所以我们主要编制导线网的平差,在导线那一部分我们使用vb与EXCEL连接计算,本来我们还要把acd连接进入直接进行成图,但是还没找到相关资料,不过我们知道以后会在这一方面努力的首先在页面设计是我要考虑到我们要的起誓数据
12、是什么,一开始我们并没有在意,可是后来我们在编制程序的时候发现了问题。所以又耽误了我们好长时间重新来过,包括EXCEL的编制,主要使用起内部函数。第二在实现编程的时候我们对于vb的好多命令有点生疏了,使得进度更加慢了我们知道在学习编程的时候我们不可以停下脚步,我们要不段的饿学习,不断的更新自己的知识在最后编制过车工中出现了错误,晕人的挖,不知道是哪里错了,可是用的vb是下载的没有msdn不好查找,只好出现一个在网上搜一个,只怪自己技术不到家。其实我想如果我们在做课程设计的时候有个老师在边上指导我想,那效果会更好的5.总结经过一个星期的上机实践学习,使我对vb语言有了更进一步的认识和了解,要想学
13、好它要重在实践,要通过不断的上机操作才能更好地学习它,通过实践,我也发现我的好多不足之处,首先是自己在指法上还不行,经常按错字母,通过学习也有所改进;再有对vb语言的一些标准库函数不太了解,还有对函数调用的正确使用不够熟悉,还有对vb语言中经常出现的错误也不了解,通过实践,使我在这几个方面的认识有所提高。通过实践的学习,我认到学好计算机要重视实践操作,不仅仅是学习vb语言,还是其它的语言,以及其它的计算机方面的知识都要重在实践,所以后在学习过程中,我会更加注视实践操作,使自己便好地学好计算机。6.心得体会通过该课程设计,对该课程的一些基本概念、词法分析、语法分析、属性文法和语法制导翻译有了深刻
14、的了解并比较掌握了什么是平差,平差工作的基本过程及其各阶段的基本任务,熟悉了编译程序总流程框图,了解了编译程序的生成过程、构造工具及其相关的技术对课本上的知识有了更深的理解,课本上的知识机械的,表面的。通过把该算法的内容,算法的执行顺序在计算机上实现,把书本知识更好的融入自己的头脑,对实验原理有更深的理解。通过该课程设计,全面系统的理解了编译原理程序构造的一般原理和基本实现方法。把学过的计算机平差原理以及相关课程的知识强化,能够把课堂上学的知识通过自己设计的程序表示出来,加深了对理论知识的理解和对自己动手能力的提高。以前对与计算机平差系统概念上的认识是模糊的,现在通过自己动手做实验,从实践上认识了操作系统是如何处理命令的,如何协调计算机内部各个部件运行记忆是怎么运行的,对计算机平差原理的认识更加深刻。在这次课程设计中,通过自己动手,加深理解文件系统的内部功能及内部实现,培养实践动手能力和程序开发能力的目的。把死板的课本知识变得生动有趣,激发了学习的积极性。参考文献:互联网