实现矿山测量贯通误差预计的VB编程探讨.pdf

《实现矿山测量贯通误差预计的VB编程探讨.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第2期矿山测量NO．22013年4月MINESURVEYINGApr．2013doi：10．3969／j．issn．1001—358X．2013．02．21实现矿山测量贯通误差预计的VB编程探讨赵阳，李建伟，徐永胜(枣庄矿业集团高庄煤业有限公司，山东枣庄277605)摘要：文中主要探讨了在VB环境下，用自定义函数和向量计算的方法，实现矿山测量贯通误差预计的技术和思想，并用VB代码详细描述了各计算流程实现。关键词：编程；代码；误差预计中图分类号：TD175．5文献标识码：B文章编号：1001—358X(2013)02—0060—02在煤矿两巷掘进的实际测量工作中，材

2、料巷和点与终点的连线在新坐标系下方向的投影。运输巷的起始测设边往往从中部车场的同一条导线为了方便实际操作应用简便，拟定导线点形式边起测。引起切眼中部贯通点的横向误差主要是采用．dat格式，在AutoCAD或南方CASS中读取由测角误差和量边误差引起，文中探讨实现矿山测的坐标具体格式如下：点号，Y，，h。在VisaulBasic量贯通误差预计的VisualBasic编程代码的实现。编程软件中，读取导线点记录用控件CommonDialog实现，读取点坐标后应进行和y坐标的互换。1贯通误差预计代码实现模块流程为了简化编程，投影计算和各导线边在新建立以贯通点K为原点，以切

3、眼纵向方向为Y轴，以的坐标系下的方位角的计算可引用高等数学中向量切眼横向方向为轴，建立局部直角坐标系，支导线的计算方法。在VB公用计算模块中可以定义下述横向误差预计公式为：函数：任意两点间距离计算函数、任意一点与k点的2tnnn连线在Y轴方向的投影计算函数、两向量积计算和=，军R；，i+口E,l~cos2ai+6Z2，k两向量间夹角余弦的计算函数。预计计算代码实现p其中：Mx代表贯通点K在切眼的纵向误差；的框架流程如图1所示。m。为测角中误差；P为常数。取值206265，Ry为各2贯通误差预计VB编程代码边在新建立的坐标系下在)，轴的投影，Z为各导线边边长；a为测

4、边固定误差；Ot；为各导线边在新建立的在VB程序设计中，贯通误差预计界面如图2所示。坐标系下的方位角，b为测边比例误差，为导线起图1贯通误差预计代码实现模块流程图第2期矿山测量2013年4月EndFunction用极坐标法定义了另外一个点，以便投影计算定义任意两向量间夹角余弦函数代码如下：计算角度误差对贯通点横向误差影响执行代码PublicFunctioncosa(ptlAspoints，pt2As如下：points，kAspoints，pt4Aspoints)AsDoubleDimm2xbAsDouble：m2xb=0cosa=xlj(ptl，pt2，k，pt4

5、)／(distant(ptl，Fori=1Topnumpt2)$distant(k，pt4))m2xb：m2xb+proj(poin(i)，k，azix)2EndFunction$(mb2／2062652)为方便日常应用，在程序界面文本框的输入采Nexti用度分秒的形式，而在VB程序设计中，内置函数的计算测距固定误差对贯通点横向影响执行代码计算都是以弧度为单位进行的，将角度转换成弧度如下：的函数程序代码如下：Dimlcos2aAsDouble：lcos2a=0PublicFunctiontorad(jiaoduAsString)AsFori=1Topnum一1Do

6、ublelcos2a=lcos2a+a2distant(poin(i)，DimdotpositionAsInteger，duAsInteger，minpoin(i+1))，l￡cosa(poin(i)，poin(i+1)，k，az—AsInteger，secAsString，secondAsDoubleiy)2Nextidotposition=InStr(1，jiaodu，”．”)，du=Val(Left(jiaodu，dotposition一1))计算测距系统误差对贯通点横向影响执行代码min=Val(Mid(jiaodu，dotposition+1，2))如下

7、：sec=Mid(jiaodu，dotposition+3)Dimblx2AsDouble：blx2=0second=Val(sec)／10(Len(sec)一2)blx2：(bproj(poin(1)，k，aziy)／torad=Val((min／60+second／3600+1000000)2du)3．141592653589／180)将三部分误差相加，得到最终贯通点横向误差，EndFunction执行代码如下：当单击“转换预计”按钮时，执行代码如下：Dimmxk2AsDoublePrivateSubCommand2mxk2=m2xb+lcos2a+blx2一

8、Click