2024年4月13日发(作者：波静逸)
竖曲线
Lbl0
GC
（主程序）
?K:A-B→W:RAbs(W÷100)÷2→T
If W≥0:Then -1→N:Else 1→N:IfEnd
C-T→F:C+T→Q
If K≤F:Then (K-C)A÷100+E→O :Goto1: Else If K≤C:Then (K-C)A
÷100+E+N(K-F)
2
÷2÷R→O:Goto 1:Else If K≤Q:Then(K-C)B÷
100+E+N(K-Q)
2
÷2÷R→O:Goto 1:Else If K＞Q:Then(K-C)B÷100+E
→O:Goto 1:IfEnd
Lbl 1
“H=”:O▲
GＣL
（数据库子程序，运行就在此程序）
Ｌb1 0
?K
If K< 766175:Then: Goto0 :IfEnd
If K>783071.25：Then: Goto0 :IfEnd
If K≤ 769687.5:Then 1→A:0→B:766300→C:1140.242→E:25000
→R:Goto1 :Else If K≤772455:Then 0→A:-2.5→B:770000→
C:1140.242→E:25000→R:Goto1:Else If K≤774577.5:Then -2.5
→A:-0.3→B:772730→C:1071.9922→E:25000→R:Goto1:Else If K
≤775812.5:Then -0.3→A:1→B:774740→C:1065.9622→E:25000→
R:Goto1:Else If K≤778200:Then 1→A:2.5→B:776000→
C:1078.5622→E:25000→R:Goto1:Else If K≤779937.5:Then 2.5
→A:-0.3→B:778550→C:1142.312→E:25000→R:Goto1:Else If K
≤781426.25:Then -0.3→A:1.4→B:780150→C:1137.5122→
E:25000→R:Goto1:Else If K≤782928.75:Then 1.4→A:-0.87→
B:781710→C:1159.3522→E:25000→R:Goto1:Else If K≤
783071.25:Then -0.87→A:-0.3→B:783000→C:1148.1292→
E:25000→R
Lb1 1
Prog “GC”
Goto 0
说明：1.K为里程。2.运行在子程序“GCL”中进行。3.子程序定义
是按里程以每条竖曲线的ZY点为分界点定义的，即使有无数个竖曲
线连在一起按ZY点里程定义前面的就行。4.子程序中的字母：A:前
坡 B:后坡 C:交点里程 E:交点高程 R:每条竖曲线的半径。5.坡度上
为正下为负，坡度取值为百分数的分子，而不是化成小数直接输入到
子程序。
5800的
2024年4月13日发(作者：波静逸)
竖曲线
Lbl0
GC
（主程序）
?K:A-B→W:RAbs(W÷100)÷2→T
If W≥0:Then -1→N:Else 1→N:IfEnd
C-T→F:C+T→Q
If K≤F:Then (K-C)A÷100+E→O :Goto1: Else If K≤C:Then (K-C)A
÷100+E+N(K-F)
2
÷2÷R→O:Goto 1:Else If K≤Q:Then(K-C)B÷
100+E+N(K-Q)
2
÷2÷R→O:Goto 1:Else If K＞Q:Then(K-C)B÷100+E
→O:Goto 1:IfEnd
Lbl 1
“H=”:O▲
GＣL
（数据库子程序，运行就在此程序）
Ｌb1 0
?K
If K< 766175:Then: Goto0 :IfEnd
If K>783071.25：Then: Goto0 :IfEnd
If K≤ 769687.5:Then 1→A:0→B:766300→C:1140.242→E:25000
→R:Goto1 :Else If K≤772455:Then 0→A:-2.5→B:770000→
C:1140.242→E:25000→R:Goto1:Else If K≤774577.5:Then -2.5
→A:-0.3→B:772730→C:1071.9922→E:25000→R:Goto1:Else If K
≤775812.5:Then -0.3→A:1→B:774740→C:1065.9622→E:25000→
R:Goto1:Else If K≤778200:Then 1→A:2.5→B:776000→
C:1078.5622→E:25000→R:Goto1:Else If K≤779937.5:Then 2.5
→A:-0.3→B:778550→C:1142.312→E:25000→R:Goto1:Else If K
≤781426.25:Then -0.3→A:1.4→B:780150→C:1137.5122→
E:25000→R:Goto1:Else If K≤782928.75:Then 1.4→A:-0.87→
B:781710→C:1159.3522→E:25000→R:Goto1:Else If K≤
783071.25:Then -0.87→A:-0.3→B:783000→C:1148.1292→
E:25000→R
Lb1 1
Prog “GC”
Goto 0
说明：1.K为里程。2.运行在子程序“GCL”中进行。3.子程序定义
是按里程以每条竖曲线的ZY点为分界点定义的，即使有无数个竖曲
线连在一起按ZY点里程定义前面的就行。4.子程序中的字母：A:前
坡 B:后坡 C:交点里程 E:交点高程 R:每条竖曲线的半径。5.坡度上
为正下为负，坡度取值为百分数的分子，而不是化成小数直接输入到
子程序。
5800的