5800 隧道超欠挖程序超级快速正确版.docx

5800 隧道超欠挖程序超级快速正确版.docx

《5800 隧道超欠挖程序超级快速正确版.docx》由会员分享，可在线阅读，更多相关《5800 隧道超欠挖程序超级快速正确版.docx（17页珍藏版）》请在冰点文库上搜索。

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

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

Lbl0

?

P:

P→L:

Prog“GLZUOBIAO-1”↙

?

X:

?

Y:

?

C↙

Pol（（X-S）,（Y-T））:

IfV>180:

ThenV→V:

Goto1:

ElseV+180→V:

Goto1↙

Lbl1↙

“L=”:

I×cos（J-V）+L→L◢

Prog“GLZUOBIAO-1”↙

Pol（（X-S）,（Y-T））:

IfV>180:

ThenV→V:

Goto2:

ElseV+180→V:

Goto2↙

Lbl2↙

“FAJU=”:

I×sin（J-V）→T◢

“LICHENG=”:

I×cos（J-V）+L→L◢

Goto3↙

Lbl3↙

IfL<1156000:

ThenAbs（7.725-T）→T:

GotoV:

ElseAbs（7.725-（-T））→T:

GotoV:

IfEnd↙

LblV↙

IfL≤156300:

ThenProg“GC1”:

GotoA:

ElseGotoZ:

IfEnd↙

LblZ↙

IfL≤160000:

ThenProg“GC3”:

GotoA:

ElsePros“GC2”:

GotoA:

IfEnd↙

LblA↙

IfC≥H+1.55:

ThenGotoB:

ElseGotoC:

IfEnd↙

LblB↙

Iftan-1（（C-H+0.43）÷T）-45≤0:

ThenGotoD:

ElseGotoE:

IfEnd↙

LblD↙

“GBR=”:

√（（C-H-1.55）2+（T-1.98）2→R◢（√为开方符号）

Goto0↙

LblE↙

“GZR=”:

√（（C-H+0.43）2+T2）→R◢

Goto0↙

LblC↙

Iftan-1（Abs（H+1.155-C）÷（T-1.98））≤-19.80138≤0:

ThenGotoF:

ElseGotoG:

IfEnd↙

LblF↙

“BQR=”:

√（（H+1.55-C）2+（T-1.98）2）→R◢

Goto0↙

LblG↙

Iftan-1（T÷（H+23-C））-15.13444≤0:

ThenGotoH:

ElseGotoI:

IfEnd↙

LblH↙

“YGR=”:

√（T2+（H+23-C）2→R◢

Goto0↙

LblI↙

T-6.2139→M◢

“R=”:

√（M2+（H-C+0.0255）2）→R◢

Goto0↙

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

Lbl0:

Cls:

Fix3:

Deg:

“L”?

L:

“X=”?

T:

“Y=”?

S:

“H=”?

A:

Prog“GL-FS”↙

“LICHENG”:

L◢

“PIANJU”:

J◢

Goto1↙

Lbl1:

IfL<1156800:

ThenAbs（8.975-J）→J:

Goto2:

ElseAbs（8.975-（-J））→J:

Goto2:

IfEnd↙

Lbl2:

L→K:

Prog“GCSJK”:

Goto3↙

Lbl3:

IfA≥H+1.55:

ThenGoto4:

ElseGoto7:

IfEnd↙

Lbl4:

Iftan-1（（A-H+1.68）÷J）-45≦0:

ThenGoto5:

ElseGoto6:

IfEnd↙

Lbl5:

“R=”:

√（（A-1.55）2+（J-3.23）2→R◢（√为开方符号）

Goto0↙

Lbl6:

“R=”:

√（（A-H+1.68）2+J2）→R◢

Goto0↙

Lbl7:

Iftan-1（Abs（H+1.55-A）÷（J-3.23））-20.0944≦0:

ThenGoto8:

ElseGoto9:

IfEnd↙

Lbl8:

“R=”:

√（（H+1.55-A）2+（J-3.23）2→R◢

Goto0↙

Lbl9:

Iftan-1（J÷（H+27.622-A））-15.1344≦0:

ThenGoto10:

ElseGoto11:

IfEnd↙

Lbl10:

“R=”:

√（J2+（H+27.622-A）2）→R◢

Goto0↙

Lbl11:

J-6.2139→M◢

“R=”:

√（M2+（H-A+0.0255）2）→R◢

Goto0↙

GC1（高程1？

）

IFL≦147221:

Then52.403→A:

-0.005→I:

24000→R:

147221→O（非零，为大写o）:

146997.56→Q:

Goto1:

ElseGotoA:

IfEnd↙

LbI1↙

IfL<0:

Then0→K:

Goto0:

Else1→K:

