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

高程程序Lb1 0：H：H84235.25Prog“1”：Goto AH84450.8Prog“2”：Goto AH84860.4Prog“3”：Goto AH85189.2Prog“4”：Goto AH8504.8Prog“5”：Goto AF=Q-K：F0F=1：F=-1T=R*(Q-K)/100)/2:HNPL=Abs(N-H):P=（A-结构层）+KL/100+FL2/2R: Goto AHNP=A+(H-N) *K/100: Goto AHN+T*2C=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=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：竖曲线半径横坡计算主程序Lb1 6： H84895Prog“6”：Goto AH85550Prog“7”：Goto ALb1 7：HSX=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=”Z1=P+YXZ2=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=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标全线高程横坡计算实例高程程序Lbl 1:H:ProgCGYS:ProgCG:ProgSQ:S=0:ProgSQX:ProgCGJS:GOTO 1超高要素（CGYS)H超高段终点桩号=Z=超高段起点:A=第一段超高长度:B=第二段超高长度:C=第三段超高长度:E=第一段超高左横坡:G=第一段超高右横坡:I=第二段超高左横坡:F=第二段超高右横坡:K=第三段超高左横坡:J=第三段超高右横坡:M=第四段超高左横坡:L=第四段超高右横坡:D=超高正常段长度:GOTO 6H：GOTO 6Lbl 6超高主程序（CG)Lbl 6:HZ=X=E:O=G:GOTO 5H(Z+A)=X=E-(H-Z)*(E-F)/A:O=G-(H-Z)*(G-I)/A:GOTO 5H(Z+A+B)=X=F-(H-(Z+A)*(F-J)/B:O=I-(H-(Z+A)*(I-K)/B:GOTO 5H(Z+A+B+C)=X=J-(H-(Z+A+B)*(J-L)/C:O=K-(H-(Z+A+B)*(K-M)/C:GOTO 5H(Z+A+B+C+D)=X=L:O=M:GOTO 5H(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:GOTO 5H(Z+A+C*2+D+B*2)=X=J-(H-(Z+A+B+C*2+D)*(J-F)/B:O=K-(H-(Z+A+B+C*2+D)*(K-I)/B:GOTO 5H(Z+D+(A+B+C)*2)=X=F-(H-(Z+B*2+C*2+A+D)*(F-E)/A:O=I-(H-(Z+B*2+C*2+A+D)*(I-G)/A:GOTO 5H(Z+(A+B+C)*2+D)=X=E:O=GLbl 5:X=X/100:O=O/100竖曲线了程序（SQ)H竖曲线终点桩号=A=竖曲线起点高程:N=竖曲线起点桩号:K=前纵坡:Q=后纵坡:R=竖曲线半径：GOTO 5H：GOTO 5Lbl 5竖曲线主程序（SQX) QK=F=1:=F=-1T=R*(Q-K)/100)/2:HN=GOTO 2HN=GOTO 3HN+T*2=GOTO 4Lbl 2:L=Abs(N-H):P=A+KL/100+FL2/2R:GOTO5Lbl 3:P=A+(H-N)*K/100:GOTO5Lbl 4:Z3=N+Abs(Q-K)/100)*R/2*2:Z4=A+K*(Z3-N)/100+F*(Z3-N)2/2R:P=Z4+(H-Z3)*Q/100:GOTO 5Lbl 5:S-.3=S.3=H=P=P-(结构层）S.3=S-11.5=ZH=:B=P+(AbsS)-.3*(结构层）=S-11.5=ZH=:B=(P+11.2*X)+S(S-11.5)*.004-(结构层）S.3=S11.5=YH=:B=(P-结构层)+(S-.3)*O-结构层=S11.5=YH=:B=(P+11.2*O)-(S-11.5)*0.04-(结构层）标高计算附带程序（GCJS)A=结构层:Z=仪器高:S=左距:U=右距:Fixm:ICD:I