5800 隧道超欠挖程序(超级快速正确版)

3.GL-LUNKUO 超欠挖主程序（最快版……里程精度要求高）

Lbl 0

?P:P→L:Prog“GLZUOBIAO-1”↙

?X:?Y:?C↙

Pol ((X-S),(Y-T)):If V>180:Then V→V:Goto 1:Else V+180→V:Goto 1↙

Lbl 1↙

“L=”:I×cos(J-V)+L→L◢

Prog“GLZUOBIAO-1”↙

Pol ((X-S),(Y-T)):If V>180:Then V→V:Goto 2: Else V+180→V:Goto 2↙

Lbl 2↙

“FAJU=”:I×s in(J-V)→T◢

“LICHENG=”:I×cos(J-V)+L→L◢

Goto 3↙

Lbl 3↙

If L<1156000:Then Abs(7.725-T)→T: Goto V:Else Abs(7.725-(-T))→T: Goto V:IfEnd↙

Lbl V↙

If L≤156300: Then Prog“GC1”: Goto A: Else Goto Z: IfEnd↙

Lbl Z↙

If L≤160000: Then Prog“GC3”: Goto A: Else Pros“GC2”:Goto A: IfEnd↙Lbl A↙

If C≥H+1.55: Then Goto B: Else Goto C: IfEnd↙

Lbl B↙

If tan- 1((C-H+0.43)÷T)-45≤0: Then Goto D: Else Goto E: IfEnd↙

Lbl D↙

