\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 -1.257476678127677856918278287038350045718 \cdot 10^{107}:\\
\;\;\;\;0.5 \cdot \frac{c}{b} - 0.6666666666666666296592325124947819858789 \cdot \frac{b}{a}\\
\mathbf{elif}\;b \le 2.496744794133526836762101371765290843051 \cdot 10^{-135}:\\
\;\;\;\;\frac{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3}}{a}\\
\mathbf{elif}\;b \le 5.354608489416471204042085887246325611474 \cdot 10^{62}:\\
\;\;\;\;\frac{\frac{a}{\sqrt[3]{a}}}{\sqrt[3]{a}} \cdot \frac{\frac{1}{\frac{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{c}}}{\sqrt[3]{a}}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r123042 = b;
double r123043 = -r123042;
double r123044 = r123042 * r123042;
double r123045 = 3.0;
double r123046 = a;
double r123047 = r123045 * r123046;
double r123048 = c;
double r123049 = r123047 * r123048;
double r123050 = r123044 - r123049;
double r123051 = sqrt(r123050);
double r123052 = r123043 + r123051;
double r123053 = r123052 / r123047;
return r123053;
}
double f(double a, double b, double c) {
double r123054 = b;
double r123055 = -1.2574766781276779e+107;
bool r123056 = r123054 <= r123055;
double r123057 = 0.5;
double r123058 = c;
double r123059 = r123058 / r123054;
double r123060 = r123057 * r123059;
double r123061 = 0.6666666666666666;
double r123062 = a;
double r123063 = r123054 / r123062;
double r123064 = r123061 * r123063;
double r123065 = r123060 - r123064;
double r123066 = 2.4967447941335268e-135;
bool r123067 = r123054 <= r123066;
double r123068 = -r123054;
double r123069 = r123054 * r123054;
double r123070 = 3.0;
double r123071 = r123070 * r123062;
double r123072 = r123071 * r123058;
double r123073 = r123069 - r123072;
double r123074 = sqrt(r123073);
double r123075 = r123068 + r123074;
double r123076 = r123075 / r123070;
double r123077 = r123076 / r123062;
double r123078 = 5.354608489416471e+62;
bool r123079 = r123054 <= r123078;
double r123080 = cbrt(r123062);
double r123081 = r123062 / r123080;
double r123082 = r123081 / r123080;
double r123083 = 1.0;
double r123084 = r123068 - r123074;
double r123085 = r123084 / r123058;
double r123086 = r123083 / r123085;
double r123087 = r123086 / r123080;
double r123088 = r123082 * r123087;
double r123089 = -0.5;
double r123090 = r123089 * r123059;
double r123091 = r123079 ? r123088 : r123090;
double r123092 = r123067 ? r123077 : r123091;
double r123093 = r123056 ? r123065 : r123092;
return r123093;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < -1.2574766781276779e+107Initial program 48.2
Taylor expanded around -inf 3.7
if -1.2574766781276779e+107 < b < 2.4967447941335268e-135Initial program 11.7
rmApplied associate-/r*11.7
if 2.4967447941335268e-135 < b < 5.354608489416471e+62Initial program 39.0
rmApplied flip-+39.0
Simplified16.1
rmApplied associate-/r*16.1
Simplified16.1
rmApplied clear-num16.4
Simplified16.3
rmApplied add-cube-cbrt17.0
Applied *-un-lft-identity17.0
Applied times-frac14.3
Applied add-sqr-sqrt14.3
Applied times-frac13.7
Applied times-frac10.2
Simplified10.2
Simplified10.2
if 5.354608489416471e+62 < b Initial program 57.7
Taylor expanded around inf 3.8
Final simplification8.1
herbie shell --seed 2020001 +o rules:numerics
(FPCore (a b c)
:name "Cubic critical"
:precision binary64
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))