下载 >  开发技术 >  C++ > VC编写的水平网平差程序 很好的

VC编写的水平网平差程序 很好的

这是我们教员编写的,很不错喜欢大家多参考!多学习对大家有用。我是学测量的 希望大家多交流 QQ89183357
2009-06-12 上传大小:414KB
分享
收藏 举报
matlab水准网平差

matlab编写的水准网平差文件,能够将已知的高程信息经过数据整理读入,自动计算出平差结果

立即下载
水准网平差的一个c#代码

水准网平差的一个c#代码,可以轻松实现水准网数据的处理、不再复杂,,大家可以看看

立即下载
水准网条件平差matlab编程的m文件

此为水准网条件平差matlab编程的代码,下载后直接用matlab打开

立即下载
边角网平差matlab

利用matlab进行边角网平差计算,matlab平差程序设计作业

立即下载
间接平差程序

按间接平差原理写的代码,绝对有用,真实可靠 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 '列立误差方程:给A、P、L赋值 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 txtShow.Text = txtShow.Text & A(i, j) & " " Next j txtShow.Text = txtShow.Text & " " & Format(L(i), "0.0000") & vbCrLf Next i txtShow.Text = txtShow.Text & "权矩阵:" & vbCrLf For i = 1 To hn For j = 1 To hn txtShow.Text = txtShow.Text & P(i, j) & " " Next j txtShow.Text = txtShow.Text & vbCrLf Next i End Sub '计算近似高程 Private Sub mnuHeight_Click() Dim i%, j% For i = 1 To un For j = 1 To hn If be(j) = nn + i And en(j) < nn + i Then '找到一个起点相同且终点已知的观测值 Hknown(nn + i) = Hknown(en(j)) - h(j) Exit For End If If en(j) = nn + i And be(j) < nn + i Then '找到一个终点相同且起点已知的观测值 Hknown(nn + i) = Hknown(be(j)) + h(j) Exit For End If Next j Next i '显示近似高程计算结果 txtShow.Text = txtShow.Text & " 近似高程计算结果: " & vbCrLf For i = 1 To un txtShow.Text = txtShow.Text & Pname(i + nn) & ":" & Format(Hknown(i + nn), "0.000") & vbCrLf Next i End Sub '退出程序 Private Sub mnuExit_Click() End End Sub '打开文件 Private Sub mnuOpen_Click() Dim i As Integer '循环变量 Dim strT1 As String, strT2 As String CDg1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*" CDg1.ShowOpen '打开对话框 strFileName = CDg1.FileName '获得选中的文件名和路径 Open strFileName For Input As #1 '打开文件 Input #1, nn, un, hn '读入已知点个数,未知点个数,观测值个数 tn = nn + un ReDim Pname(1 To tn), Hknown(1 To tn) ReDim h(1 To hn), s(1 To hn), be(1 To hn), en(1 To hn) For i = 1 To tn '读入点名 Input #1, Pname(i) Next i For i = 1 To nn '读入已知高程 Input #1, Hknown(i) Next i For i = 1 To hn '读入各观测值 Input #1, strT1, strT2, h(i), s(i) be(i) = Order(strT1): en(i) = Order(strT2) '给起终点数组排序 Next i '显示读入的数据 txtShow.Text = txtShow.Text & "读入的水准网数据:" & vbCrLf txtShow.Text = txtShow.Text & " 已知点" & nn & "个,未知点" & un & "个,观测值" & hn & "个。" & vbCrLf txtShow.Text = txtShow.Text & " 网中涉及的点名有:" For i = 1 To tn txtShow.Text = txtShow.Text & Pname(i) & "," Next i txtShow.Text = txtShow.Text & vbCrLf txtShow.Text = txtShow.Text & " 已知点高程为:" & vbCrLf For i = 1 To nn txtShow.Text = txtShow.Text & Pname(i) & "的高程为:" & Hknown(i) & vbCrLf Next i txtShow.Text = txtShow.Text & " 各观测值分别为:" & vbCrLf txtShow.Text = txtShow.Text & "起点" & " " & "终点" & " " & "高差观测值 " & " 距离观测值" & vbCrLf For i = 1 To hn txtShow.Text = txtShow.Text & Pname(be(i)) & " " & Pname(en(i)) & " " & Format(h(i), "0.000") & " " & Format(s(i), "0.000") & vbCrLf Next i Close #1 '不要忘记关闭文件 End Sub '点名-序号转换函数 Public Function Order(str As String) As Integer Dim i% For i = 1 To tn If str = Pname(i) Then Order = i Exit For End If Next i End Function '保存计算结果 Private Sub mnuSave_Click() CDg1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*" CDg1.ShowSave strFileName = CDg1.FileName Open strFileName For Output As #1 Print #1, txtShow.Text Close #1 End Sub

