平曲线超高、加宽计算程序

CG JK JS

Lbi0: C“ZH” E“HZ” A“LBK” B“HP” Z“Z-,Y+”

∣G“LS” P“CG” X“JK”: o=P+B:N=0.04G÷o:Goto1←

Lbi1: {S}:S“CD”＜C =﹥ Goto5△ S＞E =﹥ Goto5△

S＞C+G =﹥ Goto2△H=N+C:L=(S-C)/G:I=Lo-B:J=LX+A:S＜

∣H =﹥ D=-BJ:F=AI: ≠﹥ D=-IJ:F=AI△ Goto4← Lbi2: S＞E-G =﹥ Goto3△ J=X+A:D=-P(A+X):F=AP:

∣Goto4←

Lbi3:K=E-N:L=(E-S)/G:J=(4L3-3L4)X+A:I=Lo-B:S

∣＜K =﹥ D=-IJ:F=AI: ≠﹥ D=-BJ:F=AI△ Goto4← ∣Lbi4:Z＜0 =﹥ H=J:K=A:L=D:M=F: Goto6← ∣≠﹥ H=A:K=J:L=F:M=D: Goto6← ∣Lbi5:H=A:K=A:L=-BA:M=-BA: Goto6← Lbi6: H“ZK”▲ K“YK”▲ L“Z △H”▲ M“Y △H”▲

∣Goto1←

说明：该程序适用于绕中轴旋转的一、二级公路，在三、四级公

路上，有的设计也采用Ⅰ类加宽（本程序），有的则采用Ⅱ类加宽，只需将Lbi3中的J=(4L3-3L4)X+A改为J=LX+A即可。

算例：

ZH=? 647.125 (输入ZH桩号)

HZ=? 557.530 (输入HZ桩号) LBK=? 3.25 (输入路半宽)

HP=? 0.02 (输入直线段设计横坡)（正数）

Z-,Y+=? -1 (输入平曲线转向，左转任意负数，右转任意正数) LS=? 20 (输入缓和曲线长度) CG=? 0.03 (输入全超高横坡) JK=? 1.0m (输入全加宽值) CD=? 460 (输入待求点里程) ZK= 3.25 (显示路基左宽) YK= 3.25 (显示路基右宽) Z △H = -0.065 (显示左超高值) Y △H = -0.065 (显示右超高值) 里程桩号 K0+460 K0+467.125 K0+480 K0+487.125 K0+500 K0+537.530 K0+540 K0+557.530 ZK 3.25 3.25 3.89 4.25 4.25 4.25 4.17 3.25 YK 3.25 3.25 3.25 3.25 3.25 3.25 3.25 3.25 Z △H -0.065 -0.065 -0.078 -0.128 -0.128 -0.128 -0.10 -0.065 Y △H -0.065 -0.065 0.040 0.10 0.10 0.10 0.077 -0.065 哪位老大帮忙改成5800的 谢谢