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 -2.555644332371652 \cdot 10^{-293} \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))) -2.555644332371652e-293)
(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))) <= -2.555644332371652e-293) || !((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.6 |
|---|---|
| Target | 9.3 |
| Herbie | 8.3 |
if (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < -2.55564433237165172e-293 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_1899921.3
Applied times-frac_binary64_190057.5
Simplified7.5
if -2.55564433237165172e-293 < (+.f64 x (/.f64 (*.f64 (-.f64 y x) (-.f64 z t)) (-.f64 a t))) < 0.0Initial program 60.3
Taylor expanded around inf 16.6
Simplified16.6
Final simplification8.3
herbie shell --seed 2020280
(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))))