立即下载
基于matlab的水准网间接平差程序设计

matlab 水准网间接平差程序设计;windows7 系统可运行;文档并不是软件;附有部分代码

立即下载
测量平差间接平差的VC程序

测量平差间接平差的VC程序测量平差间接平差的VC程序

立即下载
测量平差程序设计

《测量平差程序设计》以C语言作为编程语言,详细讨论了各种平差方法的程序设计原理、编程思路、编程技巧,给出了完整的程序代码和应用算例。平差方法包括参数平差、条件平差、具有条件的参数平差、具有参数的条件平差、参数加权平差、序贯平差、最小二乘配置、卡尔曼滤波、抗差估计、相关抗差估计、粗差探测、半参数估计、岭估计等。重点介绍了水准网、水平网、GPS向量网等网平差程序设计,网平差程序可进行最小二乘平差、粗差探测、抗差估计、自由网平差、拟稳平差等。

立即下载
间接平差MATLAB程序

间接平差:间接平差是在确定多个未知量的最或然值时,选择它们之间不存在任何条件关系的独立量作为未知量组成用未知量表达测量的函数关系、列出误差方程式,按最小二乘法原理求得未知量的最或然值的平差方法。

立即下载
C#二等精密水准实习平差程序(武大测绘二等水准实习)

之前大二做二等精密水准测量实习的时候写的一个程序,完全按照任务书的要求来做的,实现的是xlsx电子手簿数据直接读入,输出txt的各点平差结果文件,它能自动识别点号,不过建议使用前先修改源代码里面的点号识别类

立即下载
测量平差程序源代码(已经调试通过)

这是军测的老师写的平差的程序的基础函数,包括求逆,矩阵传播,矩阵输出等功能的实现,比较有用。

立即下载
条件平差的 C++代码

条件平差的 条件平差的 条件平差的条件平差的 条件平差的

立即下载
导线网平差程序(matlab)

本程序是应用matlab编程,按照测量平差的原理,读取用户要计算的导线网数据文件,计算导线网各个未知点的坐标及中误差,并用误差椭圆画图展示出来,并生成计算结果TXT文件。使用时,用matlab打开,运行main文件即可!读者可在程序基础上改进,写出更好的程序!

立即下载
测量平差软件 完全破解版

杨云英测量平差软件破解版 功能与特点   本软件适用于闭、附合导线的优化设计与严密、近似平差,支导线坐标计算,闭、附合高程路线优化设计与平差,支高程路线的计算。可运行于win9x/NT/2000/XP操作平台。 一.主要功能:   1.优化设计:根据观测精度与模拟设计数据对闭、附合导线及高程路线进行全面的精度评定,通过调整观测精度与模拟数据使其满足精度要求,减少成果超限的可能性。   2.平差计算:闭、附合导线的严密与近似平差及支导线坐标计算,计算其围合面积,当观测成果有且仅有一个错误时自动查找错误。采用严密平差时,可以全面评定其精度,可绘平面图形及误差椭圆图。闭、附合、支水准或三角高程路线的高程计算,闭、附合路线评定各点高程中误差。   3.其它。高斯投影正反算、任意带间坐标换算、方向与边长改化(自动计算曲率半径)、平面坐标正反算、角度前方交会、后方交会、距离交会,面积计算。 二.主要特点:   1.操作简单。数据输入、显示、打印均采用规范的表格形式。   2.精度评定详细。包括各方位角中误差、边长中误差、边长相对中误差、相邻点位中误差、各点坐标中误差、误差椭圆参数、高程中误差并绘误差椭圆图。

立即下载
基于MATLAB的导线网平差程序

本资源为17年的毕业设计成果。程序完全正确,可成功运行,直接运行mainprogram就行。

立即下载
秩亏网平差EXCEL计算表

秩亏网平差的EXCCEL计算表格,网平差用到的,比较简陋,还能用

立即下载
测量平差水平网平差设计程序

是关于大地测量网平差程序的设计,最终打印出成果

立即下载
水准网(高程)平差

水准网平差功能:可以通过读取txt文件格式,通过软件进行水准网平差,得出结果通过Excel表格输出。

立即下载
测量平差平面控制网程序设计

是测绘工作中必须要进行的误差处理,主要介绍平面控制网的平差程序设计流程,使用MATLAB设计会使程序更加简洁。

立即下载
基于matlab的水准网平差程序

基于matlab的水准网平差程序基于matlab的水准网平差程序基于matlab的水准网平差程序 水准网平差 解压文件 并运行leveling.m即可(安装M)

立即下载

热点文章

关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

VC编写的水平网平差程序 很好的

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
VIP和C币套餐优惠
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载
您还未下载过该资源
无法举报自己的资源

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • *类型:
    • *投诉人姓名:
    • *投诉人联系方式:
    • *版权证明:
  • *详细原因: