魔兽世界达拉然去奥格:f(x)—4850高程横坡全线通
f(x)—4850高程横坡全线通
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