\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)}}\begin{array}{l}
\mathbf{if}\;t \le 1.8858167711329328 \cdot 10^{-294} \lor \neg \left(t \le 4.9280306480090799 \cdot 10^{-215}\right):\\
\;\;\;\;\frac{x}{x + y \cdot e^{2 \cdot \left(\frac{z}{\sqrt[3]{t} \cdot \sqrt[3]{t}} \cdot \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)}}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{x + y \cdot e^{2 \cdot \frac{\left(z \cdot \sqrt{t + a}\right) \cdot \left(\left(a - \frac{5}{6}\right) \cdot \left(t \cdot 3\right)\right) - t \cdot \left(\left(b - c\right) \cdot \left(\left(a \cdot a - \frac{5}{6} \cdot \frac{5}{6}\right) \cdot \left(t \cdot 3\right) - \left(a - \frac{5}{6}\right) \cdot 2\right)\right)}{t \cdot \left(\left(a - \frac{5}{6}\right) \cdot \left(t \cdot 3\right)\right)}}}\\
\end{array}double code(double x, double y, double z, double t, double a, double b, double c) {
return ((double) (x / ((double) (x + ((double) (y * ((double) exp(((double) (2.0 * ((double) (((double) (((double) (z * ((double) sqrt(((double) (t + a)))))) / t)) - ((double) (((double) (b - c)) * ((double) (((double) (a + ((double) (5.0 / 6.0)))) - ((double) (2.0 / ((double) (t * 3.0))))))))))))))))))));
}
double code(double x, double y, double z, double t, double a, double b, double c) {
double VAR;
if (((t <= 1.8858167711329328e-294) || !(t <= 4.92803064800908e-215))) {
VAR = ((double) (x / ((double) (x + ((double) (y * ((double) exp(((double) (2.0 * ((double) (((double) (((double) (z / ((double) (((double) cbrt(t)) * ((double) cbrt(t)))))) * ((double) (((double) sqrt(((double) (t + a)))) / ((double) cbrt(t)))))) - ((double) (((double) (b - c)) * ((double) (((double) (a + ((double) (5.0 / 6.0)))) - ((double) (2.0 / ((double) (t * 3.0))))))))))))))))))));
} else {
VAR = ((double) (x / ((double) (x + ((double) (y * ((double) exp(((double) (2.0 * ((double) (((double) (((double) (((double) (z * ((double) sqrt(((double) (t + a)))))) * ((double) (((double) (a - ((double) (5.0 / 6.0)))) * ((double) (t * 3.0)))))) - ((double) (t * ((double) (((double) (b - c)) * ((double) (((double) (((double) (((double) (a * a)) - ((double) (((double) (5.0 / 6.0)) * ((double) (5.0 / 6.0)))))) * ((double) (t * 3.0)))) - ((double) (((double) (a - ((double) (5.0 / 6.0)))) * 2.0)))))))))) / ((double) (t * ((double) (((double) (a - ((double) (5.0 / 6.0)))) * ((double) (t * 3.0))))))))))))))))));
}
return VAR;
}




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
Results
| Original | 3.7 |
|---|---|
| Target | 3.0 |
| Herbie | 2.9 |
if t < 1.8858167711329328e-294 or 4.92803064800908e-215 < t Initial program 3.4
rmApplied add-cube-cbrt3.4
Applied times-frac2.2
if 1.8858167711329328e-294 < t < 4.92803064800908e-215Initial program 7.7
rmApplied flip-+13.0
Applied frac-sub13.0
Applied associate-*r/13.0
Applied frac-sub12.0
Final simplification2.9
herbie shell --seed 2020123
(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)))))))))))