\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\frac{1}{2} \cdot \frac{4 \cdot \left(a \cdot c\right)}{a \cdot \left(\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right)}double f(double a, double b, double c) {
double r32664 = b;
double r32665 = -r32664;
double r32666 = r32664 * r32664;
double r32667 = 4.0;
double r32668 = a;
double r32669 = r32667 * r32668;
double r32670 = c;
double r32671 = r32669 * r32670;
double r32672 = r32666 - r32671;
double r32673 = sqrt(r32672);
double r32674 = r32665 + r32673;
double r32675 = 2.0;
double r32676 = r32675 * r32668;
double r32677 = r32674 / r32676;
return r32677;
}
double f(double a, double b, double c) {
double r32678 = 1.0;
double r32679 = 2.0;
double r32680 = r32678 / r32679;
double r32681 = 4.0;
double r32682 = a;
double r32683 = c;
double r32684 = r32682 * r32683;
double r32685 = r32681 * r32684;
double r32686 = b;
double r32687 = -r32686;
double r32688 = r32686 * r32686;
double r32689 = r32681 * r32682;
double r32690 = r32689 * r32683;
double r32691 = r32688 - r32690;
double r32692 = sqrt(r32691);
double r32693 = r32687 - r32692;
double r32694 = r32682 * r32693;
double r32695 = r32685 / r32694;
double r32696 = r32680 * r32695;
return r32696;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 43.7
rmApplied flip-+43.7
Simplified0.4
rmApplied *-un-lft-identity0.4
Applied *-un-lft-identity0.4
Applied times-frac0.4
Applied times-frac0.4
Simplified0.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2020064
(FPCore (a b c)
:name "Quadratic roots, medium range"
:precision binary64
:pre (and (< 1.11022e-16 a 9.0072e+15) (< 1.11022e-16 b 9.0072e+15) (< 1.11022e-16 c 9.0072e+15))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)))