deg2dms.m

来自「航天工程工具箱」· M 代码 · 共 23 行

function [d,m,s]=deg2dms(deg)
%DEG2DMS  Convert degrees into dms format.
%   This function converts from DEG degrees into
%   D(deg)M'S".
%
%   [D,M,S] = DEG2DMS(DEG) converts value DEG in unit degrees
%   into D degrees, M arcminutes and S arcseconds.
%
%   DMS = DEG2DMS(DEG) converts value DEG in unit degrees
%   to a vector corresponding to the values [D M S] above.
%
%   See also DMS2DEG, HMS2SEC, SEC2HMS, NUM2MASS.

% Copyright (c) 2002-03-05, B. Rasmus Anthin.

d=floor(deg);
m=floor(60*(deg-d));
s=(deg-d-m/60)*3600;
[d,m,s]=sec2hms(hms2sec(d,m,s));
if nargout<3
   d(2)=m;
   d(3)=s;
end