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 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(程序名)

0 L﹤31182.853=>“INPUT L≥K31+182.853”:Prog“ZDGC”：⊿ 1 L ≤31495=>Prog“1”:Goto 1: ⊿ （31495为第一竖曲线终点桩号） 2 L≤31960=>Prog“2”:Goto 1: ⊿ 3 L≤32769.975=>Prog“3”:Goto 1: ⊿ 4 L≤33380.9=>Prog“4”:Goto 1: ⊿ 5 L≤33875=>Prog“5”:Goto 1: ⊿ 6 L≤34425=>Prog“6”:Goto 1: ⊿ 7 L≤35125=>Prog“7”:Goto 1: ⊿ 8 L≤35580=>Prog“8”:Goto 1: ⊿ 9 L≤36010=>Prog“9”:Goto 1: ⊿ 10 L≤36835=>Prog“10”:Goto 1: ⊿ 11 L≤37660=>Prog“11”:Goto 1: ⊿

12 L≤38547.5=>Prog “12” ⊿ （123458为公路终点桩号）

13 L＞38547.5=>“INPUT L≤38547.5”:Prog“ZDGC”：⊿ （123458为公路终点桩号） 14 Lbl 1

子程序2 （平曲线引导程序） G1(程序名)

1 L ≤31508.947=>Prog“21”:Goto 1: ⊿ （31508.947为第一平曲线超高终点桩号） 2 L≤32396.483=>Prog“22”:Goto 1: ⊿ 3 L≤33897.097=>Prog“24”:Goto 1: ⊿ 4 L≤35186.287=>Prog“25”:Goto 1: ⊿ 5 L≤36030.863=>Prog“26”:Goto 1: ⊿ 6 L≤36958.143=>Prog“27”:Goto 1: ⊿ 7 L≤37713.274=>Prog“28”:Goto 1: ⊿

8 L≤38681.034=>Prog “29” ⊿ （38681.034为公路终点桩号） 9 Lbl 1

子程序（竖曲线要素） 1(程序名)

1 R=35000 (竖曲线半径，凸取负，凹取正) 2 T=175 （竖曲线切线长） 3 A=31320 （竖曲线中心桩号） 4 H=977.55(变坡点高程) 5 J= -0.04（变坡点前纵坡） 6 I= -0.03 （变坡点后纵坡） 2(程序名)

1 R= -60000 (竖曲线半径，凸取负，凹取正) 2 T=180 （竖曲线切线长） 3 A=31780 （竖曲线中心桩号） 4 H=963.75(变坡点高程) 5 J= -0.03（变坡点前纵坡） 6 I= -0.036 （变坡点后纵坡） 3(程序名)

1 R= 13000 (竖曲线半径，凸取负，凹取正) 2 T=169.975（竖曲线切线长） 3 A=32600（竖曲线中心桩号） 4 H=934.23(变坡点高程) 5 J= -0.036（变坡点前纵坡） 6 I= -0.0098 （变坡点后纵坡）

4(程序名)

1 R= -12000 (竖曲线半径，凸取负，凹取正) 2 T=180.9（竖曲线切线长） 3 A=33200（竖曲线中心桩号） 4 H=928.32(变坡点高程) 5 J= -0.0098（变坡点前纵坡） 6 I= -0.04 （变坡点后纵坡） 5(程序名)

1 R= 35000 (竖曲线半径，凸取负，凹取正) 2 T=175（竖曲线切线长） 3 A=33700（竖曲线中心桩号） 4 H=908.32(变坡点高程) 5 J= -0.04（变坡点前纵坡） 6 I= -0.03 （变坡点后纵坡） 6(程序名)

1 R= -35000 (竖曲线半径，凸取负，凹取正) 2 T=175（竖曲线切线长） 3 A=34250（竖曲线中心桩号） 4 H=891.82(变坡点高程) 5 J= -0.03（变坡点前纵坡） 6 I= -0.04 （变坡点后纵坡） 7(程序名)

1 R= 35000 (竖曲线半径，凸取负，凹取正) 2 T=175（竖曲线切线长） 3 A=34950（竖曲线中心桩号） 4 H=863.82(变坡点高程) 5 J= -0.04（变坡点前纵坡） 6 I= -0.03 （变坡点后纵坡） 8(程序名)

1 R= -20000 (竖曲线半径，凸取负，凹取正)

2 T=180（竖曲线切线长） 3 A=35400（竖曲线中心桩号） 4 H=850.32(变坡点高程) 5 J= -0.03（变坡点前纵坡） 6 I= -0.04 （变坡点后纵坡） 9(程序名)

1 R= 10000 (竖曲线半径，凸取负，凹取正) 2 T=150（竖曲线切线长） 3 A=35860（竖曲线中心桩号） 4 H=828.24(变坡点高程) 5 J= -0.04（变坡点前纵坡） 6 I= -0.018 （变坡点后纵坡） 10(程序名)

1 R= -45000 (竖曲线半径，凸取负，凹取正) 2 T=225（竖曲线切线长） 3 A=36610（竖曲线中心桩号） 4 H=814.74(变坡点高程) 5 J= -0.018（变坡点前纵坡） 6 I= -0.028 （变坡点后纵坡） 11(程序名)

