\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 r31729 = b;
double r31730 = -r31729;
double r31731 = r31729 * r31729;
double r31732 = 4.0;
double r31733 = a;
double r31734 = r31732 * r31733;
double r31735 = c;
double r31736 = r31734 * r31735;
double r31737 = r31731 - r31736;
double r31738 = sqrt(r31737);
double r31739 = r31730 + r31738;
double r31740 = 2.0;
double r31741 = r31740 * r31733;
double r31742 = r31739 / r31741;
return r31742;
}
double f(double a, double b, double c) {
double r31743 = 1.0;
double r31744 = 2.0;
double r31745 = r31743 / r31744;
double r31746 = 4.0;
double r31747 = a;
double r31748 = c;
double r31749 = r31747 * r31748;
double r31750 = r31746 * r31749;
double r31751 = b;
double r31752 = -r31751;
double r31753 = r31751 * r31751;
double r31754 = r31746 * r31747;
double r31755 = r31754 * r31748;
double r31756 = r31753 - r31755;
double r31757 = sqrt(r31756);
double r31758 = r31752 - r31757;
double r31759 = r31747 * r31758;
double r31760 = r31750 / r31759;
double r31761 = r31745 * r31760;
return r31761;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 52.8
rmApplied flip-+52.8
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 2020059
(FPCore (a b c)
:name "Quadratic roots, wide range"
:precision binary64
:pre (and (< 4.9303800000000003e-32 a 2.02824e+31) (< 4.9303800000000003e-32 b 2.02824e+31) (< 4.9303800000000003e-32 c 2.02824e+31))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)))