\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\frac{\frac{1}{\frac{1}{3}}}{\frac{3}{\frac{\frac{a}{\frac{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{c}}}{a}}}double f(double a, double b, double c) {
double r179107 = b;
double r179108 = -r179107;
double r179109 = r179107 * r179107;
double r179110 = 3.0;
double r179111 = a;
double r179112 = r179110 * r179111;
double r179113 = c;
double r179114 = r179112 * r179113;
double r179115 = r179109 - r179114;
double r179116 = sqrt(r179115);
double r179117 = r179108 + r179116;
double r179118 = r179117 / r179112;
return r179118;
}
double f(double a, double b, double c) {
double r179119 = 1.0;
double r179120 = 3.0;
double r179121 = r179119 / r179120;
double r179122 = r179119 / r179121;
double r179123 = a;
double r179124 = b;
double r179125 = -r179124;
double r179126 = r179124 * r179124;
double r179127 = r179120 * r179123;
double r179128 = c;
double r179129 = r179127 * r179128;
double r179130 = r179126 - r179129;
double r179131 = sqrt(r179130);
double r179132 = r179125 - r179131;
double r179133 = r179132 / r179128;
double r179134 = r179123 / r179133;
double r179135 = r179134 / r179123;
double r179136 = r179120 / r179135;
double r179137 = r179122 / r179136;
return r179137;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 28.4
rmApplied flip-+28.4
Simplified0.6
rmApplied *-un-lft-identity0.6
Applied *-un-lft-identity0.6
Applied times-frac0.6
Applied associate-/l*0.6
Simplified0.6
rmApplied associate-/l*0.6
rmApplied *-un-lft-identity0.6
Applied *-un-lft-identity0.6
Applied times-frac0.6
Applied times-frac0.5
Applied *-un-lft-identity0.5
Applied times-frac0.6
Applied associate-/r*0.5
Final simplification0.5
herbie shell --seed 2019323 +o rules:numerics
(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)))