\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 r454159 = x;
double r454160 = y;
double r454161 = z;
double r454162 = r454160 * r454161;
double r454163 = r454159 - r454162;
double r454164 = t;
double r454165 = a;
double r454166 = r454165 * r454161;
double r454167 = r454164 - r454166;
double r454168 = r454163 / r454167;
return r454168;
}
double f(double x, double y, double z, double t, double a) {
double r454169 = z;
double r454170 = -1.0583634769447563e-274;
bool r454171 = r454169 <= r454170;
double r454172 = 1.0469961433143277e-51;
bool r454173 = r454169 <= r454172;
double r454174 = !r454173;
bool r454175 = r454171 || r454174;
double r454176 = x;
double r454177 = t;
double r454178 = a;
double r454179 = r454178 * r454169;
double r454180 = r454177 - r454179;
double r454181 = r454176 / r454180;
double r454182 = y;
double r454183 = r454177 / r454169;
double r454184 = r454183 - r454178;
double r454185 = r454182 / r454184;
double r454186 = r454181 - r454185;
double r454187 = 1.0;
double r454188 = r454182 * r454169;
double r454189 = r454176 - r454188;
double r454190 = r454180 / r454189;
double r454191 = r454187 / r454190;
double r454192 = r454175 ? r454186 : r454191;
return r454192;
}




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 *-un-lft-identity9.1
Applied associate-*l*9.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))))