Lines Matching refs:z
95 double z, s,c,ss,cc,r,u,v; local
108 z = -ieee_cos(x+x);
109 if ((s*c)<zero) cc = z/ss;
110 else ss = z/cc;
116 if(ix>0x48000000) z = (invsqrtpi*cc)/ieee_sqrt(x);
119 z = invsqrtpi*(u*cc-v*ss)/ieee_sqrt(x);
121 return z;
129 z = x*x;
130 r = z*(R02+z*(R03+z*(R04+z*R05)));
131 s = one+z*(S01+z*(S02+z*(S03+z*S04)));
133 return one + z*(-0.25+(r/s));
136 return((one+u)*(one-u)+z*(r/s));
164 double z, s,c,ss,cc,u,v; local
195 z = -ieee_cos(x+x);
196 if ((s*c)<zero) cc = z/ss;
197 else ss = z/cc;
199 if(ix>0x48000000) z = (invsqrtpi*ss)/ieee_sqrt(x);
202 z = invsqrtpi*(u*ss+v*cc)/ieee_sqrt(x);
204 return z;
209 z = x*x;
210 u = u00+z*(u01+z*(u02+z*(u03+z*(u04+z*(u05+z*u06)))));
211 v = one+z*(v01+z*(v02+z*(v03+z*v04)));
332 double z,r,s; local
339 z = one/(x*x);
340 r = p[0]+z*(p[1]+z*(p[2]+z*(p[3]+z*(p[4]+z*p[5]))));
341 s = one+z*(q[0]+z*(q[1]+z*(q[2]+z*(q[3]+z*q[4]))));
467 double s,r,z; local
474 z = one/(x*x);
475 r = p[0]+z*(p[1]+z*(p[2]+z*(p[3]+z*(p[4]+z*p[5]))));
476 s = one+z*(q[0]+z*(q[1]+z*(q[2]+z*(q[3]+z*(q[4]+z*q[5])))));