Mercurial > hg > octave-nkf

comparison scripts/elfun/sec.m @ 2325:b5568c31ee2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-15 22:20:21 by jwe]
author jwe
date Mon, 15 Jul 1996 22:20:21 +0000
parents 949ab8eba8bc
children 8b262e771614
comparison
equal deleted inserted replaced
2324:fdc6e2f81333 2325:b5568c31ee2c
20 ## sec (z): compute the secant for each element of z. 20 ## sec (z): compute the secant for each element of z.
21 21
22 ## Author: jwe 22 ## Author: jwe
23 23
24 function w = sec (z) 24 function w = sec (z)
25 25
26 if (nargin != 1) 26 if (nargin != 1)
27 usage ("sec (z)"); 27 usage ("sec (z)");
28 endif 28 endif
29 29
30 w = 1 ./ cos(z); 30 w = 1 ./ cos(z);
31 31
32 endfunction 32 endfunction