\frac{x \cdot e^{\left(y \cdot \log z + \left(t - 1\right) \cdot \log a\right) - b}}{y}\left(x \cdot \frac{{\left(\frac{1}{a}\right)}^{1}}{e^{y \cdot \log \left(\frac{1}{z}\right) + \left(\log \left(\frac{1}{a}\right) \cdot t + b\right)}}\right) \cdot \frac{1}{y}double f(double x, double y, double z, double t, double a, double b) {
double r550712 = x;
double r550713 = y;
double r550714 = z;
double r550715 = log(r550714);
double r550716 = r550713 * r550715;
double r550717 = t;
double r550718 = 1.0;
double r550719 = r550717 - r550718;
double r550720 = a;
double r550721 = log(r550720);
double r550722 = r550719 * r550721;
double r550723 = r550716 + r550722;
double r550724 = b;
double r550725 = r550723 - r550724;
double r550726 = exp(r550725);
double r550727 = r550712 * r550726;
double r550728 = r550727 / r550713;
return r550728;
}
double f(double x, double y, double z, double t, double a, double b) {
double r550729 = x;
double r550730 = 1.0;
double r550731 = a;
double r550732 = r550730 / r550731;
double r550733 = 1.0;
double r550734 = pow(r550732, r550733);
double r550735 = y;
double r550736 = z;
double r550737 = r550730 / r550736;
double r550738 = log(r550737);
double r550739 = r550735 * r550738;
double r550740 = log(r550732);
double r550741 = t;
double r550742 = r550740 * r550741;
double r550743 = b;
double r550744 = r550742 + r550743;
double r550745 = r550739 + r550744;
double r550746 = exp(r550745);
double r550747 = r550734 / r550746;
double r550748 = r550729 * r550747;
double r550749 = r550730 / r550735;
double r550750 = r550748 * r550749;
return r550750;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a




Bits error versus b
Results
| Original | 2.0 |
|---|---|
| Target | 11.3 |
| Herbie | 1.3 |
Initial program 2.0
Taylor expanded around inf 2.0
Simplified1.2
rmApplied div-inv1.3
Final simplification1.3
herbie shell --seed 2020036
(FPCore (x y z t a b)
:name "Numeric.SpecFunctions:incompleteBetaWorker from math-functions-0.1.5.2, A"
:precision binary64
:herbie-target
(if (< t -0.8845848504127471) (/ (* x (/ (pow a (- t 1)) y)) (- (+ b 1) (* y (log z)))) (if (< t 852031.2288374073) (/ (* (/ x y) (pow a (- t 1))) (exp (- b (* (log z) y)))) (/ (* x (/ (pow a (- t 1)) y)) (- (+ b 1) (* y (log z))))))
(/ (* x (exp (- (+ (* y (log z)) (* (- t 1) (log a))) b))) y))