資源描述:
《Excel在導(dǎo)線平差計(jì)算中的應(yīng)用.pdf》由會(huì)員上傳分享,免費(fèi)在線閱讀,更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、第6期礦山測(cè)量NO.62012年12月MINESURVEYINGDeC.2012doi:10.3969/j.issn.1001—358X.2012.06.011Excel在導(dǎo)線平差計(jì)算中的應(yīng)用向繼平,駱忠愛(1.湖南工程職業(yè)技術(shù)學(xué)院,湖南長(zhǎng)沙410151;2.湖南省地質(zhì)礦產(chǎn)勘查開發(fā)局402隊(duì),湖南長(zhǎng)沙410047)摘要:隨著全站儀在工程建設(shè)中得到普遍使用,導(dǎo)線已成為工程平面控制測(cè)量的常用方法。平差計(jì)算是導(dǎo)線測(cè)量的主要內(nèi)容之一,文中通過分析Excel的功能和特點(diǎn),結(jié)合導(dǎo)線平差理論,探討Excel在導(dǎo)線平差計(jì)算中的應(yīng)用。關(guān)鍵詞:Excel;導(dǎo)線;平差;轉(zhuǎn)換;公
2、式;數(shù)據(jù)中圖分類號(hào):TD172.3文獻(xiàn)標(biāo)識(shí)碼:B文章編號(hào):1001—358X(2012)06—0032—03Excel電子表格軟件是MicrosoftOfice的重要組弧度一60進(jìn)制角度:將存放在Al單元格的弧成部分,其人性化的顯示格式、強(qiáng)大的計(jì)算功能和單度值轉(zhuǎn)換為60進(jìn)制角度的公式為:=TRUNC(DE—元格編輯功能,是現(xiàn)今任何編程計(jì)算器不能比擬的,GREES(A1))+(TRUNC((DEGREES(A1)一它已被廣泛用于復(fù)雜、繁瑣、重復(fù)的計(jì)算處理。導(dǎo)線TRUNC(DEGREES(A1)))60))/100+((DE·平差計(jì)算是測(cè)繪專業(yè)技術(shù)人員必須具備
3、的能力,充GREES(A1)一TRUNC(DEGREES(A1)60)/60)分發(fā)揮Excel的功能和特點(diǎn),提高導(dǎo)線平差計(jì)算的效}3600)/10000率,實(shí)現(xiàn)了較好的社會(huì)和經(jīng)濟(jì)效益是測(cè)繪專業(yè)技術(shù)(2)用3個(gè)單元格進(jìn)行轉(zhuǎn)換人員的共同目標(biāo)。用Excel進(jìn)行導(dǎo)線的平差計(jì)算需若要將6。3045進(jìn)行轉(zhuǎn)換,先在3個(gè)單元格(如要解決的問題包括:角度換算、界面設(shè)計(jì)、數(shù)據(jù)輸人、A1、B1和C1)中分別輸入6、30和45,將其轉(zhuǎn)換為十?dāng)?shù)據(jù)處理和打印輸出。進(jìn)制度后再轉(zhuǎn)換為弧度,轉(zhuǎn)換公式為:=RADIANS(A1+B1/60+C1/3600)。1角度轉(zhuǎn)換上述公式雖然簡(jiǎn)單直觀,但
4、角度的加減計(jì)算復(fù)Excel內(nèi)置三角函數(shù)的角度單位只能使用弧度,雜,還會(huì)出現(xiàn)異常和無法處理的情況。若角度出現(xiàn)而在我國測(cè)繪工作中一般使用60進(jìn)制的角度來記負(fù)值,如對(duì)一6。3045”進(jìn)行轉(zhuǎn)換時(shí)要在A1中輸入錄和計(jì)算,要充分發(fā)揮Excel的計(jì)算功能,必須解決一6,由于一6+30/60+45/3600對(duì)應(yīng)的角度值是60進(jìn)制角度和弧度之間相互轉(zhuǎn)換的問題。解決這一一5。2915”,轉(zhuǎn)換結(jié)果異常;另外單元格中無法輸入“問題有兩種途徑:一是使用Excel內(nèi)置函數(shù)實(shí)現(xiàn)轉(zhuǎn)一0”,0?!?。區(qū)間的角度無法處理。因此需要針換;二是使用VBA編輯Excel自定義函數(shù)實(shí)現(xiàn)轉(zhuǎn)換。對(duì)小于
5、?0’的角度設(shè)計(jì)處理方法。1.1使用Excel內(nèi)置函數(shù)實(shí)現(xiàn)轉(zhuǎn)換1.2用VBA編輯自定義函數(shù)實(shí)現(xiàn)轉(zhuǎn)換有兩種處理方式:一是將度分秒形式的角度輸60進(jìn)制角度一弧度:在Excel菜單欄中單擊【工人一個(gè)單元格進(jìn)行轉(zhuǎn)換;二是將角度的度、分、秒值具】一【宏】一【VisualBasic編輯器】,進(jìn)入VB宏編分別輸人三個(gè)不同的單元格進(jìn)行轉(zhuǎn)換。輯狀態(tài),在菜單上單擊【插入】一【模塊】,然后輸入(1)用一個(gè)單元格進(jìn)行轉(zhuǎn)換如下代碼:6O進(jìn)制角度一弧度:若要將6。3045.5轉(zhuǎn)換為PublicConstpi=3.14159265358979弧度,先在一個(gè)單元格(如A1)中輸入6.30
6、455,將其PublicFunctionDtoR(nAsDouble)轉(zhuǎn)換為十進(jìn)制度后再轉(zhuǎn)換為弧度,轉(zhuǎn)換公式為:=DimSAsDouble,DAsDouble,F(xiàn)AsDouble,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在導(dǎo)線平差計(jì)算中的應(yīng)用2012年12月D=Int(n)2界面設(shè)計(jì)F=Int((n—D)}100)M=(n—D—F/1
7、00),l=10000計(jì)算是在Excel工作表中進(jìn)行的,導(dǎo)線平差計(jì)算界DtoR=(D+F/60+M/3600)Spi/180面設(shè)計(jì)時(shí)要綜合考慮采用的技術(shù)手段和數(shù)學(xué)模型,既要EndFunction保證技術(shù)手段可行,又要確保數(shù)學(xué)模型的計(jì)算結(jié)果正編輯完成后保存,返回Excel,Excel函數(shù)的“用確。技術(shù)手段主要指角度的存儲(chǔ)與顯示方式、轉(zhuǎn)換方戶定義”類別中將出現(xiàn)“DtoR”函數(shù),執(zhí)行公式=法、內(nèi)部函數(shù)的選擇與自定義函數(shù)的設(shè)計(jì)等。由于導(dǎo)線DtoR(A1),可將A1中的60進(jìn)制角度轉(zhuǎn)換為弧度。計(jì)算中需要頻繁進(jìn)行角度的代數(shù)運(yùn)算,使用上述VBA弧度一60進(jìn)制角度:操作方
8、法同上,代碼如下:角度轉(zhuǎn)換算法能使Excel中的計(jì)算公式長(zhǎng)度最短,