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



Bits error versus x
Results
if x < 3.347729345470958e-310Initial program 30.5
Simplified30.4
Taylor expanded around -inf 0.4
Simplified0.4
rmApplied add-cube-cbrt_binary640.4
Applied associate-*r*_binary640.4
if 3.347729345470958e-310 < x Initial program 30.1
Simplified30.1
Taylor expanded around 0 0.4
Final simplification0.4
herbie shell --seed 2021118
(FPCore (x)
:name "sqrt A"
:precision binary64
(sqrt (+ (* x x) (* x x))))