gonzui

t2ex

bsd_source/lib/libc/src_bsd/math/e_j1.c - 14.7KB - 374 lines

183:         v = one+z*(V0[0]+z*(V0[1]+z*(V0[2]+z*(V0[3]+z*V0[4]))));
184:         return(x*(u/v) + tpi*(j1(x)*log(x)-one/x));
185: }

bsd_source/lib/libc/src_bsd/math/e_jn.c - 9.3KB - 261 lines

68:         if(n==0) return(j0(x));
69:         if(n==1) return(j1(x));
70:         sgn = (n&1)&(hx>>31);  /* even n -- 0, odd n -- sign(x) */

More results from e_jn.c