kolibri-libc:

Move to folder with tcc. Part 1 git-svn-id: svn://kolibrios.org@8793 a494cfbc-eb01-0410-851d-a64ba20cac60
2021-06-10 14:37:44 +00:00
parent e4379d9ea4
commit b5b499b8c8
186 changed files with 0 additions and 0 deletions
--- a/programs/develop/ktcc/trunk/libc.obj/source/math/tanh.c
+++ b/programs/develop/ktcc/trunk/libc.obj/source/math/tanh.c
@@ -0,0 +1,17 @@
+/* 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);
+  }
+}
+