gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/s_erf.c - 12.7KB - 312 lines

214:         if(ix < 0x3ff40000) {          /* 0.84375 <= |x| < 1.25 */
215:             s = fabs(x)-one;
216:             P = pa0+s*(pa1+s*(pa2+s*(pa3+s*(pa4+s*(pa5+s*pa6)))));
222:         }
223:         x = fabs(x);
224:         s = one/(x*x);
269:         if(ix < 0x3ff40000) {          /* 0.84375 <= |x| < 1.25 */
270:             s = fabs(x)-one;
271:             P = pa0+s*(pa1+s*(pa2+s*(pa3+s*(pa4+s*(pa5+s*pa6)))));
279:         if (ix < 0x403c0000) {         /* |x|<28 */
280:             x = fabs(x);
281:             s = one/(x*x);