5800任意曲线路基及隧道程序.doc

有关路基和隧道的CASIO 5800P 万能曲线 计算程序第二次修改：有关路基和隧道的CASIO 5800P 万能曲线 计算程序，可以正、反坐标，放边坡和隧道圆心，计算开挖半径曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量22DimZ1.主程序(ZHUCHENXU)1.SZ XY，2.XY SZ，3.SDYX，4. BIANPO ？N：Lbl 1：”ZHUANGHAO=”?S： Prog SUB3： N2=Goto 2： Abs(S-O)W：”BIANZHU=”?Z:Prog SUB1： XS=”:XXYS=”:YYFS=”:(F-90) F:FDMSProg FA：Goto 1:Lbl 2：”CX=”?X: XI：”CY=”?Y: YJ：”DMG=”?Z7：Prog SUB2： S=:(O+W) SZ=：ZZIf N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算子程序(SUB1)0.1739274226 Z1： 0.3260725774B： 0.0694318442K： 0.3300094782L： (1-L) F： (1-K)M： U+W(Z1cos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW (C+FWD)+Z1cos(G+QEMW(C+MWD) X： V+W(Z1sin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Z1sin(G+QEMW(C+MWD) Y： G+QEW(C+WD)+90F： X+ZcosFX： Y+ZsinFY3. 反算子程序(SUB2)G-90 Z2： Abs(Y-V)cosZ2-(X-U)sinZ2) W： 0Z：Lbl 0：Prog SUB1： Z2+QEW(C+WD) L： (J-Y)cosL-(I-X)sinLZ：If Abs(Z)1E-6:Then Goto1：Else W+ZW：Goto 0: IfEndLbl 1： 0Z：Prog SUB1： (J-Y)sinFZ4. 数据库(SUB3)If S226100:Then Cls:Stop: IfEndIf S236005.651:Then Cls:Stop: IfEndLbl 1: 1PC：(P-R)(2HPR) D：180E：5. 算方位角程序(FA)LbI0：“XC=”? A : “YC=”? T :X：Y0J： POI（X-A，Y-T）I：“BC=”：IIf J0： Then 360+JJ：ElseJJ :IfEnd “FW=”：JDMSGoto06. 使用方位角算坐标(NE)LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F： LCos（F）+XN: “N=”NLSin（F）+YE: “E=”EGoto07. 边坡放样程序(BIANPO)Prog TCD ：Prog BHD ：IF S226255.731 : then 232.257 Z17:225844.269 Z18:-0.69Z19:11789.745 Z22: Goto 3: IfEndIF S226351.25 : then 230.837 Z17:226050 Z18:2.8Z19:1045 Z22: Goto 3: IfEndIF S226688.75 : then 239.272 Z17:226351.25 Z18:2.8Z19:-45000 Z22: Goto 3: IfEndIF S227318 : then 243.997 Z17:226520 Z18:2.05Z19: 1045 Z22: Goto 3: IfEndIF S227982 : then 260.356 Z17:227318 Z18:2.05Z19:-16000 Z22: Goto 3: IfEndLbl 3:Z17+(S- Z18) Z19/100+ (S- Z18)2/2/ Z22 (13+ Z20)0.02 Z4: “QPDGD=”：Z4 Z7-Z4 Z11：If Z110 ThenAbs（Z11 ）Z11: “T=”：Z11 13+ Z20+ Z21 Z3: 8 Z5: 0 Z6: 1.5 Z8: 1.75 Z9:Else“W=”：Z11 15.6+ Z20+ Z21 Z3: 10 Z5: 2 Z6: 1.0 Z8: 1.25 Z9:IfEndZ11Z5 Z12：If Z121 Then Z8Z11 Z13：Else Z8Z5+Z9Z5（Z12-1）Z13：IfEnd: AbsZ-（Z13+Z6 Int Z12+Z3）Z14:“BP+C-J=”: Z14 说明：只适用二级边坡。Z14=“BP+C-J=” 边坡超欠挖宽度（+表超，-表欠）8. 隧道圆心放样程序（SDYX）IF S229000:THEN 243.997+0.0205(S-226520)-(S-227318)2/2/16000+1.503 Z10:“NGC=”：Z10 ELSE 286.385-0.023(S-230500)- (S-230593.753)2/2/165000+1.503Z10:“YLJ=”：Z10 IfEndZ10- Z7 Z15:“+SG,-JD”：Z15 (（Z152+(ABS(Z)-6.8)2）)Z16: “R=”:Z16 9. TCD（停车带）IF S227020 : then O Z20:reture: IfEnd IF S227035 : then (S-227020) 3.5/15 Z20: reture: IfEndIF S227065 : then 3.5 Z20: reture: IfEndIF S227080 : then (S-227065) 3.5/15 Z20: Else 0Z20 :IfEnd10. BHD（变化段）IF S227300 : then O Z21: reture: IfEndIF S227450 : then (S-227300) 1.85/300 Z21: Else 0.925Z21 :IfEnd三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。2、输入与显示说明 SZ XY，2.XY SZ，3.SDYX，4. BIANPO N ?选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算 里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进行路基边坡放样。3、盖板涵斜交操作说明：（以左前点为例）先把盖板涵斜交角度减