EXCEL-无定向导线严密平差测量程序
电子表格Excel VBA测量程序分享
电子表格Excel VBA测量程序分享2012-2-13 11:16阅读(6977)简介：Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，Visual Basic forApplications（VBA）是一种VisualBasic的一种宏语言，是基于Visual Basic for Windows 发展而来的，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。
也可说是一种应用程式视觉化的Basic Script，VBA的使用可以达成执行特定功能或是重复性高的操作。
适用：Microsoft Office Excel办公软件NO.1：曲线坐标计算程序VBA说明：本程序适用于Office Excel运行，属于多交点坐标正算、反算程序，包括：多交点曲线要素、坐标正算、坐标反算、放样计算、竖曲线高程等。
下载：曲线坐标计算程序VBA 1.0（单交点坐标正算）曲线坐标计算程序VBA 2.0（单交点坐标正算、反算）曲线坐标计算程序VBA 2.3（单交点坐标正算、反算、自动化）曲线坐标计算程序VBA 3.0（多交点坐标正算、反算）曲线坐标计算程序VBA 4.0~4.9（交点法、线元法、竖曲线等一体化程序）2012-11-15 更新测量坐标计算程序 V5（交点法、线元法、直线、竖曲线等多种计算程序）2013-07-27 更新NO.2：测量计算程序集成VBA 1.6说明：本程序适用于Office Excel运行，通过VBA编写的测量集成程序，属于单交点曲线，包括：坐标正算、坐标反算、坐标放样、角度转弧度、任意切线方位角、坐标展点、边角后方交会、坐标面积计算、无定向平差、水准平差、竖曲线高程、导线观测手薄、线元法坐标正算、线元法坐标反算、直线坐标正反算等。
下载：点击下载NO.3：线元法坐标正反算VBA说明：本程序适用于Office Excel运行，是线元法坐标正算、反算一体程序，可以计算多线元数据，适用性广（包括：复曲线、S型曲线、匝道）等。
基于Excel的导线平差计算
基于Excel的导线平差计算作者：李张华姚连璧来源：《名城绘》2019年第02期摘要：本文主要探讨如何利用Microsoft Excel内置的VBA来编写导线网平差的计算程序的方法。
该方法具有计算步骤、计算方法可视化，计算原理、计算公式紧密结合的解题式特点，非常适合刚刚进入测量工作中的工作人员解决测量实践中平差计算问题并能从基础逐步掌握测量平差的原理。
关键词：测量误差；测量平差；导线网；平差计算；最小二乘法1引言Microsoft Excel是微软公司开发的Office办公软件之一，是目前市面上使用率最高也是功能最全面的电子表格软件。
它不仅拥有丰富的电子表格制作和编辑功能，还拥有功能强大的函数计算功能，能够创建和编辑函数公式，可以利用软件系统本身提供的函数公式来完成各项复杂的数学计算。
本文在介绍Microsoft Excel基本的运算操作方法的基础上，结合平差算例全面阐述Microsoft Excel在导线测量平差中的应用方法。
2闭合导线平差和附合导线平差的基本原理和方法2.1角度闭合差的计算与调整（1）计算闭合差：（2）计算限差：（3）若在限差内，则按平均分配原则，计算改正数：（4）计算改正后新的角值：2.2 坐标增量闭合差的计算与调整（1）计算坐标增量闭合差。
有：导线全长闭合差：导线全长相对闭合差：（2）分配坐标增量闭合差若 K不大于1/2000 ，则将fx、fy以相反符号，按边长成正比分配到各坐标增量上去。
并计算改正后的坐标增量。
2.3坐标计算根据起始点的已知坐标和经改正的新的坐标增量，来依次计算各导线点的坐标。
两相邻导线点i，j，已知点的坐标及i点至j点的坐标增量，用下式推算j点的坐标：闭合导线从已知点开始进行推算回已知点应当与原来的已知数据值相同，作为推算正确性的检核。
3基于Excel实现测量平差程序3.1 Microsoft Excel的基本功能Microsoft Excel中有大量的数学公式和数学函数可以选择使用，利用Microsoft Excel可以执行许多数学计算，并且在分析信息和管理电子表格中的数据信息列表中，可以实现许多便利的功能。
基于excel vba的无定向导线计算程序的编制及应用
(妃，冗)、(必,兄)为A、B点在假定坐标系中的坐标。
需要注意的是，在Excel VBA中，反正切函数的取
值范围是[-tt/2,it/2],而坐标方位角取值范围是[0,2it],
故因此需要象限转换。
3) 计算长宽比。 根据赫尔默特相似变换原理，独立坐标系与大地 坐标系的转换关系公式如下：
[x\
\ / cosa -sin a \ IX\
:!工程测量与检测
Engineering Survey & Detection
基于Excel VBA的无定向导线计算程序的编制及应用
陈军伟
（北京市政建设集团有限责任公司，北京100079）
摘要：对无定向导线计算的数学模型.Excel VBA编制程序进行讨论，幷列举了无定向导线计算程序编制的应用实例。
a, = a' +aA, o 2 基于Excel VBA的程序设计 2. 1 程序设计思路
VBA是嵌套在MS Excel中的编程控制器，是VB 的一种宏语言，能够更好地拓展Excel的基础功能，是 Excel中一种高效和易用的开发工具。
无定向导线坐标推算程序是利用Excel VBA开发 而成，在程序中输入导线点号，转折角(观测左角)，平 距和4、B两点的平面坐标，点击“无定向导线坐标推 算”，程序将自动计算出导线中点平面坐标，见图3。
1）计算地下各点在假定坐标系中的坐标。 已知点1,2,……,n-\上的转折角（观测左角）和对
应的平距，通过假定坐标系4点坐标和假定坐标方位 角，可通过坐标正算计算出假定坐标系中各点的坐标：
n
n
x-=工 Si cos a\ ；y-=工 St sin a-。
i=l
i=\
n
式中：方位角 a；=a〔+工（/3,-180°） ,/=（1,2,3,……，
用EXCEL97编制无定向导线严密平差测量程序
y 2 807. 690 7 094. 204 12 976. 842 17 596. 551 14 229. 710 14 229. 710
横坐标之差 11 422. 02
第二次坐 标改正
精度
fS 2S = 1 650 000
坐标增量之和
6 299. 842 0 4 286. 520 1 084. 312 2 5 882. 642 7 340. 454 7 4 619. 715 6 050. 671 0 - 3 366. 836 纵坐标改正数 横坐标改正数 20 775. 280 11 422. 04 - 0. 040 179 - 0. 022 086 1
3. 本例直接用于 4 条边导线的计算, 小于、大于 4 条边 数的导线可参考本例的编制过程来扩大或缩小 EXCEL 表 格数据区和计算区, 即可完成坐标的计算。
© 1995-2005 Tsinghua Tongfang Optical Disc Co., Ltd. All rights reserved.
收稿日期: 1999204209
的近似方位角)、已知点坐标值 (x , y )。 3. 建立公式项, 进行计算工作 1. 将度、分、秒形式的角度值转化成为弧度制的角度
值, EXCEL 97 中三角函数式是在弧度制下进行的。 ① 选择 将要包含公式的 F 3 单元。② 输入一个等号,“= ”; 等号告诉 EXCEL 97 输入的是公式而不是数值文字。 ③ 输入函数式, RAD INA S[ ]。④ 输入操作符, + , 等。⑤ 完整的公式是: = RAD INA S (C3+ D 3 60+ D 4 3 600) , 回车, 计算出单元值为 3. 932 64。 ⑥ 利用复制功能, 把上述公式粘贴到相应的 F 4, F 5, F 6 单元内, 完成角度形式的转化。 2. 在 C9 单元内输入第一条边的近似方位角 35 (整数
Excel在井下无定向导线中的应用
Excel在井下无定向导线中的应用作者：齐双峰来源：《科技探索》2014年第02期摘要：随着矿井服务年限的加长新老采区接替，原有的井下平面控制点部分缺损严重，使某些控制点成为孤立的控制点不能使用，在不用从新布设控制网时可利用井下无定向导线进行网内的加密工作。
利用Excel强大的数据计算功能计算测量数据。
关键词：无定向导线 Excel 测量前言本文以井下平面控制测量为例说明了无定向导线的原理和利用Excel来解决测量数据计算的有关问题。
由于矿井服务年限以长预设计新采区，新采区附近没有足够的控制点井下导线点缺损严重不能保证控制网的精度。
从新布设控制网费时、费力，在新采区附近找到8# 和57#两点，但两点之间不通视无法观测方位连接角不能作为起算边，但是受导线两端已知点的控制可间接求得起始方位角。
1 计算原理导线的两端均未测连接角，故无法直接从已知的坐标方位角推算出个导线边的坐标方位角。
为此，采用如下途径：首先对导线边A1假定一个坐标方位角α'A1，依此推算出个导线边的假定坐标方位角α'ij。
然后按支导线的计算顺序推求各点的坐标x'i，y'j。
由几何原理知，实际的导线与按假设坐标方位角推算的导线形状及大小均相同的关系，仅仅是它们的方位有所不同，如图1所示。
因此，以下的任务便是将这条推算出的导线旋转至实际位置。
其旋转角Δα为Δα=αA1-α'A1连接A、N两点和A、N '两点。
由图1中的几何图形关系知∠NAN'=Δα，所以Δα=αAN-αAN'αAN和αAN'可有A、N和A、N'的坐标反算求得。
Δα算出之后，将各假定坐标方位角加以改正，得实际标方位角αij为αij= α'ij+Δα，最后重复一次支导线的计算工作，便可求得各导线点的坐标。
2 Excel程序代码根据以上计算原理，我使用Excel表格编写了井下无定向导线的计算程序代码，以J12、U13、W9、Y9、Z12、AA12单元格为例编写了平距、坐标方位角、ΔX、ΔY、X、Y的程序代码。
如何用EXCEL进行附和导线近似平差的计算
Ｒ Ｕ Ｄ Ａ Ｓ Ａ ） ４ ， Ｉ （ Ｄ（ Ｂ （ １ Ｏ Ｎ （ Ｂ （ １ ， ） （Ｆ ＭＯ Ａ Ｓ Ａ ）×１ ０ ， ）＜ ． ， ０００ １ ０ ６
图 １ 各 导 线 点 位 置 图
（Ｆ ＭＯ Ｒ Ｕ Ｄ（ Ｂ （ １ ， ）×１ ０ ， ）＝０ Ｒ Ｕ Ｄ（ Ｂ Ｉ （ Ｄ（ Ｏ Ｎ Ａ Ｓ Ａ ） ４ ００ ０ ２ ，Ｏ Ｎ Ａ Ｓ
极大 的提高 了测 量效 率。此外 ， Ｓ系列全 站仪 还具 备 隧道测 量 Ｍ
激光 指示 ， 完美 的 Ｌ Ｄ照 明， ｎ ｏ ｓＣ Ｅ Ｗｉｄｗ Ｅ操 作 系统 ， 特殊 的万能
很 显然 ， 这样 的测距要求是很 容易达 到的。本实验 用该方 法
１０ ｍ距 离 ） 检测后 ， 其角 度测量 的 反射 片功能 ， 包含 无棱 镜测 量功 能。ＭＳ系列 全站 仪 可应 用于 对该类 仪器的实际测角精度 （０ 并 ０ ５ 若边长增加 ， 测角精度会更好 。 所有测 量 、 建筑 、 木 、 密测 量领 域 ， 以为各 种测 量任 务 提供 中误差 为 ｍ青＝± ． ８。实际上 ， 土 精 可 完美解 决方案 。它 的主要精 度指标见表 １ 。
３ 根据起始边（ Ｂ 的坐标 、 边 的坐标 方位 角、 直角和边 Ａ Ｓ Ａ ） Ａ 。计算 中需要检Ｎ４ 数点后第 四位和第五 位的数值 ） Ａ ） 各 竖 Ｂ （ １／ １ ， 长， 计算各 点坐标增 量 ， 推求 Ｃ点的坐标值 （ｄ ， ） 。 （ １为要保 留四位有效数字的数据 ） Ａ 。
２） （ ４ ） 假设输 入的角度值位 置在 Ａ １上 ） 。经 过 以上 两个步骤 ， 便 可将斜距 、 水平 角轻松转换为平距 、 坐标方位角。 再谈数值取位 问题 ， 我们知 道 ， 在角度计 算 中 ， 遵循 “ 四舍六
用Excel编写导线平差计算程序
能 为 ： 若 M 5 + G6 大 于 360 度 则 M 6 =M 5 + G 6 2 *3. 14 159 2 654， 否则 M 6= M 5+ G 6� 因E 中三角函数是以弧度为单位计算的， 所 以必须将以度分秒输入的角度转换成弧度 � 这就需要 将度分秒分开， 然后才能化成弧度 �例如 C6 单元格 为： =IF(B 6=" "， 180 ， IN T(B 6))其中 B 6 为以度分秒为单 位的角度 �该语句意为： 若 B 6 是空格， 即未观测， C6 值为 180 度， 否则为观测角的整度值 �其中 180 度是 为在本站未观测的情况下预设的角度， 其目的是为在 后续的计算中把方位角传递下去， 从而保证整个程序 在逻辑上的完整性 � 程序编辑完成后，应对输入区外的所有单元格 进行再 设置， 在 " 设置单元 格格式 " 菜 单下， 选定 "保 护" 子菜单下的 " 锁定 " 和 " 隐藏 " ， 并在 " 工具 " 子菜单 "保护 " 中的 " 保护工作表 " 下， 用密码进行保护， 从而 确保程序在使用过程中不被修改或破坏 � E 引入了 "宏 " 程序的概念， 其优点在于 ： 当
问题提出及解决办法 在城市日常平面控制测量中，导线是大量运用 的方法之一 � 多年来， 大家在各种计算机上， 利用多 种语言编写了大量的相关测量程序，但是随着时间 的 推移， PC 1500 等便 携机及 老款电脑 处于淘汰 状 况，以往的计算机语言所编写的程序也越来越显现 出他们的缺陷和不足， 不再适应现在新的要求， 所以 用通用软件编写相关程序就显得尤为重要 � 经过努 力， 用E 编写的导线平差 计算程序已编辑完 毕， 投入 运行， 一年多的应 用表明： 它 计算方便 , 成果表 结构合理 , 达到了我们预期的 目的 , 适宜一般人员掌 握利用 � 核心问题的解决及技巧 测量平差计算传统上是以表格为基本框架进行 的， E 也沿用了这一模式， 所不同的是它每一个单 成功的地方， 是 其精髓 元格都有函数 , 公式的编辑 , 计算功能， 这样整个表格 就有 了生命力， 这正是 E
(整理)导线测量平差教程—计算方案设置
计算方案的设置一、导线类型：1.闭、附合导线(图1)2.无定向导线(图2)3.支导线(图3)4.特殊导线及导线网、高程网（见数据输入一节)，该选项适用于所有的导线，但不计算闭合差。
而且该类型不需要填写未知点数目。
当点击表格最后一行时自动添加一行，计算时删除后面的空行。
5.坐标导线。
指使用全站仪直接观测坐标、高程的闭、附合导线。
6.单面单程水准测量记录计算。
指仅进行单面读数且仅进行往测而无返测的水准测量记录计算。
当数据中没有输入“中视”时可以用作五等、等外水准等的记录计算。
当输入了“中视”时可以用作中平测量等的记录计算。
说明：除“单面单程水准测量记录计算”仅用于低等级的水准测量记录计算外，其它类型选项都可以进行平面及高程的平差计算，输入了平面数据则进行平面的平差，输入了高程数据则进行高程的平差，同时输入则同时平差。
如果不需进行平面的平差，仅计算闭、附合高程路线，可以选择类型为“无定向导线”，或者选择类型为“闭附合导线”但表格中第一行及最后一行数据（均为定向点）不必输入，因为高程路线不需定向点。
二、概算1.对方向、边长进行投影改化及边长的高程归化，也可以只选择其中的一项改正。
2.应选择相应的坐标系统，以及Y坐标是否包含500KM。
选择了概算时，Y坐标不应包含带号。
三、等级与限差1.在选择好导线类型后，再选择平面及高程的等级，以便根据《工程测量规范》自动填写限差等设置。
如果填写的值不符合您所使用的规范，则再修改各项值的设置。
比如现行的《公路勘测规范》的三级导线比《工程测量规范》的三级导线要求要低一些。
2.导线测量平差4.2及以前版本没有设置限差，打开4.2及以前版本时请注意重新设置限差。
四、近似平差与严密平差的选择及近似平差的方位角、边长是否反算1.近似平差：程序先分配角度闭合差再分配坐标增量闭合差，即分别平差法。
2.严密平差：按最小二乘法原理平差。
3.《工程测量规范》规定：一级及以上平面控制网的计算，应采用严密平差法，二级及以下平面控制网，可根据需要采用严密或简化方法平差。