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

CASIO4800公路高程计算程序(计算任一点中边桩高程，输入桩号即可）b作者：陈 he ming浙江共司令有了它，上工地时，告别图纸，资料（高程）/bZDGC(程序名） V “Change 0-Only One:1-Auto Next One”（回车） V=1= L=1000K+M-20: V1=Prog “ZDGC” (如V取1,则将自动计算每隔20M)3Lbl 04 V=1 =L=L+20:Goto 1(要得到10M一个桩的高程,把20改成10就可.或则在运行时取v=0即可，就是每次要输入桩号)5 K，M6 L=1000K+M7 Lbl 18 Prog “G”9Prog “SQX”10Prog “G1”11Prog “PQX-H”12 Goto 0（2为步号，在输入时，不要输，步号间用回车下同）主程序2SQX(程序名）1 N=A-T2 W=A+T3 U=Abs (A-L)4 LN=Z=H-JU:Goto 1 5 LA=Z=H-JU+(L-N)2(平方)/(2R):Goto 1 6 LW=Z=H+IU+(W-L)2(平方)/(2R):Goto 1 7 LW=Z=H+IU 8 Lbl 1主程序3PQX-H(程序名）1 LS=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 L123457=Prog“2”:Goto 1: （123457为第二竖曲线终点桩号）3 *4 L123458=Prog “3” （123458为公路终点桩号）5 F123458=“INPUT L123458”:Prog“ZDGC”： （123458为公路终点桩号）6 Lbl 1子程序2 （平曲线引导程序）G1(程序名）1 L 735.53=Prog“4”:Goto 1: （735.53为第一平曲线超高终点桩号）2 L123457=Prog“5”:Goto 1: （123457为第二平曲线超高终点桩号）3 *4 L123458=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.24color=Black(此句为不等超高缓和段条件.第一超高缓和段为起点为223.24,长148M,第二超高缓和段为起点为607.53,长128M)/colorXS1(程序名）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此程序用于等超高缓和段与不等超高缓和段的程序：修改后CASIO4800公路高程计算程序(计算任一点中边桩高程，输入桩号即可）主程序1GAO(程序名）Lbl 1Prog “E1”Prog “SQX”Prog “PQX-H”“H1=”：Z“H1L=”：O“H1R=”：PGoto 1主程序2SQX(程序名）1 N=A-T2 W=A+T3 U=Abs (A-L)4 LN=Z=H+JU:Goto 1 5 LA=Z=H+JU+(L-N)2(平方)/(2R):Goto 1 6 LW=Z=H+IU+(W-L)2(平方)/(2R):Goto 1 7 LW=Z=H+IU 8 Lbl 1主程序3PQX-H(程序名）1 LS=E=M:G=E:Goto 1 2 L(S+B)=E=M-(L-S)/B(M+C):G= -E:Abs (E) M=G=M: Goto 1:3 L(S+Q-B)=E= -C:G= -E:Goto 1 4 L(S+Q)=E=M-(S+Q-L)/B(M+C):G= -E:Abs (E) M=G=M: Goto 1:5 L(S+Q)=E=M:G=E6 Lbl 17 D（输入边桩距中桩距离）8 D=99=Prog “GAO” 9 F=1=O=Z-(D-K)E:P=Z-(D-K)G: F=-1=O=Z-(D-K)G:P=Z-(D-K)EXS1(程序名）Z“H1”=Z(显示纵断设计值)Lbl1D=10000=Goto 1 O “H1L”=O(显示左边桩值)P “H1R”=P(显示右边桩值)Lbl 1子程序1E1(程序名）1 L 176.27=R=-1000：T=27.75：A=139.325：H=252.912：J=-.018：I=-.0375：B=0：Q=100：C=.02：F=1：S=100：M=0：G0T01：Prog“GAO”： Lbl 11 R= -18000 (竖曲线半径，凸取负，凹取正)2 T=81 （竖曲线切线长）3 A=330 （竖曲线中心桩号）4 H=8.98 (变坡点高程)5 J=0.006 （变坡点前纵坡上+，下-）6 I= -0.003 （变坡点后纵