\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 1984.600261148631:\\
\;\;\;\;\frac{\frac{\left(\left(a \cdot c\right) \cdot -3 + b \cdot b\right) \cdot \sqrt{\left(a \cdot c\right) \cdot -3 + b \cdot b} - b \cdot \left(b \cdot b\right)}{\left(\left(a \cdot c\right) \cdot -3 + b \cdot b\right) + \left(b \cdot b + b \cdot \sqrt{\left(a \cdot c\right) \cdot -3 + 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 r3911051 = b;
double r3911052 = -r3911051;
double r3911053 = r3911051 * r3911051;
double r3911054 = 3.0;
double r3911055 = a;
double r3911056 = r3911054 * r3911055;
double r3911057 = c;
double r3911058 = r3911056 * r3911057;
double r3911059 = r3911053 - r3911058;
double r3911060 = sqrt(r3911059);
double r3911061 = r3911052 + r3911060;
double r3911062 = r3911061 / r3911056;
return r3911062;
}
double f(double a, double b, double c) {
double r3911063 = b;
double r3911064 = 1984.600261148631;
bool r3911065 = r3911063 <= r3911064;
double r3911066 = a;
double r3911067 = c;
double r3911068 = r3911066 * r3911067;
double r3911069 = -3.0;
double r3911070 = r3911068 * r3911069;
double r3911071 = r3911063 * r3911063;
double r3911072 = r3911070 + r3911071;
double r3911073 = sqrt(r3911072);
double r3911074 = r3911072 * r3911073;
double r3911075 = r3911063 * r3911071;
double r3911076 = r3911074 - r3911075;
double r3911077 = r3911063 * r3911073;
double r3911078 = r3911071 + r3911077;
double r3911079 = r3911072 + r3911078;
double r3911080 = r3911076 / r3911079;
double r3911081 = 3.0;
double r3911082 = r3911066 * r3911081;
double r3911083 = r3911080 / r3911082;
double r3911084 = -0.5;
double r3911085 = r3911067 / r3911063;
double r3911086 = r3911084 * r3911085;
double r3911087 = r3911065 ? r3911083 : r3911086;
return r3911087;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
if b < 1984.600261148631Initial program 17.3
Simplified17.3
rmApplied flip3--17.4
Simplified16.7
Simplified16.7
if 1984.600261148631 < b Initial program 37.0
Simplified37.0
Taylor expanded around inf 15.8
rmApplied div-inv15.8
Applied associate-*r*15.8
Taylor expanded around -inf 15.7
Final simplification16.1
herbie shell --seed 2019138
(FPCore (a b c)
: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)))