Mercurial > octave-nkf

comparison scripts/elfun/sind.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
21 ## Compute the sine of each element of @var{x}. Returns zero in elements 21 ## Compute the sine of each element of @var{x}. Returns zero in elements
22 ## for which @code{@var{x}/180} is an integer. 22 ## for which @code{@var{x}/180} is an integer.
23 ## @seealso{sin, cosd, tand, acosd, asind, atand} 23 ## @seealso{sin, cosd, tand, acosd, asind, atand}
24 ## @end deftypefn 24 ## @end deftypefn
25 25
26 ## Author: David Bateman <dbateman@free.fr>
27
26 function y = sind (x) 28 function y = sind (x)
27 if (nargin != 1) 29 if (nargin != 1)
28 print_usage (); 30 print_usage ();
29 endif 31 endif
30 I = x / 180; 32 I = x / 180;