EXCEL VBA在保护煤柱留设中应用.pdf

《EXCEL VBA在保护煤柱留设中应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第2期矿山测量No．22014年4月MINESURVEYINGApr．2014doi：10．3969／j．issn．1001—358X．2014．02．12EXCELVBA在保护煤柱留设中应用才向军(唐山开滦林西矿业有限公司，河北唐山063104)摘要：文中用ExcelVBA编写了角度计算、垂线长度计算、两条直线交点坐标等函数，并根据垂线法留设保护煤柱相关公式；用Excel编制了垂线法留设煤柱计算表；复制垂线法留设煤柱计算表相关数据到AutoCAD中自动绘制煤柱线。在实践中得到了较好的应用，并取得很好的效果。关键词：Excel；VBA；垂线法；保护煤

2、柱；AutoCAD中图分类号：P209文献标识码：B文章编号：1001—358X(2014)02—0034—04留设合理的保护煤柱可以使地面建(构)筑物免围护带边界与煤层走向平行时：受地下开采的影响。保护煤柱一般已经在建矿初期q=(一h)co设计中留设，但随着勘探程度的增加(煤层底板等高1：(H—h)cotT线调整、冲积层厚度调整)；地面建(构)筑物重要性、围护带边界与煤层走向垂直时为走向方向垂线用途、平面形状变化；岩层移动参数的调整，保护煤长度：柱也应做相应的修改。保护煤柱计算工作量大，计K=(H—h)cot8算完成后再根据相关数据绘制到AutoC

3、AD图中，步式中：y、卢和6——分别为上山、下山、走向方向的岩骤多，易出错。用ExcelVBA编写了角度计算、垂线层移动角；，长度计算、两条直线交点坐标等函数，并根据垂线法——围护带边界与煤层走向线之间所加的锐留设保护煤柱相关公式，用Excel编制了垂线法留设角；煤柱计算表，复制垂线法留设煤柱计算表相关数据——煤层倾角；到AutoCAD中自动绘制煤柱线。日——煤层到地表的垂深。1．2函数定制1数学模型及函数定义打开Excel，在菜单上依次点击[工具][宏]一1．1数学模型>[VisualBasic编辑器]或按Alt+FI1即进入1．1．1松散层保护边

4、界VBAIDE。从围护带边界向外量取s后确定松散层保护边1．2．1定角度相关函数界，s的计算公式：下面定义五个与角度有关的函数：FwJ函数为S=h×cot(／)已知两点坐标计算方位角，FwT函数为计算已知方式中：——松散层厚度；——松散层移动角。位角顺时针转9O。后方位角，FWG函数为计算已知1．1．2垂线长度方位角逆时针转90。后方位角，JJR函数为计算煤层用垂线法设计与煤层走向斜交的受护对象保护倾向与围护带边界倾向夹角(锐角)，JJ函数为计算煤柱时，煤柱在煤层上山方向垂线长度q，下山方向煤层倾向与围护带边界倾向夹角。垂线长度Z。在菜单上依次点击[

5、插入]一>[模块]，然后在(日一h)c0代码窗口中输入如下代码：1+cotB×cos0×tanotPublicConstpi=3．14159265359一!二垒21PublicFunctionFwJ(ByValxl，ByValyl，By—1一cotT×cos0×tanaValx2，ByValy2)AsDoubleco=,／cot卢×COS0+cot6×sin0计算直线的方位角coty=／cot×COS+cot6×sin0DimSubXAsDouble34第2期才向军：EXCELVBA在保护煤柱留设中应用2014年4月Sub—X=Abs(x2一x1)A

6、sDouble)AsDoubleIfSubx=0ThenRem计算煤层倾向与边界线倾向夹角(锐角)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计算煤层倾向与边界线倾向夹角FWJ=FWJ一2piJJ=Abs(FWT—QXj)EndIfIfJJ>1．5piThenEndFunctio

8、nJJ=2pi—JJPublicFunctionFWT(ByValXAsDouble)AsElselfJJ>