有关路基和隧道的CASIO 5800P 万能曲线 计算程序第二次修改有关路基和隧道的CASIO 5800P 万能曲线 计算程序，可以正、反坐标，放边坡和隧道圆心，计算开挖半径曲线任意里程中边桩坐标正反算CASIO fx-5800P计算器程序一、程序功能 本程序由一个主程序ZHUCHENXU和几个子程序正算子程序SUB1、反算子程序SUB2、数据库SUB3、算方位角程序FA、使用方位角算坐标NE、边坡放样程序BIANPO、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序增加变量22DimZ1.主程序ZHUCHENXU1.SZ XY，2.XY SZ，3.SDYX，4.BIANPO NLbl 1”ZHUANGHAO”S Prog SUB3 N2Goto 2 AbsS-OW”BIANZHU”ZProg SUB1 XS”XXYS”YYFS”F-90 FFDMSProg FAGoto 1Lbl 2”CX”X XI”CY”Y YJ”DMG”Z7Prog SUB2 SOW SZZZIf N3Then Prog”SDYX” IfEnd If N4Then Prog”BIANPO”IfEndGoto 22.正算子程序SUB10.1739274226 Z1 0.3260725774B 0.0694318442K 0.3300094782L 1-L F 1-KM UWZ1cosGQEKWCKWDBcosGQELWCLWDBcosGQEFW CFWDZ1cosGQEMWCMWD X VWZ1sinGQEKWCKWDBsinGQELWCLWDBsinGQEFWCFWDZ1sinGQEMWCMWD Y GQEWCWD90F XZcosFX YZsinFY3.反算子程序SUB2G-90 Z2 AbsY-VcosZ2-X-UsinZ2 W 0ZLbl 0Prog SUB1 Z2QEWCWD L J-YcosL-I-XsinLZIf AbsZ1E-6Then Goto1Else WZWGoto 0 IfEndLbl 1 0ZProg SUB1 J-YsinFZ4.数据库SUB3If S226100Then ClsStop IfEndIf S226255.833Then 226100O 99037.9736U 4282.3590V 201.3266304G 1045P 1045R 253.543H 0Q Goto 1IfEndIf S236005.651Then ClsStop IfEndLbl 1 1PCP-R2HPR D180E5.算方位角程序FALbI0“XC” A “YC” T XY0J POI（X-A，Y-T）I“BC”IIf J0 Then 360JJElseJJ IfEnd “FW”JDMS Goto06.使用方位角算坐标NELbI0“X” X “Y” Y “L” L“F0”F LCos（F）XN “N”NLSin（F）YE “E”EGoto07.边坡放样程序BIANPOProg TCD Prog BHD IF S226255.731 then 232.257 Z17225844.269 Z18-0.69Z1911789.745 Z22 Goto 3 IfEndIF S226351.25 then 230.837 Z17226050 Z182.8Z191045 Z22 Goto 3 IfEndIF S226688.75 then 239.272 Z17226351.25 Z182.8Z19-45000 Z22 Goto 3 IfEndIF S227318 then 243.997 Z17226520 Z182.05Z19 1045 Z22 Goto 3 IfEndIF S227982 then 260.356 Z17227318 Z182.05Z19-16000 Z22 Goto 3 IfEndLbl 3Z17S- Z18 Z19/100 S- Z182/2/ Z22 13 Z20 0.02 Z4 “QPDGD”Z4 Z7-Z4 Z11If Z110 Then Abs（Z11 ）Z11 “T”Z11 13 Z20 Z21 Z3 8 Z5 0 Z6 1.5 Z8 1.75 Z9Else“W”Z11 15.6 Z20 Z21 Z3 10 Z5 2 Z6 1.0 Z8 1.25 Z9IfEndZ11Z5 Z12If Z121 Then Z8Z11 Z13Else Z8Z5Z9Z5（Z12-1）Z13IfEnd AbsZ-（Z13Z6 Int Z12Z3）Z14“BPC-J” Z14 说明 只适用二级边坡。Z14“BPC-J” 边坡超欠挖宽度（表超，-表欠）8.隧道圆心放样程序（SDYX）IF S229000THEN 243.9970.0205S-226520-S-2273182/2/160001.503 Z10“NGC”Z10 ELSE 286.385-0.023S-230500- S-230593.7532/2/1650001.503Z10“YLJ”Z10 IfEndZ10- Z7 Z15“SG,-JD”Z15 （Z152ABSZ-6.82）Z16 “R”Z16 9.TCD（停车带）IF S227020 then O Z20reture 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 IfEnd IF S227450 then S-227300 1.85/300 Z21 Else 0.925Z21 IfEnd三、使用说明1、规定 1 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q-1；当线元往右偏时，Q1；当线元为直线时，Q0。
2 当所求点位于中线时，Z0；当位于中线左铡时，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、盖板涵斜交操作说明（以左前点为例）先把盖板涵斜交角度减后再盖板涵左长度*，盖板涵左长度*，盖板涵身宽度/利用YQXJS程序计算此桩号正交时宽度的坐标值，及法线方位角。再转到NE程序，，，三项不要修改，只改/（计算后点前为）4、SUB3数据库说明S待求桩号，O曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点切线方位角，P曲线起点半径，R曲线终点半径，H曲线长度，Q转向（直线0，左转-1，右转1）