边坡开挖即开口线放样

边坡开挖（按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］: // 一级坡设计坡度值（从低至高）
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］: // 求出二级坡设计宽度。

// 求出三级坡设计宽度。

// 求出四级坡设计宽度
1.5 →Z［21］↙// 填筑区一级坡设计斜坡坡度（从顶至低）。

//填筑区二级坡设计斜坡坡度
Pol(X - P, Y - Q):Cls ↙
〃ZX→DIST(m)= 〃:I→Z［30］◣// 利用反直角函数求出实测点位距中桩的距离Z［1］- H→Z［20］: 〃gaocha=〃: Z［20］◣
// 求出实测山体与起坡点的高差（厚度）
If Z［30］< Z［2］: Then Goto 2:Else If Z［20］> 0: Then Goto 3:
Else If Z［20］≤0: Then Goto 4: IfEnd :IfEnd: IfEnd ↙
// 根据离中桩距离及高差判别位置并条件转移
Lbl 2 ↙
If Z［20］> 0 : Then 〃KW =〃: Z［20］◣
Else 〃TZ =〃:Abs( Z［20］) ◣
IfEnd ↙// 路基半幅宽度范围内，填筑高度或开挖深度
Goto 1 ↙
Lbl 3 ↙
If Z［30］≤Z［2］+Z［16］：Then Z［1］-(H + (Z［30］- Z［2］)÷Z［7］) →Z［26］: Goto 5: IfEnd ↙
//一级斜坡范围内开挖深度
If Z［30］> Z［2］+Z［16］And Z［30］≤Z［2］+Z［16］+ Z［3］：Then Z ［1］-(H + Z［12］) →Z［26］: Goto 5: IfEnd ↙
//一级平台范围内开挖深度
If Z［30］> Z［2］+Z［16］+ Z［3］ And Z［30］≤Z［2］+Z［16］+ Z［3］+ Z［17］：Then Z［1］-(H + Z［12］+((Z［30］-(Z［2］+Z［16］+ Z［3］)) ÷Z［8］)→Z［26］: Goto 5: IfEnd ↙
//二级斜坡范围内开挖深度
If Z［30］> Z［2］+Z［16］+ Z［3］+ Z［17］ And Z［30］≤Z［2］+Z［16］+ Z［3］+ Z［17］+ Z［4］：Then Z［1］-(H + Z［12］+ Z［13］)→Z［26］: Goto 5: IfEnd ↙
//二级平台范围内开挖深度
If Z［30］> Z［2］+Z［16］+ Z［3］+ Z［17］+ Z［4］ And Z［30］≤100：Then Z［1］-(H + Z［12］+ Z［13］+((Z［30］- (Z［2］+Z［16］+ Z［3］+
Z［17］+ Z［4］))÷ Z［9］)→Z［26］: Goto 5: IfEnd ↙
//三级斜坡范围内开挖深度
Lbl 4 ↙
Abs(Z［21］×Z［20］)+ Z［2］→Z［27］: Goto 6: IfEnd ↙
//填筑区坡脚线距离
Lbl 5 ↙
If Z［20］< Z［12］: Then Z［7］× Z［20］+ Z［2］→Z［27］: Goto 6: IfEnd ↙//一级坡范围内开口线距离
If Z［20］≥Z［12］ And Z［20］< Z［12］+ Z［13］：Then Z［7］×Z［12］+ Z［8］×(Z［20］- Z［12］)+ Z［2］+ Z［3］→Z［27］: Goto 6:
IfEnd ↙//二级坡范围内开口线距离
If Z［20］≥Z［12］+ Z［13］：Then Z［7］×Z［12］+ Z［8］×Z［13］+ Z ［9］×( Z［20］- Z［12］-Z［13］) + Z［2］+ Z［3］+Z［4］→Z［27］: Goto 6: IfEnd ↙//三级坡范围内开口线距离
Lbl 6 ↙
If Z［20］< 0 : Then 〃T=〃: Abs(Z［20］) ◣//填筑高度显示
Else If Z［26］> 0 : Then 〃KW=〃: Z［26］◣ //开挖深度显示
Else If Z［26］< 0 : Then 〃Di=〃: Abs(Z［26］) ◣
// 超挖或设计线外与设计线差显示
IfEnd :IfEnd: IfEnd ↙
//斜面或边坡上开挖及填筑深度显示
〃KK→ZZ⇒KD=〃: Z［27］◣//开口线或坡脚线距离显示
Z［27］-Z［30］→Z［28］↙
If Z［28］< 0 : Then 〃-(m),SUB⇒〃: Abs(Z［28］)◣
Else〃+(m),ADD⇒〃: Z［28］◣//棱镜杆移动的距离
IfEnd ↙
Goto 1: WhileEnd
〃BPKW→END〃。