\frac{x}{1 + \sqrt{x + 1}}\begin{array}{l}
\mathbf{if}\;x \le 28329089.9676262401044368743896484375:\\
\;\;\;\;\frac{x}{{1}^{3} + {\left(\sqrt{x + 1}\right)}^{3}} \cdot \left(1 \cdot 1 + \left(\sqrt{x + 1} \cdot \sqrt{x + 1} - 1 \cdot \sqrt{x + 1}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\sqrt{x} \cdot \frac{\sqrt{x}}{1 + \sqrt{x + 1}}\\
\end{array}double f(double x) {
double r162413 = x;
double r162414 = 1.0;
double r162415 = r162413 + r162414;
double r162416 = sqrt(r162415);
double r162417 = r162414 + r162416;
double r162418 = r162413 / r162417;
return r162418;
}
double f(double x) {
double r162419 = x;
double r162420 = 28329089.96762624;
bool r162421 = r162419 <= r162420;
double r162422 = 1.0;
double r162423 = 3.0;
double r162424 = pow(r162422, r162423);
double r162425 = r162419 + r162422;
double r162426 = sqrt(r162425);
double r162427 = pow(r162426, r162423);
double r162428 = r162424 + r162427;
double r162429 = r162419 / r162428;
double r162430 = r162422 * r162422;
double r162431 = r162426 * r162426;
double r162432 = r162422 * r162426;
double r162433 = r162431 - r162432;
double r162434 = r162430 + r162433;
double r162435 = r162429 * r162434;
double r162436 = sqrt(r162419);
double r162437 = r162422 + r162426;
double r162438 = r162436 / r162437;
double r162439 = r162436 * r162438;
double r162440 = r162421 ? r162435 : r162439;
return r162440;
}



Bits error versus x
Results
if x < 28329089.96762624Initial program 0.0
rmApplied flip3-+0.0
Applied associate-/r/0.0
if 28329089.96762624 < x Initial program 0.5
rmApplied *-un-lft-identity0.5
Applied add-sqr-sqrt0.1
Applied times-frac0.0
Simplified0.0
Final simplification0.0
herbie shell --seed 2019350 +o rules:numerics
(FPCore (x)
:name "Numeric.Log:$clog1p from log-domain-0.10.2.1, B"
:precision binary64
(/ x (+ 1 (sqrt (+ x 1)))))