1、fx-5800p平曲線超高、加寬計算程序主程序文件名：cgjk（意思：超高加寬）程序輸入內容如下：lbl 0:cls:“zh=”?c:“hz=”?e: “(b2)=”？a: “i1=”？b: “ic=”？p:“jk=”?x: “z-1,y+1”?z: “ls1=”?g: “ls2=”?nlbl 1:cls:do: “cd,0return”?s:“sjbg=”?y:if s0 or se:then goto 0:ifendg=0goto 5n=0goto 5scgoto 5segoto 5sc+ggoto 2c+0.04g（b+p）h：（s-c）gl：l（b+p）-bi：a+lxjif sh:t

2、hen -bjd:aif:else -ijd:aif:ifendgoto 4lbl 2:se-ngoto 3a+xj:-p(a+x)d:apf: goto 4lbl 3:e-0.04n（b+p）k:(e-s) nl:a+lxj:l(b+p)-biif sk:then -ijd:aif:else -bjd:aif:ifendgoto 4lbl 4:if z0:then jh:ak:dl:fm: goto 6: ifendif z0:then ah:jk:fl:dm: goto 6: ifendlbl 5: ah:ak:-abl:-abm: goto 6lbl 6: cls“zk=”:locate

3、 4,1,h“yk=”:locate 4,2,k“hz=”:locate 5,3,l“hy=”:locate 5,4,m“hl=”:y+l“hp=”:y“hr=”:y+m“iz(%)=”:lh100“iy(%)=”:mk100goto 1說明：本程序適用于繞中軸旋轉的一、二級公路，繞邊軸旋轉不適用，在三、四級公路上，有的設計也采用類加寬，采用類加寬可直接使用本程序計算加寬值，有的則采用類加寬，采用類加寬的只需將lbl 3中的a+lxj改為a+（4l（3）-3l（4）xj即可。算例：zh=? 467.125 (輸入zh點樁號)hz=? 557.530 (輸入hz點樁號)(b2)=? 4.25 (

4、輸入半幅路基設計寬度)i0=? 0.02 (輸入路面設計橫坡度)ic=? 0.06 (輸入平曲線超高設計橫坡度)jk=? 2.00 (輸入平曲線加寬設計值)z-1,y+1? -1 (輸入-1為左轉彎, 輸入+1為右轉彎,左-右+)ls1=? 35.000 (輸入第一緩和曲線長度)ls1=? 35.000 (輸入第二緩和曲線長度)cd,0return? 467.125 (輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=4.25 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.085 (顯示左邊超高值)hy=-0.085 (顯示右邊超高值)h

5、l=99.915 (顯示左邊設計標高)hp=100.000 (顯示中樁設計標高)hr=99.915 (顯示右邊設計標高)iz(%)=-2.00 (顯示左邊設計橫坡度)iy(%)=-2.00 (顯示右邊設計橫坡度)cd,0return? 480 (輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=4.99 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.100 (顯示左邊超高值)hy=0.040 (顯示右邊超高值)hl=99.900 (顯示左邊設計標高)hp=100.000 (顯示中樁設計標高)hr=100.040 (顯示右邊設計標高)iz(

6、%)=-2.0 (顯示左邊設計橫坡度)iy(%)=0.9 (顯示右邊設計橫坡度)cd,0return? 490 (輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=5.56 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.179 (顯示左邊超高值)hy=0.137 (顯示右邊超高值)hl=99.821 (顯示左邊設計標高)hp=100.000 (顯示中樁設計標高)hr=100.137 (顯示右邊設計標高)iz(%)=-3.2 (顯示左邊設計橫坡度)iy(%)=3.2 (顯示右邊設計橫坡度)cd,0return? 500 (輸入需計算的樁號)

7、sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=6.13 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.338 (顯示左邊超高值)hy=0.234 (顯示右邊超高值)hl=99.662 (顯示左邊設計標高)hp=100.000 (顯示中樁設計標高)hr=100.234 (顯示右邊設計標高)iz(%)=-5.5 (顯示左邊設計橫坡度)iy(%)=5.5 (顯示右邊設計橫坡度)cd,0return? 510 (輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=6.25 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)

8、hz=-0.375 (顯示左邊超高值)hy=0.255 (顯示右邊超高值)hl=99.625 (顯示左邊設計標高)hp=100.000 (顯示中樁設計標高)hr=100.255 (顯示右邊設計標高)iz(%)=-6.0 (顯示左邊設計橫坡度)iy(%)=6.0 (顯示右邊設計橫坡度)cd,0return? 520 (輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=6.25 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.375 (顯示左邊超高值)hy=0.255 (顯示右邊超高值)hl=99.625 (顯示左邊設計標高)hp=100.00

9、0 (顯示中樁設計標高)hr=100.255 (顯示右邊設計標高)iz(%)=-6.0 (顯示左邊設計橫坡度)iy(%)=6.0 (顯示右邊設計橫坡度)cd,0return? 530 (輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=5.82 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.250 (顯示左邊超高值)hy=0.182 (顯示右邊超高值)hl=99.750 (顯示左邊設計標高)hp=100.000 (顯示中樁設計標高)hr=100.182 (顯示右邊設計標高)iz(%)=-4.3 (顯示左邊設計橫坡度)iy(%)=4.3 (

10、顯示右邊設計橫坡度)cd,0return? 540 (輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=5.25 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.105 (顯示左邊超高值)hy=0.085 (顯示右邊超高值)hl=99.895 (顯示左邊設計標高)hp=100.000 (顯示中樁設計標高)hr=100.085 (顯示右邊設計標高)iz(%)=-2.0 (顯示左邊設計橫坡度)iy(%)=2.0 (顯示右邊設計橫坡度)cd,0return? 550(輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=4.68 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.094 (顯示左邊超高值)hy=-0.012 (顯示右邊超高值)hl=99.906 (顯示左邊設計標高)hp=100.000 (顯示中樁設計標高)hr=99.988 (顯示右邊設計標高)iz(%)=-2.0 (顯示左邊設計橫坡度)iy(%)=-0.3 (顯示右邊設計橫坡度)cd,0return? 557.530(輸入需計算的樁號)sjbg=？100.000 (輸入需計算樁號的中樁設計標高)zk=4.25 (顯示左幅路基寬度)yk=4.25 (顯示右幅路基寬度)hz=-0.085 (顯示左邊超高值)