“BPDZH=”?Z:“GC=”?H:“R=”?R:“I1=”? I:“I2=”?L ：“T=”:0.005RAbs(I -L) →T◢ “E=”: T²÷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 K If K≦Z:Then I→Y:C→G:Else K >Z=>L→Y:D→G: IfEnd←┘ Lbl 1:Fix 4:“H=”:H+EY÷100+JG²÷2÷R◢ Goto 0←┘ 说明：BPDZH：前变坡点桩号 用变量Z表示 H：前变坡点高程 R：半径 I L：前后纵坡值 输入格式：6.1%输入6.1，有负号的要输入负号 T：切线长 E：竖距 JZZH：待求点设计高程的桩号 用变量K表示 Fix 3：计算结果保留3位小数 因篇幅问题不能全部显示，请点此查看更多更全内容