\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 r672651 = x;
double r672652 = y;
double r672653 = z;
double r672654 = r672652 * r672653;
double r672655 = r672651 - r672654;
double r672656 = t;
double r672657 = a;
double r672658 = r672657 * r672653;
double r672659 = r672656 - r672658;
double r672660 = r672655 / r672659;
return r672660;
}
double f(double x, double y, double z, double t, double a) {
double r672661 = x;
double r672662 = y;
double r672663 = z;
double r672664 = r672662 * r672663;
double r672665 = r672661 - r672664;
double r672666 = t;
double r672667 = a;
double r672668 = r672667 * r672663;
double r672669 = r672666 - r672668;
double r672670 = r672665 / r672669;
return r672670;
}




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 1978988140
(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.51395223729782958e-86) (* (- x (* y z)) (/ 1 (- t (* a z)))) (- (/ x (- t (* a z))) (/ y (- (/ t z) a)))))
(/ (- x (* y z)) (- t (* a z))))