竖曲线路曲线要素,可以创建多文件名竖曲线参数数据,全线路有多少条竖曲线都可以一次性输入数据库,线路设计有可能成在长短链,入有长短链时,请注意在输入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 |
|