路线设计标高（含一个竖曲线）计算程序 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为待求里程设计高；
页:
[1]