Lines Matching refs:s
88 double z, s,c,ss,cc,r,u,v; in j0() local
96 sincos(x, &s, &c); in j0()
97 ss = s-c; in j0()
98 cc = s+c; in j0()
101 if ((s*c)<zero) cc = z/ss; in j0()
123 s = one+z*(S01+z*(S02+z*(S03+z*S04))); in j0()
125 return one + z*((r/s)-qrtr); in j0()
128 return((one+u)*(one-u)+z*(r/s)); in j0()
148 double z, s,c,ss,cc,u,v; in y0() local
175 sincos(x, &s, &c); in y0()
176 ss = s-c; in y0()
177 cc = s+c; in y0()
184 if ((s*c)<zero) cc = z/ss; in y0()
280 double z,r,s; in pzero() local
290 s = one+z*(q[0]+z*(q[1]+z*(q[2]+z*(q[3]+z*q[4])))); in pzero()
291 return one+ r/s; in pzero()
377 double s,r,z; in qzero() local
387 s = one+z*(q[0]+z*(q[1]+z*(q[2]+z*(q[3]+z*(q[4]+z*q[5]))))); in qzero()
388 return (r/s-eighth)/x; in qzero()