上班反算程序 交点法.doc

Lbl 0：？X：？Y:交点X坐标→N: 交点Y坐标→E:转向角（左负右正）→A:圆曲线半径→R:缓和曲线长度（没有缓和曲线输10（-45））→C:切线长度→T:直缓点里程→G:缓直点里程→M:线元起点切线方位角→F：If GM: Then 1→P:F→U: Else -1→P:F+A→U:IfEnd←┘ If A0:Then 1→Z ：Else -1→Z: IfEnd←┘ Pol(X-N,Y-E)←┘ G+PT+Rec(I,J-U)→S:J→D←┘ If GM:Then Goto3:IfEnd←┘ If S≤G:Then S→K：ZD→Q：Goto 9:Else Goto4:IfEnd←┘ Lbl 3←┘ If S≥G:Then S→K：ZD→Q：Goto 9←┘ Lbl 4←┘ C2÷24÷R-C^(4)÷2688÷R^(3)→W:C÷2-C^(3)÷240÷R（2）→V: 90C÷R÷π→B←┘ Pol(P(S-G)-V,ZD-R-W)←┘ If J≥B-90:Then Goto 5:IfEnd←┘ P(S-G)+P(S-G)^(5)÷40÷R2÷C2→Z←┘ Z^(3)÷(6RC)→H←┘ If A0:Then D-H→W:Else -D-H→W:IfEnd←┘ If RC≤2WC:Then RC÷W→Z:Else(RC-√(R2C2-2RCWZ))÷W→Z ：IfEnd←┘ G+PZ→K:K-PZ^(5)÷(40R2C2)→V:Z^(3)÷(6RC)→H←┘ If A0:Then -1→Z:Else 1→Z:IfEnd←┘ √((S-V)2+(ZD-H)2)→W←┘ If ZD≥H:Then W→Q:Else -W→Q: IfEnd←┘ Goto 9:Lbl 5←┘ (90+J)π÷180-C÷(2R)→J←┘ If RJ≥P(M-G)-2C:Then Goto 6:IfEnd←┘ G+P(C+JR)→K:R-I→Q:Goto 9←┘ Lbl 6←┘ Pol(P(S-G)-T,ZD)←┘ M-P(T-Rec(I,J-Abs(A)))→O←┘ If GM:Then Goto 7:IfEnd←┘ If OM:Then O→K:J→Q: Goto 9←┘ Else Goto 8:IfEnd←┘ Lbl 7←┘ If O≤M:Then O→K:J→Q:IfEnd←┘ Goto 9←┘ Lbl 8←┘ P(M-O)+P(M-O)^(5)÷(40R2C2)→Z←┘ Z^(3)÷(6RC)→H←┘ J-H→W←┘ If RC≤2WZ:Then RC÷W→Z:Else (RC-√(R2C2-2RCWZ))÷W→Z: IfEnd←┘ M-PZ→K:K+PZ^(5)÷(40R2C2)→V:Z^(3)÷(6RC)→H:√((O-V)2+(J-H)2)→W←┘ If J≥H:Then W→Q:Else -W→Q: IfEnd←┘ Goto 9←┘ Lbl 9←┘ “K=”:K◢ “Q=”:Q◢ ?H:ProgSDCQW◢ Goto 0←┘ 加一个关于高程的 SDCQW 的子程序 SDCQW If K≤变坡里程 And K≥竖曲线起点里程：Then 变坡点高程—（变坡里程—K）*前坡坡度—（K—竖曲线起点里程）2/(2R)(R为竖曲线半径) →G：IfEnd←┘ If K≥变坡里程And K≤竖曲线终点里程：Then 变坡点高程—（K—变坡里程）*后坡坡度—（竖曲线终点里程—K）2/(2R）(R为竖曲线半径) →G: ：IfEnd←┘ 上述情况为竖曲线属于凸曲线时的做法，这是变坡段的高程，平坡段就根据（K+平坡里程）*坡度→G: ：IfEnd←┘ H—G→T◢ If T≥4.805：Then√(Q2+(T+0.849)2)—8.5（此数为所控制圆弧半径）→M：IfEnd←┘ （注：1 大里程坡度—小里程坡度=正数为凸曲线，反之为凹曲线 2上述情况为竖曲线属于凸曲线时的做法，这是变坡段的高程，平坡段就根据（K+平坡里程）*坡度=G 3 以此类推其他圆弧的算法也出来了 X，Y为待反算点坐标 N为交点X E为交点Y A为转向角（左转为负，右转为正） R为曲线半径 C为缓和曲线长（无缓和曲线时输入10^(-45)） T为切线长 G为ZH点里程 （无缓和曲线时输入ZY点里程） M为HZ点里程 （无缓和曲线时输入YZ点里程） F为曲线切线方位角 要将此程序转化为隧道中线则需要按照设计线距离隧道中线多少进行关于有Q的项目前加减多少。 注：此程序计算所得的偏距与转角左右有关，曲线左转时偏距（面向大里程为左正右负），曲线右转时偏距（面向大里程为右正左负） 直线反算程序 LbI 0:？X：？Y:起点里程→