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



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