\frac{x}{x + y \cdot e^{2 \cdot \left(\frac{z \cdot \sqrt{t + a}}{t} - \left(b - c\right) \cdot \left(\left(a + \frac{5}{6}\right) - \frac{2}{t \cdot 3}\right)\right)}}\frac{x}{x + y \cdot e^{2 \cdot \mathsf{fma}\left(\frac{z}{\sqrt[3]{t} \cdot \sqrt[3]{t}}, \frac{\sqrt{t + a}}{\sqrt[3]{t}}, -\left(b - c\right) \cdot \left(\left(a + \frac{5}{6}\right) - \frac{2}{t \cdot 3}\right)\right)}}double f(double x, double y, double z, double t, double a, double b, double c) {
double r511913 = x;
double r511914 = y;
double r511915 = 2.0;
double r511916 = z;
double r511917 = t;
double r511918 = a;
double r511919 = r511917 + r511918;
double r511920 = sqrt(r511919);
double r511921 = r511916 * r511920;
double r511922 = r511921 / r511917;
double r511923 = b;
double r511924 = c;
double r511925 = r511923 - r511924;
double r511926 = 5.0;
double r511927 = 6.0;
double r511928 = r511926 / r511927;
double r511929 = r511918 + r511928;
double r511930 = 3.0;
double r511931 = r511917 * r511930;
double r511932 = r511915 / r511931;
double r511933 = r511929 - r511932;
double r511934 = r511925 * r511933;
double r511935 = r511922 - r511934;
double r511936 = r511915 * r511935;
double r511937 = exp(r511936);
double r511938 = r511914 * r511937;
double r511939 = r511913 + r511938;
double r511940 = r511913 / r511939;
return r511940;
}
double f(double x, double y, double z, double t, double a, double b, double c) {
double r511941 = x;
double r511942 = y;
double r511943 = 2.0;
double r511944 = z;
double r511945 = t;
double r511946 = cbrt(r511945);
double r511947 = r511946 * r511946;
double r511948 = r511944 / r511947;
double r511949 = a;
double r511950 = r511945 + r511949;
double r511951 = sqrt(r511950);
double r511952 = r511951 / r511946;
double r511953 = b;
double r511954 = c;
double r511955 = r511953 - r511954;
double r511956 = 5.0;
double r511957 = 6.0;
double r511958 = r511956 / r511957;
double r511959 = r511949 + r511958;
double r511960 = 3.0;
double r511961 = r511945 * r511960;
double r511962 = r511943 / r511961;
double r511963 = r511959 - r511962;
double r511964 = r511955 * r511963;
double r511965 = -r511964;
double r511966 = fma(r511948, r511952, r511965);
double r511967 = r511943 * r511966;
double r511968 = exp(r511967);
double r511969 = r511942 * r511968;
double r511970 = r511941 + r511969;
double r511971 = r511941 / r511970;
return r511971;
}




Bits error versus x




Bits error versus y




Bits error versus z




Bits error versus t




Bits error versus a




Bits error versus b




Bits error versus c
| Original | 3.8 |
|---|---|
| Target | 3.1 |
| Herbie | 1.8 |
Initial program 3.8
rmApplied add-cube-cbrt3.8
Applied times-frac2.6
Applied fma-neg1.8
Final simplification1.8
herbie shell --seed 2020060 +o rules:numerics
(FPCore (x y z t a b c)
:name "Numeric.SpecFunctions:invIncompleteBetaWorker from math-functions-0.1.5.2, I"
:precision binary64
:herbie-target
(if (< t -2.118326644891581e-50) (/ x (+ x (* y (exp (* 2 (- (+ (* a c) (* 0.8333333333333334 c)) (* a b))))))) (if (< t 5.196588770651547e-123) (/ x (+ x (* y (exp (* 2 (/ (- (* (* z (sqrt (+ t a))) (* (* 3 t) (- a (/ 5 6)))) (* (- (* (+ (/ 5 6) a) (* 3 t)) 2) (* (- a (/ 5 6)) (* (- b c) t)))) (* (* (* t t) 3) (- a (/ 5 6))))))))) (/ x (+ x (* y (exp (* 2 (- (/ (* z (sqrt (+ t a))) t) (* (- b c) (- (+ a (/ 5 6)) (/ 2 (* t 3))))))))))))
(/ x (+ x (* y (exp (* 2 (- (/ (* z (sqrt (+ t a))) t) (* (- b c) (- (+ a (/ 5 6)) (/ 2 (* t 3)))))))))))