Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. /* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
  2. #include <math.h>
  3.  
  4. double sinh(double x)
  5. {
  6.  if(x >= 0.0)
  7.  {
  8.    const double epos = exp(x);
  9.    return (epos - 1.0/epos) / 2.0;
  10.  }
  11.  else
  12.  {
  13.    const double eneg = exp(-x);
  14.    return (1.0/eneg - eneg) / 2.0;
  15.  }
  16. }
  17.