边坡开挖即开口线放样.doc

边坡开挖（按5级坡设计变量）Deg : Fix 3 /基本设置Lbl 1 /标记1SJX=? P: SJY=? Q : QPDG? H : /设计中桩坐标及竖曲线高程 CDX=,0END? X While X 0 /输入0时程序终止CDY=? Y : DMG=? Z1 /实测边坡坐标及高程30 Z2: / 路基半幅宽度1.5 Z3: / 一 级碎落台宽度1.5 Z4: / 二 级碎落台宽度。 / 三 级碎落台宽度。 / 四 级碎落台宽度0.75 Z7: / 一 级坡设计坡度值（从低至高）1 Z8: / 二 级坡设计坡度值1.25 Z9: / 三 级坡设计坡度值。 / 四 级坡设计坡度值。 / 五 级坡设计坡度值8 Z12: / 一 级坡设计高度10 Z13: / 二 级坡设计高度。 / 三 级坡设计高度。 / 四 级坡设计高度Z7Z12Z16: / 求出 一 级坡设计宽度Z8Z13Z17: / 求出 二 级坡设计宽度。 / 求出 三 级坡设计宽度。 / 求出 四 级坡设计宽度1.5 Z21 / 填筑区 一 级坡设计斜坡坡度（从顶至低）。 /填筑区 二 级坡设计斜坡坡度Pol(X - P, Y - Q):Cls ZXDIST(m)= :IZ30 / 利用反直角函数求出实测点位距中桩的距离Z1- HZ20: gaocha=: Z20 / 求出 实测山体与起坡点的高差（厚度）If Z30 0: Then Goto 3:Else If Z20 0: Then Goto 4: IfEnd :IfEnd: IfEnd / 根据离中桩距离及高差判别位置并条件转移Lbl2 If Z20 0 : Then KW =: Z20Else TZ =:Abs( Z20) IfEnd / 路基半幅宽度范围内，填筑高度或开挖深度Goto 1 Lbl 3 If Z30Z2+Z16：Then Z1-(H + (Z30- Z2)Z7)Z26: Goto 5: IfEnd /一级斜坡范围内开挖深度If Z30 Z2+Z16And Z30Z2+Z16+ Z3：Then Z1-(H + Z12) Z26: Goto 5: IfEnd /一级平台范围内开挖深度If Z30 Z2+Z16+ Z3 And Z30Z2+Z16+ Z3+ Z17：Then Z1-(H + Z12+(Z30-( Z2+Z16+ Z3) Z8)Z26: Goto 5: IfEnd /二级斜坡范围内开挖深度If Z30 Z2+Z16+ Z3+ Z17 And Z30Z2+Z16+ Z3+ Z17+ Z4：Then Z1-(H + Z12+ Z13)Z26: Goto 5: IfEnd /二级平台范围内开挖深度If Z30 Z2+Z16+ Z3+ Z17+ Z4 And Z30 100：Then Z1-(H + Z12+ Z13+(Z30- (Z2+Z16+ Z3+ Z17+ Z4) Z9)Z26: Goto 5: IfEnd /三级斜坡范围内开挖深度Lbl 4 Abs(Z21Z20)+ Z2Z27: Goto 6: IfEnd /填筑区坡脚线距离Lbl 5 If Z20 Z12: Then Z7 Z20+ Z2Z27: Goto 6: IfEnd /一级坡范围内开口线距离If Z20Z12 And Z20 Z12+ Z13：Then Z7Z12+ Z8(Z20- Z12)+ Z2+ Z3Z27: Goto 6:IfEnd /二级坡范围内开口线距离If Z20Z12+ Z13：Then Z7Z12+ Z8Z13+ Z9( Z20- Z12-Z13) + Z2+ Z3+Z4Z27: Goto 6: IfEnd /三级坡范围内开口线距离Lbl 6 If Z20 0 : Then KW=: Z26 /开挖深度显示Else If Z26 0 : Then Di=: Abs(Z26) / 超挖或设计线外与设计线差显示IfEnd :IfEnd: IfEnd /斜面或边坡上开挖及填筑深度显示KKZZKD=: Z27 /开口线或坡脚线距离显示Z27-Z30Z28