\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\frac{\frac{b \cdot \left(b - b\right) + 4 \cdot \left(a \cdot c\right)}{\mathsf{fma}\left(\sqrt{b}, -\sqrt{b}, -\sqrt{\mathsf{fma}\left(b, b, -c \cdot \left(4 \cdot a\right)\right)}\right)}}{2 \cdot a}double f(double a, double b, double c) {
double r43568 = b;
double r43569 = -r43568;
double r43570 = r43568 * r43568;
double r43571 = 4.0;
double r43572 = a;
double r43573 = r43571 * r43572;
double r43574 = c;
double r43575 = r43573 * r43574;
double r43576 = r43570 - r43575;
double r43577 = sqrt(r43576);
double r43578 = r43569 + r43577;
double r43579 = 2.0;
double r43580 = r43579 * r43572;
double r43581 = r43578 / r43580;
return r43581;
}
double f(double a, double b, double c) {
double r43582 = b;
double r43583 = r43582 - r43582;
double r43584 = r43582 * r43583;
double r43585 = 4.0;
double r43586 = a;
double r43587 = c;
double r43588 = r43586 * r43587;
double r43589 = r43585 * r43588;
double r43590 = r43584 + r43589;
double r43591 = sqrt(r43582);
double r43592 = -r43591;
double r43593 = r43585 * r43586;
double r43594 = r43587 * r43593;
double r43595 = -r43594;
double r43596 = fma(r43582, r43582, r43595);
double r43597 = sqrt(r43596);
double r43598 = -r43597;
double r43599 = fma(r43591, r43592, r43598);
double r43600 = r43590 / r43599;
double r43601 = 2.0;
double r43602 = r43601 * r43586;
double r43603 = r43600 / r43602;
return r43603;
}



Bits error versus a



Bits error versus b



Bits error versus c
Initial program 28.3
rmApplied flip-+28.4
Simplified0.5
rmApplied add-sqr-sqrt0.5
Applied distribute-rgt-neg-in0.5
Applied fma-neg0.5
Simplified0.5
Final simplification0.5
herbie shell --seed 2020042 +o rules:numerics
(FPCore (a b c)
:name "Quadratic roots, narrow range"
:precision binary64
:pre (and (< 1.0536712127723509e-08 a 94906265.62425156) (< 1.0536712127723509e-08 b 94906265.62425156) (< 1.0536712127723509e-08 c 94906265.62425156))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)))