升级版4850竖曲线

A “ZDQ”: B”H”: C “ZP1”: D”ZP2”: R↙

E=R(D-C)÷2:E<0=> F=-1:≠>F=1⊿↙

Lbi S↙

{Q}:Q:Abs(Q-A)<Abs E=>G=Abs E-Abs (Q-A): ≠>G=0⊿↙

Q<A=>I=C:≠>I=D⊿↙

H=B+(Q-A)×I+F×G2÷2÷R▲

Goto S

ZDQ:变坡点桩号 ，H：变坡点高程 ，ZP1:变坡点前纵坡 ，ZP2:变坡点后纵坡 ，R：竖曲线半径，Q：桩号，H：高程

简化后

A “ZDQ”: B”H”: C “ZP1”: D”ZP2”: R↙

E=R(D-C)÷2↙

Lbi S↙

{Q}:Q:Abs(Q-A)<Abs E=>G=Abs E-Abs (Q-A): ≠>G=0⊿↙

Q<A=>I=C:≠>I=D⊿↙

H=B+(Q-A)×I+Abs E÷E×G2÷2÷R▲

Goto S

二次简化后

A“ZDQ”:B”H”:C“ZP1”:D”ZP2”:R↙

Lbi S↙

{Q}:Abs(Q-A)<RAbs(D-C)÷2=>G=RAbs(D-C)÷2-Abs (Q-A):≠>G=0⊿↙

Q<A=>I=C:≠>I=D⊿↙

H=B+(Q-A)×I+Abs (D-C)÷(D-C)×G2÷2÷R▲

Goto S