隧道超欠挖程序

隧道超欠挖测量程序

SDCX---子程序

6.625→R: 5.5→P: 0.2→A: 0.715→U: 1.577→V:0.723→I↙

If M≥H+5.79: Then √(Z+(M-H-U))-R-A→W: IfEnd↙

If M＜H+5.79: Then √((Z-I)2+(M-H-V)2)-P-A→W: IfEnd

2

2

SDCQW---主程序

Lb1 0: ?X：？Y：Prog“PMSJ”： X→ I： Y→ J：Prog \"XY2\"： O+W→K:\"Z=\"：Z◢ Prog“SQX” ：“H=”：H◢ ?M:Prog\"SDCX\"↙ “W=”：W◢ Goto 0↙

M----实测高程

PMSJ---子程序

Lbl 1 ： IF S<*** （线元终点里程） :Then*** → G （线元起点方位角） :*** → O （线元起点里程） :*** → U （线元起点 X ） :*** → V （线元起点 Y ） :*** → P （线元起点曲率半径） :*** → R （线元终点曲率半径） : *** → H （线元起点至终点长度）： 0 或 1 、 -1 → Q ： Return:IfEnd ↙

Lbl 1 ： IF S<*** （线元终点里程） :Then*** → G

（线元起点方位角） :*** → O （线元起点里程） :*** → U （线元起点 X ） :*** → V （线元起点 Y ） :*** → P （线元起点曲率半径） :*** → R （线元终点曲率半径） : *** → H （线元起点至终点长度）： 0 或 1 、 -1 → Q ： Return:IfEnd

XY1———正算子程序

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

XY2——反算子程序

G-90→T： Abs((Y-V)cosT-(X-U)sin（T）) → W： 0→ Z↙

Lbl 0：Prog \"XY1\"： T+QEW(C+WD) →L：

(J-Y)cosL-(I-X)sinL → Z：if AbsZ<10-6：then Goto1：Else W+Z → W：Goto 0：IfEnd↙ Lbl 1： 0→ Z：Prog \"XY1\"： (J-Y)÷sinF→ Z↙

SQX——子程序竖曲线

Lb1 1↙

If k<67549.755 AND K≥66894.3 :Then -0.00052→A : 0→B : 67394.3→S : 67.37→G : 600000→R : Goto 2 : IfEnd↙

If k<68708.391 AND K≥67549.755 :Then -0.0048→A : -0.00052→B : 68494.3→S :66.8→G : 100000→R : Goto 2 : IfEnd↙

If k<本段竖曲线终点里程 AND K≥前一竖曲线终点里程 :Then -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R :

Goto 2 : IfEnd↙ „„„

依次类推，计算原始数据完成输入，坡度换算成小数。 Lb1 2↙

S-K→L ： A-B→W : Abs（R*W/2）→T : S-T→C : S+T→D ↙

If K≤C : Then G-L*B →H : Else If K≤S : Then Goto3 :

Else If K≤D : Then Goto4 : IfEnd↙ Lb1 3↙

If W>0 : Then G+(C-K)^ 2/2/R-L*B→H : Else If W<0 : Then G-(C-K) ^2/2/R-L*B→H : IfEnd↙ Lb1 4↙

If W>0 : Then G+(K-D) ^2/2/R-L*A→H : Else If W<0 : Then G-(K-D)^ 2/2/R-L*A→H : IfEnd↙