| /bionic/libm/upstream-freebsd/lib/msun/src/ |
| H A D | s_tanh.c | 46 static const double one = 1.0, two = 2.0, huge = 1.0e300; variable
59 if (jx>=0) return one/x+one; /* tanh(+-inf)=+-1 */
60 else return one/x-one; /* tanh(NaN) = NaN */
66 if(huge+x>one) return x; /* tanh(tiny) = tiny with inexact */
70 z = one - two/(t+two);
77 z = one - tiny; /* raise inexact flag */
|
| H A D | s_tanhf.c | 23 static const float one=1.0, two=2.0, huge = 1.0e30; variable
36 if (jx>=0) return one/x+one; /* tanh(+-inf)=+-1 */
37 else return one/x-one; /* tanh(NaN) = NaN */
43 if(huge+x>one) return x; /* tanh(tiny) = tiny with inexact */
47 z = one - two/(t+two);
54 z = one - tiny; /* raise inexact flag */
|
| H A D | s_asinh.c | 33 one = 1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */ variable
46 if(huge+x>one) return x; /* return x inexact except 0 */
52 w = __ieee754_log(2.0*t+one/(__ieee754_sqrt(x*x+one)+t));
55 w =log1p(fabs(x)+t/(one+__ieee754_sqrt(one+t)));
|
| H A D | s_asinhf.c | 23 one = 1.0000000000e+00, /* 0x3F800000 */ variable
36 if(huge+x>one) return x; /* return x inexact except 0 */
42 w = __ieee754_logf((float)2.0*t+one/(__ieee754_sqrtf(x*x+one)+t));
45 w =log1pf(fabsf(x)+t/(one+__ieee754_sqrtf(one+t)));
|
| H A D | e_acoshf.c | 23 one = 1.0, variable
43 return __ieee754_logf((float)2.0*x-one/(x+__ieee754_sqrtf(t-one)));
45 t = x-one;
|
| H A D | e_acosh.c | 38 one = 1.0, variable
59 return __ieee754_log(2.0*x-one/(x+sqrt(t-one)));
61 t = x-one;
|
| H A D | e_coshf.c | 22 static const float one = 1.0, half=0.5, huge = 1.0e30; variable
39 w = one+t;
40 if (ix<0x39800000) return one; /* cosh(tiny) = 1 */
41 return one+(t*t)/(w+w);
|
| H A D | e_sinh.c | 40 static const double one = 1.0, shuge = 1.0e307; variable
60 if(shuge+x>one) return x;/* sinh(tiny) = tiny with inexact */
62 if(ix<0x3ff00000) return h*(2.0*t-t*t/(t+one));
63 return h*(t+t/(t+one));
|
| H A D | e_sinhf.c | 22 static const float one = 1.0, shuge = 1.0e37; variable
41 if(shuge+x>one) return x;/* sinh(tiny) = tiny with inexact */
43 if(ix<0x3f800000) return h*((float)2.0*t-t*t/(t+one));
44 return h*(t+t/(t+one));
|
| H A D | s_asinhl.c | 54 one = 1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */ variable
79 if (huge + x > one) RETURNI(x); /* return x inexact except 0 */
85 w = logl(2.0*t+one/(sqrtl(x*x+one)+t));
88 w =log1pl(fabsl(x)+t/(one+sqrtl(one+t)));
|
| H A D | s_atanf.c | 45 one = 1.0, variable
63 if(huge+x>one) return x; /* raise inexact */
70 id = 0; x = ((float)2.0*x-one)/((float)2.0+x);
72 id = 1; x = (x-one)/(x+one);
76 id = 2; x = (x-(float)1.5)/(one+(float)1.5*x);
|
| H A D | s_erff.c | 27 one = 1, variable
89 return (float)(1-i)+one/x; /* erff(+-inf)=+-1 */
100 s = one+z*(qq1+z*(qq2+z*qq3));
105 s = fabsf(x)-one;
107 Q = one+s*(qa1+s*(qa2+s*qa3));
111 if(hx>=0) return one-tiny; else return tiny-one;
114 s = one/(x*x);
117 S=one+s*(sa1+s*(sa2+s*sa3));
120 S=one
[all...] |
| H A D | e_asinf.c | 23 one = 1.0000000000e+00, /* 0x3F800000 */ variable
48 if(huge+x>one) return x;/* return x with inexact if x!=0*/
52 q = one+t*qS1;
57 w = one-fabsf(x);
60 q = one+t*qS1;
|
| H A D | e_sqrtf.c | 23 static const float one = 1.0, tiny=1.0e-30; variable
76 z = one-tiny; /* trigger inexact flag */
77 if (z>=one) {
78 z = one+tiny;
79 if (z>one)
|
| H A D | e_atanh.c | 41 static const double one = 1.0, huge = 1e300; variable
60 t = 0.5*log1p(t+t*x/(one-x));
62 t = 0.5*log1p((x+x)/(one-x));
|
| H A D | e_atanhf.c | 22 static const float one = 1.0, huge = 1e30; variable
41 t = (float)0.5*log1pf(t+t*x/(one-x));
43 t = (float)0.5*log1pf((x+x)/(one-x));
|
| H A D | e_atanhl.c | 51 static const double one = 1.0, huge = 1e300; variable
70 t = 0.5*log1pl(t+t*x/(one-x));
72 t = 0.5*log1pl((x+x)/(one-x));
|
| H A D | e_cosh.c | 43 static const double one = 1.0, half=0.5, huge = 1.0e300; variable
61 w = one+t;
63 return one+(t*t)/(w+w);
|
| H A D | k_cos.c | 60 one = 1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */ variable
77 w = one-hz;
78 return w + (((one-w)-hz) + (z*r-x*y));
|
| H A D | e_acosf.c | 23 one = 1.0000000000e+00, /* 0x3F800000 */ variable
52 q = one+z*qS1;
56 z = (one+x)*(float)0.5;
58 q = one+z*qS1;
65 z = (one-x)*(float)0.5;
72 q = one+z*qS1;
|
| H A D | s_atan.c | 20 * is further reduced to one of the following intervals and the
70 one = 1.0, variable
91 if(huge+x>one) return x; /* raise inexact */
98 id = 0; x = (2.0*x-one)/(2.0+x);
100 id = 1; x = (x-one)/(x+one);
104 id = 2; x = (x-1.5)/(one+1.5*x);
|
| H A D | s_atanl.c | 29 one = 1.0, variable
56 if(huge+x>one) return x; /* raise inexact */
63 id = 0; x = (2.0*x-one)/(2.0+x);
65 id = 1; x = (x-one)/(x+one);
69 id = 2; x = (x-1.5)/(one+1.5*x);
|
| H A D | k_cosf.c | 27 one = 1.0, variable
45 return ((one+z*C0) + w*C1) + (w*z)*r;
|
| H A D | s_expm1f.c | 25 one = 1.0, variable
63 return tiny-one; /* return -1 */
92 r1 = one+hxs*(Q1+hxs*Q2);
103 else return one+(float)2.0*(x-e);
106 y = one-(e-x);
109 return y-one;
111 t = one;
119 y += one;
|
| /bionic/libm/upstream-freebsd/lib/msun/ld128/ |
| H A D | k_cosl.c | 33 one = 1.0; variable
59 w = one-hz;
60 return w + (((one-w)-hz) + (z*r-x*y));
|