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



Bits error versus x
Results
if x < -1.758354879270385e-310Initial program 30.9
Taylor expanded in x around -inf 0.4
Simplified0.4
if -1.758354879270385e-310 < x Initial program 31.3
Taylor expanded in x around 0 0.4
Applied add-sqr-sqrt_binary640.5
Applied associate-*l*_binary640.4
Applied add-sqr-sqrt_binary640.4
Applied associate-*l*_binary640.4
Final simplification0.4
herbie shell --seed 2022081
(FPCore (x)
:name "sqrt B"
:precision binary64
(sqrt (* (* 2.0 x) x)))