CASIO5800p 隧道多圆心超欠挖程序一，JIN YU(主程序 )LbI 4： “1ZS，2FS，3CQW ”？ NN=1=Goto 1：N=2= Goto 2：N=3= Goto 3LbI 1： “K=”？ S： “P=”？ Z：Prog “SJ- PM” ：Abs(S- O)W: Prog “SUB1-ZS” ： “X=” ：Locate 4，4，X： “Y=” ： Locate 4，4，Y：F- 90F：SK：Prog “SJ-GC” ： “H=” ： Locate 4，4，H： “W=” ： Locate 4，4，FGoto 4( 正算- 输入待求点里程K=,输入待求点偏距P=,显示待求点里程X=,Y=，显示待求点里程设计高H=,)LbI 2： “X=”？X： “Y=”？Y：Prog “SJ-PM” ：XI：YJ: Prog “SUB2-FS” ：O+W S： “K=” ： Locate 4，4，S： “P=” ：Locate 4，4，Z：SK：Prog “SJ-GC” ： “H= ” ： Locate 4，4，H：F- 90F： “W=” ：Locate 4，4，FGoto 4( 反算- 输入实测点X=,Y=, 显示实测点里程K=,显示实测点偏距P=,显示实测点的设计高程H=,)LbI 3： “X=”？ X： “Y=”？ Y：Prog “SJ-PM” ： XI：YJ:Prog “SUB2-FS” ：O+W S： “K=” ： Locate 4，4，S：“P=” ： Locate 4， 4，Z： SK： Prog “SJ-GC” ：“H=” ： Locate 4，4，HProg “SJ-CQW ” ： Goto 4（超欠挖 - 输入实测点X=,Y=，显示实测点里程K=，偏距 P=,实测点的设计高程H=,输入实测高程H1=，显示超欠挖值及第几圆心上 CQWY?=）二，SJ-PM(子程序名 -平面数据库 ) If S126222.88 （线元起点里程） :Then 1574.229 （线元起点X 坐标） U:7753.442（线元起点Y 坐标） V:126222.88 （线元起点里程） O: 201 12 50.29 ( 线元起点方位角) G:587.556（线元长度） H:2000( 线元起点半径 ) P:2000(线元终点半径 ) R:-1 （左 -1 ，右1，直0） Q:IfEnd: If S126810.446 （线元起点里程）: Then 1003.317 （线元起点 X坐标） U : 7623.758 （线元起点 Y坐标） V : 126810.446 （线元起点里程） O : 1842253.19 ( 线元起点方位角 ) G :150（线元长度） H : 2000(线元起点半径 ) P : 110（45）( 线元终点半径 ) R : -1 （左-1 ，右 1，直 0）Q :IfEnd: If S126960.446 （线元起点里程） : Then 853.517 （线元起点X坐标） U : 7616.04 （线元起点 Y坐标） V : 126960.446 （线元起 点 里 程 ） O: 182 13 58.25 ( 线 元 起 点方 位 角 ) G : 2197.024 （线元长度） H : 110（45）( 线元起点半径 )P: 1 10（45）( 线元终点半径 ) R:0（左-1 ，右 1，直 0）Q: IfEnd （注：有多个平面线行， 依照上面依依变更， 每多一个就增加一个 IfEnd ）三，SJ-GC(子程序名 -竖曲线数据库 ) If S5.62 : Then ( Abs(Z) 2+(F- H- 4.14 ) 2)- 2.96 W:“CQY1=” :W: IfEndIf F-H5.62 And F-H-1.02 : Then ( Abs(Z)+3.44) 2+（Abs（F -H -2.16 ） ）2- 6.93 W : “CQY2=” :W : IfEndIf F-H-1.02 : Then ( Abs(Z)2+( H-F+5.35 ) 2)- 7W:“CQY3=” :W: IfEnd（注：隧道断面有多个圆心，依照上面依依变更， 每多一个就增加一个）五，SUB1-ZS( 正算子程序 ) 1P C： (P-R) (2HPR) D： 180 E： 0.1739274226 A ： 0.3260725774 B： 0.0694318442 K：0.3300094782 L ： 1-L F ：1-K M：U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD) X：V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y： G+QEW(C+WD)+90F： X+Zcos （F） X： Y+Zsin （F） Y 六，SUB2-FS( 反算子程序 ) G-90T： Abs(Y-V)cos（T）-(X-U)sin（T）) W： 0 Z ：Lbl 0 ：Prog “SUB1-ZS“:T+QEW(C+WD) L：(J-Y)cos(L)-(I-X)sin(L) Z ：If Abs(Z) O: then G+(M-S)2 2R-LBH: Goto 5 :EIse If W O: Then G+(S-P)2 2R-LAH: Goto 5 :EIse If WO: Then G-(S-P) 2 2R-LAH: Goto 5:IfEnd :IfEndLbl 5 HH: Return