平曲線+豎曲線+隧道超挖.doc

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 數(shù)據(jù)庫子程序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有多個豎曲線，依照上面的依次變更，每多一個，就增加一個。每次只需要修改以上的數(shù)據(jù)或增加一個判斷，子程序不用變動。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*A