home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-bin.lha / lib / octave / 1.1.1 / m / elfun / sec.m < prev    next >
Text File  |  1996-10-12  |  165b  |  12 lines
  1. function w = sec (z)
  2.   
  3. # sec (z): compute the secant for each element of z.
  4.  
  5.   if (nargin != 1)
  6.     usage ("sec (z)");
  7.   endif
  8.   
  9.   w = 1 ./ cos(z);
  10.   
  11. endfunction
  12.