導(dǎo)線平差5800全能程序

1、導(dǎo)線平差5800全能程序程序說(shuō)明：純傻瓜式設(shè)計(jì)，輸入數(shù)據(jù)直接出結(jié)果，可以計(jì)算閉合，附和，無(wú)定向?qū)Ь€和支導(dǎo)線，程序名稱(chēng)：SING TRAVE 有任何問(wèn)題請(qǐng)去測(cè)量空間為我評(píng)分，留言。鏈接網(wǎng)址程序內(nèi)容如下，計(jì)算內(nèi)容，閉合附合，無(wú)定向?qū)Ь€。“SING TRAVE ” Deg: Norm 1: Freq on： nN：If List YN=0：Then N-1DimZ：Goto 0:Else NDimZ：Goto1：IfEnd:Lbl 0：“CLOSE OR CONNECT” “ANGL NUM=”：Locate 12,4,N：“SIDE NUM=”:Locate 12,4,N-1：“UNKW NUM=

2、”:Locate 12,4,N-2“CLOSE(0),CONNECT(1)”?Z:Fix3:“XA,0=>AàB(Deg)”?A: If A>0:Then“YA”?B:Else“AàB(Deg)”？R: IfEnd:“XB”?C: “YB”?D:C+DiàU: UàV:If A>0:Then Pol(C-A,D-B):Cls:J<0=>J+360àJ:JàR:“DIST AàB=”: Locate 10,1,I：“=”:Locate 4,2,R°IfEnd：If Z0:Then“XC”

3、?E: “YC”?F: E+FiV“XD,0 =>CD(Deg)”?GIf G>O：Then“YD”?H： Pol (G-E,H-F):CLs:J<O=>J+360àJ:JàS“DIST CàD=”:Locate 10,1,I:“=”:Locate 6,2,S°:Else“CàD”?S:IfEnd:Else If R>180:Then R-180àS:Else R+180àS:IfEnd:IfEnd:yàM:For 1àI To N： If I=1:Then R+List X

4、IàL:Else L+List XIàL:IfEnd:If L>180:Then L-180àL:Else L+180àL:IfEnd:Next:3600(L-S)àT:A<0=>“E0R=”:Locate8,3,T:A>O =>“EOR=”:Locate8,4,T:40(N)àW:“S EOR=”:Locate 8,4,WAbs(T)>W=>“ ERROR OVER”:-T÷N÷3600àP:0àO:For 1àI To N: If I=1:

