\sqrt{x \cdot x + x \cdot x}\begin{array}{l}
\mathbf{if}\;x \leq -3.89140349991603 \cdot 10^{-310}:\\
\;\;\;\;-\sqrt{\sqrt{2}} \cdot \left(x \cdot \sqrt{\sqrt{2}}\right)\\
\mathbf{else}:\\
\;\;\;\;\sqrt{x} \cdot \sqrt{x + x}\\
\end{array}(FPCore (x) :precision binary64 (sqrt (+ (* x x) (* x x))))
(FPCore (x) :precision binary64 (if (<= x -3.89140349991603e-310) (- (* (sqrt (sqrt 2.0)) (* x (sqrt (sqrt 2.0))))) (* (sqrt x) (sqrt (+ x x)))))
double code(double x) {
return sqrt((x * x) + (x * x));
}
double code(double x) {
double tmp;
if (x <= -3.89140349991603e-310) {
tmp = -(sqrt(sqrt(2.0)) * (x * sqrt(sqrt(2.0))));
} else {
tmp = sqrt(x) * sqrt(x + x);
}
return tmp;
}



Bits error versus x
Results
if x < -3.89140349991603e-310Initial program 31.2
Simplified31.2
Taylor expanded around -inf 0.4
Simplified0.4
rmApplied add-sqr-sqrt_binary64_1000.6
Applied associate-*r*_binary64_180.4
if -3.89140349991603e-310 < x Initial program 30.1
Simplified30.1
rmApplied sqrt-prod_binary64_940.3
Final simplification0.4
herbie shell --seed 2021044
(FPCore (x)
:name "sqrt A"
:precision binary64
(sqrt (+ (* x x) (* x x))))