1## Copyright (C) 2004-2020 Andrew Collier <abcollier@users.sourceforge.net> 2## 3## This program is free software; you can redistribute it and/or modify it under 4## the terms of the GNU General Public License as published by the Free Software 5## Foundation; either version 3 of the License, or (at your option) any later 6## version. 7## 8## This program is distributed in the hope that it will be useful, but WITHOUT 9## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 10## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 11## details. 12## 13## You should have received a copy of the GNU General Public License along with 14## this program; if not, see <http://www.gnu.org/licenses/>. 15 16## -*- texinfo -*- 17## @deftypefn {Function File} {} deg2rad (@var{anglin}) 18## @deftypefnx {Function File} {} degtorad (@var{anglin}) 19## Converts angles input in degrees to the equivalent in radians. 20## 21## @seealso{rad2deg, unitsratio} 22## @end deftypefn 23 24## Author: Andrew Collier <abcollier@users.sourceforge.net> 25 26function anglout = deg2rad (anglin) 27 if (nargin != 1) 28 print_usage (); 29 endif 30 persistent ratio = unitsratio ("radians", "degrees"); 31 anglout = anglin * ratio; 32endfunction 33 34%!assert (deg2rad(180),pi,10*eps) 35