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