\sqrt{\frac{e^{2 \cdot x} - 1}{e^{x} - 1}}\begin{array}{l}
\mathbf{if}\;x \le -1.82753052962640882 \cdot 10^{-4}:\\
\;\;\;\;\sqrt{\frac{e^{2 \cdot x} - 1}{\log \left(e^{e^{x} - 1}\right)}}\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \log \left(e^{\frac{x}{\sqrt{2}}}\right) + \left(\sqrt{2} + \frac{{x}^{2}}{\sqrt{2}} \cdot \left(0.25 - \frac{0.125}{2}\right)\right)\\
\end{array}double code(double x) {
return ((double) sqrt(((double) (((double) (((double) exp(((double) (2.0 * x)))) - 1.0)) / ((double) (((double) exp(x)) - 1.0))))));
}
double code(double x) {
double VAR;
if ((x <= -0.00018275305296264088)) {
VAR = ((double) sqrt(((double) (((double) (((double) exp(((double) (2.0 * x)))) - 1.0)) / ((double) log(((double) exp(((double) (((double) exp(x)) - 1.0))))))))));
} else {
VAR = ((double) (((double) (0.5 * ((double) log(((double) exp(((double) (x / ((double) sqrt(2.0)))))))))) + ((double) (((double) sqrt(2.0)) + ((double) (((double) (((double) pow(x, 2.0)) / ((double) sqrt(2.0)))) * ((double) (0.25 - ((double) (0.125 / 2.0))))))))));
}
return VAR;
}



Bits error versus x
Results
if x < -1.82753052962640882e-4Initial program 0.0
rmApplied add-log-exp0.0
Applied add-log-exp0.0
Applied diff-log0.1
Simplified0.0
if -1.82753052962640882e-4 < x Initial program 61.8
Taylor expanded around 0 0.5
Simplified0.5
rmApplied add-log-exp0.5
Final simplification0.4
herbie shell --seed 2020162
(FPCore (x)
:name "sqrtexp (problem 3.4.4)"
:precision binary64
(sqrt (/ (- (exp (* 2.0 x)) 1.0) (- (exp x) 1.0))))