（20181109）角度转弧度——dms2rad/rad2dms

版权声明：未经作者同意，不得擅自转载。 https://blog.csdn.net/sinat_32602421/article/details/83900340

角度转弧度：

function hd=dms2rad(JD);%角度化弧度函数
%JD=99.3527;
  w=abs(JD);
  d=fix(w);
  df=(w-d)*100;
  f=fix(df);
  m=(df-f)*100;
  ddd=d+f/60+m/3600;
  hd=ddd*pi/180;
  if JD<0;
      hd=-hd;
  end
  return

弧度转角度：

function JD=rad2dms(hd)
%弧度化角度函数
   w=abs(hd);
   df=w*180/pi;
   d=fix(df);
   mf=(df-d)*60;
   m=fix(mf);
   sf=(mf-m)*60;
   JD=d+m/100+sf/10000;
   if hd<0;
       JD=-JD;
   end
return