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---竖曲线半径
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请联系我们，一经查实，本站将立刻删除。
如需转载请保留出处：https://51itzy.com/kjqy/52118.html