5800高程超高计算.doc

08-9-24楼主：撒旦作者：老第 本文已被浏览7071次f(x)-4850高程横坡计算全线通f(x)4850高程横坡全线通HM“M”LbI 0：Z=0=GOTO ：Z=1=GOTO Y：Z=-1=GOTO ZLbI ：S：AWRIJNS：GOTO 1LbI Z：S：（注：左线竖曲线参数库）SGOTO 0S后切点桩号=A=竖曲线顶点桩号：W=竖曲线顶点高程：R=竖曲线半径：I=前坡坡度：J=后坡坡度：GOTO 1S后切点桩号=A=竖曲线顶点桩号：W=竖曲线顶点高程：R=竖曲线半径：I=前坡坡度：J=后坡坡度：GOTO 1. .（注：第N个竖曲线参数）S数据库计算终点桩号=GOTO 0LbI Y：S：（注：右线竖曲线参数库）SGOTO 0S后切点桩号=A=竖曲线顶点桩号：W=竖曲线顶点高程：R=竖曲线半径：I=前坡坡度：J=后坡坡度：GOTO 1S后切点桩号=A=竖曲线顶点桩号：W=竖曲线顶点高程：R=竖曲线半径：I=前坡坡度：J=后坡坡度：GOTO 1. .（注：第N个竖曲线参数）S数据库计算终点桩号=GOTO 0LbI A:S: （注：左线超高横坡度参数库）S第二超高缓和段终点桩号=Q=第一超高缓和段起点桩号：=第一超高缓和段起点桩号到第二超高缓和段终点桩号的距离：N=第一超高缓和段起点横坡：J=全超高段横坡：F=第二超高缓和段终点横坡：L=第一超高缓和段长度：C=第二超高缓和段长度：GOTO 3S第二超高缓和段终点桩号=Q=第一超高缓和段起点桩号：=第一超高缓和段起点桩号到第二超高缓和段终点桩号的距离：N=第一超高缓和段起点横坡：J=全超高段横坡：F=第二超高缓和段终点横坡：L=第一超高缓和段长度：C=第二超高缓和段长度：GOTO 3. .（注：第N个平曲线参数）LbI B：S: （注：右线超高横坡度参数库）S第二超高缓和段终点桩号=Q=第一超高缓和段起点桩号：=第一超高缓和段起点桩号到第二超高缓和段终点桩号的距离：N=第一超高缓和段起点横坡：J=全超高段横坡：F=第二超高缓和段终点横坡：L=第一超高缓和段长度：C=第二超高缓和段长度：GOTO 3S第二超高缓和段终点桩号=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：SA-T=P=W+I（S-A）/100： SA=P=W+I（S-A）/100+V（S+T-A）2/2R： SA+T= P=W+J（S-A）/100+V（A+T-S）2/2R：P=W+J（S-A）/100：GOTO 2LbI 2;Z=0=GOTO 4：Z=-1=GOTO B：Z=1=GOTO ALbI 3：SQ=N=N：SQ+L=N=（J-N）（S-Q）/L+N：SQ+-C=N=J： SQ+=N=（J-F）（Q+-S）/C+F：SQ+=N=FLbI 4：U：U=0=GOTO 5：U=1=D：D：GOTO 6：U=2= G：D：D：GOTO 7：U=3= GOTO 8LbI 5：P：Pause 0：NGOTO 9LbI 6：X：X：NP：Pause 0:H-X：Pause 0:P-M+0.01DN：Pause 0:（H-X-P+M-0.01DN）100D：D0=GOTO 5：GOTO 9LbI 7：Y：Y：P：Pause 0:N：Pause 0：H-Y：Pause 0：1000(P-M+0.01DN-(H-Y)+G)1.22+0.2D：D0=GOTO 6：GOTO 9LbI 8：“F”：ED：ED：X=H-0.01E-（P-M+0.01DN