平面和高程控制测量VB程序设计报告.docVIP

测绘程序编制实习报告 PAGE 7 测绘C101 蒲浡轩 106684 习题7.1 7 题目：习题7.1平面和高程控制网平差 蒲浡轩 测绘C101班 106684 余数7 设计思路 题目为：平面控制网和高程控制网的平差 流程图 2、界面设计 上面为开始主程序，在该页面进行高程控制网平差，点击平面控制启动下面的程序页面进行平面控制网平差。 功能设计 通过菜单实现程序的各个功能，通过菜单启动Common Dialog Control控件输入txt文档，读取txt里面的高程或平面控制网数据，然后点击各个计算菜单进行平差计算 二、算法及代码实现 1、Form1代码： Dim strFileName As String Dim nn%, un%, tn%, hn% 已知点个数，未知点个数，总点数，观测值个数 Dim Pname() As String 点名数组 Dim Hknown() As Double 已知高程数组，存放已知点高程和高程近似值 Dim bE%(), en%() 观测值的起点和终点编号数组，存储的是点序号 Dim h#(), s#() 高差观测值数组和距离观测值数组 Dim a#(), x#(), P#(), L#() 间接平差的系数阵、解向量、权阵和常数向量 高程平差计算 Private Sub mnuAdj_Click() Dim i%, j% ReDim x(1 To un) InAdjust a, P, L, x 调用间接平差的通用过程求解 计算并显示高程平差结果 txtShow.Text = txtShow.Text 平差计算结果： vbCrLf txtShow.Text = txtShow.Text 点号 初始高程(m) 高程改正数(m) 平差后高程(m) vbCrLf For i = 1 To un txtShow.Text = txtShow.Text Pname(nn + i) Format(Hknown(nn + i), 0.0000) Hknown(nn + i) = Hknown(nn + i) + x(i) txtShow.Text = txtShow.Text Format(x(i), 0.0000) Format(Hknown(nn + i), 0.0000) vbCrLf Next i txtShow.Text = txtShow.Text vbCrLf 计算并显示单位权中误差精度评定部分应该也包含在间接平差模块里，一起来调用 Dim dblT As Double dblT = 0 For i = 1 To un Next i End Sub Private Sub mnuCalc_Click(Index As Integer) Form1.Visible = False frmMain.Visible = True End Sub 误差方程 Private Sub mnuEqu_Click() Dim i%, j% ReDim a(1 To hn, 1 To un), L(1 To hn), P(1 To hn, 1 To hn) 对每个观测值列误差方程 For i = 1 To hn If en(i) nn Then a(i, en(i) - nn) = 1 若终点未知，则给终点对应的系数矩阵元素赋值 If bE(i) nn Then a(i, bE(i) - nn) = -1 若起点未知，则给起点对应的系数矩阵元素赋值 L(i) = -(Hknown(en(i)) - Hknown(bE(i)) - h(i)) 根据起终点计算常数项 P(i, i) = 1 / s(i) 以距离的倒数为权 Next i 显示误差方程 txtShow.Text = txtShow.Text 列立的误差方程： vbCrLf For i = 1 To hn For j = 1 To un tx