\frac{2}{e^{x} + e^{-x}}\frac{\sqrt{1}}{\sqrt{\sqrt{e^{x} + e^{-x}}}} \cdot \frac{\frac{2}{\sqrt{e^{x} + e^{-x}}}}{\sqrt{\sqrt{e^{x} + e^{-x}}}}double f(double x) {
double r75432 = 2.0;
double r75433 = x;
double r75434 = exp(r75433);
double r75435 = -r75433;
double r75436 = exp(r75435);
double r75437 = r75434 + r75436;
double r75438 = r75432 / r75437;
return r75438;
}
double f(double x) {
double r75439 = 1.0;
double r75440 = sqrt(r75439);
double r75441 = x;
double r75442 = exp(r75441);
double r75443 = -r75441;
double r75444 = exp(r75443);
double r75445 = r75442 + r75444;
double r75446 = sqrt(r75445);
double r75447 = sqrt(r75446);
double r75448 = r75440 / r75447;
double r75449 = 2.0;
double r75450 = r75449 / r75446;
double r75451 = r75450 / r75447;
double r75452 = r75448 * r75451;
return r75452;
}



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 sqrt-prod0.5
Applied *-un-lft-identity0.5
Applied sqrt-prod0.5
Applied times-frac0.5
Applied associate-*l*0.5
Simplified0.0
Final simplification0.0
herbie shell --seed 2020036 +o rules:numerics
(FPCore (x)
:name "Hyperbolic secant"
:precision binary64
(/ 2 (+ (exp x) (exp (- x)))))