基于MatrixVB的测量平差程序设计与实现
VB测量平差程序设计讲稿
Case 0 '读入观测值文件Text1.Visible = FalseCommonDialog1.ShowOpenfname = CommonDialog1.FileName '将用户在"打开"对话框中选择的文件名对变量fname赋值If fname <> "" Then '若无此判断当对话框中选择取消时、下面赋值语句将出错Set ts = fso.OpenTextFile(fname) '将fname作为文本文件打开,并设置句柄j = 0: k = 0: p = 0: h = 0'j是测站数累计变量,k是已知点累计变量,l（j）、ns（j）分别是方向值、边长累积计数Do While ts.AtEndOfLine <> True '前测型循环，进入循环的条件是没有读到文件结束尾B = ts.ReadLine '读一行，置入bB = Trim(B): i = 1: '删除B可能有的前导和尾随空格，i是工作变量，m(i) = InStr(B, ",") '查行中第一个逗号的左数位置,并保存在整形数组变量m(i)Do While m(i) <> 0 '前测型Do... Loop循环，成立条件是该行字符串中有逗号tr(i) = Mid(B, m(i - 1) + 1, m(i) - m(i - 1) - 1) '提取指定位置开始的指定数目字符。
i = i + 1m(i) = InStr(m(i - 1) + 1, B, ",") '从上一个找到的逗号位置起，查找下一个逗号的位置LoopIf m(i) = 0 And i > 1 Then tr(i) = Right(B, Len(B) - m(i - 1)) '处理一行中最后一个逗号后的字符串'以下部分是将存储在数组变量m(i)中的字符分类存放到方向、边长、已知坐标、网型信息等数组中If p = 0 Then '读到的是文件第一行。
基于VB语言的施工测量应用程序设计
Shell App.Path & "\DATA\qt\ 位于圆曲线斜交盖梁 长度和两端点桩号及座标计算 .EXE", vbNormalFocus End Sub Private Sub hgljs_Click() Shell App.Path & "\DATA\qt\ 缓和曲线盖梁长度计 算 .EXE", vbNormalFocus End Sub Private Sub hpjs_Click() Shell App.Path & "\DATA\lx\ 高速公路超高横坡计 算 .EXE", vbNormalFocus End Sub Private Sub jyszpc_Click() Shell App.Path & "\DATA\pc\ 简易水准平差 .EXE", vbNormalFocus End Sub Private Sub LXSJPC1_Click() Shell App.Path & "\DATA\zh\ 菱 形 三 角 平 差 (1). EXE", vbNormalFocus End Sub Private Sub LXSJPC2_Click() Shell App.Path & "\DATA\zh\ 菱 形 三 角 平 差 (2). EXE", vbNormalFocus End Sub Private Sub mnuaboat_Click() frmAbout.Show 1 End Sub Private Sub mnuend_Click() End End Sub Private Sub pqxjs_Click() Shell App.Path & "\DATA\lx\ 平 曲 线 计 算 .EXE", vbNormalFocus End Sub Private Sub razhrjs_Click() Shell App.Path & "\DATA\qt\ 卵形线与钻桩或路基 计算 .EXE", vbNormalFocus End Sub Private Sub sbspc_Click() Shell App.Path & "\DATA\pc\ 三 边 锁 严 密 条 件 平 差 .EXE", vbNormalFocus End Sub Private Sub sjspc_Click() Shell App.Path & "\DATA\pc\ 三角锁严密平差 .EXE", vbNormalFocus
基于MatLab的测量平差课程教学方法探讨
872019年4月总第311期ISSN1672-1438CN11-4994/T基于MatLab 的测量平差课程教学方法探讨王俊锋 贾文祥黄河交通学院交通工程学院 河南焦作 454950摘 要：针对测量平差课程理论性强、公式多、计算难度大等特点，传统的教学方法难以取得理想的教学效果。
通过分析测量平差教学中存在的问题，提出将MatLab 应用到测量平差课程教学中；并举例说明借助MatLab 在测量数据处理方面的优越性和实用性，有利于加深学生对知识的理解，提高学生的实践和创新能力，使测量平差教学达到良好效果。
关键词：MatLab ；测量平差；教学方法；教学实践作者简介：王俊锋，工学硕士，助教；贾文祥，工学硕士，助教。
测量平差是测绘工程专业一门必修的专业基础核心课程，为测绘类专业领域内其他课程提供数据处理的基础。
本课程是测绘学科的基础理论，对该课程掌握的好坏直接关系到测绘人才培养的质量[1]。
测量平差课程涉及高等数学、线性代数、概率论与数理统计以及测量学基础等课程知识，是应用数学理论与计算方法在测量数据处理中的典型应用，这也导致了该课程具有理论性强、公式推导多、计算难度大的特点[2]，给教学带来了较大的困难。
因此，除了对平差基本原理和方法的讲授，测量平差课程教学要偏重对工程实践能力的培养，这要求必须在知识的传授方法上进行改革[3,4]。
随着计算机技术不断被引入测量领域，近几年部分高校已经将测量平差软件应用到测量平差课程的教学过程中，取得了一些成效。
但绝大部分测量平差软件只关注原始数据的输入和结果的输出，缺少平差计算过程，并不适合进行教学[5]。
MatLab 是一款高性能数值运算软件[6]，具有强大的矩阵运算、绘图、数据分析和可视化、动态仿真等功能，能拓宽学生知识面，培养创新思维[7]，功能强大的统计工具箱和简单的编程语言可以方便地进行测量数据处理。
将MatLab 应用于教学可以节省课堂授课时间，学生在实践过程中也易于加深理解，使测量平差课程教学达到很好的效果。
基于VB的间接平差程序设计
毕业论文论文题目基于VB的间接平差程序设计专业班级工程测量学生姓名黄晓伟指导教师王克晓完成时间2015年5月5日重庆能源职业学院重庆能源职业学院毕业设计（论文）指导教师评语评语：成绩：指导教师签名：年月日重庆能源职业学院毕业设计（论文）答辩记录目录摘要 (1)1 引言 (2)1.1 现状分析 (2)1.2 目的及意义 (3)1.3 研究内容 (4)2 Visual Basic编程语言概述 (5)2.1 Visual Basic简介 (5)2.2Visual Basic程序设计简述 (8)3 间接平差 (25)4.1 平差软件整体展示 (29)5算例演算 (32)5.1水准网间接平差 (32)6 结论 (34)测量平差是测绘类专业的一门重要的专业基础课程，是用于观测数据处理的一门应用数学。
但是因为其计算量比较大，这变使大家在学习和使用的时候感觉十分头疼。
虽然有很多简化了的平差算法，比如高斯约化法，但是这些算法一方面会影响计算精度，另一方面也不能有效的减少计算量。
平差计算是利用最小二乘原理消除观测值与起算数据之间的矛盾，求出各待定元素的平差值并评定精度。
而在经典测量平差中，主要研究四种平差模型方程（条件平差、间接平差、附有未知参数的条件平差和附有限制条件的间接平差）的列立和求解，其牵涉到大量的矩阵运算，传统的人工计算工作量很大。
随着计算机的出现，矩阵运算就变得轻松，而且计算机的运行速度快，精度高，特别是对于具有大量矩阵运算，计算机轻松解决。
前提是要编好相应的程序代码。
本文运用visual basic语言编制了一个平差软件，主要对水准网和附合导线进行了平差的编制和软件程序界面的设计，实现的功能主要有对水准网数据和附合导线数据的平差计算，当然为了平差后能使用数据，本软件还设计了数据输出的功能，使界面更友好，方便用户使用。
关键词：水准网间接平差，visual basic ，visual basic界面设计（GUI）1.1 现状分析Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。
基于VB精确评定平面度误差
（上接第 ２４９ 页） ［３］Ｖｉｎｃｅｎｔ Ｂｅａｕ， Ｍａｒｋ Ｓｉｎｇｅｒ， Ｒｅｄｕｃｅｄ ｒｅｓｏｌｕｔｉｏｎ ａｎｄ ｓｃａｌｅ ｓｐａｃｅ ｆｏｒ ｄｏｍｉｎａｎｔ ｆｅａｔｕｒｅ ｄｅｔｅｃｔｉｏｎ ｉｎ ｃｏｎｔｏｕｒｓ ， Ｐａｔｔｅｒｎ Ｒｅｃｏｇｎｉｔｉｏｎ［Ｊ］， ２００１， ３４（２）： ２８７－ ２９７． ［４］朱亚云，方承远． Ｗｉｎｄｏｗｓ 环境下实现实时数据采集的可行性 ［Ｊ］．上海理工大学学报．１９９９， ２１（２）：１５３－ １５８ ［５］严蔚敏，吴伟民．数据结构［Ｍ］．清华大学出版社．１９９２． ［６］张永强，李学东，刘富军．应变实验数据采集与处理系统的硬件 设计与实现［Ｊ］微计算机信息．２００５，１：６５－ ６６ ［７］杨琨超，毕荣．电力电缆（电线）及附件生产加工工艺与质量检 测标准实用手册［Ｍ］．安徽文化音像出版社． ２００３． 作 者 简 介： 李 涛（１９８０－ ）， 男 ， 湖 北 荆 门 人 ， 湖 北 黄 石 理 工 学 院 机 电工程学院教师， 主要从事智能测控方面的研究工作， 硕士；田 晓君（１９６９－ ）， 男 ， 湖 北 浠水 人 ， 湖 北黄 石 理 工学 院 机 电工 程 学 院 教师， 主要从事智能测控方面的研究工作， 硕士。 （４３５００３ 湖 北 黄 石 黄 石 理 工 学 院 机 电 工 程 系） 李 涛 田 晓 君 通讯地址：（４３５００３ 湖北黄石 黄石理工学院机电工程系）李涛
本 文 作 者 创 新 点 ： 基 于 ＶＢ 编 程 语 言 ， 采 用 分 区 排 序 算 法 ， 设计了数据处理软件， 实现了平面度误差的精确评定。 参考文献： ［１］ 中华人民共和国国家质量监督检验检疫总局．《ＧＢ／Ｔ１１３３７－ ２００４ 平面度误差检测》［Ｓ］．北京：中国标准出版社．２００５．１－ ３２ ［２］张善钟，于瀛洁，张之江．直线度平面度测量技术［Ｍ］．北京：中 国计量出版社．１９９７ ［３］罗世民，杨春辉．基于 ＶＢ 的凸轮机构的参数化设计及其动画 仿真［Ｊ］微计算机信息， ２００５，２６：１５５－ １５８ 作者 简 介：隋 文 涛 （ １９７７－ ） ， 男 （ 汉 族 ） ， 山 东 烟 台 人 ， 山 东 理 工 大 学 讲 师 ， 硕士 ， 研 究 方向：测 控 技术 和 机 械自 动 化；张宇 （ １９５０－ ） ， 男（ 汉族） ， 山东淄博人， 山东理工大学教授， 研究方向：测量和质 量控制。
MatrixVB在测量数据处理中的应用
MatrixVB在测量数据处理中的应用林永秋,福建省建筑科学研究院 350025,[摘要] 本文介绍了MatrixVB的主要功能以及引用方式～并且重点介绍了在测量数据处理中比较重要的两个方面～即矩阵运算以及图形处理。
通过本文的实例可以发现～在VB中加载了MatrixVB插件之后～使得程序代码编写的负担大大减轻。
MATLAB和VB具有较好的互补性～采用MatrixVB和VB混合编程～既保留了MATLAB强大的矩阵运算图形处理等功能～又集成了VB高级语言界面友好易于编译等优点。
说明了采用MatrixVB和VB混合编程在测量数据处理中具有较好的实用价值。
[关键词] MatrixVB MATLAB VB 测量数据处理矩阵运算图形处理The application of matrixvb in measurement data processingLin YongqiuAbstract: This paper has introduced key functions and citation method of MatrixVB, highlighted two aspects which are more important in surveying data processing, namely matrix operation and graphic processing. It can be found that through these examples in this paper, after loading Matrix in VB, the burden of compiling program code can be reduced greatly. MATLAB and VB have good complementarity. Using both of them for mixed programming, it has reserved the advantaged of both MATLAB and VB. It enjoys the strong matrix operation and graphicprocessing functions of MATLAB and friendly interface and easinessto compile of VB. So the conclusion that the mixed programming using MatrixVB and VB has good practicability in surveying data processing can be drawn.Keywords:MatrixVB,MATLAB,VB, Surveying Data Processing, MatrixOperation, Graphic Processing。
水准网平差(VB代码)
误差理论与测量平差础）课程设计报告系（部）：土木工程系实习单位：山东交通学院班级：测绘084学生姓名：田忠星学号080712420带队教师：夏小裕﹑周宝兴时间：10 年12 月13 日到10 年12 月19 日山东交通学院目录：1.摘要P32.概述P33.水准网间接平差程序设计思路P3—P44.平差程序流程图P4—P65.程序源代码及说明P7—P236.计算结果P23—P267.总结P26—P27一：摘要在测量工作中，为了能及时发现错误和提高测量成果的精度，常作多余观测，这就产生了平差问题。
在一个平差问题中，当所选的独立参数X?的个数等于必要观测数t 时，可将每个观测值表达成这t 个参数的函数，组成观测方程，这种以观测方程为函数模型的平差方法，就是间接平差。
二：概述：该课程设计的主要目是对水准网进行间接平差，在输入数据后依次计算高程近似值﹑误差方程和平差计算。
三：水准网间接平差程序设计思路1．根据平差问题的性质，选择t 个独立量（既未知点的高程）作为参数X?2.将每一个观测量的平差值（既观测的高程差值）分别表达成L L V3．由误差方程系数 B 和自由项组成法方程，法方程个数等于参数的个数t ；4. 解算法方程，求出参数X?,计算参数（高程）的平差值X?=X0 +x? ；5．由误差方程计算V，求出观测量（高差）平差值L L V 6.评定精度单位权中误差平差值函数的中误差四：平差程序流程图1． 已知数据的输入 需要输入的数据包括水准网中已知点数﹑未知点数以及这些点 的点号， 已知高程和高差观测值﹑距离观测值。
程序采用文件方 式进行输入，约定文件输入的格式如下： 第一行：已知点数﹑未知点数﹑观测值个数 第二行：点号（已知点在前，未知点在后） 第三行：已知高程（顺序与上一行的点号对应） 第四行：高差观测值，按“起点点号，终点点号。
高差观测值， 距离观测值”的顺序输入。
本节中使用的算例的数据格式如下2,3,7 1,2,3,4,5 5.016,6.016 1,3,1.359,1.11,4,2.009,1.7 2,3,0.363,2.3 2,4,1.012,2.7 3,4,0.657,2.4 3,5,0.238,1.4 5,2,-0.595,2.6 2.平差计算过程V TPV rV TPVnus（1）近似高程的计算。
基于VB的测量程序设计的研究
基于VB的测量程序设计的研究摘要：随着测绘技术的不断发展，计算机在现代测绘学科中的应用越来越广泛，已经深入到从理论研究到实际生产的方方面面。
本文是以MircoSoft公司的VisualBasic6.0开发的“地形图分幅与编号”测量程序为例来进行介绍的。
关键字：VB语言；测量程序；图幅分幅一、VB语言的特点简介目前使用较多的高级语言有Visual Basic、Visual FoxPro、Visual C++、Java 等，它们各有特点，分别适用于不同的领域。
从应用角度上讲VB简单易用、方便迅速、功能强大、应用广泛，适合测绘专业人员使用；也非常适合作为入门语言来学习。
VB语言的特点：（1）具有面相对对象的可视化设计工具：在VB中，应用面向对象的程序设计方法（OOP），把程序和数据封装起来视为一个对象，每个对象都是可视的，程序员在设计时，只需根据界面设计的要求，用现有的工具直接在屏幕上“画”出窗口、菜单、按钮、滚动条等不同类型的对象，并为每个对象设置属性。
（2）事件驱动的编程机制事件驱动是非常适合图形用户界面的编程方式。
事件掌握着程序有运行的方向，每个事件都能驱动一段程序的运行。
程序员只需编写相应用户动作的代码，而各个动作之间不一定有联系。
这样的应用程序代码一般较短，所以既易于编写又易于维护。
（3）提供易学易用的应用程序集成开发环境在VB集成开发环境中，用户可以设计界面、编写代码、调试程序，直至把应用程序编译成可执行文件在Windows中运行，使用户在友好的环境中工作。
（4）结构化的程序语言设计VB具有丰富的数据类型和结构优化程序结构，而且简单易学。
此外作为一种程序设计语言，VB还有许多的独到之处：①强大的数值和字符串处理功能。
②丰富的图形指令，可方便地绘制各种图形③提供静态和动态数组，有利于简化内存管理。
④过程可递归调用，使程序更为简练。
⑤支持随机文件访问和顺序文件访问。
⑥提供了一个可供应用程序调用的包含多种类型的图标库。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实 际测量 工程 中 ， 量 平差 是 非 常 重要 的一 测 项工 作 ， 制 网 测 量 数 据 的平 差 处 理 必 不 可 少 。 控 然 而平差 处理 过程 中的计 算 往 往 比较复 杂 ， 及 涉 矩 阵运算 ， 别是 网形 复 杂 、 阵 非 对 角 、 特 权 观测 量
值 ；２ 评 定测 量 的精 度 。 （）
增 多 即矩 阵增 大 时 ， 算 尤其 繁 琐 。 目前 市场 上 计 成熟 的商业平 差软 件 很 多 ， 一般 都 需 要 准备 特 但
定 格式 的数 据 文 件 ， 计 算 的过 程 完 全 封 装 ， 将 包 括条 件 方 程 、 差 方 程 的 列 立 都 不 需 要 用 户 关 误
２ １ 年 第 ４期 ０２
． 京测绘 ． 北
１ ５
和采用 事 件 驱 动 方 式 的 结 构 化 高 级 程 序 设 计 语
・
北京 测 绘 ・
２１ ０ ２年 第 ４期
基于 Ｍａｒ Ｖ ｔｉ Ｂ的测量平差程序设计 与实现 ｘ
李 沛鸿 江红兵 王 劲松 刘 伟。
（． 西 理 工 大 学 建 筑 与测 绘 工程 学 院 ， 西 赣 州 ３１ ０ ；． 东交 通 职 业技 术 学 院 ， 东 广 州 ５ ０ ５ ） １江 江 ４００２广 广 １６ ０
有 实 用价 值 。
［ 键 词 ］ Ｍａｒ ＶＢ Ｖ ６０ 测 量 平 差 ； 关 ｔｘ Ｂ ． ； ｉ 函数 模 型 ； 方 图 直 ［ 图分 类 号 ］ Ｐ ０ 中 ２８ ［ 献标 识码 ］ Ｂ 文 ［ 章 编 号 ］ １ ０ — ３ ０ （０ ２ ０ —５ 文 ０ ７ ００２１）４
［ 摘 要 ］ 基 于 ＭＡ ＡＢ的 组 件 Ｍａｒ Ｖ 小巧 灵 活 ， 有 强 大 的 矩 阵运 算 能 力 ， 合 ＶＢ ． ＴＬ ｔｉ Ｂ ｘ 具 结 ６ ０简 洁 美
观 的 可视 化 编 程 ， 发 出测 量 数 据 平 差 程 序 ， 分 利 用 了各 自的 优 点 ， 高 了计 算 效 率 ， 实 际 工 程 应 用 中具 开 充 提 在
平差 中的几个量 ： １ 观测 值 个数 ｎ （ ） 要 （） ；２ 必
观测 数 ｔ能 够 唯 一 确 定 一 个 几 何 模 型所 必要 的 ：
元 素的个 数 ； ３ 多 余 观 测数 ｒ 多余 必 要 观 测 的 （） ：
观测 量个 数 ， 叫“ 又 自由度” ｒ： － ｔ ， ＝ ＝ｎ 。
差方法 。
Ａ ＋ Ｗ 一 ０
人 员 往往还 需要 根据 项 目研 究 的实 际 需 求 ， 自主
开发平 差程 序 。
在《 隧道施 工 自动监 测 及 安 全 风 险预 警 系 统 研究 》 目的研 究 中 ， 了 更 好 掌 握 隧 道 工 程 中 项 为 洞 内平面 控 制 导 线 网、 高程 控 制 水 准 网、 角 三 测
的平 差方 法就 是 间接平差 Ｌ 。 ３ ］
矩 阵计算 能力 、 Ｂ ． Ｖ ６ ０简 单高 效 可视 化 编程 以及 通用 的 Ｅ ｃｌ 格 数 据 输人 模 式 ， 发 并 应 用 了 ｘｅ表 开
此测 量 平 差 程 序 。其 具 有 简 洁 明 了、 操 作 、 易 能
较好 联 系工程 实 际等 特 点 ， 平差 计算效 果 良好 。
ｖ — Ｂ兰 一 ｚ 其数 学模 型 为 ：￣ ｎ １
Ｄ 一
１ 平 差 的 基 础 及 模 型
测量 平差 是在 多 余 观 测 的基 础 上 ， 据一 定 依 的数学模 型 和某 种平 差 原 则 ， 观测 结 果 进 行合 对 理 的调 整 ， 而求 得 一组 没 有 矛 盾 的最 可 靠 结果 从 并 评定 精度 。其 任务 是 ： １ 对有 误 差 的 观测 值 ， （）
一：一 Ｐ 一 Ｑ 三
平 差准则Ｍａｒ Ｖ ｔｉ Ｂ＋Ｖ ６ ０测量 平差 程 序 ｘ Ｂ． 开发 的环境和思路
Ｖｉｕ ｌ ａｉ ６ ０ 一种 可视 化 的 、 向对 象 ｓ ａ Ｂ ｓ ． 是 ｃ 面
消除 它们 之 间 的 不 符 值 ， 出未 知 量 的 最 或 然 求
利 于计 算者 了解 平差 的 内部 过程 ， 就 不 容 易发 也 现 错误 ， 因此 在 某 些 工 程 科 研 项 目研 究 中 ， 究 研
其 相互 间统计 相关 性质 的模 型）１。 ［ ］
条 件平差 ： 几何 模 型 中有 ｒ 多余 观 测 ， 个 产生
ｒ 条 件 方 程 ， ｒ 条 件 方 程 为 函数 模 型 的平 个 以 个
［ 稿 日期 ］ ２ １ — ０ — １ 收 ０２ ２ ９
［ 金项 目］ 广 东 省 交 通 运 输 厅科 技 项 目 ， 目编 号 ２ １ －０ －０ ４ 基 项 ０ ０ ２ ２ ［ 作者 简 介］ 李 沛 鸿 （ ９４ ）男 ， 族 ， 授 ， 要 从 事精 密工 程 测 量 、 量 数 据 采 集 和处 理 、 Ｓ教 学 和 科 研 工 作 。 １６一 ， 汉 教 主 测 ＧＩ
角 网的平 差 过 程 ， 目组 利 用 Ｍａｒ ＶＢ强 大 的 项 ｔｉ ｘ
其 数 学模 型为 ：
一
Ｐ一
间接平 差 ： 定 ｔ 独立 的参 数 ， 每个 观 测 选 个 将 值分 别表 示成这 ｔ 独 立 参数 的 函数 ， 成 观测 个 组 方程 ， 这种 以观 测方 程 （ 误 差 方 程 ） 函数 模 型 或 为
平差 的数 学模 型 ： 数 学 关 系 描述 几 何 模 型 用 的几 何关 系 和 内在联 系 。主要 有 函数 模 型 （ 述 描 观测 量 与未 知量 间 的数 学 函 数 关 系 的模 型 ） 随 、
机模 型 （ 描述 平差 问题 中 的随 机量 （ 观 测 量 ） 如 及
心 ， 一方 面大大 减 轻 了计 算 量 ； 另 一方 面 ， 这 但 不