由本站收集整理，因转码的问题，部分内容显示不正确，但是能理解后自己修改一下就可以了，本人未验证其正确性，只提供大家学习时参考。



闭合导线计算

１、 源程序
L1 Defm 4N-2
L2 N:A:B:Pol(C-A,D-B):W<0=>W=W+360?T=W
L3 K=0=>M=T+180:E=C:F=D:GOTO 0: ≠>E:F:Pol(G-E,H-F):W<0=>W=W+360?M=W
L4 Lbl 0:L=0:U=0:I=0:R=2:Z[1]=T
L5 Lbl 1:{J}:Z[R]+360: ?R=N+1=>GOTO 2: ≠>R=R+1:GOTO 1
L6 Lbl 2:P”JB”=(Z[N+1]-M) ?Q”JL”=40√N?R=2
L7 Lb1 3:{S}:Z[N+R]=S:L=L+S?
L8 Z[2N-1+R]=Rec(S,(Z[R]-P(R-1)/N)):U=U+V
L9 Z[3N-2+R]=W:I=I+W:N=R=>GOT 4: ≠>R=R+1:GOTO 3
L10 Lbl 4:P=U+C-E?Q=I+D-F?
L11 G”1:M”=L/Pol(P,Q) ?R=2
L12 Lbl 5:X”XI”=C+Z[2N-1+R]-PZ[N+R]/L?Y”YI”=D+Z[3N-2+R]-QZ[N+R]/L?
L13 R=N=>GOTO 6: ≠>R=R+1:C=X:D=Y:GOTO 5
L14 Lbl 6:”END”

２、 说明
（1）、本程序可计算附和导线和闭合导线的坐标，计算的坐标系经过角度闭合差及坐标增量闭合差分配后的结果，能显示角度闭合差、增量闭合差及导线全长的相对精度；
（2）、输入的观测角为导线的左角。

3、程序代号注释
N?导线观测角的折角数；
A、B?导线起始点所后视的已知点的坐标x,y；
C、D?导线起始点（即设站点）的坐标x,y；
E、F?导线终点（已知点）的坐标x,y；
G、H?在导线终点设站观测前视已知点的坐标x,y；
T?起始站后视至起始点的方位角；
M?终点站至前视已知点的方位角；
J?观测的左角值；
JB?角度闭合差；
JL?允许的角度闭合差，程序中是以40√n计算的，如和要求的不一致，可改一下L6语句中的有关部分。
S?所测导线的边长；
L?边长的累计数；
U?△x的累计数；
I?△y的累计数；
P?x坐标的闭合差；
Q?y坐标的闭合差；
K?转换符，当K=0时为计算闭合导线，当K≠0（任意数）时为计算附和导线。