\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 1699.5142564511543:\\
\;\;\;\;\frac{\frac{\left(b \cdot b - \left(3 \cdot c\right) \cdot a\right) \cdot \sqrt{b \cdot b - \left(3 \cdot c\right) \cdot a} - \left(b \cdot b\right) \cdot b}{\left(b \cdot b - \left(3 \cdot c\right) \cdot a\right) + \left(b \cdot \sqrt{b \cdot b - \left(3 \cdot c\right) \cdot a} + b \cdot b\right)}}{a \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;\frac{-1}{2} \cdot \frac{c}{b}\\
\end{array}double f(double a, double b, double c, double __attribute__((unused)) d) {
double r3928072 = b;
double r3928073 = -r3928072;
double r3928074 = r3928072 * r3928072;
double r3928075 = 3.0;
double r3928076 = a;
double r3928077 = r3928075 * r3928076;
double r3928078 = c;
double r3928079 = r3928077 * r3928078;
double r3928080 = r3928074 - r3928079;
double r3928081 = sqrt(r3928080);
double r3928082 = r3928073 + r3928081;
double r3928083 = r3928082 / r3928077;
return r3928083;
}
double f(double a, double b, double c, double __attribute__((unused)) d) {
double r3928084 = b;
double r3928085 = 1699.5142564511543;
bool r3928086 = r3928084 <= r3928085;
double r3928087 = r3928084 * r3928084;
double r3928088 = 3.0;
double r3928089 = c;
double r3928090 = r3928088 * r3928089;
double r3928091 = a;
double r3928092 = r3928090 * r3928091;
double r3928093 = r3928087 - r3928092;
double r3928094 = sqrt(r3928093);
double r3928095 = r3928093 * r3928094;
double r3928096 = r3928087 * r3928084;
double r3928097 = r3928095 - r3928096;
double r3928098 = r3928084 * r3928094;
double r3928099 = r3928098 + r3928087;
double r3928100 = r3928093 + r3928099;
double r3928101 = r3928097 / r3928100;
double r3928102 = r3928091 * r3928088;
double r3928103 = r3928101 / r3928102;
double r3928104 = -0.5;
double r3928105 = r3928089 / r3928084;
double r3928106 = r3928104 * r3928105;
double r3928107 = r3928086 ? r3928103 : r3928106;
return r3928107;
}



Bits error versus a



Bits error versus b



Bits error versus c



Bits error versus d
Results
if b < 1699.5142564511543Initial program 17.6
Simplified17.6
rmApplied flip3--17.7
Simplified17.0
Simplified17.0
if 1699.5142564511543 < b Initial program 37.2
Simplified37.2
Taylor expanded around inf 15.7
rmApplied add-sqr-sqrt15.8
Applied times-frac15.8
Applied associate-*r*15.8
Taylor expanded around inf 15.6
Final simplification16.2
herbie shell --seed 2019133
(FPCore (a b c d)
:name "Cubic critical, narrow range"
:pre (and (< 1.0536712127723509e-08 a 94906265.62425156) (< 1.0536712127723509e-08 b 94906265.62425156) (< 1.0536712127723509e-08 c 94906265.62425156))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))