《导线平差程序》由会员分享，可在线阅读，更多相关《导线平差程序（12页珍藏版）》请在金锄头文库上搜索。
1、导线平差 5800 全能程序程序说明：纯傻瓜式设计，输入数据直接出结果，可以计算闭合，附和，无定向导线和支导线，程序名称：SING TRAVE 有任何问题请去测量空间为我评分，留言。链接网址http:/ TRAVE”Deg:Norm 1:Freq on：n N：If List YN=0：Then N-1 DimZ：Goto 0:Else N DimZ：Goto1：IfEnd:Lbl 0：“CLOSE OR CONNECT”“ANGL NUM=”：Locate 12,4,N：“SIDE NUM=”:Locate 12,4,N-1：“UNKW NUM=”:Locate 12,4,N-2“CLOSE
2、(0),CONNECT(1)”?Z:Fix3:“XA,0=AB(Deg)”?A:If A0:Then“YA”?B:Else“AB(Deg)”？R:IfEnd:名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 12 页 -“XB”?C:“YB”?D:C+DiU:UV:If A0:Then Pol(C-A,D-B):Cls:JJ+360J:JR:“DIST AB=”:Locate 10,1,I：“=”:Locate 4,2,RIfEnd：If Z0:Then“XC”?E:“YC”?F:E+Fi V“XD,0=CD(Deg)”?G If GO：Then“YD”?H：Pol(G-E,H-F
3、):CLs:JJ+360J:JS“DIST CD=”:Locate 10,1,I:“=”:Locate 6,2,S:Else“CD”?S:IfEnd:Else If R180:Then R-180S:Else R+180S:IfEnd:IfEnd:yM:For 1I To N：If I=1:Then R+List XIL:Else L+List XIL:IfEnd:If L180:Then L-180L:Else L+180L:IfEnd:Next:3600(L-S)T:A“E0R=”:Locate8,3,T:AO=“EOR=”:Locate8,4,T:40(N)W:“S EOR=”:Loca
4、te 8,4,W名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 12 页 -Abs(T)W=“ERROR OVER”:-T N 3600P:0O:For 1I To N:If I=1:Then R+List XI+PL:Else L+List XI+PL:IfEnd:If L180:Then L-180L:Else L+180L:IfEnd:If IN:Then List YILZI:ZI+O 0:IfEnd:Next:3600(L-S)T:“CK EOR=”:Locate10,4,T:U+0-v0:a+bi:Int(M/Abs(0)K:“DEL X=”:Locate8,4,Re
5、p(O):“DEL Y=”:Locate8,4,Imp(0):“REL EOR=1”:Locate 11,4,k K“OVER”:For 1I to N-1:ZI-OListYI/MX:If I=1:Then u+xY:Else Y+XY:IfEnd:Norm1:“POINT n=”:Locate 9,4,I:Fix3:“xp=”:Locate4,4,Rep(Y):“YP=”:Locate 4,4,Imp(Y)Next:Y-vQ:“CEKX=”:Locate 6,4,Rep(Q):“CEKY=”:Locate 6,4,Imp(Q)Goto E:LbL 1:“NO DRECT”“ANGE NUM
6、=”:Locate 12,3,N-1:“SIDE 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 12 页 -NUM=”:Locate12,4,N:“UNKW NUM=”:Locate12,4,N-1“XA”?A:“YA”?B:“XB”?C:“YB”?D:A+BiU:C+DiV:0H:U+List Y1HZ1:For1I To N-1:H+List xIH:If H180:Then H-180H:Else H+180 H:IfEnd:ZI+List YI+1HZI+1:Next:(V-U)/(ZN-U)Z:Int(Abs(1-Abs(Z)-1)K:“RE EOR=1”:Locat
7、e10,4,K:Zr:Fix3:For1I To N:U+(ZI-U)ZZI:If IN:Then Norm 1：“POINT NUM=”:Locate 12,4,I:Fix3:“xp=”:Locate 6,4,Rep(ZI):“YP=”:Locate6,4,Imp(ZI)IfEnd：Next:“DE XB=”:Locate8,4,Rep(ZN-V):“DE YB=”:Locate8,4,Imp(ZN-V)Lbl E:“GAME=OVER”程序名称：“SNEEK TRAVE”程序内容如下，计算内容，支导线。“SNEEK TRAVE”Norm 1:Freq on:nN:NDimZ:“ANGL N
8、UM=”:Locate 12,2,N:“SIDE NUM=”:Locate12,3,N:“UWKW NUM=”:Locate12,4,N名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 12 页 -“XA,0=AB”?A:IfA0:Then“YA”?B:Else“AB”?R:IfEnd:“XB”?C:“YB”?D:C+DiU:IfA0:Then pol(C-A,D-B):Cls:IT J J+360J:JR:FiX3:IfEnd:“DIST AB=”:Locate 9,1,I:“=”:Locat4,2,RFor1I To N:IfI=1:Then R+ListxIH:Else H+
9、ListXIH:IfEnd：IfH180:Then H-180H:Else H+180H:IfEnd:a+bi:List YIHS:S+UU:I=1=“POINT n=”Locate 9,3,I:I1=Norm1:Z=1=POINT n=”Locate 9,4,I:Fix3:“XP=”Locate4,4,ReP(u)“YP=”Locae4,4,Imp(u)Next“GEME”=0VER 程序说明：为 FUNCTION 键+2（COMPLX）+6(r)蓝泪幽灵出品;QQ：86560345，参考文献：覃辉老师的公铁名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 12 页 -施工测量程
10、序，本人只做改进，请您尊重原著。1.闭合导线，附合导线在串列X列输入角度数位N+2,在 Y列输入导线边数为N+1,导线点的数目为N。2.导线角度默认左偏角为正值，右偏角为负值。闭合导线X串列Y 串列1435350105.223 107483080.102 73020129.341 89335078.162 30544200 附合导线名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 12 页 -X串列Y 串列991225.853 1674536139.032 1231124172.571 1892036100.074 1795918102.485 12927240 由于闭合导线和附合
11、导线计算过程完全一样，所以只选择闭合导线做示范，计算过程如下SING TRAVE 显示标题CLOSE OR CONNECT 闭合或者附合ANGL NUM=5 X列角度数目SIDE NUM=4 Y列边数UNKW NUM=3 导线点数目CLOSE（0），CONNECT（1）？输入 0（闭合选 0，附合选 1）名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 12 页 -XA,0=AB?输入 8811.409（或者输入负数）YA?输入 5114.225 XB?输入 8506.321 YB?输入 5215.652 显示：DISAB=321.506 AB的距离=1613637.91 AB的方
12、位角。也可直接输入EOR=50.000 实际角度闭合差S EOR=89.443 允许角度闭合差CEK EOR=0 复核角度闭合差必须为0 DEL X=0.057 实际 X 坐标闭合差DELY=-0.07 实际 Y坐标闭合差REL EOR=1 4335.0 相对闭合差POINT n=1 XP=8445.195 YP=5301.329(第 1 点坐标)POINT n=2 XP=8493.09 YP=5365.64(第 2 点坐标)POINT n=3 XP=8569.667 YP=5261.442(第 3 点坐标)名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 12 页 -POINT
13、n=4 XP=8506.321 YP=5215.652(第 4 点坐标)CEKX=0（平差后 X坐标闭合差，必须为0）CEKX=0（平差后X坐标闭合差，必须为0）GAME OVER 结束程序无定向导线X串列Y 串列1674536225.853 1231124139.032 1892036172.571 1795918100.074 0 102.485 计算过程如下：SING TRAVE 显示标题名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 12 页 -NO DRECT 无定向导线ANGL NUM=4 X 列角度数目SIDE NUM=5 Y 列边数UNKW NUM=4 导线点数目
14、XA?输入 B点 X坐标 2507.693 YA?输入 B点 Y坐标 1215.632 XB?输入 C 点 X 坐标 2166.741 YB?输入 C 点 X 坐标 1757.271 RE EOR=13330 相对闭合差POINT n=1 XP=2299.843 YP=1303.822(第 1 点坐标)POINT n=2 XP=2186.312 YP=1384.003(第 2 点坐标)POINT n=3 XP=2192.457 YP=1556.412(第 3 点坐标)POINT n=4 XP=2179.742 YP=1655.645(第 4 点坐标)DEKX=0（平差后 X坐标闭合差，必须为0
15、）DEKX=0（平差后X坐标闭合差，必须为0）GAME OVER 结束程序名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 12 页 -支导线X串列Y 串列895626139.179-123 433154.43 113336147.347-124 1129173.159 计算过程如下：ANGL NUM=4 X 列角度数目SIDE NUM=4 Y 列边数UNKW NUM=4 导线点数目XA,0=AB?输入 5275.872（或者输入负数）YA?输入 2990.003 XB?输入 5079.058 YB?输入 3088.741 显示：DISAB=220.193 AB的距离名师资料总结
16、-精品资料欢迎下载-名师精心整理-第 11 页，共 12 页 -=15321 28.49 AB 的方位角。也可直接输入POINT n=1 XP=5141.597 YP=3213.078 (第 1 点坐标)POINT n=2 XP=5063.864 YP=3346.517 (第 2 点坐标)POINT n=3 XP=5151.945 YP=3464.639 (第 3 点坐标)POINT n=4 XP=5095.293 YP=3628.268(第 4 点坐标)GAME OVER 结束程序有任何问题请去测量空间为我评分，留言。http:/ 本程序仅供参考学习，有给您造成测量损失概不负责蓝泪幽灵出品 QQ：865603453 名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 12 页 -
