\frac{\left(x \cdot y\right) \cdot z}{\sqrt{z \cdot z - t \cdot a}}\begin{array}{l}
\mathbf{if}\;z \leq -1.9767596707461871 \cdot 10^{+99}:\\
\;\;\;\;-x \cdot y\\
\mathbf{elif}\;z \leq 1.3605314306565522 \cdot 10^{+89}:\\
\;\;\;\;\frac{x \cdot y}{\sqrt{\sqrt{z \cdot z - t \cdot a}}} \cdot \frac{z}{\sqrt{\sqrt{z \cdot z - t \cdot a}}}\\
\mathbf{else}:\\
\;\;\;\;x \cdot y\\
\end{array}(FPCore (x y z t a) :precision binary64 (/ (* (* x y) z) (sqrt (- (* z z) (* t a)))))
(FPCore (x y z t a)
:precision binary64
(if (<= z -1.9767596707461871e+99)
(- (* x y))
(if (<= z 1.3605314306565522e+89)
(*
(/ (* x y) (sqrt (sqrt (- (* z z) (* t a)))))
(/ z (sqrt (sqrt (- (* z z) (* t a))))))
(* x y))))double code(double x, double y, double z, double t, double a) {
return ((x * y) * z) / sqrt((z * z) - (t * a));
}
double code(double x, double y, double z, double t, double a) {
double tmp;
if (z <= -1.9767596707461871e+99) {
tmp = -(x * y);
} else if (z <= 1.3605314306565522e+89) {
tmp = ((x * y) / sqrt(sqrt((z * z) - (t * a)))) * (z / sqrt(sqrt((z * z) - (t * a))));
} else {
tmp = x * y;
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 24.4 |
|---|---|
| Target | 7.6 |
| Herbie | 6.4 |
if z < -1.9767596707461871e99Initial program 44.5
Taylor expanded around -inf 2.0
Simplified2.0
if -1.9767596707461871e99 < z < 1.3605314306565522e89Initial program 10.4
rmApplied add-sqr-sqrt_binary6410.4
Applied sqrt-prod_binary6410.6
Applied times-frac_binary649.6
if 1.3605314306565522e89 < z Initial program 41.9
Taylor expanded around inf 2.5
Final simplification6.4
herbie shell --seed 2020224
(FPCore (x y z t a)
:name "Statistics.Math.RootFinding:ridders from math-functions-0.1.5.2"
:precision binary64
:herbie-target
(if (< z -3.1921305903852764e+46) (- (* y x)) (if (< z 5.976268120920894e+90) (/ (* x z) (/ (sqrt (- (* z z) (* a t))) y)) (* y x)))
(/ (* (* x y) z) (sqrt (- (* z z) (* t a)))))