5800计算器曲线任意里程坐标正反算.docVIP

1.主程序1.SZ → XY，2.XY → SZ ？N：Lbl 1：”=”?S： Prog SUB： N≥2=Goto 2：Abs(S-O)→W：”=”?Z:Prog SUB1：XS=”:X→X◢YS=”:Y→Y◢FS=”:(F-90) →F:F△DMS◢ Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J： Prog SUB2S=:(O+W) →S◢Z=：Z◢ Goto 2 2正算子程序 Lbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：0.1739274226 →A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： (1-L) →F： (1-K)→M：G+QEKW(C+KWD→Z[1]: G+QELW(C+LWD→Z[2]: G+QEFW (C+FWD) →Z[3]: G+QEMW(C+MWD) →Z[4] Acos（Z[1]）→X X+Bcos(Z[2]) →X X+Bcos(Z[3]) →X X+Acos(Z[4]) →X U+WX→X Asin(Z[1]) →Y Y+Bsin(Z[2]) →Y Y+Bsin(Z[3]) →Y Y+Asin(Z[4]) →Y V+WY→Y G+QEW（C+WD）+90→F X+Zcos(F) →X Y+Zsin(F) →Y 3反算子程序 G-90→T： (Y-V)cos(T)-(X-U)sin(T) →W：Abs(W) →W:0→Z Lbl 0：Prog SUB1 T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）0.000001：Then 0→Z:Prog SUB1 (J-Y)÷sin（F）→Z Else W+Z→W Goto 0:IfEnd 4 Z-SQX（竖曲线） O-S→L:A-B→W:Abs(R*W÷2) →T:O-T→M:O+T→P If S≤M:ThenG-L*B→H:Goto 5:Else If S≤O:Then Goto 3:Else If S≤P:Then Goto 4:IfEnd: IfEnd: IfEnd Lbl3 If W＞0：Then G+(M-S)2÷2÷R-L*B→H:Goto5: Else If W＜0: Then G-(M-S)2÷2÷R-L*B→H:Goto5: IfEnd: IfEnd Lbl4 If W＞0：Then G+( S-P)2÷2÷R-L*A→H:Goto 5: Else If W＜0: Then G-( S-P)2÷2÷R-L*A→H:Goto 5: IfEnd: IfEnd Lbl 5 ：H→H:”H”:H◢（为所求的高度） SQX（程序名） If S＜下一竖曲线前变坡桩号And S≥前一竖曲线后变坡桩号：Then大里程坡度→A：小里程坡度→B：交点里程→O：交点高度→G：半径→R：Prog“Z-SQX”:IfEnd 有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断，子程序不用变动。 SUB0 数据库子程序 Goto1↙ Lbl 1：IF S***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙ Lbl 1：IF S***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd 为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。只要给数据库里的变量输完即可使用。 使用说明 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右 侧时，Z取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆 弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半 径为无穷大，以10的45次代替；