dms2deg.m

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

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

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

if nargin==2,error('Must be 1 or 3 arguments.'),end
dms=d;
if nargin==3, dms=[d m s];end
deg=dms*60.^(0:-1:-2)';