5800隧道超欠挖综合程序..docVIP

任意坐标正反算及隧道超欠挖程序 1-JIN YU(主程序) Lbl 5: “1→ZS,2→FS,3→CQW,4→ERCH”?NN=1=Goto 1:N=2=Goto 2:N=3=Goto 3:N=4=Goto 4 Lbl 1: “K=”? S：“P=”? Z：Prog “PM-SJ”： Abs(S-O) → W：Prog “SUB1”： “X=”： X◢ “Y=”： Y◢ S→K:Prog“SJ-GC”:“H=”:H◢ Goto 5 Lbl 2:“X=”? X：“Y=”？ Y:Prog“PM-SJ”： X→ I： Y→??J：Prog SUB2：O+W→S: “K=： S ◢ “P=： Z◢ S→ K:Prog“SJ-GC” ：“H=”：H◢ Goto5 Lbl 3: “X=”?X：“Y=”？Y:Prog“PM-SJ”： X→ I： Y→??J：Prog SUB2：O+W→S: “K=： S ◢ “P=： Z◢ S→ K:Prog“SJ-GC” ：“H=”： H◢ Prog“CQW-JS” ◢ Goto5 Lbl 4: “X=”?X：“Y=”？Y:Prog“PM-SJ”： X→ I： Y→??J：Prog SUB2：O+W→S: “K=： S ◢ “P=： Z◢ S→ K:Prog“SJ-GC” ：“H=”： H◢ Prog“CQW-JS-1” ◢ Goto5 (超欠挖-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=、输入实测高程H1=、显示超欠挖值及第几圆心上CQ→Y？=) PM-SJ（子程序名-平面线形数据库） If S ≥59227.681:Then 2599818.013→U：496887.918→V：59227.681→O：208028’39”→G：100 →H：1×1045→P：1×1045→R：0 →Q：IfEnd SJ-GC（子程序名-竖曲计算） If K≥43046 And K≤44250.238：Then93.134+(K-43046)×0.004→H：Return:IfEnd If K≥44250.238 And K≤44880.238：Then97.951+(K-44250.238)×0.004-(K-44250.238)2÷60000→H：Return:IfEnd If K≥44880.238 And K≤47023.266：Then93.856-(K-44880.238)×0.017→H：Return:IfEnd If K≥47023.266 And K≤47416.734：Then57.425-(K-47023.266)×0.017+(K-47023.266)2÷35000→H：Return:IfEnd CQW-JS(子程序名-隧道数据库、拱架) “H1=”?F:F-H◢ If F-H≥5.49:Then√((Abs (Z))2+(F-H-1.15)2 )-6.75→W:“CQ→Y1=” :W: IfEnd((显示超欠和第1圆心) If F-H≥1.6And F-H＜5.49:Then √((Abs (Z) -0.54) 2+(Abs (( F-H -1.6)) 2)-6.05→W: “CQ→Y2=”:W: IfEnd(显示超欠和第2圆心) If F-H＜1.6: Then √((Abs (Z) +0.54) 2+( F-H-1.6 ) 2)-7.12→W: “CQ→Y3=”:W: IfEnd (显示超欠和第3圆心)，注：按半径方向测算 If H-F＞1: Then √((Abs (Z) ) 2+( H-F+15.4 ) 2)-17.5→W: “CQ→Y4=”:W: IfEnd (显示超欠和第4圆心)，注：按半径方向测算 (注：隧道断面有多个圆心，依照上面的依次变更, 每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。)详细数据见下图: CQW-JS-1 (子程序名-隧道数据库、二衬) “H1=”?F:F-H◢ If F-H≥5.07:Then√((Abs (Z))2+(F-H-1.15)2 )-6.1→W:“CQ→Y1=” :W: IfEnd(显示超欠和第1圆心) If F-H≥0.46 And F-H＜5.07:Then√((Abs (Z) -0.54) 2+( F-H -1.6)2)-5.4→W: “CQ→Y2=”:W: IfEnd(显示超欠和第2圆心) If F-H＜0.46: Then Abs (Z) -(√(2.05 2-(F-H-0.895) 2+3.81)→W: “CQ→Y3=”:W: IfEnd (显示超欠和第3圆心)注：按水平方向测算 (注：隧道断面有多个圆心，依照上