5800计算器竖曲线程序

CASIO fx5800p全线高程计算程序

GAOCHEN 主程序

Lbl 1

“KM=，<0,Stop”:?K：K<0=>Stop:“PY=”？L：Prog”GK”

C-D→E:Abs(RE/2)→T：R(Abs(E)/E)→R

If K≤B-T:Then 0→H:Else:If K≥B+T

Then 0→H:D→C:Else K-B+T→H:Ifend:Ifend

A-(B-K)C-H2/(2R)-0.000→G：Cls

“KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3

“H=”：Locate 4，2，G

Prog “PODU”：（E-B）/（D-A）（K-A）+B→I：(F-C)/（D-A）（K-A）+C→J

“HL=”：G+I(L-1)→X：Locate 4，3，X：Locate 11，3，“I=”：Locate 13，3，I*100 “HR=”：G+J(L-1)→Y：Locate 4，4，Y：Locate 11，4，“I=”：Locate 13，4，J*100◢显示中边桩高程

Cls：Norm 2：“BM+HS≤0,Goto 1”？Z：Z≤0=> Goto 1：Cls (输入视线高)

“KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3

“QSM=”: Locate 6，2，Z-G (显示中桩读数)

“QSL=”: Locate 6，3，Z-X (显示左桩读数)

“QSR=”: Locate 6，4，Z-Y◢(显示右桩读数)

Norm 2：Cls：Goto1

（后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉）

以下两个子程序不需运行，只是两个独立的数据库赋值程序，字母重复不影响计算结果

GK 数据库子程序

If K≤第二曲线起点桩号：Then 第一曲线交点高程→A：第一曲线交点桩号→B：第

一曲线前坡→C：第一曲线后坡→D：第一曲线半径→R：Return：Ifend …………….（有几个变坡点编几个If语句）

PODU 计算坡度子程序

If K≤第一变（非变）坡段终点：Then 第一曲线起点桩号→A：第一曲线起点左坡→B：第一曲线起点右坡→C：第一曲终点桩号→D：第一曲终点左坡→E：第一曲终点右坡→F：Return：Ifend

………………（每一个超高变化线元一个If语句）

结果显示：

高程显示

KM=0000.000 PY=0.000

H= 00.000

HL=00.000 I=-1.5

HR=00.000 I=-1.5

读数显示

KM=0000.000 PY=0.000

QSM= 00.000

QSL= 00.000

QSR= 00.000

注：竖曲线在遇到断链时，要在断链到紧挨的竖曲线起点桩号之间，加上或者减去断链长度。