\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 \left(\mathsf{fma}\left(z, \frac{\sqrt{t + a}}{t}, -\left(b - c\right) \cdot \left(\left(a + \frac{5}{6}\right) - \frac{2}{t \cdot 3}\right)\right) + \left(\left(a + \frac{5}{6}\right) - \frac{2}{t \cdot 3}\right) \cdot \left(\left(-\left(b - c\right)\right) + \left(b - c\right)\right)\right)}}double f(double x, double y, double z, double t, double a, double b, double c) {
double r429432 = x;
double r429433 = y;
double r429434 = 2.0;
double r429435 = z;
double r429436 = t;
double r429437 = a;
double r429438 = r429436 + r429437;
double r429439 = sqrt(r429438);
double r429440 = r429435 * r429439;
double r429441 = r429440 / r429436;
double r429442 = b;
double r429443 = c;
double r429444 = r429442 - r429443;
double r429445 = 5.0;
double r429446 = 6.0;
double r429447 = r429445 / r429446;
double r429448 = r429437 + r429447;
double r429449 = 3.0;
double r429450 = r429436 * r429449;
double r429451 = r429434 / r429450;
double r429452 = r429448 - r429451;
double r429453 = r429444 * r429452;
double r429454 = r429441 - r429453;
double r429455 = r429434 * r429454;
double r429456 = exp(r429455);
double r429457 = r429433 * r429456;
double r429458 = r429432 + r429457;
double r429459 = r429432 / r429458;
return r429459;
}
double f(double x, double y, double z, double t, double a, double b, double c) {
double r429460 = x;
double r429461 = y;
double r429462 = 2.0;
double r429463 = z;
double r429464 = t;
double r429465 = a;
double r429466 = r429464 + r429465;
double r429467 = sqrt(r429466);
double r429468 = r429467 / r429464;
double r429469 = b;
double r429470 = c;
double r429471 = r429469 - r429470;
double r429472 = 5.0;
double r429473 = 6.0;
double r429474 = r429472 / r429473;
double r429475 = r429465 + r429474;
double r429476 = 3.0;
double r429477 = r429464 * r429476;
double r429478 = r429462 / r429477;
double r429479 = r429475 - r429478;
double r429480 = r429471 * r429479;
double r429481 = -r429480;
double r429482 = fma(r429463, r429468, r429481);
double r429483 = -r429471;
double r429484 = r429483 + r429471;
double r429485 = r429479 * r429484;
double r429486 = r429482 + r429485;
double r429487 = r429462 * r429486;
double r429488 = exp(r429487);
double r429489 = r429461 * r429488;
double r429490 = r429460 + r429489;
double r429491 = r429460 / r429490;
return r429491;
}




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.7 |
|---|---|
| Target | 3.0 |
| Herbie | 2.2 |
Initial program 3.7
rmApplied *-un-lft-identity3.7
Applied times-frac3.3
Applied prod-diff22.2
Simplified22.2
Simplified2.2
Final simplification2.2
herbie shell --seed 2020064 +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)))))))))))