\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\begin{array}{l}
\mathbf{if}\;b \le 2.0899682798920903 \cdot 10^{-5}:\\
\;\;\;\;\frac{\sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} \cdot \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} - b \cdot b}{\left(3 \cdot a\right) \cdot \left(\sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} + b\right)}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r150575 = b;
double r150576 = -r150575;
double r150577 = r150575 * r150575;
double r150578 = 3.0;
double r150579 = a;
double r150580 = r150578 * r150579;
double r150581 = c;
double r150582 = r150580 * r150581;
double r150583 = r150577 - r150582;
double r150584 = sqrt(r150583);
double r150585 = r150576 + r150584;
double r150586 = r150585 / r150580;
return r150586;
}
double f(double a, double b, double c) {
double r150587 = b;
double r150588 = 2.0899682798920903e-05;
bool r150589 = r150587 <= r150588;
double r150590 = r150587 * r150587;
double r150591 = 3.0;
double r150592 = a;
double r150593 = r150591 * r150592;
double r150594 = c;
double r150595 = r150593 * r150594;
double r150596 = r150590 - r150595;
double r150597 = sqrt(r150596);
double r150598 = r150597 * r150597;
double r150599 = r150598 - r150590;
double r150600 = r150597 + r150587;
double r150601 = r150593 * r150600;
double r150602 = r150599 / r150601;
double r150603 = -0.5;
double r150604 = r150594 / r150587;
double r150605 = r150603 * r150604;
double r150606 = r150589 ? r150602 : r150605;
return r150606;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < 2.0899682798920903e-05Initial program 18.0
Simplified18.0
rmApplied flip--18.0
Applied associate-/l/18.0
if 2.0899682798920903e-05 < b Initial program 45.5
Simplified45.5
Taylor expanded around inf 10.8
Final simplification11.2
herbie shell --seed 2020045 +o rules:numerics
(FPCore (a b c)
:name "Cubic critical, 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) (* (* 3 a) c)))) (* 3 a)))