卡西欧5800竖曲线程序

Lbl0

?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的