公路超高加宽计算程序
主程序文件名 CAO GAO JIA KAN
程序（CASIO Fx—4850P ）:
Lbl 0
A “(1)QX1 ,(2)QX2”: G“(1)L ,(2)R”: Z“K-ZH ”: H“K-HZ ”: T“LM-HP ”: C “CG-HP ”: S“LS1”: V“LS2”: J“Z-JK ”: M“LM-K ”
G=2＝＞G=-1
判断命令 A=1＝＞Goto Z:≠＞
Goto H
Lbl Z
｛K ｝:K“K-LS1” 输入第一条曲线内待求点桩号 ｛U ｝:U“H-Z ” 输入中桩高程 K ＞Z+S＝＞Goto Z:≠＞K ＜Z ＝＞
Goto Z
X=Abs(K-Z)
P=X÷S
G:“LP1=”:L=T+(-GC-T)×P ◢ 第一条曲线左侧路面横坡 G:“RP1=”:R=T+(GC-T)×P ◢ 第一条曲线右侧路面横坡 G:“JK1=”:W=(4Pˆ3-3P ˆ4) ×J ◢ 第一条曲线内侧加宽值 G:“D1=”:D=M÷2+W◢ 第一条加宽后路面宽度 G=-1＝＞Goto R:≠＞
Goto L
Lbl L 判断命令 判断命令
G:“HL1=”:E=U+(M÷2+W)×(L÷100) ◢ 左侧边桩高程
G:“HR1=”:F=U+(M÷2) ×(R÷100) ◢ 右侧边桩高程
Goto P
Lbl R
G:“HL1=”:E=U+(M÷2) ×(L÷100) ◢ 左侧边桩高程
G:“HR1=”:F=U+(M÷2+W)×(R÷100) ◢ 右侧边桩高程
Goto P
Lbl P
｛I ｝: I“(1)LS1 ,(2)LS2” 选择1为计算ZH-HY 段，2为YH-HZ 段。
I=1＝＞Goto Z:≠＞I=2＝＞
Goto H
Lbl H
｛K ｝:K“K-LS2” 输入第二条曲线内待求点桩号 ｛U ｝:U“H-Z ” 输入中桩高程
K ＜H-V ＝＞Goto H:≠＞K ＞H ＝＞
Goto H
X=Abs(K-H)
P=X÷V
G:“LP2=”:L=T+(-GC-T)×P ◢ 第二条左侧路面横坡 G:“RP2=”:R=T+(GC-T)×P ◢ 第二条左侧路面横坡 G:“JK2=”:W=(4Pˆ3-3P ˆ4) ×J ◢ 第二条曲线内侧加宽值 G:“D2=”:D=M÷2+W◢ 第二条加宽后路面宽度 G=-1＝＞Goto R:≠＞
Goto L判断命令 判断命令 选择语句
Lbl L
G:“HL2=”:E=U+(M÷2+W)×(L÷100) ◢ 左侧边桩高程
G:“HR2=”:F=U+(M÷2) ×(R÷100) ◢ 右侧边桩高程
Goto P
Lbl R
G:“HL2=”:E=U+(M÷2) ×(L÷100) ◢ 左侧边桩高程
G:“HR2=”:F=U+(M÷2+W)×(R÷100) ◢ 右侧边桩高程
Goto P
Lbl P
｛I ｝:I“(1)LS1 ,(2)LS2” 选择1为计算ZH-HY 段，2为YH-HZ 段。
I=1＝＞Goto Z:≠＞I=2＝＞
Goto H
选择语句
使用说明:
本程序只能分段计算, 需要计算ZH 到HY 时按一键, 计算YH 到HZ 时按二键. 当输入的里程大于HY,HZ 或小于ZH,YH 时(也就是不在缓和曲线上时) 程序将重复出现K? 直到你输入正确的里程时才能计算. 计算出的横坡值是以%表示
(1)
(1) QX1,(2)QX2 ——计算第一条曲线时输入1, 第二条输入2. L,(2)R ——曲线左转输入1, 右转输入2.
K-ZH ——直缓点桩号
K-HZ ——缓直点桩号
LM-HP ——公路在直线上的正常横坡如 〝-2%〞就输入-2即可
CG-HP ——公路在弯道上的最大超高横坡〝5%〞就输入5即可
LS1,LS2 ——第一, 二条缓和曲线长度
Z-JK ——最大加宽值
LM-K ——路面总宽度
“(1)LS1,(2)LS2” ——输入1时跳到第一条曲线计算, 输入2时跳到第二条曲线计算
公路超高加宽计算程序
主程序文件名 CAO GAO JIA KAN
程序（CASIO Fx—4850P ）:
Lbl 0
A “(1)QX1 ,(2)QX2”: G“(1)L ,(2)R”: Z“K-ZH ”: H“K-HZ ”: T“LM-HP ”: C “CG-HP ”: S“LS1”: V“LS2”: J“Z-JK ”: M“LM-K ”
G=2＝＞G=-1
判断命令 A=1＝＞Goto Z:≠＞
Goto H
Lbl Z
｛K ｝:K“K-LS1” 输入第一条曲线内待求点桩号 ｛U ｝:U“H-Z ” 输入中桩高程 K ＞Z+S＝＞Goto Z:≠＞K ＜Z ＝＞
Goto Z
X=Abs(K-Z)
P=X÷S
G:“LP1=”:L=T+(-GC-T)×P ◢ 第一条曲线左侧路面横坡 G:“RP1=”:R=T+(GC-T)×P ◢ 第一条曲线右侧路面横坡 G:“JK1=”:W=(4Pˆ3-3P ˆ4) ×J ◢ 第一条曲线内侧加宽值 G:“D1=”:D=M÷2+W◢ 第一条加宽后路面宽度 G=-1＝＞Goto R:≠＞
Goto L
Lbl L 判断命令 判断命令
G:“HL1=”:E=U+(M÷2+W)×(L÷100) ◢ 左侧边桩高程
G:“HR1=”:F=U+(M÷2) ×(R÷100) ◢ 右侧边桩高程
Goto P
Lbl R
G:“HL1=”:E=U+(M÷2) ×(L÷100) ◢ 左侧边桩高程
G:“HR1=”:F=U+(M÷2+W)×(R÷100) ◢ 右侧边桩高程
Goto P
Lbl P
｛I ｝: I“(1)LS1 ,(2)LS2” 选择1为计算ZH-HY 段，2为YH-HZ 段。
I=1＝＞Goto Z:≠＞I=2＝＞
Goto H
Lbl H
｛K ｝:K“K-LS2” 输入第二条曲线内待求点桩号 ｛U ｝:U“H-Z ” 输入中桩高程
K ＜H-V ＝＞Goto H:≠＞K ＞H ＝＞
Goto H
X=Abs(K-H)
P=X÷V
G:“LP2=”:L=T+(-GC-T)×P ◢ 第二条左侧路面横坡 G:“RP2=”:R=T+(GC-T)×P ◢ 第二条左侧路面横坡 G:“JK2=”:W=(4Pˆ3-3P ˆ4) ×J ◢ 第二条曲线内侧加宽值 G:“D2=”:D=M÷2+W◢ 第二条加宽后路面宽度 G=-1＝＞Goto R:≠＞
Goto L判断命令 判断命令 选择语句
Lbl L
G:“HL2=”:E=U+(M÷2+W)×(L÷100) ◢ 左侧边桩高程
G:“HR2=”:F=U+(M÷2) ×(R÷100) ◢ 右侧边桩高程
Goto P
Lbl R
G:“HL2=”:E=U+(M÷2) ×(L÷100) ◢ 左侧边桩高程
G:“HR2=”:F=U+(M÷2+W)×(R÷100) ◢ 右侧边桩高程
Goto P
Lbl P
｛I ｝:I“(1)LS1 ,(2)LS2” 选择1为计算ZH-HY 段，2为YH-HZ 段。
I=1＝＞Goto Z:≠＞I=2＝＞
Goto H
选择语句
使用说明:
本程序只能分段计算, 需要计算ZH 到HY 时按一键, 计算YH 到HZ 时按二键. 当输入的里程大于HY,HZ 或小于ZH,YH 时(也就是不在缓和曲线上时) 程序将重复出现K? 直到你输入正确的里程时才能计算. 计算出的横坡值是以%表示
(1)
(1) QX1,(2)QX2 ——计算第一条曲线时输入1, 第二条输入2. L,(2)R ——曲线左转输入1, 右转输入2.
K-ZH ——直缓点桩号
K-HZ ——缓直点桩号
LM-HP ——公路在直线上的正常横坡如 〝-2%〞就输入-2即可
CG-HP ——公路在弯道上的最大超高横坡〝5%〞就输入5即可
LS1,LS2 ——第一, 二条缓和曲线长度
Z-JK ——最大加宽值
LM-K ——路面总宽度
“(1)LS1,(2)LS2” ——输入1时跳到第一条曲线计算, 输入2时跳到第二条曲线计算