home *** CD-ROM | disk | FTP | other *** search
/ PC Extra Super CD 1998 January / PCPLUS131.iso / DJGPP / V2 / DJLSR201.ZIP / src / libc / ansi / math / tanh.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-11-29  |  319 b   |  18 lines
  1. /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
  2. #include <math.h>
  3.  
  4. double tanh(double x)
  5. {
  6.   if (x > 50)
  7.     return 1;
  8.   else if (x < -50)
  9.     return -1;
  10.   else
  11.   {
  12.     const double ebig = exp(x);
  13.     const double esmall = 1.0/ebig;
  14.     return (ebig - esmall) / (ebig + esmall);
  15.   }
  16. }
  17.  
  18.