Excel在导线平差计算中的应用.pdf

《Excel在导线平差计算中的应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6期矿山测量NO．62012年12月MINESURVEYINGDeC．2012doi：10．3969／j．issn．1001—358X．2012．06．011Excel在导线平差计算中的应用向继平，骆忠爱(1．湖南工程职业技术学院，湖南长沙410151；2．湖南省地质矿产勘查开发局402队，湖南长沙410047)摘要：随着全站仪在工程建设中得到普遍使用，导线已成为工程平面控制测量的常用方法。平差计算是导线测量的主要内容之一，文中通过分析Excel的功能和特点，结合导线平差理论，探讨Excel在导线平差计算中的应用。关键词：Excel；导线；平差；转换；公

2、式；数据中图分类号：TD172．3文献标识码：B文章编号：1001—358X(2012)06—0032—03Excel电子表格软件是MicrosoftOfice的重要组弧度一60进制角度：将存放在Al单元格的弧成部分，其人性化的显示格式、强大的计算功能和单度值转换为60进制角度的公式为：=TRUNC(DE—元格编辑功能，是现今任何编程计算器不能比拟的，GREES(A1))+(TRUNC((DEGREES(A1)一它已被广泛用于复杂、繁琐、重复的计算处理。导线TRUNC(DEGREES(A1)))60))／100+((DE·平差计算是测绘专业技术人员必须具备

3、的能力，充GREES(A1)一TRUNC(DEGREES(A1)60)／60)分发挥Excel的功能和特点，提高导线平差计算的效}3600)／10000率，实现了较好的社会和经济效益是测绘专业技术(2)用3个单元格进行转换人员的共同目标。用Excel进行导线的平差计算需若要将6。3045进行转换，先在3个单元格(如要解决的问题包括：角度换算、界面设计、数据输人、A1、B1和C1)中分别输入6、30和45，将其转换为十数据处理和打印输出。进制度后再转换为弧度，转换公式为：=RADIANS(A1+B1／60+C1／3600)。1角度转换上述公式虽然简单直观，但

4、角度的加减计算复Excel内置三角函数的角度单位只能使用弧度，杂，还会出现异常和无法处理的情况。若角度出现而在我国测绘工作中一般使用60进制的角度来记负值，如对一6。3045”进行转换时要在A1中输入录和计算，要充分发挥Excel的计算功能，必须解决一6，由于一6+30／60+45／3600对应的角度值是60进制角度和弧度之间相互转换的问题。解决这一一5。2915”，转换结果异常；另外单元格中无法输入“问题有两种途径：一是使用Excel内置函数实现转一0”，0。～一1。区间的角度无法处理。因此需要针换；二是使用VBA编辑Excel自定义函数实现转换。对小于

5、⋯0’的角度设计处理方法。1．1使用Excel内置函数实现转换1．2用VBA编辑自定义函数实现转换有两种处理方式：一是将度分秒形式的角度输60进制角度一弧度：在Excel菜单栏中单击【工人一个单元格进行转换；二是将角度的度、分、秒值具】一【宏】一【VisualBasic编辑器】，进入VB宏编分别输人三个不同的单元格进行转换。辑状态，在菜单上单击【插入】一【模块】，然后输入(1)用一个单元格进行转换如下代码：6O进制角度一弧度：若要将6。3045．5转换为PublicConstpi=3．14159265358979弧度，先在一个单元格(如A1)中输入6．30

6、455，将其PublicFunctionDtoR(nAsDouble)转换为十进制度后再转换为弧度，转换公式为：=DimSAsDouble，DAsDouble，FAsDouble，MRADIANS(TRUNC(A1)+(TRUNC(A1100)一AsDoub1eTRUNC(A1)100)／60+(A1$10000一TRUNC(A1S=Sgn(n)100)100)／3600)。n=Abs(n)+0．0000000132第6期向继平等：Excel在导线平差计算中的应用2012年12月D=Int(n)2界面设计F=Int((n—D)}100)M=(n—D—F／1

7、00)，l=10000计算是在Excel工作表中进行的，导线平差计算界DtoR=(D+F／60+M／3600)Spi／180面设计时要综合考虑采用的技术手段和数学模型，既要EndFunction保证技术手段可行，又要确保数学模型的计算结果正编辑完成后保存，返回Excel，Excel函数的“用确。技术手段主要指角度的存储与显示方式、转换方户定义”类别中将出现“DtoR”函数，执行公式=法、内部函数的选择与自定义函数的设计等。由于导线DtoR(A1)，可将A1中的60进制角度转换为弧度。计算中需要频繁进行角度的代数运算，使用上述VBA弧度一60进制角度：操作方

8、法同上，代码如下：角度转换算法能使Excel中的计算公式长度最短，