5、Then R+List XI+PàL:Else L+List XI+PàL:IfEnd: If L>180:Then L-180àL:Else L+180àL:IfEnd: If I<N:Then List YILàZI:ZI+Oà0:IfEnd:Next:3600(L-S)àT:“CK EOR=”:Locate10,4,T:U+0-và0:a+bi:Int(M/Abs(0) àK:“DEL X=”:Locate8,4,Rep(O): “DEL Y=”:Locate8,4,Imp(0):“RE

6、L EOR=1÷”:Locate 11,4,kK<4000=>“OVER”: For 1àI to N-1:ZI-OListYI/MàX:If I=1:Then u+xàY:Else Y+XàY:IfEnd:Norm1:“POINT n =”:Locate 9,4,I:Fix3:“xp=”:Locate4,4,Rep(Y):“YP=”:Locate 4,4, Imp(Y) Next:Y-vàQ:“CEKX=”:Locate 6,4, Rep(Q):“CEKY=”:Locate 6,4, Imp(Q) Goto E:LbL

7、1:“NO DRECT”“ANGE NUM=”:Locate 12,3,N-1:“SIDE NUM=”:Locate12,4,N:“UNKW NUM=”:Locate12,4,N-1“XA”?A:“YA”?B:“XB”?C:“YB”?D:A+BiàU:C+DiàV:0àH:U+List Y1HàZ1:For1àI To N-1:H+List xIàH:If H>180:Then H-180àH:Else H+180à H :IfEnd:ZI+List YI+1HàZI+1:Next:(V-U)/(Z

8、N-U)àZ:Int(Abs(1-Abs(Z)-1 )àK:“RE EOR=1÷”: Locate10,4,K:Zr: Fix3: For1àI To N:U+(ZI-U)ZàZI: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:“GA

9、ME=>OVER”程序名稱(chēng)：“SNEEK TRAVE”程序內(nèi)容如下，計(jì)算內(nèi)容，支導(dǎo)線。“SNEEK TRAVE ” Norm 1: Freq on: nàN:NàDimZ:“ANGL NUM =”:Locate 12,2,N:“SIDE NUM=”:Locate12,3,N:“UWKW NUM=”:Locate12,4,N“XA,0=>AàB”?A:IfA>0:Then “YA”?B:Else “AàB”?R:IfEnd:“XB”?C:“YB”?D:C+DiàU:IfA>0:Then pol(C-A,D-B):Cls:I

10、àTJ<0=> J+360àJ:JàR:FiX3:IfEnd:“DIST AàB=”:Locate 9,1,I:“=”:Locat4,2,R°For1àI To N:IfI=1:Then R+ListxIàH: Else H+ListXIàH:IfEnd：IfH>180:Then H-180àH:Else H+180àH:IfEnd:a+bi:List YIHàS:S+UàU:I=1 =>“POINT n=”Locate 9,3,I:I>1 =&

11、gt;Norm1:Z=1=> POINT n=”Locate 9,4,I:Fix3:“XP=”Locate4,4,ReP (u)“YP=”Locae4,4,Imp(u)Next“GEME”=> 0VER 程序說(shuō)明：為FUNCTION鍵+2（COMPLX）+6(r) 藍(lán)淚幽靈出品; QQ：86560345，參考文獻(xiàn)：覃輝老師的公鐵施工測(cè)量程序，本人只做改進(jìn)，請(qǐng)您尊重原著。1. 閉合導(dǎo)線，附合導(dǎo)線在串列X列輸入角度數(shù)位N+2,在Y列輸入導(dǎo)線邊數(shù)為N+1,導(dǎo)線點(diǎn)的數(shù)目為N。2. 導(dǎo)線角度默認(rèn)左偏角為正值，右偏角為負(fù)值。閉合導(dǎo)線X串列Y串列143°53°50°

12、105.223107°48°30°80.10273°0°20°129.34189°33°50°78.162305°44°20°0附合導(dǎo)線X串列Y串列99°1°225.853167°45°36°139.032123°11°24°172.571189°20°36°100.074179°59°18°102.485129°27°

13、;24°0由于閉合導(dǎo)線和附合導(dǎo)線計(jì)算過(guò)程完全一樣，所以只選擇閉合導(dǎo)線做示范，計(jì)算過(guò)程如下SING TRAVE 顯示標(biāo)題CLOSE OR CONNECT 閉合或者附合ANGL NUM = 5 X列角度數(shù)目SIDE NUM = 4 Y列邊數(shù)UNKW NUM = 3 導(dǎo)線點(diǎn)數(shù)目CLOSE（0），CONNECT（1）？ 輸入0（ 閉合選0，附合選1）XA,0=>AàB? 輸入8811.409（或者輸入負(fù)數(shù)）YA? 輸入5114.225XB? 輸入8506.321YB? 輸入5215.652顯示：DISAàB=321.506 AàB的距離 =161°

14、;36°37.91°AàB的方位角。也可直接輸入 EOR=50.000 實(shí)際角度閉合差S EOR=89.443 允許角度閉合差CEK EOR= 0 復(fù)核角度閉合差必須為0DEL X =0.057 實(shí)際X坐標(biāo)閉合差 DELY =-0.07 實(shí)際Y坐標(biāo)閉合差 REL EOR=1÷4335.0 相對(duì)閉合差 POINT n=1XP=8445.195 YP=5301.329(第1點(diǎn)坐標(biāo)) POINT n=2XP=8493.09 YP=5365.64(第2點(diǎn)坐標(biāo)) POINT n=3XP=8569.667 YP=5261.442(第3點(diǎn)坐標(biāo))POINT n=4XP=

15、8506.321 YP=5215.652(第4點(diǎn)坐標(biāo))CEKX=0（平差后X坐標(biāo)閉合差，必須為0）CEKX=0 （平差后X坐標(biāo)閉合差，必須為0）GAME OVER 結(jié)束程序無(wú)定向?qū)Ь€X串列Y串列167°45°36°225.853123°11°24°139.032189°20°36°172.571179°59°18°100.0740102.485計(jì)算過(guò)程如下：SING TRAVE 顯示標(biāo)題NO DRECT 無(wú)定向?qū)Ь€ANGL NUM = 4 X列角度數(shù)目SIDE NUM = 5

16、 Y列邊數(shù)UNKW NUM = 4 導(dǎo)線點(diǎn)數(shù)目XA? 輸入B點(diǎn)X坐標(biāo)2507.693YA? 輸入B點(diǎn)Y坐標(biāo)1215.632XB? 輸入 C點(diǎn)X坐標(biāo)2166.741YB? 輸入 C點(diǎn)X坐標(biāo)1757.271RE EOR =1÷3330 相對(duì)閉合差POINT n=1XP=2299.843 YP=1303.822(第1點(diǎn)坐標(biāo)) POINT n=2XP=2186.312 YP=1384.003(第2點(diǎn)坐標(biāo)) POINT n=3XP=2192.457 YP=1556.412(第3點(diǎn)坐標(biāo))POINT n=4XP=2179.742 YP=1655.645(第4點(diǎn)坐標(biāo))DEKX=0（平差后X坐標(biāo)閉合差

17、，必須為0）DEKX=0 （平差后X坐標(biāo)閉合差，必須為0）GAME OVER 結(jié)束程序支導(dǎo)線X串列Y串列89°56°26°139.179-123°4°33°154.43113°3°36°147.347-124°11°29°173.159計(jì)算過(guò)程如下：ANGL NUM = 4 X列角度數(shù)目SIDE NUM = 4 Y列邊數(shù)UNKW NUM = 4 導(dǎo)線點(diǎn)數(shù)目XA,0=>AàB? 輸入5275.872（或者輸入負(fù)數(shù)）YA? 輸入2990.003XB? 輸入5079.058YB? 輸入3088.741顯示：DISAàB=220.193 AàB的距離 =153°