\frac{x - y \cdot z}{t - a \cdot z}\begin{array}{l}
\mathbf{if}\;z \le -9.2159596611983673 \cdot 10^{-15} \lor \neg \left(z \le 3.82302836807757522 \cdot 10^{-132}\right):\\
\;\;\;\;\frac{x}{t - a \cdot z} - \frac{y}{\frac{t}{z} - a}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{\mathsf{fma}\left(a, -z, t\right)}{x - z \cdot y}}\\
\end{array}double f(double x, double y, double z, double t, double a) {
double r786884 = x;
double r786885 = y;
double r786886 = z;
double r786887 = r786885 * r786886;
double r786888 = r786884 - r786887;
double r786889 = t;
double r786890 = a;
double r786891 = r786890 * r786886;
double r786892 = r786889 - r786891;
double r786893 = r786888 / r786892;
return r786893;
}
double f(double x, double y, double z, double t, double a) {
double r786894 = z;
double r786895 = -9.215959661198367e-15;
bool r786896 = r786894 <= r786895;
double r786897 = 3.823028368077575e-132;
bool r786898 = r786894 <= r786897;
double r786899 = !r786898;
bool r786900 = r786896 || r786899;
double r786901 = x;
double r786902 = t;
double r786903 = a;
double r786904 = r786903 * r786894;
double r786905 = r786902 - r786904;
double r786906 = r786901 / r786905;
double r786907 = y;
double r786908 = r786902 / r786894;
double r786909 = r786908 - r786903;
double r786910 = r786907 / r786909;
double r786911 = r786906 - r786910;
double r786912 = 1.0;
double r786913 = -r786894;
double r786914 = fma(r786903, r786913, r786902);
double r786915 = r786894 * r786907;
double r786916 = r786901 - r786915;
double r786917 = r786914 / r786916;
double r786918 = r786912 / r786917;
double r786919 = r786900 ? r786911 : r786918;
return r786919;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
| Original | 10.0 |
|---|---|
| Target | 1.5 |
| Herbie | 1.7 |
if z < -9.215959661198367e-15 or 3.823028368077575e-132 < z Initial program 16.4
rmApplied div-sub16.4
Simplified10.5
rmApplied clear-num10.6
rmApplied *-un-lft-identity10.6
Applied associate-*l*10.6
Simplified2.5
if -9.215959661198367e-15 < z < 3.823028368077575e-132Initial program 0.1
rmApplied clear-num0.5
Simplified0.5
Final simplification1.7
herbie shell --seed 2020045 +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))))