gonzui

t2ex

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));
66:     /* |x| in [22, log(maxdouble)] return 0.5*exp(|x|) */
67:         if (ix < 0x40862E42)  return h*exp(fabs(x));
68: 
71:         if (ix<0x408633CE || ((ix==0x408633ce)&&(lx<=(u_int32_t)0x8fb9f87d))) {
72:             w = exp(0.5*fabs(x));
73:             t = h*w;