4800全线任意点设计高程计算程序，竖曲线内外都可以计算！有详细的说明！

任意点高程计算 RYDGC  JS（4800版）
程序特点：既可计算竖曲线范围内任意点的设计高程，也可计算竖曲线之外任意点的设计高程。
程序如下：
T=Abs(A“I1”－ B“I2”) ×R÷200◢ 计算并显示切线长
L=2T◢ 计算并显示竖曲线长
E=T2÷2÷R◢ 计算并显示外距
F“BPDZH”：G“GC”：X “ZY”=F-T◢ 输入前变坡点桩号、高程，计算并显示竖曲线起点桩号
Y“QZ”=X+T◢ 计算并显示竖曲线中点桩号
Z“YZ”=F+T◢ 计算并显示竖曲线终点桩号
LbI 1：｛J｝：J“JZZH”：J＜X => H = G－（F -J）×A÷100◢ 输入加桩桩号，加桩桩号小于竖曲线起点桩号时计算并显示加桩处的设计高程
Goto 1Δ J＜Y => M=（J－X）2÷2÷R：Goto 2ΔJ＜Z => M=（J－Z）2÷2÷R：Goto 3ΔH = G+（J-F）×B÷100◢ 计算竖曲线距、计算并显示加桩桩号大于竖曲线终点桩号时加桩处的设计高程
Goto 1ΔLbI 2：A ＞ B => H = G-（F-J）×A÷100 – M◢
Goto 1ΔA ＜ B => H = G-（F-J）×A÷100 + M◢
Goto 1ΔLbI 3：A ＞ B => H = G+（J- F）×B÷100 – M◢
Goto 1Δ A ＜ B => H = G+（J- F）×B÷100 + M◢
Goto 1Δ←┘
以上程序段是判断竖曲线的凹凸并计算加桩处的设计高程

最后编辑：2019-08-26

作者：acer

这个作者貌似有点懒，什么都没有留下。

站内专栏