用Excel编写四等水准观测记录和平差计算程序

用Excel编写四等水准观测记录和平差计算程序 介绍了用 编写四等水准观测记录及平差计算程序的有关方法和技巧适合生产部门使用[摘 要] Excel , 。 关键词四等水准宏[] ;Excel; 中图分类号[] P224.1 文献标识码文章编号[] B [] 1007- 3000( 2007) 03- 3 文字前后视距累积差黑红面差高差计算等应 、、、问 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 提出及解决办法1 分列放置只有这样才能有条理便于后续计算 , , , 在城市高程测量中四等水准测量是大量运 , 的有效利用同时可用拖放功能将其格式。“”, 、 用的方法之一以前大家通常用 PC- 1500 进行记 。 公式等合理地复制到下面的单元格瞬间完成程 , 录计算近年来PC- 1500 等便携机处于淘汰状 。, 序的编写。 况加之四等水准测量现场记录计算要求快速, 、 3在本程序的编写过程中需大量使用判断 ) , 准确后续的平差计算也比较烦琐所以用通用 , , 语句,特别是镶嵌式的判断语句如果能灵活运用 , 软件编写相关程序就显得尤为重要经过努力。, 好该语句程序的编写也就成功了一大半例如, 。, 用 Excel 进行四等水准观测记录及平差计算的程 E8 单 元 格 为 =IF(ABS(N6)>3,IF (D8=0,""," 超 限 : 序已编写完毕投入运行一年多的应用 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 明它 , , : "),N6),其中 ABS(N6)为黑红差的绝对值若大于 3 , 达到了我们预期的目的,提高了观测速度及质量, 转入第二判断句 IF(D8=0,""," 超限 "),其中 D8 为 同时也完成了平差计算适宜一般人员掌握利 , 后尺红面读数若 D8=0(即此时后尺红面分划尚 , 用。 未观测),若 D8 不等于 0显示空格显示超限, : , : 。 若 ABS(N6)<3,显示黑红差 N6判断显示前后视 。、 距累积差黑红面高差之差等的方法也基本类 , 程序达到的效果2 似。 1在汉字提示下输入观测数据并用背景色 ) , 4 L6 对所有超限个数进行统计例 如 ) “”, 标明奇偶站。 单 元 格 为 =IF(E8=" 超 限 ",1,0), 其 中 E8 为 后 尺 : 2即时计算显示 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 所要求的各项限 ) 、《》黑红差若超限记为 10否则为 并将全部统计 , , , , 差提示超限, 。 结果单列成一列用 L608 单元格 =SUM(L6:L607) , 3观测结束后自动进行平差计算显示最 ) , , 语句进行汇总在标题栏用 IF(L608=0," 世纪大。 终成果。 4利用宏和按钮点击快速打印输出 ) “”“”, 原始记录及平差结果。 道四等水准记录及平差计算 "," 该 成 果 不 合 核心问题的解决及技巧3 格 ")语句根据超限与否显示 " 世纪大道四等 , , 1观测数据应固定于某一列自上而下依次 ) , 输入从而使整个输入过程变得连贯顺畅同时, 、, 水准记录及平差计算 " 或 " 该 成 果 不 合 格 "。 无误Selection.PrintOut Copies:=1 。 5平差计算时首先对该测站前后视距和) , , Range("P1").Select 在 I 列进行统计例如I12 单元格为=IF(D11=0,, , : End Sub 0,D6+D9)D11 为该站前尺红面读数若为其中 , , 结语 05 即此时尚未观测前尺红面读数则前后视距 ( ) 和记为 00 则用 D6+D9 计算该站前后视 若不为 , 后尺常数4687 4787 距和并用单元格 I608 =SUM(I6:I607)进行累加前尺常数, 。 起点名BM1 然后用类似语句计算高差分配闭合差算出高程, , 。 起点高 380.128 6D 列依次自 因观测数据是按观测顺序在 ) 终点高379.427 上而下输入的在后期形成表格的过程中不易用 , 后视距58 拖放复制的办法快速编辑表格所以应首先“”, 黑面读数1347 黑 - - 红 视距检核6032 2 红面读数 58 高差之差 前视距0 黑面读数黑 红 - - 1599 对观测数据按表格形式进行排序 然后编辑表, 视距差累 红面读数6384 2 计0 格 。 点号 后视距67 7程序编辑完成后应对输入区外的所有单 ) , 1218 黑 红 黑面读数视距检核- - 元格进行再设置在设置单元格格式菜单下, “”, 6004 红面读数1 65 选定保护子菜单下的锁定和隐藏并 “”“”“”, 前视距高差之差1439 黑 红 黑面读数 - - 在工 具 子 菜 单保 护 中 的保 护 工 作 表 “ ”“ ”“ ” 6128 2 红面读数- 2 下用密码进行保护从而确保程序在使用过程 , , 点号A 中不被修改或破坏。 成果区: 8本 程 序 共 有 两 类宏 及 其 对 应 的按 ) “ ”“ 世纪大道四等水准记录及平差计算钮其中输入宏功能为清理旧数据并为新 ”, “”: 地点世纪大道 测刘新党 记录尹定中 : : : 数据的输入指定位置打印宏功能为选定区 。“”: 观测刘新党 限差闭和差仪器日期:域快速打印输出打印宏可根据表格的长短 , 。( “” 4.2 - 3.0 020A 2006- 5- 29 成像设置若干个打印宏及按钮具体 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 如下“”“”。) : 点号距离清晰红读数高程Sub 输入() BM1 58 6032 380.128 黑面读数输入 Macro 58 1347 6384 67 1599 6004 123 记录的宏 2005- 10- 17 A 65 1218 6128 379.652 Range(" D1:D607").Select 76 1439 768 B 5 236 6024 379.495 Selection.ClearContents 52 1324 6110 Range("D1").Select BM2 53 1391 6078 379.427 End Sub 近年来 我院用 Excel 编写了大量的内业计 ,Sub 打印 1() 算和外业观测程序效果不错编者认为只要对 , 。: 打印 Macro Excel 软件有一定了解同时参考本例的基本思 , 123 记录的宏 2005- 10- 17 路结合各自单位仪器规范及具体作业习 , 、《》 Range("P3:T31").Select 惯量体裁衣大家一定能在较短的时间内编出 , , 实用便捷的操作软件、。 How to Wr ite a Pr ogr am for Leveling Sur vey System with Excel WANG De- cheng ( Xianyang Insititute of Reconnaissance, Surveying and Mapping,Xiaoyang,Shan' xi,712000 ) A method for writing a leveling survey programe is introduced in this paper. It is very useful toAbstr act: survey departments. Survey;Excel;MacroLeveling Key wor ds: