\frac{2}{e^{x} + e^{-x}}\frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}} \cdot \left(\sqrt{\frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}} \cdot \sqrt{\frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}}\right)double f(double x) {
double r2322349 = 2.0;
double r2322350 = x;
double r2322351 = exp(r2322350);
double r2322352 = -r2322350;
double r2322353 = exp(r2322352);
double r2322354 = r2322351 + r2322353;
double r2322355 = r2322349 / r2322354;
return r2322355;
}
double f(double x) {
double r2322356 = 2.0;
double r2322357 = sqrt(r2322356);
double r2322358 = x;
double r2322359 = exp(r2322358);
double r2322360 = -r2322358;
double r2322361 = exp(r2322360);
double r2322362 = r2322359 + r2322361;
double r2322363 = sqrt(r2322362);
double r2322364 = r2322357 / r2322363;
double r2322365 = sqrt(r2322364);
double r2322366 = r2322365 * r2322365;
double r2322367 = r2322364 * r2322366;
return r2322367;
}



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
Final simplification0.0
herbie shell --seed 2019151
(FPCore (x)
:name "Hyperbolic secant"
(/ 2 (+ (exp x) (exp (- x)))))