Lines Matching refs:PI
59 x=drem(x,PI2); /* reduce x into [-PI,PI] */
62 if(a >= PI3o4) /* ... in [3PI/4,PI] */
63 x = copysign((a = PI-a),x);
64 else { /* ... in [PI/4,3PI/4] */
65 a = PIo2-a; /* rtn. sign(x)*C(PI/2-|x|) */
96 x=drem(x,PI2); /* reduce x into [-PI,PI] */
99 if (a >= PI3o4) { /* ... in [3PI/4,PI] */
100 a = PI-a;
103 else { /* ... in [PI/4,3PI/4] */
105 return a+a*sin__S(a*a); /* rtn. S(PI/2-|x|) */