【BPKW-TZ】 //程序标题


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〃