\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 4.2169126153830769 \cdot 10^{-4}:\\
\;\;\;\;\frac{\frac{\mathsf{fma}\left(b, b, -\left(b \cdot b - \left(3 \cdot a\right) \cdot c\right)\right)}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{3 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-1.5}{3} \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r95208 = b;
double r95209 = -r95208;
double r95210 = r95208 * r95208;
double r95211 = 3.0;
double r95212 = a;
double r95213 = r95211 * r95212;
double r95214 = c;
double r95215 = r95213 * r95214;
double r95216 = r95210 - r95215;
double r95217 = sqrt(r95216);
double r95218 = r95209 + r95217;
double r95219 = r95218 / r95213;
return r95219;
}
double f(double a, double b, double c) {
double r95220 = b;
double r95221 = 0.0004216912615383077;
bool r95222 = r95220 <= r95221;
double r95223 = r95220 * r95220;
double r95224 = 3.0;
double r95225 = a;
double r95226 = r95224 * r95225;
double r95227 = c;
double r95228 = r95226 * r95227;
double r95229 = r95223 - r95228;
double r95230 = -r95229;
double r95231 = fma(r95220, r95220, r95230);
double r95232 = -r95220;
double r95233 = sqrt(r95229);
double r95234 = r95232 - r95233;
double r95235 = r95231 / r95234;
double r95236 = r95235 / r95226;
double r95237 = -1.5;
double r95238 = r95237 / r95224;
double r95239 = r95227 / r95220;
double r95240 = r95238 * r95239;
double r95241 = r95222 ? r95236 : r95240;
return r95241;
}



Bits error versus a



Bits error versus b



Bits error versus c
if b < 0.0004216912615383077Initial program 20.0
rmApplied flip-+20.1
Simplified19.1
if 0.0004216912615383077 < b Initial program 45.7
Taylor expanded around inf 10.9
rmApplied times-frac10.8
Taylor expanded around 0 10.6
Final simplification11.3
herbie shell --seed 2020036 +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)))