卡西欧5800竖曲线程序.doc

5800全线任意点设计高程计算，可计算竖曲线范围内外任意点的设计高程！非常实用！ “BPDZH=”?Z:“GC=”?H:“R=”?R:“I1=”? I:“I2=”?L ：“T=”:0.005RAbs(I -L) →T◢“E=”: T2÷2÷R◢Lbl 0:“JZZH=”?→K:Z-T→A:Z+T→B:K-A→C:B-K→D:K-Z→E←┘If L I:Then 1→J:Else -1→J:IfEnd←┘If KA:Then 0→C:Else KB =0→D: IfEnd←┘If K≦Z:Then I→Y:C→G:Else K Z=L→Y:D→G: IfEnd←┘Lbl 1:Fix 4:“H=”:H+EY÷100+JG2÷2÷R◢Goto 0←┘说明：BPDZH：前变坡点桩号 用变量Z表示H：前变坡点高程R：半径??I L：前后纵坡值 输入格式：6.1%输入6.1，有负号的要输入负号T：切线长 E：竖距 JZZH：待求点设计高程的桩号 用变量K表示Fix 3：计算结果保留3位小数