九龙珠的颜色:全线高程及不等超高计算程序(中边桩高程)

来源:百度文库 编辑:偶看新闻 时间:2024/04/29 20:21:32
全线高程及不等超高计算程序(中边桩高程)2008年05月13日 星期二 19:03 Lb1 0:{H}:H≤84235.25=>Prog“1”:Goto A⊿H≤84450.8=>Prog“2”:Goto A⊿H≤84860.4=>Prog“3”:Goto A⊿H≤85189.2=>Prog“4”:Goto A⊿H≤8504.8=>Prog“5”:Goto A⊿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: Goto A⊿H≤N=>P=A+(H-N) *K/100: Goto A⊿H≥N+T*2=>C=N+T*2:J=A+K*(C-N) /100+F(C-N) 2/2R:P=J+(H-L)*Q/100: Goto A⊿
子程序
1:
A=130.032:N=84050.75:K=-0.823:Q=-0.646: R=104583
2:
A=128.68:N=84235.25:K=-0.646:Q=-0.726: R=270602
3:
A=126.625:N=84529.64:K=-0.726:Q=3.867: R=7200
A;竖曲线起点高程:N=竖曲线起点桩号:K:竖曲线前部纵坡:Q:竖曲线后部纵坡
R:竖曲线半径
横坡计算主程序
Lb1 6: H≤84895=>Prog“6”:Goto A⊿H≤85550=>Prog“7”:Goto A⊿Lb1 7:H≤S=>X=E:O=G:Goto A⊿ H≤(S+A)=>X=E-(H-S)*(E-F)/A:O= G-(H-S)*(G-I)/A:Goto A⊿ H≤(S+A+B)=>X=F-(H-(S+A))*(F-J)/B:O=I-(H-(S+A))*(I-K)/B:Goto A⊿ H≤(S+A+B+C)=>X=J-(H-(S+A+B))*(J-L)/C:O=K-(H-(S+A+B))*(K-M)/C:Goto A⊿ H≤(S+A+B+C+D)=>X=L:O=M:Goto A⊿ H≤(S+A+B+D+C*2)=>X=L-(H-(S+A+B+C+D))*(L-J)/C:O=M-(H-(S+A+B+C+D))*(M-K)/C:Goto A⊿ 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:Goto A⊿ 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:Goto A⊿ H≥(S+(A+C+B)*2+D)=>X=E:O=G:Goto A⊿ Lb1A: {Y}: {可加前视等出地面及差值字节}:P“SJ=”▲Z[1]=P+YX▲Z[2]=P+YO▲   Goto 0
子程序

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=130
7:
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