\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 -3.0275863925679783 \cdot 10^{116}:\\
\;\;\;\;\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}:\\
\;\;\;\;\left(2 \cdot c\right) \cdot \frac{1}{\left(-b\right) + \left(2 \cdot \left(\frac{a}{\sqrt[3]{b} \cdot \sqrt[3]{b}} \cdot \frac{c}{\sqrt[3]{b}}\right) - b\right)}\\
\end{array}\\
\mathbf{elif}\;b \le 1.2919983862558445 \cdot 10^{30}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \sqrt{\sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \sqrt{\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}\\
\mathbf{elif}\;b \ge 0.0:\\
\;\;\;\;\frac{\left(-b\right) - \left(b - 2 \cdot \frac{a \cdot c}{b}\right)}{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}double f(double a, double b, double c) {
double r49571 = b;
double r49572 = 0.0;
bool r49573 = r49571 >= r49572;
double r49574 = -r49571;
double r49575 = r49571 * r49571;
double r49576 = 4.0;
double r49577 = a;
double r49578 = r49576 * r49577;
double r49579 = c;
double r49580 = r49578 * r49579;
double r49581 = r49575 - r49580;
double r49582 = sqrt(r49581);
double r49583 = r49574 - r49582;
double r49584 = 2.0;
double r49585 = r49584 * r49577;
double r49586 = r49583 / r49585;
double r49587 = r49584 * r49579;
double r49588 = r49574 + r49582;
double r49589 = r49587 / r49588;
double r49590 = r49573 ? r49586 : r49589;
return r49590;
}
double f(double a, double b, double c) {
double r49591 = b;
double r49592 = -3.0275863925679783e+116;
bool r49593 = r49591 <= r49592;
double r49594 = 0.0;
bool r49595 = r49591 >= r49594;
double r49596 = -r49591;
double r49597 = r49591 * r49591;
double r49598 = 4.0;
double r49599 = a;
double r49600 = r49598 * r49599;
double r49601 = c;
double r49602 = r49600 * r49601;
double r49603 = r49597 - r49602;
double r49604 = sqrt(r49603);
double r49605 = r49596 - r49604;
double r49606 = 2.0;
double r49607 = r49606 * r49599;
double r49608 = r49605 / r49607;
double r49609 = r49606 * r49601;
double r49610 = 1.0;
double r49611 = cbrt(r49591);
double r49612 = r49611 * r49611;
double r49613 = r49599 / r49612;
double r49614 = r49601 / r49611;
double r49615 = r49613 * r49614;
double r49616 = r49606 * r49615;
double r49617 = r49616 - r49591;
double r49618 = r49596 + r49617;
double r49619 = r49610 / r49618;
double r49620 = r49609 * r49619;
double r49621 = r49595 ? r49608 : r49620;
double r49622 = 1.2919983862558445e+30;
bool r49623 = r49591 <= r49622;
double r49624 = sqrt(r49604);
double r49625 = r49624 * r49624;
double r49626 = r49596 - r49625;
double r49627 = r49626 / r49607;
double r49628 = r49596 + r49604;
double r49629 = r49609 / r49628;
double r49630 = r49595 ? r49627 : r49629;
double r49631 = r49599 * r49601;
double r49632 = r49631 / r49591;
double r49633 = r49606 * r49632;
double r49634 = r49591 - r49633;
double r49635 = r49596 - r49634;
double r49636 = r49635 / r49607;
double r49637 = r49595 ? r49636 : r49629;
double r49638 = r49623 ? r49630 : r49637;
double r49639 = r49593 ? r49621 : r49638;
return r49639;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -3.0275863925679783e+116Initial program 30.6
Taylor expanded around -inf 5.8
rmApplied add-cube-cbrt5.8
Applied times-frac2.2
rmApplied div-inv2.3
if -3.0275863925679783e+116 < b < 1.2919983862558445e+30Initial program 9.4
rmApplied add-sqr-sqrt9.4
Applied sqrt-prod9.5
if 1.2919983862558445e+30 < b Initial program 34.2
Taylor expanded around inf 11.7
Final simplification8.4
herbie shell --seed 2020100
(FPCore (a b c)
:name "jeff quadratic root 1"
:precision binary64
(if (>= b 0.0) (/ (- (- b) (sqrt (- (* b b) (* (* 4 a) c)))) (* 2 a)) (/ (* 2 c) (+ (- b) (sqrt (- (* b b) (* (* 4 a) c)))))))