\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}}\begin{array}{l}
\mathbf{if}\;\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}} \leq -6.168003490853 \cdot 10^{-312}:\\
\;\;\;\;\frac{x + \frac{y \cdot \left(z \cdot \frac{1}{\sqrt[3]{t} \cdot \sqrt[3]{t}}\right)}{\sqrt[3]{t}}}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
\mathbf{elif}\;\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}} \leq 0 \lor \neg \left(\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}} \leq \infty\right):\\
\;\;\;\;\frac{z}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x + \frac{\frac{\sqrt[3]{y} \cdot \sqrt[3]{y}}{\sqrt[3]{t}} \cdot \left(z \cdot \frac{\sqrt[3]{y}}{\sqrt[3]{t}}\right)}{\sqrt[3]{t}}}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
\end{array}(FPCore (x y z t a b) :precision binary64 (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))))
(FPCore (x y z t a b)
:precision binary64
(if (<=
(/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t)))
-6.168003490853e-312)
(/
(+ x (/ (* y (* z (/ 1.0 (* (cbrt t) (cbrt t))))) (cbrt t)))
(+ (+ a 1.0) (/ (* y b) t)))
(if (or (<= (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))) 0.0)
(not
(<= (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))) INFINITY)))
(/ z b)
(/
(+
x
(/
(* (/ (* (cbrt y) (cbrt y)) (cbrt t)) (* z (/ (cbrt y) (cbrt t))))
(cbrt t)))
(+ (+ a 1.0) (/ (* y b) t))))))double code(double x, double y, double z, double t, double a, double b) {
return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
}
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (((x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t))) <= -6.168003490853e-312) {
tmp = (x + ((y * (z * (1.0 / (cbrt(t) * cbrt(t))))) / cbrt(t))) / ((a + 1.0) + ((y * b) / t));
} else if ((((x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t))) <= 0.0) || !(((x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t))) <= ((double) INFINITY))) {
tmp = z / b;
} else {
tmp = (x + ((((cbrt(y) * cbrt(y)) / cbrt(t)) * (z * (cbrt(y) / cbrt(t)))) / cbrt(t))) / ((a + 1.0) + ((y * b) / t));
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a




Bits error versus b
Results
| Original | 16.4 |
|---|---|
| Target | 13.8 |
| Herbie | 9.6 |
if (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a 1) (/.f64 (*.f64 y b) t))) < -6.168003490853e-312Initial program 7.3
rmApplied add-cube-cbrt_binary647.6
Applied associate-/r*_binary647.6
Simplified6.3
rmApplied div-inv_binary646.3
Applied associate-*l*_binary647.5
if -6.168003490853e-312 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a 1) (/.f64 (*.f64 y b) t))) < 0.0 or +inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a 1) (/.f64 (*.f64 y b) t))) Initial program 42.3
Taylor expanded around inf 18.7
if 0.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a 1) (/.f64 (*.f64 y b) t))) < +inf.0Initial program 7.1
rmApplied add-cube-cbrt_binary647.4
Applied associate-/r*_binary647.4
Simplified6.2
rmApplied add-cube-cbrt_binary646.3
Applied times-frac_binary646.3
Applied associate-*l*_binary645.3
Final simplification9.6
herbie shell --seed 2021176
(FPCore (x y z t a b)
:name "Diagrams.Solve.Tridiagonal:solveCyclicTriDiagonal from diagrams-solve-0.1, B"
:precision binary64
:herbie-target
(if (< t -1.3659085366310088e-271) (* 1.0 (* (+ x (* (/ y t) z)) (/ 1.0 (+ (+ a 1.0) (* (/ y t) b))))) (if (< t 3.036967103737246e-130) (/ z b) (* 1.0 (* (+ x (* (/ y t) z)) (/ 1.0 (+ (+ a 1.0) (* (/ y t) b)))))))
(/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))))