导线全能程序，.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÷”: Locate10