\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}}\begin{array}{l}
\mathbf{if}\;t \le -1.00397765614638536 \cdot 10^{-115} \lor \neg \left(t \le 5.98781596418346569 \cdot 10^{-63}\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 + \frac{y \cdot z}{t}}{\left(a + 1\right) + \left(\sqrt[3]{\frac{y \cdot b}{t}} \cdot \sqrt[3]{\frac{y \cdot b}{t}}\right) \cdot \sqrt[3]{\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 (((t <= -1.0039776561463854e-115) || !(t <= 5.987815964183466e-63))) {
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) (((double) (y * z)) / t)))) / ((double) (((double) (a + 1.0)) + ((double) (((double) (((double) cbrt(((double) (((double) (y * b)) / t)))) * ((double) cbrt(((double) (((double) (y * b)) / t)))))) * ((double) cbrt(((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.8 |
|---|---|
| Target | 13.5 |
| Herbie | 13.2 |
if t < -1.0039776561463854e-115 or 5.987815964183466e-63 < t Initial program 12.0
rmApplied div-inv12.1
Simplified9.8
rmApplied associate-*r/9.8
Simplified6.3
if -1.0039776561463854e-115 < t < 5.987815964183466e-63Initial program 25.8
rmApplied add-cube-cbrt26.0
Final simplification13.2
herbie shell --seed 2020123 +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))))