\frac{2}{e^{x} + e^{-x}}\sqrt{2} \cdot \frac{\frac{\sqrt{2}}{\sqrt{e^{x} + e^{-x}}}}{\sqrt{e^{x} + e^{-x}}}double f(double x) {
double r75855 = 2.0;
double r75856 = x;
double r75857 = exp(r75856);
double r75858 = -r75856;
double r75859 = exp(r75858);
double r75860 = r75857 + r75859;
double r75861 = r75855 / r75860;
return r75861;
}
double f(double x) {
double r75862 = 2.0;
double r75863 = sqrt(r75862);
double r75864 = x;
double r75865 = exp(r75864);
double r75866 = -r75864;
double r75867 = exp(r75866);
double r75868 = r75865 + r75867;
double r75869 = sqrt(r75868);
double r75870 = r75863 / r75869;
double r75871 = r75870 / r75869;
double r75872 = r75863 * r75871;
return r75872;
}



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