
(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)))
double code(double a, double b, double c) {
return (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = (-b + sqrt(((b * b) - ((3.0d0 * a) * c)))) / (3.0d0 * a)
end function
public static double code(double a, double b, double c) {
return (-b + Math.sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
def code(a, b, c): return (-b + math.sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a)
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 tmp = code(a, b, c) tmp = (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a); 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]
\begin{array}{l}
\\
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 12 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 3.0 a) c)))) (* 3.0 a)))
double code(double a, double b, double c) {
return (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = (-b + sqrt(((b * b) - ((3.0d0 * a) * c)))) / (3.0d0 * a)
end function
public static double code(double a, double b, double c) {
return (-b + Math.sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a);
}
def code(a, b, c): return (-b + math.sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a)
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 tmp = code(a, b, c) tmp = (-b + sqrt(((b * b) - ((3.0 * a) * c)))) / (3.0 * a); 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]
\begin{array}{l}
\\
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(3 \cdot a\right) \cdot c}}{3 \cdot a}
\end{array}
(FPCore (a b c) :precision binary64 (* (/ (* -3.0 (* c a)) (+ b (sqrt (fma b b (* a (* -3.0 c)))))) (cbrt (pow (/ 0.3333333333333333 a) 3.0))))
double code(double a, double b, double c) {
return ((-3.0 * (c * a)) / (b + sqrt(fma(b, b, (a * (-3.0 * c)))))) * cbrt(pow((0.3333333333333333 / a), 3.0));
}
function code(a, b, c) return Float64(Float64(Float64(-3.0 * Float64(c * a)) / Float64(b + sqrt(fma(b, b, Float64(a * Float64(-3.0 * c)))))) * cbrt((Float64(0.3333333333333333 / a) ^ 3.0))) end
code[a_, b_, c_] := N[(N[(N[(-3.0 * N[(c * a), $MachinePrecision]), $MachinePrecision] / N[(b + N[Sqrt[N[(b * b + N[(a * N[(-3.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Power[N[Power[N[(0.3333333333333333 / a), $MachinePrecision], 3.0], $MachinePrecision], 1/3], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{-3 \cdot \left(c \cdot a\right)}{b + \sqrt{\mathsf{fma}\left(b, b, a \cdot \left(-3 \cdot c\right)\right)}} \cdot \sqrt[3]{{\left(\frac{0.3333333333333333}{a}\right)}^{3}}
\end{array}
Initial program 57.8%
neg-sub057.8%
associate-+l-57.8%
sub0-neg57.8%
neg-mul-157.8%
associate-*r/57.8%
*-commutative57.8%
metadata-eval57.8%
metadata-eval57.8%
times-frac57.8%
*-commutative57.8%
times-frac57.8%
Simplified57.8%
add-cbrt-cube57.8%
pow357.8%
Applied egg-rr57.8%
flip--57.5%
add-sqr-sqrt59.0%
Applied egg-rr59.0%
Taylor expanded in b around 0 98.8%
Final simplification98.8%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma b b (* a (* -3.0 c)))))
(if (<= b 0.44)
(* (/ 0.3333333333333333 a) (/ (- t_0 (* b b)) (+ b (sqrt t_0))))
(/
1.0
(fma
-2.0
(/ b c)
(fma -3.0 (/ (* (* c (* a a)) -0.375) (pow b 3.0)) (* 1.5 (/ a b))))))))
double code(double a, double b, double c) {
double t_0 = fma(b, b, (a * (-3.0 * c)));
double tmp;
if (b <= 0.44) {
tmp = (0.3333333333333333 / a) * ((t_0 - (b * b)) / (b + sqrt(t_0)));
} else {
tmp = 1.0 / fma(-2.0, (b / c), fma(-3.0, (((c * (a * a)) * -0.375) / pow(b, 3.0)), (1.5 * (a / b))));
}
return tmp;
}
function code(a, b, c) t_0 = fma(b, b, Float64(a * Float64(-3.0 * c))) tmp = 0.0 if (b <= 0.44) tmp = Float64(Float64(0.3333333333333333 / a) * Float64(Float64(t_0 - Float64(b * b)) / Float64(b + sqrt(t_0)))); else tmp = Float64(1.0 / fma(-2.0, Float64(b / c), fma(-3.0, Float64(Float64(Float64(c * Float64(a * a)) * -0.375) / (b ^ 3.0)), Float64(1.5 * Float64(a / b))))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(b * b + N[(a * N[(-3.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, 0.44], N[(N[(0.3333333333333333 / a), $MachinePrecision] * N[(N[(t$95$0 - N[(b * b), $MachinePrecision]), $MachinePrecision] / N[(b + N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(-2.0 * N[(b / c), $MachinePrecision] + N[(-3.0 * N[(N[(N[(c * N[(a * a), $MachinePrecision]), $MachinePrecision] * -0.375), $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] + N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(b, b, a \cdot \left(-3 \cdot c\right)\right)\\
\mathbf{if}\;b \leq 0.44:\\
\;\;\;\;\frac{0.3333333333333333}{a} \cdot \frac{t_0 - b \cdot b}{b + \sqrt{t_0}}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\mathsf{fma}\left(-2, \frac{b}{c}, \mathsf{fma}\left(-3, \frac{\left(c \cdot \left(a \cdot a\right)\right) \cdot -0.375}{{b}^{3}}, 1.5 \cdot \frac{a}{b}\right)\right)}\\
\end{array}
\end{array}
if b < 0.440000000000000002Initial program 88.2%
neg-sub088.2%
associate-+l-88.2%
sub0-neg88.2%
neg-mul-188.2%
associate-*r/88.2%
*-commutative88.2%
metadata-eval88.2%
metadata-eval88.2%
times-frac88.2%
*-commutative88.2%
times-frac88.2%
Simplified88.1%
add-cbrt-cube88.2%
pow388.2%
Applied egg-rr88.2%
flip--87.3%
add-sqr-sqrt89.0%
Applied egg-rr89.0%
Taylor expanded in a around 0 89.1%
if 0.440000000000000002 < b Initial program 52.5%
neg-sub052.5%
associate-+l-52.5%
sub0-neg52.5%
neg-mul-152.5%
associate-*r/52.5%
metadata-eval52.5%
metadata-eval52.5%
times-frac52.5%
*-commutative52.5%
times-frac52.5%
associate-*l/52.5%
Simplified52.5%
add-cube-cbrt52.5%
pow352.5%
Applied egg-rr52.6%
rem-cube-cbrt52.6%
clear-num52.6%
associate-*r*52.6%
*-commutative52.6%
*-commutative52.6%
Applied egg-rr52.6%
Taylor expanded in b around inf 91.3%
fma-def91.3%
fma-def91.3%
distribute-rgt-out91.3%
unpow291.3%
metadata-eval91.3%
Simplified91.3%
Final simplification91.0%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma b b (* a (* -3.0 c)))))
(if (<= b 0.43)
(/ (* (/ 0.3333333333333333 a) (- t_0 (* b b))) (+ b (sqrt t_0)))
(/
1.0
(fma
-2.0
(/ b c)
(fma -3.0 (/ (* (* c (* a a)) -0.375) (pow b 3.0)) (* 1.5 (/ a b))))))))
double code(double a, double b, double c) {
double t_0 = fma(b, b, (a * (-3.0 * c)));
double tmp;
if (b <= 0.43) {
tmp = ((0.3333333333333333 / a) * (t_0 - (b * b))) / (b + sqrt(t_0));
} else {
tmp = 1.0 / fma(-2.0, (b / c), fma(-3.0, (((c * (a * a)) * -0.375) / pow(b, 3.0)), (1.5 * (a / b))));
}
return tmp;
}
function code(a, b, c) t_0 = fma(b, b, Float64(a * Float64(-3.0 * c))) tmp = 0.0 if (b <= 0.43) tmp = Float64(Float64(Float64(0.3333333333333333 / a) * Float64(t_0 - Float64(b * b))) / Float64(b + sqrt(t_0))); else tmp = Float64(1.0 / fma(-2.0, Float64(b / c), fma(-3.0, Float64(Float64(Float64(c * Float64(a * a)) * -0.375) / (b ^ 3.0)), Float64(1.5 * Float64(a / b))))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(b * b + N[(a * N[(-3.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, 0.43], N[(N[(N[(0.3333333333333333 / a), $MachinePrecision] * N[(t$95$0 - N[(b * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(b + N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(-2.0 * N[(b / c), $MachinePrecision] + N[(-3.0 * N[(N[(N[(c * N[(a * a), $MachinePrecision]), $MachinePrecision] * -0.375), $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] + N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(b, b, a \cdot \left(-3 \cdot c\right)\right)\\
\mathbf{if}\;b \leq 0.43:\\
\;\;\;\;\frac{\frac{0.3333333333333333}{a} \cdot \left(t_0 - b \cdot b\right)}{b + \sqrt{t_0}}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\mathsf{fma}\left(-2, \frac{b}{c}, \mathsf{fma}\left(-3, \frac{\left(c \cdot \left(a \cdot a\right)\right) \cdot -0.375}{{b}^{3}}, 1.5 \cdot \frac{a}{b}\right)\right)}\\
\end{array}
\end{array}
if b < 0.429999999999999993Initial program 88.2%
neg-sub088.2%
associate-+l-88.2%
sub0-neg88.2%
neg-mul-188.2%
associate-*r/88.2%
*-commutative88.2%
metadata-eval88.2%
metadata-eval88.2%
times-frac88.2%
*-commutative88.2%
times-frac88.2%
Simplified88.1%
add-cube-cbrt88.0%
pow388.0%
Applied egg-rr88.0%
flip--87.2%
add-sqr-sqrt89.0%
rem-cube-cbrt89.1%
associate-*l/89.2%
+-commutative89.2%
Applied egg-rr89.2%
*-commutative89.2%
Simplified89.2%
if 0.429999999999999993 < b Initial program 52.5%
neg-sub052.5%
associate-+l-52.5%
sub0-neg52.5%
neg-mul-152.5%
associate-*r/52.5%
metadata-eval52.5%
metadata-eval52.5%
times-frac52.5%
*-commutative52.5%
times-frac52.5%
associate-*l/52.5%
Simplified52.5%
add-cube-cbrt52.5%
pow352.5%
Applied egg-rr52.6%
rem-cube-cbrt52.6%
clear-num52.6%
associate-*r*52.6%
*-commutative52.6%
*-commutative52.6%
Applied egg-rr52.6%
Taylor expanded in b around inf 91.3%
fma-def91.3%
fma-def91.3%
distribute-rgt-out91.3%
unpow291.3%
metadata-eval91.3%
Simplified91.3%
Final simplification91.0%
(FPCore (a b c)
:precision binary64
(if (<= b 0.19)
(/ (- (sqrt (fma b b (* c (* -3.0 a)))) b) (* a 3.0))
(/
1.0
(fma
-2.0
(/ b c)
(fma -3.0 (/ (* (* c (* a a)) -0.375) (pow b 3.0)) (* 1.5 (/ a b)))))))
double code(double a, double b, double c) {
double tmp;
if (b <= 0.19) {
tmp = (sqrt(fma(b, b, (c * (-3.0 * a)))) - b) / (a * 3.0);
} else {
tmp = 1.0 / fma(-2.0, (b / c), fma(-3.0, (((c * (a * a)) * -0.375) / pow(b, 3.0)), (1.5 * (a / b))));
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 0.19) tmp = Float64(Float64(sqrt(fma(b, b, Float64(c * Float64(-3.0 * a)))) - b) / Float64(a * 3.0)); else tmp = Float64(1.0 / fma(-2.0, Float64(b / c), fma(-3.0, Float64(Float64(Float64(c * Float64(a * a)) * -0.375) / (b ^ 3.0)), Float64(1.5 * Float64(a / b))))); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 0.19], N[(N[(N[Sqrt[N[(b * b + N[(c * N[(-3.0 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 3.0), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(-2.0 * N[(b / c), $MachinePrecision] + N[(-3.0 * N[(N[(N[(c * N[(a * a), $MachinePrecision]), $MachinePrecision] * -0.375), $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] + N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 0.19:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(b, b, c \cdot \left(-3 \cdot a\right)\right)} - b}{a \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\mathsf{fma}\left(-2, \frac{b}{c}, \mathsf{fma}\left(-3, \frac{\left(c \cdot \left(a \cdot a\right)\right) \cdot -0.375}{{b}^{3}}, 1.5 \cdot \frac{a}{b}\right)\right)}\\
\end{array}
\end{array}
if b < 0.19Initial program 88.8%
neg-sub088.8%
associate-+l-88.8%
sub0-neg88.8%
neg-mul-188.8%
associate-*r/88.8%
metadata-eval88.8%
metadata-eval88.8%
times-frac88.8%
*-commutative88.8%
times-frac88.8%
associate-*l/88.8%
Simplified88.9%
if 0.19 < b Initial program 52.9%
neg-sub052.9%
associate-+l-52.9%
sub0-neg52.9%
neg-mul-152.9%
associate-*r/52.9%
metadata-eval52.9%
metadata-eval52.9%
times-frac52.9%
*-commutative52.9%
times-frac52.9%
associate-*l/52.9%
Simplified52.9%
add-cube-cbrt52.9%
pow352.9%
Applied egg-rr52.9%
rem-cube-cbrt52.9%
clear-num52.9%
associate-*r*52.9%
*-commutative52.9%
*-commutative52.9%
Applied egg-rr52.9%
Taylor expanded in b around inf 91.2%
fma-def91.2%
fma-def91.2%
distribute-rgt-out91.2%
unpow291.2%
metadata-eval91.2%
Simplified91.2%
Final simplification90.9%
(FPCore (a b c) :precision binary64 (if (<= b 65.0) (* -0.3333333333333333 (/ (- b (sqrt (fma b b (* a (* -3.0 c))))) a)) (/ 1.0 (+ (* 1.5 (/ a b)) (* -2.0 (/ b c))))))
double code(double a, double b, double c) {
double tmp;
if (b <= 65.0) {
tmp = -0.3333333333333333 * ((b - sqrt(fma(b, b, (a * (-3.0 * c))))) / a);
} else {
tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)));
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 65.0) tmp = Float64(-0.3333333333333333 * Float64(Float64(b - sqrt(fma(b, b, Float64(a * Float64(-3.0 * c))))) / a)); else tmp = Float64(1.0 / Float64(Float64(1.5 * Float64(a / b)) + Float64(-2.0 * Float64(b / c)))); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 65.0], N[(-0.3333333333333333 * N[(N[(b - N[Sqrt[N[(b * b + N[(a * N[(-3.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision] + N[(-2.0 * N[(b / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 65:\\
\;\;\;\;-0.3333333333333333 \cdot \frac{b - \sqrt{\mathsf{fma}\left(b, b, a \cdot \left(-3 \cdot c\right)\right)}}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{1.5 \cdot \frac{a}{b} + -2 \cdot \frac{b}{c}}\\
\end{array}
\end{array}
if b < 65Initial program 81.9%
/-rgt-identity81.9%
metadata-eval81.9%
associate-/l*81.9%
associate-*r/81.9%
*-commutative81.9%
associate-*l/81.9%
associate-*r/81.9%
metadata-eval81.9%
metadata-eval81.9%
times-frac81.9%
neg-mul-181.9%
distribute-rgt-neg-in81.9%
times-frac81.9%
metadata-eval81.9%
neg-mul-181.9%
Simplified82.0%
if 65 < b Initial program 47.2%
neg-sub047.2%
associate-+l-47.2%
sub0-neg47.2%
neg-mul-147.2%
associate-*r/47.2%
metadata-eval47.2%
metadata-eval47.2%
times-frac47.2%
*-commutative47.2%
times-frac47.2%
associate-*l/47.2%
Simplified47.2%
add-cube-cbrt47.2%
pow347.2%
Applied egg-rr47.2%
rem-cube-cbrt47.3%
clear-num47.3%
associate-*r*47.2%
*-commutative47.2%
*-commutative47.2%
Applied egg-rr47.2%
Taylor expanded in b around inf 88.9%
Final simplification86.8%
(FPCore (a b c) :precision binary64 (if (<= b 65.0) (* (/ 0.3333333333333333 a) (- (sqrt (fma b b (* a (* -3.0 c)))) b)) (/ 1.0 (+ (* 1.5 (/ a b)) (* -2.0 (/ b c))))))
double code(double a, double b, double c) {
double tmp;
if (b <= 65.0) {
tmp = (0.3333333333333333 / a) * (sqrt(fma(b, b, (a * (-3.0 * c)))) - b);
} else {
tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)));
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 65.0) tmp = Float64(Float64(0.3333333333333333 / a) * Float64(sqrt(fma(b, b, Float64(a * Float64(-3.0 * c)))) - b)); else tmp = Float64(1.0 / Float64(Float64(1.5 * Float64(a / b)) + Float64(-2.0 * Float64(b / c)))); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 65.0], N[(N[(0.3333333333333333 / a), $MachinePrecision] * N[(N[Sqrt[N[(b * b + N[(a * N[(-3.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision] + N[(-2.0 * N[(b / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 65:\\
\;\;\;\;\frac{0.3333333333333333}{a} \cdot \left(\sqrt{\mathsf{fma}\left(b, b, a \cdot \left(-3 \cdot c\right)\right)} - b\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{1.5 \cdot \frac{a}{b} + -2 \cdot \frac{b}{c}}\\
\end{array}
\end{array}
if b < 65Initial program 81.9%
neg-sub081.9%
associate-+l-81.9%
sub0-neg81.9%
neg-mul-181.9%
associate-*r/81.9%
*-commutative81.9%
metadata-eval81.9%
metadata-eval81.9%
times-frac81.9%
*-commutative81.9%
times-frac81.9%
Simplified82.0%
if 65 < b Initial program 47.2%
neg-sub047.2%
associate-+l-47.2%
sub0-neg47.2%
neg-mul-147.2%
associate-*r/47.2%
metadata-eval47.2%
metadata-eval47.2%
times-frac47.2%
*-commutative47.2%
times-frac47.2%
associate-*l/47.2%
Simplified47.2%
add-cube-cbrt47.2%
pow347.2%
Applied egg-rr47.2%
rem-cube-cbrt47.3%
clear-num47.3%
associate-*r*47.2%
*-commutative47.2%
*-commutative47.2%
Applied egg-rr47.2%
Taylor expanded in b around inf 88.9%
Final simplification86.8%
(FPCore (a b c) :precision binary64 (if (<= b 65.0) (/ (* -0.3333333333333333 (- b (sqrt (fma b b (* -3.0 (* c a)))))) a) (/ 1.0 (+ (* 1.5 (/ a b)) (* -2.0 (/ b c))))))
double code(double a, double b, double c) {
double tmp;
if (b <= 65.0) {
tmp = (-0.3333333333333333 * (b - sqrt(fma(b, b, (-3.0 * (c * a)))))) / a;
} else {
tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)));
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 65.0) tmp = Float64(Float64(-0.3333333333333333 * Float64(b - sqrt(fma(b, b, Float64(-3.0 * Float64(c * a)))))) / a); else tmp = Float64(1.0 / Float64(Float64(1.5 * Float64(a / b)) + Float64(-2.0 * Float64(b / c)))); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 65.0], N[(N[(-0.3333333333333333 * N[(b - N[Sqrt[N[(b * b + N[(-3.0 * N[(c * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision], N[(1.0 / N[(N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision] + N[(-2.0 * N[(b / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 65:\\
\;\;\;\;\frac{-0.3333333333333333 \cdot \left(b - \sqrt{\mathsf{fma}\left(b, b, -3 \cdot \left(c \cdot a\right)\right)}\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{1.5 \cdot \frac{a}{b} + -2 \cdot \frac{b}{c}}\\
\end{array}
\end{array}
if b < 65Initial program 81.9%
/-rgt-identity81.9%
metadata-eval81.9%
associate-/r/81.9%
metadata-eval81.9%
metadata-eval81.9%
times-frac81.9%
*-commutative81.9%
times-frac81.9%
*-commutative81.9%
associate-/r*81.9%
associate-*l/81.8%
Simplified82.0%
if 65 < b Initial program 47.2%
neg-sub047.2%
associate-+l-47.2%
sub0-neg47.2%
neg-mul-147.2%
associate-*r/47.2%
metadata-eval47.2%
metadata-eval47.2%
times-frac47.2%
*-commutative47.2%
times-frac47.2%
associate-*l/47.2%
Simplified47.2%
add-cube-cbrt47.2%
pow347.2%
Applied egg-rr47.2%
rem-cube-cbrt47.3%
clear-num47.3%
associate-*r*47.2%
*-commutative47.2%
*-commutative47.2%
Applied egg-rr47.2%
Taylor expanded in b around inf 88.9%
Final simplification86.8%
(FPCore (a b c) :precision binary64 (if (<= b 65.0) (/ (- (sqrt (fma b b (* c (* -3.0 a)))) b) (* a 3.0)) (/ 1.0 (+ (* 1.5 (/ a b)) (* -2.0 (/ b c))))))
double code(double a, double b, double c) {
double tmp;
if (b <= 65.0) {
tmp = (sqrt(fma(b, b, (c * (-3.0 * a)))) - b) / (a * 3.0);
} else {
tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)));
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 65.0) tmp = Float64(Float64(sqrt(fma(b, b, Float64(c * Float64(-3.0 * a)))) - b) / Float64(a * 3.0)); else tmp = Float64(1.0 / Float64(Float64(1.5 * Float64(a / b)) + Float64(-2.0 * Float64(b / c)))); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 65.0], N[(N[(N[Sqrt[N[(b * b + N[(c * N[(-3.0 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 3.0), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision] + N[(-2.0 * N[(b / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 65:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(b, b, c \cdot \left(-3 \cdot a\right)\right)} - b}{a \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{1.5 \cdot \frac{a}{b} + -2 \cdot \frac{b}{c}}\\
\end{array}
\end{array}
if b < 65Initial program 81.9%
neg-sub081.9%
associate-+l-81.9%
sub0-neg81.9%
neg-mul-181.9%
associate-*r/81.9%
metadata-eval81.9%
metadata-eval81.9%
times-frac81.9%
*-commutative81.9%
times-frac81.9%
associate-*l/81.9%
Simplified82.1%
if 65 < b Initial program 47.2%
neg-sub047.2%
associate-+l-47.2%
sub0-neg47.2%
neg-mul-147.2%
associate-*r/47.2%
metadata-eval47.2%
metadata-eval47.2%
times-frac47.2%
*-commutative47.2%
times-frac47.2%
associate-*l/47.2%
Simplified47.2%
add-cube-cbrt47.2%
pow347.2%
Applied egg-rr47.2%
rem-cube-cbrt47.3%
clear-num47.3%
associate-*r*47.2%
*-commutative47.2%
*-commutative47.2%
Applied egg-rr47.2%
Taylor expanded in b around inf 88.9%
Final simplification86.8%
(FPCore (a b c) :precision binary64 (if (<= b 65.0) (/ (- (sqrt (- (* b b) (* 3.0 (* c a)))) b) (* a 3.0)) (/ 1.0 (+ (* 1.5 (/ a b)) (* -2.0 (/ b c))))))
double code(double a, double b, double c) {
double tmp;
if (b <= 65.0) {
tmp = (sqrt(((b * b) - (3.0 * (c * a)))) - b) / (a * 3.0);
} else {
tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)));
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b <= 65.0d0) then
tmp = (sqrt(((b * b) - (3.0d0 * (c * a)))) - b) / (a * 3.0d0)
else
tmp = 1.0d0 / ((1.5d0 * (a / b)) + ((-2.0d0) * (b / c)))
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= 65.0) {
tmp = (Math.sqrt(((b * b) - (3.0 * (c * a)))) - b) / (a * 3.0);
} else {
tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)));
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= 65.0: tmp = (math.sqrt(((b * b) - (3.0 * (c * a)))) - b) / (a * 3.0) else: tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c))) return tmp
function code(a, b, c) tmp = 0.0 if (b <= 65.0) tmp = Float64(Float64(sqrt(Float64(Float64(b * b) - Float64(3.0 * Float64(c * a)))) - b) / Float64(a * 3.0)); else tmp = Float64(1.0 / Float64(Float64(1.5 * Float64(a / b)) + Float64(-2.0 * Float64(b / c)))); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= 65.0) tmp = (sqrt(((b * b) - (3.0 * (c * a)))) - b) / (a * 3.0); else tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c))); end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, 65.0], N[(N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(3.0 * N[(c * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 3.0), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision] + N[(-2.0 * N[(b / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 65:\\
\;\;\;\;\frac{\sqrt{b \cdot b - 3 \cdot \left(c \cdot a\right)} - b}{a \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{1.5 \cdot \frac{a}{b} + -2 \cdot \frac{b}{c}}\\
\end{array}
\end{array}
if b < 65Initial program 81.9%
neg-sub081.9%
associate-+l-81.9%
sub0-neg81.9%
neg-mul-181.9%
associate-*r/81.9%
metadata-eval81.9%
metadata-eval81.9%
times-frac81.9%
*-commutative81.9%
times-frac81.9%
associate-*l/81.9%
Simplified81.9%
if 65 < b Initial program 47.2%
neg-sub047.2%
associate-+l-47.2%
sub0-neg47.2%
neg-mul-147.2%
associate-*r/47.2%
metadata-eval47.2%
metadata-eval47.2%
times-frac47.2%
*-commutative47.2%
times-frac47.2%
associate-*l/47.2%
Simplified47.2%
add-cube-cbrt47.2%
pow347.2%
Applied egg-rr47.2%
rem-cube-cbrt47.3%
clear-num47.3%
associate-*r*47.2%
*-commutative47.2%
*-commutative47.2%
Applied egg-rr47.2%
Taylor expanded in b around inf 88.9%
Final simplification86.7%
(FPCore (a b c) :precision binary64 (/ 1.0 (+ (* 1.5 (/ a b)) (* -2.0 (/ b c)))))
double code(double a, double b, double c) {
return 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)));
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = 1.0d0 / ((1.5d0 * (a / b)) + ((-2.0d0) * (b / c)))
end function
public static double code(double a, double b, double c) {
return 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)));
}
def code(a, b, c): return 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c)))
function code(a, b, c) return Float64(1.0 / Float64(Float64(1.5 * Float64(a / b)) + Float64(-2.0 * Float64(b / c)))) end
function tmp = code(a, b, c) tmp = 1.0 / ((1.5 * (a / b)) + (-2.0 * (b / c))); end
code[a_, b_, c_] := N[(1.0 / N[(N[(1.5 * N[(a / b), $MachinePrecision]), $MachinePrecision] + N[(-2.0 * N[(b / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{1.5 \cdot \frac{a}{b} + -2 \cdot \frac{b}{c}}
\end{array}
Initial program 57.8%
neg-sub057.8%
associate-+l-57.8%
sub0-neg57.8%
neg-mul-157.8%
associate-*r/57.8%
metadata-eval57.8%
metadata-eval57.8%
times-frac57.8%
*-commutative57.8%
times-frac57.8%
associate-*l/57.8%
Simplified57.8%
add-cube-cbrt57.8%
pow357.8%
Applied egg-rr57.8%
rem-cube-cbrt57.9%
clear-num57.8%
associate-*r*57.8%
*-commutative57.8%
*-commutative57.8%
Applied egg-rr57.8%
Taylor expanded in b around inf 80.4%
Final simplification80.4%
(FPCore (a b c) :precision binary64 (* -0.5 (/ c b)))
double code(double a, double b, double c) {
return -0.5 * (c / b);
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = (-0.5d0) * (c / b)
end function
public static double code(double a, double b, double c) {
return -0.5 * (c / b);
}
def code(a, b, c): return -0.5 * (c / b)
function code(a, b, c) return Float64(-0.5 * Float64(c / b)) end
function tmp = code(a, b, c) tmp = -0.5 * (c / b); end
code[a_, b_, c_] := N[(-0.5 * N[(c / b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
-0.5 \cdot \frac{c}{b}
\end{array}
Initial program 57.8%
neg-sub057.8%
associate-+l-57.8%
sub0-neg57.8%
neg-mul-157.8%
associate-*r/57.8%
metadata-eval57.8%
metadata-eval57.8%
times-frac57.8%
*-commutative57.8%
times-frac57.8%
associate-*l/57.8%
Simplified57.9%
Taylor expanded in b around inf 62.1%
Final simplification62.1%
(FPCore (a b c) :precision binary64 (/ 0.0 a))
double code(double a, double b, double c) {
return 0.0 / a;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = 0.0d0 / a
end function
public static double code(double a, double b, double c) {
return 0.0 / a;
}
def code(a, b, c): return 0.0 / a
function code(a, b, c) return Float64(0.0 / a) end
function tmp = code(a, b, c) tmp = 0.0 / a; end
code[a_, b_, c_] := N[(0.0 / a), $MachinePrecision]
\begin{array}{l}
\\
\frac{0}{a}
\end{array}
Initial program 57.8%
neg-sub057.8%
associate-+l-57.8%
sub0-neg57.8%
neg-mul-157.8%
associate-*r/57.8%
metadata-eval57.8%
metadata-eval57.8%
times-frac57.8%
*-commutative57.8%
times-frac57.8%
associate-*l/57.8%
Simplified57.8%
add-cube-cbrt57.8%
pow357.8%
Applied egg-rr57.8%
Taylor expanded in c around 0 3.2%
pow-base-13.2%
*-rgt-identity3.2%
associate-*r/3.2%
distribute-rgt1-in3.2%
metadata-eval3.2%
mul0-lft3.2%
metadata-eval3.2%
Simplified3.2%
Final simplification3.2%
herbie shell --seed 2023189
(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)))