\frac{x \cdot e^{\left(y \cdot \log z + \left(t - 1\right) \cdot \log a\right) - b}}{y}\frac{x}{\left(y \cdot e^{\left(b - \log a \cdot t\right) - \log z \cdot y}\right) \cdot \frac{1}{{a}^{\left(-1\right)}}}double f(double x, double y, double z, double t, double a, double b) {
double r944067 = x;
double r944068 = y;
double r944069 = z;
double r944070 = log(r944069);
double r944071 = r944068 * r944070;
double r944072 = t;
double r944073 = 1.0;
double r944074 = r944072 - r944073;
double r944075 = a;
double r944076 = log(r944075);
double r944077 = r944074 * r944076;
double r944078 = r944071 + r944077;
double r944079 = b;
double r944080 = r944078 - r944079;
double r944081 = exp(r944080);
double r944082 = r944067 * r944081;
double r944083 = r944082 / r944068;
return r944083;
}
double f(double x, double y, double z, double t, double a, double b) {
double r944084 = x;
double r944085 = y;
double r944086 = b;
double r944087 = a;
double r944088 = log(r944087);
double r944089 = t;
double r944090 = r944088 * r944089;
double r944091 = r944086 - r944090;
double r944092 = z;
double r944093 = log(r944092);
double r944094 = r944093 * r944085;
double r944095 = r944091 - r944094;
double r944096 = exp(r944095);
double r944097 = r944085 * r944096;
double r944098 = 1.0;
double r944099 = 1.0;
double r944100 = -r944099;
double r944101 = pow(r944087, r944100);
double r944102 = r944098 / r944101;
double r944103 = r944097 * r944102;
double r944104 = r944084 / r944103;
return r944104;
}




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 | 1.9 |
|---|---|
| Target | 11.1 |
| Herbie | 1.5 |
Initial program 1.9
Taylor expanded around inf 1.9
Simplified1.1
rmApplied associate-/l*1.5
Simplified1.5
rmApplied div-inv1.5
Final simplification1.5
herbie shell --seed 2019209
(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.88458485041274715) (/ (* x (/ (pow a (- t 1)) y)) (- (+ b 1) (* y (log z)))) (if (< t 852031.22883740731) (/ (* (/ 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))