竖曲线标高计算程序（fx-4800）
程序说明:
此程序为竖曲线标高计算程序，程序用变坡点高程和桩号来计算坡度，使高程计算比较精确，程序运行时，先按顺序输入三点的桩号、高程和中间曲线的半径，然后可输入桩号求相应点的高程，当桩号到达曲线尾和下一曲线间的直线段时，会出现“NEXT”的提示，这时可继续输入桩号求标高，也可输入一负值进行输入下一变坡点数据，输入负值后会出现提示要求输入R，此R为第三个变坡点的半径，继续要求输入的EF则为第四个变坡点的桩号和高程。程序自动将前次的后两个变坡点的数据交换到计算时所用的第一第二个变坡点，而不用每次都输入。但要注意的是，不能输入超过下一个曲线的桩号，否则会出现标高错误，最好在出现“NEXT”提示后便进行下一变坡点数据的输入。本程序在输出标高后可设计简单的横坡度、超高坡度计算程序，可一次输出断面中的标高
变量说明:<程序运算符定义>
A(KA):前一个变坡点桩号      B(HA):前一个变坡点高程
C(KO):中间变坡点桩号        D(HO):中间变坡点高程            R:中间变坡点半径
E(KB):后一个变坡点桩号      F(HB):后一个变坡点高程
K(HI):所求桩号              I(HI):所求点的高程
G:前段坡度                  H:后段坡度                      L:中间曲线的切线长      
J:切线至竖曲线的竖向距离

主程序名:SQX
A“KA”:B“HA”:C“KO”:D“HO”:
Lbl  0:{REF}:R:E“KB”:F“HB”:G=(D-B)÷(C-A):H=(F-D)÷(E-C):L=R×Abs(G-H)÷2
U“T1”=C-L◢
V“T2”=C+L◢
Lbl 1:{K}:K“KI”:K≤0＝>Goto2⊿K≤C+L＝>L=－AbsL:Prog"SQX1":M=D+(K-C)H+J:≠>M=D+(K-C)H:"NEXT"⊿L=AbsL:K≤C＝>Prog"SQX1":M=B+(K-A)G+J⊿K≤C-L＝>M=B+(K-A)G⊿M=1000M:Prog" SQX2":I“HI”=M÷1000◢
K=K+20:Goto1:Lbl 2:A=C:B=D:C=E:D=F:Goto0

子程序名: SQX1
J=(K-C+L)2÷(2R):G-H>0＝>J=-J⊿

子程序名: SQX2
M-IntM<0.5＝>M=IntM:≠>M=IntM+1⊿


由本站论坛　bg6iam　提供，谢谢