\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.132241338163917783305627833046111956144 \cdot 10^{101}:\\
\;\;\;\;\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{c \cdot 2}{\left(-b\right) + \left(\left(c \cdot 2\right) \cdot \frac{a}{b} - b\right)}\\
\end{array}\\
\mathbf{elif}\;b \le 1.042426094136287989665052757228371789389 \cdot 10^{152}:\\
\;\;\;\;\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{c \cdot 2}{\left(-b\right) + \sqrt{\sqrt{\sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \sqrt{\sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c} \cdot \sqrt[3]{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot \sqrt{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}}\\
\end{array}\\
\mathbf{elif}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \left(b - \left(c \cdot 2\right) \cdot \frac{a}{b}\right)}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c} + \left(-b\right)}\\
\end{array}double f(double a, double b, double c) {
double r1470385 = b;
double r1470386 = 0.0;
bool r1470387 = r1470385 >= r1470386;
double r1470388 = -r1470385;
double r1470389 = r1470385 * r1470385;
double r1470390 = 4.0;
double r1470391 = a;
double r1470392 = r1470390 * r1470391;
double r1470393 = c;
double r1470394 = r1470392 * r1470393;
double r1470395 = r1470389 - r1470394;
double r1470396 = sqrt(r1470395);
double r1470397 = r1470388 - r1470396;
double r1470398 = 2.0;
double r1470399 = r1470398 * r1470391;
double r1470400 = r1470397 / r1470399;
double r1470401 = r1470398 * r1470393;
double r1470402 = r1470388 + r1470396;
double r1470403 = r1470401 / r1470402;
double r1470404 = r1470387 ? r1470400 : r1470403;
return r1470404;
}
double f(double a, double b, double c) {
double r1470405 = b;
double r1470406 = -1.1322413381639178e+101;
bool r1470407 = r1470405 <= r1470406;
double r1470408 = 0.0;
bool r1470409 = r1470405 >= r1470408;
double r1470410 = -r1470405;
double r1470411 = r1470405 * r1470405;
double r1470412 = 4.0;
double r1470413 = a;
double r1470414 = r1470412 * r1470413;
double r1470415 = c;
double r1470416 = r1470414 * r1470415;
double r1470417 = r1470411 - r1470416;
double r1470418 = sqrt(r1470417);
double r1470419 = r1470410 - r1470418;
double r1470420 = 2.0;
double r1470421 = r1470420 * r1470413;
double r1470422 = r1470419 / r1470421;
double r1470423 = r1470415 * r1470420;
double r1470424 = r1470413 / r1470405;
double r1470425 = r1470423 * r1470424;
double r1470426 = r1470425 - r1470405;
double r1470427 = r1470410 + r1470426;
double r1470428 = r1470423 / r1470427;
double r1470429 = r1470409 ? r1470422 : r1470428;
double r1470430 = 1.042426094136288e+152;
bool r1470431 = r1470405 <= r1470430;
double r1470432 = cbrt(r1470417);
double r1470433 = sqrt(r1470432);
double r1470434 = r1470432 * r1470432;
double r1470435 = sqrt(r1470434);
double r1470436 = r1470433 * r1470435;
double r1470437 = sqrt(r1470436);
double r1470438 = sqrt(r1470418);
double r1470439 = r1470437 * r1470438;
double r1470440 = r1470410 + r1470439;
double r1470441 = r1470423 / r1470440;
double r1470442 = r1470409 ? r1470422 : r1470441;
double r1470443 = r1470405 - r1470425;
double r1470444 = r1470410 - r1470443;
double r1470445 = r1470444 / r1470421;
double r1470446 = r1470418 + r1470410;
double r1470447 = r1470423 / r1470446;
double r1470448 = r1470409 ? r1470445 : r1470447;
double r1470449 = r1470431 ? r1470442 : r1470448;
double r1470450 = r1470407 ? r1470429 : r1470449;
return r1470450;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -1.1322413381639178e+101Initial program 30.5
Taylor expanded around -inf 6.6
Simplified2.3
if -1.1322413381639178e+101 < b < 1.042426094136288e+152Initial program 8.8
rmApplied add-sqr-sqrt8.8
Applied sqrt-prod8.9
rmApplied add-cube-cbrt8.9
Applied sqrt-prod8.9
if 1.042426094136288e+152 < b Initial program 62.9
Taylor expanded around inf 11.0
Simplified3.0
Final simplification6.7
herbie shell --seed 2019172
(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)))))))