请高人帮忙将卡西欧5800P计算器SQX 竖曲线（缓和段）中边桩高程计算程序转化成卡西欧4800P计算器程序。

Question

请高人帮忙将卡西欧5800P计算器SQX 竖曲线（缓和段）中边桩高程计算程序转化成卡西欧4800P计算器程序。
?N ：?G ：?R ：?K ：?M：?Z : ?Q ：?B ：?E ：?F ：?S ↙
Lbl 0: N-G→W : (RZW)÷2→V:“L”? L ↙
(K-L)ZN+((L-(K-V))2÷(2R) →J ↙
“H0=”:M-ZJ→ H ◢
(B-L)÷(B-Q)→ D:(F-E)(1-3D2+2D∧(3))+E→T:(E-F)D+F→I↙
“H1=”:H+SI ◢ （计算铁路以下I换成T）
“H2=”:H-SI ◢ （直线E=F两边均取此值）
Goto 0
说明：K为交点桩号，M为交点高程， R=半径 ， Z=凸曲线输1; 凹曲线输–1 .
N = 前坡度﹪ ， G = 后坡度﹪ ，L为待算点桩号，H为待算点高程。
Q 横坡起点里程，B 横坡终点里程，E 起点横坡％，F 终点横坡％，S 横坡开边距。
T待算点位横坡度(适用于铁路)，I待算点位横坡度(适用于公路)。
感谢

Answer 1

53433535353