(FPCore (x y) :precision binary64 (sqrt (+ (* x x) y)))
(FPCore (x y) :precision binary64 (if (<= x -1.2000405627480975e+154) (- x) (if (<= x 1.5782233992745074e+29) (sqrt (fma x x y)) x)))
double code(double x, double y) {
return sqrt(((x * x) + y));
}
double code(double x, double y) {
double tmp;
if (x <= -1.2000405627480975e+154) {
tmp = -x;
} else if (x <= 1.5782233992745074e+29) {
tmp = sqrt(fma(x, x, y));
} else {
tmp = x;
}
return tmp;
}
function code(x, y) return sqrt(Float64(Float64(x * x) + y)) end
function code(x, y) tmp = 0.0 if (x <= -1.2000405627480975e+154) tmp = Float64(-x); elseif (x <= 1.5782233992745074e+29) tmp = sqrt(fma(x, x, y)); else tmp = x; end return tmp end
code[x_, y_] := N[Sqrt[N[(N[(x * x), $MachinePrecision] + y), $MachinePrecision]], $MachinePrecision]
code[x_, y_] := If[LessEqual[x, -1.2000405627480975e+154], (-x), If[LessEqual[x, 1.5782233992745074e+29], N[Sqrt[N[(x * x + y), $MachinePrecision]], $MachinePrecision], x]]
\sqrt{x \cdot x + y}
\begin{array}{l}
\mathbf{if}\;x \leq -1.2000405627480975 \cdot 10^{+154}:\\
\;\;\;\;-x\\
\mathbf{elif}\;x \leq 1.5782233992745074 \cdot 10^{+29}:\\
\;\;\;\;\sqrt{\mathsf{fma}\left(x, x, y\right)}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}




Bits error versus x




Bits error versus y
| Original | 21.3 |
|---|---|
| Target | 0.5 |
| Herbie | 0.9 |
if x < -1.2000405627480975e154Initial program 64.0
Simplified64.0
Taylor expanded in x around -inf 0
Simplified0
if -1.2000405627480975e154 < x < 1.57822339927450736e29Initial program 0.0
Simplified0.0
if 1.57822339927450736e29 < x Initial program 38.4
Simplified38.4
Taylor expanded in x around inf 3.1
Final simplification0.9
herbie shell --seed 2022150
(FPCore (x y)
:name "Linear.Quaternion:$clog from linear-1.19.1.3"
:precision binary64
:herbie-target
(if (< x -1.5097698010472593e+153) (- (+ (* 0.5 (/ y x)) x)) (if (< x 5.582399551122541e+57) (sqrt (+ (* x x) y)) (+ (* 0.5 (/ y x)) x)))
(sqrt (+ (* x x) y)))