Goto0:

IfEnd↙

LbIA↙

IFL≦147444.44:

Then52.403→A:

-0.02362→I:

24000→R:

147221→O（非零，为大写:

147444.44→Q:

1→K:

Goto0:

ElseGotoB:

IfEnd↙

LbIB↙

IFL≦148000:

Then70.803→A:

-0.02362→I:

160000→R:

148000→O（非零，为大写o）:

147574.4→Q:

Goto2:

ElseGotoC:

IfEnd↙

LbI2↙

IfL<0:

Then0→K:

Goto0:

Else-1→K:

Goto0:

IfEnd↙

LbIC↙

IFL≦148425.6:

Then70.803→A:

-0.0183→I:

160000→R:

148000→O（非零，为大写:

148425.6→Q:

-1→K:

Goto0:

ElseGotoD:

IfEnd↙

LbID↙

IFL≦149000:

Then89.103→A:

-0.0183→I:

50000→R:

149000→O（非零，为大写o）:

148707.5→Q:

Goto3:

ElseGotoE:

IfEnd↙

LbI3↙

IfL<0:

Then0→K:

Goto0:

Else1→K:

Goto0:

IfEnd↙

LbIE↙

IFL≦149292.5:

Then89.103→A:

0.03→I:

50000→R:

149000→O（非零，为大写:

149295.5→Q:

1→K:

Goto0:

ElseGotoF:

IfEnd↙

LbIF↙

IFL≦149900:

Then116.103→A:

-0.03→I:

22086.957→R:

149900→O（非零，为大写o）:

149646→Q:

Goto4:

ElseGotoG:

IfEnd↙

LbI4↙

IfL<0:

Then0→K:

Goto0:

Else-1→K:

Goto0:

IfEnd↙

LbIG↙

IFL≦150154:

Then116.103→A:

0.007→I:

22086.957→R:

149000→O（非零，为大写:

150154→Q:

-1→K:

Goto0:

ElseGotoH:

IfEnd↙

LbIH↙

IFL≦150450:

Then119.953→A:

-0.007→I:

16000→R:

150450→O（非零，为大写o）:

150154→Q:

-1→K:

Goto0:

ElseGotoI:

IfEnd↙

LbII↙

IFL≦150746:

Then119.953→A:

-0.03→I:

16000→R:

150450→O（非零，为大写o）:

150746→Q:

-1→K:

Goto0:

ElseGotoJ:

IfEnd↙

LbIJ↙

IFL≦151200:

Then97.453→A:

-0.03→I:

27000→R:

151200→O（非零，为大写o）:

150961.05→Q:

Goto5:

ElseGotoK:

IfEnd↙

LbI5↙

IfL<0:

Then0→K:

Goto0:

Else1→K:

Goto0:

IfEnd↙

LbIK↙

IFL≦151438.95:

Then97.453→A:

-0.0123→I:

27000→R:

151200→O（非零，为大写o）:

151438.95→Q:

1→K:

Goto0:

ElseGotoL:

IfEnd↙

LbIL↙

IFL≦151800:

Then90.074→A:

0.0123→I:

17070.922→R:

151800→O（非零，为大写o）:

151438.95→Q:

1→K:

Goto0:

ElseGotoM:

IfEnd↙

LbIM↙

IFL≦152161.05:

Then90.074→A:

0.03→I:

17070.922→R:

151800→O（非零，为大写o）:

152161.05→Q:

1→K:

Goto0:

ElseGotoN:

IfEnd↙

LbIN↙

IFL≦152650:

Then115.574→A:

-0.03→I:

12000→R:

152650→O（非零，为大写o）:

152338→Q:

Goto6:

ElseGotoO:

IfEnd↙

LbI6↙

IfL<0:

Then0→K:

Goto0:

Else1→K:

Goto0:

IfEnd↙

LbIO↙

IFL≦152962:

Then115.574→A:

-0.022→I:

12000→R:

152650→O（非零，为大写o）:

152962→Q:

-1→K:

Goto0:

ElseGotoP:

IfEnd↙

LbIP↙

IFL≦153350:

Then100.174→A:

0.022→I:

18000→R:

153350→O（非零，为大写o）:

153101.15→Q:

Goto7:

ElseGotoQ:

IfEnd↙

LbI7↙

IfL<0:

Then0→K:

Goto0:

Else1→K:

Goto0:

IfEnd↙

LbIQ↙

IFL≦153598.85:

Then100.174→A:

0.00565→I:

18000→R:

153350→O（非零，为大写o）:

153598.85→Q:

1→K:

Goto0:

ElseGotoR:

IfEnd↙

LbIR↙

IFL≦155500:

Then112.329→A:

-0.00565→I:

19000→R:

155500→O（非零，为大写o）:

