| CASIO 4800超高及高程（源程序）供参考 超高及高程（源程序） L1: R: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: 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”：边部高程 |
手机版|【路桥吾爱】 ( 湘ICP备16018960号-1 )
GMT+8, 2026-9-14 14:59
Powered by Discuz! X5.0
© 2001-2026 Discuz! Team.
