gonzui

t2ex

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

104:          */
105:                 if(ix>0x48000000) z = (invsqrtpi*cc)/sqrt(y);
106:                 else {
107:                     u = pone(y); v = qone(y);
108:                     z = invsqrtpi*(u*cc-v*ss)/sqrt(y);
109:                 }
170:          */
171:                 if(ix>0x48000000) z = (invsqrtpi*ss)/sqrt(x);
172:                 else {
173:                     u = pone(x); v = qone(x);
174:                     z = invsqrtpi*(u*ss+v*cc)/sqrt(x);
175:                 }