dms_rad.m

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

function g=dms_rad(g)
%ddd.mmss->rad ，度分秒转换到弧度
a=abs(g);
n=fix(a+10e-10);
b=(a-n)*100.0;
m=fix(b);
c=(n+m/60.0+(b-m)/36.0)*pi/180.0;
if(g<0)
    g=-c;
else
    g=c;
end
return