5800全线高程计算程序.docVIP

下载本文档

8
0
约2.06千字
约 4页
2017-06-07 发布于重庆
举报
版权申诉

5800全线高程计算程序.doc

1、本文档共4页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

5800全线高程计算程序

全线高程万用计算程序（中边桩、超高） CASIO fx5800p全线高程计算程序GAOCHEN??主程序Lbl 1“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:Then 0→H:Else:If　K≥B+TThen 0→H:D→C:Else K-B+T→H:Ifend:IfendA- B-K C-H2/ 2R →G：Cls“KM ”：Locate 4，1，K：Locate??10，1，“PY ”：Locate 13，1，L：Fix 3“H ”：Locate 4，2，GProg “PODU”：（E-B）/（D-A）（K-A）+B→I： F-C /（D-A）（K-A）+C→J“HL ”：G+IL→X：Locate 4，3，X：Locate 11，3，“I ”：Locate 13，3，I*100“HR ”：G+JL→Y：Locate 4，4，Y：Locate 11，4，“I ”：Locate 13，4，J*100??显示中边桩高程Cls：Norm 2：“BM+HS≤0,Goto 1”？Z：Z≤0 Goto 1：Cls 输入视线高 “KM ”：Locate 4，1，K：Locate??10，1，“PY ”：Locate 13，1，L：Fix 3“QSM ”: Locate 6，2，Z-G 显示中桩读数 “QSL ”: Locate 6，3，Z-X 显示左桩读数 “QSR ”: Locate 6，4，Z-Y 显示右桩读数 Norm 2：Cls：Goto1 （后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉）以下两个子程序不需运行，只是两个独立的数据库赋值程序，字母重复不影响计算结果GK??数据库子程序If K≤：Then →A：→B：→C：→D：→R：Return：IfendIf K≤：Then →A：→B：→C：→D：→R：Return：IfendIf K≤：Then →A：→B：→C：→D：→R：Return：IfendIf K≤：Then →A：→B：→C：→D：→R：Return：IfendIf K≤：Then →A：→B：→C：→D：→R：Return：IfendIf K≤：Then →A：→B：→C：→D：→R：Return：IfendPODU??计算坡度子程序If K≤75884.442：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤75984.442：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤76452.111：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤76552.111：Then →A：→B：→C：→D：：→F： Return：IfendIf K≤78271.813：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤78371.813：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤78870.831：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤78970.831：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤79284.976：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤79404.976：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤79687.747：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤79767.747：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤79847.747：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤80232.429：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤80312.429：Then →A：→B：→C：→D：→E：→F： Return：IfendIf K≤80392.429：Then →A：→B：→C：→D：→E：→F： Return：Ifend结果显示：高程显示KM 0000.000??PY 0.000H ??00.000 HL 00.000????I -1.5HR 00.000????I -1.5读数显示?KM 0000.000