边坡开挖即开口线放样

1、边坡开挖(按 5级坡设计变量 Deg : Fix 3 /基本设置Lbl 1 /标记 1 SJX= ? P: SJY= ? Q : QPDG ? H : /设计中桩坐标及竖曲线高程 CDX=,0 END ? X While X 0 /输入 0时程序终止 CDY= ? Y : DMG= ? Z 1 /实测边坡坐标及高程30 Z 2: / 路基半幅宽度1.5 Z 3: / 一 级碎落台宽度1.5 Z 4: / 二 级碎落台宽度。 。 。 。 。 。 。 。 。 。 。 。 。 。 / 三 级碎落台宽度。 。 。 。 。 。 。 。 。 。 。 。 。 。 / 四 级碎落台宽度0.75 Z 7: /

2、一 级坡设计坡度值(从低至高1 Z 8: / 二 级坡设计坡度值1.25 Z 9: / 三 级坡设计坡度值。 。 。 。 。 。 。 。 。 。 。 。 。 。 / 四 级坡设计坡度值。 。 。 。 。 。 。 。 。 。 。 。 。 。 / 五 级坡设计坡度值8 Z 12: / 一 级坡设计高度10 Z 13: / 二 级坡设计高度。 。 。 。 。 。 。 。 。 。 。 。 / 三 级坡设计高度。 。 。 。 。 。 。 。 。 。 。 。 / 四 级坡设计高度Z 7×Z 12 Z 16: / 求出 一 级坡设计宽度Z 8×Z 13 Z 17: / 求出 二 级坡设计

3、宽度。 。 。 。 。 。 。 。 。 。 。 。 / 求出 三 级坡设计宽度。 。 。 。 。 。 。 。 。 。 。 。 / 求出 四 级坡设计宽度1.5 Z 21 / 填筑区 一 级坡设计斜坡坡度(从顶至低 。 。 。 。 。 。 。 。 。 /填筑区 二 级坡设计斜坡坡度Pol(X - P, Y - Q:Cls ZX DIST(m= :I Z 30 / 利用反直角函数求出实测点位距中桩的距离 Z 1- H Z 20: gaocha= : Z20/ 求出 实测山体与起坡点的高差(厚度If Z30< Z2: Then Goto 2:Else If Z20> 0: Then Go

4、to 3: Else If Z20 0: Then Goto 4: IfEnd :IfEnd: IfEnd / 根据离中桩距离及高差判别位置并条件转移Lbl 2 If Z20> 0 : Then KW = : Z20Else TZ = :Abs( Z20 IfEnd / 路基半幅宽度范围内,填筑高度或开挖深度Goto 1 Lbl 3 If Z 30 Z 2+Z 16:Then Z 1-(H + (Z30- Z 2 ÷Z 7 Z 26: Goto 5: IfEnd /一级斜坡范围内开挖深度If Z30> Z2+Z 16And Z30 Z 2+Z 16+ Z3:Then Z

5、1-(H + Z12 Z 26: Goto 5: IfEnd /一级平台范围内开挖深度If Z30> Z2+Z 16+ Z3 And Z30 Z 2+Z 16+ Z3 + Z 17:Then Z 1-(H + Z 12+(Z30-(Z 2+Z 16+ Z 3 ÷Z 8 Z 26: Goto 5: IfEnd /二级斜坡范围内开挖深度If Z30> Z2+Z 16+ Z3+ Z17 And Z30 Z 2+Z 16 + Z3+ Z17+ Z4:Then Z1-(H + Z12+ Z13 Z 26: Goto 5: IfEnd /二级平台范围内开挖深度If Z30> Z

6、2+Z 16+ Z3+ Z17+ Z4 And Z30 100: Then Z1-(H + Z12+ Z13+(Z30- (Z2+Z 16+ Z3+Z 17+ Z4 ÷ Z9 Z 26: Goto 5: IfEnd /三级斜坡范围内开挖深度Lbl 4 Abs(Z21×Z 20+ Z2 Z 27: Goto 6: IfEnd /填筑区坡脚线距离Lbl 5 If Z20< Z12: Then Z7× Z20+ Z2 Z 27: Goto 6: IfEnd /一级坡范围内开口线距离If Z20 Z 12 And Z20< Z12+ Z13:Then Z7&#

7、215;Z 12 + Z8×(Z20- Z12+ Z2+ Z3 Z 27: Goto 6:IfEnd /二级坡范围内开口线距离If Z20 Z 12+ Z13:Then Z7×Z 12+ Z8×Z 13+ Z 9×( Z 20- Z 12-Z 13 + Z 2+ Z 3+Z 4 Z 27: Goto 6: IfEnd /三级坡范围内开口线距离Lbl 6 If Z20< 0 : Then T= : Abs(Z20 /填筑高度显示Else If Z26> 0 : Then KW= : Z26 /开挖深度显示Else If Z26< 0 : Then Di= : Abs(Z26 / 超挖或设计线外与设计线差显示IfEnd :IfEnd: IfEnd /斜面或边坡上开挖及填筑深度显示 KK ZZ KD= : Z27 /开口线或坡脚线距