-
-
- PI) {
set(x3, -X3);
set(x, X-PI);
}
if (X>PI/2) {
set(x, PI-X);
}
set(x2, X*X);
X3*X*(1-X2*(RF3-X2*(RF5-X2*(RF7-X2*(RF9-X2*RF11)))));

]]>

-
- PI) {
set(x3, -X3);
set(x, X-PI);
}
if (X>PI/2) {
set(x, PI-X);
}
set(x2, X*X);
X3*X*(1-X2*(RF3-X2*(RF5-X2*(RF7-X2*(RF9-X2*RF11)))));

]]>

-
- PI) {
set(x, X-PI);
}
if (X>PI/2) {
set(x, PI-X);
set(x3, -X3);
}
set(x2, X*X);
X3*X*(1-X2*(RF3-X2*(RF5-X2*(RF7-X2*(RF9-X2*RF11)))))/
(1-X2*(RF2-X2*(RF4-X2*(RF6-X2*(RF8-X2*(RF10-X2*RF12))))));

]]>

-
- =-1.0000001) {
set(x,-PI/2);
}
else {
// return NaN
set(x1, 1);
set(x2, 9999999);
while(X1 <>=0.9999999) {
if (X1 <= 1.0000001) { set(x,PI/2); } else { // return NaN set(x1, 1); set(x2, 9999999); while(X1 <>

-
- =-1.0000001) {
set(x,-PI/2);
}
else {
// return NaN
set(x1, 1);
set(x2, 9999999);
while(X1 <>=0.9999999) {
if (X1<=1.0000001) { set(x,PI/2); } else { // return NaN set(x1, 1); set(x2, 9999999); while(X1 <>

-
- =-1.0000001 && X<=-0.9999999) { set(x,-PI/4); } else if (X>=0.9999999 && X<=1.0000001) { set(x,PI/4); } else { if (X<-1) { set(x,-1/X); set(x4,-1); } else if (X>1) {
set(x,1/X);
set(x4,1);
}
set(x2, X*X);
set(x1, X);
set(x3, 1);
set(x, 0);
while (X3<=50) { set(x, X+X1/X3); set(x1, -X1*X2); set(x3, X3+2); } } X4?(X4*(PI/2-X)):X; ]]>

-
- =-1.0000001 && X<=-0.9999999) { set(x,-PI/4); } else if (X>=0.9999999 && X<=1.0000001) { set(x,PI/4); } else { if (X<-1) { set(x,-1/X); set(x4,-1); } else if (X>1) {
set(x,1/X);
set(x4,1);
}
set(x2, X*X);
set(x1, X);
set(x3, 1);
set(x, 0);
while (X3<=50) { set(x, X+X1/X3); set(x1, -X1*X2); set(x3, X3+2); } } X4?(X4*(PI/2-X)):X; ]]>

-
-

-
-

-
-

-
- 0.00001) {
set(x2,0.5*(X2+X1/X2));
}
set(x4, X2);
}
X4;

]]>

-
-

-
- X2?X1:X2;

]]>

-
-

-
- int(X))?int(X+1):int(X)

]]>

-
-

-
-