\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 401.040135740652715412579709663987159729:\\
\;\;\;\;\frac{\frac{b \cdot b - \mathsf{fma}\left(b, b, \left(3 \cdot a\right) \cdot c\right)}{b + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{3 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r54665 = b;
double r54666 = -r54665;
double r54667 = r54665 * r54665;
double r54668 = 3.0;
double r54669 = a;
double r54670 = r54668 * r54669;
double r54671 = c;
double r54672 = r54670 * r54671;
double r54673 = r54667 - r54672;
double r54674 = sqrt(r54673);
double r54675 = r54666 + r54674;
double r54676 = r54675 / r54670;
return r54676;
}
double f(double a, double b, double c) {
double r54677 = b;
double r54678 = 401.0401357406527;
bool r54679 = r54677 <= r54678;
double r54680 = r54677 * r54677;
double r54681 = 3.0;
double r54682 = a;
double r54683 = r54681 * r54682;
double r54684 = c;
double r54685 = r54683 * r54684;
double r54686 = fma(r54677, r54677, r54685);
double r54687 = r54680 - r54686;
double r54688 = r54680 - r54685;
double r54689 = sqrt(r54688);
double r54690 = r54677 + r54689;
double r54691 = r54687 / r54690;
double r54692 = r54691 / r54683;
double r54693 = -0.5;
double r54694 = r54684 / r54677;
double r54695 = r54693 * r54694;
double r54696 = r54679 ? r54692 : r54695;
return r54696;
}



Bits error versus a



Bits error versus b



Bits error versus c
if b < 401.0401357406527Initial program 16.4
Simplified16.4
rmApplied flip--16.4
Simplified15.7
Simplified15.7
if 401.0401357406527 < b Initial program 35.2
Simplified35.2
Taylor expanded around inf 17.1
Final simplification16.6
herbie shell --seed 2019323 +o rules:numerics
(FPCore (a b c)
:name "Cubic critical, narrow range"
:precision binary64
:pre (and (< 1.0536712127723509e-08 a 94906265.62425156) (< 1.0536712127723509e-08 b 94906265.62425156) (< 1.0536712127723509e-08 c 94906265.62425156))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))