gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/s_erff.c - 7.6KB - 206 lines

119:         if(ix < 0x3fa00000) {          /* 0.84375 <= |x| < 1.25 */
120:             s = fabsf(x)-one;
121:             P = pa0+s*(pa1+s*(pa2+s*(pa3+s*(pa4+s*(pa5+s*pa6)))));
127:         }
128:         x = fabsf(x);
129:         s = one/(x*x);
174:         if(ix < 0x3fa00000) {          /* 0.84375 <= |x| < 1.25 */
175:             s = fabsf(x)-one;
176:             P = pa0+s*(pa1+s*(pa2+s*(pa3+s*(pa4+s*(pa5+s*pa6)))));
184:         if (ix < 0x41e00000) {         /* |x|<28 */
185:             x = fabsf(x);
186:             s = one/(x*x);