x \cdot \left(\frac{y}{z} - \frac{t}{1 - z}\right)\begin{array}{l}
\mathbf{if}\;\frac{y}{z} - \frac{t}{1 - z} \leq -3.5438826745403745 \cdot 10^{+274}:\\
\;\;\;\;\frac{x \cdot \left(y - z \cdot \left(y + t\right)\right)}{z \cdot \left(1 - z\right)}\\
\mathbf{elif}\;\frac{y}{z} - \frac{t}{1 - z} \leq -5.374133546757662 \cdot 10^{-282}:\\
\;\;\;\;\left(\frac{y}{z} - \frac{t}{1 - z}\right) \cdot x\\
\mathbf{elif}\;\frac{y}{z} - \frac{t}{1 - z} \leq 3.202405221403763 \cdot 10^{-187}:\\
\;\;\;\;\frac{x}{z} \cdot \left(t + \left(y + \frac{t}{z}\right)\right)\\
\mathbf{elif}\;\frac{y}{z} - \frac{t}{1 - z} \leq 3.0897616274855517 \cdot 10^{+249}:\\
\;\;\;\;\left(\frac{y}{z} - \frac{t}{1 - z}\right) \cdot x\\
\mathbf{else}:\\
\;\;\;\;\frac{x \cdot \left(y - z \cdot \left(y + t\right)\right)}{z \cdot \left(1 - z\right)}\\
\end{array}(FPCore (x y z t) :precision binary64 (* x (- (/ y z) (/ t (- 1.0 z)))))
(FPCore (x y z t)
:precision binary64
(if (<= (- (/ y z) (/ t (- 1.0 z))) -3.5438826745403745e+274)
(/ (* x (- y (* z (+ y t)))) (* z (- 1.0 z)))
(if (<= (- (/ y z) (/ t (- 1.0 z))) -5.374133546757662e-282)
(* (- (/ y z) (/ t (- 1.0 z))) x)
(if (<= (- (/ y z) (/ t (- 1.0 z))) 3.202405221403763e-187)
(* (/ x z) (+ t (+ y (/ t z))))
(if (<= (- (/ y z) (/ t (- 1.0 z))) 3.0897616274855517e+249)
(* (- (/ y z) (/ t (- 1.0 z))) x)
(/ (* x (- y (* z (+ y t)))) (* z (- 1.0 z))))))))double code(double x, double y, double z, double t) {
return x * ((y / z) - (t / (1.0 - z)));
}
double code(double x, double y, double z, double t) {
double tmp;
if (((y / z) - (t / (1.0 - z))) <= -3.5438826745403745e+274) {
tmp = (x * (y - (z * (y + t)))) / (z * (1.0 - z));
} else if (((y / z) - (t / (1.0 - z))) <= -5.374133546757662e-282) {
tmp = ((y / z) - (t / (1.0 - z))) * x;
} else if (((y / z) - (t / (1.0 - z))) <= 3.202405221403763e-187) {
tmp = (x / z) * (t + (y + (t / z)));
} else if (((y / z) - (t / (1.0 - z))) <= 3.0897616274855517e+249) {
tmp = ((y / z) - (t / (1.0 - z))) * x;
} else {
tmp = (x * (y - (z * (y + t)))) / (z * (1.0 - z));
}
return tmp;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
Results
| Original | 4.8 |
|---|---|
| Target | 4.3 |
| Herbie | 0.6 |
if (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < -3.5438826745403745e274 or 3.089761627485552e249 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) Initial program 33.2
rmApplied frac-sub_binary6434.7
Applied associate-*r/_binary641.9
Simplified1.9
if -3.5438826745403745e274 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < -5.37413354675766228e-282 or 3.2024052214037628e-187 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < 3.089761627485552e249Initial program 0.2
if -5.37413354675766228e-282 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < 3.2024052214037628e-187Initial program 11.0
Taylor expanded around inf 1.6
Simplified2.0
Final simplification0.6
herbie shell --seed 2020224
(FPCore (x y z t)
:name "Numeric.SpecFunctions:invIncompleteBetaWorker from math-functions-0.1.5.2, C"
:precision binary64
:herbie-target
(if (< (* x (- (/ y z) (/ t (- 1.0 z)))) -7.623226303312042e-196) (* x (- (/ y z) (* t (/ 1.0 (- 1.0 z))))) (if (< (* x (- (/ y z) (/ t (- 1.0 z)))) 1.4133944927702302e-211) (+ (/ (* y x) z) (- (/ (* t x) (- 1.0 z)))) (* x (- (/ y z) (* t (/ 1.0 (- 1.0 z)))))))
(* x (- (/ y z) (/ t (- 1.0 z)))))