4800公路中边桩高程计算程序

４８００公路中边桩高程计算程序

fx-4800高等级公路中边桩标高程计算程序

（适用超高方式为有分隔带绕左内侧旋转，无分隔绕线路中心旋转）

随着高等级公路建设的不断发展，对路基施工高程控制要求不断提高，经常在现场要对路基中边桩高程进行测量，由于施工线路较长，高程数据较多，而且只提供设计桩号的高程，对非设计断面的横坡及高程计算相当复杂，因此利用fx-4800计算器的编程功能及扩展变量的储存功能，编制一个程序，可以预先输入整条线路的曲线要素，使用时，只要输入任意点桩号就可以计算中边桩高程。

程序由中桩高程计算主程序和横坡计算子程序组成，程序如下：

1、中桩高程计算程序文件名（ZZGC）

程序说明

Lb1 0

Fix 3

（输入变坡点数） N=?

（输入扩展变量位置数） V=?

M=V

（输入待求桩号） {K}

Lb1 1

K>Z[2+M]-Z[3N+3+M]=> （确定待求桩号在哪个竖曲线内） M=M+1：Goto 1

（读取该竖曲线半径） R=Z[2N+2+M]

（读取该竖曲线切线长） T=Z[3N+2+M]

（读取该变坡点前坡率） I=Z[4N+2+M]÷100

（读取该变坡点后坡率） L=Z[4N+3+M]÷100

（计算待求桩号与该竖曲线起点距离） S=K-Z[1+M]+Z[3N+2+M]

M=V=> （如果桩号在起点与第1竖曲线起点之间，转Lb1 5 ） Goto 5⊿

（计算坡率差） A=I-L

（判断竖曲线凹凸） J=AbsA÷A

S （如果距离在前半曲线内，计算改正值） Y=S^2÷2R ：Goto 2 ⊿

S<2T=> （如果距离在后半曲线内，计算改正值） Y=(2T-S)^2÷2R ：Goto 3 ⊿

Goto4

Lb1 2

H=Z[N+2+M]-I(T-S)- YJ

D"H" =D ◢

Goto 6

Lb1 3

H= Z[N+2+M]+L(S-T)- YJ

D"H" =D ◢

Goto 6

Lb1 4

（在直线内，计算高程） H=Z[N+2+M]+L(K-Z[1+M])

D"H" =D ◢

Goto 6

Lb1 5

I=Z[V+4N+3] ÷100

H=Z[V+N+3]-I(Z[V+2]-K）

D"H" =D ◢

Lb1 6

(输入边桩距离，右正，左负) {B}

Prog "HP js" (转横坡计算子程序，应与横坡计算文件名相同)

Fix 3

B<0=> D=D-QAbsB÷100 ：Goto 7 ⊿

B>0=> D=D-PAbsB÷100 ：Goto 8 ⊿

Lb1 7

D"ZBH" =D ◢（显示左边桩高程）

Goto 0

Lb1 8

D"YBH" =D ◢（显示右边桩高程）

Norm：1

Goto 0

中桩高程计算程序扩展变量设置表

起点第1变坡点第2变坡点第3变坡点第n变坡点终点

里程Z[V+1]Z[V+2]Z[V+3]Z[V+4]Z[V+n+1] Z[V+n+2]

高程Z [V+n+3]Z[V+n+4]Z[V+n+5]Z[V+2n+2]

R 竖曲线半径Z[V+2n+3] Z[V+2n+4] Z[V+2n+5] Z[V+3n+2]

T（竖曲线切线长） Z[V+3n+3] Z[V+3n+4] Z[V+3n+5] Z[V+4n+2]

I （坡率）Z[V+4n+3] Z[V+4n+4] Z[V+4n+5] Z[V+5n+2] Z[V+5n+3]

2、横坡计算程序文件名（HP js）

程序说明

Lb1 0

（输入平曲线交点数） N=?

（输入标准横坡值） I=?

（输入LC值） T=?

（输入扩展变量位置） V=?

M=V

(输入桩号,如作为子程序使用则无此行) {K}

Lb1 1

K>Z[2+M] => M=M+1 ：Goto 1 ⊿

（读取平曲线全长） L=Z[N+2+M]

（读取LS1） E=Z[2N+2+M]

（读取LS2） F=Z[3N+2+M]

（读取标准超高值） H=Z[4N+2+M]

（读取线路偏向，右=1，左=-1） A=Z[5N+2+M]

S=K-Z[M+1]

M=V=> P=I ：Q=I ：Goto 7 ⊿

E=0=> （无LS则不设超高） P=I ：Q=I ： Goto 7 ⊿

S≤T=> （如果该点在第1 Lc内，转Lb2） S=S ： Goto 2 ⊿

S≤E=> （如果该点在 Lc-Ls1终点，转Lb3） S=S-T ：Goto 3 ⊿

S≤L-F=> （如果该点在圆曲线内，转Lb4） Goto 4 ⊿

S≤L-T=> （如果该点在 Ls2起点-Lc，转Lb 5） S=S-(L-F) ：Goto 5 ⊿S≤L=> （如果该点在第2Lc内，转Lb6） S=T-(L-S) ：Goto 6 ⊿

（在直线） P=I ：Q=I ： Goto 7

Lb1 2

A=1=> （右偏） P=I ：Q=I-2IS÷T ： Goto 7 ⊿

A=-1=> （左偏） P= I-2IS÷T ：Q=I ：Goto 7 ⊿

Lb1 3

A=1=> P=I+S(H-I) ÷(E-T) ：Q=-P ： Goto 7 ⊿

A=-1=> P=-I- S(H-I) ÷(E-T) ：Q=-P ： Goto 7 ⊿

Lb1 4

A=1=> P=H ：Q=-H ： Goto 7 ⊿

A=-1=> P=-H ：Q=H ： Goto 7 ⊿

Lb1 5

A=1=> P=H-S(H-I) ÷(F-T)：Q=-P ： Goto 7 ⊿

A=-1=> P=-H+S(H-I) ÷(F-T)：Q=-P ： Goto 7 ⊿

Lb1 6

A=1=> P=I：Q=-I+2IS÷T ： Goto 7 ⊿

A=-1=> P=-I+2IS÷T ：Q=I ： Goto 7 ⊿

Lb1 7

Fix 3

P"YI"=P ◢（显示右横坡，如不需显示则无“◢”）Q"ZI"=Q ◢（显示左横坡，如不需显示则无“◢”）

Norm ：1

(如作为子程序使用则无此行) Goto 0

横坡计算程序扩展变量设置表

起点第1交点第2交点第3交点第Z交点终点

线路起点、

曲线起点、

线路终点桩号 Z[V+1] Z[V+2] Z[V+3] Z[V+4] Z[V+Z+1] Z[V+Z+2]

L (平曲线全长) Z[V+Z+3] Z[V+Z+4] Z[V+Z+5] Z[V+2Z+2]

LS1 Z[V+2Z+3] Z[V+2Z+4] Z[V+2Z+5] Z[V+3Z+2]

LS2 Z[V+3Z+3] Z[V+3Z+4] Z[V+3Z+5] Z[V+4Z+2]

i (标准超高值) Z[V+4Z+3] Z[V+4Z+4] Z[V+4Z+5] Z[V+5Z+2]

偏转方向

(右偏=1，左偏=-1) Z[V+5Z+3] Z[V+5Z+4] Z[V+5Z+5] Z[V+6Z+2]