2013.09.20程序5800(未审核)

桥二项目部坐标正反算及隧道超欠挖程序
(2013.09.20)
Q2XMB(主程序)（桥二项目部）
Lbl 6: “1→ZS,2→FS,3→JK20,4→JK10,5→JK0”?N
“DK=”?S:Prog“SJK-QXYS”（数据库-曲线要素）
1÷P→ C： (P-R)÷(2HPR) → D： 180÷π→ E: N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3: N=4=>Goto 4: N=5=>Goto 5:
Lbl 1: “Z=”?Z：Abs(S-O) → W：Prog “SUB1-ZS”：“X=”：Locate4,4,X:“Y=”：Locate4,4,Y ◢
Goto 6
O：字母0：数字
Lbl 2:“X=”?X：“Y=”？Y:X→I： Y→J：Prog "SUB2-FS"：O+W→S: “D K="：Locate4,4, S：“Z="：Locate4,4, Z◢
Goto 6
Lbl 3:“X=”?X：“Y=”？Y: X→I： Y→J：Prog "SUB2-FS"：O+W→S: “D K="：Locate4,4, S：“Z="：Locate4,4, Z:Prog“SJK-GC”：“H=”：Locate4,4, H◢
Prog“SJK-JK20”◢（数据库-加宽20）
Goto6
Lbl 4:“X=”?X：“Y=”？Y:X→I： Y→J：Prog " SUB2-FS "：O+W→S: “D K="：Locate4,4, S：“Z="：Locate4,4, Z:Prog“SJK-GC”：“H=”：Locate4,4, H◢
Prog“SJK-JK10”◢（数据库-加宽10）;
Goto6
Lbl 5:“X=”?X：“Y=”？Y:X→I： Y→J：Prog " SUB2-FS "：O+W→S: “D K="：Locate4,4, S：“Z="：Locate4,4, Z:Prog“SJK-GC”：“H=”：Locate4,4, H◢
Prog“SJK-JK0”◢（数据库-加宽0）
Goto6
SJK-QXYS（子程序名-平面线形数据库）
Goto 1
Lb1 1： If S <264351.030:Then 2779470.341→U：490687.3981→V：263044.952→O：89.344994440（89°20′41.98″）→G：1306.078 →H：1×1045→P：1×1045→R：0→Q：Return：IfEnd
If S <264511.030:Then 2779485.271→U：491993.3912→V：264351.030→O：89.344994440（89°20′41.98″）→G：160 →H：1×1045→P：3500→R：1→Q：Return：IfEnd
If S <266540.109:Then 2779485.881→U：492153.3863→V：264511.030→O：90.654611110（90°39′16.60″）→G：2029.079 →H：3500→P：3500→R：1→Q：Return：IfEnd
If S <266700.109:Then 2778892.138→U：494064.0410→V：266540.109→O：123.87107780（123°52′15.88″）→G：160 →H：3500→P：1×1045→R：1→Q：Return：IfEnd
If S <267106.210:Then 2778800.954→U：494195.5108→V：266700.109→O：125.18069440（125°10′50.50″）→G：406.101 →H：1×1045→P：1×1045→R： 0→Q：Return：IfEnd
If S <267296.210:Then 2778566.976→U：494527.433→V：267106.21→O：125.18069440 （125°10′50.50″）→G：190 →H：1×1045→P：1600→R：-1→Q：Return：IfEnd
If S <267797.58:Then 2778460.618→U：494684.8388→V：267296.21→O：121.77875830（121°46′43.53″）→G：501.370 →H：1600→P：1600→R：-1→Q：Return：IfEnd
If S <267987.58:Then 2778267.109→U：495145.1387→V：267797.58→O：103.82198890（103°49′29.16″）→G：190 →H：1600→P：1×1045→R：-1→Q：Return：IfEnd
If S <270751.75:Then 2778229.050→U：495331.2552→V：267987.58→O：100.42291670（100°25′22.5″）→G：2764.17 →H：1×1045→P：1×1045→R： 0→Q：Return：IfEnd
If S <270801.75:Then 2777728.977→U：498049.8142→V：270751.75→O：100.42291670（100°25′22.5″）→G：50 →H：1×1045→P：3000→R：1→Q：Return：IfEnd
If S <270985.08:Then 2777719.795→U：498098.9637→V：270801.75→O：100.90038060（100°54′01.37″）→G：183.33 →H：3000→P：3000→R：1→Q：Return：IfEnd
If S <271035.08:Then 2777679.650→U：498277.8150→V：270985.08→O：104.40172500（104°24′06.21″）→G：50 →H：3000→P：1×1045→R：1→Q：Return：IfEnd
If S <271581.40:Then 2777666.947→U：498326.1638→V：271035.08→O：104.87902780（104°52′44.5″）→G：546.32 →H：1×1045→P：1×1045→R： 0→Q：Return：IfEnd
If S <271641.40:Then 2777526.664→U：498854.1658→V：271581.40→O：104.87902780（104°52′44.5″）→G：60 →H：1×1045→P：1850→R：-1→Q：Return：IfEnd
If S <271995.04:Then 2777511.571→U：498912.2358→V：271641.40→O：103.94990830（103°56′59.67″）→G：353.64 →H：1850→P：1850→R：-1→Q：Return：IfEnd
If S <272055.04:Then 2777459.54→U：499261.4830→V：271995.04→O：92.997433330
（92°59′50.76″）→G：60 →H：1850→P：1×1045→R：-1→Q：Return：IfEnd
If S <272359.68:Then 2777457.051→U：499321.4212→V：272055.04→O：92.068472220（92°04′06.5″）→G：304.64 →H：1×1045→P：1×1045→R： 0→Q：Return：IfEnd
If S <272419.68:Then 2777446.055→U：499625.8627→V：272359.68→O：92.08472220（92°04′06.5″）→G：60 →H：1×1045→P：1700→R： 1→Q：Return：IfEnd
If S <272501.25:Then 2777443.537→U：499685.8090→V：272419.68→O：93.079575000（93°04′46.47″）→G：81.57 →H：1700→P：1700→R：1→Q：Return：IfEnd
If S <272561.25:Then 2777437.203→U：499767.1248→V：272501.25→O：95.828761110（95°49′43.54″）→G：60 →H：1700→P：1×1045→R：1→Q：Return：IfEnd
If S <272757.86:Then 2777430.408→U：499826.7394→V：272561.25→O：96.839583330（96°50′22.5″）→G：196.61 →H：1×1045→P：1×1045→R：0→Q：Return：IfEnd
增加线形数据库！
SJK-GC (子程序名-高程数据库)
If S<变坡终点里程267100And S≥变坡起点里程253700：Then大里程坡度-0.0128→A：小里程坡度-0.0128→B：变坡点里程265338→O：变坡点高度422.4486→G：半径1×1045→R：
Prog“SUB3-GC”:IfEnd
If S<变坡终点里程268000And S≥变坡起点里程267100：Then大里程坡度-0.0126→A：小里程坡度-0.0126→B：变坡点里程267200→O：变坡点高度398.6350→G：半径1×1045→R：
Prog“SUB3-GC”:IfEnd
If S<变坡终点里程269100And S≥变坡起点里程268000：Then大里程坡度-0.01152→A：小里程坡度-0.01152→B：变坡点里程268100→O：变坡点高度387.4030→G：半径1×1045→R：
Prog“SUB3-GC”:IfEnd
If S<变坡终点里程270000And S≥变坡起点里程269100：Then大里程坡度-0.013→A：小里程坡度-0.013→B：变坡点里程269200→O：变坡点高度374.583→G：半径1×1045→R：
Prog“SUB3-GC”:IfEnd
增加高程数据库！
SJK-JK20(子程序名-隧道数据库)
加宽20cm二衬内弧（台车放大5cm）
“H1=”?F:Z-2.30→Z
If F-H≥5.16: Then √ ((Z)2+(F-H-2.06)2 )-6.2→W: “CQ→O1=”:W: IfEnd(显示超欠和第1圆心)
If F-H≥0.2849 And F-H<5.16: Then √ ((Abs (Z)-0.1039)2+(F-H-2.12)2 )-6.08→W: “CQ →O2=”:W: IfEnd(显示超欠和第2圆心)
If F-H≥-1.2793 And F-H<0.2849: Then √ ((Abs (Z)-3.517)2+( H+1.0395-F)2 )-2.5→W: “CQ →O3=”:W: IfEnd(显示超欠和第3圆心)
SJK-JK10(子程序名-隧道数据库)
加宽10cm二衬内弧（台车放大5cm）
“H1=”?F:Z-2.25→Z
If F-H≥5.13: Then √ ((Z)2+(F-H-2.06)2 )-6.14→W: “CQ→O1=”:W: IfEnd(显示超欠和第1圆心)
If F-H≥0.2549 And F-H<5.13: Then √ ((Abs (Z)-0.052)2+(F-H-2.09)2 )-6.08→W: “CQ→O2=”:W: IfEnd(显示超欠和第2圆心)
If F-H≥-1.3093And F-H<0.2549: Then √ ((Abs (Z)-3.465)2+( H+1.0095-F)2 )-2.5→W: “CQ →O3=”:W: IfEnd(显示超欠和第3圆心)
SJK-JK0(子程序名-隧道数据库)
加宽0cm二衬内弧（台车放大5cm）
“H1=”?F:Z-2.2→Z
If F-H≥0.2249: Then √ ((Z)2+(F-H-2.06)2 )-6.08→W: “CQ→O1=”:W: IfEnd(显示超欠和第1圆心)
If F-H≥-1.3393And F-H<0.2249: Then √ ((Abs (Z)-3.413)2+( H+0.9795-F)2 )-2.5→W: “CQ →O2=”:W: IfEnd(显示超欠和第2圆心)
增加断面数据库！
SUB1-ZS(正算子程序)
0.1739274226→P： 0.3260725774→R： 0.0694318442→K： 0.3300094782→L： 1-L→F：
U+W(Pcos(G+QEKW(C+KWD))+Rcos(G+QELW(C+LWD))+Rcos(G+QEFW(C+FWD))+Pcos(G+QE（1-K）W(C+（1-K）WD)))→ X：
V+W(Psin(G+QEKW(C+KWD))+Rsin(G+QELW(C+LWD))+Rsin(G+QEFW(C+FWD))+Psin(G+QE（1-K）W(C+（1-K）WD)))→ Y：G+QEW(C+WD)+90→ F： X+Zcos(F)→X： Y+Zsin(F)→Y
SUB2-FS(反算子程序)
G-90→T： Abs((Y-V)cos(T)-(X-U)sin（T）)→W： 0→Z：Lbl 0：Prog "SUB1-ZS1"： T+QEW(C+WD)→L： (J-Y)cos(L)-(I-X)sin(L)→ Z：If Abs(Z)<1E-6(注：此处1E-6可输入0.000001)：then 0→Z：Prog "SUB1-ZS1"： (J-Y)÷sin(F)→ Z Goto1：Else W+Z→ W：Goto 0：IfEnd
SUB3-GC(高程子程序)
O-S→L:A-B→W:Abs(R*W÷2) →T:O-T→M:O+T→P
If S≤M:ThenG-L*B→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Goto4:IfEnd: IfEnd: IfEnd
Lbi3
If W＞O：Then G+(M-S)2÷2÷R-L*B→H:Goto5: Else If W＜O: Then
G-(M-S)2÷2÷R-L*B→H:Goto5: IfEnd: IfEnd
Lbi4
If W＞O：Then G+( S-P)2÷2÷R-L*A→H:Goto5: Else If W＜O: Then
G-( S-P)2÷2÷R-L*A→H:Goto5: IfEnd: IfEnd
Lbi5
H→H:Return。