\frac{x - y \cdot z}{t - a \cdot z}\begin{array}{l}
\mathbf{if}\;z \le -4.494157337141472818401294462701317335445 \cdot 10^{-23} \lor \neg \left(z \le 3.575354698827828217766077832854277915677 \cdot 10^{-14}\right):\\
\;\;\;\;\frac{x}{t - a \cdot z} - \frac{y}{\frac{t}{z} - a}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{t - a \cdot z}{x - y \cdot z}}\\
\end{array}double f(double x, double y, double z, double t, double a) {
double r350276 = x;
double r350277 = y;
double r350278 = z;
double r350279 = r350277 * r350278;
double r350280 = r350276 - r350279;
double r350281 = t;
double r350282 = a;
double r350283 = r350282 * r350278;
double r350284 = r350281 - r350283;
double r350285 = r350280 / r350284;
return r350285;
}
double f(double x, double y, double z, double t, double a) {
double r350286 = z;
double r350287 = -4.494157337141473e-23;
bool r350288 = r350286 <= r350287;
double r350289 = 3.575354698827828e-14;
bool r350290 = r350286 <= r350289;
double r350291 = !r350290;
bool r350292 = r350288 || r350291;
double r350293 = x;
double r350294 = t;
double r350295 = a;
double r350296 = r350295 * r350286;
double r350297 = r350294 - r350296;
double r350298 = r350293 / r350297;
double r350299 = y;
double r350300 = r350294 / r350286;
double r350301 = r350300 - r350295;
double r350302 = r350299 / r350301;
double r350303 = r350298 - r350302;
double r350304 = 1.0;
double r350305 = r350299 * r350286;
double r350306 = r350293 - r350305;
double r350307 = r350297 / r350306;
double r350308 = r350304 / r350307;
double r350309 = r350292 ? r350303 : r350308;
return r350309;
}




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.6 |
| Herbie | 1.7 |
if z < -4.494157337141473e-23 or 3.575354698827828e-14 < z Initial program 20.3
rmApplied div-sub20.3
rmApplied associate-/l*12.6
rmApplied div-sub12.6
Simplified2.7
if -4.494157337141473e-23 < z < 3.575354698827828e-14Initial program 0.1
rmApplied clear-num0.7
Final simplification1.7
herbie shell --seed 2019318
(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))))