5800隧道超欠挖程序

正算主程序(ZS)：

Lb1 0：?S：?Z：Prog “PM-SJ”： Abs(S-O) → W：Prog \"SUB1\"： \"XS=\"：X◢\"YS=\"：Y◢F-90→F:S→ K:Prog“SQX”：“H=”：H◢Goto 0 反算主程序(FS)

Lb1 0: ?S：?X：？Y：Prog“PM-SJ”： X→ I： Y→ J：Prog \"SUB2\"： \"S=\"：O+W→S◢\"Z=\"：Z◢

S→ K:Prog“SQX” ：“H=”：H◢Goto 0 隧道3心圆放样主程序（SD-3XY）

正算子程序(SUB1)

1÷P→ 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)+90→ F： X+ZcosF→ X： Y+ZsinF→ Y 反算子程序(SUB2)

G-90→T： Abs((Y-V)cosT-(X-U)sin（T）) → W： 0→ Z：Lbl 0：Prog \"SUB1\"： T+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL → Z：ifAbsZ<1E-6：thenGoto1：ElssW+Z → W：Goto 0：IfEnd

Lbl 1： 0→ Z：Prog \"SUB1\"： (J-Y)÷sinF→ Z 子程序（平面线形数据库）PM-SJ

ifS ≥？（线元起点里程）AndS＜？（线元止点里程）：Then？→U（线元起点X坐标）：？ →V（线元起点Y坐标）：？ →O（线元起点里程）：？→G（线元起点方位角）：？ →H（线元长度）：？→P（线元起点曲率半径）：？→R（线元终点曲率半径）：？ →Q（线元左右偏标志：左负右正）：IfEnd 子程序（竖曲线计算公式）SQX