缓和曲线超高段计算
超高横坡计算公式：
I=Abs(B-A)*2E/Q-E ① I=[Abs(B-A)-Q](D-E)/(C-Q)+E ②
I———缓和曲线内任一横断面超高横坡度(I的正负,抬高边为正,降低边为负)；
B———缓和曲线超高段内任一点里程桩号；A———缓和曲线起点ZH或终点HZ的里程桩号；
E———直线段路拱横坡度，输入时不考虑符号取正值； C———缓和曲线长度（M） ；
D———最大超高段设定的最大超高横坡度，取正值； Abs———绝对值符号；
Q———缓和曲线起（终）点至超高变坡临界面距离，Q=2E/（E+D）*C
程序清单：CGHP（文件名）
Lb1 0：E：D：C：A：L：{BH}：B≤0=> Goto 2⊿ Q=2E/（E+D）*C：Abs(B-A)> Q=> Goto 1⊿
I=Abs(B-A)*2E/Q-E◢ F=H+LI◢ T=H-EL ◢ Goto 0⊿ （计算ZH或HZ至Q之间缓和曲线上任一点超高横坡度及左右边桩F、T之高程，注意须输入与边桩同横断面的中桩高程-中桩高程另算）
Lb1 1：I=(Abs(B-A)-Q)(D-E)/(C-Q)+E◢ F=H+LI◢ T=H-IL ◢ Goto 0⊿（计算Q至HY或YH之间缓和曲线上任意一点超高横坡度及左右边桩之高程，L为半幅路宽，单位为M）
Lb1 2：{EDCAL}：Goto 0 注：输入B≤0重新开始
竖曲线计算
公式：G=H-CP+ZF(T-Abs C)2/2R
程序清单：SHXGC(任意) 内容：Lb1 0：H：B：R：I：J：{L}：T=R?Abs(J-I)/2：
C=B-L：F=1：I>J =>F=-1⊿L≤0=>{HBRIJ}：Goto 0：≠> LZ=0：P=I ≠> LZ=1：
P=J ≠>Z=0：P=J⊿⊿⊿ G=H-CP+ZF(T-Abs C)2/2R
注：输入L≤0重新开始
H——为变坡点高程：B——为变坡点桩号：L——为待求点桩号：
I、J为坡度：T为切线长=R?α/2=R(i1-i2)/2
回答者：yanliang 07-4-7 15:13
楼主 HANZIYUAIWANGSHUANG 对于 yanliang 的回复的评价: 赏 +29 分
谢谢。谢谢大家的回复
修改回复评价
→ 回复内容 只查看楼主与本人回复
沙发：yanliang 07-4-7 15:13 回 获 7 票
缓和曲线超高段计算
超高横坡计算公式：
I=Abs(B-A)*2E/Q-E ① I=[Abs(B-A)-Q](D-E)/(C-Q)+E ②
I———缓和曲线内任一横断面超高横坡度(I的正负,抬高边为正,降低边为负)；
B———缓和曲线超高段内任一点里程桩号；A———缓和曲线起点ZH或终点HZ的里程桩号；
E———直线段路拱横坡度，输入时不考虑符号取正值； C———缓和曲线长度（M） ；
D———最大超高段设定的最大超高横坡度，取正值； Abs———绝对值符号；
Q———缓和曲线起（终）点至超高变坡临界面距离，Q=2E/（E+D）*C
程序清单：CGHP（文件名）
Lb1 0：E：D：C：A：L：{BH}：B≤0=> Goto 2⊿ Q=2E/（E+D）*C：Abs(B-A)> Q=> Goto 1⊿
I=Abs(B-A)*2E/Q-E◢ F=H+LI◢ T=H-EL ◢ Goto 0⊿ （计算ZH或HZ至Q之间缓和曲
线上任一点超高横坡度及左右边桩F、T之高程，注意须输入与边桩同横断面的中桩高程-中桩高程另算）
Lb1 1：I=(Abs(B-A)-Q)(D-E)/(C-Q)+E◢ F=H+LI◢ T=H-IL ◢ Goto 0⊿（计算Q至HY或YH之间缓和曲线上任意一点超高横坡度及左右边桩之高程，L为半幅路宽，单位为M）
Lb1 2：{EDCAL}：Goto 0 注：输入B≤0重新开始
竖曲线计算
公式：G=H-CP+ZF(T-Abs C)2/2R
程序清单：SHXGC(任意) 内容：Lb1 0：H：B：R：I：J：{L}：T=R?Abs(J-I)/2：
C=B-L：F=1：I>J =>F=-1⊿L≤0=>{HBRIJ}：Goto 0：≠> LZ=0：P=I ≠> LZ=1：
P=J ≠>Z=0：P=J⊿⊿⊿ G=H-CP+ZF(T-Abs C)2/2R
注：输入L≤0重新开始
H——为变坡点高程：B——为变坡点桩号：L——为待求点桩号：
I、J为坡度：T为切线长=R?α/2=R(i1-i2)/2
缓和曲线超高段计算
超高横坡计算公式：
I=Abs(B-A)*2E/Q-E ① I=[Abs(B-A)-Q](D-E)/(C-Q)+E ②
I———缓和曲线内任一横断面超高横坡度(I的正负,抬高边为正,降低边为负)；
B———缓和曲线超高段内任一点里程桩号；A———缓和曲线起点ZH或终点HZ的里程桩号；
E———直线段路拱横坡度，输入时不考虑符号取正值； C———缓和曲线长度（M） ；
D———最大超高段设定的最大超高横坡度，取正值； Abs———绝对值符号；
Q———缓和曲线起（终）点至超高变坡临界面距离，Q=2E/（E+D）*C
程序清单：CGHP（文件名）
Lb1 0：E：D：C：A：L：{BH}：B≤0=> Goto 2⊿ Q=2E/（E+D）*C：Abs(B-A)> Q=> Goto 1⊿
I=Abs(B-A)*2E/Q-E◢ F=H+LI◢ T=H-EL ◢ Goto 0⊿ （计算ZH或HZ至Q之间缓和曲线上任一点超高横坡度及左右边桩F、T之高程，注意须输入与边桩同横断面的中桩高程-中桩高程另算）
Lb1 1：I=(Abs(B-A)-Q)(D-E)/(C-Q)+E◢ F=H+LI◢ T=H-IL ◢ Goto 0⊿（计算Q至HY或YH之间缓和曲线上任意一点超高横坡度及左右边桩之高程，L为半幅路宽，单位为M）
Lb1 2：{EDCAL}：Goto 0 注：输入B≤0重新开始
竖曲线计算
公式：G=H-CP+ZF(T-Abs C)2/2R
程序清单：SHXGC(任意) 内容：Lb1 0：H：B：R：I：J：{L}：T=R?Abs(J-I)/2：
C=B-L：F=1：I>J =>F=-1⊿L≤0=>{HBRIJ}：Goto 0：≠> LZ=0：P=I ≠> LZ=1：
P=J ≠>Z=0：P=J⊿⊿⊿ G=H-CP+ZF(T-Abs C)2/2R
注：输入L≤0重新开始
H——为变坡点高程：B——为变坡点桩号：L——为待求点桩号：
I、J为坡度：T为切线长=R?α/2=R(i1-i2)/2
回答者：yanliang 07-4-7 15:13
楼主 HANZIYUAIWANGSHUANG 对于 yanliang 的回复的评价: 赏 +29 分
谢谢。谢谢大家的回复
修改回复评价
→ 回复内容 只查看楼主与本人回复
沙发：yanliang 07-4-7 15:13 回 获 7 票
缓和曲线超高段计算
超高横坡计算公式：
I=Abs(B-A)*2E/Q-E ① I=[Abs(B-A)-Q](D-E)/(C-Q)+E ②
I———缓和曲线内任一横断面超高横坡度(I的正负,抬高边为正,降低边为负)；
B———缓和曲线超高段内任一点里程桩号；A———缓和曲线起点ZH或终点HZ的里程桩号；
E———直线段路拱横坡度，输入时不考虑符号取正值； C———缓和曲线长度（M） ；
D———最大超高段设定的最大超高横坡度，取正值； Abs———绝对值符号；
Q———缓和曲线起（终）点至超高变坡临界面距离，Q=2E/（E+D）*C
程序清单：CGHP（文件名）
Lb1 0：E：D：C：A：L：{BH}：B≤0=> Goto 2⊿ Q=2E/（E+D）*C：Abs(B-A)> Q=> Goto 1⊿
I=Abs(B-A)*2E/Q-E◢ F=H+LI◢ T=H-EL ◢ Goto 0⊿ （计算ZH或HZ至Q之间缓和曲
线上任一点超高横坡度及左右边桩F、T之高程，注意须输入与边桩同横断面的中桩高程-中桩高程另算）
Lb1 1：I=(Abs(B-A)-Q)(D-E)/(C-Q)+E◢ F=H+LI◢ T=H-IL ◢ Goto 0⊿（计算Q至HY或YH之间缓和曲线上任意一点超高横坡度及左右边桩之高程，L为半幅路宽，单位为M）
Lb1 2：{EDCAL}：Goto 0 注：输入B≤0重新开始
竖曲线计算
公式：G=H-CP+ZF(T-Abs C)2/2R
程序清单：SHXGC(任意) 内容：Lb1 0：H：B：R：I：J：{L}：T=R?Abs(J-I)/2：
C=B-L：F=1：I>J =>F=-1⊿L≤0=>{HBRIJ}：Goto 0：≠> LZ=0：P=I ≠> LZ=1：
P=J ≠>Z=0：P=J⊿⊿⊿ G=H-CP+ZF(T-Abs C)2/2R
注：输入L≤0重新开始
H——为变坡点高程：B——为变坡点桩号：L——为待求点桩号：
I、J为坡度：T为切线长=R?α/2=R(i1-i2)/2