\frac{x - y \cdot z}{t - a \cdot z}\frac{1}{t - a \cdot z} \cdot \left(x - y \cdot z\right)double f(double x, double y, double z, double t, double a) {
double r1005349 = x;
double r1005350 = y;
double r1005351 = z;
double r1005352 = r1005350 * r1005351;
double r1005353 = r1005349 - r1005352;
double r1005354 = t;
double r1005355 = a;
double r1005356 = r1005355 * r1005351;
double r1005357 = r1005354 - r1005356;
double r1005358 = r1005353 / r1005357;
return r1005358;
}
double f(double x, double y, double z, double t, double a) {
double r1005359 = 1.0;
double r1005360 = t;
double r1005361 = a;
double r1005362 = z;
double r1005363 = r1005361 * r1005362;
double r1005364 = r1005360 - r1005363;
double r1005365 = r1005359 / r1005364;
double r1005366 = x;
double r1005367 = y;
double r1005368 = r1005367 * r1005362;
double r1005369 = r1005366 - r1005368;
double r1005370 = r1005365 * r1005369;
return r1005370;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 10.6 |
|---|---|
| Target | 1.8 |
| Herbie | 10.7 |
Initial program 10.6
rmApplied clear-num10.9
rmApplied div-inv11.0
Applied associate-/r*10.8
rmApplied *-un-lft-identity10.8
Applied add-sqr-sqrt10.8
Applied times-frac10.8
Applied *-un-lft-identity10.8
Applied add-sqr-sqrt10.8
Applied times-frac10.8
Applied times-frac10.8
Simplified10.8
Simplified10.7
Final simplification10.7
herbie shell --seed 2020034 +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))))