Mercurial > octave-nkf
comparison scripts/elfun/cscd.m @ 7017:a1dbe9d80eee
[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} {} cscd (@var{x}) | 20 ## @deftypefn {Function File} {} cscd (@var{x}) |
21 ## Compute the cosecant of an angle in degrees. | 21 ## Compute the cosecant of an angle in degrees. |
22 ## @seealso{csc, secd, sind, cosd} | 22 ## @seealso{csc, secd, sind, cosd} |
23 ## @end deftypefn | 23 ## @end deftypefn |
24 | 24 |
25 ## Author: David Bateman <dbateman@free.fr> | |
26 | |
25 function y = cscd (x) | 27 function y = cscd (x) |
26 if (nargin != 1) | 28 if (nargin != 1) |
27 print_usage (); | 29 print_usage (); |
28 endif | 30 endif |
29 y = 1 ./ sind (x); | 31 y = 1 ./ sind (x); |