全线高程程序(含修改).doc

CASIO4800公路高程计算程序(计算任一点中边桩高程，输入桩号即可） [b]作者：陈 he ming　浙江共司令有了它，上工地时，告别图纸，资料（高程）[/b]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 N=A-T2 W=A+T3 U=Abs (A-L)4 L≤N=Z=H-JU:Goto 1 ⊿5 L≤A=Z=H-JU+(L-N)2(平方)/(2R):Goto 1 ⊿6 L≤W=Z=H+IU+(W-L)2(平方)/(2R):Goto 1 ⊿7 LW=Z=H+IU ⊿8 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(程序名）1 L ≤123456=Prog“Ｊ1”:Goto 1: ⊿ （123456为第一竖曲线终点桩号）2 L≤123457=Prog“Ｊ2”:Goto 1: ⊿ （123457为第二竖曲线终点桩号）3 ***************4 L≤123458=Prog “Ｊ3” ⊿ （123458为公路终点桩号）5 F＞123458=“INPUT L≤123458”:Prog“ZDGC”：⊿ （123458为公路终点桩号）6 Lbl 1子程序2 （平曲线引导程序）G1(程序名）1 L ≤735.53=Prog“4”:Goto 1: ⊿ （735.53为第一平曲线超高终点桩号）2 L≤123457=Prog“5”:Goto 1: ⊿ （123457为第二平曲线超高终点桩号）3 ***************4 L≤123458=Prog “6” ⊿ （123458为公路终点桩号）5 Lbl 1(其中的＂１＂，＂２＂．．．与＂４＂，＂５＂．．．分别代表竖曲线与平曲线要素程序，如一条线路上有８个竖曲线，则在竖曲线引导程序中一直到Prog “８”为止．)子程序3 （竖曲线要素）1(程序名）1 R= -18000 (竖曲线半径，凸取负，凹取正)2 T=81 （竖曲线切线长）3 A=330 （竖曲线中心桩号）4 H=8.98 (变坡点高程)5 J=0.006 （变坡点前纵坡）6 I= -0.003 （变坡点后纵坡）子程序4 （平曲线要素）4(程序名）1 B=148 (超高缓和曲线长度)2 Q=532.29 (超高曲线全长度)3 C=0.04 (超高值)4 F=1 或-1（曲线右，左参数）5 S=223.24 （超高缓和起点桩号）6 L=607.53=B=128:Q=492.29:S=243.24[color=Black]⊿(此句为不等超高缓和段条件.第一超高缓和段为起点为223.24,长148M,第二超高缓和段为起点为607.53,长128M)[/color]XS1(程序名）1 Z“H1”=Z◢(显示纵断设计值)2 V=0=Goto 0⊿3 L◢(当自动计算时显示桩号)4 Lbl05 D=0=Goto 1 ⊿6 O “H1L”=O◢(显示左边桩值)7 P “H1R”=P◢(显示右边桩值)8 Lbl