\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 r168077 = x;
double r168078 = 1.0;
double r168079 = r168077 + r168078;
double r168080 = sqrt(r168079);
double r168081 = r168078 + r168080;
double r168082 = r168077 / r168081;
return r168082;
}
double f(double x) {
double r168083 = x;
double r168084 = 8.626548691723187e-11;
bool r168085 = r168083 <= r168084;
double r168086 = 1.0;
double r168087 = r168083 + r168086;
double r168088 = sqrt(r168087);
double r168089 = 3.0;
double r168090 = pow(r168088, r168089);
double r168091 = cbrt(r168090);
double r168092 = r168086 + r168091;
double r168093 = r168083 / r168092;
double r168094 = sqrt(r168083);
double r168095 = r168088 + r168086;
double r168096 = r168094 / r168095;
double r168097 = r168094 * r168096;
double r168098 = r168085 ? r168093 : r168097;
return r168098;
}



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)))))