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

附和导线和闭合导线的坐标计算1、源程序F1A1L1Defm4N-2L2N:A:B:Pol(C-A,D-B):W<0=>W=W+360?T=WL3K=0=>M=T+180:E=C:F=D:GOTO0:≠>E:F:Pol(G-E,H-F):W<0=>W=W+360?M=WL4Lbl0:L=0:U=0:I=0:R=2:Z[1]=TL5Lbl1:{J}:Z[R]+360:?R=N+1=>GOTO2:≠>R=R+1:GOTO1L6Lbl2:P”JB”=(Z[N+1]-M)?Q”JL”=40√N?R=2L7Lb13:{S}:Z[N+R]=S:L=L+S?L8Z[2N-1+R]=Rec(S,(Z[R]-P(R-1)/N)):U=U+VL9Z[3N-2+R]=W:I=I+W:N=R=>GOT4:≠>R=R+1:GOTO3L10Lbl4:P=U+C-E?Q=I+D-F?L11G”1:M”=L/Pol(P,Q)?R=2L12Lbl5:X”XI”=C+Z[2N-1+R]-PZ[N+R]/L?Y”YI”=D+Z[3N-2+R]-QZ[N+R]/L?L13R=N=>GOTO6:≠>R=R+1:C=X:D=Y:GOTO5L14Lbl6:”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（任意数）时为计算附和导线。铁路曲线坐标计算程序(forCASIOfx-4500P)一、主程序：M（M是文件名，下同)L1A”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”RL2Pol(C-A,D-B):M=WL3Lbl2:W=90:{NOWZ}:Z”DK”N”Z/!/Y(1/2/3)”:N=2=>Goto1⊿O”M”W”A°”L4Lbl1:P=Z-G:S=E:T=F:U=H:V=H:FixmL5P≤0=>Prog3:≠=>P≤J=>Prog1:≠=>P≤J+K=>Prog2:V=90J/π/R+180π-1R-1(P-J)⊿⊿P≤J+K=>Prog4:V=H+V⊿⊿L6P>J+K=>P=2J+K-P:S=Q:T=L:P>0=>Prog1:X=-X:U=H+I:Prog4:V=U-V:≠=>U=H+I:V=U:P=-P:Prog3⊿⊿L7N≠2=>P=O:U=V-W:N=3=>P=-P⊿S=X:T=Y:Prog3⊿L8Pol(X-A,Y-B):W=W-M:W<0=>W=W+360⊿L9W:”°°°=”◢V:”S=”◢X:”X=”◢Y:”Y=”◢Goto2二、子程序：1L1V=90P2(πRJ)-1L2X=P-Pxy5(40R2J2)-1L3Y=PVπ/540三、子程序：2L1Y=180π-1R-1(P-0.5J)L2X=RsinY+J/2-Jxy3/240/R2L3Y=J/24/R+R-RcosY四、子程序：3L1X=S+PcosUL2Y=T+PsinU五、子程序：4L1I<0=>Y=-Y:V=-V⊿L2S=S+XcosU-YsinUL3Y=T+XsinU+YcosUL4X=S说明：1、该程序适用于计算器CASIOfx-4500PA。2、程序符号定义说明：测站点坐标CX,CY；后视点坐标HX,HY；直缓点坐标ZHX,ZHY；缓直点坐标HZX,HZY；直缓点里程ZHDK；经过直缓点和交点的直线的方位角ZHJD°；曲线偏角（曲线左偏为负，右偏为正）A°；缓和曲线长L0；圆曲线长L1;圆曲线半径R；计算点里程DK；计算曲线的左边点或者右边点）Z/!/Y(1/2/3)，曲线的右边输入1，左边输入3，线路上输入2；左边的点与当前里程点的连线的距离和当前里程点切线的逆时针方向的角度A°（如果上一项不选择2的话）。3、计算结果显示的数据是：极角、极距和坐标。4、该程序适用于极坐标法测量曲线时的数据（极角和极距）计算，以及曲线坐标计算。面积计算（多边形法）1、源程序F