\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\
\end{array}\begin{array}{l}
\mathbf{if}\;b \le -1.324864325643053455864916481746591342368 \cdot 10^{158}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\left(2 \cdot \frac{c \cdot a}{b} - b\right) + \left(-b\right)}\\
\end{array}\\
\mathbf{elif}\;b \le 8.750034852221898580589073962915397741844 \cdot 10^{142}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{\sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c}} \cdot \sqrt{\sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c}}}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c} + \left(-b\right)}\\
\end{array}\\
\mathbf{elif}\;b \ge 0.0:\\
\;\;\;\;\left(\frac{c}{b} - \frac{b}{a}\right) \cdot 1\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c} + \left(-b\right)}\\
\end{array}double f(double a, double b, double c) {
double r1446192 = b;
double r1446193 = 0.0;
bool r1446194 = r1446192 >= r1446193;
double r1446195 = -r1446192;
double r1446196 = r1446192 * r1446192;
double r1446197 = 4.0;
double r1446198 = a;
double r1446199 = r1446197 * r1446198;
double r1446200 = c;
double r1446201 = r1446199 * r1446200;
double r1446202 = r1446196 - r1446201;
double r1446203 = sqrt(r1446202);
double r1446204 = r1446195 - r1446203;
double r1446205 = 2.0;
double r1446206 = r1446205 * r1446198;
double r1446207 = r1446204 / r1446206;
double r1446208 = r1446205 * r1446200;
double r1446209 = r1446195 + r1446203;
double r1446210 = r1446208 / r1446209;
double r1446211 = r1446194 ? r1446207 : r1446210;
return r1446211;
}
double f(double a, double b, double c) {
double r1446212 = b;
double r1446213 = -1.3248643256430535e+158;
bool r1446214 = r1446212 <= r1446213;
double r1446215 = 0.0;
bool r1446216 = r1446212 >= r1446215;
double r1446217 = -r1446212;
double r1446218 = r1446212 * r1446212;
double r1446219 = a;
double r1446220 = 4.0;
double r1446221 = r1446219 * r1446220;
double r1446222 = c;
double r1446223 = r1446221 * r1446222;
double r1446224 = r1446218 - r1446223;
double r1446225 = sqrt(r1446224);
double r1446226 = r1446217 - r1446225;
double r1446227 = 2.0;
double r1446228 = r1446227 * r1446219;
double r1446229 = r1446226 / r1446228;
double r1446230 = r1446222 * r1446227;
double r1446231 = r1446222 * r1446219;
double r1446232 = r1446231 / r1446212;
double r1446233 = r1446227 * r1446232;
double r1446234 = r1446233 - r1446212;
double r1446235 = r1446234 + r1446217;
double r1446236 = r1446230 / r1446235;
double r1446237 = r1446216 ? r1446229 : r1446236;
double r1446238 = 8.750034852221899e+142;
bool r1446239 = r1446212 <= r1446238;
double r1446240 = sqrt(r1446225);
double r1446241 = r1446240 * r1446240;
double r1446242 = r1446217 - r1446241;
double r1446243 = r1446242 / r1446228;
double r1446244 = r1446225 + r1446217;
double r1446245 = r1446230 / r1446244;
double r1446246 = r1446216 ? r1446243 : r1446245;
double r1446247 = r1446222 / r1446212;
double r1446248 = r1446212 / r1446219;
double r1446249 = r1446247 - r1446248;
double r1446250 = 1.0;
double r1446251 = r1446249 * r1446250;
double r1446252 = r1446216 ? r1446251 : r1446245;
double r1446253 = r1446239 ? r1446246 : r1446252;
double r1446254 = r1446214 ? r1446237 : r1446253;
return r1446254;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -1.3248643256430535e+158Initial program 38.3
Taylor expanded around -inf 7.0
if -1.3248643256430535e+158 < b < 8.750034852221899e+142Initial program 8.6
rmApplied add-sqr-sqrt8.6
Applied sqrt-prod8.8
if 8.750034852221899e+142 < b Initial program 59.9
Taylor expanded around inf 9.8
Taylor expanded around 0 2.1
Simplified2.1
Final simplification7.7
herbie shell --seed 2019200
(FPCore (a b c)
:name "jeff quadratic root 1"
(if (>= b 0.0) (/ (- (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))))))