f(x)—4850高程横坡全线通

来源:百度文库 编辑:神马文学网 时间:2024/04/27 22:14:00
H▲
M“M⊿”
LbI  0:
Z=0=>GOTO  ○:≠>Z=1=>GOTO Y:≠>Z=-1=>GOTO Z⊿⊿⊿
LbI ○:
{S}:AWRIJNS:GOTO 1⊿
LbI  Z:{S}:(注:左线竖曲线参数库)
S<数据库计算起点桩号=>GOTO 0⊿
S≤后切点桩号=>A=竖曲线顶点桩号:W=竖曲线顶点高程:R=竖曲线半径:I=前坡坡度:J=后坡坡度:GOTO  1⊿
S≤后切点桩号=>A=竖曲线顶点桩号:W=竖曲线顶点高程:R=竖曲线半径:I=前坡坡度:J=后坡坡度:GOTO  1⊿
... ...(注:第N个竖曲线参数)
S>数据库计算终点桩号=>GOTO 0⊿
LbI  Y:{S}:(注:右线竖曲线参数库)
S<数据库计算起点桩号=>GOTO 0⊿
S≤后切点桩号=>A=竖曲线顶点桩号:W=竖曲线顶点高程:R=竖曲线半径:I=前坡坡度:J=后坡坡度:GOTO  1⊿
S≤后切点桩号=>A=竖曲线顶点桩号:W=竖曲线顶点高程:R=竖曲线半径:I=前坡坡度:J=后坡坡度:GOTO  1⊿
... ...(注:第N个竖曲线参数)
S>数据库计算终点桩号=>GOTO 0⊿
LbI  A:{S}: (注:左线超高横坡度参数库)
S≤第二超高缓和段终点桩号=>Q=第一超高缓和段起点桩号:○=第一超高缓和段起点桩号到第二超高缓和段终点桩号的距离:N=第一超高缓和段起点横坡:J=全超高段横坡:F=第二超高缓和段终点横坡:L=第一超高缓和段长度:C=第二超高缓和段长度:GOTO  3⊿
S≤第二超高缓和段终点桩号=>Q=第一超高缓和段起点桩号:○=第一超高缓和段起点桩号到第二超高缓和段终点桩号的距离:N=第一超高缓和段起点横坡:J=全超高段横坡:F=第二超高缓和段终点横坡:L=第一超高缓和段长度:C=第二超高缓和段长度:GOTO  3⊿
... ...(注:第N个平曲线参数)
LbI  B:{S}: (注:右线超高横坡度参数库)
S≤第二超高缓和段终点桩号=>Q=第一超高缓和段起点桩号:○=第一超高缓和段起点桩号到第二超高缓和段终点桩号的距离:N=第一超高缓和段起点横坡:J=全超高段横坡:F=第二超高缓和段终点横坡:L=第一超高缓和段长度:C=第二超高缓和段长度:GOTO  3⊿
S≤第二超高缓和段终点桩号=>Q=第一超高缓和段起点桩号:○=第一超高缓和段起点桩号到第二超高缓和段终点桩号的距离:N=第一超高缓和段起点横坡:J=全超高段横坡:F=第二超高缓和段终点横坡:L=第一超高缓和段长度:C=第二超高缓和段长度:GOTO  3⊿
... ...(注:第N个平曲线参数)
LbI  1:
T=RAbS(0.01(I-J))/2:
0.01(I-J)>0=>V=-1:≠>V=1:⊿
S≤A-T=>P=W+I(S-A)/100:≠> S≤A=>P=W+I(S-A)/100+V(SA)2/2R:≠> S≤A+T=> P=W+J(S-A)/100+V(AS)2/2R:≠>P=W+J(S-A)/100:⊿⊿⊿
GOTO 2
LbI 2;Z=0=>GOTO  4:≠>Z=-1=>GOTO  B:≠>Z=1=>GOTO  A⊿⊿⊿
LbI  3:
S≤Q=>N=N:≠>S≤Q+L=>N=(J-N)(S-Q)/L+N:≠>S≤Q+○-C=>N=J:≠> S≤Q+○=>N=(J-F)(Q+○-S)/C+F:≠>S>Q+○=>N=F⊿⊿⊿⊿⊿
LbI  4:
U:U=0=>GOTO  5:≠>U=1=>{D}:D:GOTO  6:≠>U=2=> G:{D}:D:GOTO  7:≠>U=3=> GOTO  8⊿⊿⊿⊿⊿
LbI  5:
P:Pause 0:N▲
GOTO  9
LbI  6:{X}:X:
N▲
P:Pause 0:H-X:Pause 0:P-M+0.01DN:Pause 0:(H-X-P0.01DN)×100▲
{D}:D≠0=>GOTO  5:≠>GOTO  9⊿
LbI  7:
{Y}:Y:
P:Pause 0:N:Pause 0:H-Y:Pause 0:1000(P-M+0.01DN-(H-Y)+G)×1.22+0.2▲
{D}:D≠0=>GOTO 6:≠>GOTO  9⊿
LbI  8:“F”:
{ED}:ED:
X=H-0.01E-(P-M+0.01DN):
N▲
P:Pause 0:X:Pause 0:H-X:Pause 0:P-M+0.01DN▲
{D}: D≠0=>GOTO 7:≠>GOTO  9⊿
LbI  9:
K:S=S+K:GOTO 0