中侧桩高程和加宽计算.doc

中边桩高程及加宽计算程序 （绕中轴旋转高次抛物线超高加宽） 2008年4月23日 徐锋 GCJKJS（主程序） A“P1”B“P2”RD“JD ZHANG”I“JD-H” S“LH” G“LJK” M“SJJK” P“LGHP” Q“CGHP” U“ZH” X“HZ” Z“(Z－，Y+)”：Z[1]=Z：LBI0：{Z}：Z：W=B-A：T=AbsWR÷2：E=TW÷4：C=D-T：F=D+T：W≥0=K=（Z-C）2÷（2R）：≠ K= -（Z-C）2÷2R：Goto1 Lbi1：Z≤D-T=Goto5：≠Z＞D-T=Z≤D+T=Goto3：≠Z＞D+T=Goto4：Lbi5：H=I-A（D-Z） GotoD：Lbi3：H=I-A（D-Z）+K GotoD：Lbi4：H=I-B（D-Z） GotoD LbiD Z≤U=L＝0： Goto2⊿Z≤U+S=L＝Z－U： Goto2⊿Z≤X－S=L＝S： Goto2⊿Z≤X=L＝X－Z： Goto2⊿ZX=L＝0： Goto2⊿ Lbi2：J“JK”=（4×（L÷S）3-3×（L÷S）4）×M Y“WC”=（L÷S×（P+Q））×G÷2-P×G÷2 O=2P÷（P+Q）×S：L≤O=V“LC”=-P×（G÷2+J） GotoC：≠=V“LC”=-（（L÷S）×（P+Q）-P）×（G÷2+J） GotoC LbiC Z[1]0= Prog“A”： Goto 0⊿Prog “B”： Goto0⊿ A（子程序） “G=” ：H=H◢ L0.001=Y=-Y: “ZG=” ：H=H+Y◢ “YG=” ：H=H◢Goto 1 ≠=Y=Y:“ZG=” ：H=H+Y◢ “YG=” ：H=H-Y+V◢Goto 1 Lbi1 “ZK=” ：Z[2]=G/2◢ “YK=” ：Z[3]=G/2+J◢ B（子程序） “G=” ：H=H◢ L0.001=V=V: “ZG=” ：H=H+V◢ “YG=” ：H=H◢Goto 1≠=Y=Y:“ZG=” ：H=H+V◢ “YG=” ：H=H+Y－V◢Goto 1 Lbi1 “ZK=” ：Z[3]=G/2+J◢ “YK=” ：Z[4]=G/2◢ 说明： 程序中字母及符号意义： P1（A）：第一条纵坡坡度（i %，如0.02、-0.02） P2（B）：第二条纵坡坡度（i %，如0.02、-0.02） R：竖曲线半径 JD ZHANG（D）？变坡点桩号 I（JD-H）？变坡点高程 S“LH”？ 缓和曲线长（当没有缓和曲线时，请输为0.0001） G“LJK”？标准路基全幅宽度 M“SJJK”？弯道设计最大加宽值 P“LGHP”？ 标准路拱横坡坡值 Q“CGHP” ？弯道设计最大超高值 U“ZH”？直缓桩桩号 X“HZ”？ 缓直桩桩号 Z“(Z－，Y+)”？左偏输入负值，右偏输为正值 Z？待求点桩号 “G=”中桩高程 “ZG=”左边桩高程 “YG=”右边桩高程 “ZK=”左幅路基宽度 “YK=”右幅路基宽度 输入、计算要点 1．一次只能输入一条平竖曲线参数 2．纵坡坡度须代入正负号进行运算 特别说明：1、本程序单下划线部份是中桩高程计算部份 2、本程序双下划线部份是超高加宽计算部份 3、高程计算部份引用了杨小杰的程序，在此特别感谢 优点：将高程、超高、加宽一次性计算出来，减少计算的工作量 以下内容为本站网友共同修正补充，欢迎大家也能参与修改共享补充（无须登陆）... ...? 中边桩高程及加宽计算程序（绕中轴旋转高次抛物线超高加宽）2008年4月23日??徐锋?? GCJKJS（主程序）LbiP：A“P1”B“P2”RD“JD ZHANG”I“JD-H” S“LH” G“LJK” M“SJJK” P“LGHP” Q“CGHP” U“ZH” X“HZ” Z“(Z－，Y+)”：Z[1]=Z：Goto0回车LBI0：{Z}：Z：W=B-A：T=AbsWR÷2：E=TW÷4：C=D-T：F=D+T：W≥0=K=（Z-C）2÷（2R）：≠ K= -（Z-C）2÷2R：Goto1回车Lbi1：Z≤D-T=Goto5：≠Z＞D-T=Z≤D+T=Goto3：≠Z＞D+T=Goto4：Lbi5：H=I-A（D-Z）回车GotoD：Lbi3：H=I-A（D-Z）+K回车GotoD：Lbi4：H=I-B（D-Z）回车GotoD回车LbiD回车Z≤U=L＝0： Goto2⊿Z≤U+S=L＝Z－U： Goto2⊿Z≤X－S=L＝S： Goto2⊿Z≤X=L＝X－Z： Goto2⊿ZX=L＝0： Goto2⊿回车Lbi2：J“JK”=（4×（L÷S）3-3×（L÷S）4）×M回车Y“WC”=（L÷S×（P+Q））×G÷2-P×G