最新5800正反算、边坡放样、隧道超欠挖汇总

5800正反算、边坡放样、隧道超欠挖

正算主程序(ZS)

FIX4：?S：?Z：Prog “PM-SJ”： Abs(S-O)→ W：Prog "SUB1"： "XS="：X◢"YS="：Y◢

F-90→F(需要时可以让他显示)：Pro g“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）

Lb1 0：Prog“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：thenGoto1：Else Goto2

Lb1 1：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：IfEn d：Goto3←┘

Lb1 2：ifP≤B：thenL+I（B -P）→U： B -P→F：IfEn d←┘ifP≤B-Q：thenL+ IQ+K+J（B-Q-P）→U：B-Q-P→F：IfEnd←┘ifP≤B-Q-R：thenL+IQ+2k+JR+O（B-Q-R-P）→U：B-Q-R-P→F：IfEn d：Goto3←┘

Lb1 3：U-AbsZ→V：ifZ＜0：thenZ-V→Z：Else z+v→z：IfEnd←┘

“Z=”：Z◢计算得出正确的宽度，路线左为负，右为正。

“V=”V◢宽度调整值，正为远离中线，负为向中线靠近。

“PT=”：F◢距离即将到达的填挖方平台的高度。

注：由于路基的宽度和超高情况较为复杂，因此该程序的缺点是不能自动计算路基宽度和路基边缘坡脚起算点的设计高程，需要手算坡脚起算点与中桩的宽度及与中桩的高差。

算例；S? 700（放样点桩号） Z？-15（试算宽度） X=19839.5817 Y=28515.5 010 H=107.144 H-BG？ -0.15（边缘起算点的高程比中桩低0.15） p?150（实测高程）L? 12（起算边缘点距中桩的距离） Z=-69.509（计算得出正确的宽度）V =54.509（远离中线方向距测点54.509米），PT=25.006（距离平台高度）。然后再次进入下一轮试算，直到V趋近于零。

隧道3心圆放样主程序（SD-3XY）

Lb1 0：Prog“FS”：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：then E-AbsZ→W：IfEn d：ifF＞H+A And F≤H+A+B：t hen√（D²-（F-H-A）²）-G-AbsZ→W：IfEn d：ifF＞H+A+B：then√（C²-（F-H -A-J）²）-AbsZ→W：IfEn d：“W=”：W◢（水平方向的超欠挖：正为欠,负为超）Goto0

正算子程序(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))+Aco s(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+QE W(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：Els sW+Z → W：Goto 0：IfEnd←┘

Lbl 1： 0→ Z：Prog "SUB1"： (J-Y)÷sinF→ Z

子程序（平面数据库）PM-SJ

ifS ≥500（线元起点里程）AndS＜769.256（线元止点里程）：Then19942.837→U（线元起点X坐标）：28343.561→V（线元起点Y坐标）：500→O（线元起点里程）：125°16°31°→G（线元起点方位角）：269.265→H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0→Q（线元左右偏标志：左负右正）：IfEnd←┘

ifS ≥769.256（线元起点里程）AndS＜806.748（线元止点里程）：Then19787. 34→U（线元起点X坐标）：28563.378→V（线元起点Y坐标）：769.256→O （线元起点里程）：125°16°31°→G（线元起点方位角）：37.492→H（线元长度）：10^（45）→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘

ifS ≥806.748（线元起点里程）AndS＜919.527（线元止点里程）：Then19766. 566→U（线元起点X坐标）：28584.574→V（线元起点Y坐标）：806.748→O （线元起点里程）：120°25°54.07°→G（线元起点方位角）：112.779→H（线元长度）：221.75→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q （线元左右偏标志：左负右正）：IfEnd←┘