資源描述：
《EXCEL VBA在保護(hù)煤柱留設(shè)中應(yīng)用.pdf》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、第2期礦山測量No．22014年4月MINESURVEYINGApr．2014doi：10．3969／j．issn．1001—358X．2014．02．12EXCELVBA在保護(hù)煤柱留設(shè)中應(yīng)用才向軍(唐山開灤林西礦業(yè)有限公司，河北唐山063104)摘要：文中用ExcelVBA編寫了角度計(jì)算、垂線長度計(jì)算、兩條直線交點(diǎn)坐標(biāo)等函數(shù)，并根據(jù)垂線法留設(shè)保護(hù)煤柱相關(guān)公式；用Excel編制了垂線法留設(shè)煤柱計(jì)算表；復(fù)制垂線法留設(shè)煤柱計(jì)算表相關(guān)數(shù)據(jù)到AutoCAD中自動(dòng)繪制煤柱線。在實(shí)踐中得到了較好的應(yīng)用，并取得很好的效果。關(guān)鍵詞：Excel；VBA；垂線法；保護(hù)煤
2、柱；AutoCAD中圖分類號(hào)：P209文獻(xiàn)標(biāo)識(shí)碼：B文章編號(hào)：1001—358X(2014)02—0034—04留設(shè)合理的保護(hù)煤柱可以使地面建(構(gòu))筑物免圍護(hù)帶邊界與煤層走向平行時(shí)：受地下開采的影響。保護(hù)煤柱一般已經(jīng)在建礦初期q=(一h)co設(shè)計(jì)中留設(shè)，但隨著勘探程度的增加(煤層底板等高1：(H—h)cotT線調(diào)整、沖積層厚度調(diào)整)；地面建(構(gòu))筑物重要性、圍護(hù)帶邊界與煤層走向垂直時(shí)為走向方向垂線用途、平面形狀變化；巖層移動(dòng)參數(shù)的調(diào)整，保護(hù)煤長度：柱也應(yīng)做相應(yīng)的修改。保護(hù)煤柱計(jì)算工作量大，計(jì)K=(H—h)cot8算完成后再根據(jù)相關(guān)數(shù)據(jù)繪制到AutoC
3、AD圖中，步式中：y、盧和6——分別為上山、下山、走向方向的巖驟多，易出錯(cuò)。用ExcelVBA編寫了角度計(jì)算、垂線層移動(dòng)角；，長度計(jì)算、兩條直線交點(diǎn)坐標(biāo)等函數(shù)，并根據(jù)垂線法——圍護(hù)帶邊界與煤層走向線之間所加的銳留設(shè)保護(hù)煤柱相關(guān)公式，用Excel編制了垂線法留設(shè)角；煤柱計(jì)算表，復(fù)制垂線法留設(shè)煤柱計(jì)算表相關(guān)數(shù)據(jù)——煤層傾角；到AutoCAD中自動(dòng)繪制煤柱線。日——煤層到地表的垂深。1．2函數(shù)定制1數(shù)學(xué)模型及函數(shù)定義打開Excel，在菜單上依次點(diǎn)擊[工具][宏]一1．1數(shù)學(xué)模型>[VisualBasic編輯器]或按Alt+FI1即進(jìn)入1．1．1松散層保護(hù)邊
4、界VBAIDE。從圍護(hù)帶邊界向外量取s后確定松散層保護(hù)邊1．2．1定角度相關(guān)函數(shù)界，s的計(jì)算公式：下面定義五個(gè)與角度有關(guān)的函數(shù)：FwJ函數(shù)為S=h×cot(／)已知兩點(diǎn)坐標(biāo)計(jì)算方位角，F(xiàn)wT函數(shù)為計(jì)算已知方式中：——松散層厚度；——松散層移動(dòng)角。位角順時(shí)針轉(zhuǎn)9O。后方位角，F(xiàn)WG函數(shù)為計(jì)算已知1．1．2垂線長度方位角逆時(shí)針轉(zhuǎn)90。后方位角，JJR函數(shù)為計(jì)算煤層用垂線法設(shè)計(jì)與煤層走向斜交的受護(hù)對(duì)象保護(hù)傾向與圍護(hù)帶邊界傾向夾角(銳角)，JJ函數(shù)為計(jì)算煤柱時(shí)，煤柱在煤層上山方向垂線長度q，下山方向煤層傾向與圍護(hù)帶邊界傾向夾角。垂線長度Z。在菜單上依次點(diǎn)擊[
5、插入]一>[模塊]，然后在(日一h)c0代碼窗口中輸入如下代碼：1+cotB×cos0×tanotPublicConstpi=3．14159265359一!二壘21PublicFunctionFwJ(ByValxl，ByValyl，By—1一cotT×cos0×tanaValx2，ByValy2)AsDoubleco=,／cot盧×COS0+cot6×sin0計(jì)算直線的方位角coty=／cot×COS+cot6×sin0DimSubXAsDouble34第2期才向軍：EXCELVBA在保護(hù)煤柱留設(shè)中應(yīng)用2014年4月Sub—X=Abs(x2一x1)A
6、sDouble)AsDoubleIfSubx=0ThenRem計(jì)算煤層傾向與邊界線傾向夾角(銳角)SubX=0．0000000001JJR=Abs(FWT—QXj)．EndIfIfJJR>1．5piThenFWJ=Atn((Abs(y2一y1))／Sub—x)JJR=2pi—JJRIfv2>ylAndx2>=xlThen0—90ElseIfJJR>piThenElseIfy2pi／2ThenFWJ=pi+FWJJJR=pi—JJRElseIfy2
7、=xlThen270～ElseIfJJR=2piOrJJlt=3／2piOr360JJR=piOrJJR=pi／2ThenFWJ=2pi—FWJJJR=0ElseIfy2>=ylAndx2<=xlThen90—EndIf180EndFunctionFWJ=pi—FWJPublicFunctionJJ(ByValFwTAsDouble，QXjEndIfAsDouble)AsDoubleIfFWJ>2piThenRem計(jì)算煤層傾向與邊界線傾向夾角FWJ=FWJ一2piJJ=Abs(FWT—QXj)EndIfIfJJ>1．5piThenEndFunctio
8、nJJ=2pi—JJPublicFunctionFWT(ByValXAsDouble)AsElselfJJ>
