\frac{x - y \cdot z}{t - a \cdot z}\begin{array}{l}
\mathbf{if}\;z \le -1.058363476944756329672924814755261411617 \cdot 10^{-274} \lor \neg \left(z \le 1.046996143314327748479072054949128759018 \cdot 10^{-51}\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 r450224 = x;
double r450225 = y;
double r450226 = z;
double r450227 = r450225 * r450226;
double r450228 = r450224 - r450227;
double r450229 = t;
double r450230 = a;
double r450231 = r450230 * r450226;
double r450232 = r450229 - r450231;
double r450233 = r450228 / r450232;
return r450233;
}
double f(double x, double y, double z, double t, double a) {
double r450234 = z;
double r450235 = -1.0583634769447563e-274;
bool r450236 = r450234 <= r450235;
double r450237 = 1.0469961433143277e-51;
bool r450238 = r450234 <= r450237;
double r450239 = !r450238;
bool r450240 = r450236 || r450239;
double r450241 = x;
double r450242 = t;
double r450243 = a;
double r450244 = r450243 * r450234;
double r450245 = r450242 - r450244;
double r450246 = r450241 / r450245;
double r450247 = y;
double r450248 = r450242 / r450234;
double r450249 = r450248 - r450243;
double r450250 = r450247 / r450249;
double r450251 = r450246 - r450250;
double r450252 = 1.0;
double r450253 = r450247 * r450234;
double r450254 = r450241 - r450253;
double r450255 = r450245 / r450254;
double r450256 = r450252 / r450255;
double r450257 = r450240 ? r450251 : r450256;
return r450257;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 10.1 |
|---|---|
| Target | 1.7 |
| Herbie | 2.2 |
if z < -1.0583634769447563e-274 or 1.0469961433143277e-51 < z Initial program 13.2
rmApplied div-sub13.2
Simplified9.1
rmApplied pow19.1
Applied pow19.1
Applied pow-prod-down9.1
Simplified2.7
if -1.0583634769447563e-274 < z < 1.0469961433143277e-51Initial program 0.1
rmApplied clear-num0.5
Final simplification2.2
herbie shell --seed 2019323
(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))))