\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\frac{1 \cdot \left(a \cdot c\right)}{a} \cdot \frac{1}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}double f(double a, double b, double c) {
double r95373 = b;
double r95374 = -r95373;
double r95375 = r95373 * r95373;
double r95376 = 3.0;
double r95377 = a;
double r95378 = r95376 * r95377;
double r95379 = c;
double r95380 = r95378 * r95379;
double r95381 = r95375 - r95380;
double r95382 = sqrt(r95381);
double r95383 = r95374 + r95382;
double r95384 = r95383 / r95378;
return r95384;
}
double f(double a, double b, double c) {
double r95385 = 1.0;
double r95386 = a;
double r95387 = c;
double r95388 = r95386 * r95387;
double r95389 = r95385 * r95388;
double r95390 = r95389 / r95386;
double r95391 = b;
double r95392 = -r95391;
double r95393 = r95391 * r95391;
double r95394 = 3.0;
double r95395 = r95394 * r95386;
double r95396 = r95395 * r95387;
double r95397 = r95393 - r95396;
double r95398 = sqrt(r95397);
double r95399 = r95392 - r95398;
double r95400 = r95385 / r95399;
double r95401 = r95390 * r95400;
return r95401;
}



Bits error versus a



Bits error versus b



Bits error versus c
Results
Initial program 28.5
rmApplied flip-+28.5
Simplified0.6
rmApplied *-un-lft-identity0.6
Applied *-un-lft-identity0.6
Applied times-frac0.6
Applied times-frac0.6
Simplified0.6
Simplified0.6
rmApplied div-inv0.6
Applied associate-*r*0.6
Simplified0.5
Final simplification0.5
herbie shell --seed 2020062
(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)))