测绘软件设计学习报告.docVIP

《测绘软件设计》 综合测试作业 高程网平差程序设计 一、题目 请根据间接平差模型，编写一个水准网平差的程序，并以下面的水准网观测数据为算例进行验算（A，B为已知高程点，P1，P2，P3为待求高程点）。 路线号 观测高差（m） 水准路线长（km） 已知高程（m） 1 +1.359 1.1 HA= 5.016 HB= 6.016 2 +2.009 1.7 3 +0.363 2.3 4 +1.012 2.7 5 +0.657 2.4 6 +0.238 1.4 7 +0.595 2.6 程序设计过程 程序的详细步骤 （1）建立系数阵B和常数阵L （2）建立权矩阵P和法方程系数矩阵Naa （3）建立法方程常系数矩阵W和求取观测值改正数Vi （4）调试程序，解算高程平差值 2、所有相关数据 路线号 观测高差（m） 水准路线长（km） 已知高程（m） 1 +1.359 1.1 HA= 5.016 HB= 6.016 2 +2.009 1.7 3 +0.363 2.3 4 +1.012 2.7 5 +0.657 2.4 6 +0.238 1.4 7 +0.595 2.6 程序清单及程序说明 已知点名 Dim strKnowPName() As String 已知点高程 Dim dblKnowH() As Do