卡西欧5800现场高程计算程序.docx

卡西欧5800现场高程计算程序王天悼卡西欧5800P高程高差现场计算小程序 程序功能目的：输入水准仪现场前视读数及设计快速计算出该点的实测高程及与设计值的高差！ 程序名: 0GCGCJS LbI A:Cls:“HS=”?C“BM H=”?G:C+GS LbI B:Cls: “QS=”?D:IfD0 :Then Goto D:ElseGoto C:IfEnd LbI C:MG:AbsC:Goto A LbI D:S-DM:Cls:“HS=”:“SXG=”: “QS =”:“H=”:Locate 6,1,C: Locate 6,2,S: Locate 6,3,D: Locate 6,4,M Cls: “1 =>JiSuan,2=>QXGT”?U: U=1=>Goto E:U=2=>Goto F LbI E CLS:“H(SJ)=”？J:“QS=”: “H=”: “H(SJ)=”: “h=” Locate 6,1,D: Locate 6,2,M:Locate 6,3,J: Locate 6,4,J-M0 Goto B LbI F CLS:Prog“0-QXGT-GC”:HJ:“H=”: “h=”: “h(Z)=”: “h(Y)=” Locate 6,1,M: Locate 6,2,J-M0:Locate 6,3,V-M0: Locate 6,4,W-M0 Goto B 符号说明： HS? 输入水准点上之后视读数 BM H?输入水准点之基准点高程 SXG= 显示视线高程 QS?输入该点的前视读数 QS=显示所输入的该点的前视读数 HC=显示计算所得的该点的实测高程 H(SJ) 为输入该点的设计高程 “h=”为中心线设计高程与实际高程差值 “h(Z)=”为道路左侧设计高程与实际高程差值 “h(Y)=”为道路右侧设计高程与实际高程差值 1 =>JiSuan,2=>QXGT输入1为手动计算，输入2为提取全线贯通高程计算。 Prog“0-QXGT-GC”提取全线贯通高程中的设计高程。