\frac{x \cdot e^{\left(y \cdot \log z + \left(t - 1\right) \cdot \log a\right) - b}}{y}\frac{x}{\frac{y}{\frac{{\left(\frac{1}{a}\right)}^{1}}{e^{\mathsf{fma}\left(y, \log \left(\frac{1}{z}\right), \mathsf{fma}\left(\log \left(\frac{1}{a}\right), t, b\right)\right)}}}}double f(double x, double y, double z, double t, double a, double b) {
double r492633 = x;
double r492634 = y;
double r492635 = z;
double r492636 = log(r492635);
double r492637 = r492634 * r492636;
double r492638 = t;
double r492639 = 1.0;
double r492640 = r492638 - r492639;
double r492641 = a;
double r492642 = log(r492641);
double r492643 = r492640 * r492642;
double r492644 = r492637 + r492643;
double r492645 = b;
double r492646 = r492644 - r492645;
double r492647 = exp(r492646);
double r492648 = r492633 * r492647;
double r492649 = r492648 / r492634;
return r492649;
}
double f(double x, double y, double z, double t, double a, double b) {
double r492650 = x;
double r492651 = y;
double r492652 = 1.0;
double r492653 = a;
double r492654 = r492652 / r492653;
double r492655 = 1.0;
double r492656 = pow(r492654, r492655);
double r492657 = z;
double r492658 = r492652 / r492657;
double r492659 = log(r492658);
double r492660 = log(r492654);
double r492661 = t;
double r492662 = b;
double r492663 = fma(r492660, r492661, r492662);
double r492664 = fma(r492651, r492659, r492663);
double r492665 = exp(r492664);
double r492666 = r492656 / r492665;
double r492667 = r492651 / r492666;
double r492668 = r492650 / r492667;
return r492668;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a




Bits error versus b
| Original | 2.0 |
|---|---|
| Target | 11.4 |
| Herbie | 1.3 |
Initial program 2.0
Taylor expanded around inf 2.0
Simplified1.3
rmApplied associate-/l*1.3
Final simplification1.3
herbie shell --seed 2020060 +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))