FX-5800程序1分段坐标计算.docVIP

ZD-FANG.YANG计算程序（任意曲线或直线上坐标计算）（分段计算） 程序说明：本程序是计算各曲线或直线内任意点中边桩计算程序 计算前，先查明里程K处于哪段曲线或是直线内，用这段曲线或是直线的两端点参数计算K的中边桩坐标 输入： 1 YOU ZUAN, ， 2 ZUO ZUAN 输入1表示右转曲线，2表示左转曲线，左右转曲线的判定需根据A点——B点的顺序，例如一条右转曲线的ZH点到HY点，输入时，我们以ZH点为A点，HY点为B点，则，曲线为右转，如果以HY点为A点，ZH点为B点，则曲线为左转。 K A :A点里程， X A :A点X坐标 Y A :A点Y坐标 FWJ A : A点方位角 R A :A点半径 K B :B点里程 R B :B点半径 K:待求点里程 DL:左偏移值 DR右偏移值 A:左右偏移值的连线与线路的夹角 遇到偏角跟设计偏角有误差时，我们通常将误差集中在QZ点，即前半段计算时方位角不变，后半段计算时方位角大于180度要减去180度再输入,小于90度要加上180度再输入） 输出： XY中桩坐标， XL,YL为左偏移的点的坐标 XR,YR为右偏移的点的坐标 程序一：（已调通过） 适用于铁路、公路。立交。中边桩放样坐标计算， FX-4800计算器ZB-FANG.YANG程序代码如下： Lb1 0: GE :U” 1 YOU空格ZUAN空格空格空格空格， 2 ZUO空格ZUAN”: F”K（A）”：A”X（A）”:B”Y（A）”:C”FWJ A ”: V”R A ”: G”K（B）”：W”R B ” U 2 U -1回车 V 0D 0: D UV-1 W 0E 0: E UW-1 Lb1 1: HORT :H”K”:O”DL”:R”DR”:T”A”:H G?Goto 3 回车 P E-D ÷Abs G-F :Q Abs H-F :I P×Q回车 J C+ I+2D ×Q×90÷π回车 M C+ I÷4+2D Q×45÷ 2π :N C+ 3×I÷4+2D Q×135÷ 2π 回车 K C+ I÷2+2D Q×45÷π回车 X A+Q÷12× cosC+4 cosM+ cosN +2 cosK+ cosJ Y B+Q÷12?sinC+4 sinM+sinN +2sinK+sinJ Z”XL” X+ O譪os J- 180-T n L”YL” Y+ O譻in J- 180-T n X”XR” X+R譪os J+T 8 Y”YR” Y+R譻in J+T 8 Goto 1回车 Lb1 3:A X:B Y:C J: D E:F G: Goto 0回车 （已调通过）FX-4850计算器ZB-FANG.YANG程序代码如下： Lb1 0: GE :U” 1 YOU空格ZUAN空格空格空格空格， 2 ZUO空格ZUAN”: F”K（A）”：A”X（A）”:B”Y（A）”:C”FWJ A ”: V”R A ”: G”K（B）”：W”R B ” U 2 U -1回车 V 0D 0: D UV-1 W 0E 0: E UW-1 Lb1 1: HORT :H”K”:O”DL”:R”DR”:T”A”:H G?Goto 3 回车 P E-D ÷Abs G-F :Q Abs H-F :I P×Q回车 J C+ I+2D ×Q×90÷π回车 M C+ I÷4+2D Q×45÷ 2π :N C+ 3×I÷4+2D Q×135÷ 2π 回车 K C+ I÷2+2D Q×45÷π回车 “X”:X A+Q÷12× cosC+4 cosM+ cosN +2 cosK+ cosJ “Y”:Y B+Q÷12× sinC+4 sinM+sinN +2sinK+sinJ ”XL”：Z X+ O×cos J- 180-T ”YL”:L Y+ O×sin J- 180-T ”XR”:X X+R×cos J+T ”YR”:Y Y+R×sin J+T Goto 1回车 Lb1 3:A X:B Y:C J: D E:F G: Goto 0回车 分段坐标计算程序5800调试成功 Lb1 0 ” 1 YOU空格ZUAN空格空格空格空格， 2 ZUO空格ZUAN”？ U:”K（A）”？ F：”X（A）” ？A:”Y（A）” ？B:”FWJ A ”？ C:”R A ” ？V:”K（B）” ？G：”R B ”？ W回车 U 2 -1→U回车 If V 0：then 0 →D: Else UV-1→D：IfEnd回车 If W 0：then 0→E: Else UW-1→E： IfEnd回车 Lb1 1 ”K” ？H:”DL” ？O:”DR” ？R:”A” ？