竖曲线路曲线要素,可以创建多文件名竖曲线参数数据，全线路有多少条竖曲线都可以一次性输入数据库,线路设计有可能成在长短链,入有长短链时,请注意在输入P时要输入断链里程.
计算程序文件名GCJS
LbI 0?
Prog"SUQX"?
Z[1]+Z[2]→Z[7]:Z[7]Z[3]→Z[8]:Z[8]÷2→Z[9]:[5]- Z[9]→Z[10]: [5]+Z[9]→Z[11]:Z[4]+Z[9]Z[1]Z[6]→Z[12]:Z[4]+Z[9]Z[2]Z[6]→Z[13]?
If P≤Z[10]:ThenGoto1:ElseIfP≤Z[11]:ThenGoto2:ElseIfP≥Z[11]:ThenGoto3:IfEnd:IfEnd:IfEnd?
LbI 1?
Abs(P- Z[10])→Z[14]:Z[12]+Z[14]Z[1]Z[6]→Z[15]:Goto4?
LbI 2?
Abs(P- Z[10])→Z[14]:Z[12]-Z[14]Z[1]Z[6]+(Z[14]2÷2÷Z[3])Z[6]→Z[15]:Goto4?
LbI 3?
Abs(P- Z[11])→Z[14]:Z[13]+Z[14]Z[2]Z[6]→Z[15]:Goto4?
LbI 4?
"E="?E:"B="?B
"H1=": Z[15]◢
"H2=": Z[15]- EB◢
1、E为横坡坡度.
2、B半幅路基宽度。
数学模式
ω=I1+I2：L=ω×R：T=L÷2：E=T2÷2R：计算任点：Y=X2÷2R
竖曲线路曲线要素,可以创建多文件名竖曲线参数数据，全线路有多少条竖曲线都可以一次性输入数据库,线路设计有可能成在长短链,入有长短链时,请注意在输入P时要输入断链里程.
计算程序文件名GCJS
LbI 0?
Prog"SUQX"?
Z[1]+Z[2]→Z[7]:Z[7]Z[3]→Z[8]:Z[8]÷2→Z[9]:[5]- Z[9]→Z[10]: [5]+Z[9]→Z[11]:Z[4]+Z[9]Z[1]Z[6]→Z[12]:Z[4]+Z[9]Z[2]Z[6]→Z[13]?
If P≤Z[10]:ThenGoto1:ElseIfP≤Z[11]:ThenGoto2:ElseIfP≥Z[11]:ThenGoto3:IfEnd:IfEnd:IfEnd?
LbI 1?
Abs(P- Z[10])→Z[14]:Z[12]+Z[14]Z[1]Z[6]→Z[15]:Goto4?
LbI 2?
Abs(P- Z[10])→Z[14]:Z[12]-Z[14]Z[1]Z[6]+(Z[14]2÷2÷Z[3])Z[6]→Z[15]:Goto4?
LbI 3?
Abs(P- Z[11])→Z[14]:Z[13]+Z[14]Z[2]Z[6]→Z[15]:Goto4?
LbI 4?
"E="?E:"B="?B
"H1=": Z[15]◢
"H2=": Z[15]- EB◢
1、E为横坡坡度.
2、B半幅路基宽度。
数学模式
ω=I1+I2：L=ω×R：T=L÷2：E=T2÷2R：计算任点：Y=X2÷2R