CASIO 计算器计算程式

CASIO 计算器竖曲线计算程式
R " B J " T " Q X " Q " Q Z L "
H " Q Z H " C " C P " E " H P "
: A = Q - T : B = Q + T ? 　 　 　
Lbl 0 : ｛ I ｝ : I " S Q " < A &#8658; G
= H - C ( Q - I ) ? 　 　 　 　 　 　
≠=> I > B &#8658; G = H + E ( I - Q ) ?
≠=> S = I - Q : I < Q &#8658; D = I - A
: P = S C : Goto 1 : ≠=> D = B - I :
: P = S E : Goto 1 　 　 　 　 　 　 　 　
Lbl 1 : C > 0 &#8658; Goto 2 ? ≠=> Goto 3 ? 　 　
Lbl 2 : E > 0 &#8658; Goto 4 ? ≠=> Goto 6 ? 　 　
Lbl 3 : E > 0 &#8658; Goto 7 ? ≠=> Goto 5 ? 　 　
Lbl 4 : C > E &#8658; Goto 6 ? ≠=> Goto 7 ? 　 　
Lbl 5 : C > E &#8658; Goto 7 ? ≠=> Goto 6 ? 　 　
Lbl 6 : G " G H " = H + P - D2 ÷ 2
÷ R ? 　 　 　 　 　 　 　 　 　 　 　 　 　
Goto 0 ? 　 　 　 　 　 　 　 　 　 　 　 　 　
Lbl 7 : G " G H " = H + P + D2 ÷ 2
÷ R ? 　 　 　 　 　 　 　 　 　 　 　 　 　
Goto 0 ? 　

BJ半径 QX切线长 QZL交点里程
QZH交点高程 CP前坡 HP后坡
SQ所求里程