fxp平曲线超高加宽计算程序——可用

1、fx-5800p平曲线超高、加宽计算程序主程序文件名：CGJK (意思：超高加宽)程序输入内容如下：LblO:Cls：“ZH="？C:“HZ="？E： “(BO2)="？A:“iC=”？P: “JK=”？X： “Z-1,Y+1” ？Z： “LS1=" ？G: “LS2=”？N-Lbl l:Cls:Do: "CD, VO=>Return” ?S: “SJBG=" ?Y:If S<0 Or S>E:Then Goto 0: IfEnd*1G=0=>Goto 5*-1N=0=>Goto 5一S<C=>

2、;Goto 5一S>E=>Goto 5+S>C+G=>Goto 2一C+0.04G+ (B+P) -H： (S-C) +G-L： L (B+P) -B-I： A+LXJ+If S<H:Then -BJD:AIF:Else -IJf D:AIf F: IfEnd*Goto 4-*-1Lbl 2:S>E-N=>Goto 3一A+X-J：-P(A+X)fD:APF: Goto 4一Lbl 3:4- (B+P) -K:(E-S) +N-L:A+LXJ:L(B+P)-BI-If S<K:Then -IJD:AIfF:Else -BJfD:AIf F:IfE

3、nd-Goto 41Lbl 4:If Z<0:Then J-H:AfK:D-L:F-M: Goto 6: IfEnd-If Z>0:Then AH:JK:FL:DM: Goto 6: IfEnd-Lbl 5: AfH:AfK：-ABfL：-ABfM: Goto 6+Lbl 6: Cis-“ZK二"：Locate 4H/“YK=" ： Locate 4,2,K，“hZ=" ： Locate 5, 3,L/“hY=" ： Locate 5,4/，“HL=" ：Y+L/“HP 二”：Y/“HR=" ：Y+M/“iZ(%)=&qu

4、ot; ：L+HX100/“iY(%)=" ：M+KX100/Goto -1说明：本程序适用于绕中轴旋转的一、二级公路，绕边轴旋转不适用，在三、 四级公路上，有的设计也采纳n类加宽，采纳n类加宽可直接利用本程 序计算加宽值，有的那么采纳I类加宽，采纳I类加宽的只需将Lbl 3 中的 A+LX-J 改成 A+ (4L 人(3) -3L" (4)X->J 即可。算例：ZH=?(输入ZH点桩号)HZ=?(输入HZ点桩号)(B+2)=?(输入半幅路基设计宽度)i0=?(输入路面设计横坡度)iC=?(输入平曲线超高设计横坡度)JK=?（输入平曲线加宽设计值）hZ=（显示左侧超高

5、值）hY=（显示右边超高值）（显示左侧设计标高）Z-l, Y+l? -1 （输入-1为左转弯，输入+1为右转弯,左-右+）LS1=?（输入第一缓和曲线长度）LS1=?（输入第二缓和曲线长度）CD, <0= >Return?（输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）hZ=（显示左边超高值）hY=（显示右边超高值）HL=（显示左边设计标高）HP=（显示中桩设计标高）HR=（显示右边设计标高）iZ（%）=（显示左侧设计横坡度）i Y （%）=（显示右边设计横坡度）CD, <0=>Return? 480

6、（输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）HL=HP=（显示中桩设计标高）HR=（显示右边设计标高）iZ （%）=（显示左侧设计横坡度） iY （%）=（显示右边设计横坡度）CD, <0=>Return? 490 （输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）hZ=（显示左侧超高值）hY=（显示右边超高值）HL=（显示左侧设计标高）HP=（显示中桩设计标高）HR=（显示右边设计标高）iZ（%）=（显示左侧设计横坡度）i Y （%）=（显示右

7、边设计横坡度）CD, <0=>Return? 500 （输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）hZ=（显示左侧超高值）hY=（显示右边超高值）HL=（显示左侧设计标高）HP=（显示中桩设计标高）HR=（显示右边设计标高）iZ （%）=（显示左侧设计横坡度）iY （%）=（显示右边设计横坡度）CD, <0=>Return? 510 （输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）hZ=（显示左侧超高值）hY=（显示右边超高值）HL

8、=（显示左侧设计标高）HP=（显示中桩设计标高）HR=（显示右边设计标高）iZ（%）=（显示左侧设计横坡度）i Y （%）=（显示右边设计横坡度）CD, <0=>Return? 520 （输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）HR=（显示右边设计标高）iZ （%）=（显示左侧设计横坡度） iY （%）=（显示右边设计横坡度）CD, <0=>Return? 530 （输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）hZ=（显示左侧超

9、高值）hY=（显示右边超高值）HL=（显示左侧设计标高）HP=（显示中桩设计标高）HR=（显示右边设计标高）iZ（%）=（显示左侧设计横坡度）i Y （%）=（显示右边设计横坡度）CD, <0=>Return? 540 （输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）hZ=（显示左侧超高值）hY=（显示右边超高值）HL=（显示左侧设计标高）HP=（显示中桩设计标高）HR=（显示右边设计标高）iZ （%）=（显示左侧设计横坡度） iY （%）=（显示右边设计横坡度）CD, <0=>Return? 550（输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（显示右幅路基宽度）hZ=（显示左侧超高值）hY=（显示右边超高值）HL=（显示左侧设计标高）HP=（显示中桩设计标高）HR=（显示右边设计标高）iZ（%）=（显示左侧设计横坡度）i Y （%）=（显示右边设计横坡度）CD, <0=>Return?（输入需计算的桩号）SJBG=?（输入需计算桩号的中桩设计标高）ZK=（显示左幅路基宽度）YK=（