5800数据库型全线高程计算程序(2)

1、Casio5800计算器数据库型全线高程计算程序(更新2)一、主程序： 2H-SZYLbl 0: “HS” ?U：“BM-H” ?X：“SXG=”: U+X输入后视及水准点设计高程显示视线高程Lbl 1：“QS” ?P:“K+”?K : Prog“S.Z” C100C: D100D: R Abs(D-C)2TIf DC :Then 1W:Else -1W:IfEnd If KT:Then Z+ILH:Cls :H(S)=: Locate 7，1, H 显示路面设计中桩高程 Goto2:Else Z+IL+W(T-L)22RH: Cls :H(S)=: Locate 7，1, H 显示路面设计中

2、桩高IfEndLbl 2: “JGC(h)” ?O:”Z” ?N:”HP” ? J:H-O+NJ100B: Cls :H=: Locate 3，1, B:H(C)=: Locate6，2,U+X-P : “h（+，-）=”: Locate 4，3,B-U-X+P输入前视后显示实测高及设计与实测的高差（+填，-挖）Goto 1二 主程序： 3H-QZYLbl 1：“K+”?K : Prog“S.Z” C100C: D100D: R Abs(D-C)2TIf DC :Then 1W:Else -1W:IfEnd If KT:Then Z+ILH:Cls :H(S)=: Locate 7，1, H

3、显示路面设计中桩高 Goto:Else Z+IL+W(T-L)22RH: Cls :H(S)=: Locate 7，1, H 显示路面设计中桩高IfEndLbl 0: “JGC(h)” ?O:”Z” ?N:HP” ? J: “H(C) “?P:H-O+NJ100B: Cls :H=:“h（+，-）=” Locate 4，1, B: Locate 8，2, B-P输入全站仪实测三角高程显示：设计与实测 高差（+填，-挖）Goto 1三、竖曲线数据库格式： If K下一竖曲线起点里程: Then本竖曲线前坡度(%前分子有正负)C: 本竖曲线后坡度(%前分子有正负)D: 本竖曲线半径R: 本竖曲线变

4、坡点桩号A: 本竖曲线变坡点高程Z: Goto 1: IfEnd 四、数据库样例: S.ZIf 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 (注：如一条路有多个竖曲线要素则按顺序排列依次添加入数据库S.Z中)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三者同时不