史強專用4800任意里程中邊樁坐標正反算及放樣程序

1、曲線任意里程中邊樁坐標正反算曲線任意里程中邊樁坐標正反算(CASIOfx4800P計算器計算器)程序程序一、程序功能本程序由一個主程序(TYQXjs)和兩個子程——正算子程序(SUB1)、反算子程序(SUB2)序構(gòu)成，可以根據(jù)曲線段——直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點坐標、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑）及里程邊距或坐標，對該曲線段范圍內(nèi)任意里程中邊樁坐標進行正反算及放樣計算。另外

2、也可以將本程序中核心算法部分的兩個子程序移植到其它相關(guān)的程序中，用于對曲線任意里程中邊樁坐標進行正反算。本程序也可以在CASIOfx4800P計算器及CASIOfx4850P計算器上運行。特別申明：(1).適用于弧長小于2倍半徑的各種線元坐標正反算，精度優(yōu)1mm；(2).在引用該核心計算部分時，請注明來源。二、源程序1.主程序(TYQXjs)“1.SZ=XY“：“2.XY=SZ“：N：U“QIDIANX“：V“QIDIANY“：O“QI

3、DIANK“：G“QIDIANFWJ“：H“QUXIANLs“：P“QIDIANR“：R“ZHONGDIANR“：A“XC“:B“YC“:Q：C=1P：D=(PR)(2HPR)：E=180π：N=1=Goto1：≠Goto3Δ←┘Lbl1：SZT：S“DAIQIUK“:Z“BIANJU“：T”JIAJIAO”：W=Abs(SO)：Prog“SUB1“：X“XP“=X◢Y“YP“=Y◢F“QIEXIANFWJ“=F90◢M=1＝＞Goto

4、1:≠Goto2LbI2:I=0：J=0：Pol（XA，YB）：JGoto1：≠W=WZ：Goto0Δ←┘Lbl1：Z=0：Prog“SUB1“：Z=(JY)sinF三、使用說明1、規(guī)定(1)以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當線元往左偏時，Q=1；當線元往右偏時，Q=1；當線元為直線時，Q=0。(2)當所求點位于中線時，Z=0；當位于中線左鍘時，Z取負值；當位于中線中線右曲線結(jié)構(gòu)物坐標計算曲線結(jié)構(gòu)物坐標計算A“X0”:

5、B”Y0”:C”QIEXIANFWJ”Lbi0：E”HENGXIANGS”:T”ZONGXIANGS”Lbi1：Q=1=GOTO2:≠GOTO3Lbi2:F=AEcos(C90)：H=BEsin(C90):GOTO4Lbi3:F=AEcos（C90）：H=BEsin(C90):GOTO5Lbi4：U”XLXIAO”=FTcos(C180)◢V”YLXIAO”=HTsin(C180)◢U”XLDA”=FTcosC◢V”YLDA”=HTsi