1XY边长及方位角反算Prog"A":L=J:Prog"B"◢Fix3:I"D="◢Lbl1:{S}:V"X"=X+Rec(S,L）◢U"Y"=Y+J◢Goto1输入：X1,Y1,X2,Y2.输出:L°=,D=.2XY-1输入里程桩号计算中间点坐标Prog"A":L=J:Prog"B"◢Fix3:I"D="◢{Z}:Z:Lbl1:{G}:V"X"=X+Rec(Abs(G-Z,L◢U"Y"=Y+J◢Z-起始点里程桩号Goto1Ｇ－任一点里程桩号3JD两直线交点坐标计算Prog"A":Prog"C":L"L1":●Prog"F":若用此坐E=W+K:标则L1输{L}:入0。L"L2":Prog"F":C=V+K:S=tanE:T=tanC:G=S-T:A=A+0.0001U"X"=(SA-MT-B+N)/G◢Z"Y"=S(U-A)+B◢Pol(U-M,Z-N:I"D="输入X1,Y1,X2,Y2,X3,Y3.X4,Y4,L1,L2,输出X=,Y=,D=,4ZBFD坐标放点Prog"A":Lbl3:Fix3:{MN}:Pol(M"X3"-A,N"Y3"-B:I"D="◢J=J-W+180:J<0=>J=J+360L=J:Prog"B"◢Goto3输入:X1,Y1,X2,Y2,X3,Y3.输出:D,L°5Z自由导线推算E=0:1F=0:Prog"A":Fixm:C=A:2D=B:J[F]=J:Lbl4:点号L°DXY{LH}:1°′″4110.7004887.630L"L0":28154244329.1105102.220Prog"F":164.88I[F]=J[F]+K-180:34228064426.9564969.511H[E+F]=H"D":313.27Prog"R":427733404119.5785029.986C"X="◢142.64D"Y="◢54110.6984887.623J[F]=I[F]:Goto46ZDX支导线计算X1Y1,X2Y2,为已知点坐标Prog"A":L°-角度用小数输入Lbl4:输一组L°、D.得一个点的坐标{LS}:L:Prog"F":M"X3"=A+Rec(S,W+K+180◢N"Y3"=B+J◢●Goto4输入:X1,Y1,X2,Y2,L,S.输出:X3,Y3.L°—观测角度以下按小数点输入7DX单一导线简易平差计算Prog"A":Prog"C":J=W:Ｉ=V:C=A-M:D=B-N:F=E"N":I[F]=J:Lbl1:F=F-1:点号观测角边长XY{GH}:A°′″4110.7004887.630I[F]=J[F]+G"L°"-180:B8154244329.1105102.220I[F]<0=>I[F]=I[F]+360:164.880≠>I[F]>360=>I[F]=I[F]-36014228064426.9564969.510H[E+F]=H"D":313.270F>1=>Goto1227733424119.5835029.993{G}:142.640G=I[F]+G"L°"-180:A31804004110.7004887.630G<0=>G=G+360:≠>G>360=>G=G-360B4329.1105102.220I=G-I:W=12″[S]=620.790G"W"=602FracI◢相对中误差:fS/[S]=1/88119fX=-0.007fY=0.000G=0:Lbl2:I[F]=I[F]-I(E-F)/E:Prog"R":说明:F=F+1:N-观测角数,L°-左角按度分秒输入G=H+G:W-角度闭合差,fX,fY坐标闭合差F<E=>Goto2若用外(右)角计算闭合差程序中之I=G-I-360G"[S]="◢若用内(左)角计算闭合差程序中之I=G-II"fX"=C◢本程序只能计算八个未知点,多于八个时每增加一个C=A:未知点,必需扩展两个储存器.A"fY"=D◢D=B:B"fS/[S]"=Int(G/√(II+AA◢Lbl3:F=F－1:Prog"R":C"X"=C-IH/G◢D"Y"=D-AH/G◢F>1=>Goto38WDX无定向导线Prog"A":D=I:C=0:M=0:N=0:P:Lbl0:P=P-1:{LS}:L"B°":Prog"F":F=K:C=C+F:C=0=>Goto1C=C+180:Goto1X1Y1,X2Y2,-已知点坐标Lbl1:P-边数,B°-观测角,第一个角输入0,Rec(S,C:S-边长,Xf,Yf-增量累加数,记录侍用Fix4:输入一组Xf,Yf,求得一组XY,M"Xf"=M+I◢用左角,度以下按小数输入.N"Yf"=N+J◢P>0=>Goto0Pol(-M,-N:R=W+180-J:K=D/I:V=CosR:点号观测角边长XfYfXY