路线设计标高（含一个竖曲线）计算程序 SJGC

W=Abs(A“100I1”-B“100I2”)÷100:T=RW÷2:E=T2÷2÷R↙

C“QD”=M“BPD”－ T◢

D“ZD”=M＋ T◢

K=(B－ A)÷Abs(B－ A)↙

Lbl 0↙

{X}:X“Z.HAO”↙

X>M     Goto4◣

G=(X－ M)A÷100＋ Y“BH”↙

X<C     H“H”=G◢

Goto 0◣↙

N“H0”=K(X-C)2÷2÷R◢

H“H”=G＋ N◢

Goto 0↙

Lbl 4↙

G=(X－ M)B÷100＋ Y“BH”↙

X>D      H“H”=G◢

Goto 0◣↙

J=(T-(X-M))2÷2÷R:N“H0”=KJ◢

H“H”=G＋ N◢

Goto 0



说明：（ CASIO4800）

1．           I1、 I2、 R分别为前后坡度，竖曲线半径；

2．           BPD为变坡点里程；

3．           Z.HAO为待求点里程；

4．           BH为变坡点高程；

5．           H0为高程改正数， H为待求里程设计高；