tadmsrad.m

来自「Matlab GPS Toolbox」· M 代码 · 共 21 行

%                                tadmsrad.m
%  Scope:   This MATLAB macro converts an angle value from degrees/minutes/
%           seconds to radians.
%  Usage:   arad = tadmsrad(adeg,amin,asec)
%  Description of parameters:
%           adeg -  input, angle - degrees component - positive/negative number
%           amin -  input, angle - minutes component - positive number only
%           asec -  input, angle - seconds component - positive number only
%           arad -  output, angle in radians
%  Last update:  04/04/00
%  Copyright (C) 1996-00 by LL Consulting. All Rights Reserved.

function  arad = tadmsrad(adeg,amin,asec)

pi180 = pi / 180.;

temp = abs(adeg);
arad = pi180 * (temp + amin / 60. + asec / 3600.);
if adeg < 0.
   arad = - arad;
end