\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\frac{1}{3 \cdot a} \cdot \left(\left(a \cdot 3\right) \cdot \frac{c}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}\right)double f(double a, double b, double c) {
double r98392 = b;
double r98393 = -r98392;
double r98394 = r98392 * r98392;
double r98395 = 3.0;
double r98396 = a;
double r98397 = r98395 * r98396;
double r98398 = c;
double r98399 = r98397 * r98398;
double r98400 = r98394 - r98399;
double r98401 = sqrt(r98400);
double r98402 = r98393 + r98401;
double r98403 = r98402 / r98397;
return r98403;
}
double f(double a, double b, double c) {
double r98404 = 1.0;
double r98405 = 3.0;
double r98406 = a;
double r98407 = r98405 * r98406;
double r98408 = r98404 / r98407;
double r98409 = r98406 * r98405;
double r98410 = c;
double r98411 = b;
double r98412 = -r98411;
double r98413 = r98411 * r98411;
double r98414 = r98407 * r98410;
double r98415 = r98413 - r98414;
double r98416 = sqrt(r98415);
double r98417 = r98412 - r98416;
double r98418 = r98410 / r98417;
double r98419 = r98409 * r98418;
double r98420 = r98408 * r98419;
return r98420;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 43.9
rmApplied flip-+43.9
Simplified0.5
rmApplied *-un-lft-identity0.5
Applied *-un-lft-identity0.5
Applied times-frac0.5
Simplified0.5
Simplified0.4
rmApplied *-un-lft-identity0.4
Applied times-frac0.2
Simplified0.2
rmApplied div-inv0.4
Final simplification0.4
herbie shell --seed 2019350 +o rules:numerics
(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)))