任意曲線里程中邊樁坐標正反算程序

1、任意曲線里程中邊樁坐標正反算（fx5800 計算器）程序一、 程序功能本程序由一個主程序（TYQXJS ）和 3 個子程序（正算子程序 SUB1 ）、反算子程序（ SUB2）構成，可以根據曲線段 直線、圓曲線、緩和曲線 (完整或非完整型 )的線元要素 (起點坐標、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑及里程邊距或坐標,對該曲線段范圍內任意里程中邊樁坐標進行正反算 ,另外也可以將本程序中核心算法部分的兩個子程序移植到其他相關的程序中,用于對曲線任意里程中邊樁坐標進行正反算.)1. 主程序 (TYQXJS) （ 5800P 正交程序） 1.SZ= XY: 2.XY= SZ

2、: 1，2？ N: K0 ?O: X0 ?U: Y0 ?V: FWJ ?G: Ls ?H: +1,-1,0 ?Q:If Q=0:Then10 45-P: 10 45-R:Else R1 ?P:R2 ?R:IfEnd: 180 E: N=1= Goto 1 ： Goto2Lbl 1: JS LCH ?S: P-J ?Z :Abs(S-O) W:1P C: (P-R)(2HPR) D:Prog SUB1 : XS :X YS : Y FS :F-90 F:F DMS Goto1 Lbl 2: X ?X: Y ?Y:X I: Y J:1 P C:(P-R) (2HPR) D:Prog SUB2 :

3、S:O+WS Z:Z Goto2 2. 正算子程序（ SUB1）0.1739274226 A: 0.3260725774 B: 0.0694318442 K:0.3300094782 L: 1-L F:1-K MU+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:

4、Y+Zsin （ F） Y3. 反算子程序（ SUB2）G-90 T: Abs(Y-V)cos（ T）-(X-U)sin（T) ） W: 0 ZLbl 0:Prog SUB1 : T+QEW(C+WD) L: (J-Y)cos（ L） -(I-X)sin（ L） ZAbs(Z) Lbl 1: 0 10（-6 ） =Goto 1: W+Z Z:Prog SUB1 : (J-Y) W : Goto 0 sin （F）Z備注：起點里程 o：起點 X 坐標 U：起點坐標 V：起點方位角 G：曲線元長度：起點半徑：終點半徑: （右偏+1,左偏-1,直線0）Q三 .使用說明1.(輸入、輸出角度為度、分、秒

5、形式)(1) 以道路中線的前進方向 ( 即里程增大的方向 ) 區(qū)分左右 ; 當線元左偏時 ,Q=-1, 當線元右偏時 ,Q=1; 當線元為直線時 ,Q=0.(2) 當所求點位于中線時 ,Z=0, 當所求點位于中線左側時 ,Z 取負值 , 當所求點位于中線右側時 ,Z 取正值 .(3) 當線元為直線時 , 其起點、止點的曲率半徑為無窮大,以10的45 次方代替。(4) 當線元為圓曲線時 , 起點與直線相接時 , 曲率半徑為無窮大 , 以10 的 45 次方代替 , 與圓曲線相接時 , 曲率半徑等于圓曲線的半徑 . 止點與直線相接時 , 曲率半徑為無窮大 , 以 10 的 45 次方代替 , 與圓曲線相接時 , 曲率半徑等于圓曲線的半徑 .(5) 當線元為非完整緩和曲線時 , 起點與直線相接時 , 曲率半徑等于設計規(guī)定的值 ; 與圓曲線相接時 , 曲率半徑等于圓曲線的半徑 .止點與直線相接時, 曲率半徑等于設計規(guī)定的值, 與圓曲線相接時,曲率半徑等于圓曲線的半徑.2. 輸入與顯示說明輸入部分 :1.SZ= XY 2.XY