reactos/lib/sdk/crt/math/tanh.c

/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */

#include <math.h>

#ifdef _MSC_VER
#pragma function(tanh)
#endif

/*
 * @implemented
 */
double tanh(double x)
{
  if (x > 50)
    return 1;
  else if (x < -50)
    return -1;
  else
  {
    const double ebig = exp(x);
    const double esmall = 1.0/ebig;
    return (ebig - esmall) / (ebig + esmall);
  }
}
- Cleanup the /lib directory, by putting more 3rd-party libs in /3rdparty, and by creating a new directory called /sdk where libraries which emulate the ones in the WDK are present (Such as uuid, nt, crt, etc). - Removed lib/interlck and lib/string. - Removed math routines from lib/rtl. - Created a new library called libcntpr which is what NT/WDK use when compiling the kernel/system libraries. This is an "NT-Private" version of the CRT which is supposed to contain what we had in lib/string and lib/rtl. svn path=/trunk/; revision=26095 2007-03-14 20:24:57 +00:00			`/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */`

			`#include <math.h>`

[CRT] - Add #pragma function to a number of intrisics that we implement to avoid a compiler error of MSVC - Add a workaround to prevent some functions from being inlined - Move sqrtf out of i386 directory - Convert a number of inline assembly functions to raw assembly svn path=/branches/cmake-bringup/; revision=49534 2010-11-08 18:36:45 +00:00			`#ifdef _MSC_VER`
			`#pragma function(tanh)`
			`#endif`

- Cleanup the /lib directory, by putting more 3rd-party libs in /3rdparty, and by creating a new directory called /sdk where libraries which emulate the ones in the WDK are present (Such as uuid, nt, crt, etc). - Removed lib/interlck and lib/string. - Removed math routines from lib/rtl. - Created a new library called libcntpr which is what NT/WDK use when compiling the kernel/system libraries. This is an "NT-Private" version of the CRT which is supposed to contain what we had in lib/string and lib/rtl. svn path=/trunk/; revision=26095 2007-03-14 20:24:57 +00:00			`/*`
			`* @implemented`
			`*/`
			`double tanh(double x)`
			`{`
			`if (x > 50)`
			`return 1;`
			`else if (x < -50)`
			`return -1;`
			`else`
			`{`
			`const double ebig = exp(x);`
			`const double esmall = 1.0/ebig;`
			`return (ebig - esmall) / (ebig + esmall);`
			`}`
			`}`