第３７卷第４期 ２０１４年４月 测绘与空间地理信息
ＧＥｏＭＡＴｌＣＳ＆ＳＰＡＴｌＡＬ ｌＮＦＯＲＭＡｌＴｌｏＮ ＴＥＣＨＮｏＬｏＧＹ Ｖｏ１．３７，Ｎｏ．４ Ａｐｒ．，２０１４
基于ＭＡＴＬＡＢ的改进导线网平差程序设计
王鹏磊
（西安科技大学，陕西西安７１００５４）
摘要：随着现代社会的快速发展，各项建设工程越来越向大型化发展，导线网的布设与施测也越来越复杂，其
精度要求也越来越高。但是，传统的导线网平差程序难以解算一些特殊的导线网数据，如导线网中加测陀螺定
向边、导线网中部分点位只有距离观测或角度观测值等。本文鉴于ＭＡＴＬＡＢ在处理数据方面的优势，基于间接
平差和附有限制条件的间接平差两种平差模型，实现了对各种类型导线网的平差处理。
关键词：ＭＡＴＬＡＢ；导线网；间接平差
中图分类号：Ｐ２０７ 文献标识码：Ｂ 文章编号：１６７２—５８６７（２０１４）０４—０１９８—０４
Ｉｍｐｒｏｖｅｄ Ｐｒｏｇｒａｍ Ｄｅｓｉｇｎ ｏｆ Ｔｒａｖｅｒｓｅ Ｎｅｔｗｏｒｋ
Ａｄｊｕｓｔｍｅｎｔ Ｂａｓｅｄ ｏｎ ＭＡＴＬＡＢ
ＷＡＮＧ Ｐｅｎｇ—ｌｅｉ （Ｘｉ ａｎ Ｕｎｉｖｅｒｓｉｔｙ ｏｆ Ｓｃｉｅｎｃｅ Ａｎｄ Ｔｅｃｈｎｏｌｏｇｙ，Ｘｉ ａｎ ７１００５４，Ｃｈｉｎａ）
Ａｂｓｔｒａｃｔ：Ｗｉｔｈ ｔｈｅ ｒａｐｉｄ ｄｅｖｅｌｏｐｍｅｎｔ ｏｆ ｔｈｅ ｍｏｄｅｒｎ ｓｏｃｉｅｔｙ，ｔｈｅ ｖａｒｉｏｕｓ ｃｏｎｓｔｒｕｃｔｉｏｎ ｐｒｏｊｅｃｔｓ ｍｏｒｅ ａｎｄ ｍｏｒｅ ｔｏ ｔｈｅ ｌａｒｇｅ—ｓｃａｌｅ ｄｅ—
ｖｅｌｏｐｍｅｎｔ，ｔｈｅ ｌａｙｏｕｔ ｏｆ ａｎｄ ｃｏｎｓｔｒｕｃｔｉｏｎ ｓｕｒｖｅｙ ｏｆ ｔｒａｖｅｒｓｅ ｎｅｔｗｏｒｋ ｉｓ ａｌｓｏ ｍｏｒｅ ａｎｄ ｍｏｒｅ ｃｏｍｐｌｅｘ，ｉｔｓ ａｃｃｕｒａｃｙ ｒｅｑｕｉｒｅｍｅｎｔｓ ａｌｓｏ ｇｅｔｔｉｎｇ ｈｉｇｈｅｒ ａｎｄ ｈｉｇｈｅｒ．Ｈｏｗｅｖｅｒ，ｔｈｅ ｔｒａｄｉｔｉｏｎａｌ ｔｒａｖｅｒｓｅ ｎｅｔｗｏｒｋ ａｄｊｕｓｔｍｅｎｔ ｐｒｏｇｒａｍ ｃａｎ ｎｏｔ ｃａｌｃｕｌａｔｅ ｓｏｍｅ ｓｐｅｃｉａｌ ｔｒａｖｅｒｓｅ ｎｅｔ—
fx-5800P程序
基于统计串列输入观测数据的单一闭附合图根导线近似平差计算程序(PM3-1N)
(2) 程序PM3-1N，占用内存1848字节。 "CLOSED Or CONNECTING MAPPING TRAVERSE PM3-1N"\ 显示程序标题 Norm 1
n¼N:N-1¼DimZ 定义额外变量 "SIDE NUM=":N-1 显示测边数
"UNKNOWN POINT NUM=":N-2\ 显示未知点数 "CLOSED(0) Or CONNECTING(Else)="?Z 输0为闭合导线，其余数为附合导线 Deg:Fix 3:FreqOn 基本设置 "XA(m),0 To BEAR A¼B(Deg)="?A 输入已知点A的x坐标或输入≤0的数值
If A>0:Then "YA(m)="?B:Else "BEAR A¼B(Deg)="?R:IfEnd
A>0时为输入A点y坐标，否则为输入A→B的方位角 "XB(m)="?C:"YB(m)="?D 输入已知点B的坐标
C+Di¼U:U¼V B坐标的复数形式
If A>0:Then Pol(C-A,D-B):Cls 计算A→B的方位角 J<0J+360¼J:J¼R "DIST A¼B(m)=":I 显示A→B的水平距离
"BEAR A¼B(DMS)=":RDMS 显示A→B的方位角 IfEnd If Z0:Then "XC(m)="?E:"YC(m)="?F 附合导线，继续输入已知点C的坐标
E+Fi¼V C坐标的复数形式 "XD(m),0 To BEAR C¼D(Deg)="?G 输入已知点D的x坐标或输入≤0的数值
If G>0:Then "YD(m)="?H:Else "BEAR C¼D(Deg)="?S:IfEnd
G>0时为输入D点y坐标，否则为输入C→D的方位角 If G>0:Then Pol(G-E,H-F):Cls 计算C→D的方位角 J<0J+360¼J:J¼S "DIST C¼D(m)=":I\ 显示C→D的水平距离
导线平差程序
1）附和导线观测角度平差
F1 D101-1
L1 LbI 0
L2 {ABCDEHIJLMN}
L3 G=C+D+E+H+I+J+L+M◢
L4 A>B=>Goto 1:≠>AGoto 2⊿⊿
L5 LbI 1
L6 Q=A-B
L7 F=Q+G-N×180◢
L8 V=-(F/N) ◢U=NV◢
L9 R=Q+G+NV-N×180◢
L10 K”K1”=C+V◢ K”K2”=D+V◢ K”K3”=E+V◢ K”K4”=H+V◢ K”K5”=I+V◢ K”K6”=J+V◢ K”K7”=L+V◢
K”K8”=M+V◢ Goto 0
L11 LbI 2
L12 Q=A+360-B
L13 F=Q+G-N×180◢
L14 V=-(F/N) ◢ U=NV◢
L15 R=Q+G+NV-N×180◢
L16 K”K1”=C+V◢ K”K2”=D+V◢ K”K3”=E+V◢ K”K4”=H+V◢ K”K5”=I+V◢ K”K6”=J+V◢ K”K7”=L+V◢
K”K8”=M+V◢
L17 Goto 0
CDEHIJLM？—附和导线观测值；G—观测角总和；A？—附和导线起始边方位角；B？—附和导线终止边方位角；Q—附和导线B-A之差；N？—观测角个数或测站数；F—附和导线观测角闭合差；V—附和导线观测角闭合差改正数；U—改正和等于F但符号相反以检验计算正确与否；R—观测角经改正后的角闭合差，应等于零，以检查观测角改正是否正确；K1,K2,K3,K4,K5,K6,K7,K8,--经改正后的观测值，角平差值。本程序观测角设置了8个，如果不足8个，多余的输入零，如果大于8个，则程序要追加订正。该程序的观测角都是左角，如果是右角则输入角度时，用360-观测的右角
闭合导线观测角度平差
F2 D101-2
L1 LbI 0
L2 {CDEHIJLMN}
L3 G=C+D+E+H+I+J+L+M◢
露天采矿技术 ２０１５＃－ｇ ７期 ・４５・
ＤＯＩ：１０．１３２３５０．ｃｎｋｉ．Ｉｔｅｍ．２０１５．０７．０１５
导线平差程序设计
任国柱 （霍林河露天煤业股份有限公司，内蒙古霍林郭勒０２９２００）
摘要：根据导线测量内业计算原理，设计导线测量平差程序。程序可实现对导线测量中数据进 行平差计算的功能，并可以处理、存储观测数据，还可以绘制出相应的导线图及输出平差报告。
关键词：导线平差；ＶＢ；程序设计
中图分类号：ＴＤ６７２ 文献标志码：Ｂ 文章编号：１６７１—９８１６（２０１５）０７—００４５—０５
Ｄｅｓｉｇｎ ｏｆ ｔｒａｖｅｒｓｅ ａｄｊｕｓｔｍｅｎｔ ｐｒｏｇｒａｍ ＲＥＮ Ｇｕｏｚｈｕ 船ｒ Ｍｏｎｇｏｌｉａ Ｈｕｏｌｉｎｈｅ ｏｐｅｎ－ｐｉｔ Ｃｏａｌ Ｃｏ．，Ｌｔｄ．，Ｈｕｏｌｉｎｇｕｏｌｅ ０２９２００，Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ：Ａｃｃｏｒｄｉｎｇ ｔｏ ｔｈｅ ｃａｌｃｕｌａｔｉｏｎ ｐｒｉｎｃｉｐｌｅ ｏｆ ｔｒａｖｅｒｓｅ ｓｕｒｖｅｙ，ｔｈｅ ａｕｔｈｏｒ ｄｅｓｉｇｎｓ ｔｒａｖｅｒｓｅ ｓｕｒｖｅｙ ａｄｊｕｓｔｍｅｎｔ ｐｍｇｒａｍ，ｗｈｉｃｈ ｃａｎ ａｃｃｏｍｐｌｉｓｈ ｔｈｅ ａｄｊｕｓｔｍｅｎｔ ｃａｌｃｕｌａｔｉｏｎ ｆｕｎｃｔｉｏｎ ｏｎ ｄａｔａ ｉｎ ｔｒａｖｅｒｓｅ ｓｕｒｖｅｙ，ｃｏｎｄｕｃｔ ａｎｄ ｓｔｏｒｅ ｏｂｓｅｒｖａｔｉｏｎ ｄａｔａ，ｄｒａｗ ｔｈｅ ｃｏｒｒｅｓｐｏｎｄｉｎｇ ｔｒａｖｅｒｓｅ ｍａｐ ａｎｄ ｏｕｔｐｕｔ ｔｈｅ ａｄｊｕｓｔｍｅｎｔ ｒｅｐｏｒｔ． Ｋｅｙ ｗｏｒｄｓ：ｔｒａｖｅｒｓｅ ａｄｊｕｓｔｍｅｎｔ；ＶＢ；ｐｒｏｇｒａｍ ｄｅｓｉｇｎ
目前，市场上的平差程序只能在程序中输人数据 进行计算，并不能将观测的原始数据和计算的成果分
别输出、存档，不方便用户进行数据的电子备份与管
理；有的导线平差程序只显示平差的最终结果，不能
