任意里程中边桩坐标正反算（CASIO&nbspfx-4800P计算器）程序
一、源程序(SZ-XY-SZ)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp"1.SZ&nbsp=>&nbspXY"："2.&nbspXY&nbsp=>&nbspSZ"：NU"X0"V"Y0"O"S0"G"F0"Q：Q=0=>R=1E-45：≠>
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspR△J=0：M=AbsQ：K=1-M：N=1=>Goto&nbsp1：≠>Goto&nbsp2△←┙
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspLbl&nbsp1：{SZ}：SZ：L=S-O：B=90QL÷π÷R：F=G+B：E=F+B+90：C=LK+2MRsinQB：X"XS"
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp=&nbsp&nbspU+Rec(C,F)+ZcosE◢
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspY"YS"=V+J+ZsinE◢
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspGoto&nbsp1←┙
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspLbl&nbsp2：W=G+90Q：E=U+Rec(R,W)：F=V+J←┙
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspLbl&nbsp3：{XY}：XY：D=Pol(X-E,Y-F):T=J：J<0=>T=J+360△B=T-W-180M：P=Abs&nbspB：S"S"=O+
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspDKcosP+&nbspMπRP÷180◢
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspZ"Z"=DKsinB+MQ(R-D)◢
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspGoto&nbsp3←┙
二、使用说明
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp1.由里程、中边桩计算坐标
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp启动程序后按以下提示输入数据：
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspN&nbsp？1&nbsp&nbsp（N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspX0&nbsp？142.353&nbsp(直线或圆曲线起点的X坐标）
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspY0&nbsp？368.166&nbsp(直线或圆曲线起点的Y坐标）
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspS0&nbsp？155.252&nbsp(直线或圆曲线起点的里程）
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspF0&nbsp？60°54′03″(直线或圆曲线起点的切线方位角）
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspQ&nbsp？-1&nbsp&nbsp(当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp右偏时Q=1)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspR&nbsp？&nbsp100&nbsp(圆曲线的半径)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspS&nbsp？&nbsp&nbsp194.016&nbsp(中线里程)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspZ&nbsp？&nbsp&nbsp&nbsp-5.251&nbsp(中线左侧5.251m的边桩；在中线上Z=0，在左侧<0，在右侧Z>0)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp显示计算结果
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspXS=172.7467767
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspYS=395.2316807
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp2.由坐标反算里程、中边桩
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp启动程序后按以下提示输入数据：
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspN&nbsp？2&nbsp&nbsp（N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspX0&nbsp？142.353&nbsp(直线或圆曲线起点的X坐标）
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspY0&nbsp？368.166&nbsp(直线或圆曲线起点的Y坐标）
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspS0&nbsp？155.252&nbsp(直线或圆曲线起点的里程）
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspF0&nbsp？60°54′03″(直线或圆曲线起点的切线方位角）
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspQ&nbsp？-1&nbsp&nbsp(当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp右偏时Q=1)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspR&nbsp？&nbsp100&nbsp(圆曲线的半径)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspX&nbsp？&nbsp&nbsp172.7467767&nbsp(待求里程及中边桩的点的X坐标)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspY&nbsp？&nbsp395.2316807&nbsp(待求里程及中边桩的点的Y坐标)
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp显示计算结果
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspS=194.016
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspZ=-5.251
三、注意事项
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp1.本程序主要是针对市政道路工程中的直线和圆曲线而编制的，未考虑缓和曲线等
曲线的计算；
&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp2.程序中“R=1E-45”的意思为10的-45次方，输入程序时切莫输错。