路基和隧道的CASIO5800P萬能曲線程序

1、有關路基和隧道的CASIO5800P萬能曲線計算程序第二次修改：有關路基和隧道的CASIO5800P萬能曲線計算程序，可以正、反坐標，放邊坡和隧道圓心，計算開挖半徑曲線任意里程中邊樁坐標正反算(CASIOfx-5800P計算器)程序一、程序功能本程序由一個主程序(ZHUCHENX和幾個子程序正算子程序(SUB1)、反算子程序(SUB2)、數(shù)據(jù)庫(SUB3)、算方位角程序(FA)、使用方位角算坐標(NE)、邊坡放樣程序(BIANPO)、隧道圓心放樣程序(SDYX構成，可以根據(jù)直線、圓曲線、緩和曲線(完整或非完整型)的線元要素(起點坐標、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半

2、徑)及里程邊距或坐標，對該曲線段范圍內(nèi)任意里程中邊樁坐標進行正反算。二、源程序增加變量22DimZ1 .主程序(ZHUCHENXU)1.SZXY,2.XYSZ,3.SDYX4.BIANPO?N:Lbl1:"ZHUANGHAOS：ProgSUB3：N>2二Goto2：Abs(S-0一W”BIANZHU=?Z:ProgSUB1：XS=”:X一XJYS=”：丫一Y_LFS=”:(F-90)F：F?DMSProgFA：Goto1：Lbl2:"CX=？X:XI："CY=?Y：YJ:"DMG=?Z7：ProgSUB2：”二：(0+W)SJZ=：ZZJIfN=3

3、：ThenProgvSDYX:IfEndIfN=4：ThenPrognBIANPO：IfEnd：Goto22 .正算子程序(SUB1)0.1739274226一Zl:0.3260725774一B：0.0694318442一K：0.3300094782L：(1-L)F：(1-K)MU+W(Zlcos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Z1cos(G+QEMW(C+MW-D)V+W(Zlsin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+ZlsiG+QEW(C+WD)+

4、90n(G+QEMW(C+MWDY：F：X+ZcosFX：Y+ZsinFY3 .反算子程序(SUB2)G-90Z2：Abs(Y-V)cosZ2-(X-U)sinZ2)W0ZLbl0：ProgSUB1：Z2+QEW(C+WD)L：(J-Y)cosL-(l-X)sinLZ:IfAbs(Z)vlE-6：ThenGotol:ElseW+ZWGoto0：IfEndLbl1:0Z:ProgSUB1:(J-Y)-sinF一Z4 .數(shù)據(jù)庫(SUB3)IfS<226100：ThenCls：Stop：IfEndIfSv226255.833：Then2261000:99037.9736一U：4282.3590

5、一V:201.3266304 fG: 1045 一 P: 1045 一 R 253. 543H:0 Q： Goto 1：IfE ndIfS>236005.651：ThenCls：Stop：IfEndLbl1：1-PC:(P-R)-(2HPR)D：180-nE：5 .算方位角程序(FA)LblO：“XC=”?A:"YC="?T:X：Y0-J：POI(X-A,Y-T)I：BC=”：I±IfJ<Then360+JJ：Elsej一J：IfEnd“FW="：J?DMSJGotoO6 .使用方位角算坐標(NE)LblO：“X=”?X:"Y=&q

6、uot;?Y:"玩'>，N®L辨in”%講Y9：lXCos(F)+XN:GotoO"E="EJ7 .邊坡放樣程序(BIANPO)ProgTCD：ProgBHD：IFS<226255.731:then232.257一Z17:225844.269Z18：-0.69Z19：11789.745一Z22：Goto3：IfEndIFS<226351.25:then230.837一Z17：226050一Z18:2.8Z19：10A45Z22：Goto3：IfEndIFS<226688.75:then239.272一Z17：226351.

7、25一Z18：2.8Z19:-45000Z22：Goto3：IfEndIFSV227318：then243.997一Z17：226520一Z18：2.05一Z19：10八45Z22：Goto3：IfEndIFS<227982:then260.356一Z17：227318一Z18：2.05Z19：-16000Z22：Goto3：IfEndLbl3：Z17+(S-Z18)XZ19/100+(S-Z18)2(2)Z22小上一(13+Z20)X0.02Z4:“QPDGD"=：Z4JZ7-Z4ZU：IfZll<0ThenAbs(Zll)Zll：“T=”：ZllJ13+Z20+Z21

8、Z3：8Z5：0Z6：1.5Z8：1.75Z9：Else“W=”ZllJ15.6+Z20+Z21Z3：10Z5:2Z6：1.0Z8：1.25Z9：IfEndZll-Z5Z12：IfZ12<1ThenZ8XZllZ13：ElseZ8XZ5+Z9XZ5X(Z12-1)Z13：IfEnd:AbsZ-(Z13+Z6XIntZ12+Z3)Z14:“BP+C-尸”：Z14J說明：只適用二級邊坡。Z14="BP+C-尸邊坡超欠挖寬度(+表超，-表欠)8. 隧道圓心放樣程序(SDYX)IFS<229000：THEN243.997+0.0205X(S-226520)-(S-227318)2

9、/2/16000+1.503Z10:“NGC”二：Z10JELSE286.385-0.023X(S-230500)-(S-230593.753)2/2/165000+1.503Z10：“YLJ二”：Z10JIfEndZio-Z7Z15:"+SGJD”：Z15JV(Z15/2+(ABS(Z)-6.8)7<2)Z16:"R=:Z16J9. TCD(停車帶)IFS<227020:then0Z20：reture：IfEndIFSV227035：then(S-227020)X3.5/15Z20：reture：IfEndIFSV227065：then3.5一Z20：retu

10、re：IfEndZ20 ：IfEIFS<227080:then(S-227065)X3.5/15Z20：Else0-ndIF S<227300 ：IF S<227450 :1 ：IfEndthenthen10. BHD(變化段)0Z21：reture：IfEnd(S-227300)XI.85/300Z21：Else0.925三、使用說明1、規(guī)定往左偏時,(2)(1) 以道路中線的前進方向(即里程增大的方向)區(qū)分左右；當線元Q二T;當線元往右偏時，Q=1;當線元為直線時，Q=O當所求點位于中線時，z=o；當位于中線左惻時，Z取負值；當位于中線中線右側(cè)時，Z取正值。(3) 當線元

11、為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。(4) 當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。(5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。(6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。2、輸入與顯示說明SZXY,2.XYSZ,3.SDYX,4.BIANP0N?選擇計算方式，輸入1表示進行由里程、邊距計算坐標；輸入2表示由坐標反算里程和邊距。輸入3表示隧道圓心放樣和計算實測半徑；輸入4表示進行路基邊坡放樣。3、蓋板涵斜交操作說明：(以左前點為例)先把蓋板涵斜交角度減90后二A再蓋板涵左長度*CosA=B,蓋板涵左長度*SinA