“GBR=”:√((C-H-1.55)2+(T-1.98)2→R◢ ( √为开方符号)

Goto 0↙

Lbl E↙

“GZR=”:√((C-H+0.43)2+T2 )→R◢

Goto 0↙

Lbl C↙

If tan- 1(Abs(H+1.155-C) ÷(T-1.98))≤-19.80138≤0: Then Goto F: Else Goto G: IfEnd↙

Lbl F↙

“BQR=” : √((H+1.55-C) 2+(T-1.98)2 ) →R◢

Goto 0↙

Lbl G↙

If tan- 1(T÷(H+23-C))-15.13444≤0: Then Goto H: Else Goto I: IfEnd↙

Lbl H↙

“YGR=”: √(T2 +(H+23-C) 2→R◢

Goto 0↙

Lbl I↙

T-6.2139→M◢

“R=”:√(M2 +(H-C+0.0255) 2)→R◢

Goto 0↙

CQW超欠挖主程序（精简版……里程精度相对放宽）

Lbl 0:Cls:Fix 3:Deg:“L”?L:“X=”?T:“Y=”?S:“H=”?A:Prog“GL-FS”↙“LICHENG”:L◢

“PIANJU”:J◢

Goto 1↙

Lbl 1:If L<1156800:Then Abs(8.975-J) →J:Goto 2: Else Abs(8.975-(-J)) →J:Goto 2: IfEnd↙

Lbl 2:L→K:Prog“GCSJK”:Goto 3↙

Lbl 3:If A≥H+1.55:Then Goto 4:Else Goto7: IfEnd↙

Lbl 4:If tan- 1((A-H+1.68) ÷J)-45≦0: Then Goto 5:Else Goto 6: IfEnd↙Lbl 5:“R=”:√((A-1.55)2+(J-3.23)2→R◢ ( √为开方符号)

Goto 0↙

Lbl 6:“R=”:√((A-H+1.68)2+J2 )→R◢

Goto 0↙

Lbl 7: If tan- 1(Abs(H+1.55-A)÷(J-3.23))-20.0944≦0: Then Goto 8:Else Goto 9: IfEnd↙

Lbl 8:“R=”:√((H+1.55-A)2+(J-3.23)2→R◢

Goto 0↙

Lbl 9: If tan- 1(J÷(H+27.622-A))-15.1344≦0: Then Goto 10:Else Goto 11: IfEnd↙

Lbl 10:“R=”:√(J2+(H+27.622-A)2 )→R◢

Goto 0↙

Lbl 11:J-6.2139→M◢

“R=”:√(M2+(H-A+0.0255)2 )→R◢

Goto 0↙

GC1 （高程1？）

IF L≦147221:Then 52.403→A:-0.005→I:24000→R:147221→O (非零，为大写o):146997.56→Q:Goto 1:Else Goto A:IfEnd↙

LbI 1↙

If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙

LbI A↙

IF L≦147444.44:Then 52.403→A:-0.02362→I:24000→R:147221→O (非零，为大写:147444.44→Q:1→K:Goto 0:Else Goto B:IfEnd↙

LbI B↙

IF L≦148000:Then 70.803→A:-0.02362→I:160000→R:148000→O (非零，为大写o):147574.4→Q:Goto 2:Else Goto C:IfEnd↙

LbI 2↙

If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙

LbI C↙

IF L≦148425.6:Then 70.803→A:-0.0183→I:160000→R:148000→O (非零，为大写:148425.6→Q:-1→K:Goto 0:Else Goto D:IfEnd↙

LbI D↙

IF L≦149000:Then 89.103→A:-0.0183→I:50000→R:149000→O (非零，为大写o):148707.5→Q:Goto 3:Else Goto E:IfEnd↙

LbI 3↙

If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙

LbI E↙

IF L≦149292.5:Then 89.103→A:0.03→I:50000→R:149000→O(非零，为大写:149295.5→Q:1→K:Goto 0:Else Goto F:IfEnd↙

LbI F↙

IF L≦149900:Then 116.103→A:-0.03→I:22086.957→R:149900→O (非零，为大写o):149646→Q:Goto 4:Else Goto G:IfEnd↙

LbI 4↙

If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙

LbI G↙

IF L≦150154:Then 116.103→A:0.007→I:22086.957→R:149000→O (非零，为大写:150154→Q:-1→K:Goto 0:Else Goto H:IfEnd↙

LbI H↙

IF L≦150450:Then 119.953→A:-0.007→I:16000→R:150450→O (非零，为大写o):150154→Q: -1→K:Goto 0:Else Goto I:IfEnd↙

LbI I↙

IF L≦150746:Then 119.953→A:-0.03→I:16000→R:150450→O (非零，为大写o):150746→Q: -1→K:Goto 0:Else Goto J:IfEnd↙

LbI J↙

IF L≦151200:Then 97.453→A:-0.03→I:27000→R:151200→O(非零，为大写o):150961.05→Q: Goto 5:Else Goto K:IfEnd↙

LbI 5↙

If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙

LbI K↙

IF L≦151438.95:Then 97.453→A:-0.0123→I:27000→R:151200→O (非零，为大写o):151438.95→Q: 1→K: Goto 0:Else Goto L:IfEnd↙

LbI L↙

IF L≦151800:Then 90.074→A:0.0123→I:17070.922→R:151800→O (非零，为大写o):151438.95→Q: 1→K: Goto 0:Else Goto M:IfEnd↙

LbI M↙

IF L≦152161.05:Then 90.074→A:0.03→I:17070.922→R:151800→O (非零，为大写o):152161.05→Q: 1→K: Goto 0:Else Goto N:IfEnd↙

LbI N↙

IF L≦152650:Then 115.574→A:-0.03→I:12000→R:152650→O (非零，为大写o):152338→Q: Goto 6:Else Goto O:IfEnd↙

LbI 6↙

If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙

LbI O↙

IF L≦152962:Then 115.574→A:-0.022→I:12000→R:152650→O (非零，为大写o):152962→Q: -1→K:Goto 0:Else Goto P:IfEnd↙

LbI P↙

IF L≦153350:Then 100.174→A: 0.022→I:18000→R:153350→O (非零，为大写o):153101.15→Q: Goto 7:Else Goto Q:IfEnd↙

LbI 7↙

If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙

LbI Q↙

IF L≦153598.85:Then 100.174→A: 0.00565→I:18000→R:153350→O (非零，为大写o):153598.85→Q: 1→K:Goto 0:Else Goto R:IfEnd↙

LbI R↙

IF L≦155500:Then 112.329→A: -0.00565→I:19000→R:155500→O (非零，为大写o):15587.675→Q: Goto 8:Else Goto S:IfEnd↙

LbI 8↙

If L<0:Then 0→K: Goto 0: Else 1→K: Goto 0:IfEnd↙

LbI S↙

IF L≦155712.325:Then 112.329→A: 0.028→I:19000→R:155500→O (非零，为大写o):155712.325→Q: 1→K:Goto 0:IfEnd↙

LbI 0↙

A+I×Abs(L- O)+K×(L-Q) 2÷2÷R→H↙

GC2 （高程2？）

IF L≦1156300:Then 134.729→A:-0.028→I:140000→R:1156300→O (非零，为大写o):1155843.6→Q:Goto 9: Else Goto A:IfEnd↙

LbI 9↙

If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙

LbI A↙

IF L≦1156756.4:Then 134.729→A:-0.02148→I:140000→R:1156300→O (非零，为大写o):1156756.4→Q: -1→K :Goto 0: Else Goto B:IfEnd↙

LbI B↙

IF L≦1157270:Then 155.569→A:-0.02148→I:25000→R:157270→O (非零，为大

写o):1156958.625→Q: Goto 2: Else Goto C:IfEnd↙

LbI 2↙

If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙

LbI C↙

IF L≦1157581.375:Then 155.569→A:-0.00343→I:25000→R:1157270→O (非零，为大写o):1157581.375→Q: -1→K :Goto 0: Else Goto D:IfEnd↙

LbI D↙

IF L≦1159800:Then 146.895→A: 0.00343→I:60000→R:115900→O (非零，为大写o):1159122.9→Q: Goto 3: IfEnd↙

LbI 3↙

If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙

LbI 0↙

A+I×Abs(L- O)+K×(L-Q) 2÷2÷R→H↙

GC3 （高程3？）

IF L≦156300:Then 134.729→A:-0.028→I:110000→R:156300→O (非零，为大写o):1155830.85→Q:Goto 1: Else Goto A:IfEnd↙

LbI 1↙

If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙

LbI A↙

IF L≦156769.15:Then 134.729→A:0.01947→I:110000→R:156300→O (非零，为大写o):156769.15→Q: -1→K :Goto 0: Else Goto B:IfEnd↙

LbI B↙

IF L≦157300:Then 154.199→A:-0.01947→I:25000→R:157300→O (非零，为大写o):157010.25→Q: Goto 2: Else Goto C:IfEnd↙

LbI 2↙

If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙

LbI C↙

IF L≦157589.75:Then 154.199→A:-0.00371→I:25000→R:157300→O (非零，为大写o):157589.75→Q: -1→K :Goto 0: Else Goto D:IfEnd↙

LbI D↙

IF L≦159720:Then 145.215→A:0.00371→I:62000→R:159720→O (非零，为大写o):159091.01→Q: Goto 4: Else Goto E:IfEnd↙

LbI 4↙

If L<0:Then 0→K: Goto 0: Else -1→K: Goto 0:IfEnd↙

LbI 0↙

A+I×Abs(L- O)+K×(L-Q) 2÷2÷R→H↙

GCSJK （高程数据库？）

IF K≦159091.01:Then154.199→G:157300→B:25000→D:289.750→U:0.01947→I: -0.00371→W:B-K→C:1→F:I>W =>-1→F:Goto 3:IfEnd↙

IF K≦161364.5:Then145.215→G:159720→B:62000→D:628.990→U:-0.00371→I: -0.024→W:B-K→C: I>W =>-1→F:Goto 3:IfEnd↙

LbI 3↙

IF K

IF K

IF K

IF K>B:Then 0→Z:W→P:Goto 4: IfEnd↙

LbI 4:G-CP+Z×F(U-Abs(C)) 2÷2÷D→H↙

GL-FS （什么反算？）

20→V：Do:Prog“PMSJK”:(P-R)÷(2HPR) →D:L-O→O:OD→D:1÷P→C:If V>10: Then Prog“GL-JY-ZS”:Else Prog“GL-ZS”:IfEnd:T-X→I:S-Y→J:Pol(I,J):J-Q →J:Rec(I,J):I÷(1-CJ-2DJ)→V:L+V→L:Abs(V)→V:LpWhile V>0.001

GL-JY-ZS （什么正算？）

0.7886751346→E:1-E→F:Q+E r O(C+ED)→E:Q+E r O(C+FD)→F:

X+O(cos(E)+cos(F))÷2→X:

Y+O(sin(E)+sin(F))÷2→Y:

Q+O r(C+D)→Q

GL -ZS （什么正算？）

0.1739274226→I:0.3260725774→J:0.0694318442→K:0.3300094782→E

:1-E→F:1-E→F:1-K→M:

Q+K r O(C+KD)→K:Q+E r O(C+ED)→E:

Q+F r O(C+FD)→F:Q+M r O(C+MD)→M:

X+O(Icos(K)+Jcos(E)+ Icos(M))→X:

Y+O(Isin(K)+Jsin(E)+ Isin(M))→Y:

Q+O r(C+D)→Q:

GLZUOBIAO-1 （表示什么？）

If L≤154246.087:Then Goto A:Else Goto 1:IfEnd↙

LbI 1↙

If L≤160350:Then Goto B:Else Goto C:IfEnd↙

LbI A↙

Prog“YZB”↙

Goto 5↙

LbI B↙

Prog“ZB2”↙

Goto 5↙

LbI C↙

Prog“ZZB”↙

Goto 5↙

LbI 5↙

If W<1:Then V-180→V: Goto 3: Else Goto 3:IfEnd↙

LbI 3↙

If V<90:Then 360+V→V: Else V→V: IfEnd↙

PMSJK (平面数据库?)

IF

L≦156981.234:Then590888.498→X:533021.975→Y:10^(46)→P:1545.627→R:17 5→H:156806.234→O:289°14′14.5″→Q:Return:IfEnd↙

L≦157432.396:Then590949.257→X:532857.886→Y:1545.627→P:1545.627→R:4 51.162→H:156981.234→O:292°28′51.4″→Q:Return:IfEnd↙

IF

L≦157607.396:Then591179.742→X:532471.904→Y:1545.627→P:10^(46)→R:17 5→H:157432.396→O:309°12′19.3″→Q:Return:IfEnd↙

IF

L≦158977.376:Then591295.382→X:532340.588→Y:10^(46)→P:10^(46)→R:136 9.98→H:157607.396→O:312°26′56.2″→Q:Return:IfEnd↙

YQX （右曲线？）

Abs(L-O)→H:S 2÷(24×R)-S^(4)÷(2688×R^(3))→P:S÷2-S^(3)÷(240R2)→Q: (H-S)×180÷R÷∏+S×180÷（2×∏×R→U：K×U+Z→V:Rsin(U)+Q→E:R(1-cos (U))+P→N:“S=”:A+Ecos(Z)-KNsin(Z)→S◢

“T=”:B+Esin(Z)+ KNcos(Z) →T◢

↙

↙

Return

上面∏为3.1415926……

YXSQX （右线竖曲线？）

LbI 0↙

Cls:“K=”?K:IF K<159091.01:Then 154.199→G：157300→B：25000→R：

289.750→T:0.01947→I:-0.00371→J:B-K→C:1-F:I>J=>-1→F:Goto 3:IfEng↙

IF K<161600:Then 145.215→G：159720→B：62000→R：628.990→T:-0.00371→I: -0.024→J:B-K→C:I>J=>-1→F:Goto 3: IfEng↙

LbI 3: IF K

IF K

IF K

IF K>B:Then 0→A:J→ P: Goto 4: IfEng↙

LbI 4:G-CP+AF(T-Abs(C)) 2÷2÷R→H:“H”:H◢

Goto 0↙

ZXSQX （左线竖曲线？）

LbI 6↙

Cls:“K=”?K:IF K<159122.9:Then 155.569→G：157270→B：25000→R：311.375→T:0.02148→I:-0.00343→J:B-K→C:1→F:I>J=>-1→F:Goto 7:IfEng↙IF K<160477:Then 146.895→G：159800→B：60000→R：677.1→T:-0.00343→I: -0.026→J:B-K→C: -1→F:Goto 7: IfEng↙

LbI 7: IF K

IF K

IF K

IF K>B:Then 0→A:J→ P: Goto 8: ↙

LbI 8:G-CP+AF(T-Abs(C)) 2÷2÷R→H:“H”:H◢

Goto 6↙

ZB2 （表示什么？）

If L≦154426.087:Then Goto A:Else Goto 1:IfEng↙

If L≦155115.597:Then Goto B:Else Goto 2:IfEng↙

LbI 2↙

If L≦155265.597:Then Goto C:Else Goto 3:IfEng↙

LbI 3↙

If L≦155620.15:Then Goto D:Else Goto 4:IfEng↙

LbI 4↙

If L≦155790.15:Then Goto E:Else Goto 5:IfEng↙

LbI 5↙

If L≦156656.233:Then Goto F:Else Goto 6:IfEng↙

LbI 6↙

If L≦156806.233:Then Goto G:Else Goto 7:IfEng↙

LbI 7↙

If L≦157432.399:Then Goto H:Else Goto 8:IfEng↙

LbI 8↙

If L≦157607.399:Then Goto I:Else Goto 9:IfEng↙

LbI 9↙

If L≦158977.376:Then Goto J:Else Goto 0:IfEng↙

LbI 0↙

If L≦160298.935:Then Goto K↙

LbI A↙

58874.9732→A:534215.4827→B:1608.999→R:180→S:154426.087→O:183°37′56.5″→Z:-1→K:-1→W↙

LbI B↙

588974.9732→A:534215.4827→B:1000→R:150→S:154426.087→O:3°37′56.5″→Z:-1→K:-1→W↙

Goto T↙

LbI C↙

589760.5335→A:533988.4355→B:1000→R:150→S:155265.597→O:144°07′34. 8″→Z: 1→K:-1→W↙

Goto T↙

LbI D↙

589760.5335→A:533988.4355→B:1522.495→R:170→S:155265.597→O:324°07′34.8″→Z: 1→K:1→W↙

Goto T↙

LbI E↙

590216.856→A:533733.3811→B:1522.495→R:170→S:155790.15→O:157°28′0 8.8″→Z: -1→K:-1→W↙

Goto T↙

LbI F↙

590216.856→A:533733.3811→B:1028.84→R:150→S:155790.15→O:337°28′08 .8″→Z: -1→K:1→W↙

Goto T↙

LbI G↙

590888.4984→A:533021.9777→B:1028.84→R:150→S:156806.233→O:109°14′

14.1″→Z: 1→K:-1→W↙

Goto T↙

LbI H↙

590888.4984→A:533021.9777→B:1545.627→R:175→S:156806.233→O:289°14

′14.1″→Z: 1→K:1→W↙

Goto T↙

LbI I↙

591295.3826→A:532340.5881→B:1545.627→R:175→S:157607.399→O:132°26

′56.2″→Z: -1→K:-1→W↙

Goto T↙

LbI J↙

59129.3826→A:532340.5881→B:0→R:0→S:157607.399→O:312°26′56.2″→V: 1→K:1→W↙

Goto R↙

LbI K↙

592220.0262→A:531329.7104→B:2097.935→R:350→S:158977.376→O:312°26

′56.2″→Z: -1→K:1→W↙

Goto T↙

LbI R↙

“S=”:A+(L-O)×cos(V)→S◢

“T=”:B+(L-O)×sin(V)→T◢

Goto W↙

LbI T↙

Abs(L-O)→H↙

If H-S≧0:Then Goto U:Else Goto V↙

LbI U↙

Prog“YQX”↙

S=S:T=T:V=V↙

Goto W↙

LbI V↙

H-H^(5)÷40÷R2÷S2→M: H^(3)÷6÷R÷S-H^(7)÷336÷R^(3)÷S^(3)→N↙K×(H2×180÷2÷∏÷R÷S)+Z→V:“S=”:A+M×cos(Z)-N×K×sin(Z)→S◢“T=”:B+M×sin(Z)+N×K×cos(Z)→T◢

Goto W↙

LbI W↙

8↙

ZZB （表示什么？）

If L≦1156653.357:Then Goto A:Else Goto 1:Ifend↙

LbI 1↙

If L≦1156803.357:Then Goto B:Else Goto 2:Ifend↙

LbI 2↙

If L≦1157450.193:Then Goto C:Else Goto 3:Ifend↙

LbI 3↙

If L≦1157660.193:Then Goto D:Else Goto 4:Ifend↙

LbI 4↙

If L≦1158956.336:Then Goto E:Else Goto 5:Ifend↙

LbI 5↙

If L≦1160306.154:Then Goto F:Ifend↙

LbI A↙

590216.856→A:533733.3811→B:1000.32→R:150→S:1155790.15→O:337°28′0 8.8″→Z: -1→K:1→W↙

Goto T↙

LbI B↙

590877.7692→A:533018.36→B:1000.32→R:150→S:1156803.357→O:108°01′3 6.5″→Z: 1→K:-1→W↙

Goto T↙

LbI C↙

590877.7692→A:533018.36→B:1517.525→R:210→S:1156803.357→O:288°01′36.5″→Z: 1→K:1→W↙

Goto T↙

LbI D↙

591304.6519→A:532286.014→B:1517.525→R:210→S:115760.193→O:132°26′55.7″→Z: -1→K:-1→W↙

Goto T

LbI E↙

591304.6519→A:532286.014→B:0→R:0→S:115760.193→O:312°26′55.7″→V: 1→K: 1→W↙

Goto T

LbI F↙

592179.4593→A:531329.6152→B:2240.219→R:350→S:1158956.336→O:312°26′55.7″→Z: -1→K: 1→W↙

Goto T

LbI R↙

“S=”:A+(L-O)×cos(V)→S◢

“T=”:B+(L-O)×sin(V)→T◢

Goto W↙

LbI T↙

Abs(L-O)→H↙

If H-S≧0:Then Goto U:Else Goto V↙

LbI U↙

Prog“YQX”↙

S=S:T=T:V=V↙

Goto W↙

LbI V↙

H-H^(5)÷40÷R2÷S2→M: H^(3)÷6÷R÷S-H^(7)÷336÷R^(3)÷S^(3)→N↙

K×(H2×180÷2÷∏÷R÷S)+Z→V:“S=”:A+M×cos(Z)- N×K×sin(Z)→S◢“T=”:B+M×sin(Z)+N×K×cos(Z)→T◢

Goto W↙

LbI W↙

8↙

（完）……

5800隧道超欠挖程序

1. 主程序(TYQXJS) Lbl 4："1SZ => XY，2XY => SZ"？N：？S：Prog“SUB0”↙ 1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1：Goto2：↙ Lbl 1:”DZ”? Z：Abs(S-O) →W：Prog "SUB1"："XS"：X◢ "YS"：Y◢Prog “SQX”（竖曲线的程序名字） F-90→F：“FS=”：F▲DMS◢Prog “CQW”（隧道超欠挖的程序名字） Goto4↙ Lbl 2：”X”？X：“Y”？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S”：S◢“Z”：Z◢ Prog“CQW” Goto4↙ 2. 正算子程序(SUB1) 0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M G+QEKW(C+KWD)→Z[1] G+QELW(C+LWD)→Z[2] G+QEFW(C+FWD)→Z[3] G+QEMW(C+MWD)→Z[4] A×cos(Z[1])→X X+Bcos(Z[2])→X X+Bcos(Z[3])→X X+Acos(Z[4])→X U+WX→X Asin(Z[1])→Y Y+Bsin(Z[2])→Y Y+Bsin(Z[3])→Y Y+Asin(Z[4])→Y V+WY→Y G+QEW(C+WD)+90→F X+Zcos(F)→X Y+Zsin(F)→Y

2. 反算子程序(SUB2) G-90→T：(Y-V)cos(T)-(X-U)sin(T) →W：Abs(W) →W:0→Z Lbl 0：Prog "SUB1" T+QEW(C+W D) →L：(J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）<0.000001：Then0→Z:Prog "SUB1" (J-Y)÷sin（F）→Z Else W+Z→W Goto0:IfEnd SUB0 数据库子程序 Goto1↙ 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 …………….. 为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。只要给数据库里的变量输完即可使用。 CQW(程序名)隧道超欠挖 “SCH”?A:”R”?G:”HSJ”?H:”DZ”?Z √((A-H-设计标高到圆心的高度)2+（Z±隧道中线到测设线的距离）2) →D G-D→Z[4]

隧道的施工放样程序及CAD计算超欠挖量

隧道的施工放样程序及C A D计算超欠挖量 隧道测量的程序及运用： 在测量隧道中由于时代的变化、科学的进步，我们运用的计算工具也在不断的变化。在如今我们测量工作中一般运用的是CASIO4500、4800、4850等型号的科学计算器还是一种有编程功能的计算器。 在隧洞测量时测量人员要根据现场的要求来进行编程，边角程序如： 边角后方交会 BJHFJH L1 ABCD：Lbl5：{KSP} L2 pol(C-A,D-B) L3 Q=90(1-K)+K SIN-1(S SIN P/V) L4 T=W+180-P-Q L6 Rec (S,T) : X=A+V◢ Y=B+W◢ L7 Goto5 说明： 1、测边的已知点作为P1（A,B），未测边的已知点作为P2（C,D）。 测边对角为锐角时K=1，测边对角为钝角时 2、 K=-1。 3、角度P是以测边方向为起始方向，顺时针观测另一个已知点方向的右角。 注：理想图形要求实测的S边相对于已知边P1P2越短越好，角P越接近180°越好。 坐标反算 ZBFS L1 AB：Fixm：{CD} L2 pol(C-A,D-B)◢ L3 W＜0W=W+360 L4 lntW +(60 Frac W )+ Frac(60 FracW) ◢ 说明： 1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。 2、起算点和目标点的坐标分别为（A，B）、（C，D）。 3、起算点改变时应重新调用程序以改变A、B的值。 4、边长值和方位角值分别自动存放在“V”和“W”中。“W”的单位为：度“°”。 隧洞断面图如上的程序如下： 直线断面放样程序（2） ZXFY2 L1 Lbl0：{ABH}：ABH:POL(A-X,B-Y): L2 L=ICos (J-G)◢ L3 M=Isin(J-G) ◢ L4 V=H-N◢

隧道超欠挖测量程序

武吉高速C1标坪山隧道 隧道超欠挖测量程序 右线： 主程序：SDCQW Fix m： Lb1 0：｛X,Y,Z｝：Pol((X-3103433.079),(Y-484177.6871))： A=J：A＜ ⊿ A＜239°57′53.45“ZXD” ＜246°19′32.92“HHQXD”“YQXD” ⊿⊿ ：Prog “SQX” Q=Q-4.875×0.02+1.606：｛B｝：B“WY” ⊿⊿⊿⊿ Pol((X-C),(Y-D))：J＜ ⊿ J＜⊿ C=C+4.875cosJ：D=D+4.875sinJ：Q＞)：J＜ ⊿C=C-2.5cosJ：D=D-2.5sinJ：R=R+2.5⊿ L=√((X-C)2+(Y-D)2+(Z-Q)2)：E“PC”=L-R◢ Goto 0 说明： 1、E：“PC”表示偏差值，正值表示超挖，负值表示欠挖。超欠挖均针于开 挖轮廓线。 2、C：表示圆心点的X坐标；D：表示圆心点的Y坐标。 3、Q：表示圆心点的Z坐标。 4、B：“WY”表示围岩级别。5级，B=5；4级，B=4；以此类推。 子程序：ZXD Pol((X-3102417.42),(Y-482421.004))：J＜⊿ F=(183°21′21″-30°12′47″)-J：L=Icos(AbsF)：K=174032.177+L◢ C=3102417.42+Lcos153°08′34″：D=482421.004+Lsin153°08′34″ 说明： 1、C：表示对应设计线上点的X坐标； 2、D：表示对应设计线上点的X坐标。 子程序：YQXD O=270°10′21.95″-A:L=2025×O/180×π: K=172964.357+L◢C=3103433.079+2025cosA:D=484177.6871+2025sinA 子程序：HHQXD O=A-239°57′53.45″：S=O÷6°21′39.47″×225： K=174032.177-S ◢C=S-S∧5÷(40×20252×2252):D=S∧3÷(6×2025×225): A=tan-1(D/C):L=√((D2+C2):C=3102417.42+Lcos(333°08′34″+A): D=482421.004+Lsin(333°08′34″+A)

隧道超欠挖管理办法

隧道超欠挖管理办法 一、目的 为了有效控制施工中隧道开挖超挖量大，成型的不利局面，提高隧道开挖成型质量，降低施工成本，明确责任，落实到人。 二、编制依据 根据《铁路隧道工程施工质量验收标准》、《铁路隧道施工规范》及现场实际情况，经研究决定，特制定有关隧道超欠挖管理办法。 三、成立隧道超欠挖管理领导小组。成员由队长、技术负责人、财务等 相关人员组成。 组长： 组员： 四、控制内容 1、隧道开挖钻孔、装药、成型效果。 2、开挖测量中线、标高、周边轮廓线偏差。 3、仰拱开挖尺寸。 五、控制标准 1、根据岩石的类别、硬软情况，确定周边眼的间距。极硬岩控制在 0.55～0.70m，硬岩控制在0.40～0.65m，软岩控制在0.33～0.50m， 眼距允许偏差为5cm，眼底不应超开挖断面轮廓线10cm，装药量根据 开挖爆破效果进行调整。由指导施钻人（或测量组）画出周边眼的间 距，用红铅油画出炮眼位置。施钻人员按测量组划线位置施钻。 2、钻眼，周边眼严格控制外插角，一般开挖进尺在3米以内，外插角 斜率控制在0.5以内，即两茬炮之间接茬处的错台不得大于10～15cm； 进尺大于3米时，外插角斜率应控制在0.5～0.3以内，即两茬炮之 间接茬处的错台不得大于15～9cm；外插角的方向应与该点轮廓线的 法线方向一致，钻眼时要求眼药打直、打平、打到同一个垂直面。 3、隧道不应欠挖，特别注意拱顶、拱墙、墙脚以上1m内断面严禁欠挖。 4、仰拱开挖不应欠挖，平均线型超挖控制在5cm以内。 5、掌子面测量划线中线允许偏差5mm，标高允许偏差1cm，轮廓线允许 偏差3cm。 六、超欠挖奖罚办法 1、隧道开挖每循环进行考核。由测量组做开挖断面，与技术交底开挖 断面进行比较，计算出线性超挖量，并用红铅油标出超挖部位，上报 工地主管领导。根据开挖断面检查表对开挖班进行奖罚，奖金由开挖 班人员分配，罚款由超挖部位施钻人员承担，若罚款分不下去由开挖 班负责人承担。 2、仰拱每组进行考核，领工员现场指挥开挖，由技术人员验收时，做 开挖断面，并与交底开挖断面进行比较，计算出超挖量，据此对领工 员、挖掘机司机进行奖罚，奖罚金额由挖掘机司机、领工员各一半， 若罚款无法执行，由现场领工员承担。 3、测量组每循环中线、标高、轮廓线由质检人员复核，检查是否超出 允许偏差范围，据此对测量人员进行奖罚，奖金由测量组按比例分配， 罚款按责任比重承担，罚款分不下去，由测量组负责人承担。

5800 隧道超欠挖程序(超级快速正确版)

3.GL-LUNKUO 超欠挖主程序（最快版……里程精度要求高） Lbl 0 ?P:P→L:Prog“GLZUOBIAO-1”↙ ?X:?Y:?C↙ Pol ((X-S),(Y-T)):If V>180:Then V→V:Goto 1:Else V+180→V:Goto 1↙ Lbl 1↙ “L=”:I×cos(J-V)+L→L◢ Prog“GLZUOBIAO-1”↙ Pol ((X-S),(Y-T)):If V>180:Then V→V:Goto 2: Else V+180→V:Goto 2↙ Lbl 2↙ “FAJU=”:I×s in(J-V)→T◢ “LICHENG=”:I×cos(J-V)+L→L◢ Goto 3↙ Lbl 3↙ If L<1156000:Then Abs(7.725-T)→T: Goto V:Else Abs(7.725-(-T))→T: Goto V:IfEnd↙ Lbl V↙ If L≤156300: Then Prog“GC1”: Goto A: Else Goto Z: IfEnd↙ Lbl Z↙ If L≤160000: Then Prog“GC3”: Goto A: Else Pros“GC2”:Goto A: IfEnd↙Lbl A↙ If C≥H+1.55: Then Goto B: Else Goto C: IfEnd↙ Lbl B↙

If tan- 1((C-H+0.43)÷T)-45≤0: Then Goto D: Else Goto E: IfEnd↙ Lbl D↙ “GBR=”:√((C-H-1.55)2+(T-1.98)2→R◢ ( √为开方符号) Goto 0↙ Lbl E↙ “GZR=”:√((C-H+0.43)2+T2 )→R◢ Goto 0↙ Lbl C↙ If tan- 1(Abs(H+1.155-C) ÷(T-1.98))≤-19.80138≤0: Then Goto F: Else Goto G: IfEnd↙ Lbl F↙ “BQR=” : √((H+1.55-C) 2+(T-1.98)2 ) →R◢ Goto 0↙ Lbl G↙ If tan- 1(T÷(H+23-C))-15.13444≤0: Then Goto H: Else Goto I: IfEnd↙ Lbl H↙ “YGR=”: √(T2 +(H+23-C) 2→R◢ Goto 0↙ Lbl I↙ T-6.2139→M◢ “R=”:√(M2 +(H-C+0.0255) 2)→R◢ Goto 0↙

fx 5800 隧道超欠挖计算程序

fx 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◢Goto0 反算主程序(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◢Goto0 隧道3心圆放样主程序（CQW） Lb1 1：Fix3:7.315→R：6.19→P:“H 1”?F:?Z:F-H→F:Abs(5.72-Z)→Z If F≥6.319:Then √(Z2+(F-0.715)2 )-R→W:IfEnd: If F≥1.577 AND F＜6.319 Then √((Z-0.723)2+(F-1.577) 2)-P→W:IfEnd: If≤1.577: Then Z-(P+0.723)→W:IfEnd: “W=”: W◢ Goto1 R----第一个圆圆心 P----第二个圆圆心

F----实测高程 H----路面纵断设计高程 Z----由反算主程序反算得到边距（不需修改） 程序中右线输入Abs(5.72-Z)→Z，左线输入Abs(5.72+Z)→Z CQW----计算结果（+超，-欠） 隧道二衬断面检测主程序（CQJC） Lb1 1：Fix3:6.625→R：5.5→P: “H1”?F:?Z:F-H→F:Abs(5.72-Z)→Z If F≥5.79:Then √(Z2+(F-0.715) 2)-R→W:IfEnd: If F＜5.79 Then √(Z-0.723)2+(F-1.577)2)-P→W:IfEnd: “W=”: W◢ Goto1 R----第一个圆圆心 P----第二个圆圆心 F----实测高程 H----路面纵断设计高程 Z----由反算主程序反算得到边距（不需修改） 程序中右线输入Abs(5.72-Z)→Z，左线输入Abs(5.72+Z)→Z

隧道超欠挖控制办法

隧道超欠挖控制办法 开挖是隧道施工中的关建工序。超挖过多、不仅因出渣量和衬砌量增多而提高工程造价，而且由于局部超挖会产生应力集中。影响围岩稳定性。欠挖则直接影响衬砌厚度、处理起来费时、费力、所以隧道开挖必须控制好超欠挖，以利于下道工序的正常进行。 超欠挖的概念及允许值 隧道超欠挖是以设计的隧道开挖轮廓线为基准线，实际开挖获得的断面在基准线以外的部分为超挖，在基准线以内的部分则称为欠挖。如下图： 在《铁路隧道施工规范》（TB10204-2002）中对超欠挖有如下规定：隧道不应欠挖，当围岩完整、石质坚硬时，允许岩石个别突出部分（每1㎡不大于0.1㎡）侵入衬砌。对整体式衬砌，侵入值应小于衬砌厚度的1/3，并小于10㎝；对喷锚衬砌不应大于5㎝，拱脚和墙脚以上1m内范围内严禁欠挖。不同围岩地质条件下的允许超挖值规定见下表： 允许超挖值（单位：㎝） 注：本表适用于炮眼深度不大于3.0m的隧道。炮眼深度大于3.0m时，可根据实际情况另行规定 根据本隧道开挖现状，现就超欠挖控制特定办法如下： 一.开挖断面尺寸的确定； 隧道开挖断面应以隧道净空为基准。加上二衬厚度，初期支护厚度。考虑预留变形量，测量贯通误差和施工误差等因素适当放大。预留变形量可根据围岩级别、隧道宽度，埋置深度、施工方法和支护情况等条件，采用类比法确定，也可参考隧道收敛量测记录予以确定。如无以上资料可参考表1-1确定: 表1-1预留变形量（cm）

注:1. 开挖断面尺寸=隧道净空+二衬厚度+初期支护厚度+预留变形量。 二.开挖轮廓线放样: 在开挖过程中、轮廓线的放样非常重要。轮廓线就是“师傅”。我们现场放样一般采用“五寸台”法。现就“五寸台”法放样步骤及应注意的几点问题阐述如下： 放样步骤： 1.中线确定： 中线确定一般采用偏角法。 架镜—后视—拔角—测距—定中线 a角的取值根据后视点、架镜点及中线点所处位置不同而计算方法各不相同。（请参照铁路隧道施工技术手册上册） 2. 拱顶及底板确定： 用水准仪测三个平点（一个点必须在中线上），根据平点高程，拱顶高程及底扳高程算出其距离。量距定出拱顶及底扳。由于工作面凹凸不平、量距时应尽量做到钢尺垂直，如果不能则应根据钢尺的倾斜程度考虑其增量。 3. 轮廓线确定： 从拱顶沿中线每50cm定一个点。沿点向左右两边量其距离定出其轮廓点。量距时一定要注意尺子要水平。把所有的轮廓点连起来就定出了轮廓线。 应注意的问题： 1. 由于隧道内施工车辆很多、为了防止对导线点及中线点的破坏，不但要将控制点按规定要求埋置，还应设有明显标志及保护措施。应定期对控制点进行复核测量。 2.所有放样过程都要施行“双检”制。 3.量距时钢尺一定要垂直或水平，做到准确无误。 三、提高钻孔技术水平 1）钻孔技术对隧道超欠挖的影响主要是周边炮孔的外插角θ、开口位置e 和钻孔深度L。它们与超欠挖高度有如下的关系：h=e+Ltan(θ/2)。该式表明随外插角θ和钻孔深度L的增大，h也随之增大。θ和L主要取决于司钻人员的操作水平和所采用钻机的某些性能，为确保控制θ和L，一定要努力提高司钻人员的操作水平和责任心。

隧道的施工放样程序及CAD计算超欠挖量

隧道的施工放样程序及CAD计算超欠挖量 隧道测量的程序及运用： 在测量隧道中由于时代的变化、科学的进步，我们运用的计算工具也在不断的变化。在如今我们测量工作中一般运用的是CASIO4500、4800、4850等型号的科学计算器还是一种有编程功能的计算器。 在隧洞测量时测量人员要根据现场的要求来进行编程，边角程序如： 边角后方交会 BJHFJH 说明： 1、测边的已知点作为P1（A,B），未测边的已知点作为P2（C,D）。 测边对角为锐角时K=1，测边对角为钝角时 2、K=-1。 3、角度P是以测边方向为起始方向，顺时针观测另一个已知点方向的右角。 注：理想图形要求实测的S边相对于已知边P1P2越短越好，角P越接近180°越好。 坐标反算 ZBFS

W=W+360 说明： 1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。 2、起算点和目标点的坐标分别为（A，B）、（C，D）。 3、起算点改变时应重新调用程序以改变A、B的值。 4、边长值和方位角值分别自动存放在“V”和“W”中。“W”的单位为：度“°”。 隧洞断面图如上的程序如下：

直线断面放样程序（2） ZXFY2 W= 说明： 1. 本程序用于计算直线段的如图断面样式的隧洞程系放样程系。 2. 坐标A,B,H,是测算出来的坐标数据。 3. 已知的坐标X,Y是从图纸上的起算点坐标。 4. J是方位角，是隧洞的轴线方向。 5. M是偏中，V是实际高程，W是实际测量出来的顶拱位置。后方交会3HFJHCX J=J+0.01 J=J+0.01 J=J+0.01

1、本程序用于利用3个合适的已知点进行方向后方交会法计算测站坐标。 2、观测、计算时将3个已知点按顺时针方向对应排列，已知点的直角坐标分别为（A，B）、（C，D）和（E，F）。对应3个已知点的方向值分别为O、P、Q。 3、L3至L9行的作用是当两相邻方向间的夹角出现直角或平角时将导致不能计算时进行自动处理。 4、为提高解算精度和防止错误，宜尽可能使测站点与3个已知点组成较理想的图形，如采取测站点靠近3个已知点组成的三角形的中心区域、避免出现“危险园”图形和增加已知点组成多组后交图形比较计算等措施。 5、当已知点发生变化应重新调用程序。 边角后方交会 （Filename）9BJHFJH

项目部隧道超欠挖管理办法

项目部隧道超欠挖管理办法 一、目的 为有效地进行隧道开挖超欠挖施工控制，提高隧道围岩成型质量，增强安全性，降低施工成本，明确责任，落实到人。 二、编制依据 根据《铁路隧道工程施工质量验收标准》TB10417-2003、《铁路隧道施工规范》TB10210-2001。 三、组织管理 为抓好隧道超欠挖管理，成立项目领导小组、作业队专项工作组、洞口专人负责的三级管理机构，专门督导、落实、解决和考核隧道超欠挖管理。 1、项目成立隧道超欠挖领导小组 成员由项目部分管（包保）领导、作业队长、主管、开挖班长，及工程部、工经部等相关人员组成。 组长： 组员： 2、作业队成立隧道超欠挖专项工作组：作业队，成立以各队长为组长，技术主管（核算员）、隧道技术员、施工员为组员的工作组。 3、各隧道洞口指定专人负责隧道超欠挖工作，负责落实日常监控、检查、考核工作。 四、控制内容

1、隧道开挖定位、钻孔、装药、成型效果。 2、开挖测量中线、标高、周边轮廓线偏差。 3、仰拱开挖尺寸。 五、控制标准 1、测量控制 检查掌子面测量划线，中线允许偏差5cm，标高允许偏差1cm，轮廓线允许偏差3cm。 2、超挖控制 隧道开挖断面允许超挖值如下，预留沉降量额外考虑。 拱墙：II-IV级围岩平均线性超挖15cm，最大超挖25cm； V级围岩平均线性超挖10cm，最大超挖15cm。 边墙：各级围岩平均超挖10cm。 3、欠挖控制 ⑴拱墙：当围岩完整、石质坚硬时，岩石个别突出部位（每平方米不得大于0.1m2）侵入衬砌应小于5cm，但拱墙和墙脚以上1m内断面严禁欠挖。 ⑵仰拱：开挖不应有欠挖，平均线性超挖控制在10cm 以内。 4、软弱围岩、黄土隧道控制 软弱围岩、黄土隧道，尽量采用机械配合人工开挖；挖不动的黄土夹砂砾岩采用弱爆破配合机械开挖，开挖时应预留保护层，保护层由人工手持风钻等工具扩挖成型。 5、岩石光爆控制 Ⅱ、Ⅲ级围岩及Ⅳ级围岩岩石整体地段必须采取光面控

FX5800P计算器 隧道测量超欠挖计算程序

(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。) fx5800p隧道测量超欠挖计算程序 曲线：QXLK “ZF”？U:“RP”?O:“ZY”? K:D“X 0”?D:E“YO”?E :?V:?H:?B:?R:?M:?N:“OZ-ZXX”?A:“R1”?P:“R2”？Q←┘ Lb1 8←┘ ?X:?Y←┘ Pol((X-D)，(Y-E) )) ←┘ “S ”:= -V(I-O)=→S ◢(字母O) “L ”:=K+πOsin-1 (sin(90+V(J-U )))÷180→L◢ RAbs(N-M)÷2→T←┘ B-L→C←┘ 1→F←┘ IF M＞N:Then-1→F:THEND←┘ IF L＜B-T:Then Goto 1:ELSE IF L＜B:THEN Goto 2:ELSE IF L＜B+T:THENGoto3: ELSE IF L＞B+T:THEN Goto4:IFEND: :IFEND: :IFEND: :IFEND←┘ Lb1 1←┘ “G ”:=H-CM→G◢ Goto5←┘ Lb1 2←┘

“G =”:H-C M +F(T-Abs（C)2÷（2R）→G◢Goto5←┘ Lb1 3←┘ “G= ”:=H-C N +F(T-Abs（C)2÷（2R）→G◢Goto5←┘ Lb1 4←┘ “G=”:H-CN→G◢ Lb1 5←┘ ?Z←┘ IF Z＞G+5.92:THEN Goto6:ELSE Goto7:IFEND←┘Lb1 6←┘ “W=”:√(S2+(Z-G-3.1) 2)-P→W◢ Goto8←┘ Lb1 7←┘ “W=”:√((A+Abs（S)2+(Z-G-1.7) 2)-Q→W◢Goto8←┘ 说明： Z F？方位角 RP？半径 ZY？圆曲线起点桩号 X0？圆心X坐标 Y0？圆心Y坐标

CASIOfx-5800隧道超欠挖、高程及公路程序

FX5800计算器公路测量常用程序集2.2 版 一、程序功能 主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处) 二、源程序 1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。 程序名：0ZCX LbI 0:17→DimZ：Norm 2:1→A：＂A:XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9＂?A: A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:

A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8: A=9=>Goto 9： LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂:90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto B： LbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z: Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂X O＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C: LbI 3:Prog＂QX＂:0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂? Z: Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg＂H＂:Fix 3: ＂ H=＂: Lcoate 6,4,H-Z[9]： ＂ I=＂:Locate 6,4,I： Goto D： LbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Got o 4:?D:Prog＂GD＂:Fix 3: ＂ SJGD=＂:Locate7,4,L： Goto E： LbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[17]:LbI F:2→F: 90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂K

隧道超欠挖计算原理与程序设计

浅谈隧道超欠挖计算原理与程序设计 浅谈隧道超欠挖计算原理与程序设计 摘要：随着铁路、公路建设的快速发展，我国隧道建设的施工技术也大幅度提高，由于工期紧迫促成测量放样的过程也是一个重要环节，如果再采用普通的尺距法不仅仅降低了放样效率还造成了轮廓线的放样精度，导致开挖掘进造成隧道超欠挖，所以现在通过卡西欧编程计算器结合带红外线的全站仪进行配套操作，这样不仅提高了施测效率还保证了放样精度，现通过本文给大家讲解隧道超欠挖的计算原理和程序设计。 关键词：隧道超欠挖计算原理程序设计 何为超欠挖？：隧道超欠挖分为（超挖和欠挖），超挖即为隧道开挖轮廓线大于隧道设计轮廓线，欠挖即为隧道开挖轮廓线小于隧道设计轮廓线。 超欠挖的影响：隧道超欠挖不止直接影响到了施工进度、安全质量，还会让开挖费用增加，更重要的是由此造成了过量超填混凝土的费用。超挖在实际施工中由于重视不够或方法不当，以至于在施工过程中会不知不觉地提高工程成本，从而也减少了应得的利润。 超欠挖是如何产生的？ 在目前的隧道施工中，掘进技术有两种方法，一种是传统的“钻爆法（开挖台阶法）”；一种是“全断面掘进法（盾构掘进法）”。受各种条件的制约，“钻爆法”仍是隧道施工的主要掘进方法。所以隧道超欠挖的形成也是不可避免的，下面讲述一下形成超欠挖的三种情况。 1、岩层变化：由于隧道开挖过程中随着岩层的变化，地质条件和围岩裂隙的发生会出现不可避免的超欠现象，所以岩体是超欠挖的主要因素之一。

2、爆破方式：由于工作面（掌子面）是一个不平整的岩体面，导致钻孔间距控制不当或间距过大、过小，容易影响其他孔位的爆破效果，或者由于装药结构控制不当和掏槽不合理也会造成隧道超欠现象。

【2019年整理】隧道三心圆超欠挖程序

卡西欧计算器5800 隧道超欠挖计算程序 正算主程序(ZS): Lb1 0 : ?S: ?Z : Prog PM-SJ ” ： Abs(S-O) W: Prog "SUB1": "XS=": X J "YS=": Y J F-90 T F:S T K:Prog SQX” ：H=” ：H J Goto 0 反算主程序(FS) Lb1 0: ?S : ?X : ? Y: Prog PM-SJ ” ： Xt I: Yt J : Prog "SUB2": "S=": O+Wf J "Z=": ZJ Sr K:Prog SQX ”：H= ”： H J Goto 0 隧道3心圆放样主程序（CQW） Lb1 1 : Fix3:7.315 Y : 6.19*: Hl ”？F:?Z:F-H 十：Abs(5.72- Z)F If F *.319:Then v(Z2+(F-0.715) 2 )-R顶：IfEnd:

If F M.577 AND F v 6.319 Then v((Z-0.723) 2+(F-1.577) 2)-P —W :IfEnd: IU1.577: Then Z-(P+0.723)预：IfEnd: W= ”: W J Goto1 R----第一个圆圆心 P----第二个圆圆心 F----实测高程 H——路面纵断设计高程 Z—由反算主程序反算得到边距(不需修改) 程序中右线输入Abs(5.72- Z) 左线输入Abs(5.72+ Z) -Z CQW----计算结果(+超，-欠)

Lb1 1 : Fix3:6.625 Y : 5.5*: Hl ”？F:?Z:F-H 十：Abs(5.72- Z)M If F 冬.79:Then v(Z2+(F-0.715) 2)-R顶：IfEnd: If F v 5.79 Then v(Z-0.723) 2+(F-1.577) 2)-P~W :IfEnd: W= ”: WJ Goto1 R----第一个圆圆心 P----第二个圆圆心 F----实测高程 H——路面纵断设计高程 Z—由反算主程序反算得到边距(不需修改) 程序中右线输入Abs(5.72- Z) 左线输入Abs(5.72+ Z) -Z CQW----计算结果(+超，-欠) 正算子程序(SUB1) 1 甲 t C: (P-R) *2HPR) t D: 180+" E : 0.1739274226 t A: 0.3260725774 t B: 0.069431844 2 t K: 0.3300094782 t L : 1-L T F : 1-KT M : U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos( G+Q EFW(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 r F: X+ZcosF X: Y+ZsinF Y 反算子程序(SUB2) G-90 T: Abs((Y-V)cosT-(X-U)sin (T) ) t W: 0t Z: Lbl 0 : Prog "SUB1" :

隧道超欠挖计算程序

曲线（含直线）任意里程中边桩坐标正反算 （CASIO fx-4800p&fx-4850） J-SQX(竖曲线数据输入) “J-SQX”：{NHUVMQP}：Z[9]=N“SJD”：Z[10]=H“JDZ”：Z[11]=U“I1”：Z[12]=V“I2”：Z[13]=M“R”：Z[14]=Q“QD”：Z[15]=P“ZD”：“TO J-JS MS” J-PQX(平曲线数据输入,自动切换到J-JSMS) A“JD”B“JDX”C“JDY”F“FJ”O“ZJ：Z-，Y+”RE“LS1”K“LS2”：E＜1=＞E=1E-9⊿K＜1=＞K=1E-9⊿Z[1]=EE÷(24R)-E^4÷(2688RRR)：Z[2]=E÷2-EEE÷(240RR)：X=(EE-KK)÷(24R)÷sinAbsO：Z[3]“T1”=(R+Z[1])tan(AbsO÷2)+Z[2]-X▲ Z[4]“T2”=(R+KK÷(24R)-K^4÷(2688RRR))tan(AbsO÷2)+K÷2-KKK÷(240RR)+X▲ L=AbsOπR÷180+(E+K)÷2▲ J=tan-1((R+Z[1])÷(Z[3]-Z[2]))：X“E”=(R+Z[1])÷sinJ-R▲ X=A-Z[3]：Y=X+E：E＜1=＞X“ZY”▲ ≠=＞X“ZH”▲ Y“HY”▲ ⊿Y“QZ”=X+(L-K-E)÷2+E▲ Y=X+L-K：X=X+L：K＜1=＞X“YZ”▲ ≠=＞Y“YH”▲ X“HZ”▲ ⊿Prog“J-JSMS” J-JSMS(放样模式主程序) “1-ZS,2-FS,4-DMFY” Lb1 0：{Z}：Z“MS”≤1=＞Goto 1：≠=＞Z“MS”≤4 =＞Goto 2⊿⊿ Lb1 1：{PDW}：PD“BZ”W“BJ”：Prog“JP”：X“X=”▲ Y“Y=”▲ Goto 0⊿ Lb1 2：{XYW}：XYW“BJ”： Prog“JF”：P“P=”▲ D“BZ=”▲ Z=3=＞Prog“JS”：Prog“DMFY”⊿(运行竖曲线高程计算程序) Z=4=＞Z[26] “H”=12.417+(P-75360)*5.2/1000: Prog“DMFY”⊿（运行单面坡比高程计算,语句中12.417为起点桩号DK75+360的高程,可以根据实际情况进行调整；5.2/1000为单面上坡率,上坡输正值，下坡输负值） Goto 0 JS(竖曲线计算主程序) P＜Z[14] =＞Prog“J-SQX”⊿P＞Z[15] =＞ Prog“J-SQX”⊿ N=Z[9]：U=Z[11]：V=Z[12]：H=Z[13]：G=H Abs(U-V)÷200：P＜N=＞I=U：M=N-G：M＞P=＞M=P⊿≠=＞I=V：M=N+G：M＜P=＞M=P⊿⊿J=(P-M)2÷(2H)：U-V＞0=＞J=-J⊿H=Z[10]+(P-N)×I÷100+J Z[26] “H”=H JP(平曲线正算子程序) Fixm Lb1 1：J=F：X=B-Z[3]cosF：Y=C-Z[3]sinF：G=E P≤A-Z[3] =＞I=A-Z[3]-P：M=-I：N=0：H=F+W：Goto5

隧道的施工放样程序及CAD计算超欠挖量

隧道隧隧道隧道的施工放样程序及 CAD 计算超欠挖量 隧道测量的程序及运用: 在测量隧道中由于时代的变化、科学的进步，我们运用的计算工具也在不断的变化。在如今我们测量 工作中一般运用的是 CASI04500 、4800、4850等型号的科学计算器还是一种有编程功能的计算器。 在隧洞测量时测量人员要根据现场的要求来进行编程，边角程序如: 边角后方交会 BJHFJH 1L 1 ABCD : Lbl5 : {KSP} ||L 2 pol(C-A,D-B) ||L 3 Q=9O(1-K)+K SIN -1 (S SIN P/V) l 4 T=W+180-P-Q E 6 ||L 7 Goto5 说明: 2、 K=-1 角度P 是以测边方向为起始方向，顺时针观测另一个已知点方向的右角。 注：理想图形要求实测的 S 边相对于已知边 P i P 2越短越好，角P 越接近180 °越好。 L6 Rec (S,T) : X=A+V 丄 Y=B+W 丄 1、测边的已知点作为 P i 测边对角为锐角时 K=1 (A,B )，未测边的已知点作为 P 2( C,D )。 ，测边对角为钝角时 P.(氐怕 f 倉F / Z

ZBFS |L 1 AB : Fixm : {CD} L2 pol(C-A,D-B) J L3 W < 0 W=W+360 L4 IntW +0.01lnt(60 Frac W )+ 0.006 Frac(60 FracW) 说明: 1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。 V ”和“ W ”中。“ W ”的单位为：度“。”。 亠—— Pl (毎 坐标反算 2、起算点和目标点的坐标分别为（ A , B )、( C , D )。 3、起算点改变时应重新调用程序以改变 A 、B 的值。 4、边长值和方位角值分别自动存放在“ P, CD 〉

5800隧道三心圆超欠挖程序

5800隧道三心圆超欠挖程序 点击：176 次添加日期：2012-07-22 [ 打印] [ 收藏] [ 关闭] 【举报老板技巧】 充分掌握黑心老板拒发薪水证据,绝对保护举报者的身份信息，请加QQ：5513690 1、ECDM(二衬断面检查子程序，结合后面附图理解) “SCGC”?→C If C

If Abs(Z[10])≤0.001:Then K+Z[10]→K:Pol(Z[1]-X,Z[2]-Y):”Z[4]=”:-I cos(J-U+90)→Z[4]◢ “K=”:K◢ Prog “GCJS”: Prog “ECDM”:Goto B:Else K+Z[10]→K: Prog “ZB”:Goto C:IfEnd (所用字母：E Q X Y U K) 3、GCJS（高程计算子程序） 26+6D→Z:Lb1 1:Prog “SQXYS”:K-O→L:If K≤O:Then F+AL→H:Else If K≤O+2T:Then F+AL+WLL÷R÷2÷Abs(W)→H:Else Z+3→Z:If Z≤ 23+6D+3G:Then Goto 1:Else Z-3→Z:Prog “SQXYS”:Z[Z+4]+B(K-O-T)→H:IfEnd (所用字母：Z O K F A L H T R W D) 4、GCJSZCX（高程计算主程序） Lb1 C “K=”? →K:Prog “GCJS”:”H=”:H◢ Goto C (所用字母：K H) 5、SQXYS（竖曲线要素计算子程序） (Z[Z+4]-Z[Z+1])÷(Z[Z+3]-Z[Z])→A:(Z[Z+7]-Z[Z+4])÷(Z[Z+6]-Z[Z+3])→B:B-A→W:Z[Z+5]→R:Abs(0.5RW)→T:Z[Z+3]-T→O:Z[Z+4]-AT→F: A、B：竖曲线前后坡度计算，其余请参看竖曲线计算公式 (所用字母：A B W T F Z R)

隧道放样方法与超欠挖计算方法程序

隧道放样方法与超欠挖计算方法程序 隧道测量是施工中必不可少的一项施工程序。现代的测量工程中有许许多多的测量方法都叫测量的组合，而每一种测量方法都能把测量工作完成，就算是同一个测量部位、同样的条件及其他的因素。为此，我们一定要用科学方法来解决测量工作中的测量问题。 在水电工程中一般的大型水电站都建立在崇山峻岭中。在水电工程建设中大型的开挖如：导流洞、地下厂房、隧道公路、等都是洞挖。而，在溪洛渡水电站的建设中洞挖的工程量相对来讲比较多。所以，隧道测量是施工中必不可少的一项施工程序。现代的测量工程中有许许多多的测量方法都叫测量的组合，而每一种测量方法都能把测量工作完成，就算是同一个测量部位、同样的条件及其他的因素。为此，我们一定要用科学方法来解决测量工作中的测量问题。溪洛渡水电站位于云南永善县和四川雷波县境内,为一跨流域开发引水式电站。电站枢纽由首部枢纽、引水系统和厂区枢纽三部分组成。首部枢纽位于金沙江上游Ⅰ级支流，厂区枢纽位于金沙江左、右岸。其中引水系统由引水隧洞、调压井、压力管道组成。引水隧洞分为左右引水分别3条全长9393.947m。溪洛渡水电站引水隧洞于2005年10月1日开挖贯通，继而进行开挖断面测量。按规范及监理要求，每3 m测一断面，工作量相当大。为给施工班组进行清欠处理提供准确的开挖断面和提高测量效率，各单位采用了徕卡多功能全站仪断面测量Profiler机载软件。 （一）、前方工作运用 （1）、隧道测量工程测量前的工作准备： 由于，在隧道工程测量中一多半的工作时间都是在隧道里。但是，隧道里的工作环境一般的比较恶劣，如：光线太黑、空气恶劣、路面不平有少许暗沟等。因此，在隧道测量时的测量工作人员在上班之前必须要准备以下测量工具，强光探照灯、测量仪器和其它的辅助工具，其强光探照灯是在洞中测量中必不可少的一样。 在溪洛渡工程测量中每个单位用的测量仪器都不相同如葛洲坝测量队在右岸导流洞测量中用的是徕卡402、405、拓扑康502型红外线测量仪，而水电六局在左岸导流洞测量中用的是徕卡702、402、1202、等型号的红外线测量仪。在溪洛渡测量队中大部分的测量队都用的是红外线激光测量仪。以方便在洞中找点。 （2）、隧道测量的程序及运用： 在测量隧道中由于时代的变化、科学的进步，我们运用的计算工具也在不断的变化。在如今我们测量工作中一般运用的是CASIO4500、4800、4850等型号的科学计算器还是一种有编程功能的计算器。 在隧洞测量时测量人员要根据现场的要求来进行编程，边角程序如： 边角后方交会 BJHFJH L1 ABCD：Lbl5：{KSP} L2 pol(C-A,D-B) L3 Q=90(1-K)+K SIN-1(S SIN P/V) L4 T=W+180-P-Q L6 Rec (S,T) : X=A+V◢Y=B+W◢ L7 Goto5 说明： 1、测边的已知点作为P1（A,B），未测边的已知点作为P2（C,D）。 测边对角为锐角时K=1，测边对角为钝角时 2、K=-1。