资兴至五里牌公路坐标高程正反算及边坡放样程序(5800程序-案例).docVIP

下载本文档

10
0
约3.55千字
约 3页
2017-06-08 发布于重庆
举报
版权申诉

资兴至五里牌公路坐标高程正反算及边坡放样程序(5800程序-案例).doc

1、本文档共3页，可阅读全部内容。
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程序-案例)

资兴至五里牌公路坐标高程正反算及边坡放样程序Fx-5800P计算器一、主程序Norm 1：Deg：11→DimZ“Zs1,Fs2,BP3 ”?N：If N 1:Then Goto 2:IfEnd坐标正算Lbl 1: “Zhao ”？K：“Li ”?L：Prog “ZX-WN”Cls:Goto 1Lbl 2: If N 3:Then “Zhao ”？K:“LPJ ”?S：“ PJ ”?M: IfEndLbl 3: “Xi ”?X: “Yi ”?Y: “Zi ”?Z 输入观测点的坐标及高程Lbl 4: X-U cos G + Y-V sin G →JIf N 2 And Abs J 0.001:Then K+J→K: Prog “ZX-WN”：Goto 4:IfEnd X-U sin G - Y-V cos G →L:Prog “GC”Cls： Fix 3：If N 2:ThenLocate 1,1, “Zhao ”: Locate 6,1,KIf Z-E 0 Then Locate 1,3, “Wgao ”:Else Locate 1,3, “Wgao ”:IfEndLocate 6,3,Z-E:0→IElse??Locate 1,1, “Dk ”: Locate 4,1,JLocate 1,3, “DL ”: Locate 4,3, Abs L -S-Abs Z-E M -0.05:IfEndLocate 1,2, “L ”: Locate 4,2,Abs L ◣Norm 1Cls:If N 2: Then “Q 0,1 ”?I: :IfEnd If??I 0:Then Goto 2:Else Goto 3:IfEnd二、平面正算子程序 NS Abs K-O →W ：180QW÷π→EW P-R ÷ 2HPR →F：1÷P→J 0.0座机电话号码2→A：0.座机电话号码82→B：1-A→C：1-B→DG+AE J+AF →AG+BE J+BF →BG+CE J+CF →CG+DE J+DF →DG+E J+F →G0.1座机电话号码6→EW E cos A +cos C + 0.5-E cos B +cos D +U→UW E sin A +sin C + 0.5-E sin B +sin D +V→VIf N 1 Then Prog “GC”Cls：Fix 3：Locate 1,1, “X ”: Locate 4,1,U+Lcos G Locate 1,2, “Y ”: Locate 4,2,V+Lsin G Locate 1,3, “Z ”: Locate 4,3,CIfEnd三、平面曲线参数库 ZX-WN If K 3600 And K 3926.41:Then Goto 0:IfEnd K3+926.41短链，长13.59mLbl 0:3600→O:75005.113→U:33957.109→V:286°36′18″→G:326.41→H:10＾ 12 →P:10＾ 12 →R:0→Q:Goto W其余略四、纵曲线及超高计算子程序 GC 4-1 纵曲线参数库3.766→Z[1]：-1.823→Z[2]：3.836→Z[3]：-5→Z[4]：-3→Z[5]：0.504→Z[6]1.794→Z[7]：0.625→Z[8]：2.979→Z[9]：-4.474→Z[10]：-2.118→Z[11]If K 3778.22:Then 3280→J: 151→F: 4222.96→C:1→D:Goto A:IfEnd以下略4-2 中桩标高计算Lbl A:Z[M] →A：Z[M+1] →B：Abs L-M C ÷200→E：Abs K-J →DIf K3940 And K 4005.37:Then D-13.59→D:IfEnd??短链If L B: Then 1→W:Else -1→W:IfEndIf K J: Then F-AD÷100→F:Else F+BD÷100→F:IfEndIf D E:Then F-0.5W E-D E-D ÷C→F:IfEnd4-3 超高计算1100→W:-0.02→A:If P W And R W:ThenA→B:Goto B:IfEnd????直线If PW: Then 50.9÷P+0.004→C:Else 50.9÷R+0.004→C:IfEnd?? 超高值If PW And P R: Then C+A Q→A:-A→B:Goto B:IfEnd 园曲线If RW: Then K-O C+A→A:Else H