全线任意点设计高程计算(竖曲线)

“R=”?B

“I1=”? C

“I2=”?D

“K(BPD)=”?G:“H(BPD)=”?H←┘B×(C-D)→L

L÷2→T

T²÷（2×B）→E

“L=”:L◢

“T=”:T◢

“E=”:E◢

G-T→→Z[1]

H-(T×C)→Z[2]

G+T→→Z[3]

H+(T×C)→Z[4]

“K(QD)=”:Z[1]◢

“H(QD)=”:Z[2]◢

“K(ZD)=”:Z[3]◢

“H(ZD)=”:Z[4]◢

“K(p)=”?K

Z[1]→M:Z[3]→N:K-M→o:N-K→P:K-G →Q←┘

If LC>D:Then 1→J:Else -1→J:IfEnd ←┘

If K<M:Then 0→o:Else K>N=>0→P: IfEnd←┘

If K≦G:Then C→Y:o→W:Else K >G=>D →Y:P→W: IfEnd←┘

Lbl 1

“H(p)=”:H+QY+(J×W²）÷（2×R）◢

Goto 2←┘

说明：K(BPD)：前变坡点桩号用变量G 表示

H：前变坡点高程

B：半径

C、D：前后纵坡值有负号的要输入负号

L：曲线长 T：切线长 E：竖距

K(p)：待求点设计高程的桩号用变量K 表示