曲線上任意里程的坐標(biāo)正算及反算

1、[轉(zhuǎn)]曲線任意里程中邊樁坐標(biāo)正反算曲線任意里程中邊樁坐標(biāo)正反算一、程序功能本程序由一個(gè)主程序(ZHUCHENXU)和幾個(gè)子程序——正算子程序(SUB1)、反算子程序(SUB2)、數(shù)據(jù)庫(SUB3)、算方位角程序(FA)、使用方位角算坐標(biāo)(NE)、邊坡放樣程序(BIANPO)、隧道圓心放樣程序（SDYX）構(gòu)成，可以根據(jù)直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點(diǎn)坐標(biāo)、起點(diǎn)里程、起點(diǎn)切線方位角、線元長(zhǎng)度、起點(diǎn)曲率半徑、止點(diǎn)曲率半

2、徑）及里程邊距或坐標(biāo)，對(duì)該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算。二、源程序增加變量16→DimZ1.主程序(ZHUCHENXU)“1.SZ→XY，2.XY→SZ，3.SDYX，4.BIANPO“？N：Lbl1：”ZHUANGHAO=”S：Prog“SUB3“：N≥2=Goto2：Abs(SO)→W：”BIANZHU=”→Z:Prog“SUB1“：“XS=”:X→X◢“YS=”:Y→Y◢“FS=”:(F90)→F:FDMS◢Prog“

3、FA“：Goto1:Lbl2：”CX=”X:X→I：”CY=”Y:Y→J：”DMG=”→Z[7]：Prog“SUB2“：“S=“:(OW)→S◢“Z=“Z→Z◢IfN=3:ThenProg”SDYX”:IfEnd：IfN=4:ThenProg”BIANPO”:IfEnd:Goto22.正算子程序(SUB1)0.1739274226→Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L：(1L

4、)→F：(1K)→M：UW(Z[1]cos(GQEKW(CKWD))Bcos(GQELW(CLWD))Bcos(GQEFW(CFWD))Z[1]cos(GQEMW(CMWD)))→X：VW(Z[1]sin(GQEKW(CKWD))Bsin(GQELW(CLWD))Bsin(GQEFW(CFWD))Z[1]sin(GQEMW(CMWD)))→Y：GQEW(CWD)90→F：XZcosF→X：YZsinF→Y3.反算子程序(SUB2)G90

5、→Z[2]：Abs((YV)cosZ[2](XU)sinZ[2])→W：0→Z：Lbl0：Prog“SUB1“：Z[2]QEW(CWD)→L：(JY)cosL(IX)sinL→Z：IfAbs(Z)236005.651:ThenCls:Stop:IfEndLbl1:1P→C：(PR)(2HPR)→D：180π→E：(5)當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑

6、。止點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。(6)當(dāng)線元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。2、輸入與顯示說明SZ→XY，2.XY→SZ，3.SDYX，4.BIANPON選擇計(jì)算方式，輸入1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo)；輸入2表

7、示由坐標(biāo)反算里程和邊距。輸入3表示隧道圓心放樣和計(jì)算實(shí)測(cè)半徑；輸入4表示進(jìn)行路基邊坡放樣。3、蓋板涵斜交操作說明：（以左前點(diǎn)為例）先把蓋板涵斜交角度減９０后＝Ａ再蓋板涵左長(zhǎng)度ＣｏｓＡ＝Ｂ，蓋板涵左長(zhǎng)度ＳｉｎＡ＝Ｃ，蓋板涵身寬度ＣｏｓＡ＝Ｄ利用YQXJS程序計(jì)算此樁號(hào)正交時(shí)Ｂ寬度的坐標(biāo)值，及法線方位角。再轉(zhuǎn)到NE程序，Ｘ，Ｙ，Ｆ三項(xiàng)不要修改，只改Ｌ＝Ｃ＋Ｄ２（計(jì)算后點(diǎn)Ｄ前為—）4、SUB3數(shù)據(jù)庫說明：S待求樁號(hào)，O=曲線起點(diǎn)樁號(hào)，U曲線起