\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 22041.35648233499887282960116863250732422:\\
\;\;\;\;\frac{\frac{b \cdot b - \left(b \cdot b - 3 \cdot \left(a \cdot c\right)\right)}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{3 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{-1.5 \cdot a}{\frac{b}{c}}}{3 \cdot a}\\
\end{array}double f(double a, double b, double c) {
double r63075 = b;
double r63076 = -r63075;
double r63077 = r63075 * r63075;
double r63078 = 3.0;
double r63079 = a;
double r63080 = r63078 * r63079;
double r63081 = c;
double r63082 = r63080 * r63081;
double r63083 = r63077 - r63082;
double r63084 = sqrt(r63083);
double r63085 = r63076 + r63084;
double r63086 = r63085 / r63080;
return r63086;
}
double f(double a, double b, double c) {
double r63087 = b;
double r63088 = 22041.356482335;
bool r63089 = r63087 <= r63088;
double r63090 = r63087 * r63087;
double r63091 = 3.0;
double r63092 = a;
double r63093 = c;
double r63094 = r63092 * r63093;
double r63095 = r63091 * r63094;
double r63096 = r63090 - r63095;
double r63097 = r63090 - r63096;
double r63098 = -r63087;
double r63099 = r63091 * r63092;
double r63100 = r63099 * r63093;
double r63101 = r63090 - r63100;
double r63102 = sqrt(r63101);
double r63103 = r63098 - r63102;
double r63104 = r63097 / r63103;
double r63105 = r63104 / r63099;
double r63106 = -1.5;
double r63107 = r63106 * r63092;
double r63108 = r63087 / r63093;
double r63109 = r63107 / r63108;
double r63110 = r63109 / r63099;
double r63111 = r63089 ? r63105 : r63110;
return r63111;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < 22041.356482335Initial program 19.9
rmApplied flip-+20.0
Simplified18.9
if 22041.356482335 < b Initial program 38.7
Taylor expanded around inf 14.5
rmApplied associate-/l*14.5
rmApplied associate-*r/14.5
Final simplification16.9
herbie shell --seed 2019235 +o rules:numerics
(FPCore (a b c)
:name "Cubic critical, narrow range"
:precision binary64
:pre (and (< 1.05367121277235087e-8 a 94906265.6242515594) (< 1.05367121277235087e-8 b 94906265.6242515594) (< 1.05367121277235087e-8 c 94906265.6242515594))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))