5800正反算、边坡放样、隧道测量程序

《5800正反算、边坡放样、隧道测量程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、WORD文档可编辑正算主程序(ZS)FIX4：?S：?Z：Prog“PM-SJ”：Abs(S-O)→W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F(需要时可以让他显示)：Prog“SQX-SJ”:Prog“SQX”：“H=”：H◢反算主程序(FS)FIX4:?S：?X：？Y：Prog“PM-SJ”：X→I：Y→J：Prog "SUB2"："S="：O+W→S◢"Z="：Z◢Prog“SQX-SJ”：Prog“SQX”：“H=”：H◢边坡放样主程序（BP-FY）Lb10：Pro

2、g“ZS”：“H-BG”（中桩与坡脚起算点高差值，比中桩高正，反之负）?A：H+A→B：?P（实测点高程）：?L（坡脚起算点到中桩的距离）：0.75（挖方时一级坡度）→C：1（挖方时二级坡度）→D：1.5（挖方时三级坡度）→E：8（挖方时一级坡高）→G：10（挖方时二级坡高）→M：15（挖方时三级坡高）→N：2（平台宽度）→K：1（填方时一级坡度）→I：1.5（填方时二级坡度）→J：2（填方时三级坡度）→O：2（填方时一级坡高）→Q：8（填方时二级坡高）→R：10（填方时三级坡高）→T：ifP＞B：t

3、henGoto1：ElseGoto2Lb11：ifP＞B：thenL+C（P-B）→U：P-B→F：IfEnd←┘ifP＞B+G：thenL+CG+K+D（P-B-G）→U：P-B-G→F：IfEnd←┘ifP＞B+G+M：thenL+GC+2k+MD+E（P-B-G-M）→U：P-B–G-M→F：IfEnd：Goto3←┘技术资料专业分享WORD文档可编辑Lb12：ifP≤B：thenL+I（B-P）→U：B-P→F：IfEnd←┘ifP≤B-Q：thenL+IQ+K+J（B-Q-P）→U：B-Q-

4、P→F：IfEnd←┘ifP≤B-Q-R：thenL+IQ+2k+JR+O（B-Q-R-P）→U：B-Q-R-P→F：IfEnd：Goto3←┘Lb13：U-AbsZ→V：ifZ＜0：thenZ-V→Z：Elsez+v→z：IfEnd←┘“Z=”：Z◢计算得出正确的宽度，路线左为负，右为正。“V=”V◢宽度调整值，正为远离中线，负为向中线靠近。“PT=”：F◢距离即将到达的填挖方平台的高度。注：由于路基的宽度和超高情况较为复杂，因此该程序的缺点是不能自动计算路基宽度和路基边缘坡脚起算点的设计高程，需要

5、手算坡脚起算点与中桩的宽度及与中桩的高差。算例；S?700（放样点桩号）Z？-15（试算宽度）X=19839.5817Y=28515.5010H=107.144H-BG？-0.15（边缘起算点的高程比中桩低0.15）p?150（实测高程）L?12（起算边缘点距中桩的距离）Z=-69.509（计算得出正确的宽度）V=54.509（远离中线方向距测点54.509米），PT=25.006（距离平台高度）。然后再次进入下一轮试算，直到V趋近于零。隧道3心圆放样主程序（SD-3XY）Lb10：Prog“FS”：

6、1.5→A：1.65→B：0.89→G：2.27→C：3.3→D：2.41→E：0.51→J：“H1”：F：ifF≤H+A：thenE-AbsZ→W：IfEnd：ifF＞H+AAndF≤H+A+B：then√（D²-（F-H-A）²）-G-AbsZ→W：IfEnd：ifF＞H+A+B：then√（C²-（F-H-A-J）²）-AbsZ→W：IfEnd：“W=”：W◢（水平方向的超欠挖：正为欠,负为超）Goto0技术资料专业分享WORD文档可编辑正算子程序(SUB1)1÷P→C：(P-R)÷(2HPR)

7、→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))

8、)→Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sin（T）)→W：0→Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：ifAbsZ<1E-6：thenGoto1：ElssW+Z→W：Goto 0：IfEnd←┘Lbl 1：0→Z：Prog "SUB1"：(J-Y)÷sinF→Z子程序（