附和导和闭合导线的坐标的计算程序.docVIP

附和导线和闭合导线的坐标计算 1、 源程序 F1 A1 L1 Defm 4N-2 L2 N:A:B:Pol(C-A,D-B):W0=W=W+360?T=W L3 K=0=M=T+180:E=C:F=D:GOTO 0: ≠E:F:Pol(G-E,H-F):W0=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” 2、 说明 （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（任意数）时为计算附和导线。 铁路曲线坐标计算程序 ( for CASIO fx-4500P ) 一、主程序：M（M是文件名，下同) L1 A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK”H”ZHJD°” I”A°”J”L0”K”L1”R L2 Pol(C-A,D-B):M=W L3 Lbl 2:W=90:{NOWZ}:Z”DK”N”Z/!/Y(1/2/3)”:N=2=Goto 1⊿O”M”W”A°” L4 Lbl 1:P=Z-G:S=E:T=F:U=H:V=H:Fixm L5 P≤0=Prog 3:≠=P≤J=Prog 1:≠=P≤J+K=Prog 2:V=90J/π/R+180π- 1R-1 (P-J)⊿⊿P≤J+K=Prog 4:V=H+V⊿⊿ L6 PJ+K=P=2J+K-P:S=Q:T=L:P0=Prog 1:X=-X:U=H+I:Prog 4: V=U-V: ≠= U=H+I:V=U:P=-P:Prog 3⊿⊿ L7 N≠2=P=O:U=V-W:N=3=P=-P⊿S=X:T=Y:Prog 3⊿ L8 Pol(X-A,Y-B):W=W-M:W0=W=W+360⊿ L9 W:”°°°=”◢V:”S=”◢X:”X=”◢Y:”Y=”◢Goto 2 二、子程序：1 L1 V=90P2(πRJ)-1 L2 X=P-Pxy5(40R2J2)-1 L3 Y=PVπ/540 三、子程序：2 L1 Y=180π-1R-1(P-0.5J) L2 X=RsinY+J/2- Jxy3/240/R2 L3 Y=J/24/R+R-RcosY 四、子程序：3 L1 X=S+PcosU L2 Y=T+PsinU 五、子程序：4 L1 I0=Y=-Y:V=-V⊿ L2 S=S+XcosU-YsinU L3 Y=T+XsinU+YcosU L4 X=S 说明：1、该程序适用于计算器 CASIO fx-4500PA。 2、程序符号定义说明：测站点坐标CX,CY；后视点坐标HX,HY；直缓点坐标 ZHX,ZHY；缓直 点坐标HZX,HZY；直缓点里程ZHDK；经过直缓点和交点的直线的方位角