CASIOCASIO 48504850 公路高程计算程序公路高程计算程序( (三维版）三维版）CASIO x4800 公路高程计算程序(三维版）（作者：chen he ming ） 先发.主程序 1 ZDGC 1 V “Change 0-Only One:1-Auto Next One” 2 V=1= F=1000K+N “M”-20: V1=Prog “ZDGC” 3 Lbl 0 4 V=1 =F=F+20:Goto 1 5 K，N 6 F=1000K+N “M” 7 Lbl 1 8 Prog “G” 9 Prog “SQX” 10 Prog “G1” 11 Prog “PQX-H” 12 Goto 0主程序 2 SQX 1 M=A-O 2 W=A+O 3 U=Abs (A-F) 4 FM=Z=H-JU:Goto 1 5 FA=Z=H-JU+(F-M)2/(2R):Goto 1 6 FW=Z=H+IU+(W-F)2/(2R):Goto 1 7 F W=Z=H+IU 8 Lbl 1主程序 3 PQX-H 1 FS=E=0.02:G=E:Goto 1 2 F(S+B)=E=0.02-(F-S)/B (0.02+C):G= -E:Abs (E) 0.02=G=0.02: Goto 1: 3 F(S+Q-B)=E= -C:G= -E:Goto 1 4 F(S+Q)=E=0.02-(S+Q-F)/B (0.02+C):G= -E:Abs (E) 0.02=G=0.02: Goto 1: 5 F(S+Q)=E=0.02:G=E 6 Lbl 1 7 Z10=2= Prog “P1:” Goto 6: 8 D:V=1=Goto 3 9 D :Lab 3 11 L=1=Z8=Z-(D-1)E:Z9=Z-(D-1)G: L=-1= Z8=Z-(D-1)G: Z9=Z- (D-1)E 12 Prog “XSH” 13 Lbl 6 子程序 1（竖曲线引导程序） G 1 F 123456=Prog “1”:Goto 1: （123456 为第一竖曲线终点桩号） 2 F123457=Prog “2”:Goto 1: （123457 为第二竖曲线终点桩号） 3 * 4 F123458= Prog “3” （123458 为公路终点桩号） 5 F123458=“INPUTF123458”： Prog “ZDGC” 6 Lbl1 子程序 2 （平曲线引导程序） G1 1 F 123456=Prog “4”:Goto 1: （123456 为第一平曲线终点桩号） 2 F123457=Prog “5”:Goto 1: （123457 为第二平曲线终点桩号） 3 * 4 F123458=Prog “6” （123458 为公路终点桩号） 5 Lbl 1 子程序 3 （竖曲线要素） 1 1 R= -18000 (竖曲线半径，凸取负，凹取正) 2 O=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 L=1 （参数） 5 S=223.24 （ZH 点桩号） 子程序 5 XSH 1 Z“ H1” ：Z 2 V=0=Goto0 3 F 4 Lbl0 5 D=0=Goto1 6 “H1L”：Z8 7P “H1R”：Z9 8 Lbl1