\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 r447886 = x;
double r447887 = y;
double r447888 = z;
double r447889 = r447887 * r447888;
double r447890 = r447886 - r447889;
double r447891 = t;
double r447892 = a;
double r447893 = r447892 * r447888;
double r447894 = r447891 - r447893;
double r447895 = r447890 / r447894;
return r447895;
}
double f(double x, double y, double z, double t, double a) {
double r447896 = z;
double r447897 = -1.0583634769447563e-274;
bool r447898 = r447896 <= r447897;
double r447899 = 1.0469961433143277e-51;
bool r447900 = r447896 <= r447899;
double r447901 = !r447900;
bool r447902 = r447898 || r447901;
double r447903 = x;
double r447904 = t;
double r447905 = a;
double r447906 = r447905 * r447896;
double r447907 = r447904 - r447906;
double r447908 = r447903 / r447907;
double r447909 = y;
double r447910 = r447904 / r447896;
double r447911 = r447910 - r447905;
double r447912 = r447909 / r447911;
double r447913 = r447908 - r447912;
double r447914 = 1.0;
double r447915 = r447909 * r447896;
double r447916 = r447903 - r447915;
double r447917 = r447907 / r447916;
double r447918 = r447914 / r447917;
double r447919 = r447902 ? r447913 : r447918;
return r447919;
}




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