fx5800p平曲线超高、加宽计算程序——可用.8.20.doc
fx-5800p平曲线超高、加宽计算程序主程序文件名：CGJK（意思：超高加宽）程序输入内容如下：Lbl 0:Cls:“ZH=”?C:“HZ=”?E: “(B÷2)=”？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:Then -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 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(%)=”:L÷H×100“iY(%)=”:M÷K×100Goto 1说明：本程序适用于绕中轴旋转的一、二级公路，绕边轴旋转不适用，在三、四级公路上，有的设计也采用类加宽，采用类加宽可直接使用本程序计算加宽值，有的则采用类加宽，采用类加宽的只需将Lbl 3中的A+LXJ改为A+（4L（3）-3L（4）XJ即可。算例：ZH=? 467.125 (输入ZH点桩号)HZ=? 557.530 (输入HZ点桩号)(B÷2)=? 4.25 (输入半幅路基设计宽度)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 (显示右边超高值)HL=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(%)=-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 (输入需计算的桩号)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 (显示右幅路基宽度)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.000 (显示中桩设计标高)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 (显示右边设计横坡度)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 (显示左边超高值)hY=-0.085 (显示右边超高值)HL=99.915 (显示左边设计标高)HP=100.000 (显示中桩设计标高)HR=99.915 (显示右边设计标高)iZ(%)=-2.0 (显示左边设计横坡度)iY(%)=-2.0 (显示右边设计横坡度)CD,0Return? -1(输入-1返回循环计算下一个弯道) 编者:罗有敬二O一一年八月二十日
