gonzui

t2ex

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

142:         SET_FLOAT_WORD(z,ix&0xfffff000);
143:         r  =  expf(-z*z-(float)0.5625)*expf((z-x)*(z+x)+R/S);
144:         if(hx>=0) return one-r/x; else return  r/x-one;
200:             SET_FLOAT_WORD(z,ix&0xfffff000);
201:             r  =  expf(-z*z-(float)0.5625) * expf((z-x)*(z+x)+R/S);
202:             if(hx>0) return r/x; else return two-r/x;