史強(qiáng)專(zhuān)用4800任意里程中邊樁坐標(biāo)正反算及放樣程序

1、曲線任意里程中邊樁坐標(biāo)正反算曲線任意里程中邊樁坐標(biāo)正反算(CASIOfx4800P計(jì)算器計(jì)算器)程序程序一、程序功能本程序由一個(gè)主程序(TYQXjs)和兩個(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)行正反算及放樣計(jì)算。另外

2、也可以將本程序中核心算法部分的兩個(gè)子程序移植到其它相關(guān)的程序中，用于對(duì)曲線任意里程中邊樁坐標(biāo)進(jìn)行正反算。本程序也可以在CASIOfx4800P計(jì)算器及CASIOfx4850P計(jì)算器上運(yùn)行。特別申明：(1).適用于弧長(zhǎng)小于2倍半徑的各種線元坐標(biāo)正反算，精度優(yōu)1mm；(2).在引用該核心計(jì)算部分時(shí)，請(qǐng)注明來(lái)源。二、源程序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三、使用說(shuō)明1、規(guī)定(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)位于中線左鍘時(shí)，Z取負(fù)值；當(dāng)位于中線中線右曲線結(jié)構(gòu)物坐標(biāo)計(jì)算曲線結(jié)構(gòu)物坐標(biāo)計(jì)算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