EXCEL中计算方位角距离公式.doc

EXCEL中计算方位角距离公式电子表格中求方位角的公式结果显示为 度 格式的计算式：=(PI()*(1?-?SIGN(B3-$B$1)?/?2)?-?ATAN((A3-$A$1)?/(B3-$B$1)))*180/PI()°Excel?中求方位角公式：a1,b1放起始点坐标??a3,b3放终点坐标。?结果显示为 度 分 秒 格式的计算式：=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 ″其中：A1,B1中存放测站坐标,a3,b3放终点坐标。上面的计算出来的是度分秒格式，也就是字符串格式，不能用来计算，只是用来看的哟！下面这个简单一点：=(PI()*(1?-?SIGN(B3-B1)?/?2)?-?ATAN((A3-A1)?/(B3-B1)))*180/PI()Excel?中求方位角公式：a1,b1放起始点坐标??a3,b3放终点坐标。求距离公式:=Round(SQRT(POWER((A3-$A$1),2)+POWER((B3-$B$1),2)),3)一、度分秒值换算为度 首先要将单位符号都去掉，形成?1112233?的形式，分秒小于十的要在其前补0，必须如此，不然无法判断分与秒的位置。假设原始数据在A列，第一个数据在A2单元格。在你需要放入转换结果的一个单元格内（最好是与A2同一行，这样有大量原始数据要转换时，直接下拉就可以转换所有数据），输入：=value(MID(IF(LEN(A2)=6,CONCATENATE(0,A2),A2),1,3))+value(MID(IF(LEN(A2)=6,CONCATENATE(0,A2),A2),4,2))/60+value(MID(IF(LEN(A2)=6,CONCATENATE(0,A2),A2),6,2))/3600回车即可。下面解释转换方法和函数意义。以?1112233?为例。算法是111+（22/60）+（33/3600），即把分、秒都算成度后相加。MID：意为选择指定的字符，具体写法为MID(数据,顺位,字符数)，先指定1-3位（度位），再指定4-5位（分位）/60，再指定6-7位（秒位）/3600。value：意为转换成为数值，这样才能进行运算。关键问题在于，度有可能是2位数，如果这样整个数就是6位，上例算式中的IF(LEN(A2)=6,CONCATENATE(0,A2),A2)就是处理这样的问题的。意思为如果整个是6位数，就在其前补个0，若不是6位，就直接用原来的数值（呵呵，在中国及周边没有6位和7位以外的经纬度，现在这个算法适用于6位和7位的经纬度）。IF：条件函数，用法：IF(logical_test，value_if_true，value_if_false)，其中logical_test为判断条件，在本例中为LEN(A2)=6，满足条件执行value_if_true，不满足则执行value_if_false。LEN：为返回字符数的函数。CONCATENATE：为合并字符函数，写法为：CONCATENATE(text1，text2，...)，如要直接使用文本字符，就在其上加英文引号。二、度转换为度分秒 假设原始数据在A列，第一个数据在A2单元格。在你需要放入转换结果的一个单元格内（最好是与A2同一行，这样有大量原始数据要转换时，直接下拉就可以转换所有数据），输入：=CONCATENATE(INT(A2)，IF(INT((A2-INT(A2))*60)10，CONCATENATE(0，I