\frac{2}{e^{x} + e^{-x}}\sqrt{\frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}} \cdot \left(\sqrt{\frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}} \cdot \frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}\right)double f(double x) {
double r1293070 = 2.0;
double r1293071 = x;
double r1293072 = exp(r1293071);
double r1293073 = -r1293071;
double r1293074 = exp(r1293073);
double r1293075 = r1293072 + r1293074;
double r1293076 = r1293070 / r1293075;
return r1293076;
}
double f(double x) {
double r1293077 = 2.0;
double r1293078 = sqrt(r1293077);
double r1293079 = x;
double r1293080 = exp(r1293079);
double r1293081 = -r1293079;
double r1293082 = exp(r1293081);
double r1293083 = r1293080 + r1293082;
double r1293084 = sqrt(r1293083);
double r1293085 = r1293078 / r1293084;
double r1293086 = sqrt(r1293085);
double r1293087 = r1293086 * r1293085;
double r1293088 = r1293086 * r1293087;
return r1293088;
}



Bits error versus x
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.8
Applied add-sqr-sqrt0.0
Applied times-frac0.0
rmApplied add-sqr-sqrt0.0
Applied associate-*r*0.0
Final simplification0.0
herbie shell --seed 2019151 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
(/ 2 (+ (exp x) (exp (- x)))))