1 R= 60000 (竖曲线半径，凸取负，凹取正) 2 T=210（竖曲线切线长） 3 A=37450（竖曲线中心桩号） 4 H=791.22(变坡点高程) 5 J= -0.028（变坡点前纵坡） 6 I= -0.021 （变坡点后纵坡） 12(程序名)

1 R= -35000 (竖曲线半径，凸取负，凹取正) 2 T=227.5（竖曲线切线长） 3 A=38320（竖曲线中心桩号） 4 H=934.23(变坡点高程) 5 J= -0.021（变坡点前纵坡） 6 I= -0.034 （变坡点后纵坡） 子程序 （平曲线要素） 21(程序名)

1 B=145 (超高缓和曲线长度) 2 Q=471.094 (超高曲线全长度) 3 C=0.03 (超高值)

4 F= -1（曲线右，左参数）

5 S=31037.853 （超高缓和起点桩号）

22(程序名)

1 B=140 (超高缓和曲线长度) 2 Q=892.536 (超高曲线全长度)

3 C=0.04 (超高值) 4 F=1（曲线右，左参数）

5 S=31508.947 （超高缓和起点桩号）

6 L>=32256.483=>B=140:Q=882.536:S=31513.947:⊿

24(程序名)

1 B=140 (超高缓和曲线长度) 2 Q=395.3(超高曲线全长度) 3 C=0.02(超高值)

4 F=1 （曲线右，左参数）

5 S=33491.797 （超高缓和起点桩号）

6 L>=33747.097=>B=150:Q=415.3:S=33481.797:⊿ 25(程序名)

1 B=160 (超高缓和曲线长度) 2 Q=488.351 (超高曲线全长度) 3 C=0.03 (超高值)

4 F= -1（曲线右，左参数）

5 S=34697.936 （超高缓和起点桩号）

26(程序名)

1 B=150 (超高缓和曲线长度) 2 Q=420.508 (超高曲线全长度) 3 C=0.02 (超高值)

4 F=1 （曲线右，左参数）

5 S=35640.355 （超高缓和起点桩号）

6 L>=35910.863=>B=120:Q=360.508:S=35670.355:⊿ 27(程序名)

1 B=120 (超高缓和曲线长度) 2 Q=897.28 (超高曲线全长度) 3 C=0.04 (超高值)

4 F= -1（曲线右，左参数）

5 S=36030.863 （超高缓和起点桩号）

6 L>=36808.143=>B=150:Q=957.28:S=36000.863: ⊿ 28(程序名)

1 B=130 (超高缓和曲线长度) 2 Q=581.915 (超高曲线全长度) 3 C=0.04 (超高值)

4 F=1 （曲线右，左参数）

5 S=37131.359 （超高缓和起点桩号）

29(程序名)

1 B=180 (超高缓和曲线长度) 2 Q=967.76 (超高曲线全长度)

3 C=0.03 (超高值)

4 F= -1（曲线右，左参数）

5 S=37713.274 （超高缓和起点桩号）

XS1(程序名)

1 Fix 3 ：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：Norm(保留3位小数）

平 曲 线 要 素 表

交点 半径 第一超高缓和曲线长 第二超高缓和曲线长 曲线左，右参数 1 1000 145 145 左 2 800 145 140 右 3 2700 140 140 左 4 2000 140 150 右 5 1000 160 160 左 6 1600 150 120 右 7 800 120 150 左 8 800 130 130 右 9 1000 180 180 左

交点 ZH HY YH HZ 超高值 1 k31+037.853 k31+182.853 k31+363.947 31+508.947 0.03 2 k31+508.947 k31+653.947 k32+256.483 k32+396.483 0.04 3 k32+396.483 k32+536.483 k33+351.797 k33+491.797 0 4 k33+491.797 k33+631.797 k33+747.097 k33+897.097 0.02 5 k34+697.936 k34+857.836 k35+026.287 k35+186.287 0.03 6 k35+640.355 k35+790.355 k35+910.863 k36+030.863 0.02 7 k36+030.863 k36+150.863 k36+808.143 k36+958.143 0.04 8 k37+131.359 k37+261.359 k37+583.274 k37+713.274 0.04 9 k37+713.274 k37+893.274 k38+501.034 k38+681.034 0.03

竖曲线要 素 表

编号 半径 切线 变坡点桩号 变坡点高程 前坡 后坡 凹/凸 1 35000 175 k31+320 977.55 -0.04 -0.03 凹 2 -60000 180 k31+780 963.75 -0.03 -0.036 凸 3 13000 169.975 k32+600 934.23 -0.036 -0.0098 凹 4 -12000 180.9 k33+200 928.32 -0.0098 -0.04 凸

5 35000 175 k33+700 908.32 -0.04 -0.03 凹 6 -35000 175 k34+250 891.82 -0.03 -0.04 凸 7 35000 175 k34+950 863.82 -0.04 -0.03 凹 8 -20000 180 k35+400 850.32 -0.03 -0.04 凸 9 10000 150 k35+860 828.24 -0.04 -0.018 凹 10 -45000 225 k36+610 814.74 -0.018 -0.028 凸 11 60000 210 k37+450 791.22 -0.028 -0.021 凹 12 -35000 227.5 k38+320 772.95 -0.021 -0.034 凸 中央分隔带为2米。 默认横坡为0.02

路线起点为K31+037.853。终点为K38+501.034。

此程序用于等超高缓和段与不等超高缓和段的程序． ＱＱ：１７９０３８２２５