x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t}\begin{array}{l}
\mathbf{if}\;x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t} \leq -1.4757828004436287 \cdot 10^{-305} \lor \neg \left(x + \frac{\left(y - x\right) \cdot \left(z - t\right)}{a - t} \leq 0\right):\\
\;\;\;\;x + \left(y - x\right) \cdot \frac{z - t}{a - t}\\
\mathbf{else}:\\
\;\;\;\;\left(y + \frac{x \cdot z}{t}\right) - \frac{y \cdot z}{t}\\
\end{array}(FPCore (x y z t a) :precision binary64 (+ x (/ (* (- y x) (- z t)) (- a t))))
(FPCore (x y z t a)
:precision binary64
(if (or (<= (+ x (/ (* (- y x) (- z t)) (- a t))) -1.4757828004436287e-305)
(not (<= (+ x (/ (* (- y x) (- z t)) (- a t))) 0.0)))
(+ x (* (- y x) (/ (- z t) (- a t))))
(- (+ y (/ (* x z) t)) (/ (* y z) t))))double code(double x, double y, double z, double t, double a) {
return x + (((y - x) * (z - t)) / (a - t));
}
double code(double x, double y, double z, double t, double a) {
double tmp;
if (((x + (((y - x) * (z - t)) / (a - t))) <= -1.4757828004436287e-305) || !((x + (((y - x) * (z - t)) / (a - t))) <= 0.0)) {
tmp = x + ((y - x) * ((z - t) / (a - t)));
} else {
tmp = (y + ((x * z) / t)) - ((y * z) / t);
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a
Results
| Original | 24.8 |
|---|---|
| Target | 9.4 |
| Herbie | 8.2 |
if (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -1.47578280044362869e-305 or 0.0 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) Initial program 21.3
rmApplied *-un-lft-identity_binary64_1644621.3
Applied times-frac_binary64_164527.3
Simplified7.3
if -1.47578280044362869e-305 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 0.0Initial program 60.9
Taylor expanded around inf 17.2
Simplified17.2
Final simplification8.2
herbie shell --seed 2020355
(FPCore (x y z t a)
:name "Graphics.Rendering.Chart.Axis.Types:linMap from Chart-1.5.3"
:precision binary64
:herbie-target
(if (< a -1.6153062845442575e-142) (+ x (* (/ (- y x) 1.0) (/ (- z t) (- a t)))) (if (< a 3.774403170083174e-182) (- y (* (/ z t) (- y x))) (+ x (* (/ (- y x) 1.0) (/ (- z t) (- a t))))))
(+ x (/ (* (- y x) (- z t)) (- a t))))