邊坡開挖即開口線放樣

1、邊坡開挖(按 5級坡設(shè)計變量 Deg : Fix 3 /基本設(shè)置Lbl 1 /標(biāo)記 1 SJX= ? P: SJY= ? Q : QPDG ? H : /設(shè)計中樁坐標(biāo)及豎曲線高程 CDX=,0 END ? X While X 0 /輸入 0時程序終止 CDY= ? Y : DMG= ? Z 1 /實測邊坡坐標(biāo)及高程30 Z 2: / 路基半幅寬度1.5 Z 3: / 一 級碎落臺寬度1.5 Z 4: / 二 級碎落臺寬度。 。 。 。 。 。 。 。 。 。 。 。 。 。 / 三 級碎落臺寬度。 。 。 。 。 。 。 。 。 。 。 。 。 。 / 四 級碎落臺寬度0.75 Z 7: /

2、一 級坡設(shè)計坡度值(從低至高1 Z 8: / 二 級坡設(shè)計坡度值1.25 Z 9: / 三 級坡設(shè)計坡度值。 。 。 。 。 。 。 。 。 。 。 。 。 。 / 四 級坡設(shè)計坡度值。 。 。 。 。 。 。 。 。 。 。 。 。 。 / 五 級坡設(shè)計坡度值8 Z 12: / 一 級坡設(shè)計高度10 Z 13: / 二 級坡設(shè)計高度。 。 。 。 。 。 。 。 。 。 。 。 / 三 級坡設(shè)計高度。 。 。 。 。 。 。 。 。 。 。 。 / 四 級坡設(shè)計高度Z 7×Z 12 Z 16: / 求出 一 級坡設(shè)計寬度Z 8×Z 13 Z 17: / 求出 二 級坡設(shè)計

3、寬度。 。 。 。 。 。 。 。 。 。 。 。 / 求出 三 級坡設(shè)計寬度。 。 。 。 。 。 。 。 。 。 。 。 / 求出 四 級坡設(shè)計寬度1.5 Z 21 / 填筑區(qū) 一 級坡設(shè)計斜坡坡度(從頂至低 。 。 。 。 。 。 。 。 。 /填筑區(qū) 二 級坡設(shè)計斜坡坡度Pol(X - P, Y - Q:Cls ZX DIST(m= :I Z 30 / 利用反直角函數(shù)求出實測點位距中樁的距離 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 / 根據(jù)離中樁距離及高差判別位置并條件轉(zhuǎn)移Lbl 2 If Z20> 0 : Then KW = : Z20Else TZ = :Abs( Z20 IfEnd / 路基半幅寬度范圍內(nèi),填筑高度或開挖深度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 /一級斜坡范圍內(nèi)開挖深度If Z30> Z2+Z 16And Z30 Z 2+Z 16+ Z3:Then Z

5、1-(H + Z12 Z 26: Goto 5: IfEnd /一級平臺范圍內(nèi)開挖深度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 /二級斜坡范圍內(nèi)開挖深度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 /二級平臺范圍內(nèi)開挖深度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 /三級斜坡范圍內(nèi)開挖深度Lbl 4 Abs(Z21×Z 20+ Z2 Z 27: Goto 6: IfEnd /填筑區(qū)坡腳線距離Lbl 5 If Z20< Z12: Then Z7× Z20+ Z2 Z 27: Goto 6: IfEnd /一級坡范圍內(nèi)開口線距離If Z20 Z 12 And Z20< Z12+ Z13:Then Z7&#

7、215;Z 12 + Z8×(Z20- Z12+ Z2+ Z3 Z 27: Goto 6:IfEnd /二級坡范圍內(nèi)開口線距離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 /三級坡范圍內(nèi)開口線距離Lbl 6 If Z20< 0 : Then T= : Abs(Z20 /填筑高度顯示Else If Z26> 0 : Then KW= : Z26 /開挖深度顯示Else If Z26< 0 : Then Di= : Abs(Z26 / 超挖或設(shè)計線外與設(shè)計線差顯示IfEnd :IfEnd: IfEnd /斜面或邊坡上開挖及填筑深度顯示 KK ZZ KD= : Z27 /開口線或坡腳線距