2019年整理路基和隧道的CASIO5800P万能曲线程序

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

2、长度、起点曲率半径、止点曲率半径)及 里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量22 DimZ1. 主程序(ZHUCHENXU)"1.SZ XY，2.XY SZ，3.SDYX 4. BIANPO " ? N:Lbl 1 :” ZHUANGHAOS: Prog "SUB3" : N >2=>Goto 2 : Abs(S- O W” BIANZHU= ? Z:Prog "SUB1" : "XS= ” :X XJ "YS= ”：丫 Y丄"FS=” :(F-9 0

3、) F:F?DMSProg "FA" : Goto 1:Lbl 2 :” CX= ?X: X I :” CY= ?Y: Y J :” DMG= ?Z7 : Prog "SU B2": "S=":( O+W) SJ "Z=" : Z ZJ If N=3:Then Prog ” SDYX : IfEnd If N=4:Then Prog ” BIANPO :IfEnd:Goto 22. 正算子程序(SUB1)G+QEW(C+WD)+900.1739274226 Z1 : 0.3260725774 B: 0.069431

4、8442 K: 0.330009 4782 L: (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) V +W(Z1si n(G+QEKW(C+KWD)+Bsi n(G+QELW(C+LWD) +Bsi n(G+QEFW(C+FWD)+Z1si n(G+QEMW(C+MWDY： F: X+ZcosFX: Y+ZsinF Y3. 反算子程序(SUB2)0 Z Lbl 0 : PrZ:G-90 Z2 : Abs(Y-V)cosZ2-(X-U)sinZ

5、2) Wog "SUB1": Z2+QEW(C+WD)L: (J-Y)cosL-(l-X)sinLIf Abs(Z)v1E-6:Then Goto1 : Else W+Z W Goto 0: IfEndLbl 1 : 0 Z: Prog "SUB1" : (J-Y) - sinF Z4. 数据库(SUB3)If S<226100:Then Cls:Sto p: IfEndIf Sv226255.833:Then 226100 O: 99037.9736 U: 4282.3590 V: 200 Q: Goto 1:lfE nd1.3266304 f

6、G: 1045 P: 1045 R 253.543 H:If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1- P C: (P-R) - (2HPR) D: 180- n E:5. 算方位角程序 (FA)LbI0：“XC=” ? A :“YC=” ? T :X ：0J： POI (X-A，Y-T)I ：seJJ :IfEnd“FW=”：J?DMSJ Goto06. 使用方位角算坐标 (NE)LbI0：“X=” ? X: “Y=” ? Y: “N=” NJLXSin(F) +YE:Goto07. 边坡放样程序 (BIANPO)Prog " TC

7、D " ：Prog " BHD " ：IF S<226255.731 : then 232.257 Z17:225844.269 Z18:-0.69Z19:11789.745 Z22: Goto 3: IfEndIF S<226351.25 : then 230.837 Z17:226050 Z18:2.8Z19:10八45 Z22: Goto 3: IfEndIF S<226688.75 : then 239.272 Z17:226351.25 Z18:2.8Z19:-45000 Z22: Goto 3: IfEndIF SV227318 :

8、then 243.997 Z17:226520 Z18:2.05 Z19: 10八45 Z22: Goto 3: IfEndIF S<227982 : then 260.356 Z17:227318 Z18:2.05Z19:-16000 Z22: Goto 3: IfEndLbl 3:Z17+(S- Z18) X Z19/100+ (S- Z18)2 Z22Z20 ) X 0.02 Z4:“QPDGD”=：Z4 JBC=”Y:I 丄 If J < 0:“L=”“E=” EJ? L: “F0” ?F:Then 360+J J: ElL X Cos (F) +X N:-(13+Z7-Z

9、4 Z11 ：If Z11 0 Then Abs(Z11 )Z11:“T=”：Z11 J 13+ Z20+ Z21 Z3: 8 Z5: 0 Z6: 1.5 Z8:1.75 Z9:Else “W=” Z11 J15.6+ Z20+ Z21 Z3: 10 Z5:2 Z6: 1.0 Z8: 1.25 Z9:IfEndZ11 - Z5 Z12 : If Z12 1 Then Z8 X Z11 Z13 : Else Z8X Z5+Z9 XZ5X(Z12-1 )Z13 ：IfEnd: AbsZ- (Z13+Z6 XI nt Z12+Z3)Z14: “BP+C-J=” : Z14 J说明： 只适用二级边坡。

10、Z14= “ BP+C-J=边坡超欠挖宽度(+表超，-表欠)8. 隧道圆心放样程序( SDYX)IF S<229000:THEN 243.997+0.0205 X (S-226520)-(S-227318)2/2/16000+ 1.503 Z10:“NGC”=: Z10 JELSE 286.385-0.023X(S-230500)- (S-230593.753)2/2/165000+1.503 Z10:“YLJ二”：Z10 J IfEndZ10- Z7 Z15:“ +SG,-JD”： Z15 JV( (Z152+(ABS(Z)-6.8)八2) ) Z16:“ R= :Z16 J9. TC

11、D (停车带)IF S<227020 : thenO Z20:reture: IfEndIF SV227035 : then (S-227020) X 3.5/15 Z20: reture: IfEndIF SV227065 : then 3.5 Z20: reture: IfEndIF S<227080 : then (S-227065) X3.5/15 Z20: Else 0Z20 :IfEnd10. BHD (变化段)IF S<227300 : thenO Z21: reture: IfEndIF S<227450 : then (S-227300) X1.85/

12、300 Z21: Else 0.925Z2三、使用说明1 、规定(1)往左偏时，(2)1 :IfEnd以道路中线的前进方向(即里程增大的方向)区分左右；当线元Q=-1 ;当线元往右偏时，Q=1;当线元为直线时，Q=0当所求点位于中线时，z=o；当位于中线左铡时，Z取负值；当位 于中线中线右侧时，Z取正值。(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10的 4 5 次代替。(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率 半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷 大，以 10 的 45 次代替；与圆曲线相接时，曲率半径

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