- 1、本文档共26页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
测绘程序编制实习报告
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
您可能关注的文档
最近下载
- 零星维修工程施工技术方案(可编辑Word完整版).pdf
- [2018年最新整理]3电气安装强制性条文(变电站).doc
- 历代名画记翻译历代名画记片段翻译.doc VIP
- 年产5万吨有机肥建设项目可行性研究报告模板-立项拿地.doc
- 流程管理与流程成熟度培训(含附表).pptx VIP
- 全球及中国飞机辅助动力装置行业市场现状供需分析及市场深度研究发展前景及规划可行性分析研究报告(2024-2030).docx
- 血气分析及肺功能检查.pptx VIP
- 五邑大学2022-2023学年第2学期《高等数学(下)》期末试卷(A卷)附标准答案.pdf
- 《亚当理论》.pdf
- 食品检测对食品安全的重要意义研究.docx
文档评论(0)