\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\frac{1}{2} \cdot \frac{1}{\frac{\frac{1 \cdot \left(\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right)}{c}}{4}}double f(double a, double b, double c) {
double r37086 = b;
double r37087 = -r37086;
double r37088 = r37086 * r37086;
double r37089 = 4.0;
double r37090 = a;
double r37091 = r37089 * r37090;
double r37092 = c;
double r37093 = r37091 * r37092;
double r37094 = r37088 - r37093;
double r37095 = sqrt(r37094);
double r37096 = r37087 + r37095;
double r37097 = 2.0;
double r37098 = r37097 * r37090;
double r37099 = r37096 / r37098;
return r37099;
}
double f(double a, double b, double c) {
double r37100 = 1.0;
double r37101 = 2.0;
double r37102 = r37100 / r37101;
double r37103 = b;
double r37104 = -r37103;
double r37105 = r37103 * r37103;
double r37106 = 4.0;
double r37107 = a;
double r37108 = r37106 * r37107;
double r37109 = c;
double r37110 = r37108 * r37109;
double r37111 = r37105 - r37110;
double r37112 = sqrt(r37111);
double r37113 = r37104 - r37112;
double r37114 = r37100 * r37113;
double r37115 = r37114 / r37109;
double r37116 = r37115 / r37106;
double r37117 = r37100 / r37116;
double r37118 = r37102 * r37117;
return r37118;
}



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
rmApplied clear-num0.5
Simplified0.3
Final simplification0.3
herbie shell --seed 2020027
(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)))