gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/e_cosh.c - 2.7KB - 95 lines

59:         if(ix<0x3fd62e43) {
60:             t = expm1(fabs(x));
61:             w = one+t;

bsd_source/lib/libc/src_bsd/math/e_sinh.c - 2.5KB - 88 lines

60:                 if(shuge+x>one) return x;/* sinh(tiny) = tiny with inexact */
61:             t = expm1(fabs(x));
62:             if(ix<0x3ff00000) return h*(2.0*t-t*t/(t+one));

bsd_source/lib/libc/src_bsd/math/s_tanh.c - 2.7KB - 90 lines

69:             if (ix>=0x3ff00000) {      /* |x|>=1  */
70:                 t = expm1(two*fabs(x));
71:                 z = one - two/(t+two);

More results from s_tanh.c