\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}\frac{\left(\left(\sqrt[3]{\sqrt[3]{(\left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) \cdot \left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) + \left(-b\right))_*}} \cdot \sqrt[3]{\sqrt[3]{(\left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) \cdot \left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) + \left(-b\right))_*}}\right) \cdot \sqrt[3]{\sqrt[3]{(\left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) \cdot \left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) + \left(-b\right))_*}}\right) \cdot \left(\sqrt[3]{(\left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) \cdot \left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) + \left(-b\right))_*} \cdot \sqrt[3]{(\left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) \cdot \left(\sqrt{\sqrt{(-3 \cdot \left(a \cdot c\right) + \left(b \cdot b\right))_*}}\right) + \left(-b\right))_*}\right)}{3 \cdot a}double f(double a, double b, double c, double __attribute__((unused)) d) {
double r7621788 = b;
double r7621789 = -r7621788;
double r7621790 = r7621788 * r7621788;
double r7621791 = 3.0;
double r7621792 = a;
double r7621793 = r7621791 * r7621792;
double r7621794 = c;
double r7621795 = r7621793 * r7621794;
double r7621796 = r7621790 - r7621795;
double r7621797 = sqrt(r7621796);
double r7621798 = r7621789 + r7621797;
double r7621799 = r7621798 / r7621793;
return r7621799;
}
double f(double a, double b, double c, double __attribute__((unused)) d) {
double r7621800 = -3.0;
double r7621801 = a;
double r7621802 = c;
double r7621803 = r7621801 * r7621802;
double r7621804 = b;
double r7621805 = r7621804 * r7621804;
double r7621806 = fma(r7621800, r7621803, r7621805);
double r7621807 = sqrt(r7621806);
double r7621808 = sqrt(r7621807);
double r7621809 = -r7621804;
double r7621810 = fma(r7621808, r7621808, r7621809);
double r7621811 = cbrt(r7621810);
double r7621812 = cbrt(r7621811);
double r7621813 = r7621812 * r7621812;
double r7621814 = r7621813 * r7621812;
double r7621815 = r7621811 * r7621811;
double r7621816 = r7621814 * r7621815;
double r7621817 = 3.0;
double r7621818 = r7621817 * r7621801;
double r7621819 = r7621816 / r7621818;
return r7621819;
}



Bits error versus a



Bits error versus b



Bits error versus c



Bits error versus d
Initial program 52.9
Simplified52.9
rmApplied add-sqr-sqrt52.7
Applied fma-neg52.1
rmApplied add-cube-cbrt52.1
rmApplied add-cube-cbrt52.1
Final simplification52.1
herbie shell --seed 2019107 +o rules:numerics
(FPCore (a b c d)
:name "Cubic critical, wide range"
:pre (and (< 4.930380657631324e-32 a 2.028240960365167e+31) (< 4.930380657631324e-32 b 2.028240960365167e+31) (< 4.930380657631324e-32 c 2.028240960365167e+31))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3 a) c)))) (* 3 a)))