\frac{x \cdot e^{\left(y \cdot \log z + \left(t - 1\right) \cdot \log a\right) - b}}{y}{\left(\frac{1}{{a}^{1}}\right)}^{1} \cdot \frac{x}{e^{\log \left(\frac{1}{z}\right) \cdot y + \left(\log \left(\frac{1}{a}\right) \cdot t + b\right)} \cdot y}double f(double x, double y, double z, double t, double a, double b) {
double r383144 = x;
double r383145 = y;
double r383146 = z;
double r383147 = log(r383146);
double r383148 = r383145 * r383147;
double r383149 = t;
double r383150 = 1.0;
double r383151 = r383149 - r383150;
double r383152 = a;
double r383153 = log(r383152);
double r383154 = r383151 * r383153;
double r383155 = r383148 + r383154;
double r383156 = b;
double r383157 = r383155 - r383156;
double r383158 = exp(r383157);
double r383159 = r383144 * r383158;
double r383160 = r383159 / r383145;
return r383160;
}
double f(double x, double y, double z, double t, double a, double b) {
double r383161 = 1.0;
double r383162 = a;
double r383163 = 1.0;
double r383164 = pow(r383162, r383163);
double r383165 = r383161 / r383164;
double r383166 = pow(r383165, r383163);
double r383167 = x;
double r383168 = z;
double r383169 = r383161 / r383168;
double r383170 = log(r383169);
double r383171 = y;
double r383172 = r383170 * r383171;
double r383173 = r383161 / r383162;
double r383174 = log(r383173);
double r383175 = t;
double r383176 = r383174 * r383175;
double r383177 = b;
double r383178 = r383176 + r383177;
double r383179 = r383172 + r383178;
double r383180 = exp(r383179);
double r383181 = r383180 * r383171;
double r383182 = r383167 / r383181;
double r383183 = r383166 * r383182;
return r383183;
}




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 | 10.4 |
| Herbie | 1.3 |
Initial program 1.9
Taylor expanded around inf 1.9
Simplified1.1
rmApplied associate-/l*1.3
Taylor expanded around inf 1.3
Final simplification1.3
herbie shell --seed 2020001 +o rules:numerics
(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))