\frac{2}{e^{x} + e^{-x}}\frac{-2}{\frac{-1}{e^{x}} - e^{x}}double f(double x) {
double r2600346 = 2.0;
double r2600347 = x;
double r2600348 = exp(r2600347);
double r2600349 = -r2600347;
double r2600350 = exp(r2600349);
double r2600351 = r2600348 + r2600350;
double r2600352 = r2600346 / r2600351;
return r2600352;
}
double f(double x) {
double r2600353 = 2.0;
double r2600354 = -r2600353;
double r2600355 = -1.0;
double r2600356 = x;
double r2600357 = exp(r2600356);
double r2600358 = r2600355 / r2600357;
double r2600359 = r2600358 - r2600357;
double r2600360 = r2600354 / r2600359;
return r2600360;
}



Bits error versus x
Results
Initial program 0.0
rmApplied frac-2neg0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019200 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
(/ 2.0 (+ (exp x) (exp (- x)))))