1、5800正反算及隧道超欠挖任意坐標(biāo)正反算及隧道超欠挖程序1-JIN YU(主程序)Lbl 4:1ZS,2FS,3CQW?NN=1=Goto 1:N=2=Goto 2:N=3=Goto 3Lbl 1: “K=”?S：“P=”?Z：Prog “SJ-PM”： Abs(S-O) W：Prog SUB1-ZS： “X=：Locate4,4,X:Y=：Locate4,4,Y:F-90F:S K:Prog“SJ-GC”：“H=”：Locate4,4,HGoto 4Lbl 2:“X=”?X：“Y=”？Y:Prog“SJ-PM”： X I： YJ：Prog SUB2-FS：O+WS: “K=： S “P=：

2、ZS K:Prog“SJ-GC” ：“H=”： HGoto 4Lbl 3: “X=”?X：“Y=”？Y:Prog“SJ-PM”： X I： YJ：Prog SUB2-FS：O+WS: “K=： S “P=： ZS K:Prog“SJ-GC” ：“H=”： HProg“SJ-CQW” Goto4SJ-PM（子程序名-平面線形數(shù)據(jù)庫）If S 59227.681（線元起點(diǎn)里程）:Then 2599818.013U（線元起點(diǎn)X坐標(biāo)）：496887.918V（線元起點(diǎn)Y坐標(biāo)）：59227.681O（線元起點(diǎn)里程）：20802839”G（線元起點(diǎn)方位角）：100 H（線元長(zhǎng)度）：11045P（線元起點(diǎn)曲

3、率半徑）：11045R（線元終點(diǎn)曲率半徑）：0 Q（線元左右偏標(biāo)志：左-1右1）：IfEndIf S 59327.681（線元起點(diǎn)里程）:Then 2599730.112U（線元起點(diǎn)X坐標(biāo)）：496840.237V（線元起點(diǎn)Y坐標(biāo)）：59327.681O（線元起點(diǎn)里程）：20802839”G（線元起點(diǎn)方位角）：90 H（線元長(zhǎng)度）：11045P（線元起點(diǎn)曲率半徑）：750R（線元終點(diǎn)曲率半徑）：-1 Q（線元左右偏標(biāo)志：左-1右1）：IfEndSJ-GC（子程序名-豎數(shù)據(jù)庫）If S變坡終點(diǎn)里程And S變坡起點(diǎn)里程：Then大里程坡度A：小里程坡度B：變坡點(diǎn)里程O：變坡點(diǎn)高度G：半徑R：Pr

4、og“SUB3-GC”:IfEnd(注：1.有多個(gè)豎曲線，依照上面的依次變更，每多一個(gè)，就增加一個(gè)。每次只需要修改以上的數(shù)據(jù)或增加一個(gè)判斷，子程序不用變動(dòng)。2.如整條線只有一個(gè)縱坡比喻為2，那么程序應(yīng)為If S終點(diǎn)里程And S起點(diǎn)里程：Then 0.02A：0.02B：起點(diǎn)里程O：起點(diǎn)高程G：11045R：Prog“SUB3-GC”:IfEnd)SJ-CQW (子程序名-隧道數(shù)據(jù)庫)“H1=”?F:”P=”?ZIf F-H5.845:Then (Abs (Z)2+(F-H-0.45)2 )-7.45W: IfEnd:If F-H5.845 And F-H-1.169: Then (Abs (

5、Z)-1)2+( Abs (F-H-1.5) 2)-6W :IfEnd:If F-H-1.169: Then (Abs (Z) 2+(H-F+14.05) 2)-16.5W: IfEnd:“+CQ,-CQ=”: WSUB1-ZS(正算子程序)1P C： (P-R)(2HPR) D： 180 E： 0.1739274226A： 0.3260725774 B： 0.0694318442 K： 0.3300094782 L： 1-L F：1-K M： U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+

6、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： Y+Zsin(F) YSUB2-FS(反算子程序)G-90T： 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：Else

7、W+Z W：Goto 0：IfEndLbl 1： 0 Z：Prog SUB1-ZS： (J-Y)sin(F) ZSUB3-GC（高程子程序）O-SL:A-BW:Abs(R*W2) T:O-TM:O+TPIf SM:ThenG-L*BH:Goto5:Else If SO:Then Goto3:Else If SP:Then Goto4:IfEnd: IfEnd: IfEndLbi3If WO：Then G+(M-S)22R-L*BH:Goto5: Else If WO: Then G-(M-S)22R-L*BH:Goto5: IfEnd: IfEndLbi4If WO：Then G+( S-P)

8、22R-L*AH:Goto5: Else If WO: Then G-( S-P)22R-L*AH:Goto5: IfEnd: IfEndLbi5HH: Return說明：(正算1秒，反算和超欠挖5秒完成)所有程序名。不同線路，只需改動(dòng)SJ-PM，SJ-GC，SJ-CQW三個(gè)子程序里的內(nèi)容，其它不變。1為正算，2為反算，3為超欠挖.K= 正算時(shí)，輸入所求點(diǎn)里程。反算時(shí)得出里程結(jié)果X=，Y= 正算時(shí)得出結(jié)果。反算時(shí)輸入實(shí)測(cè)坐標(biāo)P= 正算時(shí)輸入偏距。反算時(shí)得出偏距H= 正算時(shí)得出高程。反算時(shí)得出高程H1=超欠挖時(shí)輸入實(shí)測(cè)高程+CQ,-CQ= 得出超欠挖值注，超欠挖輸入時(shí)顯示里程，編距，設(shè)計(jì)高程，不

9、需輸入。只輸入實(shí)測(cè)量高程H1單獨(dú)豎曲線5800豎曲線計(jì)算程序2009-07-15 15:02QXJSCX”Lb1 1CLs:Fix 3“K=”?k (計(jì)算點(diǎn)里程輸入)If k67549.755 AND K66894.3 :Then -0.00052A : 0B : 67394.3S : 67.37G : 600000R : Goto 2 : IfEndIf k68708.391 AND K67549.755 :Then -0.0048A : -0.00052B : 68494.3S :66.8G : 100000R : Goto 2 : IfEndIf k0 : Then G+(C-K) 2/2/R-L*BH : Goto 5 : Else I