\frac{x}{1 + \sqrt{x + 1}}\begin{array}{l}
\mathbf{if}\;x \le 8.62654869172318706 \cdot 10^{-11}:\\
\;\;\;\;\frac{x}{1 + \sqrt[3]{{\left(\sqrt{x + 1}\right)}^{3}}}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{x} \cdot \frac{\sqrt{x}}{\sqrt{x + 1} + 1}\\
\end{array}double f(double x) {
double r117646 = x;
double r117647 = 1.0;
double r117648 = r117646 + r117647;
double r117649 = sqrt(r117648);
double r117650 = r117647 + r117649;
double r117651 = r117646 / r117650;
return r117651;
}
double f(double x) {
double r117652 = x;
double r117653 = 8.626548691723187e-11;
bool r117654 = r117652 <= r117653;
double r117655 = 1.0;
double r117656 = r117652 + r117655;
double r117657 = sqrt(r117656);
double r117658 = 3.0;
double r117659 = pow(r117657, r117658);
double r117660 = cbrt(r117659);
double r117661 = r117655 + r117660;
double r117662 = r117652 / r117661;
double r117663 = sqrt(r117652);
double r117664 = r117657 + r117655;
double r117665 = r117663 / r117664;
double r117666 = r117663 * r117665;
double r117667 = r117654 ? r117662 : r117666;
return r117667;
}



Bits error versus x
Results
if x < 8.626548691723187e-11Initial program 0.0
rmApplied add-cbrt-cube0.0
Simplified0.0
if 8.626548691723187e-11 < x Initial program 0.5
rmApplied add-cbrt-cube20.9
Simplified20.9
rmApplied *-un-lft-identity20.9
Applied add-sqr-sqrt20.8
Applied times-frac20.8
Simplified20.8
Simplified0.1
Final simplification0.0
herbie shell --seed 2020060
(FPCore (x)
:name "Numeric.Log:$clog1p from log-domain-0.10.2.1, B"
:precision binary64
(/ x (+ 1 (sqrt (+ x 1)))))