高程计算 高程计算 高程计算

2 （2为程序名）

“1→ZX.2→YX.3→A.4→B. 5→C.6→D.7→E.8→BZ.9→BY”?N:（此处有几段竖曲线就输到几，底下Goto Lbl要记得对应）

N=1=＞Goto1:

N=2=＞Goto2:

N=3=＞Goto3:

N=4=＞Goto4:

N=5=＞Goto5:

N=6=＞Goto6:

N=7=＞Goto7:

N=8=＞Goto8:

N=9=＞Goto9:

Lbl 1

“ZZH” ?J:Prog“ZHDATA”: Prog “H”： “ZXH”:?F：

Lbl 2

“YZH” ?J:Prog“YHDATA”: Prog “H”： “YXH”:?F

Goto 2

H（H为程序名）

R×Abs(K-I) ÷2→T:

B-J→D:1→A:

If I＞K:Then -1→A:IfEnd

If J＜O:Then Then Prog:“H”：IfEnd

If J≧O And J﹤B-T: Then O→C:I→E：IfEnd

If J≧B-T And J﹤B: Then 1→C:I→E：IfEnd

If J≧B And J﹤B+T:Then 1→C:K→E：IfEnd

H-D×E+C×A×(T-Abs(D))²÷2÷R→F

ZHDATA（程序名）

If J≥1500 And J≤1801.356:Then 0.003→I:-0.00886→K:1570→B:19.693→H:10000→R:IfEnd

…………………省略，有几个竖曲线就输几个

说明：

J---要求的桩号

I---前坡

K---后坡

B---变坡点桩号

H---变坡点高程

R---竖曲线半径