\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 r633640 = x;
double r633641 = y;
double r633642 = z;
double r633643 = r633641 * r633642;
double r633644 = r633640 - r633643;
double r633645 = t;
double r633646 = a;
double r633647 = r633646 * r633642;
double r633648 = r633645 - r633647;
double r633649 = r633644 / r633648;
return r633649;
}
double f(double x, double y, double z, double t, double a) {
double r633650 = x;
double r633651 = y;
double r633652 = z;
double r633653 = r633651 * r633652;
double r633654 = r633650 - r633653;
double r633655 = t;
double r633656 = a;
double r633657 = r633656 * r633652;
double r633658 = r633655 - r633657;
double r633659 = r633654 / r633658;
return r633659;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 10.7 |
|---|---|
| Target | 1.7 |
| Herbie | 10.7 |
Initial program 10.7
Final simplification10.7
herbie shell --seed 2019353 +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))))