继续给大家分享一下Excel在工程方面的应用,这个是计算距离与方位角的方法,下面详细解释。根据这个就可以自己编写Excel的坐标距离方位角计算表了。
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/025d87c0affce1867f5278c61f1fbee435daebd1.jpg)
工具/原料
Excel
工程坐标计算距离与方位角
第一步、做好表格样本
1、首先在Excel表格中,做大概一个表,如下图:灰色区域表示输入坐标的位置,
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/a9338a1fbee434da90239a97f271fe1d97d8e4d1.jpg)
第二步、计算距离
1、首先,计算两点歆懈邦嘭距离的原理是:平面中A(x1,y1)和B(x2,y2)的距离为:√[(x1-x2)²+(y1-y2)²],那么,由Excel看起来,A(A4,蚱澄堆别B4),Y(C4,D4),那么距离就是 :(A4-C4的平方)加(B4-D4的平方)再开方 ,在Excel中体现为:A6输入:=SQRT((A4-C4)^2+(B4-D4)^2),SQRT()表示开平方,()^表示平方,
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/ff5c88d818196120c0b0dcda70f202b374d7dfd1.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/983aa5f4da5872daae34b1bb0056ad042f68d4d1.jpg)
2、同理,A6的公式也可以写成:((A4-C4)^2+(B4-D4)^2)^(1/2),
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/50a010f85856d53dd259085d47d2bb665059cad1.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/116b1ae23ea23a42240770a43733ec3835bbc0d1.jpg)
第三步、方位角计算
1、坐标方位角:由坐标纵轴方向的北端起,顺时针量到直线间的夹角,称为该直线的坐标方位角,常简称方位角,用a表示,则tana=(Yb-Ya)/(Xb-Xa)=(D4-B4)/(C4-A4),然后显然就能计算出方位角了。
2、首先,判断象限,计算正切,A8公式为:=IF(AND(C4-A4>0,D4-B4>0),ATAN(ABS((D桃轾庾殇4-B4)/(C4-A4))),IF(AND(C4-A4<0,D4-B4>0),PI()-ATAN(ABS((D4-B4)/(C4-A4))),IF(AND(C4-A4<0,D4-B4<0),PI()+ATAN(ABS((D4-B4)/(C4-A4))),IF(AND(C4-A4>0,D4-B4<0),2*PI()-ATAN(ABS((D4-B4)/(C4-A4)))))))
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/c33acc828689a14627cc3e4df4bd4c7c35b334d6.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/023cff37c97622bce1b81fd3a05fd546049628d6.jpg)
3、然后,计算出角度为:=DEGREES(A8),即A8公式为:=DEGREES(诔罨租磊IF(AND(C4-A4>0,D4-B4>0),ATAN(帆歌达缒ABS((D4-B4)/(C4-A4))),IF(AND(C4-A4<0,D4-B4>0),PI()-ATAN(ABS((D4-B4)/(C4-A4))),IF(AND(C4-A4<0,D4-B4<0),PI()+ATAN(ABS((D4-B4)/(C4-A4))),IF(AND(C4-A4>0,D4-B4<0),2*PI()-ATAN(ABS((D4-B4)/(C4-A4)))))))),即前面公式加DEGREES(),
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/47bf594ec28333bf9292e5fbdbb8b43ea9db1dd6.jpg)
4、然后,把计算的角度换算成度分秒,公式为:B8的公式为:=INT(A8),C8的公式为:=INT((A8-B8)*60),D8的公式为:=((A8-B8)*60-INT((A8-B8)*60))*60,这样就换算成度分秒了,
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/dd58d02c5b1b1ede43a1708d981fceecd2d90fd6.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/edd84743040148fedc3f8ddf8fd149299b8802d6.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/edafb3bcbe2f47708b650f6e6f3b3b86032179d6.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/52fae62064fb960be95cd5d58fa355e982ae6cd6.jpg)
5、最后设置度分秒的格式,A8的格式为:##.####"°",B8的格式为:##"°",C8的格式为:##"′",D8的格式为:##.##"秒",
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/e1390a31dfb6326cb31b497b89532f63228560d6.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/e177fc9147e833e0d40fedb730ea3e86314859d6.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/3fc72e486143d7d4bc4cd45f7da75f0f832b50d6.jpg)
![Excel系列:[13]两点距离及方位角计算](https://exp-picture.cdn.bcebos.com/d695563104ebf6a7a872529fffee1c324a184fd6.jpg)