15587.675→Q:

Goto8:

ElseGotoS:

IfEnd↙

LbI8↙

IfL<0:

Then0→K:

Goto0:

Else1→K:

Goto0:

IfEnd↙

LbIS↙

IFL≦155712.325:

Then112.329→A:

0.028→I:

19000→R:

155500→O（非零，为大写o）:

155712.325→Q:

1→K:

Goto0:

IfEnd↙

LbI0↙

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

GC2（高程2？

）

IFL≦1156300:

Then134.729→A:

-0.028→I:

140000→R:

1156300→O（非零，为大写o）:

1155843.6→Q:

Goto9:

ElseGotoA:

IfEnd↙

LbI9↙

IfL<0:

Then0→K:

Goto0:

Else-1→K:

Goto0:

IfEnd↙

LbIA↙

IFL≦1156756.4:

Then134.729→A:

-0.02148→I:

140000→R:

1156300→O（非零，为大写o）:

1156756.4→Q:

-1→K:

Goto0:

ElseGotoB:

IfEnd↙

LbIB↙

IFL≦1157270:

Then155.569→A:

-0.02148→I:

25000→R:

157270→O（非零，为大写o）:

1156958.625→Q:

Goto2:

ElseGotoC:

IfEnd↙

LbI2↙

IfL<0:

Then0→K:

Goto0:

Else-1→K:

Goto0:

IfEnd↙

LbIC↙

IFL≦1157581.375:

Then155.569→A:

-0.00343→I:

25000→R:

1157270→O（非零，为大写o）:

1157581.375→Q:

-1→K:

Goto0:

ElseGotoD:

IfEnd↙

LbID↙

IFL≦1159800:

Then146.895→A:

0.00343→I:

60000→R:

115900→O（非零，为大写o）:

1159122.9→Q:

Goto3:

IfEnd↙

LbI3↙

IfL<0:

Then0→K:

Goto0:

Else-1→K:

Goto0:

IfEnd↙

LbI0↙

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

GC3（高程3？

）

IFL≦156300:

Then134.729→A:

-0.028→I:

110000→R:

156300→O（非零，为大写o）:

1155830.85→Q:

Goto1:

ElseGotoA:

IfEnd↙

LbI1↙

IfL<0:

Then0→K:

Goto0:

Else-1→K:

Goto0:

IfEnd↙

LbIA↙

IFL≦156769.15:

Then134.729→A:

0.01947→I:

110000→R:

156300→O（非零，为大写o）:

156769.15→Q:

-1→K:

Goto0:

ElseGotoB:

IfEnd↙

LbIB↙

IFL≦157300:

Then154.199→A:

-0.01947→I:

25000→R:

157300→O（非零，为大写o）:

157010.25→Q:

Goto2:

ElseGotoC:

IfEnd↙

LbI2↙

IfL<0:

Then0→K:

Goto0:

Else-1→K:

Goto0:

IfEnd↙

LbIC↙

IFL≦157589.75:

Then154.199→A:

-0.00371→I:

25000→R:

157300→O（非零，为大写o）:

157589.75→Q:

-1→K:

Goto0:

ElseGotoD:

IfEnd↙

LbID↙

IFL≦159720:

Then145.215→A:

0.00371→I:

62000→R:

159720→O（非零，为大写o）:

159091.01→Q:

Goto4:

ElseGotoE:

IfEnd↙

LbI4↙

IfL<0:

Then0→K:

Goto0:

Else-1→K:

Goto0:

IfEnd↙

LbI0↙

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

GCSJK（高程数据库？

）

IFK≦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:

Goto3:

IfEnd↙

IFK≦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:

Goto3:

IfEnd↙

LbI3↙

IFK

Then0→Z:

I→P:

Goto4:

IfEnd↙

IFK

Then1→Z:

I→P:

Goto4:

IfEnd↙

IFK

Then1→Z:

W→P:

Goto4:

IfEnd↙

IFK>B:

Then0→Z:

W→P:

Goto4:

IfEnd↙

LbI4:

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:

IfV>10:

ThenProg“GL-JY-ZS”:

ElseProg“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:

LpWhileV>0.001

GL-JY-ZS（什么正算？

）

0.7886751346→E:

1-E→F:

Q+ErO（C+ED）→E:

Q+ErO（C+FD）→F:

X+O（cos（E）+cos（F））÷2→X:

Y+O（sin（E）+sin（F））÷2→Y:

Q+Or（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+KrO（C+KD）→K:

Q+ErO（C+ED）→E:

Q+FrO（C+FD）→F:

Q+MrO（C+MD）→M:

X+O（Icos（K）+Jcos（E）+Icos（M））→X:

Y+O（Isin（K）+Jsin（E）+Isin（M））→Y:

