已知點(diǎn)A(1,2)和點(diǎn)B(3,-6)坐標(biāo),在Excel中把A點(diǎn)的坐標(biāo)輸入A1和B1,B點(diǎn)的坐標(biāo)輸入A3和B3,計(jì)算點(diǎn)A到點(diǎn)B的方位角,公式編寫如下:
方法一:
“度”格式:
=(PI()*(1 - SIGN(B3-$B$1) / 2) - ATAN((A3-$A$1) /(B3-$B$1)))*180/PI()
“度分秒”格式:
=INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/PI())
&"-"& INT( ((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180
/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-$b$1)))*180/
PI()))*60)&"-"&INT( (((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-
$b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /(B3-
$b$1)))*180/PI()))*60-INT(((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /
(B3-$b$1)))*180/PI()-INT((PI()*(1 - SIGN(B3-$b$1) / 2) - ATAN((A3-$a$1) /
(B3-$b$1)))*180/PI()))*60))*600)/10
上面的計(jì)算出來的是度分秒格式,也就是字符串格式,不能用來計(jì)算,只是用來看的喲!
=INT(C1)&"-"& INT( (C1-INT(C1))*60)&"-"&INT(((C1-INT(C1))*60-INT((C1-INT(C1))*60))*600)/10
求距離公式:
=Round(SQRT(POWER((A3-$A$1),2)+POWER((B3-$B$1),2)),3)
方法二:(本人編寫的計(jì)算方法)
可在C1單元格中輸入以下公式進(jìn)行計(jì)算(“度”格式):
=Degrees(Atan2(A1-A3,B1-B3)+Pi())
注:以上公式也可在其它單元格中編寫,此處只是為了后續(xù)公式的編寫。
“度分秒”格式:
在以“度”為單位的方位角已經(jīng)在C1中算出的情況下,公式編寫如下:
=INT(C1)+INT((C1-INT(C1))*60)/100+(C1*60-INT(C1*60))*60/10000
也就是:
=INT(Degrees(Atan2(A1-A3,B1-B3)+Pi()))+INT((Degrees(Atan2(A1-A3,B1-B3)+Pi())-INT(Degrees(Atan2(A1-A3,B1-B3)+Pi())))*60)/100+( Degrees(Atan2(A1-A3,B1-B3)+Pi())*60-INT(Degrees(Atan2(A1-A3,B1-B3)+Pi())*60))*60/10000
求距離公式:
=Round(SQRT((A3-A1)^2 + (B3-$B$1)^2),3)