CASIO4800公路高程计算程序

概要：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 L>W=>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

CASIO4800公路高程计算程序,http://www.gczl8.com
CASIO4800公路高程计算程序(计算任一点中边桩高程，输入桩号即可） 作者：陈 he ming　
有了它，上工地时，告别图纸，资料（高程）
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 0
4 V=1 =>L=L+20:Goto 1⊿(要得到10M一个桩的高程,把20改成10就可.或则在运行时取v=0即可，就是每次要输入桩号)
5 {K，M}
6 L=1000K+M

7 Lbl 1
8 Prog “G”
9  Prog “SQX”
10  Prog “G1”
11  Prog “PQX-H”
12 Goto 0
（１－１2为步号，在输入４８００时，不要输，步号间用回车．下同）
主程序2
SQX(程序名）
1 N=A-T
2 W=A+T
3 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 L>W=>Z=H+IU ⊿
8 Lbl 1
主程序3
PQX-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 1
7 {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 ≤755.53=>Prog“4”:Goto 1: ⊿ （755.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 （超高缓和起点桩号）

XS1(程序名）
1 Z“H1”=Z◢(显示纵断设计值)
2 V=0=>Goto 0⊿
3 L◢(当自动计算时显示桩号)
4 Lbl0
5 D=0=>Goto 1 ⊿
6 O “H1L”=O◢(显示左边桩值)
7 P “H1R”=P◢(显示右边桩值)
8 Lbl 1