BlueGrey
calm
Elegant
Català-Valencià – Catalan
中文 – Chinese (Simplified)
中文 – Chinese (Traditional)
Česky – Czech
Dansk – Danish
Nederlands – Dutch
English – English
Suomi – Finnish
Français – French
Deutsch – German
עברית – Hebrew
हिंदी – Hindi
Magyar – Hungarian
Bahasa Indonesia – Indonesian
Italiano – Italian
日本語 – Japanese
한국어 – Korean
Македонски – Macedonian
मराठी – Marathi
Norsk – Norwegian
Polski – Polish
Português – Portuguese
Português – Portuguese (Brazil)
Русский – Russian
Slovenčina – Slovak
Slovenščina – Slovenian
Español – Spanish
Svenska – Swedish
Türkçe – Turkish
Українська – Ukrainian
Oëzbekcha – Uzbek
Subversion Repositories
Kolibri OS
(root)
/
contrib
/
kolibri-libc
/
source
/
math
/
tanh.c
– Rev 8622
Rev
Go to most recent revision
|
Blame
|
Last modification
|
View Log
|
RSS feed
/* Copyright (C) 1994 DJ Delorie, see COPYING.DJ for details */
#include <math.h>
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
)
;
}
}