\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\frac{\frac{\left({b}^{2} - {b}^{2}\right) + \left(3 \cdot a\right) \cdot c}{\left(-b\right) - \sqrt{b \cdot b - \left(\left(3 \cdot a\right) \cdot \left(\sqrt[3]{c} \cdot \sqrt[3]{c}\right)\right) \cdot \sqrt[3]{c}}}}{3 \cdot a}double f(double a, double b, double c) {
double r113099 = b;
double r113100 = -r113099;
double r113101 = r113099 * r113099;
double r113102 = 3.0;
double r113103 = a;
double r113104 = r113102 * r113103;
double r113105 = c;
double r113106 = r113104 * r113105;
double r113107 = r113101 - r113106;
double r113108 = sqrt(r113107);
double r113109 = r113100 + r113108;
double r113110 = r113109 / r113104;
return r113110;
}
double f(double a, double b, double c) {
double r113111 = b;
double r113112 = 2.0;
double r113113 = pow(r113111, r113112);
double r113114 = r113113 - r113113;
double r113115 = 3.0;
double r113116 = a;
double r113117 = r113115 * r113116;
double r113118 = c;
double r113119 = r113117 * r113118;
double r113120 = r113114 + r113119;
double r113121 = -r113111;
double r113122 = r113111 * r113111;
double r113123 = cbrt(r113118);
double r113124 = r113123 * r113123;
double r113125 = r113117 * r113124;
double r113126 = r113125 * r113123;
double r113127 = r113122 - r113126;
double r113128 = sqrt(r113127);
double r113129 = r113121 - r113128;
double r113130 = r113120 / r113129;
double r113131 = r113130 / r113117;
return r113131;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 28.7
rmApplied flip-+28.7
Simplified0.6
rmApplied associate-*r*0.5
rmApplied add-cube-cbrt0.5
Applied associate-*r*0.5
Final simplification0.5
herbie shell --seed 2020065
(FPCore (a b c)
:name "Cubic critical, narrow range"
:precision binary64
: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)))