gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/s_tanhf.c - 1.6KB - 54 lines

42:             if (ix>=0x3f800000) {      /* |x|>=1  */
43:                 t = expm1f(two*fabsf(x));
44:                 z = one - two/(t+two);
45:             } else {
46:                 t = expm1f(-two*fabsf(x));
47:                 z= -t/(t+two);