基于VB的陀螺经纬仪逆转点法数据处理程序设计.pdf

《基于VB的陀螺经纬仪逆转点法数据处理程序设计.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6期矿山测量No．62012年l2月MINESURVEYINGDec．2012doi：10．3969／j．issn．1001—358X．2012．06．014基于VB的陀螺经纬仪逆转点法数据处理程序设计水庞长保，栾元重，马海涛，姜敏，王耀国(1．山东科技大学测绘科学与工程学院，山东青岛266510；2．兖州煤业股份有限公司杨村煤矿，山东济宁272118；3．徐州市市政设计院有限公司，江苏徐州221000)摘要：瑞士GAK一1型陀螺经纬仪使定向测量工作简单化、准确化，但该陀螺经纬仪读数记录比较繁琐而且计算复杂。基于VB语言开发的陀螺

2、经纬仪数据处理程序使数据计算方便、快捷，并通过星村煤矿副井定向实测数据验证，计算结果准确可靠。实际应用表明该程序使计算简单化，在一定程度上提高了工作效率。关键词：VB；陀螺经纬仪；逆转点法；陀螺定向测量中图分类号：P213文献标识码：B文章编号：1001—358X(2012)06—0041—04瑞士GAK—l型陀螺经纬仪操作简便、性能稳到0．1格。计算公式如下：定、适应性强、定向精度高，广泛应用于隧道和矿山测=寺()(5)量的定向工作中。该仪器定向常用的为逆转点法，但记录数据繁琐且不易计算，而VB语言功能强大且为式中：a、o、a为逆

3、转点读数，以格计。同时记大家所熟悉，文中使用VB语言编程实现了逆转点法录周期，若测前与测后悬挂零位变化在±0．5格以数据记录计算的简单化，从而提高了工作效率。内，且自摆周期不变，则不必进行零位校正和加入改正；若零位变化超过±0．5格就要进行校正。如陀螺1计算内容定向时井上、下所测得的零位变化超过0．3格时，应加入改正数。零位改正值的计算公式为：1．1陀螺北方向值计算陀螺北方向值需要现场计算出来，内容可以通Aa=A·△a(6)式中：△为零位变动，Aa=mh，其中m为目镜过VB程序检核一下，陀螺北方向值计算公式为：分划板分化值，h为零位

4、格数；÷(+U2)㈩一A为零位改正系数，A=，其中T。、分12丢()别为跟踪和不跟踪摆动周期。1．3测线方向计算÷(+)㈩以一测回测定待定测线的方向值B，测线方向值分测前、测后两次观测，取测前结果，和：测后ⅣT=÷(N。+N：+N3)(4)结果的平均值作为测线方向值曰，最后平均值记人式中：N，，N，N。分别为一次度盘读数中值；N表格的测线方向值]。计算公式如下：为三次读数中值的平均值即陀螺北方向值[1]。=丢(B。+(7)1．2零位计算1．4仪器常数计算零位计算分为测前零位计算和测后零位计算，在已知边上安置仪器测定陀螺仪器常数，坐标

5、计算方法相同。测定悬带零位时，先将经纬仪整平方位角已知。计算式：并固定照准部，下放陀螺灵敏部从读数镜中观测灵A=0+o一T(8)敏部的摆动，在分划板上连续读三个逆转点读数，读式中：。为已知边的坐标方位角，已知或可以通女山东省自然科学基金项目(编号：2R2009EM002)过坐标反算出来；。为安置仪器点子午线收敛角，通41第6期矿山测量2012年12月过查表计算；d为已知边的陀螺方位角，陀螺方位角F=Int((b—d)jIc60)可通过测线方向值和陀螺北方向值计算得出(=P=Clnt(((b—d)$60一F)600)／10Ⅳ0一ⅣT，

6、Ⅳ0为测线方向值，ⅣT为陀螺北方向值)。m=Clnt(P)1．5未知边坐标方位角计算IfSMod2=0ThenIn=InI(P)ElseITI=Int在未知边安置仪器测定坐标方位角。计算式：(P)+1=atIfm=60ThenF=F+1Andm=0与IfT+△平一y(9)式中：为未知边的陀螺方位角，△平为仪器常F=60Thend：d+1AndF=0数的平均值，y为子午线收敛角。ang=Str(d)+”。”+Format(F，”O0”)+”“’+Format(m，”00”)+”’2VB编程实现2．3陀螺北方向值计算利用VB语言编程实现

7、陀螺经纬仪数据计算要按照表格的记录形式要进行陀螺北方向值计先将度分秒转换为弧度制，通过计算后再将弧度制算，逆转点法先进行每一行平均值计算再进行三行转换为角度制。输人数据时，度与分之间用小数点均值的平均值计算。在数据输入界面中Text4、隔开。Text6、Text8、Text9、Textl0、Text11、Text25是通过计2．1角度制转换为弧度制算平均值得到的，计算时按照上面的方法先将输入VB编程实现角度制转换为弧度制是通过定义的角度制数据转换为弧度制数据，通过计算以后再一个Function过程rad并且利用了VB的转换函数将弧度

8、制数据转换为角度制数据，我们以Text4和Int(n)。输人的角度制数据用n表示，首先利用IntText25的计算为例，代码如下：(n)函数从输入的角度制数据中分离出度，然后再分Text4．Text=ang((rad(Text1．Te