资源描述：
《测绘工程专业测量平差课程设计》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、测绘工程专业测量平差课程设计学号：班级：2010级测绘工程1班姓名：日期：2012-7-12中文名称测量平差课程设计英文名称SurveyingAdjustmentCourseDesign适用专业测绘工程时间安排第4学期先修课程误差理论与测量平差基础、测量平差程序设计指导书名称测量平差课程设计指导书一、目的通过对测量数据的误差处理，增强学生对《误差理论与测量平差基础》课程的理解，使学生牢固掌握测量数据处理的基本原理和公式，熟悉测量数据处理的基本技能和计算方法。要求学生综合运用测绘知识、测量平差知识、数学知识和计算机知识，设计数
2、学模型和程序算法，编制程序实现测量数据的自动化处理。二、要求要求每位同学独立完成给定测量数据处理的数学模型和算法的设计，编写程序，调测程序，并编写程序设计文档。要求数学模型和算法正确、程序运行正确、设计文档完备。三、课程设计主要内容我的所选题目为3、平差计算器能进行各种平差的计算（条件平差、间接平差、附有参数的条件平差、附有限制条件的间接平差）。数据输入：输入系数矩阵、常数项矩阵、权矩阵）。最后输出平差结果。此处节选条件平差计算代码：PrivateSubButton2_Click(ByValsenderAsSystem.Ob
3、ject,ByValeAsSystem.EventArgs)HandlesButton2.Click'输入已知矩阵ADimA1(,)AsDoubleDimA2()AsStringDimiAsInteger,jAsIntegerDimAHAsInteger,ALAsIntegerAH=TextBox1.Lines.GetUpperBound(0)A2=Split(Trim(TextBox1.Lines(0)),"")AL=A2.GetUpperBound(0)ReDimPreserveA1(AH,AL)Fori=0ToAHA2
4、=Split(Trim(TextBox1.Lines(i)),"")Forj=0ToALA1(i,j)=A2(j)NextNext'输入已知W矩阵DimW1(,)AsDoubleDimW2()AsStringDimWHAsInteger,WLAsIntegerWH=TextBox2.Lines.GetUpperBound(0)W2=Split(Trim(TextBox2.Lines(0)),"")WL=W2.GetUpperBound(0)ReDimPreserveW1(WH,WL)Fori=0ToWHW2=Split(Tr
5、im(TextBox2.Lines(i)),"")Forj=0ToWLW1(i,j)=W2(j)NextNext'输入已知Q矩阵DimQ1(,)AsDoubleDimQ2()AsStringDimQHAsInteger,QLAsIntegerQH=TextBox3.Lines.GetUpperBound(0)Q2=Split(Trim(TextBox3.Lines(0)),"")QL=Q2.GetUpperBound(0)ReDimPreserveQ1(QH,QL)Fori=0ToQHQ2=Split(Trim(TextBo
6、x3.Lines(i)),"")Forj=0ToQLQ1(i,j)=Q2(j)NextNext'定义以后需要的变量如A的转置为AT，求Naa的中间变量为Naa0，Naa的逆为Naa1等等。。DimAT(AL,AH)AsDouble,P(QH,QL)AsDouble,Naa0(AH,AL)AsDouble,Naa(AH,AH)AsDouble,Naa1(AH,AH)AsDouble'求AT，A的转置Fori=0ToAHForj=0ToALAT(j,i)=A1(i,j)NextNext'P为Q的逆矩阵，求出P（调用类库中的求逆功
7、能）P=ZZ.MatLib.Inv(Q1)'求出Naa矩阵DimkAsIntegerFori=0ToAHForj=0ToALFork=0ToALNaa0(i,j)+=A1(i,k)*Q1(k,j)NextNextNextFori=0ToAHForj=0ToAHFork=0ToALNaa(i,j)+=Naa0(i,k)*AT(k,j)NextNextNext'求出Naa的逆（调用类库）Naa1=ZZ.MatLib.Inv(Naa)'求出K矩阵（用K0表示）DimK0(AH,WL)AsDoubleFori=0ToAHForj=0
8、ToWLFork=0ToAHK0(i,j)-=Naa1(i,k)*W1(k,j)NextNextNext'求出v矩阵（中间变量v0）Dimv0(AL,AH)AsDouble,v(AL,WL)AsDoubleFori=0ToALForj=0ToAHFork=0ToALv0(i,j)+=Q1(
