50 one = 1.00000000000000000000e+00,
51 pio4 = 7.85398163397448278999e-01,
54 3.33333333333334091986e-01,
55 1.33333333333201242699e-01,
56 5.39682539762260521377e-02,
57 2.18694882948595424599e-02,
58 8.86323982359930005737e-03,
59 3.59207910759131235356e-03,
60 1.45620945432529025516e-03,
61 5.88041240820264096874e-04,
62 2.46463134818469906812e-04,
63 7.81794442939557092300e-05,
64 7.14072491382608190305e-05,
65 -1.85586374855275456654e-05,
66 2.59073051863633712884e-05,
79 if(((ix|low)|(iy+1))==0)
return one/
fabs(
x);
80 else return (iy==1)?
x: -
one/
x;
84 if(hx<0) {
x = -
x;
y = -
y;}
103 return (
double)(1-((hx>>30)&2))*(
v-2.0*(
x-(
w*
w/(
w+
v)-
r)));