\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\frac{0 + 4 \cdot \left(a \cdot c\right)}{\left(2 \cdot a\right) \cdot \left(\left(-b\right) - \sqrt{\frac{{\left(b \cdot b\right)}^{3} - {\left(\left(4 \cdot a\right) \cdot c\right)}^{3}}{\mathsf{fma}\left(4 \cdot \left(a \cdot c\right), \mathsf{fma}\left(b, b, \left(4 \cdot a\right) \cdot c\right), \left(b \cdot b\right) \cdot \left(b \cdot b\right)\right)}}\right)}double f(double a, double b, double c) {
double r33153 = b;
double r33154 = -r33153;
double r33155 = r33153 * r33153;
double r33156 = 4.0;
double r33157 = a;
double r33158 = r33156 * r33157;
double r33159 = c;
double r33160 = r33158 * r33159;
double r33161 = r33155 - r33160;
double r33162 = sqrt(r33161);
double r33163 = r33154 + r33162;
double r33164 = 2.0;
double r33165 = r33164 * r33157;
double r33166 = r33163 / r33165;
return r33166;
}
double f(double a, double b, double c) {
double r33167 = 0.0;
double r33168 = 4.0;
double r33169 = a;
double r33170 = c;
double r33171 = r33169 * r33170;
double r33172 = r33168 * r33171;
double r33173 = r33167 + r33172;
double r33174 = 2.0;
double r33175 = r33174 * r33169;
double r33176 = b;
double r33177 = -r33176;
double r33178 = r33176 * r33176;
double r33179 = 3.0;
double r33180 = pow(r33178, r33179);
double r33181 = r33168 * r33169;
double r33182 = r33181 * r33170;
double r33183 = pow(r33182, r33179);
double r33184 = r33180 - r33183;
double r33185 = fma(r33176, r33176, r33182);
double r33186 = r33178 * r33178;
double r33187 = fma(r33172, r33185, r33186);
double r33188 = r33184 / r33187;
double r33189 = sqrt(r33188);
double r33190 = r33177 - r33189;
double r33191 = r33175 * r33190;
double r33192 = r33173 / r33191;
return r33192;
}



Bits error versus a



Bits error versus b



Bits error versus c
Initial program 43.3
rmApplied flip-+43.4
Simplified0.4
rmApplied div-inv0.5
Applied associate-/l*0.5
Simplified0.4
rmApplied flip3--0.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2019347 +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)))