卡西歐5800隧道放樣程序-全文預(yù)覽
【正文】 180/π,0,X)→F:N+Zcos(F+90)→N:E+Zsin(F+90)→E:Pol(NB+10^(46),EC+10^(46)):Isin(F90J)→W:S+W→S:If Abs(W):Then Goto 1:IfEndLbl 2:0→Z:Prog “QXJSSUB1”:(CE)/sin(F+90)→Z:Return第四種放樣程序 FY04中樁坐標(biāo)正反算程序根據(jù)4800P源程序改寫(xiě)5800PFY 主程序Cls:Fix 3:“ = XY”:“ = SZ”:?N:“X0”? U：線元起點(diǎn)X坐標(biāo)“Y0”? V：線元起點(diǎn)Y坐標(biāo)“S0”? O：線元起點(diǎn)樁號(hào)“F0”? G：線元起點(diǎn)方位角“LS”? H：線元起點(diǎn)長(zhǎng)度“R1”? P：線元起點(diǎn)半徑“R2”? R：線元終點(diǎn)半徑“0+”?Q：線元轉(zhuǎn)向方向（直線為0，左為1，右為1）1/P→C:(PR)/(2HPR)→D:180/π→E:If N=1: Then Goto 1: Else Goto 2:IfEnd:Lbl 1:“S=”?S: 里程“Z=”?Z: 偏移量Abs(SO)→W:Prog “ZS”:Cls:“Xp=”:“Yp=”:Locate 7,1,X:Locate 7,2,Y◢“FWJ=”:F90→F:F?DMS◢Goto 1:Lbl 2:“Xp”?X:X→I:“Yp”?Y:Y→J:Prog “FS”:O+W→S:Cls:“S”:“Z”:Locate 10,1,S:Locate 10,2,Z◢Goto 2ZS 正算子程序→A:→B:→K:→L:1L→F:1K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(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:Y+Zsin(F)→YFS 反算子程序G90→T:Abs((YV)cos(T)(XU)sin(T))→W:0→Z:Lbl 0:Prog “ZS”:T+QEW(C+WD)→L:(JY)cos(L)(IX)sin(L)→Z:If Abs(Z) 10^(6):Then Goto 1:Else W+Z→W:IfEnd:Goto 0:Lbl 1:0→Z:Prog “ZS”:(JY)/sin(F)→Z。(2R)→Z[3]: If E≤F:Then Z[2]+Z[3]→Z[2]:Else Z[2]Z[3]→Z[2]:IfEnd: IfEnd: Z[2]+→H: “READ=”?K: 前視讀數(shù)(全站儀觀測(cè)的高差之相反數(shù),水準(zhǔn)儀的前視的讀數(shù)值)Fix 3:“GCCZ+=”: 計(jì)算出要量取的高程差值Locate 10,4,A+BKHP◢ 高程差值顯示在第四行,負(fù)低于設(shè)計(jì),正高于設(shè)計(jì)If K=0: 以K為0值作為本站結(jié)束標(biāo)志,否則繼續(xù)下一點(diǎn)觀測(cè)計(jì)算Then Stop:Else Goto 0:IfEnd這個(gè)程序主要要求必須先知道里程才能計(jì)算。00′47″55176。40′18″18176。斷面計(jì)算過(guò)程中定義的14個(gè)變量含義:B: 進(jìn)入斷面放樣工作,開(kāi)挖或支護(hù)厚度(變數(shù))R: 斷面凈空半徑與二襯厚度之和H: 圓心到檢修道的垂直高度E: 二襯邊緣邊墻起點(diǎn)高到檢修道的垂直高度F:
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1