[转帖]4800超高及高程

CASIO 4800超高及高程（源程序）供参考

L1: R“LS”:Z“ZH”:H“HZ”:V“RS”:F“I1”:G“I2”:O“BPH”:N“BP”:T=Vabs(G－F)÷2:X“X(R+1,L-1)”“P(R+,L-1)”
L2: Lbl 6 : ｛S｝
L3: S+T－N<0 D=O+(S－N)F: S－N<0 D=O+(S－N)F－U(S－N+T)2÷2÷V: S－N≤T D=O+(S－N)G－U(T－S+N)2÷2÷V: D=O+(S－N)G D“ H=” ◢
L4: R< E= : M= Goto 1: R< E= : M= Goto 1:

L5: Lbl 1 : M ≥ L C=L: Goto 2: C=M

L6: Lbl 2 : P X >0 Goto 3 : Goto 4

L7: Lbl 4 : S ≤Z I=0.02 : Goto 5: S<Z+C I=0.02－(0.02－EPX)÷C×(S－Z) : Goto 5: S<H－C I=EPX : Goto 5: S<H I=EPX+(0.02－EPX)÷C×(S－H+C) : Goto 5: I=0.02 : Goto 5
L8: Lbl 3 : Z[1]=0.04÷(EPX+0.02)×C : S ≤Z + Z[1] I=0.02 : Goto 5: S<Z+C I=0.02+(EPX－0.02)÷(C－Z[1])×(S－Z－Z[1]) : Goto 5: S<H－C I=EPX : Goto 5: S<H－Z[1] I=EPX－(EPX－0.02)÷(C－Z[1])×(S－H+C) : Goto 5: I=0.02 : Goto 5
L9: Lbl 5 : {B} : W“HB”=D－IB◢
L10: Goto 6
说明： R:平曲线半径 L“LS”:缓和曲线长 P：偏转，Z=－1,Y=1
X“XL”：线路（Z,Y）左线＝－1,右线＝1 Z“ZH”: 直缓点里程
H“HZ” ：缓直点里程 V“RS”：竖曲线半径 F“I 1” ：前坡堵（带符号）
G“I2”： 后坡度值（带符号） O“BPH”：变坡点高程 N“BP”： 变坡点里程
T： 切线长 E：最大超高值 C ：渐变段长度（LC）
I： 横坡值 M：最大渐变长度（Lmax） B ：距中心距离 W“HB”：边部高程