5800数据库型全线高程计算程序(2)
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Casio5800 计算器数据库型全线高程计算程序(更新2)
一、主程序:2H-SZY
Lbl 0: HS ?U: BM-H ?X: SXG= : U+X丄输入后视及水准点设计高程显示视线高程
Lbl 1: “QS”?P: “K X x+xx乂' ?K : Prog “ S.Z”/
C 十100—C:
D - 100—D: R Abs(D-C) - 2—T /
If D>C :Then 1 —W:Else1—W:lfEnd /
If K Abs (A-K)—L / If L>T:Then Z+IL —H Cls :"H(S)=": Locate 7, 1, H 丄显示路面设计中桩高程 2 Goto2:Else Z+IL+W(T-L) - 2-R^H : Cls :"H(S)=": Locate 7 , 1, H 丄显示路面设计 中桩高 IfEnd / Lbl 2: J'GC(h)” ?0:” Z”?N:” HP”? J:H-O+N J十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 X x+xxX ?K : Prog “ S.Z”/ C 十100—C: D - 100—D: R Abs(D-C) - 2—T / If D>C :Then 1 —W:Else1—W:IfEnd / If K Abs (A-K)—L / If L>T:Th en Z+IL —H :Cls :"H(S)=": Locate 7,1, H J 显示路面设计中 桩高 2 Goto 9 :Else Z+IL+W(T-L) - 2-R^H : Cls :"H(S)=": Locate 7 , 1, H J 显示路面设计 中桩高 IfEnd / Lbl 0: J'GC(h)” ?0:” Z” ?N:"HP ” ? J: H(C) ?P:H-O+N J - 100—B : Cls :"H=": “ h (+, -)=” Locate 4, 1, B: Locate 8, 2, B-P J输入全站仪实测三角高程显示:设计与实测高差(+ 填, -挖) Goto 1 三、竖曲线数据库格式: If K<下一竖曲线起点里程:Then本竖曲线前坡度(%前分子有正负)—C:本竖曲线后坡度(%前分子有正负)—D: 本竖曲线半径—R: 本竖曲线变坡点桩号—A: 本竖曲线变坡点高程—Z: Goto 1: IfEnd / 四、数据库样例: S.Z 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 / (注:如一条路有多个竖曲线要素则按顺序排列依次添加入数据库S.Z中) If K W *** : Then: *** —C: *** —D: *** —R: *** —A: *** —Z: Goto 1: IfEnd / Lbl 1 /五、输入与显示说明 K X>+XXX? 输入所求的桩号 H(S) = XX? JGC(h) ? Z ? HP?显示所求桩号的路面中桩设计高程 输入结构层厚度或从设计路面高程点处垂直向下的厚度输入所求点距中线的边距(注:只可输入正值,不可输入负值) 输入所求桩号处的横坡(%前分子有止负). H=X XX显示计算得出的所求点的高程 (①当Z和JGC(h)为0时,则H=x XX为路面中桩设计高程等于前面显示的 H(S); ②当Z为0, JGC(h)不为0时,则H=XXX为路面垂直向下至某层的中桩设计高程; ③当Z、JGC(h)、HP三者同时不为0时,贝V H=XXX为路面垂直向下至某层的边 桩对应Z位置的设计高程; ④当Z不为0、JGC(h)为0、HP不为0时,则H=X XX为路面边桩对应Z位 置的设计高程;)