CASIO4800公路高程计算程序.docVIP

下载本文档

10
0
约6.31千字
约 6页
2018-06-19 发布于河南
举报
版权申诉

CASIO4800公路高程计算程序.doc

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

CASIO4800公路高程计算程序

CASIO4800公路高程计算程序 ZDGC()１ V “Change 0-Only One:1-Auto Next One”（回车）２ V=1= L=1000K+M-20: ≠V﹥1=Prog “ZDGC” ⊿ ⊿(如V取1,则将自动计算每隔20M)3　Lbl 04 V=1 =L=L+20:Goto 1⊿(要得到10M一个桩的高程,把20改成10就可.或则在运行时取v=0即可，就是每次要输入桩号)5 {K，M}6 L=1000K+M7 Lbl 18 Prog “G”9??Prog “SQX”10??Prog “G1”11??Prog “PQX-H”12 Goto 0（１－１2为步号，在输入４８００时，不要输，步号间用回车．下同）主程序2SQX(程序名)1 T=Abs(R*(I-J)/2)2 R=((I-J)/Abs(I-J))*R3 N=A-T4 W=A+T5 U=(L-A)6 L≤N=Z=H+JU:Goto 1 ⊿7 L≤W=Z=H+JU+(N-L)2(平方)/(2R):Goto 1 ⊿8 LW=Z=H+IU ⊿9 Lbl 1主程序3PQX-H(程序名)1 L≤S=E=0.02:G=E:Goto 1 ⊿(其中Ｅ＝．０２为默认横披值)2 L≤(S+B)=E=0.02-(L-S)/B×(0.02+C):G= -E:Abs (E) ≤0.02=G=0.02: ⊿Goto 1:⊿3 L≤(S+Q-B)=E= -C:G= -E:Goto 1 ⊿4 L≤(S+Q)=E=0.02-(S+Q-L)/B×(0.02+C):G= -E:Abs (E) ≤0.02=G=0.02: ⊿Goto 1:⊿5 L＞(S+Q)=E=0.02:G=E⊿6 Lbl 17 {D}（输入边桩距中桩距离）8 D=99=Prog “ZDGC” ⊿9 F=1=O=Z-(D-1)E:P=Z-(D-1)G: ≠F=-1=O=Z-(D-1)G:P=Z-(D-1)E⊿⊿((D-1)中，把１改成0．５则中央分隔带为１M.默认中央分隔带为2M)10 Prog “XS1”子程序1（竖曲线引导程序）G(程序名)0 L﹤31182.853=“INPUT L≥K31+182.853”:Prog“ZDGC”：⊿1 L ≤31495=Prog“1”:Goto 1: ⊿ （31495为第一竖曲线终点桩号）2 L≤31960=Prog“2”:Goto 1: ⊿ 3 L≤32769.975=Prog“3”:Goto 1: ⊿4 L≤33380.9=Prog“4”:Goto 1: ⊿5 L≤33875=Prog“5”:Goto 1: ⊿6 L≤34425=Prog“6”:Goto 1: ⊿7 L≤35125=Prog“7”:Goto 1: ⊿8 L≤35580=Prog“8”:Goto 1: ⊿9 L≤36010=Prog“9”:Goto 1: ⊿10 L≤36835=Prog“10”:Goto 1: ⊿11 L≤37660=Prog“11”:Goto 1: ⊿12 L≤38547.5=Prog “12” ⊿ （123458为公路终点桩号）13 L＞38547.5=“INPUT L≤38547.5”:Prog“ZDGC”：⊿ （123458为公路终点桩号）14 Lbl 1子程序2 （平曲线引导程序）G1(程序名)1 L ≤31508.947=Prog“21”:Goto 1: ⊿ （31508.947为第一平曲线超高终点桩号）2 L≤32396.483=Prog“22”:Goto 1: ⊿ 3 L≤33897.097=Prog“24”:Goto 1: ⊿4 L≤35186.287=Prog“25”:Goto 1: ⊿5 L≤36030.863=Prog“26”:Goto 1: ⊿6 L≤36958.143=Prog“27”:Goto 1: ⊿7 L≤37713.274=Prog“28”:Goto 1: ⊿8??L≤38681.034=Prog “29” ⊿ （38681.034为公路终点桩号）9??Lbl 1子程序（竖曲线要素）1(程序名)1??R=35000 (竖曲线半径,输入正值)2??A=31320 （竖曲线中心桩号）3??H=977.55(变坡点高程)4??J= -0.04（变坡点前纵坡）5??I= -0.03 （变坡点后纵坡）2(程序名)1??R=60000 (竖曲线半径,输入正值)2??A=31780 （竖曲线中心桩号）3 H=963.75(变坡点高程)4??J= -0.03（变坡点前纵坡）5??I=??-0.036 （变坡点后纵坡）3