\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.29357534225476664 \cdot 10^{102}:\\
\;\;\;\;0.5 \cdot \frac{c}{b} - 0.66666666666666663 \cdot \frac{b}{a}\\
\mathbf{elif}\;b \le -1.1994977793869009 \cdot 10^{-240}:\\
\;\;\;\;\left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right) \cdot \frac{1}{3 \cdot a}\\
\mathbf{elif}\;b \le 8.3790388975916793 \cdot 10^{-6}:\\
\;\;\;\;\frac{a \cdot \frac{c}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\
\end{array}double code(double a, double b, double c) {
return ((-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a));
}
double code(double a, double b, double c) {
double VAR;
if ((b <= -2.2935753422547666e+102)) {
VAR = ((0.5 * (c / b)) - (0.6666666666666666 * (b / a)));
} else {
double VAR_1;
if ((b <= -1.1994977793869009e-240)) {
VAR_1 = ((-b + sqrt(((b * b) - ((3.0 * a) * c)))) * (1.0 / (3.0 * a)));
} else {
double VAR_2;
if ((b <= 8.37903889759168e-06)) {
VAR_2 = ((a * (c / (-b - sqrt(((b * b) - ((3.0 * a) * c)))))) / a);
} else {
VAR_2 = (-0.5 * (c / b));
}
VAR_1 = VAR_2;
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -2.2935753422547666e+102Initial program 49.0
Taylor expanded around -inf 4.0
if -2.2935753422547666e+102 < b < -1.1994977793869009e-240Initial program 8.5
rmApplied div-inv8.5
if -1.1994977793869009e-240 < b < 8.37903889759168e-06Initial program 23.9
rmApplied flip-+24.0
Simplified17.1
rmApplied associate-/r*17.1
Simplified17.1
rmApplied *-un-lft-identity17.1
Applied associate-/r*17.1
Simplified17.0
rmApplied *-un-lft-identity17.0
Applied times-frac14.2
Simplified14.2
if 8.37903889759168e-06 < b Initial program 56.1
Taylor expanded around inf 5.6
Final simplification8.2
herbie shell --seed 2020106 +o rules:numerics
(FPCore (a b c)
:name "Cubic critical"
:precision binary64
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))