| /src/lib/libm/arch/mc68881/ |
| s_tanh.S | 39 ;.asciz "from: @(#)tanh.s 5.1 (Berkeley) 5/17/90"
43 ENTRY(tanh) function
|
| /src/lib/libm/noieee_src/ |
| n_tanh.c | 33 static char sccsid[] = "@(#)tanh.c 8.1 (Berkeley) 6/4/93";
37 /* TANH(X)
51 * 1. reduce x to non-negative by tanh(-x) = - tanh(x).
53 * 0 < x <= 1.e-10 : tanh(x) := x
55 * 1.e-10 < x <= 1 : tanh(x) := --------------
58 * 1 <= x <= 22.0 : tanh(x) := 1 - ---------------
60 * 22.0 < x <= INF : tanh(x) := 1.
65 * tanh(NaN) is NaN;
66 * only tanh(0)=0 is exact for finite argument
77 tanh(double x) function in typeref:typename:double
[all...] |
| /src/lib/libm/arch/m68060/ |
| s_tanh.S | 4 * FPLSP wrapper for tanh
12 WEAK_ALIAS(tanh, _tanh)
|
| makeas.sh | 225 mk _tanh tanh 0200 s_tanh
|
| /src/tests/lib/libm/ |
| t_tanh.c | 38 * tanh(3)
43 atf_tc_set_md_var(tc, "descr", "Test tanh(NaN) == NaN");
51 ATF_CHECK(isnan(tanh(x)) != 0);
57 atf_tc_set_md_var(tc, "descr", "Test tanh(-Inf) == -1.0");
64 ATF_CHECK(tanh(x) == -1.0);
70 atf_tc_set_md_var(tc, "descr", "Test tanh(+Inf) == +1.0");
77 ATF_CHECK(tanh(x) == 1.0);
83 atf_tc_set_md_var(tc, "descr", "Test tanh(-0.0) == -0.0");
89 double y = tanh(x);
101 atf_tc_set_md_var(tc, "descr", "Test tanh(+0.0) == +0.0")
[all...] |
| /src/lib/libm/src/ |
| s_tanh.c | 18 /* Tanh(x)
24 * 0. tanh(x) is defined to be -----------
27 * 1. reduce x to non-negative by tanh(-x) = -tanh(x).
28 * 2. 0 <= x <= 2**-55 : tanh(x) := x*(one+x)
30 * 2**-55 < x <= 1 : tanh(x) := -----; t = expm1(-2x)
33 * 1 <= x <= 22.0 : tanh(x) := 1- ----- ; t=expm1(2x)
35 * 22.0 < x <= INF : tanh(x) := 1.
38 * tanh(NaN) is NaN;
39 * only tanh(0)=0 is exact for finite argument
48 tanh(double x) function in typeref:typename:double
[all...] |
| s_tanhl.c | 52 * |tanh(x)/x - t(x)| < 2**-72.3
69 * |tanh(x)/x - t(x)| < 2**121.6
132 if (jx>=0) return one/x+one; /* tanh(+-inf)=+-1 */
133 else return one/x-one; /* tanh(NaN) = NaN */
141 /* tanh(+-0) = +0; tanh(tiny) = tiny(-+) with inexact: */
186 return tanh(x);
|
| /src/tests/lib/lua/libm/ |
| h_lualibm.c | 34 TEST(tanh(M_SQRT2));
35 TEST(atanh(tanh(M_SQRT2)));
84 TEST(tanh(M_PI_4));
|
| lualibm.lua | 40 test("tanh(M_SQRT2)", lm.tanh(lm.M_SQRT2))
41 test("atanh(tanh(M_SQRT2))", lm.atanh(lm.tanh(lm.M_SQRT2)))
87 test("tanh(M_PI_4)", lm.tanh(lm.M_PI_4))
|
| /src/include/ |
| tgmath.h | 142 #define tanh(a) __TG_COMPLEX((a), tanh) macro
|
| math.h | 248 double tanh(double);
|
| /src/lib/lua/libm/ |
| libm.c | 154 DFUNC_DBL(tanh)
294 { "tanh", libm_tanh },
|
| /src/usr.bin/xlint/llib/ |
| llib-lstdc | 105 double (tanh)(double x);
|
| llib-lposix | 285 double (tanh)(double x);
|
| /src/lib/libm/ |
| Makefile | 454 tan.3 tanh.3 trunc.3 fmax.3 fdim.3
556 MLINKS+=tanh.3 tanhf.3 \
557 tanh.3 tanhl.3
|
| /src/sys/arch/m68k/060sp/dist/ |
| fplsp.s | 7814 # fp0 = tanh(X) #
7824 # TANH #
7827 # 2. (2**(-40) < |X| < (5/2) log2) Calculate tanh(X) by #
7829 # tanh(X) = sgn*( z/(2+z) ). #
7837 # 5. ((5/2) log2 <= |X| < 50 log2) Calculate tanh(X) by #
7839 # tanh(X) = sgn - [ sgn*2/(1+z) ]. #
7842 # 6. (|X| >= 50 log2) Tanh(X) = +-1 (round to nearest). Thus, we #
7843 # calculate Tanh(X) by #
7845 # tanh(X) := sgn - sgn*Tiny. #
7848 # 7. (|X| < 2**(-40)). Tanh(X) = X. Exit.
[all...] |
| fpsp.s | 7920 # fp0 = tanh(X) #
7930 # TANH #
7933 # 2. (2**(-40) < |X| < (5/2) log2) Calculate tanh(X) by #
7935 # tanh(X) = sgn*( z/(2+z) ). #
7943 # 5. ((5/2) log2 <= |X| < 50 log2) Calculate tanh(X) by #
7945 # tanh(X) = sgn - [ sgn*2/(1+z) ]. #
7948 # 6. (|X| >= 50 log2) Tanh(X) = +-1 (round to nearest). Thus, we #
7949 # calculate Tanh(X) by #
7951 # tanh(X) := sgn - sgn*Tiny. #
7954 # 7. (|X| < 2**(-40)). Tanh(X) = X. Exit.
[all...] |
