\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\frac{1}{\frac{\left(3 \cdot a\right) \cdot \left(\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right)}{3 \cdot \left(a \cdot c\right)}}double f(double a, double b, double c) {
double r109073 = b;
double r109074 = -r109073;
double r109075 = r109073 * r109073;
double r109076 = 3.0;
double r109077 = a;
double r109078 = r109076 * r109077;
double r109079 = c;
double r109080 = r109078 * r109079;
double r109081 = r109075 - r109080;
double r109082 = sqrt(r109081);
double r109083 = r109074 + r109082;
double r109084 = r109083 / r109078;
return r109084;
}
double f(double a, double b, double c) {
double r109085 = 1.0;
double r109086 = 3.0;
double r109087 = a;
double r109088 = r109086 * r109087;
double r109089 = b;
double r109090 = -r109089;
double r109091 = r109089 * r109089;
double r109092 = c;
double r109093 = r109088 * r109092;
double r109094 = r109091 - r109093;
double r109095 = sqrt(r109094);
double r109096 = r109090 - r109095;
double r109097 = r109088 * r109096;
double r109098 = r109087 * r109092;
double r109099 = r109086 * r109098;
double r109100 = r109097 / r109099;
double r109101 = r109085 / r109100;
return r109101;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 43.6
rmApplied flip-+43.5
Simplified0.5
rmApplied *-un-lft-identity0.5
Applied *-un-lft-identity0.5
Applied times-frac0.5
Applied associate-/l*0.6
Simplified0.6
Final simplification0.6
herbie shell --seed 2020056
(FPCore (a b c)
:name "Cubic critical, medium range"
:precision binary64
:pre (and (< 1.11022e-16 a 9.0072e+15) (< 1.11022e-16 b 9.0072e+15) (< 1.11022e-16 c 9.0072e+15))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))