5800正反算带设计高程和三心圆超欠挖综合程序.docVIP

任意坐标正反算及隧道超欠挖程序(2010-10-22) 1-JIN YU(主程序) Lbl 4: “1→ZS,2→FS,3→CQW”:“N=”?N: “K=”? S:Prog “SJ-PM”(选择计算模式，1为正算，2为反算，3为超欠挖)N=1=Goto 1:N=2=Goto 2:N=3=Goto 3 Lbl 1: “P=”? Z： Abs(S-O) → W：Prog “SUB1-ZS”： “X=”：Locate4,4,X: “Y=”：Locate4,4,Y:F-90→F:S→ K:Prog“SJ-GC”：“H=”：Locate4,4,H◢ Goto 4 (正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=) Lbl 2: “X=”? X：“Y=”？ Y： X→ I： Y→??J：Prog SUB2-FS：O+W→S: “K=：Locate4,4, S ：“P=：Locate4,4, Z：S→ K:Prog“SJ-GC” ：“H=”：Locate4,4, H◢ Goto 4 (反算-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=) Lbl 3: “X=”?X：“Y=”？Y： X→ I： Y→??J：Prog SUB2-FS：O+W→S: “K=：Locate4,4, S ：“P=：Locate4,4, Z：S→ K:Prog“SJ-GC” ：“H=”：Locate4,4, H◢ Prog“SJ-CQW” ◢ Goto4 (超欠挖-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=、输入实测高程H1=、显示超欠挖值及第几圆心上CQ→Y？=) SJ-PM（子程序名’39”→G（线元起点方位角）：100 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd If S ≥59327.681（线元起点里程）:Then .112→U（线元起点X坐标）：496840.237→V（线元起点Y坐标）：59327.681→O（线元起点里程）：208028’39”→G（线元起点方位角）：90 →H（线元长度）：1×1045→P（线元起点曲率半径）：750→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd (注：有多个，依照上面的依次变更 每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。（子程序名）If S＜坡终点里程And S≥坡起点里程：Then大里程坡度→A：小里程坡度→B：坡点里程→O：坡点高度→G：半径→R：Prog“”:IfEnd (注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。If S＜终点里程And S≥起点里程：Then→A：→B：起点里程→O：起点高→G：→R：Prog“”:IfEnd) SJ-CQW (子程序名”:W: IfEnd:(显示超欠和第1圆心) If F-H≤5.845 And F-H＞-1.169: Then √((Abs (Z)-1)2+( Abs (F-H-1.5)) 2)-6→W : “CQ→Y2=”:W:IfEnd: (显示超欠和第2圆心) If F-H≤-1.169: Then √((Abs (Z)) 2+(H-F+14.05) 2)-16.5→W: “CQ→Y3=”:W: IfEnd: (显示超欠和第3圆心) (注：隧道断面有多个，依照上面的依次变更 每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。G+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→X X+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→YSUB2-FS(反算子程序) G-90→T： Abs((Y-V)cos(T)-(X-U)sin（T）) → W： 0→ Z：Lbl 0：Prog SUB1-ZS： T+QEW(C+WD) →L： (J-Y)cos(L)-(I-X)sin(L) → Z：If Abs(Z)1E-6(注：此处1E-6可输入0.000001)：then Goto1：E