Casio5800计算器数据库型全线高程计算程序(更新2)
一、主程序： 2H-SZY
Lbl 0: “HS” U：“BM-H” X：“SXG=”: U+X◢输入后视及水准点设计高程显示视线高程
Lbl 1：“QS” P:“K××+×××”K : Prog“”↙
C÷100→C: D÷100→D: R Abs(D-C)÷2→T↙
I f D>C :Then 1→W:Else -1→W:IfEnd↙
If K<A:Then -C→I:Else D→I: IfEnd↙
Abs (A-K)→L↙
If L>T:Then Z+IL→H:Cls :"H(S)=": Locate 7，1, H◢显示路面设计中桩高程Goto2:Else Z+IL+W(T-L)2÷2÷R→H: Cls :"H(S)=": Locate 7，1, H◢显示路面设
计中桩高
IfEnd↙
Lbl 2: “JGC(h)” O:”Z” N:”HP” J:H-O+NJ÷100→B: Cls :"H=": Locate 3，1, B:"H(C)=": Locate6，2,U+X-P : “⊿h（+，-）=”: Locate 4，3,B-U-X+P◢输入前视后显示实测高及设计与实测的高差（+填，-挖）
Goto 1
二主程序： 3H-QZY
Lbl 1：“K××+×××”K : Prog“”↙
C÷100→C: D÷100→D: R Abs(D-C)÷2→T↙
I f D>C :Then 1→W:Else -1→W:IfEnd↙
If K<A:Then -C→I:Else D→I: IfEnd↙
Abs (A-K)→L↙
I f L>T:Then Z+IL→H:Cls :"H(S)=": Locate 7，1, H ◢显示路面设
计中桩高
Gotoθ:Else Z+IL+W(T-L)2÷2÷R→H: Cls :"H(S)=": Locate 7，1, H◢显示路面
设计中桩高
IfEnd↙
Lbl 0: “JGC(h)” O:”Z” N:"HP” J: “H(C) “P:H-O+NJ÷100→B: Cls :"H=":“h（+，-）=” Locate 4，1, B: Locate 8，2, B-P◢输入全站仪实测三角高程显示：设计与实测高差（+填，-挖）
Goto 1
三、竖曲线数据库格式：
If K<下一竖曲线起点里程: Then本竖曲线前坡度(%前分子有正负)→C:本竖曲线后坡度(%前分子有正负)→D:本竖曲线半径→R:本竖曲线变坡点桩号→A:本竖曲线变坡点高程→Z:Goto 1: IfEnd ↙
四、数据库样例:
If K<*** : Then ***→C: ***→D: ***→R: ***→A: ***→Z: Goto 1: IfEnd↙
If K<*** : Then***→C: ***→D: ***→R: ***→A: ***→Z: Goto 1: IfEnd↙
If K<*** : Then***→C: ***→D: ***→R: ***→A: ***→Z: Goto 1: IfEnd↙…………………………………………
(注：如一条路有多个竖曲线要素则按顺序排列依次添加入数据库中)
If K≤*** : Then: ***→C: ***→D: ***→R: ***→A: ***→Z: Goto 1: IfEnd↙Lbl 1↙
五、输入与显示说明
K××+×××输入所求的桩号
H(S)= ×××显示所求桩号的路面中桩设计高程
JGC(h) 输入结构层厚度或从设计路面高程点处垂直向下的厚度
Z 输入所求点距中线的边距(注:只可输入正值,不可输入负值)
HP输入所求桩号处的横坡(%前分子有正负).
H=×××显示计算得出的所求点的高程
（①当Z和JGC(h)为0时，则H=×××为路面中桩设计高程等于前面显示的H(S) ；
②当Z为0，JGC(h)不为0时，则H=×××为路面垂直向下至某层的中桩设计高程；
③当Z、JGC(h)、 HP三者同时不为0时，则H=×××为路面垂直向下至某层
的边桩对应Z位置的设计高程；
④当Z不为0、JGC(h)为0、 HP不为0时，则H=×××为路面边桩对应Z
位置的设计高程；）。