\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}}\begin{array}{l}
\mathbf{if}\;z \le -1.926561828986015 \cdot 10^{-140} \lor \neg \left(z \le 2.9030980178479713 \cdot 10^{-20}\right):\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{y}{t}, z, x\right)}{\mathsf{fma}\left(\frac{y}{t}, b, a + 1\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{x + y \cdot \frac{z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
\end{array}double code(double x, double y, double z, double t, double a, double b) {
return ((double) (((double) (x + ((double) (((double) (y * z)) / t)))) / ((double) (((double) (a + 1.0)) + ((double) (((double) (y * b)) / t))))));
}
double code(double x, double y, double z, double t, double a, double b) {
double VAR;
if (((z <= -1.9265618289860146e-140) || !(z <= 2.903098017847971e-20))) {
VAR = ((double) (((double) fma(((double) (y / t)), z, x)) / ((double) fma(((double) (y / t)), b, ((double) (a + 1.0))))));
} else {
VAR = ((double) (((double) (x + ((double) (y * ((double) (z / t)))))) / ((double) (((double) (a + 1.0)) + ((double) (((double) (y * b)) / t))))));
}
return VAR;
}




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.1 |
|---|---|
| Target | 13.0 |
| Herbie | 13.4 |
if z < -1.9265618289860146e-140 or 2.903098017847971e-20 < z Initial program 20.6
rmApplied div-inv20.7
Simplified19.7
rmApplied associate-*r/19.6
Simplified16.2
if -1.9265618289860146e-140 < z < 2.903098017847971e-20Initial program 8.8
rmApplied *-un-lft-identity8.8
Applied times-frac8.7
Simplified8.7
Final simplification13.4
herbie shell --seed 2020120 +o rules:numerics
(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 (* (+ x (* (/ y t) z)) (/ 1 (+ (+ a 1) (* (/ y t) b))))) (if (< t 3.036967103737246e-130) (/ z b) (* 1 (* (+ x (* (/ y t) z)) (/ 1 (+ (+ a 1) (* (/ y t) b)))))))
(/ (+ x (/ (* y z) t)) (+ (+ a 1) (/ (* y b) t))))