| Alternative 1 | |
|---|---|
| Accuracy | 92.3% |
| Cost | 60932 |

(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)))
(FPCore (a b c)
:precision binary64
(let* ((t_0 (- (* b b) (* (* 3.0 a) c))) (t_1 (sqrt t_0)))
(if (<= (/ (- t_1 b) (* 3.0 a)) -3.5)
(/ (/ (- (pow (- b) 2.0) t_0) (- (- b) t_1)) (* 3.0 a))
(fma
-0.5625
(/ (pow c 3.0) (/ (pow b 5.0) (* a a)))
(fma
-0.16666666666666666
(* (/ (pow (* a c) 4.0) a) (/ 6.328125 (pow b 7.0)))
(fma -0.5 (/ c b) (* -0.375 (/ (* a (* c c)) (pow b 3.0)))))))))double code(double a, double b, double c) {
return (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
double code(double a, double b, double c) {
double t_0 = (b * b) - ((3.0 * a) * c);
double t_1 = sqrt(t_0);
double tmp;
if (((t_1 - b) / (3.0 * a)) <= -3.5) {
tmp = ((pow(-b, 2.0) - t_0) / (-b - t_1)) / (3.0 * a);
} else {
tmp = fma(-0.5625, (pow(c, 3.0) / (pow(b, 5.0) / (a * a))), fma(-0.16666666666666666, ((pow((a * c), 4.0) / a) * (6.328125 / pow(b, 7.0))), fma(-0.5, (c / b), (-0.375 * ((a * (c * c)) / pow(b, 3.0))))));
}
return tmp;
}
function code(a, b, c) return Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(3.0 * a) * c)))) / Float64(3.0 * a)) end
function code(a, b, c) t_0 = Float64(Float64(b * b) - Float64(Float64(3.0 * a) * c)) t_1 = sqrt(t_0) tmp = 0.0 if (Float64(Float64(t_1 - b) / Float64(3.0 * a)) <= -3.5) tmp = Float64(Float64(Float64((Float64(-b) ^ 2.0) - t_0) / Float64(Float64(-b) - t_1)) / Float64(3.0 * a)); else tmp = fma(-0.5625, Float64((c ^ 3.0) / Float64((b ^ 5.0) / Float64(a * a))), fma(-0.16666666666666666, Float64(Float64((Float64(a * c) ^ 4.0) / a) * Float64(6.328125 / (b ^ 7.0))), fma(-0.5, Float64(c / b), Float64(-0.375 * Float64(Float64(a * Float64(c * c)) / (b ^ 3.0)))))); end return tmp end
code[a_, b_, c_] := N[(N[((-b) + N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(3.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(3.0 * a), $MachinePrecision]), $MachinePrecision]
code[a_, b_, c_] := Block[{t$95$0 = N[(N[(b * b), $MachinePrecision] - N[(N[(3.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[t$95$0], $MachinePrecision]}, If[LessEqual[N[(N[(t$95$1 - b), $MachinePrecision] / N[(3.0 * a), $MachinePrecision]), $MachinePrecision], -3.5], N[(N[(N[(N[Power[(-b), 2.0], $MachinePrecision] - t$95$0), $MachinePrecision] / N[((-b) - t$95$1), $MachinePrecision]), $MachinePrecision] / N[(3.0 * a), $MachinePrecision]), $MachinePrecision], N[(-0.5625 * N[(N[Power[c, 3.0], $MachinePrecision] / N[(N[Power[b, 5.0], $MachinePrecision] / N[(a * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-0.16666666666666666 * N[(N[(N[Power[N[(a * c), $MachinePrecision], 4.0], $MachinePrecision] / a), $MachinePrecision] * N[(6.328125 / N[Power[b, 7.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-0.5 * N[(c / b), $MachinePrecision] + N[(-0.375 * N[(N[(a * N[(c * c), $MachinePrecision]), $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}
\begin{array}{l}
t_0 := b \cdot b - \left(3 \cdot a\right) \cdot c\\
t_1 := \sqrt{t_0}\\
\mathbf{if}\;\frac{t_1 - b}{3 \cdot a} \leq -3.5:\\
\;\;\;\;\frac{\frac{{\left(-b\right)}^{2} - t_0}{\left(-b\right) - t_1}}{3 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-0.5625, \frac{{c}^{3}}{\frac{{b}^{5}}{a \cdot a}}, \mathsf{fma}\left(-0.16666666666666666, \frac{{\left(a \cdot c\right)}^{4}}{a} \cdot \frac{6.328125}{{b}^{7}}, \mathsf{fma}\left(-0.5, \frac{c}{b}, -0.375 \cdot \frac{a \cdot \left(c \cdot c\right)}{{b}^{3}}\right)\right)\right)\\
\end{array}
Herbie found 15 alternatives:
| Alternative | Accuracy | Speedup |
|---|
if (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 3 a) c)))) (*.f64 3 a)) < -3.5Initial program 90.3%
Applied egg-rr91.5%
[Start]90.3% | \[ \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}
\] |
|---|---|
flip-+ [=>]90.0% | \[ \frac{\color{blue}{\frac{\left(-b\right) \cdot \left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} \cdot \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}}{3 \cdot a}
\] |
pow2 [=>]90.0% | \[ \frac{\frac{\color{blue}{{\left(-b\right)}^{2}} - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c} \cdot \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{3 \cdot a}
\] |
add-sqr-sqrt [<=]91.5% | \[ \frac{\frac{{\left(-b\right)}^{2} - \color{blue}{\left(b \cdot b - \left(3 \cdot a\right) \cdot c\right)}}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{3 \cdot a}
\] |
*-commutative [=>]91.5% | \[ \frac{\frac{{\left(-b\right)}^{2} - \left(b \cdot b - \color{blue}{c \cdot \left(3 \cdot a\right)}\right)}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{3 \cdot a}
\] |
*-commutative [=>]91.5% | \[ \frac{\frac{{\left(-b\right)}^{2} - \left(b \cdot b - c \cdot \color{blue}{\left(a \cdot 3\right)}\right)}{\left(-b\right) - \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}}{3 \cdot a}
\] |
*-commutative [=>]91.5% | \[ \frac{\frac{{\left(-b\right)}^{2} - \left(b \cdot b - c \cdot \left(a \cdot 3\right)\right)}{\left(-b\right) - \sqrt{b \cdot b - \color{blue}{c \cdot \left(3 \cdot a\right)}}}}{3 \cdot a}
\] |
*-commutative [=>]91.5% | \[ \frac{\frac{{\left(-b\right)}^{2} - \left(b \cdot b - c \cdot \left(a \cdot 3\right)\right)}{\left(-b\right) - \sqrt{b \cdot b - c \cdot \color{blue}{\left(a \cdot 3\right)}}}}{3 \cdot a}
\] |
if -3.5 < (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 3 a) c)))) (*.f64 3 a)) Initial program 50.6%
Simplified50.6%
[Start]50.6% | \[ \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}
\] |
|---|---|
/-rgt-identity [<=]50.6% | \[ \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{\color{blue}{\frac{3 \cdot a}{1}}}
\] |
metadata-eval [<=]50.6% | \[ \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{\frac{3 \cdot a}{\color{blue}{--1}}}
\] |
associate-/r/ [=>]50.6% | \[ \color{blue}{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \cdot \left(--1\right)}
\] |
metadata-eval [=>]50.6% | \[ \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \cdot \color{blue}{1}
\] |
metadata-eval [<=]50.6% | \[ \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a} \cdot \color{blue}{\frac{-1}{-1}}
\] |
times-frac [<=]50.6% | \[ \color{blue}{\frac{\left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right) \cdot -1}{\left(3 \cdot a\right) \cdot -1}}
\] |
*-commutative [<=]50.6% | \[ \frac{\left(\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}\right) \cdot -1}{\color{blue}{-1 \cdot \left(3 \cdot a\right)}}
\] |
times-frac [=>]50.6% | \[ \color{blue}{\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{-1} \cdot \frac{-1}{3 \cdot a}}
\] |
*-commutative [<=]50.6% | \[ \color{blue}{\frac{-1}{3 \cdot a} \cdot \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{-1}}
\] |
associate-/r* [=>]50.6% | \[ \color{blue}{\frac{\frac{-1}{3}}{a}} \cdot \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{-1}
\] |
associate-*l/ [=>]50.6% | \[ \color{blue}{\frac{\frac{-1}{3} \cdot \frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{-1}}{a}}
\] |
Taylor expanded in b around inf 95.0%
Simplified95.0%
[Start]95.0% | \[ -0.5625 \cdot \frac{{c}^{3} \cdot {a}^{2}}{{b}^{5}} + \left(-0.16666666666666666 \cdot \frac{{\left(-1.125 \cdot \left({c}^{2} \cdot {a}^{2}\right)\right)}^{2} + 5.0625 \cdot \left({c}^{4} \cdot {a}^{4}\right)}{a \cdot {b}^{7}} + \left(-0.5 \cdot \frac{c}{b} + -0.375 \cdot \frac{{c}^{2} \cdot a}{{b}^{3}}\right)\right)
\] |
|---|---|
fma-def [=>]95.0% | \[ \color{blue}{\mathsf{fma}\left(-0.5625, \frac{{c}^{3} \cdot {a}^{2}}{{b}^{5}}, -0.16666666666666666 \cdot \frac{{\left(-1.125 \cdot \left({c}^{2} \cdot {a}^{2}\right)\right)}^{2} + 5.0625 \cdot \left({c}^{4} \cdot {a}^{4}\right)}{a \cdot {b}^{7}} + \left(-0.5 \cdot \frac{c}{b} + -0.375 \cdot \frac{{c}^{2} \cdot a}{{b}^{3}}\right)\right)}
\] |
associate-/l* [=>]95.0% | \[ \mathsf{fma}\left(-0.5625, \color{blue}{\frac{{c}^{3}}{\frac{{b}^{5}}{{a}^{2}}}}, -0.16666666666666666 \cdot \frac{{\left(-1.125 \cdot \left({c}^{2} \cdot {a}^{2}\right)\right)}^{2} + 5.0625 \cdot \left({c}^{4} \cdot {a}^{4}\right)}{a \cdot {b}^{7}} + \left(-0.5 \cdot \frac{c}{b} + -0.375 \cdot \frac{{c}^{2} \cdot a}{{b}^{3}}\right)\right)
\] |
unpow2 [=>]95.0% | \[ \mathsf{fma}\left(-0.5625, \frac{{c}^{3}}{\frac{{b}^{5}}{\color{blue}{a \cdot a}}}, -0.16666666666666666 \cdot \frac{{\left(-1.125 \cdot \left({c}^{2} \cdot {a}^{2}\right)\right)}^{2} + 5.0625 \cdot \left({c}^{4} \cdot {a}^{4}\right)}{a \cdot {b}^{7}} + \left(-0.5 \cdot \frac{c}{b} + -0.375 \cdot \frac{{c}^{2} \cdot a}{{b}^{3}}\right)\right)
\] |
fma-def [=>]95.0% | \[ \mathsf{fma}\left(-0.5625, \frac{{c}^{3}}{\frac{{b}^{5}}{a \cdot a}}, \color{blue}{\mathsf{fma}\left(-0.16666666666666666, \frac{{\left(-1.125 \cdot \left({c}^{2} \cdot {a}^{2}\right)\right)}^{2} + 5.0625 \cdot \left({c}^{4} \cdot {a}^{4}\right)}{a \cdot {b}^{7}}, -0.5 \cdot \frac{c}{b} + -0.375 \cdot \frac{{c}^{2} \cdot a}{{b}^{3}}\right)}\right)
\] |
Taylor expanded in c around 0 95.0%
Simplified95.0%
[Start]95.0% | \[ \mathsf{fma}\left(-0.5625, \frac{{c}^{3}}{\frac{{b}^{5}}{a \cdot a}}, \mathsf{fma}\left(-0.16666666666666666, \frac{{c}^{4} \cdot \left(1.265625 \cdot {a}^{4} + 5.0625 \cdot {a}^{4}\right)}{a \cdot {b}^{7}}, \mathsf{fma}\left(-0.5, \frac{c}{b}, -0.375 \cdot \frac{a \cdot \left(c \cdot c\right)}{{b}^{3}}\right)\right)\right)
\] |
|---|---|
+-commutative [=>]95.0% | \[ \mathsf{fma}\left(-0.5625, \frac{{c}^{3}}{\frac{{b}^{5}}{a \cdot a}}, \mathsf{fma}\left(-0.16666666666666666, \frac{{c}^{4} \cdot \color{blue}{\left(5.0625 \cdot {a}^{4} + 1.265625 \cdot {a}^{4}\right)}}{a \cdot {b}^{7}}, \mathsf{fma}\left(-0.5, \frac{c}{b}, -0.375 \cdot \frac{a \cdot \left(c \cdot c\right)}{{b}^{3}}\right)\right)\right)
\] |
distribute-rgt-out [=>]95.0% | \[ \mathsf{fma}\left(-0.5625, \frac{{c}^{3}}{\frac{{b}^{5}}{a \cdot a}}, \mathsf{fma}\left(-0.16666666666666666, \frac{{c}^{4} \cdot \color{blue}{\left({a}^{4} \cdot \left(5.0625 + 1.265625\right)\right)}}{a \cdot {b}^{7}}, \mathsf{fma}\left(-0.5, \frac{c}{b}, -0.375 \cdot \frac{a \cdot \left(c \cdot c\right)}{{b}^{3}}\right)\right)\right)
\] |
associate-*r* [=>]95.0% | \[ \mathsf{fma}\left(-0.5625, \frac{{c}^{3}}{\frac{{b}^{5}}{a \cdot a}}, \mathsf{fma}\left(-0.16666666666666666, \frac{\color{blue}{\left({c}^{4} \cdot {a}^{4}\right) \cdot \left(5.0625 + 1.265625\right)}}{a \cdot {b}^{7}}, \mathsf{fma}\left(-0.5, \frac{c}{b}, -0.375 \cdot \frac{a \cdot \left(c \cdot c\right)}{{b}^{3}}\right)\right)\right)
\] |
times-frac [=>]95.0% | \[ \mathsf{fma}\left(-0.5625, \frac{{c}^{3}}{\frac{{b}^{5}}{a \cdot a}}, \mathsf{fma}\left(-0.16666666666666666, \color{blue}{\frac{{c}^{4} \cdot {a}^{4}}{a} \cdot \frac{5.0625 + 1.265625}{{b}^{7}}}, \mathsf{fma}\left(-0.5, \frac{c}{b}, -0.375 \cdot \frac{a \cdot \left(c \cdot c\right)}{{b}^{3}}\right)\right)\right)
\] |
Final simplification94.7%
| Alternative 1 | |
|---|---|
| Accuracy | 92.3% |
| Cost | 60932 |
| Alternative 2 | |
|---|---|
| Accuracy | 92.2% |
| Cost | 60932 |
| Alternative 3 | |
|---|---|
| Accuracy | 89.6% |
| Cost | 40964 |
| Alternative 4 | |
|---|---|
| Accuracy | 89.7% |
| Cost | 40964 |
| Alternative 5 | |
|---|---|
| Accuracy | 89.3% |
| Cost | 35396 |
| Alternative 6 | |
|---|---|
| Accuracy | 85.6% |
| Cost | 22148 |
| Alternative 7 | |
|---|---|
| Accuracy | 85.3% |
| Cost | 21188 |
| Alternative 8 | |
|---|---|
| Accuracy | 85.3% |
| Cost | 21124 |
| Alternative 9 | |
|---|---|
| Accuracy | 75.7% |
| Cost | 21060 |
| Alternative 10 | |
|---|---|
| Accuracy | 75.7% |
| Cost | 21060 |
| Alternative 11 | |
|---|---|
| Accuracy | 75.7% |
| Cost | 21060 |
| Alternative 12 | |
|---|---|
| Accuracy | 75.6% |
| Cost | 14788 |
| Alternative 13 | |
|---|---|
| Accuracy | 64.4% |
| Cost | 320 |
| Alternative 14 | |
|---|---|
| Accuracy | 64.5% |
| Cost | 320 |
| Alternative 15 | |
|---|---|
| Accuracy | 3.2% |
| Cost | 192 |
herbie shell --seed 2023165
(FPCore (a b c)
:name "Cubic critical, narrow range"
:precision binary64
:pre (and (and (and (< 1.0536712127723509e-8 a) (< a 94906265.62425156)) (and (< 1.0536712127723509e-8 b) (< b 94906265.62425156))) (and (< 1.0536712127723509e-8 c) (< c 94906265.62425156)))
(/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)))