5800万能程序-平曲线+竖曲线+隧道超欠挖

5800万能程序，平曲线+竖曲线+隧道超欠挖1. 主程序(TYQXJS)Lbl 4：1SZ = XY， 2XY = SZ？N：？S：Prog“SUB0”1PC: (P-R)(2HPR) D:180E:N=1 = Goto1： Goto2：Lbl 1:”DZ”? Z： Abs(S-O) W：Prog SUB1： XS：XYS：YProg “SQX”（竖曲线的程序名字）F-90F： “FS=”：FDMSProg “CQW”（隧道超欠挖的程序名字）Goto4Lbl 2：”X”？X： “Y”？Y：XI：YJ： Prog“SUB2”：O+WS：“S”：S“Z”：ZProg“CQW”Goto42. 正算子程序(SUB1)0.1739274226A： 0.3260725774B： 0.0694318442K： 0.3300094782L： 1-LF： 1-KMG+QEKW(C+KWD)Z1G+QELW(C+LWD)Z2G+QEFW(C+FWD)Z3G+QEMW(C+MWD)Z4Acos(Z1)XX+Bcos(Z2)XX+Bcos(Z3)XX+Acos(Z4)XU+WXXAsin(Z1)YY+Bsin(Z2)YY+Bsin(Z3)YY+Asin(Z4)YV+WYYG+QEW(C+WD)+90FX+Zcos(F)XY+Zsin(F)Y2. 反算子程序(SUB2)G-90T： (Y-V)cos(T)-(X-U)sin(T) W：Abs(W) W:0ZLbl 0：Prog SUB1T+QEW(C+WD) L： (J-Y)cos（L）-(I-X)sin（L）Z：IF Abs（Z）0.000001：Then0Z:Prog SUB1(J-Y)sin（F）ZElse W+ZWGoto0:IfEndSUB0 数据库子程序Goto1 Lbl 1：IF S*（线元终点里程）:Then*G（线元起点方位角）:*O（线元起点里程）:*U（线元起点X）:*V（线元起点Y）:*P（线元起点曲率半径）:*R（线元终点曲率半径）: *H（线元起点至终点长度）：0或1、-1Q：Return:IfEndLbl 1：IF S XY2. XY = SZN ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。S ？正算时所求点的里程，反算时为所求点的近似里程，反算时输入的近似里程不能夸线元，若夸线元的话，需进行第二次反算，并以第一次的结果做为近似里程，否则反算的里程及边距不对， Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)X ？反算时所求点的X坐标Y ？反算时所求点的Y坐标显示部分：XS= 正算时，计算得出的所求点的X坐标YS= 正算时，计算得出的所求点的Y坐标FS= 正算时，所求点对应的中线点的切线方位角S= 反算时，计算得出的所求点的里程Z= 反算时，计算得出的所求点的边距竖曲线SQX（程序名）If S边坡终点And S边坡起点：Then大里程坡度A：小里程坡度B：边坡点里程O：边坡点高度G：半径R：Prog“Z-SQX”:IfEnd有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断，子程序不用变动。Z-SQX（子程序名）O-SL:A-BW:Abs(R*W2) T:O-TM:O+TPIf SM:ThenG-L*BH:Goto5:Else If SO:Then Goto3:Else If SP:Then Goto4:IfEnd: IfEnd: IfEndLbi3If W0：Then G+(M-S)22R-L*BH:Goto5: Else If W0: Then G-(M-S)22R-L*BH:Goto5: IfEnd: IfEndLbi4If W0：Then G+( S-P)22R-L