\frac{x - y \cdot z}{t - a \cdot z}\begin{array}{l}
\mathbf{if}\;\frac{x - y \cdot z}{t - z \cdot a} \leq -\infty:\\
\;\;\;\;\left(-\frac{x}{z \cdot a}\right) - \frac{z}{\frac{t - z \cdot a}{y}}\\
\mathbf{elif}\;\frac{x - y \cdot z}{t - z \cdot a} \leq 1.1791275098182219 \cdot 10^{+269}:\\
\;\;\;\;\frac{x - y \cdot z}{t - z \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{y}{a} - \frac{x}{z \cdot a}\\
\end{array}(FPCore (x y z t a) :precision binary64 (/ (- x (* y z)) (- t (* a z))))
(FPCore (x y z t a)
:precision binary64
(if (<= (/ (- x (* y z)) (- t (* z a))) (- INFINITY))
(- (- (/ x (* z a))) (/ z (/ (- t (* z a)) y)))
(if (<= (/ (- x (* y z)) (- t (* z a))) 1.1791275098182219e+269)
(/ (- x (* y z)) (- t (* z a)))
(- (/ y a) (/ x (* z a))))))double code(double x, double y, double z, double t, double a) {
return (x - (y * z)) / (t - (a * z));
}
double code(double x, double y, double z, double t, double a) {
double tmp;
if (((x - (y * z)) / (t - (z * a))) <= -((double) INFINITY)) {
tmp = -(x / (z * a)) - (z / ((t - (z * a)) / y));
} else if (((x - (y * z)) / (t - (z * a))) <= 1.1791275098182219e+269) {
tmp = (x - (y * z)) / (t - (z * a));
} else {
tmp = (y / a) - (x / (z * 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 | 10.8 |
|---|---|
| Target | 1.8 |
| Herbie | 5.2 |
if (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < -inf.0Initial program 64.0
rmApplied div-sub_binary64_1747464.0
Simplified64.0
Simplified64.0
rmApplied associate-/l*_binary64_174140.3
Taylor expanded around 0 3.7
Simplified3.7
if -inf.0 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) < 1.1791275098182219e269Initial program 4.6
if 1.1791275098182219e269 < (/.f64 (-.f64 x (*.f64 y z)) (-.f64 t (*.f64 a z))) Initial program 56.5
rmApplied div-sub_binary64_1747456.5
Simplified56.5
Simplified56.5
Taylor expanded around 0 12.3
Final simplification5.2
herbie shell --seed 2021044
(FPCore (x y z t a)
:name "Diagrams.Solve.Tridiagonal:solveTriDiagonal from diagrams-solve-0.1, A"
:precision binary64
:herbie-target
(if (< z -32113435955957344.0) (- (/ x (- t (* a z))) (/ y (- (/ t z) a))) (if (< z 3.5139522372978296e-86) (* (- x (* y z)) (/ 1.0 (- t (* a z)))) (- (/ x (- t (* a z))) (/ y (- (/ t z) a)))))
(/ (- x (* y z)) (- t (* a z))))