fx-5800P平曲线超高、加宽计算程序(实用!!!).docVIP

5800平曲线超高、加宽计算程序5800 CG JK JS LbI 0:Cls: “ZH”? C :“HZ”? E: “LBK”? A: “HP” ?B: “Z-,Y+”? Z: “LS”? G: “CG”?P: “JK” ?X←∣ P+B→O: 0.04G÷O→N:Goto 1←∣ LbI 1: Cls: Do：“CD，0=﹥ Return!”?S:If S0:Then Goto 0:IfEnd ←∣ S＜C=﹥ Goto5←∣ SE =﹥ Goto5←∣ S＞C+G =﹥ Goto2←∣ N+C→H:(S-C)/G→L: LO-B→I:LX+A→J←∣ If S＜H:Then -BJ→D: AI→F:Else -IJ→D:AI→F:IfEnd ←∣ Goto4←∣ LbI 2: S＞E-G =﹥ Goto3←∣ X+A→J: -P(A+X)→D: AP→F: Goto4←∣ LbI 3: E-N→K:(E-S)/G→L:(4L3-3L4)X+A→J:LO-B→I←∣ If S＜K:Then -IJ→D:AI→F: Else -BJ→D: AI→F:IfEnd ←∣ Goto4←∣ LbI 4:If:Z＜0:: J→H:A→K:D→L:F→M:Goto6:IfEnd←∣ If Z≥0:Then A→H:J→K:F→L: D→M:Goto6:IfEnd←∣ LbI 5:A→H:A→K:-BA→L:-BA→M:Goto6←∣ Lbl 6: Cls ←∣ “ZK=”: Locate 4,1,H←∣ “YK=”: Locate 4,2,K←∣ “Z-H=”: Locate 5,3,L←∣ “Y-H=” : Locate 5,4,M▲ Goto1←∣ Lbl 0: Cls:“Return”：Stop ←∣ 说明：该程序适用于绕中轴旋转的一、二级公路，在三、四级公路上，有的设计也采用Ⅰ类加宽（本程序），有的则采用Ⅱ类加宽，只需将Lbi3中的=(4L3-3L4)X+A→J改为LX+A→J即可。 算例： ZH=? 467.125 (输入ZH桩号) HZ=? 557.530 (输入HZ桩号) LBK=? 3.25 (输入路半宽) HP=? 0.02 (输入直线段设计横坡)（正数） Z-,Y+=? -1 (输入平曲线转向，左转任意负数，右转任意正数) LS=? 20 (输入缓和曲线长度) CG=? 0.03 (输入全超高横坡) JK=? 1.0m (输入全加宽值) CD=? 460 (输入待求点里程) ZK= 3.25 (显示路基左宽) YK= 3.25 (显示路基右宽) Z △H = -0.065 (显示左超高值) Y △H = -0.065 (显示右超高值) 里程桩号 ZK YK Z △H Y △H K0+460 3.25 3.25 -0.065 -0.065 K0+467.125 3.25 3.25 -0.065 -0.065 K0+480 3.89 3.25 -0.078 0.040 K0+487.125 4.25 3.25 -0.128 0.10 K0+500 4.25 3.25 -0.128 0.10 K0+537.530 4.25 3.25 -0.128 0.10 K0+540 4.17 3.25 -0.10 0.077 K0+557.530 3.25 3.25 -0.065 -0.065 CG JK JS-----超高加宽计算 ZH—直缓 HZ----缓直 HP----横坡 ZK---左宽 YK---右宽 Z-H---左边与中桩高差 Y-H—右边与中桩高差