Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4973 right-hear 1
/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
2
#include 
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
}