Subversion Repositories Kolibri OS

Rev

Rev 8793 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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.         const double ebig = exp(x);
  12.         const double esmall = 1.0 / ebig;
  13.         return (ebig - esmall) / (ebig + esmall);
  14.     }
  15. }
  16.