\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\frac{\frac{\left(a \cdot 4\right) \cdot c}{a}}{-\mathsf{fma}\left(\sqrt{b}, \sqrt{b}, \sqrt{\mathsf{fma}\left(-c, a \cdot 4, b \cdot b\right)}\right)} \cdot \frac{1}{2}double f(double a, double b, double c) {
double r41155 = b;
double r41156 = -r41155;
double r41157 = r41155 * r41155;
double r41158 = 4.0;
double r41159 = a;
double r41160 = r41158 * r41159;
double r41161 = c;
double r41162 = r41160 * r41161;
double r41163 = r41157 - r41162;
double r41164 = sqrt(r41163);
double r41165 = r41156 + r41164;
double r41166 = 2.0;
double r41167 = r41166 * r41159;
double r41168 = r41165 / r41167;
return r41168;
}
double f(double a, double b, double c) {
double r41169 = a;
double r41170 = 4.0;
double r41171 = r41169 * r41170;
double r41172 = c;
double r41173 = r41171 * r41172;
double r41174 = r41173 / r41169;
double r41175 = b;
double r41176 = sqrt(r41175);
double r41177 = -r41172;
double r41178 = r41175 * r41175;
double r41179 = fma(r41177, r41171, r41178);
double r41180 = sqrt(r41179);
double r41181 = fma(r41176, r41176, r41180);
double r41182 = -r41181;
double r41183 = r41174 / r41182;
double r41184 = 1.0;
double r41185 = 2.0;
double r41186 = r41184 / r41185;
double r41187 = r41183 * r41186;
return r41187;
}



Bits error versus a



Bits error versus b



Bits error versus c
Initial program 28.2
rmApplied flip-+28.2
Simplified0.5
Simplified0.5
rmApplied *-un-lft-identity0.5
Applied *-un-lft-identity0.5
Applied times-frac0.5
Applied times-frac0.5
Simplified0.5
Simplified0.3
rmApplied add-sqr-sqrt0.5
Applied fma-def0.4
Final simplification0.4
herbie shell --seed 2019194 +o rules:numerics
(FPCore (a b c)
:name "Quadratic roots, narrow range"
:pre (and (< 1.0536712127723509e-08 a 94906265.62425156) (< 1.0536712127723509e-08 b 94906265.62425156) (< 1.0536712127723509e-08 c 94906265.62425156))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))