公路路线座标正反算.docx

《公路路线座标正反算.docx》由会员分享，可在线阅读，更多相关《公路路线座标正反算.docx（4页珍藏版）》请在第一文库网上搜索。

1、Fx-5800计算机程序QXJS-000 主程序Lbl 4:1.SZ=NET2NE=SZ”： uQ(l ,2 )= :?Q:“LICHENG=?S: ProgQXJS-SUB(F /Lbl O:Q=1 = Gotol:Q=2 = Goto2: /Lbl l:?Z:Prog“QXJS-SUBl”:“N=”:N，E=”:E，F=”:F，Gotc4Lbl 2: N=”?B: E=?OBN: CETrogQXJS -SUB2： “S=:S /“z=：z/Goto4QXJS-SUBO数据库子程序Gotol / 同时保存多个曲线时的指针Lbl 1IFSv* （线元终点里程）：Then*一A （线元起点方位

2、角）：*一。（线元起点里程）：*U（线元起点X）:*-V（线元起点丫）：*一P（线元起点曲率半径）：*-R （线元终点曲率半径）：*一L （线元起点至终点长度）：Return:IfEnd/IF * * * * * * y * * * * * * *-L: Return:IfEndZ为了便于解读，每增加一个线元增加一行语句,每增加一条曲线增加一个Lbl,每增加一个工程增加一个文件。QXJS-SUB1 正算子程序0.5 (1R-1P) LD-OXU+(cos(A+(XP+DX2) 180,0,X)N /V+(sin(A+(XP+DX2) 180,0,X)EA(XPDX2) 180 兀一 F /N+

3、Zcos(F+90) -N:E+Zsin(F+90) EQXJS-SUB2 反算子程序Lbl kOZz 1Q ProgQXJS-SUBO, ProgQXJS-SUB 1,/Po1(N-B+10(-46), E-C+10(-46)Jsin(F-90-J) -W:S+WS/Abs(W)0.0001 = Gotol /Lbl 2: 0Z： ProgQXJS-SUB,(C-E) sin(F+90) Z三、使用说明1、规定(1)以道路中线的前进方向(即里程增大的方向)区分左右；当曲线半径在左时，P、R取负值，当曲线半径在右时，P、R取正值，当曲线半径为无穷大(即直线)时，P、R以10的45次代替。(2)

4、当所求点位于中线时，Z=0；当位于中线左硼时，Z取负值;当位于中线中线右侧时，Z取正值。(3)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明输入部分：1. SZ = XY2. XY = SZQ?选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。欢迎我的故知与朋友瞎顶