5800万能隧道程序

《5800万能隧道程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、5800万能隧道程序1,主程序Lbl0："1.SZ=>XY"："2.XY=>SZ"：？T：？S：Prog“SUB0”↙1÷P→C:(P-R)÷(2HPR)→D:180÷∏→E:T=1=>Goto1：Goto2：↙Lbl1:“LICHENG=”？K：“BANJNG=”？P：“PIANJIN=”？S：：Abs(S-O)→W：Prog"SUB1"↙Prog"GC"：G+√¯(P²－S²)+1.66◢"XS="：X◢"YS="：Y◢"ZS="：Z◢F-90→F：“FS=”：F▶DMS◢Goto0Lbl2：Prog“SUB2

2、”↙Prog“YFS3”Goto0↙2.正算子程序(SUB1)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

3、+QEMW(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y3.反算子程序(SUB2)Lbi1∶“BANJING”？P：“X”？X：“Y”？Y：“Z”？Z：X→I：Y→J：G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T))→W：0→Z：Lbl4：Prog"SUB1"：T+QEW(C+WD)→L：(J-Y)cos（L）-(I-X)sin（L）→Z：IFAbs（Z）<0.01：Then0→Z:Prog"SUB1":(J-Y)÷sin（F）→Z:E

4、lseW+Z→W:Goto4:IfEnd↙“LICHENG=”：K◢“PIANJU=”：S◢4小程序(YFS2)Prog“GC”∶“GAOCHA=”∶Z－G－1.66→T◢IfP=0∶ThenProg“YANGGEN仰拱”∶ElseProg“YFS3”↙Goto1∶Return∶Stop↙4小程序(YFS3)Lbi1∶IfT＞0∶ThenAbs(S)－√¯(P²－T²)→W∶Prog“CQW”↙∶ElseGoto2↙Lbi2∶IfAbs(T)＜0000∶ThenProg“AIBIANQIANG矮边墙”∶ElseAb

5、s(S)+3.56－√¯(P²－T²)→W﹙下道﹚∶Prog“CQW”∶Return∶IfEnd↙6小程序(AIBIANQIANG)矮边墙IfS＜0∶ThenAbs(S)－5.12→WAndAbs(T)－1.30→M∶“S”∶M◢∶“+XY,－XZ”∶W◢ElseAbs(S)－5.12→WAndAbs(T)－1.05→M∶“S”∶M◢∶“+XY,－XZ”∶W◢7小程序(YANGGEN)仰拱IfS＜0∶Then2.35+Abs(S)×3%－Abs(T)→W∶Prog“YG仰拱”↙Else2.35－S×3%－Abs(T

6、)→W∶Prog“YG仰拱”↙7，仰拱超高（直线上升或下降）﹙－3%－2%﹚÷﹙4－0﹚→E∶2%+﹙K－0﹚E→B∶IfS＜0∶Then2.35+Abs(S)×B－Abs(T)→W∶Prog“YG仰拱”↙Else2.35－S×B－Abs(T)→W∶Prog“YG仰拱”↙(2%起点坡度)(－3%终点坡度)(4起点里程)(0终点里程)(2.35起拱线距仰拱中心高度)7，仰拱超高（抛物线上升或下降）K－0→X∶4－0→L∶2%+﹙2X÷L－3﹚×﹙﹙2%－－3%﹚×X²÷L²﹚→B↙2.35+Abs(S)×B－Abs(

7、T)→W∶Prog“YG仰拱”↙Else2.35－S×B－Abs(T)→W∶Prog“YG仰拱”↙(2%起点坡度)(－3%终点坡度)(4起点里程)(0终点里程)(2.35起拱线距仰拱中心高度)8小程序(YFS6)洞室Abs(K－0)－√¯(00²－(000－Z)²)→W↙Prog“CQW”(0→洞室的中心桩号)(00→洞室的半径)(000→洞室的圆心到起拱线高度（在起拱线上Z－000,下就000－Z）)9小程序(CQW)“CHAO,(－)QIAN”∶W◢Return∶Stop10小程序(YG仰拱)IfW＞0∶The

8、n“XIA”∶W◢Else“SHANG”∶W◢Return∶Stop11子程序(GC)高程IfK≥93560AndK＜93805∶Then504.33+2.4%(K－93560)→G∶Return∶IfEnd↙IfK≥93805∶Then510.220+2.4%(K－93805.399)－(K－93805.399)²÷2÷18504→G∶Return∶IfE