gonzui

t2ex

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

237:         SET_LOW_WORD(z,0);
238:         r  =  exp(-z*z-0.5625)*exp((z-x)*(z+x)+R/S);
239:         if(hx>=0) return one-r/x; else return  r/x-one;
295:             SET_LOW_WORD(z,0);
296:             r  =  exp(-z*z-0.5625) * exp((z-x)*(z+x)+R/S);
297:             if(hx>0) return r/x; else return two-r/x;