gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/e_j0.c - 15.1KB - 379 lines

185:         if(ix<=0x3e400000) {   /* x < 2**-27 */
186:             return(u00 + tpi*log(x));
187:         }
190:         v = one+z*(v01+z*(v02+z*(v03+z*v04)));
191:         return(u/v + tpi*(j0(x)*log(x)));
192: }