作者：李艳阳Fx-5800路线高程程序GCQX-000 主程序Lbl 1: Prog“GCQX-SUB000” ↙If R>10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+90)→X:A+R Sin(F+90)→Y: Sin-1((S-Y) ÷R)→M:X+R Cos(M)→H: Goto2↙
Fx-5800路线高程程序
GCQX-000 主程序
Lbl 1: Prog“GCQX-SUB000” ↙
If R>10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙
Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+90)→X:A+R Sin(F+90)→Y: Sin-1((S-Y) ÷R)→M:X+R Cos(M)→H: Goto2↙
Lbl 2: “H=”:H: Goto1
GCQX-000 数据库
Goto0↙
Lbl 0↙
If S<***: Then ***→A(线元起点里程): ***→B(线元起点高程): ***→R(线元半径左-右+): ***→C(线元终点里程): ***→D(线元终点高程): Return:IfEnd↙
If S<***: Then ***→A: ***→B: ***→R: ***→C: ***→D: Return:IfEnd↙
………………………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。如是直线R可用10^45输入。本程序可用于圆曲线与直线的中线高程计算。
1、 输入与显示说明
S？ 输入里程
H= 输出高程
2、本程序只能用于直线和圆曲线，不适用于其它曲线
