5800隧道水平,垂直,圆心超欠程序.doc

5800隧道超欠挖程序，带有垂直方向，水平方向，圆心方向超欠计算 1-CQW 4→DimZ Lb1 1 Z[4] →S：“K(L)=”? S: Z[1] →A：“X=”? A：A→Z[1]： →B ：“Y=”?B：B→Z[2]: Lb1 2：Cls “1→RD,2→,CD,3→ZD,4→YD”? Z Z=1= Prog “SJ—PMRD”： Prog “SJ—PMCD”： Prog “SJ—PMZD”： Prog “SJ—PMYD” Prog SUB2-FS If Abs（N）0.001:Then N+S→S:Goto2:IfEnd N+S→S : S→Z[4]：“K=：Locate4,4, S “P=：Locate4,4, S→ K: Z→Z[3] Z[3]=1= Prog “SJ—GCRD”： Prog “SJ—GCCD”： Prog “SJ—GCZD”： Prog “SJ—GCYD”: H→A: “H(CG) =”? A: H- A →H: “H=”：Locate4,4, H→KW,2→CZ,3→EC”? Z Z=1= Prog “SJ-CQW-KW” Z=2= Prog “SJ-CQW-CZ” Z=3= Prog “SJ-CQW-EC” Prog 1-CQW Return (超欠挖-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、输入H（CG）=、显示实测点的设计高程H=、输入实测高程H=、显示超欠挖值及第几圆心上CQ→Y？=) SUB1-ZS(正算子程序)- 1÷P→ C：(P-R)÷(2HPR) → D： 180÷π→ E： 0.1739274226→?A：0.3260725774→ B： 0.0694318442→ K： 0.3300094782→ L： 1-L→ F：1-K→M： →W U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEMW(C+MWD))+Acos(G+QEFW(C+FWD)))→ X V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEMW(C+MWD))+Asin(G+QEFW(C+FWD)))→ Y G+QEW(C+WD)→ F Return SUB2-FS(反算子程序)- Prog SUB1-ZS cos(J-F) →N I sin (I-F) →W Return SUB3-GC（高程子程序）C-D→Q Abs (RQ÷2)→T R(Abs (Q)÷Q)→R:If S≤B-T:Then 0→K:Else If S≥B+T:Then 0→K:D→C: Else S-B+T→K:IfEnd:IfEnd A-(B-S)C-K2÷(2R)→H Return SJ--PMRD（子程序名-平面线形数据库） （JD1前直线段要素输入）If S ≥0（线元起点里程）:Then 24.6449→U（线元起点X坐标）：210.7772→V（线元起点Y坐标）：→O（线元起点里程）：2°00′58.5″→G（线元起点方位角）： →H（线元长度）：→P（线元起点曲率半径）：→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd （JD1第一缓和曲线要素输入）If S ≥70.2756（线元起点里程）:Then 24233.87→U（线元起点X坐标）：21072.2497→V（线元起点Y坐标）：70.275→O（线元起点里程）：2°00′58.5″→G（线元起点方位角）： →H（线元长度）：→P（线元起点曲率半径）：→R（线元终点曲率半径）：→Q（线元左右偏标志：左-1右1直0）：IfEnd （JD1圆曲线要素输入） If S ≥（线元起点里程）:Then 24293.860→U（线元起点X坐标）：21073.16→V（线元起点Y坐标）：→O（线元起点里程）：358°34′4″→G（线元起点方位角）： →H（线元长度）：→P（线元起点曲率半径）：00→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd （JD1第二缓和曲线要素输入） If S ≥（线元起点里程）:Then 24335.2821→U（线元起点X坐标）：21070.409→V（线元起点Y坐标）：→O（线元起点里程）：353°49′12.4″→G（线元起点方位角）： →H（线元长度）：→P（线元起点曲率半径）：→R（线元终点曲率半径）：1 →Q（线元左右偏标志：左-1右1直0）：IfEnd (两交点夹直线要素) If S ≥（线元起点里程）:Then 24394.61→U（线元起点X