导线平差5800全能程序.docVIP

导线平差5800全能程序 程序说明：纯傻瓜式设计，输入数据直接出结果，可以计算闭合，附和，无定向导线和支导线， 程序名称：SING TRAVE 有任何问题请去测量空间为我评分，留言。 链接网址 /user_putview.asp?action=articleusername=%u84DD%u6CEA%u5E7D%u7075 程序内容如下，计算内容，闭合附合，无定向导线。 “SING TRAVE ” ◢ Deg: Norm 1: Freq on： n→N： If List Y[N]=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(0),CONNECT(1)”?Z◢:Fix3: “XA,≦0=ａA?B(Deg)”?A: If A0:Then“YA”?B: Else“ａA?B(Deg)”？R: IfEnd: “XB”?C: “YB”?D:C+Di?U: U?V: If A0:Then Pol(C-A,D-B):Cls: J0=J+360?J:J?R: “DIST A?B=”: Locate 10,1,I：“ａ=”:Locate 4,2,R°◢ IfEnd： If Z≠0:Then“XC”?E: “YC”?F: E+Fi→V◢ “XD,≦0 =ａC→D(Deg)”?G◢ If GO：Then“YD”?H： Pol (G-E,H-F):CLs:JO=J+360?J:J?S◢ “DIST C?D=”:Locate 10,1,I:“ａ=”:Locate 6,2,S°:Else“ａC?D”?S:IfEnd:Else If R180:Then R-180?S:Else R+180?S:IfEnd:IfEnd: ∑y?M:For 1?I To N： If I=1:Then R+List X[I]?L:Else L+List X[I]?L:IfEnd: If L180:Then L-180?L:Else L+180?L:IfEnd:Next: 3600(L-S)?T:A0=“ａE0R=”:Locate8,3,T:AO =“ａEOR=”:Locate8,4,T: 40√(N)?W:“S EOR=”:Locate 8,4,W◢ Abs(T)W=“ａ ERROR OVER”:-T÷N÷3600?P: 0?O:For 1?I To N: If I=1:Then R+List X[I]+P?L: Else L+List X[I]+P?L:IfEnd: If L180:Then L-180?L:Else L+180?L:IfEnd: If IN:Then List Y[I]∠L?Z[I]:Z[I]+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):“REL EOR=1÷”:Locate 11,4,k◢ K4000=“OVER”: For 1?I to N-1: Z[I]-OListY[I]/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 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 Y[1]∠H?Z[1]:For1?I To N-1:H+List x[I]?H:If H180:Then H-180?H:Else H+180? H :IfEnd: Z[I]+List Y[I+1]∠H?Z[I+1]:Next: (V-U)/(Z[N]-U)?Z:Int(Abs((1-Abs(Z))-1 ))?K:“RE EOR=1÷”: Locate