\frac{x - y \cdot z}{t - a \cdot z}\frac{x - y \cdot z}{t - a \cdot z}double f(double x, double y, double z, double t, double a) {
double r653882 = x;
double r653883 = y;
double r653884 = z;
double r653885 = r653883 * r653884;
double r653886 = r653882 - r653885;
double r653887 = t;
double r653888 = a;
double r653889 = r653888 * r653884;
double r653890 = r653887 - r653889;
double r653891 = r653886 / r653890;
return r653891;
}
double f(double x, double y, double z, double t, double a) {
double r653892 = x;
double r653893 = y;
double r653894 = z;
double r653895 = r653893 * r653894;
double r653896 = r653892 - r653895;
double r653897 = t;
double r653898 = a;
double r653899 = r653898 * r653894;
double r653900 = r653897 - r653899;
double r653901 = r653896 / r653900;
return r653901;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 10.5 |
|---|---|
| Target | 1.8 |
| Herbie | 10.5 |
Initial program 10.5
Final simplification10.5
herbie shell --seed 2020083 +o rules:numerics
(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))))