\frac{x - y \cdot z}{t - a \cdot z}
\begin{array}{l}
t_1 := t - z \cdot a\\
t_2 := \frac{x}{t_1}\\
\mathbf{if}\;z \leq -1.6905947623455013 \cdot 10^{+59} \lor \neg \left(z \leq 3.727078275686462 \cdot 10^{-93}\right):\\
\;\;\;\;t_2 - \frac{y}{\frac{t}{z} - a}\\
\mathbf{else}:\\
\;\;\;\;t_2 - \frac{z \cdot y}{t_1}\\
\end{array}
(FPCore (x y z t a) :precision binary64 (/ (- x (* y z)) (- t (* a z))))
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (- t (* z a))) (t_2 (/ x t_1)))
(if (or (<= z -1.6905947623455013e+59) (not (<= z 3.727078275686462e-93)))
(- t_2 (/ y (- (/ t z) a)))
(- t_2 (/ (* z y) t_1)))))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 t_1 = t - (z * a);
double t_2 = x / t_1;
double tmp;
if ((z <= -1.6905947623455013e+59) || !(z <= 3.727078275686462e-93)) {
tmp = t_2 - (y / ((t / z) - a));
} else {
tmp = t_2 - ((z * y) / t_1);
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 9.2 |
|---|---|
| Target | 1.8 |
| Herbie | 1.9 |
if z < -1.690594762345501e59 or 3.727078275686462e-93 < z Initial program 16.8
Taylor expanded in x around 0 17.0
Applied associate-/l*_binary6411.3
Taylor expanded in t around 0 2.9
if -1.690594762345501e59 < z < 3.727078275686462e-93Initial program 0.7
Taylor expanded in x around 0 0.8
Applied associate-/l*_binary643.0
Taylor expanded in y around 0 0.8
Simplified0.8
Final simplification1.9
herbie shell --seed 2022088
(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))))