5800正反算及隧道超欠挖资料.docx

5800 正反算及隧道超欠挖 任意坐标正反算及隧道超欠挖程序 1-JIN YU( 主程序 ) → ZS,2 → FS,3 → CQW?N N=1=Goto  1:N=2=Goto 2:N=3=Goto 3 Lbl 1: “ K=” ：?S“ P=”：?ZProg “ 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=”： Locat e4,4,H◢ Goto 4 Lbl 2: “ X=”：?X“ Y=”？ Y:Prog “ SJ?-PM”： X→ I： Y→ J：Prog SUB2-FS ： O+ W→S: “K=： S ◢ “ P=： Z◢ S→ K:Prog “ SJ?-GC” ： “ H=”： H◢ Goto 4 Lbl 3: “ X=” ?X：“ Y=”？ Y:Prog “ SJ?-PM”： X→ I： Y→ J： Prog SUB2-FS ：O +W→ S: “ K=： S ◢ “ P=： Z◢ S→ K:Prog “ SJ?-GC” ： “ H=”： H◢ Prog “ SJ-CQW” ◢ Goto4 SJ?-PM （子程序名 - 平面线形数据库） If S ≥ 59227.681（线元起点里程） :Then 2599818.013 →U（线元起点 X 坐标）： 49 6887.918 →V（线元起点 Y 坐标）： 59227.681 →O（线元起点里程）： 208028 ’ 39” →G（线元起点方位角） ：100 →H（线元长度） ：1× 1045 →P（线元起点曲率半径） ： 1× 1045 →R（线元终点曲率半径）： 0 →Q（线元左右偏标志：左 -1 右 1）： IfEnd If S ≥ 59327.681（线元起点里程） :Then 2599730.112 →U（线元起点 X 坐标）： 49 6840.237 →V（线元起点 Y 坐标）： 59327.681 →O（线元起点里程）： 208028 ’ 39” →G（线元起点方位角） ：90 →H（线元长度） ：1× 1045 →P（线元起点曲率半径） ： 750→R（线元终点曲率半径）： - 1 →Q（线元左右偏标志：左 -1 右 1）： IfEnd ?? ?? SJ-GC?（子程序名 - 数据 ） If S＜ 坡 点里程 And S≥ 坡起点里程： Then 大里程坡度 →A：小里程坡度 →B： 坡点里程 → O： 坡点高度 →G：半径 →R： Prog“SUB3-GC”:IfEnd ( 注： 1.有多个 曲 ，依照上面的依次 更，每多一个，就增加一个。每次只需要 修改以上的数据或增加一个判断，子程序不用 。 2.如整条 只有一个 坡比 2 ，那么程序 If S＜ 点里程 And S≥起点里程： Then 0.02 →A：0.02 →B： 起点里程 → O：起点高程 →G： 1×1045→R： Prog“SUB3-GC”:IfEnd) SJ-CQW ( 子程序名 -隧道数据 ) “ H1=” ?F: ” P=” ?Z If F-H ＞ 5.845:Then √ ((Abs (Z))2+(F -H-0.45)2 If F-H≤ 5.845 And F-H＞ -1.169: Then √ ((Abs  )-7.45 → W: IfEnd: (Z)-1)2+( Abs (F-H-1.5)) 2)-6→ W : IfEnd: If F-H≤-1.169: Then √ ((Abs (Z)) 2+(H -F+14.05) 2)- 16.5 → W: IfEnd: ? ? “ +CQ,-CQ=” : W SUB1-ZS( 正算子程序 )? 1÷ P→ C ： (P-R) ÷ (2HPR) → D： 180÷π→E： 0.1739274226 →A ： 074→ B： 0.0694318442 →K： 0.3300094782 →L： 1-L→ F：1-K→ M ： U+W(A cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Aco s(G+QEMW(C+MWD))) → X ：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+ LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) → Y ： G+QEW(C+ WD)+90→ F： X+Zcos(F) → X