Mercurial > octave-nkf

comparison scripts/elfun/acosd.m @ 7017:a1dbe9d80eee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-12 21:27:11 by jwe]
author jwe
date Fri, 12 Oct 2007 21:27:37 +0000
parents 93c65f2a5668
children ad20b967e1c9
comparison
equal deleted inserted replaced
7016:93c65f2a5668 7017:a1dbe9d80eee
1 ## Copyright (C) 2006 David Bateman <dbateman@free.fr> 1 ## Copyright (C) 2006, 2007 David Bateman
2 ## 2 ##
3 ## This file is part of Octave. 3 ## This file is part of Octave.
4 ## 4 ##
5 ## Octave is free software; you can redistribute it and/or modify it 5 ## Octave is free software; you can redistribute it and/or modify it
6 ## under the terms of the GNU General Public License as published by 6 ## under the terms of the GNU General Public License as published by
20 ## @deftypefn {Function File} {} acosd (@var{x}) 20 ## @deftypefn {Function File} {} acosd (@var{x})
21 ## Compute the inverse cosine of an angle in degrees. 21 ## Compute the inverse cosine of an angle in degrees.
22 ## @seealso{acos, cosd, asecd} 22 ## @seealso{acos, cosd, asecd}
23 ## @end deftypefn 23 ## @end deftypefn
24 24
25 ## Author: David Bateman <dbateman@free.fr>
26
25 function y = acosd (x) 27 function y = acosd (x)
26 if (nargin != 1) 28 if (nargin != 1)
27 print_usage (); 29 print_usage ();
28 endif 30 endif
29 y = acos(x) .* 180 ./ pi; 31 y = acos(x) .* 180 ./ pi;