\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 r701459 = x;
double r701460 = y;
double r701461 = z;
double r701462 = r701460 * r701461;
double r701463 = r701459 - r701462;
double r701464 = t;
double r701465 = a;
double r701466 = r701465 * r701461;
double r701467 = r701464 - r701466;
double r701468 = r701463 / r701467;
return r701468;
}
double f(double x, double y, double z, double t, double a) {
double r701469 = x;
double r701470 = y;
double r701471 = z;
double r701472 = r701470 * r701471;
double r701473 = r701469 - r701472;
double r701474 = t;
double r701475 = a;
double r701476 = r701475 * r701471;
double r701477 = r701474 - r701476;
double r701478 = r701473 / r701477;
return r701478;
}




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 2020033 +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))))