高程程序 清连高速A2标全线高程横坡计算实例高程程序

《高程程序 清连高速A2标全线高程横坡计算实例高程程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、高程程序Lb10：｛H｝：H≤84235.25＝＞Prog“1”：GotoA⊿H≤84450.8＝＞Prog“2”：GotoA⊿H≤84860.4＝＞Prog“3”：GotoA⊿H≤85189.2＝＞Prog“4”：GotoA⊿H≤8504.8＝＞Prog“5”：GotoA⊿F=Q-K：F＞0＝＞F=1：≠＞F=-1⊿T=R*((Q-K)/100)/2:H≥N＝＞P＝L=Abs(N-H):P=（A-结构层）+KL/100+FL2/2R:GotoA⊿H≤N＝＞P=A+(H-N)*K/100:GotoA⊿H≥N+T*2＝＞C=N+T*2:J=A+K*(C-N)/1

2、00+F(C-N)2/2R:P=J+(H-L)*Q/100:GotoA⊿子程序1：A=130.032:N=84050.75:K=-0.823:Q=-0.646:R=1045832:A=128.68:N=84235.25:K=-0.646:Q=-0.726:R=2706023:A=126.625:N=84529.64:K=-0.726:Q=3.867:R=7200A;竖曲线起点高程：N=竖曲线起点桩号：K：竖曲线前部纵坡：Q：竖曲线后部纵坡R：竖曲线半径横坡计算主程序Lb16：H≤84895＝＞Prog“6”：GotoA⊿H≤85550＝＞Prog“7”：Got

3、oA⊿Lb17：H≤S＝＞X=E：O=G：GotoA⊿H≤（S+A）＝＞X=E-（H-S）*（E-F）/A：O=G-（H-S）*（G-I）/A：GotoA⊿H≤（S+A+B）＝＞X=F-（H-（S+A））*（F-J）/B：O=I-（H-（S+A））*（I-K）/B：GotoA⊿H≤（S+A+B+C）＝＞X=J-（H-（S+A+B））*（J-L）/C：O=K-（H-（S+A+B））*（K-M）/C：GotoA⊿H≤（S+A+B+C+D）＝＞X=L：O=M：GotoA⊿H≤（S+A+B+D+C*2）＝＞X=L-（H-（S+A+B+C+D））*（L-J）/C：O=M

4、-（H-（S+A+B+C+D））*（M-K）/C：GotoA⊿H≤（S+A+C+D+B*2）＝＞X=J-（H-（S+A+B+C*2+D））*（J-F）/B：O=K-（H-（（S+A+B+C*2+D））*（K-I）/B：GotoA⊿H≤（S+D+（A+C+B）*2）＝＞X=F-（H-（S+B*2+C*2+A+D））*（F-E）/A：O=I-（H-（S+B*2+C*2+A+D））*（I-G）/A：GotoA⊿H≥（S+（A+C+B）*2+D）＝＞X=E：O=G：GotoA⊿Lb1A:｛Y｝：｛可加前视等出地面及差值字节｝：P“SJ=”▲Z［1］=P+YX▲Z［2］

5、=P+YO▲Goto0子程序6：A=80：S=84525：E=-0.02:G=-0.02:I=0.02;F=-0.02;K=0.04:J=-0.04:M=0.04:L=-0.04:B=40:C=0:D=1307:A=60：S=85135：E=-0.02:G=-0.02:I=-0.02;F=0.02;K=-0.04:J=0.04:M=-0.04:L=0.05:B=30:C=15:D=205 清连高速A2标全线高程横坡计算实例高程程序Lbl1:{H}:Prog"CGYS":Prog"CG":Prog"SQ":S=0:Prog"SQX":Prog"CGJS":GOT

6、O1↙    超高要素（CGYS)H≤超高段终点桩号=>Z=超高段起点:A=第一段超高长度:B=第二段超高长度:C=第三段超高长度:E=第一段超高左横坡:G=第一段超高右横坡:I=第二段超高左横坡:F=第二段超高右横坡:K=第三段超高左横坡:J=第三段超高右横坡:M=第四段超高左横坡:L=第四段超高右横坡:D=超高正常段长度:GOTO6⊿↙H≤…………………………………………………………………………………………………………：GOTO6⊿↙Lbl6↙超高主程序（CG)Lbl6:H≤Z=>X=E:O=G:GOTO5⊿H≤(Z+A)=>X=E-(H-Z)*(E-F)

7、/A:O=G-(H-Z)*(G-I)/A:GOTO5⊿H≤(Z+A+B)=>X=F-(H-(Z+A))*(F-J)/B:O=I-(H-(Z+A))*(I-K)/B:GOTO5⊿H≤(Z+A+B+C)=>X=J-(H-(Z+A+B))*(J-L)/C:O=K-(H-(Z+A+B))*(K-M)/C:GOTO5⊿H≤(Z+A+B+C+D)=>X=L:O=M:GOTO5⊿H≤(Z+A+B+C*2+D)=>X=L-(H-(Z+A+B+C+D))*(L-J)/C:O=M-(H-(Z+A+B+C+D))*(M-K)/C:GOTO5⊿H≤(Z+A+C*2+D+B*2)=>X

8、=J-(H-(Z+A+B+C*2+D)