
(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))
double code(double a, double b, double c) {
return (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.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) - ((4.0d0 * a) * c)))) / (2.0d0 * a)
end function
public static double code(double a, double b, double c) {
return (-b + Math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
}
def code(a, b, c): return (-b + math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a)
function code(a, b, c) return Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))) / Float64(2.0 * a)) end
function tmp = code(a, b, c) tmp = (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a); end
code[a_, b_, c_] := N[(N[((-b) + N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 16 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))
double code(double a, double b, double c) {
return (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.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) - ((4.0d0 * a) * c)))) / (2.0d0 * a)
end function
public static double code(double a, double b, double c) {
return (-b + Math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
}
def code(a, b, c): return (-b + math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a)
function code(a, b, c) return Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))) / Float64(2.0 * a)) end
function tmp = code(a, b, c) tmp = (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a); end
code[a_, b_, c_] := N[(N[((-b) + N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}
\end{array}
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma a (* c -4.0) (pow b 2.0))))
(if (<= b 0.028)
(/
(*
(+ (pow (exp (log t_0)) 0.25) (sqrt b))
(/
(- (pow t_0 0.75) (pow b 1.5))
(+ (+ b (sqrt t_0)) (* (sqrt b) (pow t_0 0.25)))))
(* a 2.0))
(fma
-2.0
(* (pow a 2.0) (/ (pow c 3.0) (pow b 5.0)))
(fma
-1.0
(fma a (/ (pow c 2.0) (pow b 3.0)) (/ c b))
(/ (* -5.0 (* (pow a 3.0) (pow c 4.0))) (pow b 7.0)))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c * -4.0), pow(b, 2.0));
double tmp;
if (b <= 0.028) {
tmp = ((pow(exp(log(t_0)), 0.25) + sqrt(b)) * ((pow(t_0, 0.75) - pow(b, 1.5)) / ((b + sqrt(t_0)) + (sqrt(b) * pow(t_0, 0.25))))) / (a * 2.0);
} else {
tmp = fma(-2.0, (pow(a, 2.0) * (pow(c, 3.0) / pow(b, 5.0))), fma(-1.0, fma(a, (pow(c, 2.0) / pow(b, 3.0)), (c / b)), ((-5.0 * (pow(a, 3.0) * pow(c, 4.0))) / pow(b, 7.0))));
}
return tmp;
}
function code(a, b, c) t_0 = fma(a, Float64(c * -4.0), (b ^ 2.0)) tmp = 0.0 if (b <= 0.028) tmp = Float64(Float64(Float64((exp(log(t_0)) ^ 0.25) + sqrt(b)) * Float64(Float64((t_0 ^ 0.75) - (b ^ 1.5)) / Float64(Float64(b + sqrt(t_0)) + Float64(sqrt(b) * (t_0 ^ 0.25))))) / Float64(a * 2.0)); else tmp = fma(-2.0, Float64((a ^ 2.0) * Float64((c ^ 3.0) / (b ^ 5.0))), fma(-1.0, fma(a, Float64((c ^ 2.0) / (b ^ 3.0)), Float64(c / b)), Float64(Float64(-5.0 * Float64((a ^ 3.0) * (c ^ 4.0))) / (b ^ 7.0)))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, 0.028], N[(N[(N[(N[Power[N[Exp[N[Log[t$95$0], $MachinePrecision]], $MachinePrecision], 0.25], $MachinePrecision] + N[Sqrt[b], $MachinePrecision]), $MachinePrecision] * N[(N[(N[Power[t$95$0, 0.75], $MachinePrecision] - N[Power[b, 1.5], $MachinePrecision]), $MachinePrecision] / N[(N[(b + N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[b], $MachinePrecision] * N[Power[t$95$0, 0.25], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(-2.0 * N[(N[Power[a, 2.0], $MachinePrecision] * N[(N[Power[c, 3.0], $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-1.0 * N[(a * N[(N[Power[c, 2.0], $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] + N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(N[(-5.0 * N[(N[Power[a, 3.0], $MachinePrecision] * N[Power[c, 4.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Power[b, 7.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)\\
\mathbf{if}\;b \leq 0.028:\\
\;\;\;\;\frac{\left({\left(e^{\log t\_0}\right)}^{0.25} + \sqrt{b}\right) \cdot \frac{{t\_0}^{0.75} - {b}^{1.5}}{\left(b + \sqrt{t\_0}\right) + \sqrt{b} \cdot {t\_0}^{0.25}}}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-2, {a}^{2} \cdot \frac{{c}^{3}}{{b}^{5}}, \mathsf{fma}\left(-1, \mathsf{fma}\left(a, \frac{{c}^{2}}{{b}^{3}}, \frac{c}{b}\right), \frac{-5 \cdot \left({a}^{3} \cdot {c}^{4}\right)}{{b}^{7}}\right)\right)\\
\end{array}
\end{array}
if b < 0.0280000000000000006Initial program 92.2%
*-commutative92.2%
Simplified92.3%
add-sqr-sqrt91.3%
add-sqr-sqrt90.5%
difference-of-squares91.2%
pow1/291.2%
sqrt-pow191.2%
pow291.2%
metadata-eval91.2%
pow1/291.2%
sqrt-pow191.1%
pow291.1%
metadata-eval91.1%
Applied egg-rr91.1%
add-exp-log91.1%
Applied egg-rr91.1%
flip3--91.6%
pow-pow91.8%
metadata-eval91.8%
pow1/291.8%
pow-pow94.2%
metadata-eval94.2%
pow-prod-up94.2%
metadata-eval94.2%
pow1/294.2%
add-sqr-sqrt94.1%
Applied egg-rr94.1%
associate-+r+94.1%
+-commutative94.1%
*-commutative94.1%
Simplified94.1%
if 0.0280000000000000006 < b Initial program 51.4%
*-commutative51.4%
Simplified51.4%
Taylor expanded in a around 0 92.9%
Simplified92.9%
Taylor expanded in c around 0 92.9%
associate-*r/92.9%
Simplified92.9%
Final simplification93.0%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma a (* c -4.0) (pow b 2.0))) (t_1 (pow t_0 0.25)))
(if (<= b 0.028)
(/
(*
(/ (- (pow t_0 0.75) (pow b 1.5)) (+ (+ b (sqrt t_0)) (* (sqrt b) t_1)))
(+ (sqrt b) t_1))
(* a 2.0))
(fma
-2.0
(* (pow a 2.0) (/ (pow c 3.0) (pow b 5.0)))
(fma
-1.0
(fma a (/ (pow c 2.0) (pow b 3.0)) (/ c b))
(/ (* -5.0 (* (pow a 3.0) (pow c 4.0))) (pow b 7.0)))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c * -4.0), pow(b, 2.0));
double t_1 = pow(t_0, 0.25);
double tmp;
if (b <= 0.028) {
tmp = (((pow(t_0, 0.75) - pow(b, 1.5)) / ((b + sqrt(t_0)) + (sqrt(b) * t_1))) * (sqrt(b) + t_1)) / (a * 2.0);
} else {
tmp = fma(-2.0, (pow(a, 2.0) * (pow(c, 3.0) / pow(b, 5.0))), fma(-1.0, fma(a, (pow(c, 2.0) / pow(b, 3.0)), (c / b)), ((-5.0 * (pow(a, 3.0) * pow(c, 4.0))) / pow(b, 7.0))));
}
return tmp;
}
function code(a, b, c) t_0 = fma(a, Float64(c * -4.0), (b ^ 2.0)) t_1 = t_0 ^ 0.25 tmp = 0.0 if (b <= 0.028) tmp = Float64(Float64(Float64(Float64((t_0 ^ 0.75) - (b ^ 1.5)) / Float64(Float64(b + sqrt(t_0)) + Float64(sqrt(b) * t_1))) * Float64(sqrt(b) + t_1)) / Float64(a * 2.0)); else tmp = fma(-2.0, Float64((a ^ 2.0) * Float64((c ^ 3.0) / (b ^ 5.0))), fma(-1.0, fma(a, Float64((c ^ 2.0) / (b ^ 3.0)), Float64(c / b)), Float64(Float64(-5.0 * Float64((a ^ 3.0) * (c ^ 4.0))) / (b ^ 7.0)))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Power[t$95$0, 0.25], $MachinePrecision]}, If[LessEqual[b, 0.028], N[(N[(N[(N[(N[Power[t$95$0, 0.75], $MachinePrecision] - N[Power[b, 1.5], $MachinePrecision]), $MachinePrecision] / N[(N[(b + N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision] + N[(N[Sqrt[b], $MachinePrecision] * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[b], $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(-2.0 * N[(N[Power[a, 2.0], $MachinePrecision] * N[(N[Power[c, 3.0], $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-1.0 * N[(a * N[(N[Power[c, 2.0], $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] + N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(N[(-5.0 * N[(N[Power[a, 3.0], $MachinePrecision] * N[Power[c, 4.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Power[b, 7.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)\\
t_1 := {t\_0}^{0.25}\\
\mathbf{if}\;b \leq 0.028:\\
\;\;\;\;\frac{\frac{{t\_0}^{0.75} - {b}^{1.5}}{\left(b + \sqrt{t\_0}\right) + \sqrt{b} \cdot t\_1} \cdot \left(\sqrt{b} + t\_1\right)}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-2, {a}^{2} \cdot \frac{{c}^{3}}{{b}^{5}}, \mathsf{fma}\left(-1, \mathsf{fma}\left(a, \frac{{c}^{2}}{{b}^{3}}, \frac{c}{b}\right), \frac{-5 \cdot \left({a}^{3} \cdot {c}^{4}\right)}{{b}^{7}}\right)\right)\\
\end{array}
\end{array}
if b < 0.0280000000000000006Initial program 92.2%
*-commutative92.2%
Simplified92.3%
add-sqr-sqrt91.3%
add-sqr-sqrt90.5%
difference-of-squares91.2%
pow1/291.2%
sqrt-pow191.2%
pow291.2%
metadata-eval91.2%
pow1/291.2%
sqrt-pow191.1%
pow291.1%
metadata-eval91.1%
Applied egg-rr91.1%
flip3--91.6%
pow-pow91.8%
metadata-eval91.8%
pow1/291.8%
pow-pow94.2%
metadata-eval94.2%
pow-prod-up94.2%
metadata-eval94.2%
pow1/294.2%
add-sqr-sqrt94.1%
Applied egg-rr93.9%
associate-+r+94.1%
+-commutative94.1%
*-commutative94.1%
Simplified93.8%
if 0.0280000000000000006 < b Initial program 51.4%
*-commutative51.4%
Simplified51.4%
Taylor expanded in a around 0 92.9%
Simplified92.9%
Taylor expanded in c around 0 92.9%
associate-*r/92.9%
Simplified92.9%
Final simplification93.0%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma a (* c -4.0) (pow b 2.0))) (t_1 (sqrt t_0)))
(if (<= b 0.03)
(*
(/
(- (pow b 3.0) (pow t_0 1.5))
(+ (pow (- t_1) 2.0) (+ (pow b 2.0) (* b t_1))))
(/ 1.0 (* a -2.0)))
(fma
-2.0
(* (pow a 2.0) (/ (pow c 3.0) (pow b 5.0)))
(fma
-1.0
(fma a (/ (pow c 2.0) (pow b 3.0)) (/ c b))
(/ (* -5.0 (* (pow a 3.0) (pow c 4.0))) (pow b 7.0)))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c * -4.0), pow(b, 2.0));
double t_1 = sqrt(t_0);
double tmp;
if (b <= 0.03) {
tmp = ((pow(b, 3.0) - pow(t_0, 1.5)) / (pow(-t_1, 2.0) + (pow(b, 2.0) + (b * t_1)))) * (1.0 / (a * -2.0));
} else {
tmp = fma(-2.0, (pow(a, 2.0) * (pow(c, 3.0) / pow(b, 5.0))), fma(-1.0, fma(a, (pow(c, 2.0) / pow(b, 3.0)), (c / b)), ((-5.0 * (pow(a, 3.0) * pow(c, 4.0))) / pow(b, 7.0))));
}
return tmp;
}
function code(a, b, c) t_0 = fma(a, Float64(c * -4.0), (b ^ 2.0)) t_1 = sqrt(t_0) tmp = 0.0 if (b <= 0.03) tmp = Float64(Float64(Float64((b ^ 3.0) - (t_0 ^ 1.5)) / Float64((Float64(-t_1) ^ 2.0) + Float64((b ^ 2.0) + Float64(b * t_1)))) * Float64(1.0 / Float64(a * -2.0))); else tmp = fma(-2.0, Float64((a ^ 2.0) * Float64((c ^ 3.0) / (b ^ 5.0))), fma(-1.0, fma(a, Float64((c ^ 2.0) / (b ^ 3.0)), Float64(c / b)), Float64(Float64(-5.0 * Float64((a ^ 3.0) * (c ^ 4.0))) / (b ^ 7.0)))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[t$95$0], $MachinePrecision]}, If[LessEqual[b, 0.03], N[(N[(N[(N[Power[b, 3.0], $MachinePrecision] - N[Power[t$95$0, 1.5], $MachinePrecision]), $MachinePrecision] / N[(N[Power[(-t$95$1), 2.0], $MachinePrecision] + N[(N[Power[b, 2.0], $MachinePrecision] + N[(b * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[(a * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(-2.0 * N[(N[Power[a, 2.0], $MachinePrecision] * N[(N[Power[c, 3.0], $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-1.0 * N[(a * N[(N[Power[c, 2.0], $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] + N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(N[(-5.0 * N[(N[Power[a, 3.0], $MachinePrecision] * N[Power[c, 4.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Power[b, 7.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)\\
t_1 := \sqrt{t\_0}\\
\mathbf{if}\;b \leq 0.03:\\
\;\;\;\;\frac{{b}^{3} - {t\_0}^{1.5}}{{\left(-t\_1\right)}^{2} + \left({b}^{2} + b \cdot t\_1\right)} \cdot \frac{1}{a \cdot -2}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-2, {a}^{2} \cdot \frac{{c}^{3}}{{b}^{5}}, \mathsf{fma}\left(-1, \mathsf{fma}\left(a, \frac{{c}^{2}}{{b}^{3}}, \frac{c}{b}\right), \frac{-5 \cdot \left({a}^{3} \cdot {c}^{4}\right)}{{b}^{7}}\right)\right)\\
\end{array}
\end{array}
if b < 0.029999999999999999Initial program 92.2%
*-commutative92.2%
Simplified92.3%
frac-2neg92.3%
div-inv92.6%
sub-neg92.6%
distribute-neg-in92.6%
pow292.6%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod92.6%
sqr-neg92.6%
sqrt-prod91.4%
add-sqr-sqrt92.6%
distribute-rgt-neg-in92.6%
metadata-eval92.6%
Applied egg-rr92.6%
flip3-+92.6%
neg-mul-192.6%
unpow-prod-down92.6%
metadata-eval92.6%
pow1/292.6%
metadata-eval92.6%
pow-pow88.2%
pow1/391.1%
pow391.0%
add-cube-cbrt93.5%
Applied egg-rr93.5%
if 0.029999999999999999 < b Initial program 51.4%
*-commutative51.4%
Simplified51.4%
Taylor expanded in a around 0 92.9%
Simplified92.9%
Taylor expanded in c around 0 92.9%
associate-*r/92.9%
Simplified92.9%
Final simplification93.0%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma a (* c -4.0) (pow b 2.0))))
(if (<= b 0.0305)
(/
(/ (- (pow t_0 1.5) (pow b 3.0)) (+ t_0 (fma b b (* b (sqrt t_0)))))
(* a 2.0))
(fma
-2.0
(* (pow a 2.0) (/ (pow c 3.0) (pow b 5.0)))
(fma
-1.0
(fma a (/ (pow c 2.0) (pow b 3.0)) (/ c b))
(/ (* -5.0 (* (pow a 3.0) (pow c 4.0))) (pow b 7.0)))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c * -4.0), pow(b, 2.0));
double tmp;
if (b <= 0.0305) {
tmp = ((pow(t_0, 1.5) - pow(b, 3.0)) / (t_0 + fma(b, b, (b * sqrt(t_0))))) / (a * 2.0);
} else {
tmp = fma(-2.0, (pow(a, 2.0) * (pow(c, 3.0) / pow(b, 5.0))), fma(-1.0, fma(a, (pow(c, 2.0) / pow(b, 3.0)), (c / b)), ((-5.0 * (pow(a, 3.0) * pow(c, 4.0))) / pow(b, 7.0))));
}
return tmp;
}
function code(a, b, c) t_0 = fma(a, Float64(c * -4.0), (b ^ 2.0)) tmp = 0.0 if (b <= 0.0305) tmp = Float64(Float64(Float64((t_0 ^ 1.5) - (b ^ 3.0)) / Float64(t_0 + fma(b, b, Float64(b * sqrt(t_0))))) / Float64(a * 2.0)); else tmp = fma(-2.0, Float64((a ^ 2.0) * Float64((c ^ 3.0) / (b ^ 5.0))), fma(-1.0, fma(a, Float64((c ^ 2.0) / (b ^ 3.0)), Float64(c / b)), Float64(Float64(-5.0 * Float64((a ^ 3.0) * (c ^ 4.0))) / (b ^ 7.0)))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, 0.0305], N[(N[(N[(N[Power[t$95$0, 1.5], $MachinePrecision] - N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] / N[(t$95$0 + N[(b * b + N[(b * N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(-2.0 * N[(N[Power[a, 2.0], $MachinePrecision] * N[(N[Power[c, 3.0], $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-1.0 * N[(a * N[(N[Power[c, 2.0], $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] + N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(N[(-5.0 * N[(N[Power[a, 3.0], $MachinePrecision] * N[Power[c, 4.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Power[b, 7.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)\\
\mathbf{if}\;b \leq 0.0305:\\
\;\;\;\;\frac{\frac{{t\_0}^{1.5} - {b}^{3}}{t\_0 + \mathsf{fma}\left(b, b, b \cdot \sqrt{t\_0}\right)}}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-2, {a}^{2} \cdot \frac{{c}^{3}}{{b}^{5}}, \mathsf{fma}\left(-1, \mathsf{fma}\left(a, \frac{{c}^{2}}{{b}^{3}}, \frac{c}{b}\right), \frac{-5 \cdot \left({a}^{3} \cdot {c}^{4}\right)}{{b}^{7}}\right)\right)\\
\end{array}
\end{array}
if b < 0.030499999999999999Initial program 92.2%
*-commutative92.2%
Simplified92.3%
add-cbrt-cube90.8%
pow1/387.9%
pow387.9%
sqrt-pow288.0%
pow288.0%
metadata-eval88.0%
Applied egg-rr88.0%
unpow1/391.1%
Simplified91.1%
flip3--91.0%
pow390.9%
add-cube-cbrt93.2%
cbrt-unprod93.4%
pow-prod-up93.4%
metadata-eval93.4%
pow393.4%
add-cbrt-cube93.4%
fma-define93.5%
Applied egg-rr93.5%
if 0.030499999999999999 < b Initial program 51.4%
*-commutative51.4%
Simplified51.4%
Taylor expanded in a around 0 92.9%
Simplified92.9%
Taylor expanded in c around 0 92.9%
associate-*r/92.9%
Simplified92.9%
Final simplification93.0%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma a (* c -4.0) (pow b 2.0))))
(if (<= b 0.0285)
(/
(/ (- (pow t_0 1.5) (pow b 3.0)) (+ t_0 (fma b b (* b (sqrt t_0)))))
(* a 2.0))
(+
(* -2.0 (/ (* (pow a 2.0) (pow c 3.0)) (pow b 5.0)))
(-
(-
(* -0.25 (/ (* (pow (* a c) 4.0) 20.0) (* a (pow b 7.0))))
(/ (* a (pow c 2.0)) (pow b 3.0)))
(/ c b))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c * -4.0), pow(b, 2.0));
double tmp;
if (b <= 0.0285) {
tmp = ((pow(t_0, 1.5) - pow(b, 3.0)) / (t_0 + fma(b, b, (b * sqrt(t_0))))) / (a * 2.0);
} else {
tmp = (-2.0 * ((pow(a, 2.0) * pow(c, 3.0)) / pow(b, 5.0))) + (((-0.25 * ((pow((a * c), 4.0) * 20.0) / (a * pow(b, 7.0)))) - ((a * pow(c, 2.0)) / pow(b, 3.0))) - (c / b));
}
return tmp;
}
function code(a, b, c) t_0 = fma(a, Float64(c * -4.0), (b ^ 2.0)) tmp = 0.0 if (b <= 0.0285) tmp = Float64(Float64(Float64((t_0 ^ 1.5) - (b ^ 3.0)) / Float64(t_0 + fma(b, b, Float64(b * sqrt(t_0))))) / Float64(a * 2.0)); else tmp = Float64(Float64(-2.0 * Float64(Float64((a ^ 2.0) * (c ^ 3.0)) / (b ^ 5.0))) + Float64(Float64(Float64(-0.25 * Float64(Float64((Float64(a * c) ^ 4.0) * 20.0) / Float64(a * (b ^ 7.0)))) - Float64(Float64(a * (c ^ 2.0)) / (b ^ 3.0))) - Float64(c / b))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, 0.0285], N[(N[(N[(N[Power[t$95$0, 1.5], $MachinePrecision] - N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision] / N[(t$95$0 + N[(b * b + N[(b * N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(-2.0 * N[(N[(N[Power[a, 2.0], $MachinePrecision] * N[Power[c, 3.0], $MachinePrecision]), $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(-0.25 * N[(N[(N[Power[N[(a * c), $MachinePrecision], 4.0], $MachinePrecision] * 20.0), $MachinePrecision] / N[(a * N[Power[b, 7.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(a * N[Power[c, 2.0], $MachinePrecision]), $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(c / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)\\
\mathbf{if}\;b \leq 0.0285:\\
\;\;\;\;\frac{\frac{{t\_0}^{1.5} - {b}^{3}}{t\_0 + \mathsf{fma}\left(b, b, b \cdot \sqrt{t\_0}\right)}}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;-2 \cdot \frac{{a}^{2} \cdot {c}^{3}}{{b}^{5}} + \left(\left(-0.25 \cdot \frac{{\left(a \cdot c\right)}^{4} \cdot 20}{a \cdot {b}^{7}} - \frac{a \cdot {c}^{2}}{{b}^{3}}\right) - \frac{c}{b}\right)\\
\end{array}
\end{array}
if b < 0.028500000000000001Initial program 92.2%
*-commutative92.2%
Simplified92.3%
add-cbrt-cube90.8%
pow1/387.9%
pow387.9%
sqrt-pow288.0%
pow288.0%
metadata-eval88.0%
Applied egg-rr88.0%
unpow1/391.1%
Simplified91.1%
flip3--91.0%
pow390.9%
add-cube-cbrt93.2%
cbrt-unprod93.4%
pow-prod-up93.4%
metadata-eval93.4%
pow393.4%
add-cbrt-cube93.4%
fma-define93.5%
Applied egg-rr93.5%
if 0.028500000000000001 < b Initial program 51.4%
*-commutative51.4%
Simplified51.4%
Taylor expanded in b around inf 92.9%
Taylor expanded in c around 0 92.9%
distribute-rgt-in92.9%
associate-*r*92.9%
associate-*r*92.9%
Simplified92.9%
Final simplification92.9%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma a (* c -4.0) (pow b 2.0))))
(if (<= b 0.03)
(* (/ 1.0 (* a -2.0)) (/ (- (pow b 2.0) t_0) (+ b (sqrt t_0))))
(+
(* -2.0 (/ (* (pow a 2.0) (pow c 3.0)) (pow b 5.0)))
(-
(-
(* -0.25 (/ (* (pow (* a c) 4.0) 20.0) (* a (pow b 7.0))))
(/ (* a (pow c 2.0)) (pow b 3.0)))
(/ c b))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c * -4.0), pow(b, 2.0));
double tmp;
if (b <= 0.03) {
tmp = (1.0 / (a * -2.0)) * ((pow(b, 2.0) - t_0) / (b + sqrt(t_0)));
} else {
tmp = (-2.0 * ((pow(a, 2.0) * pow(c, 3.0)) / pow(b, 5.0))) + (((-0.25 * ((pow((a * c), 4.0) * 20.0) / (a * pow(b, 7.0)))) - ((a * pow(c, 2.0)) / pow(b, 3.0))) - (c / b));
}
return tmp;
}
function code(a, b, c) t_0 = fma(a, Float64(c * -4.0), (b ^ 2.0)) tmp = 0.0 if (b <= 0.03) tmp = Float64(Float64(1.0 / Float64(a * -2.0)) * Float64(Float64((b ^ 2.0) - t_0) / Float64(b + sqrt(t_0)))); else tmp = Float64(Float64(-2.0 * Float64(Float64((a ^ 2.0) * (c ^ 3.0)) / (b ^ 5.0))) + Float64(Float64(Float64(-0.25 * Float64(Float64((Float64(a * c) ^ 4.0) * 20.0) / Float64(a * (b ^ 7.0)))) - Float64(Float64(a * (c ^ 2.0)) / (b ^ 3.0))) - Float64(c / b))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, 0.03], N[(N[(1.0 / N[(a * -2.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Power[b, 2.0], $MachinePrecision] - t$95$0), $MachinePrecision] / N[(b + N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(-2.0 * N[(N[(N[Power[a, 2.0], $MachinePrecision] * N[Power[c, 3.0], $MachinePrecision]), $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(-0.25 * N[(N[(N[Power[N[(a * c), $MachinePrecision], 4.0], $MachinePrecision] * 20.0), $MachinePrecision] / N[(a * N[Power[b, 7.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(a * N[Power[c, 2.0], $MachinePrecision]), $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(c / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)\\
\mathbf{if}\;b \leq 0.03:\\
\;\;\;\;\frac{1}{a \cdot -2} \cdot \frac{{b}^{2} - t\_0}{b + \sqrt{t\_0}}\\
\mathbf{else}:\\
\;\;\;\;-2 \cdot \frac{{a}^{2} \cdot {c}^{3}}{{b}^{5}} + \left(\left(-0.25 \cdot \frac{{\left(a \cdot c\right)}^{4} \cdot 20}{a \cdot {b}^{7}} - \frac{a \cdot {c}^{2}}{{b}^{3}}\right) - \frac{c}{b}\right)\\
\end{array}
\end{array}
if b < 0.029999999999999999Initial program 92.2%
*-commutative92.2%
Simplified92.3%
frac-2neg92.3%
div-inv92.6%
sub-neg92.6%
distribute-neg-in92.6%
pow292.6%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod92.6%
sqr-neg92.6%
sqrt-prod91.4%
add-sqr-sqrt92.6%
distribute-rgt-neg-in92.6%
metadata-eval92.6%
Applied egg-rr92.6%
flip-+92.0%
pow292.0%
unpow292.0%
Applied egg-rr92.0%
div-sub91.5%
unpow291.5%
sqr-neg91.5%
rem-square-sqrt93.0%
div-sub93.4%
Simplified93.4%
if 0.029999999999999999 < b Initial program 51.4%
*-commutative51.4%
Simplified51.4%
Taylor expanded in b around inf 92.9%
Taylor expanded in c around 0 92.9%
distribute-rgt-in92.9%
associate-*r*92.9%
associate-*r*92.9%
Simplified92.9%
Final simplification92.9%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma -4.0 (* a c) (pow b 2.0))))
(if (<= b 5.2)
(/ (/ (- t_0 (pow b 2.0)) (+ b (sqrt t_0))) (* a 2.0))
(-
(- (* -2.0 (* (pow a 2.0) (/ (pow c 3.0) (pow b 5.0)))) (/ c b))
(* a (/ (pow c 2.0) (pow b 3.0)))))))
double code(double a, double b, double c) {
double t_0 = fma(-4.0, (a * c), pow(b, 2.0));
double tmp;
if (b <= 5.2) {
tmp = ((t_0 - pow(b, 2.0)) / (b + sqrt(t_0))) / (a * 2.0);
} else {
tmp = ((-2.0 * (pow(a, 2.0) * (pow(c, 3.0) / pow(b, 5.0)))) - (c / b)) - (a * (pow(c, 2.0) / pow(b, 3.0)));
}
return tmp;
}
function code(a, b, c) t_0 = fma(-4.0, Float64(a * c), (b ^ 2.0)) tmp = 0.0 if (b <= 5.2) tmp = Float64(Float64(Float64(t_0 - (b ^ 2.0)) / Float64(b + sqrt(t_0))) / Float64(a * 2.0)); else tmp = Float64(Float64(Float64(-2.0 * Float64((a ^ 2.0) * Float64((c ^ 3.0) / (b ^ 5.0)))) - Float64(c / b)) - Float64(a * Float64((c ^ 2.0) / (b ^ 3.0)))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(-4.0 * N[(a * c), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, 5.2], N[(N[(N[(t$95$0 - N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision] / N[(b + N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(-2.0 * N[(N[Power[a, 2.0], $MachinePrecision] * N[(N[Power[c, 3.0], $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(c / b), $MachinePrecision]), $MachinePrecision] - N[(a * N[(N[Power[c, 2.0], $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(-4, a \cdot c, {b}^{2}\right)\\
\mathbf{if}\;b \leq 5.2:\\
\;\;\;\;\frac{\frac{t\_0 - {b}^{2}}{b + \sqrt{t\_0}}}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\left(-2 \cdot \left({a}^{2} \cdot \frac{{c}^{3}}{{b}^{5}}\right) - \frac{c}{b}\right) - a \cdot \frac{{c}^{2}}{{b}^{3}}\\
\end{array}
\end{array}
if b < 5.20000000000000018Initial program 80.6%
*-commutative80.6%
Simplified80.7%
add-sqr-sqrt79.5%
pow279.5%
pow1/279.5%
sqrt-pow179.5%
pow279.5%
metadata-eval79.5%
Applied egg-rr79.5%
flip--79.9%
pow-pow80.6%
metadata-eval80.6%
pow1/280.6%
pow-pow80.7%
metadata-eval80.7%
pow1/280.7%
add-sqr-sqrt81.8%
unpow281.8%
pow-pow81.8%
metadata-eval81.8%
pow1/281.8%
Applied egg-rr81.8%
fma-define81.8%
associate-*r*81.8%
*-commutative81.8%
fma-define81.8%
+-commutative81.8%
fma-define81.8%
associate-*r*81.8%
*-commutative81.8%
fma-define81.8%
Simplified81.8%
if 5.20000000000000018 < b Initial program 46.1%
*-commutative46.1%
Simplified46.1%
add-sqr-sqrt45.3%
pow245.3%
pow1/245.3%
sqrt-pow145.7%
pow245.7%
metadata-eval45.7%
Applied egg-rr45.7%
div-sub45.7%
pow-pow45.7%
metadata-eval45.7%
pow1/245.7%
Applied egg-rr45.7%
Taylor expanded in a around 0 93.9%
associate-+r+93.9%
mul-1-neg93.9%
unsub-neg93.9%
mul-1-neg93.9%
unsub-neg93.9%
associate-/l*93.9%
associate-/l*93.9%
Simplified93.9%
Final simplification91.0%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (fma a (* c -4.0) (pow b 2.0))))
(if (<= b 5.2)
(/ (/ (- t_0 (pow b 2.0)) (+ b (sqrt t_0))) (* a 2.0))
(-
(- (* -2.0 (* (pow a 2.0) (/ (pow c 3.0) (pow b 5.0)))) (/ c b))
(* a (/ (pow c 2.0) (pow b 3.0)))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c * -4.0), pow(b, 2.0));
double tmp;
if (b <= 5.2) {
tmp = ((t_0 - pow(b, 2.0)) / (b + sqrt(t_0))) / (a * 2.0);
} else {
tmp = ((-2.0 * (pow(a, 2.0) * (pow(c, 3.0) / pow(b, 5.0)))) - (c / b)) - (a * (pow(c, 2.0) / pow(b, 3.0)));
}
return tmp;
}
function code(a, b, c) t_0 = fma(a, Float64(c * -4.0), (b ^ 2.0)) tmp = 0.0 if (b <= 5.2) tmp = Float64(Float64(Float64(t_0 - (b ^ 2.0)) / Float64(b + sqrt(t_0))) / Float64(a * 2.0)); else tmp = Float64(Float64(Float64(-2.0 * Float64((a ^ 2.0) * Float64((c ^ 3.0) / (b ^ 5.0)))) - Float64(c / b)) - Float64(a * Float64((c ^ 2.0) / (b ^ 3.0)))); end return tmp end
code[a_, b_, c_] := Block[{t$95$0 = N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, 5.2], N[(N[(N[(t$95$0 - N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision] / N[(b + N[Sqrt[t$95$0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(-2.0 * N[(N[Power[a, 2.0], $MachinePrecision] * N[(N[Power[c, 3.0], $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(c / b), $MachinePrecision]), $MachinePrecision] - N[(a * N[(N[Power[c, 2.0], $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)\\
\mathbf{if}\;b \leq 5.2:\\
\;\;\;\;\frac{\frac{t\_0 - {b}^{2}}{b + \sqrt{t\_0}}}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\left(-2 \cdot \left({a}^{2} \cdot \frac{{c}^{3}}{{b}^{5}}\right) - \frac{c}{b}\right) - a \cdot \frac{{c}^{2}}{{b}^{3}}\\
\end{array}
\end{array}
if b < 5.20000000000000018Initial program 80.6%
*-commutative80.6%
Simplified80.7%
add-cbrt-cube79.0%
pow1/378.5%
pow378.6%
sqrt-pow278.5%
pow278.5%
metadata-eval78.5%
Applied egg-rr78.5%
unpow1/379.2%
Simplified79.2%
flip--79.2%
cbrt-unprod80.4%
pow-prod-up80.3%
metadata-eval80.3%
pow380.0%
add-cbrt-cube81.8%
unpow281.8%
pow1/381.7%
pow-pow81.8%
metadata-eval81.8%
pow1/281.8%
Applied egg-rr81.8%
if 5.20000000000000018 < b Initial program 46.1%
*-commutative46.1%
Simplified46.1%
add-sqr-sqrt45.3%
pow245.3%
pow1/245.3%
sqrt-pow145.7%
pow245.7%
metadata-eval45.7%
Applied egg-rr45.7%
div-sub45.7%
pow-pow45.7%
metadata-eval45.7%
pow1/245.7%
Applied egg-rr45.7%
Taylor expanded in a around 0 93.9%
associate-+r+93.9%
mul-1-neg93.9%
unsub-neg93.9%
mul-1-neg93.9%
unsub-neg93.9%
associate-/l*93.9%
associate-/l*93.9%
Simplified93.9%
Final simplification91.0%
(FPCore (a b c)
:precision binary64
(if (<= b 0.35)
(* (/ 1.0 (* a -2.0)) (- b (sqrt (fma a (* c -4.0) (pow b 2.0)))))
(-
(- (* -2.0 (* (pow a 2.0) (/ (pow c 3.0) (pow b 5.0)))) (/ c b))
(* a (/ (pow c 2.0) (pow b 3.0))))))
double code(double a, double b, double c) {
double tmp;
if (b <= 0.35) {
tmp = (1.0 / (a * -2.0)) * (b - sqrt(fma(a, (c * -4.0), pow(b, 2.0))));
} else {
tmp = ((-2.0 * (pow(a, 2.0) * (pow(c, 3.0) / pow(b, 5.0)))) - (c / b)) - (a * (pow(c, 2.0) / pow(b, 3.0)));
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 0.35) tmp = Float64(Float64(1.0 / Float64(a * -2.0)) * Float64(b - sqrt(fma(a, Float64(c * -4.0), (b ^ 2.0))))); else tmp = Float64(Float64(Float64(-2.0 * Float64((a ^ 2.0) * Float64((c ^ 3.0) / (b ^ 5.0)))) - Float64(c / b)) - Float64(a * Float64((c ^ 2.0) / (b ^ 3.0)))); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 0.35], N[(N[(1.0 / N[(a * -2.0), $MachinePrecision]), $MachinePrecision] * N[(b - N[Sqrt[N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(-2.0 * N[(N[Power[a, 2.0], $MachinePrecision] * N[(N[Power[c, 3.0], $MachinePrecision] / N[Power[b, 5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(c / b), $MachinePrecision]), $MachinePrecision] - N[(a * N[(N[Power[c, 2.0], $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 0.35:\\
\;\;\;\;\frac{1}{a \cdot -2} \cdot \left(b - \sqrt{\mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(-2 \cdot \left({a}^{2} \cdot \frac{{c}^{3}}{{b}^{5}}\right) - \frac{c}{b}\right) - a \cdot \frac{{c}^{2}}{{b}^{3}}\\
\end{array}
\end{array}
if b < 0.34999999999999998Initial program 86.0%
*-commutative86.0%
Simplified86.1%
frac-2neg86.1%
div-inv86.3%
sub-neg86.3%
distribute-neg-in86.3%
pow286.3%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod86.3%
sqr-neg86.3%
sqrt-prod84.6%
add-sqr-sqrt86.3%
distribute-rgt-neg-in86.3%
metadata-eval86.3%
Applied egg-rr86.3%
if 0.34999999999999998 < b Initial program 49.9%
*-commutative49.9%
Simplified49.9%
add-sqr-sqrt49.1%
pow249.1%
pow1/249.2%
sqrt-pow149.5%
pow249.5%
metadata-eval49.5%
Applied egg-rr49.5%
div-sub49.4%
pow-pow49.6%
metadata-eval49.6%
pow1/249.6%
Applied egg-rr49.6%
Taylor expanded in a around 0 91.5%
associate-+r+91.5%
mul-1-neg91.5%
unsub-neg91.5%
mul-1-neg91.5%
unsub-neg91.5%
associate-/l*91.5%
associate-/l*91.5%
Simplified91.5%
Final simplification90.8%
(FPCore (a b c) :precision binary64 (if (<= b 25.5) (* (/ 1.0 (* a -2.0)) (- b (sqrt (fma a (* c -4.0) (pow b 2.0))))) (- (/ c (- b)) (/ (* a (pow c 2.0)) (pow b 3.0)))))
double code(double a, double b, double c) {
double tmp;
if (b <= 25.5) {
tmp = (1.0 / (a * -2.0)) * (b - sqrt(fma(a, (c * -4.0), pow(b, 2.0))));
} else {
tmp = (c / -b) - ((a * pow(c, 2.0)) / pow(b, 3.0));
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 25.5) tmp = Float64(Float64(1.0 / Float64(a * -2.0)) * Float64(b - sqrt(fma(a, Float64(c * -4.0), (b ^ 2.0))))); else tmp = Float64(Float64(c / Float64(-b)) - Float64(Float64(a * (c ^ 2.0)) / (b ^ 3.0))); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 25.5], N[(N[(1.0 / N[(a * -2.0), $MachinePrecision]), $MachinePrecision] * N[(b - N[Sqrt[N[(a * N[(c * -4.0), $MachinePrecision] + N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(c / (-b)), $MachinePrecision] - N[(N[(a * N[Power[c, 2.0], $MachinePrecision]), $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 25.5:\\
\;\;\;\;\frac{1}{a \cdot -2} \cdot \left(b - \sqrt{\mathsf{fma}\left(a, c \cdot -4, {b}^{2}\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b} - \frac{a \cdot {c}^{2}}{{b}^{3}}\\
\end{array}
\end{array}
if b < 25.5Initial program 78.9%
*-commutative78.9%
Simplified79.0%
frac-2neg79.0%
div-inv79.0%
sub-neg79.0%
distribute-neg-in79.0%
pow279.0%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod79.0%
sqr-neg79.0%
sqrt-prod77.6%
add-sqr-sqrt79.0%
distribute-rgt-neg-in79.0%
metadata-eval79.0%
Applied egg-rr79.0%
if 25.5 < b Initial program 44.3%
*-commutative44.3%
Simplified44.3%
frac-2neg44.3%
div-inv44.3%
sub-neg44.3%
distribute-neg-in44.3%
pow244.3%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod44.3%
sqr-neg44.3%
sqrt-prod44.1%
add-sqr-sqrt44.3%
distribute-rgt-neg-in44.3%
metadata-eval44.3%
Applied egg-rr44.3%
Taylor expanded in a around 0 91.0%
mul-1-neg91.0%
unsub-neg91.0%
mul-1-neg91.0%
distribute-neg-frac291.0%
Simplified91.0%
Final simplification87.5%
(FPCore (a b c) :precision binary64 (let* ((t_0 (/ (- (sqrt (- (* b b) (* c (* a 4.0)))) b) (* a 2.0)))) (if (<= t_0 -8e-7) t_0 (/ c (- b)))))
double code(double a, double b, double c) {
double t_0 = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
double tmp;
if (t_0 <= -8e-7) {
tmp = t_0;
} else {
tmp = c / -b;
}
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) :: t_0
real(8) :: tmp
t_0 = (sqrt(((b * b) - (c * (a * 4.0d0)))) - b) / (a * 2.0d0)
if (t_0 <= (-8d-7)) then
tmp = t_0
else
tmp = c / -b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double t_0 = (Math.sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
double tmp;
if (t_0 <= -8e-7) {
tmp = t_0;
} else {
tmp = c / -b;
}
return tmp;
}
def code(a, b, c): t_0 = (math.sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0) tmp = 0 if t_0 <= -8e-7: tmp = t_0 else: tmp = c / -b return tmp
function code(a, b, c) t_0 = Float64(Float64(sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) - b) / Float64(a * 2.0)) tmp = 0.0 if (t_0 <= -8e-7) tmp = t_0; else tmp = Float64(c / Float64(-b)); end return tmp end
function tmp_2 = code(a, b, c) t_0 = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0); tmp = 0.0; if (t_0 <= -8e-7) tmp = t_0; else tmp = c / -b; end tmp_2 = tmp; end
code[a_, b_, c_] := Block[{t$95$0 = N[(N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(c * N[(a * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -8e-7], t$95$0, N[(c / (-b)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} - b}{a \cdot 2}\\
\mathbf{if}\;t\_0 \leq -8 \cdot 10^{-7}:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
if (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c)))) (*.f64 2 a)) < -7.9999999999999996e-7Initial program 72.1%
if -7.9999999999999996e-7 < (/.f64 (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 4 a) c)))) (*.f64 2 a)) Initial program 28.2%
*-commutative28.2%
Simplified28.2%
Taylor expanded in b around inf 85.7%
mul-1-neg85.7%
distribute-neg-frac285.7%
Simplified85.7%
Final simplification77.6%
(FPCore (a b c) :precision binary64 (if (<= b 25.5) (/ (- (sqrt (fma a (* c -4.0) (* b b))) b) (* a 2.0)) (- (/ (* a (pow c 2.0)) (- (pow b 3.0))) (/ c b))))
double code(double a, double b, double c) {
double tmp;
if (b <= 25.5) {
tmp = (sqrt(fma(a, (c * -4.0), (b * b))) - b) / (a * 2.0);
} else {
tmp = ((a * pow(c, 2.0)) / -pow(b, 3.0)) - (c / b);
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 25.5) tmp = Float64(Float64(sqrt(fma(a, Float64(c * -4.0), Float64(b * b))) - b) / Float64(a * 2.0)); else tmp = Float64(Float64(Float64(a * (c ^ 2.0)) / Float64(-(b ^ 3.0))) - Float64(c / b)); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 25.5], N[(N[(N[Sqrt[N[(a * N[(c * -4.0), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(a * N[Power[c, 2.0], $MachinePrecision]), $MachinePrecision] / (-N[Power[b, 3.0], $MachinePrecision])), $MachinePrecision] - N[(c / b), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 25.5:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)} - b}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{a \cdot {c}^{2}}{-{b}^{3}} - \frac{c}{b}\\
\end{array}
\end{array}
if b < 25.5Initial program 78.9%
*-commutative78.9%
Simplified79.0%
if 25.5 < b Initial program 44.3%
*-commutative44.3%
Simplified44.3%
frac-2neg44.3%
div-inv44.3%
sub-neg44.3%
distribute-neg-in44.3%
pow244.3%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod44.3%
sqr-neg44.3%
sqrt-prod44.1%
add-sqr-sqrt44.3%
distribute-rgt-neg-in44.3%
metadata-eval44.3%
Applied egg-rr44.3%
Taylor expanded in a around 0 91.0%
mul-1-neg91.0%
unsub-neg91.0%
mul-1-neg91.0%
distribute-neg-frac291.0%
Simplified91.0%
Final simplification87.5%
(FPCore (a b c) :precision binary64 (if (<= b 25.5) (/ (- (sqrt (fma b b (* c (* a -4.0)))) b) (* a 2.0)) (- (/ (* a (pow c 2.0)) (- (pow b 3.0))) (/ c b))))
double code(double a, double b, double c) {
double tmp;
if (b <= 25.5) {
tmp = (sqrt(fma(b, b, (c * (a * -4.0)))) - b) / (a * 2.0);
} else {
tmp = ((a * pow(c, 2.0)) / -pow(b, 3.0)) - (c / b);
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= 25.5) tmp = Float64(Float64(sqrt(fma(b, b, Float64(c * Float64(a * -4.0)))) - b) / Float64(a * 2.0)); else tmp = Float64(Float64(Float64(a * (c ^ 2.0)) / Float64(-(b ^ 3.0))) - Float64(c / b)); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, 25.5], N[(N[(N[Sqrt[N[(b * b + N[(c * N[(a * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(a * N[Power[c, 2.0], $MachinePrecision]), $MachinePrecision] / (-N[Power[b, 3.0], $MachinePrecision])), $MachinePrecision] - N[(c / b), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 25.5:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(b, b, c \cdot \left(a \cdot -4\right)\right)} - b}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{a \cdot {c}^{2}}{-{b}^{3}} - \frac{c}{b}\\
\end{array}
\end{array}
if b < 25.5Initial program 78.9%
*-commutative78.9%
+-commutative78.9%
sqr-neg78.9%
unsub-neg78.9%
sqr-neg78.9%
fma-neg79.0%
distribute-lft-neg-in79.0%
*-commutative79.0%
*-commutative79.0%
distribute-rgt-neg-in79.0%
metadata-eval79.0%
Simplified79.0%
if 25.5 < b Initial program 44.3%
*-commutative44.3%
Simplified44.3%
frac-2neg44.3%
div-inv44.3%
sub-neg44.3%
distribute-neg-in44.3%
pow244.3%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod44.3%
sqr-neg44.3%
sqrt-prod44.1%
add-sqr-sqrt44.3%
distribute-rgt-neg-in44.3%
metadata-eval44.3%
Applied egg-rr44.3%
Taylor expanded in a around 0 91.0%
mul-1-neg91.0%
unsub-neg91.0%
mul-1-neg91.0%
distribute-neg-frac291.0%
Simplified91.0%
Final simplification87.5%
(FPCore (a b c) :precision binary64 (if (<= b 25.5) (/ (- (sqrt (- (* b b) (* c (* a 4.0)))) b) (* a 2.0)) (- (/ c (- b)) (/ (* a (pow c 2.0)) (pow b 3.0)))))
double code(double a, double b, double c) {
double tmp;
if (b <= 25.5) {
tmp = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
} else {
tmp = (c / -b) - ((a * pow(c, 2.0)) / pow(b, 3.0));
}
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 <= 25.5d0) then
tmp = (sqrt(((b * b) - (c * (a * 4.0d0)))) - b) / (a * 2.0d0)
else
tmp = (c / -b) - ((a * (c ** 2.0d0)) / (b ** 3.0d0))
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= 25.5) {
tmp = (Math.sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
} else {
tmp = (c / -b) - ((a * Math.pow(c, 2.0)) / Math.pow(b, 3.0));
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= 25.5: tmp = (math.sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0) else: tmp = (c / -b) - ((a * math.pow(c, 2.0)) / math.pow(b, 3.0)) return tmp
function code(a, b, c) tmp = 0.0 if (b <= 25.5) tmp = Float64(Float64(sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) - b) / Float64(a * 2.0)); else tmp = Float64(Float64(c / Float64(-b)) - Float64(Float64(a * (c ^ 2.0)) / (b ^ 3.0))); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= 25.5) tmp = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0); else tmp = (c / -b) - ((a * (c ^ 2.0)) / (b ^ 3.0)); end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, 25.5], N[(N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(c * N[(a * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(c / (-b)), $MachinePrecision] - N[(N[(a * N[Power[c, 2.0], $MachinePrecision]), $MachinePrecision] / N[Power[b, 3.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 25.5:\\
\;\;\;\;\frac{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} - b}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b} - \frac{a \cdot {c}^{2}}{{b}^{3}}\\
\end{array}
\end{array}
if b < 25.5Initial program 78.9%
if 25.5 < b Initial program 44.3%
*-commutative44.3%
Simplified44.3%
frac-2neg44.3%
div-inv44.3%
sub-neg44.3%
distribute-neg-in44.3%
pow244.3%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod44.3%
sqr-neg44.3%
sqrt-prod44.1%
add-sqr-sqrt44.3%
distribute-rgt-neg-in44.3%
metadata-eval44.3%
Applied egg-rr44.3%
Taylor expanded in a around 0 91.0%
mul-1-neg91.0%
unsub-neg91.0%
mul-1-neg91.0%
distribute-neg-frac291.0%
Simplified91.0%
Final simplification87.4%
(FPCore (a b c) :precision binary64 (/ (- c) b))
double code(double a, double b, double c) {
return -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 = -c / b
end function
public static double code(double a, double b, double c) {
return -c / b;
}
def code(a, b, c): return -c / b
function code(a, b, c) return Float64(Float64(-c) / b) end
function tmp = code(a, b, c) tmp = -c / b; end
code[a_, b_, c_] := N[((-c) / b), $MachinePrecision]
\begin{array}{l}
\\
\frac{-c}{b}
\end{array}
Initial program 54.4%
*-commutative54.4%
Simplified54.4%
Taylor expanded in b around inf 64.7%
mul-1-neg64.7%
distribute-neg-frac264.7%
Simplified64.7%
Final simplification64.7%
(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 54.4%
*-commutative54.4%
Simplified54.5%
frac-2neg54.5%
div-inv54.5%
sub-neg54.5%
distribute-neg-in54.5%
pow254.5%
add-sqr-sqrt0.0%
sqrt-unprod1.6%
sqr-neg1.6%
sqrt-prod1.6%
add-sqr-sqrt1.6%
add-sqr-sqrt0.0%
sqrt-unprod54.5%
sqr-neg54.5%
sqrt-prod53.9%
add-sqr-sqrt54.5%
distribute-rgt-neg-in54.5%
metadata-eval54.5%
Applied egg-rr54.5%
add-log-exp51.6%
neg-mul-151.6%
fma-define51.6%
Applied egg-rr51.6%
Taylor expanded in a around 0 3.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 2024039
(FPCore (a b c)
:name "Quadratic roots, 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) (* (* 4.0 a) c)))) (* 2.0 a)))