gonzui

t2ex

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) */
98:                 a = j0(x);
99:                 b = j1(x);
100:                 for(i=1;i<n;i++){