gonzui

t2ex

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

60: 
61: static double pone(double), qone(double);
62: 
106:                 else {
107:                     u = pone(y); v = qone(y);
108:                     z = invsqrtpi*(u*cc-v*ss)/sqrt(y);
172:                 else {
173:                     u = pone(x); v = qone(x);
174:                     z = invsqrtpi*(u*ss+v*cc)/sqrt(x);