自编5800隧道超欠挖综合程序(可用)(非常好).docVIP

任意坐标正反算及隧道超欠挖程序(2010-10-22) 1-JIN YU(主程序) Lbl 4: “1→ZS,2→FS,3→CQW”?N(选择计算模式，1为正算，2为反算，3为超欠挖)N=1=Goto 1:N=2=Goto 2:N=3=Goto 3 Lbl 1: “K=”? S：“P=”? Z：Prog “SJ-PM”： 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：“W=”: Locate4,4,F°◢ Goto 4 (正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=) Lbl 2:“X=”? X：“Y=”？ Y:Prog“SJ-PM”： 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:F-90→F: “W=”: Locate4,4,F°◢ Goto 4 (反算-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=) Lbl 3: “X=”?X：“Y=”？Y:Prog“SJ-PM”： 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 2599730.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圆心) (注：隧道断面有多个，依照上面的依次变更 每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。（子程序）O-S→L:A-B→W:Abs(R*W÷2) →T:O-T→M:O+T→PIf S≤M:ThenG-L*B→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Goto4:IfEnd: IfEnd: IfEndLbi3If W＞O：Then G+(M-S)2÷2÷R-L*B→H:Goto5: Else If W＜O: Then G-(M-S)2÷2÷R-L*B→H:Goto5: IfEnd: IfEndLbi4If W＞O：Then G+( S-P)2÷2÷R-L*A→H:Goto5: Else If W＜O: Then G-( S-P)2÷2÷R-L*A→H:Goto5: IfEnd: IfEndLbi5H→H:casio f