x \cdot \left(\frac{y}{z} - \frac{t}{1 - z}\right)\begin{array}{l}
\mathbf{if}\;\frac{y}{z} - \frac{t}{1 - z} \leq -\infty:\\
\;\;\;\;\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 -1.1268122843286182 \cdot 10^{-194}:\\
\;\;\;\;\left(\frac{y}{z} - \frac{t}{1 - z}\right) \cdot x\\
\mathbf{elif}\;\frac{y}{z} - \frac{t}{1 - z} \leq 0:\\
\;\;\;\;\frac{\frac{x}{z}}{\frac{1}{\frac{y - z \cdot \left(y + t\right)}{1 - z}}}\\
\mathbf{elif}\;\frac{y}{z} - \frac{t}{1 - z} \leq 1.0165756137896936 \cdot 10^{+308}:\\
\;\;\;\;\left(\frac{y}{z} - \frac{t}{1 - z}\right) \cdot x\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(y - z \cdot \left(y + t\right)\right) \cdot \frac{x}{z}}{1 - z}\\
\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))) (- INFINITY))
(/ (* x (- y (* z (+ y t)))) (* z (- 1.0 z)))
(if (<= (- (/ y z) (/ t (- 1.0 z))) -1.1268122843286182e-194)
(* (- (/ y z) (/ t (- 1.0 z))) x)
(if (<= (- (/ y z) (/ t (- 1.0 z))) 0.0)
(/ (/ x z) (/ 1.0 (/ (- y (* z (+ y t))) (- 1.0 z))))
(if (<= (- (/ y z) (/ t (- 1.0 z))) 1.0165756137896936e+308)
(* (- (/ y z) (/ t (- 1.0 z))) x)
(/ (* (- y (* z (+ y t))) (/ x 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))) <= -((double) INFINITY)) {
tmp = (x * (y - (z * (y + t)))) / (z * (1.0 - z));
} else if (((y / z) - (t / (1.0 - z))) <= -1.1268122843286182e-194) {
tmp = ((y / z) - (t / (1.0 - z))) * x;
} else if (((y / z) - (t / (1.0 - z))) <= 0.0) {
tmp = (x / z) / (1.0 / ((y - (z * (y + t))) / (1.0 - z)));
} else if (((y / z) - (t / (1.0 - z))) <= 1.0165756137896936e+308) {
tmp = ((y / z) - (t / (1.0 - z))) * x;
} else {
tmp = ((y - (z * (y + t))) * (x / 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.6 |
|---|---|
| Target | 4.4 |
| Herbie | 0.6 |
if (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < -inf.0Initial program 64.0
rmApplied frac-sub_binary6464.0
Applied associate-*r/_binary640.3
Simplified0.3
if -inf.0 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < -1.12681228432861822e-194 or 0.0 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < 1.01657561378969364e308Initial program 0.2
if -1.12681228432861822e-194 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) < 0.0Initial program 11.0
rmApplied frac-sub_binary6423.9
Applied associate-*r/_binary6422.4
Simplified22.4
rmApplied associate-/l*_binary6424.0
Simplified15.4
rmApplied div-inv_binary6415.4
Applied associate-/r*_binary644.1
if 1.01657561378969364e308 < (-.f64 (/.f64 y z) (/.f64 t (-.f64 1 z))) Initial program 64.0
rmApplied frac-sub_binary6464.0
Applied associate-*r/_binary640.3
Simplified0.3
rmApplied associate-/r*_binary640.3
Simplified0.3
Final simplification0.6
herbie shell --seed 2020260
(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)))))