\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\frac{\frac{1}{1}}{\left(\frac{2}{4} \cdot \frac{1}{c}\right) \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 r38537 = b;
double r38538 = -r38537;
double r38539 = r38537 * r38537;
double r38540 = 4.0;
double r38541 = a;
double r38542 = r38540 * r38541;
double r38543 = c;
double r38544 = r38542 * r38543;
double r38545 = r38539 - r38544;
double r38546 = sqrt(r38545);
double r38547 = r38538 + r38546;
double r38548 = 2.0;
double r38549 = r38548 * r38541;
double r38550 = r38547 / r38549;
return r38550;
}
double f(double a, double b, double c) {
double r38551 = 1.0;
double r38552 = r38551 / r38551;
double r38553 = 2.0;
double r38554 = 4.0;
double r38555 = r38553 / r38554;
double r38556 = c;
double r38557 = r38551 / r38556;
double r38558 = r38555 * r38557;
double r38559 = b;
double r38560 = -r38559;
double r38561 = r38559 * r38559;
double r38562 = a;
double r38563 = r38554 * r38562;
double r38564 = r38563 * r38556;
double r38565 = r38561 - r38564;
double r38566 = sqrt(r38565);
double r38567 = r38560 - r38566;
double r38568 = r38558 * r38567;
double r38569 = r38552 / r38568;
return r38569;
}



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 associate-/l*0.5
Simplified0.5
rmApplied times-frac0.5
Simplified0.4
Final simplification0.4
herbie shell --seed 2020057 +o rules:numerics
(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)))