全线高程程序(含修改)

《全线高程程序(含修改)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、CASIO4800公路高程计算程序(计算任一点中边桩高程，输入桩号即可）[b]作者：陈heming　浙江共司令有了它，上工地时，告别图纸，资料（高程）[/b]ZDGC(程序名）１V“Change0-OnlyOne:1-AutoNextOne”（回车）２V=1=>L=1000K+M-20:≠>V﹥1=>Prog“ZDGC”⊿⊿(如V取1,则将自动计算每隔20M)3　Lbl04V=1=>L=L+20:Goto1⊿(要得到10M一个桩的高程,把20改成10就可.或则在运行时取v=0即可，就是每次要输入桩号)5{K，M}6L=1000K+M7Lbl

2、18Prog“G”9  Prog“SQX”10  Prog“G1”11  Prog“PQX-H”12Goto0（１－１2为步号，在输入４８００时，不要输，步号间用回车．下同）主程序2SQX(程序名）1N=A-T2W=A+T3U=Abs(A-L)4L≤N=>Z=H-JU:Goto1⊿5L≤A=>Z=H-JU+(L-N)2(平方)/(2R):Goto1⊿6L≤W=>Z=H+IU+(W-L)2(平方)/(2R):Goto1⊿7L>W=>Z=H+IU⊿8Lbl1主程序3PQX-H(程序名）1L≤S=>E=0.02:G=E:Goto1⊿(其中Ｅ＝．０

3、２为默认横披值)2L≤(S+B)=>E=0.02-(L-S)/B×(0.02+C):G=-E:Abs(E)≤0.02=>G=0.02:⊿Goto1:⊿3L≤(S+Q-B)=>E=-C:G=-E:Goto1⊿4L≤(S+Q)=>E=0.02-(S+Q-L)/B×(0.02+C):G=-E:Abs(E)≤0.02=>G=0.02:⊿Goto1:⊿5L＞(S+Q)=>E=0.02:G=E⊿6Lbl17{D}（输入边桩距中桩距离）8D=99=>Prog“ZDGC”⊿9F=1=>O=Z-(D-1)E:P=Z-(D-1)G:≠>F=-1=>O=Z-(D

4、-1)G:P=Z-(D-1)E⊿⊿((D-1)中，把１改成0．５则中央分隔带为１M.默认中央分隔带为2M)10Prog“XS1”子程序1（竖曲线引导程序）G(程序名）1L≤123456=>Prog“Ｊ1”:Goto1:⊿（123456为第一竖曲线终点桩号）2L≤123457=>Prog“Ｊ2”:Goto1:⊿（123457为第二竖曲线终点桩号）3***************4L≤123458=>Prog“Ｊ3”⊿（123458为公路终点桩号）5F＞123458=>“INPUTL≤123458”:Prog“ZDGC”：⊿（123458为公路

5、终点桩号）6Lbl1子程序2（平曲线引导程序）G1(程序名）1L≤735.53=>Prog“4”:Goto1:⊿（735.53为第一平曲线超高终点桩号）2L≤123457=>Prog“5”:Goto1:⊿（123457为第二平曲线超高终点桩号）3***************4L≤123458=>Prog“6”⊿（123458为公路终点桩号）5Lbl1(其中的＂１＂，＂２＂．．．与＂４＂，＂５＂．．．分别代表竖曲线与平曲线要素程序，如一条线路上有８个竖曲线，则在竖曲线引导程序中一直到Prog“８”为止．)子程序3（竖曲线要素）1(程序名）1

6、R=-18000(竖曲线半径，凸取负，凹取正)2T=81（竖曲线切线长）3A=330（竖曲线中心桩号）4H=8.98(变坡点高程)5J=0.006（变坡点前纵坡）6I=-0.003（变坡点后纵坡）子程序4（平曲线要素）4(程序名）1B=148(超高缓和曲线长度)2Q=532.29(超高曲线全长度)3C=0.04(超高值)4F=1或-1（曲线右，左参数）5S=223.24（超高缓和起点桩号）6L>=607.53=>B=128:Q=492.29:S=243.24[color=Black]⊿(此句为不等超高缓和段条件.第一超高缓和段为起点为223

7、.24,长148M,第二超高缓和段为起点为607.53,长128M)[/color]XS1(程序名）1Z“H1”=Z◢(显示纵断设计值)2V=0=>Goto0⊿3L◢(当自动计算时显示桩号)4Lbl05D=0=>Goto1⊿6O“H1L”=O◢(显示左边桩值)7P“H1R”=P◢(显示右边桩值)8Lbl1此程序用于等超高缓和段与不等超高缓和段的程序．ＱＱ：１７９０３８２２５修改后CASIO4800公路高程计算程序(计算任一点中边桩高程，输入桩号即可）主程序1GAO(程序名）Lbl1Prog“E1”Prog“SQX”Prog“PQX-H”“H

8、1=”：Z▲“H1L=”：O▲“H1R=”：P▲Goto1主程序2SQX(程序名）1N=A-T2W=A+T3U=Abs(A-L)4L≤N=>Z=H+JU:Goto1⊿5L≤A=>