\frac{x - y \cdot z}{t - a \cdot z}\begin{array}{l}
\mathbf{if}\;z \le -3.10185718647149596 \cdot 10^{-19} \lor \neg \left(z \le 2.3170079174536806 \cdot 10^{-12}\right):\\
\;\;\;\;\frac{x}{t - a \cdot z} - y \cdot \frac{1}{\frac{t}{z} - a}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{t - a \cdot z} - \frac{y \cdot z}{t - a \cdot z}\\
\end{array}double f(double x, double y, double z, double t, double a) {
double r662015 = x;
double r662016 = y;
double r662017 = z;
double r662018 = r662016 * r662017;
double r662019 = r662015 - r662018;
double r662020 = t;
double r662021 = a;
double r662022 = r662021 * r662017;
double r662023 = r662020 - r662022;
double r662024 = r662019 / r662023;
return r662024;
}
double f(double x, double y, double z, double t, double a) {
double r662025 = z;
double r662026 = -3.101857186471496e-19;
bool r662027 = r662025 <= r662026;
double r662028 = 2.3170079174536806e-12;
bool r662029 = r662025 <= r662028;
double r662030 = !r662029;
bool r662031 = r662027 || r662030;
double r662032 = x;
double r662033 = t;
double r662034 = a;
double r662035 = r662034 * r662025;
double r662036 = r662033 - r662035;
double r662037 = r662032 / r662036;
double r662038 = y;
double r662039 = 1.0;
double r662040 = r662033 / r662025;
double r662041 = r662040 - r662034;
double r662042 = r662039 / r662041;
double r662043 = r662038 * r662042;
double r662044 = r662037 - r662043;
double r662045 = r662038 * r662025;
double r662046 = r662045 / r662036;
double r662047 = r662037 - r662046;
double r662048 = r662031 ? r662044 : r662047;
return r662048;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 10.0 |
|---|---|
| Target | 1.5 |
| Herbie | 1.4 |
if z < -3.101857186471496e-19 or 2.3170079174536806e-12 < z Initial program 19.4
rmApplied div-sub19.4
Simplified12.0
rmApplied clear-num12.0
rmApplied div-sub12.0
Simplified2.6
if -3.101857186471496e-19 < z < 2.3170079174536806e-12Initial program 0.1
rmApplied div-sub0.1
Simplified3.1
rmApplied associate-*r/0.1
Final simplification1.4
herbie shell --seed 2020045
(FPCore (x y z t a)
:name "Diagrams.Solve.Tridiagonal:solveTriDiagonal from diagrams-solve-0.1, A"
:precision binary64
:herbie-target
(if (< z -32113435955957344) (- (/ x (- t (* a z))) (/ y (- (/ t z) a))) (if (< z 3.5139522372978296e-86) (* (- x (* y z)) (/ 1 (- t (* a z)))) (- (/ x (- t (* a z))) (/ y (- (/ t z) a)))))
(/ (- x (* y z)) (- t (* a z))))