王常隧道说明解释程序.docVIP

王常隧道程序 主程序：Prog “BS-SDGC” “ZX，YX（1，2）：T”？T ↙? ：选择左线与右线参数 T=1 = Goto 0 ↙? ：选择进入左线参数 T=2= Goto 1 ↙? ：选择进入右线参数 Lbl 0 交点桩号→Q：交点坐标X→W：交点坐标Y→K：交点半径→R：前方位角→F：前缓曲线长度→V：后缓曲线长度→M：转角→N：转向（左负右正）→G：左边中心线与中线距离→S：90→E：Prog “JDFY1” Z[8] →H:Goto2↙? Lbl 1 交点桩号→Q：交点坐标X→W：交点坐标Y→K：交点半径→R：前方位角→F：前缓曲线长度→V：后缓曲线长度→M：转角→N：转向（左负右正）→G：右边中心线与中线距离→S：90→E：Prog “JDFY1” Z[8] →H:Goto2↙? Lbl 2 “R-SD:B”?B (上坑半径) “JS-N”？P （测点X坐标） “JS-E”？L （测点Y坐标） “JS-Z”？A （测点Z坐标） Lbl 3 Prog “JDFY2” (进入子程序JDFY2) Pol(P-X,L-Y) (求方位角) J0=J+360→J (负为正，在方位角中没负值都顺时转动) J→Z[21] （方位角值传递给Z[21]变量） -Z[21]+Z[18] →J （方位角与路线方位角求和） Rec(I,J) H+J→H (J在这不是方位角，为里程增量) Abs(J)0.001 =Goto 3 （ 迭代反算循环，当里程增量很小时跳出循环） “H:JSDK=”:H◢ (显示反算后桩号) IF T=1 :Then “I:JSJL=”:I+Wt→I ◢ Goto 4 :IfEnd (Wt路幅中心线与线中心之间距离) IF T=2 :Then “I:JSJL=”:I-Wt→I ◢ Goto 5 :IfEnd(Wt路幅中心线与线中心之间距离) Lbl 4 Prog “HSJ-ZX” （调用左侧高程） “Z[22]：H-SJZ=”；Z[22] ◢ Prog “CG-ZX” ：“H-CG=”：Z[23] ◢ Goto 6 Lbl 5 Prog “HSJ-YX” （调用左侧高程） “Z[22]：H-SJY=”；Z[22] ◢ Prog “CG-YX” ：“H-CG=”：Z[23] ◢ Goto 6 Lbl 6 “H-YX=”：Z[22]+Z[23] →Z[24] ◢ （求圆心高程） “H(Z-YZ)=”:A-Z[24] →Z[25] ◢ (测点与圆心之差) “H(Z-SJ)=”:A-Z[22] →Z[28] ◢ (测点与设计之差) “ZX+K:C”?C (中心加宽) Abs(I)-C→Z[29] “+C,-Q=”:Z[29] ◢ (+超，-欠) “SJ+G：D”？D （设计加高） A-(Z[22]+D) →Z[30] “+C,-Q=”:Z[30] ◢ (+超，-欠) “YX+G:D”?D (圆心加高) A-(Z[24]+D) →Z[31] “+C,-Q=”:Z[31] ◢ (+超，-欠) “CQ-SD=:B”: →Z[26] ◢ (上坑超欠) “CQ-BQ=:C”: →Z[27] ◢ (边墙超欠) Goto 2 ↙ （其中子程序Prog “JDFY1”解释 子程序：Prog “JDFY1” V/2- V^3/(240*R^2)+ V^5/(34560*R^4) →Z[1] ：第一切线增量，大半径红色部分删M/2- M^3/(240*R^2)+ M^5/(34560*R^4) →Z[2] ：第二切线增量，大半径红色部分删V^2/(24*R)- V^4/(2688*R^3) →Z[3] ↙??：:第一缓和曲线内移值M^2/(24*R)- M^4/(2688*R^3) →Z[4] ↙?：第二缓和曲线内移值π*N*R/180+0.5*( V+ M)→Z[5] ↙?? ：（曲线总长）Z[]＋（R+Z[])