计算器竖曲线程序.doc

《计算器竖曲线程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、全线高程万用计算程序（中边桩、超高）CASIOfx5800p全线高程计算程序GAOCHEN  主程序Lbl1“KM=，<0,Stop”:?K：K<0=>Stop:“PY=”？L：Prog”GK”C-D→E:Abs(RE/2)→T：R(Abs(E)/E)→RIf　K≤B-T:Then0→H:Else:If　K≥B+TThen0→H:D→C:ElseK-B+T→H:Ifend:IfendA-(B-K)C-H2/(2R)-0.000→G：Cls“KM=”：Locate4，1，K：Locate  10，1，“PY=”：Locate13，1，L：Fix3“H=

2、”：Locate4，2，GProg“PODU”：（E-B）/（D-A）（K-A）+B→I：(F-C)/（D-A）（K-A）+C→J“HL=”：G+I(L-1)→X：Locate4，3，X：Locate11，3，“I=”：Locate13，3，I*100“HR=”：G+J(L-1)→Y：Locate4，4，Y：Locate11，4，“I=”：Locate13，4，J*100◢  显示中边桩高程Cls：Norm2：“BM+HS≤0,Goto1”？Z：Z≤0=>Goto1：Cls    (输入视线高)“KM=”：Locate4，1，K：Locate  10

3、，1，“PY=”：Locate13，1，L：Fix3“QSM=”:Locate6，2，Z-G                        (显示中桩读数)“QSL=”:Locate6，3，Z-X                          (显示左桩读数)“QSR=”:Locate6，4，Z-Y◢                        (显示右桩读数)Norm2：Cls：Goto1（后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉）以下两个子程序不需运行，只是两个独立的数据库赋值

4、程序，字母重复不影响计算结果GK  数据库子程序IfK≤第二曲线起点桩号：Then第一曲线交点高程→A：第一曲线交点桩号→B：第一曲线前坡→C：第一曲线后坡→D：第一曲线半径→R：Return：Ifend…………….（有几个变坡点编几个If语句）PODU  计算坡度子程序IfK≤第一变（非变）坡段终点：Then第一曲线起点桩号→A：第一曲线起点左坡→B：第一曲线起点右坡→C：第一曲终点桩号→D：第一曲终点左坡→E：第一曲终点右坡→F：Return：Ifend………………（每一个超高变化线元一个If语句）结果显示：高程显示KM=0000.000  PY

5、=0.000H=  00.000    HL=00.000    I=-1.5HR=00.000    I=-1.5读数显示 KM=0000.000  PY=0.000QSM=  00.000QSL=  00.000QSR=  00.000注：竖曲线在遇到断链时，要在断链到紧挨的竖曲线起点桩号之间，加上或者减去断链长度。