\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\begin{array}{l}
\mathbf{if}\;\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \le -6.0802432895852858 \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}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c) {
double r93889 = b;
double r93890 = -r93889;
double r93891 = r93889 * r93889;
double r93892 = 3.0;
double r93893 = a;
double r93894 = r93892 * r93893;
double r93895 = c;
double r93896 = r93894 * r93895;
double r93897 = r93891 - r93896;
double r93898 = sqrt(r93897);
double r93899 = r93890 + r93898;
double r93900 = r93899 / r93894;
return r93900;
}
double f(double a, double b, double c) {
double r93901 = b;
double r93902 = -r93901;
double r93903 = r93901 * r93901;
double r93904 = 3.0;
double r93905 = a;
double r93906 = r93904 * r93905;
double r93907 = c;
double r93908 = r93906 * r93907;
double r93909 = r93903 - r93908;
double r93910 = sqrt(r93909);
double r93911 = r93902 + r93910;
double r93912 = r93911 / r93906;
double r93913 = -0.0006080243289585286;
bool r93914 = r93912 <= r93913;
double r93915 = -r93909;
double r93916 = fma(r93901, r93901, r93915);
double r93917 = r93902 - r93910;
double r93918 = r93916 / r93917;
double r93919 = r93918 / r93906;
double r93920 = -0.5;
double r93921 = r93907 / r93901;
double r93922 = r93920 * r93921;
double r93923 = r93914 ? r93919 : r93922;
return r93923;
}



Bits error versus a



Bits error versus b



Bits error versus c
if (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)) < -0.0006080243289585286Initial program 23.0
rmApplied flip-+23.0
Simplified22.1
if -0.0006080243289585286 < (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)) Initial program 56.9
Taylor expanded around inf 3.2
Final simplification5.4
herbie shell --seed 2020065 +o rules:numerics
(FPCore (a b c)
:name "Cubic critical, wide range"
:precision binary64
:pre (and (< 4.9303800000000003e-32 a 2.02824e+31) (< 4.9303800000000003e-32 b 2.02824e+31) (< 4.9303800000000003e-32 c 2.02824e+31))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))