fx5800p平曲线超高、加宽计算程序——可用.8.20

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 (显示左边超高值)