Q+Or（C+D）→Q:

GLZUOBIAO-1（表示什么？

）

IfL≤154246.087:

ThenGotoA:

ElseGoto1:

IfEnd↙

LbI1↙

IfL≤160350:

ThenGotoB:

ElseGotoC:

IfEnd↙

LbIA↙

Prog“YZB”↙

Goto5↙

LbIB↙

Prog“ZB2”↙

Goto5↙

LbIC↙

Prog“ZZB”↙

Goto5↙

LbI5↙

IfW<1:

ThenV-180→V:

Goto3:

ElseGoto3:

IfEnd↙

LbI3↙

IfV<90:

Then360+V→V:

ElseV→V:

IfEnd↙

PMSJK（平面数据库?

）

IF

L≦156981.234:

Then590888.498→X:

533021.975→Y:

10^（46）→P:

1545.627→R:

175→H:

156806.234→O:

289°14′14.5″→Q:

Return:

IfEnd↙

IFL≦157432.396:

Then590949.257→X:

532857.886→Y:

1545.627→P:

1545.627→R:

451.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:

175→H:

157432.396→O:

309°12′19.3″→Q:

Return:

IfEnd↙

IFL≦158977.376:

Then591295.382→X:

532340.588→Y:

10^（46）→P:

10^（46）→R:

1369.98→H:

157607.396→O:

312°26′56.2″→Q:

Return:

IfEnd↙

YQX（右曲线？

）

Abs（L-O）→H:

S2÷（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（右线竖曲线？

）

LbI0↙

Cls:

“K=”?

K:

IFK<159091.01:

Then154.199→G：

157300→B：

25000→R：

289.750→T:

0.01947→I:

-0.00371→J:

B-K→C:

1-F:

I>J=>-1→F:

Goto3:

IfEng↙

IFK<161600:

Then145.215→G：

159720→B：

62000→R：

628.990→T:

-0.00371→I:

-0.024→J:

B-K→C:

I>J=>-1→F:

Goto3:

IfEng↙

LbI3:

IFK

Then0→A:

I→P:

Goto4:

IfEng:

IFK

Then1→A:

I→P:

Goto4:

IfEng:

IFK

Then1→A:

J→P:

Goto4:

IfEng:

IFK>B:

Then0→A:

J→P:

Goto4:

IfEng↙

LbI4:

G-CP+AF（T-Abs（C））2÷2÷R→H:

“H”:

H◢

Goto0↙

ZXSQX（左线竖曲线？

）

LbI6↙

Cls:

“K=”?

K:

IFK<159122.9:

Then155.569→G：

157270→B：

25000→R：

311.375→T:

0.02148→I:

-0.00343→J:

B-K→C:

1→F:

I>J=>-1→F:

Goto7:

IfEng↙

IFK<160477:

Then146.895→G：

159800→B：

60000→R：

677.1→T:

-0.00343→I:

-0.026→J:

B-K→C:

-1→F:

Goto7:

IfEng↙

LbI7:

IFK

Then0→A:

I→P:

Goto8:

IfEng:

IFK

Then1→A:

I→P:

Goto8:

IfEng:

IFK

Then1→A:

J→P:

Goto8:

IfEng:

IFK>B:

Then0→A:

J→P:

Goto8:

↙

LbI8:

G-CP+AF（T-Abs（C））2÷2÷R→H:

“H”:

H◢

Goto6↙

ZB2（表示什么？

）

IfL≦154426.087:

ThenGotoA:

ElseGoto1:

IfEng↙

LbI1↙

IfL≦155115.597:

ThenGotoB:

ElseGoto2:

IfEng↙

LbI2↙

IfL≦155265.597:

ThenGotoC:

ElseGoto3:

IfEng↙

LbI3↙

IfL≦155620.15:

ThenGotoD:

ElseGoto4:

IfEng↙

LbI4↙

IfL≦155790.15:

ThenGotoE:

ElseGoto5:

IfEng↙

LbI5↙

IfL≦156656.233:

ThenGotoF:

ElseGoto6:

IfEng↙

LbI6↙

IfL≦156806.233:

ThenGotoG:

ElseGoto7:

IfEng↙

LbI7↙

IfL≦157432.399:

ThenGotoH:

ElseGoto8:

IfEng↙

LbI8↙

IfL≦157607.399:

ThenGotoI:

ElseGoto9:

IfEng↙

LbI9↙

IfL≦158977.376:

ThenGotoJ:

ElseGoto0:

IfEng↙

LbI0↙

IfL≦160298.935:

ThenGotoK↙

LbIA↙

58874.9732→A:

534215.4827→B:

1608.999→R:

180→S:

154426.087→O:

183°37′56.5″→Z:

-1→K:

-1→