导流洞工程反算及超欠挖程序.doc

任意坐标正反算及隧道超欠挖程序 ZCX(主程序) Lbl 4: Clrvar:“1→ZS,2→FS,3→CQW”?N:(选择计算模式，1为正算，2为反算，3为超欠挖)N=1=Goto 1:N=2=Goto 2:N=3=Goto 3：N1 or N＞3=Goto 4： Lbl 1:“K=”? S：“P=”? Z：Prog “PM-SJ”：Abs(S-O)→W：Prog “SUB1”：“X=”： Locate 4,4,X: “Y=”：Locate 4,4,Y:F-90→F:“F=”: Locate 4,4,F°:Prog“SQX-SJ”：Prog“SQX-GC”：“H=”：Locate 4,4,H：◢ Goto 4： (正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=) Lbl 2:？S:“X=”? X：“Y=”？ Y:Prog“PM-SJ”：X→I：Y→J：Prog“SUB2”：O+W→S:“K=”：Locate 4,4, S ：“P=“：Locate 4,4, Z：:F-90→F:“F=”: Locate 4,4,F°:Prog“SQX-SJ”：Prog“SQX-GC”“H=”：Locate 4,4, H ◢ Goto 4： (反算-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=，其中S为设定的已知里程接近于测设里程，但必须在线元之内) Lbl 3:？S:“X=”?X：“Y=”？Y:Prog“PM-SJ”：X→I：Y→J：Prog SUB2：O+W→S: “K=：Locate 4,4, S ：“P=”：Locate 4,4, Z:Prog“SQX-SJ”：Prog“SQX-GC”：“H=”：Locate 4,4, H◢ ? F:Prog“CQW”:“W=”:Locate 4,4,W◢（当围岩类别不同，断面可能由方形变成圆形或椭圆形时，设置条件转移进入不同数据库或进入数据库后设置条件） Goto 4： (超欠挖-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=、输入实测高程H1=、显示超欠挖值及第几圆心上CQ→Y？=) 其中的S表示近似与测量点的里程，必须不能跨线元 SUB1(正算子程序) 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+Zcos(F)→X：Y+Zsin(F)→Y SUB2(反算子程序) G-90→T： Abs((Y-V)cos(T)-(X-U)sin(T))→ W：0→Z：Lbl 0：Prog “SUB1：T+QEW(C+WD) →L：(J-Y)cos(L)-(I-X)sin(L)→Z：If Abs(Z)1E-6(注：此处1E-6可输入0.000001)：then Goto 1：Else W+Z→W：Goto 0：IfEnd Lbl 1：0→Z：Prog “SUB1”：(J-Y)÷sin(F)→Z SQX-SJ（子程序名-竖曲线数据库） If S≤995 (竖曲线终点里程)And S≥0(竖曲线起点里程)：Then -0.025262（大里程坡度或前坡度，上坡正，下坡负）→E：-0.025262（小里程坡度或前坡度，上坡正，下坡负）→F：0（变坡点里程）→B：1698(变坡点高程)→G：1045(竖曲线半径)→R：0（横坡比）→I：{Prog“SQX-GC”:}IfEnd 注意： 有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。 本子程序既考虑纵坡又考虑了横坡； SQX-GC（子程序-竖曲线数据库） ？N:E-F→J：R×Abs(J)÷2→T :（如果横坡都一样则直接赋值） If J＞0：then 1→P：Elss -1→P：IfEnd:(判断是凹凸曲线) If SB-T：then B-S→L：G-LF-N→H：IfEnd: If S≥B-T and SB：then B-S→L：（T-L)2/2R→K：G-LF+PK-N→ H：IfEnd: If