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