竖曲线标高计算程序

竖曲线标高计算程序
此程序为竖曲线标高计算程序，程序用变坡点高程和桩号来计算坡度，使高程计算比较精确，
程序运行时，先按顺序输入三点的桩号、高程和中间曲线的半径，然后可输入桩号求相应点
的高程，当桩号到达曲线尾和下一曲线间的直线段时，会出现“AFTER QX”的提示，这时
可继续输入桩号求标高，也可输入一负值进行输入下一变坡点数据，输入负值后会出现提示
要求输入R，此R为第三个变坡点的半径，继续要求输入的EF则为第四个变坡点的桩号和
高程。

程序自动将前次的后两个变坡点的数据交换到计算时所用的第一第二个变坡点，而不
用每次都输入。

但要注意的是，不能输入超过下一个曲线的桩号，否则会出现标高错误，最
好在出现“AFTER QX”提示后便进行下一变坡点数据的输入。

本程序在输出标高后可设计
简单的横坡度、超高坡度计算程序，可一次输出断面中的标高。

变量说明：<程序运算符定义>
文件1 程序名：SQX
ABCD:Lbl 0:{ERF}:REF:G=(D-B)÷(C-A):H=(F-D)÷(E-C):L=R×Abs(G-H)÷2 ←
Lbl 1:{K}:K≤0＝>Goto 2⊿K≤C+L＝>L=-Abs L:Prog "SHU":M=D+(K-C)H+J:
≠>M=D+(K-C)H:"AFTER QX"⊿L=Abs L:K≤C＝>Prog "SHU":M=B+(K-A)G+J⊿K≤C-L
＝>M=B+(K-A)G⊿M=1000M:Prog "SSWR":I=M÷1000◢
K=K+20:Goto 1:Lbl 2:A=C:B=D:C=E:D=F:Goto 0
文件2 程序名：SHU
J=(K-C+L)2÷(2R):G-H>0＝>J=-J⊿
文件3 程序名：SSWR
M-Int M<0.5＝>M=Int M:≠>M=Int M+1⊿。