路基和隧道的CASIO5800P万能曲线程序

1、有关路基和隧道的CASIO5800P万能曲线计算程序第二次修改：有关路基和隧道的CASIO5800P万能曲线计算程序，可以正、反坐标，放边坡和隧道圆心，计算开挖半径曲线任意里程中边桩坐标正反算(CASIOfx-5800P计算器)程序一、程序功能本程序由一个主程序(ZHUCHENX和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序(SDYX构成，可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半

2、径)及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量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 .数据库(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、规定往左偏时,(2)(1) 以道路中线的前进方向(即里程增大的方向)区分左右；当线元Q二T;当线元往右偏时，Q=1;当线元为直线时，Q=O当所求点位于中线时，z=o；当位于中线左恻时，Z取负值；当位于中线中线右侧时，Z取正值。(3) 当线元

11、为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明SZXY,2.XYSZ,3.SDYX,4.BIANP0N?选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进行路基边坡放样。3、盖板涵斜交操作说明：(以左前点为例)先把盖板涵斜交角度减90后二A再盖板涵左长度*CosA=B,盖板涵左长度*SinA