\frac{x \cdot y - \left(z \cdot 9\right) \cdot t}{a \cdot 2}\begin{array}{l}
\mathbf{if}\;x \cdot y - \left(z \cdot 9\right) \cdot t \leq -\infty \lor \neg \left(x \cdot y - \left(z \cdot 9\right) \cdot t \leq 5.171138758538117 \cdot 10^{+299}\right):\\
\;\;\;\;\left(z \cdot \frac{t}{a}\right) \cdot -4.5\\
\mathbf{else}:\\
\;\;\;\;0.5 \cdot \frac{x \cdot y - 9 \cdot \left(z \cdot t\right)}{a}\\
\end{array}(FPCore (x y z t a) :precision binary64 (/ (- (* x y) (* (* z 9.0) t)) (* a 2.0)))
(FPCore (x y z t a)
:precision binary64
(if (or (<= (- (* x y) (* (* z 9.0) t)) (- INFINITY))
(not (<= (- (* x y) (* (* z 9.0) t)) 5.171138758538117e+299)))
(* (* z (/ t a)) -4.5)
(* 0.5 (/ (- (* x y) (* 9.0 (* z t))) a))))double code(double x, double y, double z, double t, double a) {
return ((x * y) - ((z * 9.0) * t)) / (a * 2.0);
}
double code(double x, double y, double z, double t, double a) {
double tmp;
if ((((x * y) - ((z * 9.0) * t)) <= -((double) INFINITY)) || !(((x * y) - ((z * 9.0) * t)) <= 5.171138758538117e+299)) {
tmp = (z * (t / a)) * -4.5;
} else {
tmp = 0.5 * (((x * y) - (9.0 * (z * t))) / a);
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 7.6 |
|---|---|
| Target | 5.7 |
| Herbie | 4.4 |
if (-.f64 (*.f64 x y) (*.f64 (*.f64 z 9) t)) < -inf.0 or 5.1711387585381172e299 < (-.f64 (*.f64 x y) (*.f64 (*.f64 z 9) t)) Initial program 61.7
rmApplied *-un-lft-identity_binary64_1951561.7
Applied times-frac_binary64_1952161.7
Simplified61.2
rmApplied add-sqr-sqrt_binary64_1953761.3
Applied *-un-lft-identity_binary64_1951561.3
Applied times-frac_binary64_1952161.2
Simplified61.2
Taylor expanded around 0 61.7
Simplified32.3
if -inf.0 < (-.f64 (*.f64 x y) (*.f64 (*.f64 z 9) t)) < 5.1711387585381172e299Initial program 0.9
Taylor expanded around 0 1.0
Final simplification4.4
herbie shell --seed 2021023
(FPCore (x y z t a)
:name "Diagrams.Solve.Polynomial:cubForm from diagrams-solve-0.1, I"
:precision binary64
:herbie-target
(if (< a -2.090464557976709e+86) (- (* 0.5 (/ (* y x) a)) (* 4.5 (/ t (/ a z)))) (if (< a 2.144030707833976e+99) (/ (- (* x y) (* z (* 9.0 t))) (* a 2.0)) (- (* (/ y a) (* x 0.5)) (* (/ t a) (* z 4.5)))))
(/ (- (* x y) (* (* z 9.0) t)) (* a 2.0)))