隧道超欠挖5800程序

Lbl6： 1÷P→C：（P-R）÷（2HPR）→D：180÷Π→E：

″X″?I: ″Y″?J: prog″FS″←

″FSZH=″:O+W→K◢

″FSHL=″:Z◢

Abs(Z+5.375) →L◢…(测量中线偏距转为隧道中线偏距)

CQW（隧道超欠挖程序）

prog″SJK″：

Lbl7：: prog″NGD″

H+1.62→A: H+13.498 →B:…………圆心高程

″ZGC″?Z: (Z-A)/Abs(L-2.47)→I：………变化点与圆心2连线斜率:

If I＜tg（-17.621°）: 

Then″R=″: √((L2+(Z-B)2)  -15.4→R：         （仰拱计算式）

Eles ifW≥tg （-17.621°）And W＜tg （0°）:

Then″R=″:√((L+2.47)2+(Z-A)2)  -8.65→R：         （圆O2计算式）

Eles If W≥tg(0°):

Then″R=″:√(L2+(Z-A)2)-6.18→R:                  （圆O1计算式）

              fEnd :ifEnd:fEnd

SJK（数据库）

Lbl0:″K″?K:

If K≤116854.457 And K＞116574.857: Then Goto1:

Else If K≤117442.175 And K＞116854.457: Then Goto2:

Else If K≤117722.175 And K＞117442.175: Then Goto3:

Else If K≤118794.005 And K＞117722.175: Then Goto4:

Else If K≤120268.057 And K＞118794.005: Then Goto5:

IfEnd:IfEnd:IfEnd:IfEnd:IfEnd←

Lbl1: 5783.6258→U: 3545.4838→V: 116574.857→O:152°21′31.51″→G:280→H:10E45→P: 1500→R:-1→Q: Goto 6：Goto 7←

Lbl2: 5539.8365→U: 3682.9846→V: 116854.457→O:147°00′40.13″→G:587.719→H:1500→P: 1500→R:-1→Q: Goto 6：Goto 7←

Lbl3: 5121.2813→U: 4090.2042→V: 117442.175→O:124°33′43.02″→G:280→H:6000→P: 10E45→R:-1→Q: Goto 6：Goto 7←

Lbl4: 4977.1403→U: 4330.1252→V: 117722.175→O:119°12′51.″→G:1071.83→H: 10E45→P: 10E45→R:0→Q:Goto 6：Goto 7←

Lbl5:4454.0034→U:5265.6185→V:118794.005→O:119°12′51.″→G:205.995→H:4500→P: 4500→R:0→Q: Goto 6：Goto 7←

Lbl6： 1÷P→C：（P-R）÷（2HPR）→D：180÷Π→E：

″X″?I: ″Y″?J: prog″FS″←

″FSZH=″:O+W→K◢

″FSHL=″:Z◢

Abs(Z+5.375) →L◢…(测量中线偏距转为隧道中线偏距)

（测量中线在线路前进方向右侧时为+5.375,否则为-5.375）

ZS（正算子程序）

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

FS（正算子程序）

G-90→T:Abs((Y-V) CosT-(X-U) SinT) →W:0→Z←

Lbl0: prog″ZS″:T+QEW(C+WD) →L:(J-Y) CosL-(I-X) SinL→Z:IfAbsZ<0.000001:ThenGoto1:ElseW+Z→W: IfEnd :Goto0←

Lbl1: 0→Z :prog″ZS″:(J-Y) ÷SinF→Z

NGD(含竖曲线的内轨面子程序)

Lbl1: ″K″?K：

If K≥117217.5 And K≤117420:Then 395.3927+(K-217.5)×0.0295-(K-217.5)^2/36000→H:

Else If K＞117420 And K≤117622.5:Then 402.785+(K-622.5)×0.007-(K-622.5)^2/36000→H:

Else If K＞117622.5 :Then 402.78+(K-622.5)×0.007→H:

IfEnd:IfEnd:IfEnd