代遠(yuǎn)大 鐘鳴
摘要:用解析法計(jì)算多邊形的周長和面積時(shí),需要進(jìn)行大量的、復(fù)雜的中間數(shù)據(jù)處理,才能得到最終結(jié)果。Excel數(shù)組公式的應(yīng)用,可以避開對中間數(shù)據(jù)的直接處理,通過數(shù)組公式的設(shè)計(jì),便捷地計(jì)算出最終結(jié)果。
關(guān)鍵詞:坐標(biāo)解析法;Excel數(shù)組公式;多邊形;周長;面積
中圖分類號:TP311 文獻(xiàn)標(biāo)識碼:A 文章編號:1009-3044(2017)31-0214-01
在測量處理工作中,通常需要根據(jù)多邊形頂點(diǎn)的坐標(biāo),計(jì)算多邊形的周長和面積,方法有很多,但最精準(zhǔn)的、最科學(xué)的方法是解析法。然而解析法涉及大量的、復(fù)雜的數(shù)據(jù)處理,在計(jì)算機(jī)應(yīng)用普及的時(shí)代,如何提高數(shù)據(jù)處理的功效,讓人們從繁雜的數(shù)據(jù)處理工作中解放出來,通過對Microsoft Office Excel 的精心設(shè)計(jì),可以輕松實(shí)現(xiàn)這一目標(biāo)。
1 開發(fā)環(huán)境
Microsoft Office Excel 2007中文版
2 設(shè)計(jì)依據(jù)
點(diǎn)間距離解析法 :L =[ (Xi+1-Xi)2+(Yi+1-Yi)2 ]
多邊形面積解析法:S =[ 12*(Xi*Yi+1-Xi+1*Yi)]
其中:[Xi、Xi+1、Yi、Yi+1]為相鄰兩點(diǎn)的X坐標(biāo)和Y坐標(biāo)。
3 設(shè)計(jì)過程
1) 新建一個(gè)工作簿文件,命名為“Polygon.xlsx”。
2) 新建一個(gè)工作表,命名為“多邊形”,表格設(shè)計(jì)樣式如下圖所示:
圖1
3) 定義三個(gè)單元格區(qū)域名稱:
A7:A50 — 定義名稱為“序號”
B7:B50 — 定義名稱為“X”
C7:C50 — 定義名稱為“Y”
4) 在A7單元格中輸入公式:=IF(AND(B7="",C7=""),"",ROW(A7)-ROW($A$6))。
利用單元格的填充柄,將該公式向下填充至A50。
功能:在X坐標(biāo)、Y坐標(biāo)輸入后,自動(dòng)生成從1開始的坐標(biāo)序號。
5) 在C2單元格中輸入數(shù)組公式:
=SUM(SQRT((B8:B50-B7:B49)^2+(C8:C50-C7:C49)^2))-SQRT(INDEX(X,MAX(序號))^2+INDEX(Y,MAX(序號))^2)+SQRT((INDEX(X,MAX(序號))-B7)^2+(INDEX(Y,MAX(序號))-C7)^2)
注意:本公式為數(shù)組公式,輸入后,應(yīng)同時(shí)按“Ctrl+ Shift+ Enter”組合鍵。
功能:利用解析法計(jì)算邊長,然后累加求和得到多邊形周長。
6) 在C3單元格中輸入數(shù)組公式:
=ABS(SUM(B7:B49*C8:C50-C7:C49*B8:B50)+INDEX(X,MAX(序號))*C7-INDEX(Y,MAX(序號))*B7)/2
注意:本公式為數(shù)組公式,輸入后,應(yīng)同時(shí)按“Ctrl+ Shift+ Enter”組合鍵。
功能:利用解析法計(jì)算多邊形面積。
7) 在C4單元格中輸入數(shù)組公式:=C3*0.0015,將平方米轉(zhuǎn)換為畝。
8) 在C5單元格中輸入數(shù)組公式:C3/10000,將平方米轉(zhuǎn)換為公頃。
9) 鎖定工作表中坐標(biāo)輸入?yún)^(qū)之外的全部單元格,然后保護(hù)該工作表。
4 設(shè)計(jì)驗(yàn)證
在坐標(biāo)區(qū)域中,依次(順時(shí)針或反時(shí)針)輸入某個(gè)多邊形頂點(diǎn)的坐標(biāo)值,周長和面積自動(dòng)生成,如下圖所示:
通過大量的多邊形坐標(biāo)數(shù)據(jù)的反復(fù)測試驗(yàn)證,計(jì)算結(jié)果完全正確。
5 適用對象
本設(shè)計(jì)適用于已知各頂點(diǎn)坐標(biāo)、無交叉、無重疊的所有多邊形周長和面積計(jì)算。
6 設(shè)計(jì)結(jié)論
本設(shè)計(jì)通過解析法與Excel的巧妙結(jié)合,特別是對Excel數(shù)組公式的應(yīng)用,是本設(shè)計(jì)的核心,它將大量的、循環(huán)的中間數(shù)據(jù)處理過程高度濃縮、簡化,實(shí)現(xiàn)了多邊形周長和面積的自動(dòng)化處理,極大地提高了工作效率。