测量平差基础课程设计

《测量平差基础课程设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、-10-测量平差基础课程设计题目：导线平差班级：测绘二班姓名：李文义学号：080615380完成日期：-10-测量平差课程设计测量平差简介测量平差的主要任务是对一系列带有观测误差的观测值，运用概率统计的方法来消除它们之间的不符值，求出未知量的最可靠值，并且评定成果的精度。测量平差与其他学科一样，是由于生产的需要而产生的，并在生产实践过程中，随着科学技术的进步而发展。18世纪末，在测量学、天文测量学等实践中提出如何消除由于观测误差引起的观测值之间矛盾的问题，即如何从带有误差的观测值中找到观测值的最优值。1794年，年仅17

2、岁的高斯（C．FGauss）首先提除了这个问题的解决方法——最小而乘法。他是根据偶然误差的四个特性，并以算术平均值为待求量的最或然值出发，导出了偶然误差的概率分布，给出了在最小二乘原理下求待定量最或然值的计算方法。当时高斯没有正式发表。19世纪初（1801年），天文学家对刚发现的谷神星运行轨道的一段弧长作了一系列观测，后来因故中止了。这就需要根据这些带有误差的观测结果求出该星运行的实际轨道。高斯用自己提出的最小二乘法解决了这个当时很大的难题，对谷神星运行轨道进行了预报，使天文学家及时的又找到了这颗彗星。1809年高斯才在

3、《天体运动的理论》一书中正式发表了他的方法。在此之前，1806年，勒戎德尔（A．M．Legendre）发表了《决定彗星轨道的新方法》一文，从代数观点上也独立的提出了最小二乘法，并定名为最小二乘法。所以，后人称它为高斯－勒戎德尔方法。自19世纪初到20世纪五六十年代的一百多年来，测量平差学者在基于最小二乘原理的平差方法上做了许多研究，提出了一系列解决各类测量问题的平差方法，针对这一时期的计算工具的情况，提出了许多分组解算线性方程组的方法，达到了简化计算的目的。自20世纪70年代开始，随着计算机技术的进步和生产实践中的高精度

4、要求，测量平差得到了很大发展，主要表现在：1．从单纯的偶然误差到包含系统误差和粗差。2．1947年，铁斯特拉（T．M．Tienstra）提出了相关观测值的平差理论。3．1969年，克拉鲁（T.．Krarup）提出最小二乘虑波，也称为拟和推估法。4．1962年，迈赛尔（P．meissl）提出针对非满秩平差问题的内制约束平差原理。5．对系统误差的特性、传播、检验、分析的理论的发展6.．测量中粗差理论的研究。要求：系统（或顶层文件）结构描述，各个模块（或子程序）的功能描述；1）用原理图实现的，报告需包含以下内容：(1)系统原理

5、图(2)主要模块或符号说明；1）数据录入：可以用TXT文本编好过后直接进行数据传输，也可一在EXCEL中直接编写进行计算2）数据处理：这一模块住要在EXCEL中做出，对所有的公式进行编写一达到我们所要的计算目的。-10-3）成图：是在VB图形控件中显示，即与CAD结合2）用VB语言实现，报告包含以下内容：(1)源代码；DimxlappAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.WorksheetDimaAsIntegerDimbAsInteg

6、erDimbAsIntegerDimdAsIntegerDimeAsIntegerDimfAsIntegera=Val(Text1.Text)b=Val(Text5.Text)c=Val(Text6.Text)d=Val(Text7.Text)e=Val(Text8.Text)f=Val(Text9.Text)PrivateSubCommand3_Click()IfDir("d:tempexcel.bz")=""ThenSetxlapp=CreateObject("excel.application")xlapp.V

7、isible=TrueSetxlbook=xlapp.Workbooks.open("d:tempbb.xls")Setxlsheet=xlbook.Worksheets(1)xlsheet.Activatexlsheet.Cells(2,3)="abc"xlbook.RunAutoMacros(xlAutoOpen)Else-10-MsgBox("excel已经打开!")EndIfEndSubPrivateSubCommand2_Click()IfDir("d;tempexcel.bz")<>""Thenxlb

8、ook.RunAutoMacros(xlAutoClose)xlbook.Close(True)xlapp.QuitEndIfSetxlapp=NothingEndSubPrivateSubCommand4_Click()IfDir("d:tempexcel.bz")=""ThenSetxlapp=CreateO