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

2007年第 3期 ·北京测绘· 57 用Excel编写四等水准观测记录和 平差计算程序 王德成 (成阳市勘察测绘院，陕西 成阳 712000) 【摘 要】介绍了用Excel编写四等水准观测记录及平差计算程序的有关方法和技巧，适合生产部门使用。 【关键词】四等水准；Excel；宏 [中图分类号】 P224、1 [文献标识码】 B [文章编号】 1007-3000(2007)03-3 1 问提出及解决办法 在城市高程测量中，四等水准测量是大量运 用的方法之一。以前大家通常用 PC一1500进行记 录计算。近年来，PC一1500等便携机处于淘汰状 况，加之四等水准测量现场记录计算快速、 准确，后续的平差计算也比较烦琐，所以用通用 软件编写相关程序就显得尤为重要。经过努力， 用Excel进行四等水准观测记录及平差计算的程 序已编写完毕，投入运行，一年多的应用明：它 达到了我们预期的目的，提高了观测速度及质量， 同时也完成了平差计算，适宜一般人员掌握利 用。 2 程序达到的效果 1)在汉字提示下输入观测数据，并用背景色 标明奇偶站。 2)即时计算、显示《》所要求的各项限 差，提示超限。 3)观测结束后，自动进行平差计算，显示最 终成果。 4)利用 “宏”和 “按钮”点击，快速打印输出 原始记录及平差结果。 3 核心问题的解决及技巧 1)观测数据应固定于某一列，自上而下依次 输入，从而使整个输入过程变得连贯、顺畅，同时 也便于超限返测。 2)同一类格式、文字、数据、计算，例如，提示 文字、前后视距累积差、黑红面差、高差计算等应 分列放置，只有这样，才能有条理，便于后续计算 的有效利用。同时可用 “拖放”功能，将其格式、 公式等合理地复制到下面的单元格，瞬间完成程 序的编写。 3)在本程序的编写过程中，需大量使用判断 语句，特别是镶嵌式的判断语句，如果能灵活运用 好该语句，程序的编写也就成功了一大半。例如， E8单元格为：=IF(ABS(N6)>3，IF(D8=0，⋯’，”超限 ”)，N6)，其中 ABS(N6)为黑红差的绝对值，若大于3 转入第二判断句 IF(D8=0， ，”超限 ”)，其中 D8为 后尺红面读数，若 D8=0(fl0此时后尺红面分划尚 未观测)，显示：空格，若D8不等于0，显示：超限。 若 ABS(N6)<3，显示黑红差 N6。判断、显示前后视 距累积差 ，黑红面高差之差等的方法也基本类 似。 4)对所有 “超限”个数进行统计 ，例如 L6 单元格为 ：=IF(E8=”超限 ”，1，0)，其中 E8为后尺 黑红差 ，若超限，记为 1，否则为 0，并将全部统计 结果单列成一列 ，用 L608单元格 =SUM(L6：L607) 语句进行汇总。在标题栏用 IF(L608=0，”世纪大 道四等水准记录及平差计算 ”，”该 成 果 不 合 格 ”)语句，根据超限与否，显示 ”世纪大道四等 水准记录及平差计算 ”或 ”该 成 果 不 合 格 ”。 该步骤的目的是对观测输入阶段，出现 “超限”， 视而不见的再提示，从而确保最终观测成果正确 【收稿日期】 2007—03—17 【作者简介】王德成，男，(1963一)，陕西咸阳人，高级师。主要从事城市测量技术工作 维普资讯 http://www.cqvip.com 58 ·北京测绘· 2007年第 3期 无误。 5)平差计算时，首先对该测站前后视距和， 在I列进行统计，例如，I12单元格为：=IF(D1 1=0， 0，D6+D9)，其中D1 1为该站前尺红面读数，若为 0(即此时尚未观测前尺红面读数 )则前后视距 和记为0，若不为 0则用 D6+D9计算该站前后视 距和，并用单元格 I608=SUM(I6：I607)进行累加。 然后用类似语句计算高差，分配闭合差，算出高程。 6)因观测数据是按观测顺序在 D列依次 自 上而下输入的，在后期形成表格的过程中不易用 “拖放复制”的办法快速编辑表格，所以应首先 对观测数据按表格形式进行排序，然后编辑表 格。 7)程序编辑完成后，应对输入区外的所有单 元格进行再设置，在 “设置单元格格式”菜单下， 选定 “保护”子菜单下的 “锁定”和 “隐藏”，并 在 “工具”子菜单 “保护”中的 “保护工作表” 下，用密码进行保护，从而确保程序在使用过程 中不被修改或破坏。 8)本程序共有两类 “宏”及其对应的 “按 钮”，其中 “输入宏”功能为：清理旧数据并为新 数据的输入指定位置。“打印宏”功能为：选定区 域，快速打印输出。(“打印宏”可根据表格的长短 设置若干个 “打印宏”及“按钮”。)具体内容如下： Sub输A0 输入 Macro 123记录的宏 2005—10—17 Range(”D 1：D607”、．Select Selection．ClearContents Range(”D 1”)．Select End Sub Sub打印 1() 打印Macro 123记录的宏 2005—10—17 Range(”P3：T3 1”)．Select Selection．PrintOut Copies：=l Range(”P1”)．Select End Sub 5 结语 后尺常数 4687 前尺常数 4787 耗 占名 BM1 起点高 380．128 终点高 379．427 后视距 58 黑面读数 1347 黑 一 红 视距检核 红面读数 6032 2 前视距 58 高差之差 0 { 黑面读数 1599 黑一 红 l 红面读数 6384 2 视距差累计 0 l 点号 后视距 67 黑面读数 1218 黑一 红 视距检核 红面读数 60o4 1 前视距 65 高差之差 黑面读数 1439 黑 一 红 红面读数 6128 —2 2 点号 A 成果区： 世纪大道四等水准记录及平差计算 地点：世纪大道 测：刘新党 记录：尹定中 限差 闭和差 观_则 颜党 仪器 日期 4．2 -3O 成像 020A 2006-5-29 点号 距离 清晰 红读数 高程 BM1 58 黑面读数 6032 380．128 58 1347 6384 67 1599 60o4 A 65 1218 6128 379．652 76 1439 768 B 5 236 6024 379．495 52 1324 6l1O BM2 53 1391 6078 379．427 近年来，我院用 Excel编写了大量的内业计 算和外业观测程序，效果不错。编者认为：只要对 Excel软件有一定了解，同时参考本例的基本思 路，结合各自单位仪器、《规范》及具体作业习 惯，量体裁衣，大家一定能在较短的m-j-f~q内编出 实用、便捷的操作软件。 How to W rite a Program for Leveling Survey System with Excel WANG De——cheng (Xianyang Insititute of Reconnaissance，Surveying and Mapping，Xiaoyang，Shan xi，712000) Abstract：A method for writing a leveling survey programe is introduced in this paper．It is very useful to survey departments． Key words：Leveling Survey；Excel；Macro 维普资讯 http://www.cqvip.com