CASIOfx4800公路高程计算程序.docVIP

CASIO fx4800公路高程计算程序(可计算任一点中边桩高程，输入桩号即可） CASIO fx4800 公路高程计算程序（作者：chen he ming　浙江共司令）有了它，上工地时，告别图纸，资料（高程）主程序1ZDGC(程序名）１ V “Change 0-Only One:1-Auto Next One”（回车）２ V=1= L=1000K+N “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，N}6 L=1000K+N “M”7 Lbl 18 Prog “G”9 Prog “SQX”10 Prog“G1”11 Prog“PQX-H”12 Goto 0（１－１２为步号，在输入４８００时，不要输，步号间用回车．下同）主程序2SQX(程序名）1 M=A-T2 W=A+T3 U=Abs (A-L)4 L≤M=Z=H-JU:Goto 1 5 L≤A=Z=H-JU+(L-M)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=E6 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 ≤123456=Prog“4”:Goto 1: （123456为第一平曲线超高终点桩号）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 （超高缓和起点桩号）子程序5XS1(程序名）1 Z“H1”=Z(显示纵断设计值)2 V=0=Goto 03 L◢(当自动计算时显示桩号)4 Lbl05 D=0=Goto 1 6 O “H1L”=O◢(显示左边桩值)7 P “H1R”=P(显示右边桩值)8 Lbl 1此程序用于等超高缓和段的曲线..．.