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

任意坐标正反算及隧道超欠挖程序 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：N 1 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.1座机电话号码6→A：0.座机电话号码74→B:0.0座机电话号码2→ K：0.座机电话号码82→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→E：→F：→B：→G：→R：→I： Prog“SQX-GC”: IfEnd 注意： 有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。→T :（如果横坡都一样则直接赋值） If J＞0：then 1→P：Elss -1→P：IfEnd: 判断是凹凸曲线 If S B-T：then B-S→L：G-LF-N→H：IfEnd: If S≥B-T and S B：then B-S→L：（T-L 2/2R→K：G-LF+PK-N→ H：IfEnd: If S≥B And S B+T： then S-B→L：（T-L 2/2R→K：G+LE+PK-N→H：IfEnd: If S≥B+T ：then S-B→L： G+LF-N→H：IfEnd： H+ZI→H 注：1、竖曲线的高程改正值： T-L 2/2R（T代表切线、L表示变坡点到两侧的纵坡长度）。 2、凹曲线高程：坡道高程加