\frac{x \cdot y}{z}\begin{array}{l}
\mathbf{if}\;x \cdot y \leq -7.647994450319829 \cdot 10^{+265}:\\
\;\;\;\;\frac{x}{\frac{z}{y}}\\
\mathbf{elif}\;x \cdot y \leq -3.0151049668143696 \cdot 10^{-214}:\\
\;\;\;\;\frac{x \cdot y}{z}\\
\mathbf{elif}\;x \cdot y \leq -0:\\
\;\;\;\;\frac{x}{\frac{z}{y}}\\
\mathbf{elif}\;x \cdot y \leq 4.231236087506262 \cdot 10^{+294}:\\
\;\;\;\;\frac{x \cdot y}{z}\\
\mathbf{else}:\\
\;\;\;\;x \cdot \frac{y}{z}\\
\end{array}(FPCore (x y z) :precision binary64 (/ (* x y) z))
(FPCore (x y z)
:precision binary64
(if (<= (* x y) -7.647994450319829e+265)
(/ x (/ z y))
(if (<= (* x y) -3.0151049668143696e-214)
(/ (* x y) z)
(if (<= (* x y) -0.0)
(/ x (/ z y))
(if (<= (* x y) 4.231236087506262e+294) (/ (* x y) z) (* x (/ y z)))))))double code(double x, double y, double z) {
return (x * y) / z;
}
double code(double x, double y, double z) {
double tmp;
if ((x * y) <= -7.647994450319829e+265) {
tmp = x / (z / y);
} else if ((x * y) <= -3.0151049668143696e-214) {
tmp = (x * y) / z;
} else if ((x * y) <= -0.0) {
tmp = x / (z / y);
} else if ((x * y) <= 4.231236087506262e+294) {
tmp = (x * y) / z;
} else {
tmp = x * (y / z);
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z
Results
| Original | 6.0 |
|---|---|
| Target | 5.9 |
| Herbie | 0.4 |
if (*.f64 x y) < -7.64799445031982918e265 or -3.01510496681436962e-214 < (*.f64 x y) < -0.0Initial program 18.4
rmApplied associate-/l*_binary640.4
if -7.64799445031982918e265 < (*.f64 x y) < -3.01510496681436962e-214 or -0.0 < (*.f64 x y) < 4.2312360875062618e294Initial program 0.3
if 4.2312360875062618e294 < (*.f64 x y) Initial program 57.3
rmApplied *-un-lft-identity_binary6457.3
Applied times-frac_binary640.3
Simplified0.3
Final simplification0.4
herbie shell --seed 2020231
(FPCore (x y z)
:name "Diagrams.Solve.Tridiagonal:solveCyclicTriDiagonal from diagrams-solve-0.1, A"
:precision binary64
:herbie-target
(if (< z -4.262230790519429e-138) (/ (* x y) z) (if (< z 1.7042130660650472e-164) (/ x (/ z y)) (* (/ x z) y)))
(/ (* x y) z))