home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / scripts / elfun / acoth.m < prev    next >
Text File  |  1996-09-28  |  191b  |  11 lines
  1. function w = acoth (z)
  2.  
  3. # acoth (z):  compute the inverse hyperbolic cotangent for each element of z. 
  4.  
  5.   if (nargin != 1)
  6.     usage ("acoth (z)");
  7.   endif
  8.  
  9.   w = atanh (1 ./ z);
  10.  
  11. endfunction