贵广铁路隧道超欠挖4800放样程序.doc

贵广铁路隧道超欠挖4800放样程序 FY??????????????主程序→DimZ:Fix 3:Deg: LICHENG=”? S: “KWBJ=R=”? →Z[2]: Lbl 4: “XZB=”? →B: “YZB=”? →C:B→N: C→E:GC=”? →Z[1]: Prog“QXJSSUB2”: S →S： Z →Z：Prog“H”:A→H:IF Z[1]H+5.75:THEN-Z[1]+H+2.27+√（Z[2]^2-(Z-2.3)^2）→Z[3]: ”+→C －→Q S X=”: Z[3] →Z[3]◢ ELSE Abs（Z-2.3）-√（Z[2]^2-（H+2.27-Z[1]）^2）→Z[4] ：“+→C －→Q Z Y＝”: Z[4]→Z[4]◢ IfEnd↙ Goto4↙ 说明： S:代表里程；B:代表掌子面测点X坐标； C:代表掌子面测点Y坐标；[Z1]:代表掌子面测点H高程；Z：代表偏移距离； QXJSSUB1??????????? 正算子程序0.5（1÷R-1÷P）÷L→D:S-O→XU+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+G) →N:E+Zsin(F+G) →EReturn QXJSSUB2???????????? 反算子程序Lbl 1:0→Z：1→Q：Prog“QXJSSUB0”: 0.5（1÷R-1÷P）÷L→D:S-O→XU+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EPol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙IfAbs(W)0.0001 :Then Goto1:IfEnd↙Lbl 2: 0→Z：Prog“QXJSSUB”:(C-E) ÷sin(F+90) →Z Return QXJSSUB0? (数据库)Goto1↙Lbl 1IF S157687.528:THEN 2884169.2517→U:471475.6573→V:157547.528→O:98°32′43.08″→A:140→L:10^45→P:10000→R: Return:IfEnd↙ IF S157993.605:THEN 2884148.1260→U:471614.0539→V:157687.528→O:98°56′46.93″→A:306.0771→L:10000→P:10000→R: Return:IfEnd↙ IF S158133.605:THEN 2884095.9086→U:471915.6318→V:157993.605→O:100°42′0.22″→A:140→L:10000→P:10^45→R: Return:IfEnd↙ IF S163641.879:THEN 2884069.2735→U:472053.0744→V:158133.605→O:101°6′4.07″→A:5508.274→L:10^45→P:10^45→R: Return:IfEnd↙ IF S163781.879:THEN 2883008.7030→U:477458.2815→V:163641.879→O:101°6′4.08″→A:140→L:10^45→P:10000→R: Return:IfEnd↙ IF S164195.661:THEN 2882981.4268→U:477595.5984→V:163781.879→O:101°30′7.93″→A:413.7833→L:10000→P:10000→R: Return:IfEnd↙ IF S164335.661:THEN 2882890.5519→U:477999.2492→V:164195.6623→O:103°52′22.82″→A:140→L:10000→P:10^45→R: Return:IfEnd↙ IF S171831.142:THEN 2882856.3502→U:478135.0069→V:164335.6623→O:104°16′26.67″→A:7495.481→L:10^45→P:10^45→R: Return:IfEnd↙ IF S171961.1406:THEN 2881008.2613→U:485399.0830→V:171831.1404→O:104°16′26.65″→A:130→L:-10^45→P:-1