任意曲線里程中邊樁坐標(biāo)正反算程序

1、任意曲線里程中邊樁坐標(biāo)正反算（fx5800 計(jì)算器）程序一、 程序功能本程序由一個(gè)主程序（TYQXJS ）和 3 個(gè)子程序（正算子程序 SUB1 ）、反算子程序（ SUB2）構(gòu)成，可以根據(jù)曲線段 直線、圓曲線、緩和曲線 (完整或非完整型 )的線元要素 (起點(diǎn)坐標(biāo)、起點(diǎn)里程、起點(diǎn)切線方位角、線元長(zhǎng)度、起點(diǎn)曲率半徑、止點(diǎn)曲率半徑及里程邊距或坐標(biāo),對(duì)該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算 ,另外也可以將本程序中核心算法部分的兩個(gè)子程序移植到其他相關(guān)的程序中,用于對(duì)曲線任意里程中邊樁坐標(biāo)進(jìn)行正反算.)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備注：起點(diǎn)里程 o：起點(diǎn) X 坐標(biāo) U：起點(diǎn)坐標(biāo) V：起點(diǎn)方位角 G：曲線元長(zhǎng)度：起點(diǎn)半徑：終點(diǎn)半徑: （右偏+1,左偏-1,直線0）Q三 .使用說(shuō)明1.(輸入、輸出角度為度、分、秒

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