gonzui

t2ex

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);
72:             } else {
73:                 t = expm1(-two*fabs(x));
74:                 z= -t/(t+two);