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;
67:         if (ix < 0x40360000) {
68:                 t = exp(fabs(x));
69:                 return half*t+half/t;
72:     /* |x| in [22, log(maxdouble)] return half*exp(|x|) */
73:         if (ix < 0x40862E42)  return half*exp(fabs(x));
74: 
78:               ((ix==0x408633ce)&&(lx<=(u_int32_t)0x8fb9f87d))) {
79:             w = exp(half*fabs(x));
80:             t = half*w;