曲线任意里程中边桩正反算5800P(修改版)

《曲线任意里程中边桩正反算5800P(修改版)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、线路中边桩任意里程坐标正反算程序5800P※Main   （主程序名）Lbl0：Cls＂1.SZ=>NE2.NE=>SZ＂:＂Q=1?or2?＂:?QQ=1=>Goto1:Q=2=>Goto2↙Lbl1:Cls:＂DK=＂?SS=0=>Goto0:Prog＂DATA＂（注：S=0时，程序会由Lbl0开始重新运算）Lbl1:＂Z=＂?Z:Prog＂QXJSSUB1＂↙(注：输入正算里程)Fix4:Cls↙(注：小数点后保留4位有效数字)＂X=＂:Locate3,1,N◢(注：输出正算X值)＂Y=＂:Locate3,2,E◢(注：输出正算Y值)＂F

2、S=＂:F►DMS◢(注：►DMS为一个符号,以度分秒格式显示，正算切线方位角)Prog＂FYJS＂:Goto1↙Lbl2:Cls:＂N=＂?B＂(注：输入反算点坐标X值)B=0=>Goto0:＂E=＂?C:PredictDK=＂?S:B→N:C→E:Prog＂QXJSSUB2＂:＂S=＂:S◢＂Z=＂:Z◢Goto2↙（注：B=0时，程序会由Lbl0开始重新运算，输入反算点坐标Y值，其中英文Predict/pri’dikt/中文含义“预计”，PredictDK=预计反算里程（呵呵，班门弄斧一下），作用：以便从程序库DATA提取相应的线元要素，

3、否则计算器不停的计算，造成假死机）【主程序完，主程序经此改动后,即可加入测站点坐标进行距离与方位角的放样了】※FYJS（注：方位角和距离放样子程序名,与主程序Prog＂FYJS＂:Goto1对应）ClrStat↙"XJ="?G:"YJ="?H↙（注：XJ,输入测站点X值，YJ，输入测站点Y值）Pol(N-G,E-H):Cls↙IfJ<0:ThenJ+360→Y:ElseJ→Y:IfEnd↙＂FYHD=＂:,I◢（注：字母I，正算值与测站点平距）＂FYHR=＂:Y►DMS◢(注：►DMS度分秒格式，正算值至测站点方位角)【方位角和距离放样子程序完

4、】※DATA         (数据库子程序名)Goto1↙              同时保存多个曲线时的指针，通过更改序号（如：1改成2）变换曲线Lbl1↙第一条曲线（如：左线数据库）IFS<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）:***→L（线元起点至终点长度）:Return:IfEnd↙修改：hnyangxiny第3页共3页2021-10-4bl2↙第二条曲线（如：右线数据

5、库）IFS<***（线元终点里程）:Then***→A（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）:***→L（线元起点至终点长度）:Return:IfEnd↙IFS<***:Then***→A:***→O:***→U:***→V:***→P:***→R:***→L:Return:IfEnd↙【为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件,在主程序Main改回相应数据库即可。

6、】※QXJSSUB1            (正算子程序名)0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π),0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90)→N:E+Zsin(F+90)→E↙【正算子程序完，其中字母＂O＂用大写带下划线表示，数字＂0＂为小写不带下划线。】※QXJSSUB2           (反算子程序名)Lbl1:0→Z：1→Q：Prog＂DATA＂:Prog＂QXJSSUB1

7、＂↙Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-90-J)→W:S+W→S↙Abs(W)>0.0001=>Goto1↙Lbl2:0→Z：Prog＂QXJSSUB1＂:(C-E)÷sin(F+90)→Z↙【反算子程序完】【使用说明】1、规定        (1)以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时，P、R取负值，当曲线半径在右时，P、R取正值，当曲线半径为无穷大（即直线）时，P、R以10的45次代替。        (2)当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中

8、线中线右侧时，Z取正值。        (3)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。        (5)当线