坐标方位角计算公式

坐标方位角计算公式(通用)用极坐标法放样必须计算出测站点(仪器点)到放样点得距离和方位角，才能进行放样。原计算公式为：S12=sqr((x2-x1)2+(y2-y1)2)=sqr(△x221+△y221)A12=arcsin((y2-y1)/S12)S12为测站点１至放样点２的距离；A12为测站点１至放样点２的坐标方位角。x1，y1为测站点坐标；x2，y2为放样点坐标。按公式A12=arcsin((y2-y1)/S12)计算出的方位角都要进行象限判断后加常数才是真正的方位角。新计算公式为：A12=arccos(△x21/S12)*sgn(△y21)+360°式中sgn()为取符号函数，改公式只需加上条件（A12>360°,A12=A12-360°）就可以计算出坐标方位角，不需要进行象限判断。我的这个公式要更好一些，计算结果就是正确结果：

SGN是正负号的函数。括号内的数字大于零SGN（）就是+号，反之就是-号。===================================函数开始==================================='jiaodu10(x,splitStr)函数将60进制度转换为10进制度格式.x为度数，splitStr为分隔符号，'如x为43%67%367，则splitStr为"%",参数要用双引号括起来，jiaodu10("x","%")Functionjiaodu10(x,splitStr)IfInStr(1,x,splitStr)ThenDimss=Split(x,splitStr)jiaodu10=s(0)+s(1)/60+s(2)/3600Elsejiaodu10="错误"EndIfEndFunction'--------------------------------------------------------------------------------'jiaodu60(x,splitStr)函数将10进制度转换为60进制度格式，splitStr分隔表示'x为数字，可以不用双引号括起来，参数splitStr要用双引号括起来iaodu10(12.31313,"-")Functionjiaodu60(x,splitStr)Dimfen,miaoFen=Round((fen-Int(fen))*60,0)Ifmiao>=60Thenmiao=miao-60fen=fen+1EndIfjiaodu60=Int(x)&splitStr&Int(fen)&splitStr&miaoEndFunction'--------------------------------------------------------------------------------'juli(待算点纵坐标x，待算点横坐标y，测站点纵坐标m，测站点纵坐标n)用于计算距离。Functionjuli(x,y,m,n)juli=Math.Spr((x-m)^2+(y-n)^2)EndFunction'--------------------------------------------------------------------------------'jiaodu(x,y,m,n)计算角度Functionjiaodu(x,y,m,n)Dimdx,dy,a,jdu10dx=x-mdy=y-ma=Math.Abs(Math.Atn(dy/dx)*180/3.14159265)jdu10=0If(dx>0)ThenIf(dy>0)Thenjdu10=aElsejdu10=360-aEndIfElseIf(dy>0)Thenjdu10=180-aElsejdu10=180+aEndIfEndIfjiaodu=jiaodu60(jdu