x \cdot \left(\frac{y}{z} - \frac{t}{1 - z}\right)\begin{array}{l}
\mathbf{if}\;\frac{y}{z} - \frac{t}{1 - z} \le 2.824403065313703990418076790193964499788 \cdot 10^{277}:\\
\;\;\;\;x \cdot \left(\frac{y}{z} - t \cdot \frac{1}{1 - z}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{x \cdot \left(y \cdot \left(1 - z\right) - z \cdot t\right)}{z \cdot \left(1 - z\right)}\\
\end{array}double f(double x, double y, double z, double t) {
double r383436 = x;
double r383437 = y;
double r383438 = z;
double r383439 = r383437 / r383438;
double r383440 = t;
double r383441 = 1.0;
double r383442 = r383441 - r383438;
double r383443 = r383440 / r383442;
double r383444 = r383439 - r383443;
double r383445 = r383436 * r383444;
return r383445;
}
double f(double x, double y, double z, double t) {
double r383446 = y;
double r383447 = z;
double r383448 = r383446 / r383447;
double r383449 = t;
double r383450 = 1.0;
double r383451 = r383450 - r383447;
double r383452 = r383449 / r383451;
double r383453 = r383448 - r383452;
double r383454 = 2.824403065313704e+277;
bool r383455 = r383453 <= r383454;
double r383456 = x;
double r383457 = 1.0;
double r383458 = r383457 / r383451;
double r383459 = r383449 * r383458;
double r383460 = r383448 - r383459;
double r383461 = r383456 * r383460;
double r383462 = r383446 * r383451;
double r383463 = r383447 * r383449;
double r383464 = r383462 - r383463;
double r383465 = r383456 * r383464;
double r383466 = r383447 * r383451;
double r383467 = r383465 / r383466;
double r383468 = r383455 ? r383461 : r383467;
return r383468;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t
Results
| Original | 4.8 |
|---|---|
| Target | 4.4 |
| Herbie | 3.2 |
if (- (/ y z) (/ t (- 1.0 z))) < 2.824403065313704e+277Initial program 3.2
rmApplied div-inv3.3
if 2.824403065313704e+277 < (- (/ y z) (/ t (- 1.0 z))) Initial program 40.5
rmApplied frac-sub40.7
Applied associate-*r/0.5
Final simplification3.2
herbie shell --seed 2020001
(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 z)))) -7.623226303312042e-196) (* x (- (/ y z) (* t (/ 1 (- 1 z))))) (if (< (* x (- (/ y z) (/ t (- 1 z)))) 1.4133944927702302e-211) (+ (/ (* y x) z) (- (/ (* t x) (- 1 z)))) (* x (- (/ y z) (* t (/ 1 (- 1 z)))))))
(* x (- (/ y z) (/ t (- 1 z)))))