rad_dms.m

来自「利用ＭＡＴＬＡＢ实现了对测量中的平面网」· M 代码 · 共 15 行

function w=rad_dms(w)
%rad->ddd.mmss弧度转换到度分秒
a=abs(w);
a=a*180.0/pi;
l=fix(a);
b=(a-l)*60.0;
m=fix(b);
a=l+m/100.0+(b-m)*0.006;
if(w<0)
    w=-a;
else
    w=a;
end
return