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

超高及高程（源程序）
L1:&nbspR:L“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“P(R+,L-1)”
L2:&nbspLbl&nbsp6&nbsp:&nbsp｛S｝
L3:&nbspS+T－N<0&nbspD=O+(S－N)F:&nbspS－N<0&nbspD=O+(S－N)F－U(S－N+T)2÷2÷V:&nbspS－N≤T&nbspD=O+(S－N)G－U(T－S+N)2÷2÷V:&nbspD=O+(S－N)G&nbspD“&nbspH=”&nbsp◢&nbsp
L4:&nbspR<&nbspE=&nbsp:&nbspM=&nbspGoto&nbsp1:&nbspR<&nbspE=&nbsp:&nbspM=&nbspGoto&nbsp1:

L5:&nbspLbl&nbsp1&nbsp:&nbspM&nbsp≥&nbspL&nbspC=L:&nbspGoto&nbsp2:&nbspC=M

L6:&nbspLbl&nbsp2&nbsp:&nbspP&nbspX&nbsp>0&nbspGoto&nbsp3&nbsp:&nbspGoto&nbsp4

L7:&nbspLbl&nbsp4&nbsp:&nbspS&nbsp≤Z&nbspI=0.02&nbsp:&nbspGoto&nbsp5:&nbspS<Z+C&nbspI=0.02－(0.02－EPX)÷C×(S－Z)&nbsp:&nbspGoto&nbsp5:&nbspS<H－C&nbspI=EPX&nbsp:&nbspGoto&nbsp5:&nbspS<H&nbspI=EPX+(0.02－EPX)÷C×(S－H+C)&nbsp:&nbspGoto&nbsp5:&nbspI=0.02&nbsp:&nbspGoto&nbsp5
L8:&nbspLbl&nbsp3&nbsp:&nbspZ[1]=0.04÷(EPX+0.02)×C&nbsp:&nbspS&nbsp≤Z&nbsp+&nbspZ[1]&nbspI=0.02&nbsp:&nbspGoto&nbsp5:&nbspS<Z+C&nbspI=0.02+(EPX－0.02)÷(C－Z[1])×(S－Z－Z[1])&nbsp:&nbspGoto&nbsp5:&nbspS<H－C&nbspI=EPX&nbsp:&nbspGoto&nbsp5:&nbspS<H－Z[1]&nbspI=EPX－(EPX－0.02)÷(C－Z[1])×(S－H+C)&nbsp:&nbspGoto&nbsp5:&nbspI=0.02&nbsp:&nbspGoto&nbsp5
L9:&nbspLbl&nbsp5&nbsp:&nbsp{B}&nbsp:&nbspW“HB”=D－IB◢
L10:&nbspGoto&nbsp6
说明：&nbspR:平曲线半径&nbspL“LS”:缓和曲线长&nbspP：偏转，Z=－1,Y=1
X“XL”：线路（Z,Y）左线＝－1,右线＝1&nbspZ“ZH”:&nbsp直缓点里程
H“HZ”&nbsp：缓直点里程&nbspV“RS”：竖曲线半径&nbspF“I&nbsp1”&nbsp：前坡堵（带符号）
G“I2”：&nbsp后坡度值（带符号）&nbspO“BPH”：变坡点高程&nbspN“BP”：&nbsp变坡点里程
T：&nbsp切线长&nbspE：最大超高值&nbspC&nbsp：渐变段长度（LC）&nbsp
I：&nbsp横坡值&nbspM：最大渐变长度（Lmax）&nbspB&nbsp：距中心距离&nbspW“HB”：边部高程