\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 r1200440 = 2.0;
double r1200441 = x;
double r1200442 = exp(r1200441);
double r1200443 = -r1200441;
double r1200444 = exp(r1200443);
double r1200445 = r1200442 + r1200444;
double r1200446 = r1200440 / r1200445;
return r1200446;
}
double f(double x) {
double r1200447 = 2.0;
double r1200448 = sqrt(r1200447);
double r1200449 = x;
double r1200450 = exp(r1200449);
double r1200451 = -r1200449;
double r1200452 = exp(r1200451);
double r1200453 = r1200450 + r1200452;
double r1200454 = sqrt(r1200453);
double r1200455 = r1200448 / r1200454;
double r1200456 = sqrt(r1200455);
double r1200457 = r1200456 * r1200455;
double r1200458 = r1200456 * r1200457;
return r1200458;
}



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
(FPCore (x)
:name "Hyperbolic secant"
(/ 2 (+ (exp x) (exp (- x)))))