x \cdot e^{y \cdot \left(\log z - t\right) + a \cdot \left(\log \left(1 - z\right) - b\right)}x \cdot e^{\mathsf{fma}\left(y, \log z - t, \mathsf{fma}\left(\sqrt[3]{\log 1 - \left(\frac{1}{2} \cdot \frac{{z}^{2}}{{1}^{2}} + 1 \cdot z\right)} \cdot \sqrt[3]{\log 1 - \left(\frac{1}{2} \cdot \frac{{z}^{2}}{{1}^{2}} + 1 \cdot z\right)}, \sqrt[3]{\log 1 - \left(\frac{1}{2} \cdot \frac{{z}^{2}}{{1}^{2}} + 1 \cdot z\right)}, -b \cdot 1\right) \cdot a\right) + \mathsf{fma}\left(-b, 1, b \cdot 1\right) \cdot a}double code(double x, double y, double z, double t, double a, double b) {
return ((double) (x * ((double) exp(((double) (((double) (y * ((double) (((double) log(z)) - t)))) + ((double) (a * ((double) (((double) log(((double) (1.0 - z)))) - b))))))))));
}
double code(double x, double y, double z, double t, double a, double b) {
return ((double) (x * ((double) exp(((double) (((double) fma(y, ((double) (((double) log(z)) - t)), ((double) (((double) fma(((double) (((double) cbrt(((double) (((double) log(1.0)) - ((double) (((double) (0.5 * ((double) (((double) pow(z, 2.0)) / ((double) pow(1.0, 2.0)))))) + ((double) (1.0 * z)))))))) * ((double) cbrt(((double) (((double) log(1.0)) - ((double) (((double) (0.5 * ((double) (((double) pow(z, 2.0)) / ((double) pow(1.0, 2.0)))))) + ((double) (1.0 * z)))))))))), ((double) cbrt(((double) (((double) log(1.0)) - ((double) (((double) (0.5 * ((double) (((double) pow(z, 2.0)) / ((double) pow(1.0, 2.0)))))) + ((double) (1.0 * z)))))))), ((double) -(((double) (b * 1.0)))))) * a)))) + ((double) (((double) fma(((double) -(b)), 1.0, ((double) (b * 1.0)))) * a))))))));
}



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
Initial program 2.0
Taylor expanded around 0 0.5
rmApplied *-un-lft-identity0.5
Applied add-cube-cbrt0.5
Applied prod-diff0.5
Applied distribute-rgt-in0.5
Applied associate-+r+0.5
Simplified0.3
Final simplification0.3
herbie shell --seed 2020113 +o rules:numerics
(FPCore (x y z t a b)
:name "Numeric.SpecFunctions:incompleteBetaApprox from math-functions-0.1.5.2, B"
:precision binary64
(* x (exp (+ (* y (- (log z) t)) (* a (- (log (- 1 z)) b))))))