竖曲线标高计算程序.docVIP

竖曲线标高计算程序 此程序为竖曲线标高计算程序，程序用变坡点高程和桩号来计算坡度，使高程计算比较精确，程序运行时，先按顺序输入三点的桩号、高程和中间曲线的半径，然后可输入桩号求相应点的高程，当桩号到达曲线尾和下一曲线间的直线段时，会出现“AFTER QX”的提示，这时可继续输入桩号求标高，也可输入一负值进行输入下一变坡点数据，输入负值后会出现提示要求输入R，此R为第三个变坡点的半径，继续要求输入的EF则为第四个变坡点的桩号和高程。程序自动将前次的后两个变坡点的数据交换到计算时所用的第一第二个变坡点，而不用每次都输入。但要注意的是，不能输入超过下一个曲线的桩号，否则会出现标高错误，最好在出现“AFTER QX”提示后便进行下一变坡点数据的输入。本程序在输出标高后可设计简单的横坡度、超高坡度计算程序，可一次输出断面中的标高。 变量说明： 程序运算符定义 A 前一个变坡点桩号 B 前一个变坡点高程 R 中间变坡点半径 C 中间变坡点桩号 D 中间变坡点高程 G 前段坡度 E 后一个变坡点桩号 F 后一个变坡点高程 H 后段坡度 L 中间曲线的切线长 I 所求点的高程 J 切线至竖曲线的竖向距离 K 所求桩号 　 　 　 　 文件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-H0＝J=-J⊿ 文件3?? 程序名：SSWR M-Int M0.5＝M=Int M:≠M=Int M+1⊿