任意曲线里程中边桩坐标正反算(fx5800计算器)程序(共3页).doc

《任意曲线里程中边桩坐标正反算(fx5800计算器)程序(共3页).doc》由会员分享，可在线阅读，更多相关《任意曲线里程中边桩坐标正反算(fx5800计算器)程序(共3页).doc（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上任意曲线里程中边桩坐标正反算（fx5800计算器）程序一、 程序功能本程序由一个主程序（TYQXJS）和3个子程序（正算子程序SUB1）、反算子程序（SUB2）构成，可以根据曲线段直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算,另外也可以将本程序中核心算法部分的两个子程序移植到其他相关的程序中,用于对曲线任意里程中边桩坐标进行正反算.1. 主程序(TYQXJS)（5800P正交程序）1.SZ=XY:2.XY=SZ: 1，2？N:

2、K0?O: X0?U: Y0?V: FWJ?G: Ls?H: +1,-1,0?Q:If Q=0:Then 10 45-P: 10 45-R:ElseR1?P: R2?R:IfEnd: 180E: N=1=Goto 1：Goto2Lbl 1:JS LCH?S: P-J?Z :Abs(S-O)W:1PC: (P-R)(2HPR)D:ProgSUB1:XS:XYS: YFS:F-90F:F DMS Goto1Lbl 2: X?X:Y?Y:XI: YJ:1PC:(P-R)(2HPR)D:ProgSUB2:S:O+WSZ:Z Goto22. 正算子程序（SUB1）0.A: 0.B: 0.K: 0.L:

3、1-LF:1-KMU+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)X：V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)YG+QEW(C+WD)+90F: X+Zcos（F）X: Y+Zsin（F）Y3. 反算子程序（SUB2）G-90T: Abs(Y-V)cos（T）-(X-U)sin（T)）W: 0Z Lbl 0:ProgSUB1: T+QEW(C+WD)L: (J-Y)co

4、s（L）-(I-X)sin（L）ZAbs(Z)10（-6）=Goto 1: W+ZW : Goto 0Lbl 1: 0Z:ProgSUB1: (J-Y)sin（F）Z备注：起点里程o：起点X坐标U：起点坐标V：起点方位角G：曲线元长度：起点半径：终点半径:（右偏+1,左偏-1,直线0）Q三.使用说明1.(输入、输出角度为度、分、秒形式)(1)以道路中线的前进方向(即里程增大的方向)区分左右;当线元左偏时,Q=-1, 当线元右偏时,Q=1;当线元为直线时,Q=0.(2)当所求点位于中线时,Z=0, 当所求点位于中线左侧时,Z取负值, 当所求点位于中线右侧时,Z取正值.(3)当线元为直线时,其起点

5、、止点的曲率半径为无穷大,以10的45次方代替。(4)当线元为圆曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线的半径.止点与直线相接时,曲率半径为无穷大,以10的45次方代替,与圆曲线相接时,曲率半径等于圆曲线的半径.(5)当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径.止点与直线相接时,曲率半径等于设计规定的值,与圆曲线相接时,曲率半径等于圆曲线的半径.2.输入与显示说明输入部分:1.SZ=XY 2.XY=SZ,1为里程算坐标，为坐标算里程N 输入或，为里程桩号，当所求点位于中线时Z=0, 当所求点位于中线左侧时,Z取负值, 当所求点位于中线右侧时,Z取正值。结束。专心-专注-专业