
(FPCore (a b c) :precision binary64 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c))))) (if (>= b 0.0) (/ (* 2.0 c) (- (- b) t_0)) (/ (+ (- b) t_0) (* 2.0 a)))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-b - t_0);
} else {
tmp = (-b + t_0) / (2.0 * a);
}
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) - ((4.0d0 * a) * c)))
if (b >= 0.0d0) then
tmp = (2.0d0 * c) / (-b - t_0)
else
tmp = (-b + t_0) / (2.0d0 * a)
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double t_0 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-b - t_0);
} else {
tmp = (-b + t_0) / (2.0 * a);
}
return tmp;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - ((4.0 * a) * c))) tmp = 0 if b >= 0.0: tmp = (2.0 * c) / (-b - t_0) else: tmp = (-b + t_0) / (2.0 * a) return tmp
function code(a, b, c) t_0 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c))) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - t_0)); else tmp = Float64(Float64(Float64(-b) + t_0) / Float64(2.0 * a)); end return tmp end
function tmp_2 = code(a, b, c) t_0 = sqrt(((b * b) - ((4.0 * a) * c))); tmp = 0.0; if (b >= 0.0) tmp = (2.0 * c) / (-b - t_0); else tmp = (-b + t_0) / (2.0 * a); end tmp_2 = tmp; end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - t$95$0), $MachinePrecision]), $MachinePrecision], N[(N[((-b) + t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - t\_0}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-b\right) + t\_0}{2 \cdot a}\\
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 12 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b c) :precision binary64 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c))))) (if (>= b 0.0) (/ (* 2.0 c) (- (- b) t_0)) (/ (+ (- b) t_0) (* 2.0 a)))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-b - t_0);
} else {
tmp = (-b + t_0) / (2.0 * a);
}
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) - ((4.0d0 * a) * c)))
if (b >= 0.0d0) then
tmp = (2.0d0 * c) / (-b - t_0)
else
tmp = (-b + t_0) / (2.0d0 * a)
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double t_0 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-b - t_0);
} else {
tmp = (-b + t_0) / (2.0 * a);
}
return tmp;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - ((4.0 * a) * c))) tmp = 0 if b >= 0.0: tmp = (2.0 * c) / (-b - t_0) else: tmp = (-b + t_0) / (2.0 * a) return tmp
function code(a, b, c) t_0 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c))) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - t_0)); else tmp = Float64(Float64(Float64(-b) + t_0) / Float64(2.0 * a)); end return tmp end
function tmp_2 = code(a, b, c) t_0 = sqrt(((b * b) - ((4.0 * a) * c))); tmp = 0.0; if (b >= 0.0) tmp = (2.0 * c) / (-b - t_0); else tmp = (-b + t_0) / (2.0 * a); end tmp_2 = tmp; end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - t$95$0), $MachinePrecision]), $MachinePrecision], N[(N[((-b) + t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - t\_0}\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-b\right) + t\_0}{2 \cdot a}\\
\end{array}
\end{array}
(FPCore (a b c)
:precision binary64
(if (<= b -2e+155)
(if (>= b 0.0)
(/ 1.0 (/ (* -2.0 b) (* 2.0 c)))
(/ (* (fma a (/ c b) (- b)) 2.0) (* 2.0 a)))
(if (<= b 2.7e+81)
(if (>= b 0.0)
(/ (* (- c) 2.0) (+ (sqrt (- (* b b) (* (* a 4.0) c))) b))
(/ (- (sqrt (fma b b (* (* -4.0 c) a))) b) (* 2.0 a)))
(if (>= b 0.0) (/ (* 2.0 c) (* -2.0 b)) (/ (* -2.0 b) (* 2.0 a))))))
double code(double a, double b, double c) {
double tmp_1;
if (b <= -2e+155) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = 1.0 / ((-2.0 * b) / (2.0 * c));
} else {
tmp_2 = (fma(a, (c / b), -b) * 2.0) / (2.0 * a);
}
tmp_1 = tmp_2;
} else if (b <= 2.7e+81) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (-c * 2.0) / (sqrt(((b * b) - ((a * 4.0) * c))) + b);
} else {
tmp_3 = (sqrt(fma(b, b, ((-4.0 * c) * a))) - b) / (2.0 * a);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (-2.0 * b);
} else {
tmp_1 = (-2.0 * b) / (2.0 * a);
}
return tmp_1;
}
function code(a, b, c) tmp_1 = 0.0 if (b <= -2e+155) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(1.0 / Float64(Float64(-2.0 * b) / Float64(2.0 * c))); else tmp_2 = Float64(Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) / Float64(2.0 * a)); end tmp_1 = tmp_2; elseif (b <= 2.7e+81) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(Float64(-c) * 2.0) / Float64(sqrt(Float64(Float64(b * b) - Float64(Float64(a * 4.0) * c))) + b)); else tmp_3 = Float64(Float64(sqrt(fma(b, b, Float64(Float64(-4.0 * c) * a))) - b) / Float64(2.0 * a)); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / Float64(-2.0 * b)); else tmp_1 = Float64(Float64(-2.0 * b) / Float64(2.0 * a)); end return tmp_1 end
code[a_, b_, c_] := If[LessEqual[b, -2e+155], If[GreaterEqual[b, 0.0], N[(1.0 / N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 2.7e+81], If[GreaterEqual[b, 0.0], N[(N[((-c) * 2.0), $MachinePrecision] / N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(a * 4.0), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision], N[(N[(N[Sqrt[N[(b * b + N[(N[(-4.0 * c), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(-2.0 * b), $MachinePrecision]), $MachinePrecision], N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -2 \cdot 10^{+155}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{1}{\frac{-2 \cdot b}{2 \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \leq 2.7 \cdot 10^{+81}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{\left(-c\right) \cdot 2}{\sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c} + b}\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(b, b, \left(-4 \cdot c\right) \cdot a\right)} - b}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{-2 \cdot b}\\
\mathbf{else}:\\
\;\;\;\;\frac{-2 \cdot b}{2 \cdot a}\\
\end{array}
\end{array}
if b < -2.00000000000000001e155Initial program 28.2%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
Taylor expanded in c around 0
Applied rewrites97.9%
Taylor expanded in c around 0
lower-*.f6497.9
Applied rewrites97.9%
lift-/.f64N/A
clear-numN/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
if -2.00000000000000001e155 < b < 2.6999999999999999e81Initial program 89.1%
lift--.f64N/A
sub-negN/A
lift-*.f64N/A
lower-fma.f64N/A
lift-*.f64N/A
lift-*.f64N/A
associate-*l*N/A
distribute-lft-neg-inN/A
*-commutativeN/A
associate-*r*N/A
lower-*.f64N/A
lower-*.f64N/A
metadata-eval89.1
Applied rewrites89.1%
if 2.6999999999999999e81 < b Initial program 54.9%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6454.9
Applied rewrites54.9%
Taylor expanded in c around 0
Applied rewrites54.9%
Taylor expanded in c around 0
lower-*.f6497.2
Applied rewrites97.2%
Taylor expanded in b around -inf
lower-*.f6497.2
Applied rewrites97.2%
Final simplification92.7%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (/ (* (fma a (/ c b) (- b)) 2.0) (* 2.0 a))) (t_1 (* (- c) 2.0)))
(if (<= b -2e+155)
(if (>= b 0.0) (/ 1.0 (/ (* -2.0 b) (* 2.0 c))) t_0)
(if (<= b -2e-310)
(if (>= b 0.0)
(* (* -0.5 (/ b a)) -2.0)
(* (/ (- (sqrt (fma -4.0 (* c a) (* b b))) b) a) 0.5))
(if (<= b 3.5e-42)
(if (>= b 0.0) (/ t_1 (+ (sqrt (* (* c a) -4.0)) b)) t_0)
(if (>= b 0.0) (/ t_1 (+ (fma (* (/ c b) a) -2.0 b) b)) t_0))))))
double code(double a, double b, double c) {
double t_0 = (fma(a, (c / b), -b) * 2.0) / (2.0 * a);
double t_1 = -c * 2.0;
double tmp_1;
if (b <= -2e+155) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = 1.0 / ((-2.0 * b) / (2.0 * c));
} else {
tmp_2 = t_0;
}
tmp_1 = tmp_2;
} else if (b <= -2e-310) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (-0.5 * (b / a)) * -2.0;
} else {
tmp_3 = ((sqrt(fma(-4.0, (c * a), (b * b))) - b) / a) * 0.5;
}
tmp_1 = tmp_3;
} else if (b <= 3.5e-42) {
double tmp_4;
if (b >= 0.0) {
tmp_4 = t_1 / (sqrt(((c * a) * -4.0)) + b);
} else {
tmp_4 = t_0;
}
tmp_1 = tmp_4;
} else if (b >= 0.0) {
tmp_1 = t_1 / (fma(((c / b) * a), -2.0, b) + b);
} else {
tmp_1 = t_0;
}
return tmp_1;
}
function code(a, b, c) t_0 = Float64(Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) / Float64(2.0 * a)) t_1 = Float64(Float64(-c) * 2.0) tmp_1 = 0.0 if (b <= -2e+155) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(1.0 / Float64(Float64(-2.0 * b) / Float64(2.0 * c))); else tmp_2 = t_0; end tmp_1 = tmp_2; elseif (b <= -2e-310) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(-0.5 * Float64(b / a)) * -2.0); else tmp_3 = Float64(Float64(Float64(sqrt(fma(-4.0, Float64(c * a), Float64(b * b))) - b) / a) * 0.5); end tmp_1 = tmp_3; elseif (b <= 3.5e-42) tmp_4 = 0.0 if (b >= 0.0) tmp_4 = Float64(t_1 / Float64(sqrt(Float64(Float64(c * a) * -4.0)) + b)); else tmp_4 = t_0; end tmp_1 = tmp_4; elseif (b >= 0.0) tmp_1 = Float64(t_1 / Float64(fma(Float64(Float64(c / b) * a), -2.0, b) + b)); else tmp_1 = t_0; end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[(N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[((-c) * 2.0), $MachinePrecision]}, If[LessEqual[b, -2e+155], If[GreaterEqual[b, 0.0], N[(1.0 / N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$0], If[LessEqual[b, -2e-310], If[GreaterEqual[b, 0.0], N[(N[(-0.5 * N[(b / a), $MachinePrecision]), $MachinePrecision] * -2.0), $MachinePrecision], N[(N[(N[(N[Sqrt[N[(-4.0 * N[(c * a), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / a), $MachinePrecision] * 0.5), $MachinePrecision]], If[LessEqual[b, 3.5e-42], If[GreaterEqual[b, 0.0], N[(t$95$1 / N[(N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision], t$95$0], If[GreaterEqual[b, 0.0], N[(t$95$1 / N[(N[(N[(N[(c / b), $MachinePrecision] * a), $MachinePrecision] * -2.0 + b), $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision], t$95$0]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2}{2 \cdot a}\\
t_1 := \left(-c\right) \cdot 2\\
\mathbf{if}\;b \leq -2 \cdot 10^{+155}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{1}{\frac{-2 \cdot b}{2 \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}\\
\mathbf{elif}\;b \leq -2 \cdot 10^{-310}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\left(-0.5 \cdot \frac{b}{a}\right) \cdot -2\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(-4, c \cdot a, b \cdot b\right)} - b}{a} \cdot 0.5\\
\end{array}\\
\mathbf{elif}\;b \leq 3.5 \cdot 10^{-42}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{t\_1}{\sqrt{\left(c \cdot a\right) \cdot -4} + b}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{t\_1}{\mathsf{fma}\left(\frac{c}{b} \cdot a, -2, b\right) + b}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if b < -2.00000000000000001e155Initial program 28.2%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
Taylor expanded in c around 0
Applied rewrites97.9%
Taylor expanded in c around 0
lower-*.f6497.9
Applied rewrites97.9%
lift-/.f64N/A
clear-numN/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
if -2.00000000000000001e155 < b < -1.999999999999994e-310Initial program 91.0%
Applied rewrites91.0%
Taylor expanded in c around 0
Applied rewrites90.9%
Taylor expanded in c around 0
Applied rewrites90.9%
if -1.999999999999994e-310 < b < 3.5000000000000002e-42Initial program 81.2%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6481.2
Applied rewrites81.2%
Taylor expanded in c around 0
Applied rewrites81.2%
Taylor expanded in c around inf
lower-*.f64N/A
lower-*.f6468.0
Applied rewrites68.0%
if 3.5000000000000002e-42 < b Initial program 68.3%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6468.3
Applied rewrites68.3%
Taylor expanded in c around 0
Applied rewrites68.3%
Taylor expanded in c around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6490.4
Applied rewrites90.4%
Final simplification87.8%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (- (* b b) (* (* a 4.0) c)))))
(if (<= b -2e+155)
(if (>= b 0.0)
(/ 1.0 (/ (* -2.0 b) (* 2.0 c)))
(/ (* (fma a (/ c b) (- b)) 2.0) (* 2.0 a)))
(if (<= b 2.7e+81)
(if (>= b 0.0) (/ (* (- c) 2.0) (+ t_0 b)) (/ (- t_0 b) (* 2.0 a)))
(if (>= b 0.0) (/ (* 2.0 c) (* -2.0 b)) (/ (* -2.0 b) (* 2.0 a)))))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - ((a * 4.0) * c)));
double tmp_1;
if (b <= -2e+155) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = 1.0 / ((-2.0 * b) / (2.0 * c));
} else {
tmp_2 = (fma(a, (c / b), -b) * 2.0) / (2.0 * a);
}
tmp_1 = tmp_2;
} else if (b <= 2.7e+81) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (-c * 2.0) / (t_0 + b);
} else {
tmp_3 = (t_0 - b) / (2.0 * a);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (-2.0 * b);
} else {
tmp_1 = (-2.0 * b) / (2.0 * a);
}
return tmp_1;
}
function code(a, b, c) t_0 = sqrt(Float64(Float64(b * b) - Float64(Float64(a * 4.0) * c))) tmp_1 = 0.0 if (b <= -2e+155) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(1.0 / Float64(Float64(-2.0 * b) / Float64(2.0 * c))); else tmp_2 = Float64(Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) / Float64(2.0 * a)); end tmp_1 = tmp_2; elseif (b <= 2.7e+81) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(Float64(-c) * 2.0) / Float64(t_0 + b)); else tmp_3 = Float64(Float64(t_0 - b) / Float64(2.0 * a)); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / Float64(-2.0 * b)); else tmp_1 = Float64(Float64(-2.0 * b) / Float64(2.0 * a)); end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(a * 4.0), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -2e+155], If[GreaterEqual[b, 0.0], N[(1.0 / N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 2.7e+81], If[GreaterEqual[b, 0.0], N[(N[((-c) * 2.0), $MachinePrecision] / N[(t$95$0 + b), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$0 - b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(-2.0 * b), $MachinePrecision]), $MachinePrecision], N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - \left(a \cdot 4\right) \cdot c}\\
\mathbf{if}\;b \leq -2 \cdot 10^{+155}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{1}{\frac{-2 \cdot b}{2 \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \leq 2.7 \cdot 10^{+81}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{\left(-c\right) \cdot 2}{t\_0 + b}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_0 - b}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{-2 \cdot b}\\
\mathbf{else}:\\
\;\;\;\;\frac{-2 \cdot b}{2 \cdot a}\\
\end{array}
\end{array}
if b < -2.00000000000000001e155Initial program 28.2%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
Taylor expanded in c around 0
Applied rewrites97.9%
Taylor expanded in c around 0
lower-*.f6497.9
Applied rewrites97.9%
lift-/.f64N/A
clear-numN/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
if -2.00000000000000001e155 < b < 2.6999999999999999e81Initial program 89.1%
if 2.6999999999999999e81 < b Initial program 54.9%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6454.9
Applied rewrites54.9%
Taylor expanded in c around 0
Applied rewrites54.9%
Taylor expanded in c around 0
lower-*.f6497.2
Applied rewrites97.2%
Taylor expanded in b around -inf
lower-*.f6497.2
Applied rewrites97.2%
Final simplification92.7%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (fma -4.0 (* c a) (* b b)))))
(if (<= b -2e+155)
(if (>= b 0.0)
(/ 1.0 (/ (* -2.0 b) (* 2.0 c)))
(/ (* (fma a (/ c b) (- b)) 2.0) (* 2.0 a)))
(if (<= b 2.7e+81)
(if (>= b 0.0) (/ (* -2.0 c) (+ t_0 b)) (* (/ (- t_0 b) a) 0.5))
(if (>= b 0.0) (/ (* 2.0 c) (* -2.0 b)) (/ (* -2.0 b) (* 2.0 a)))))))
double code(double a, double b, double c) {
double t_0 = sqrt(fma(-4.0, (c * a), (b * b)));
double tmp_1;
if (b <= -2e+155) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = 1.0 / ((-2.0 * b) / (2.0 * c));
} else {
tmp_2 = (fma(a, (c / b), -b) * 2.0) / (2.0 * a);
}
tmp_1 = tmp_2;
} else if (b <= 2.7e+81) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (-2.0 * c) / (t_0 + b);
} else {
tmp_3 = ((t_0 - b) / a) * 0.5;
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (-2.0 * b);
} else {
tmp_1 = (-2.0 * b) / (2.0 * a);
}
return tmp_1;
}
function code(a, b, c) t_0 = sqrt(fma(-4.0, Float64(c * a), Float64(b * b))) tmp_1 = 0.0 if (b <= -2e+155) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(1.0 / Float64(Float64(-2.0 * b) / Float64(2.0 * c))); else tmp_2 = Float64(Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) / Float64(2.0 * a)); end tmp_1 = tmp_2; elseif (b <= 2.7e+81) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(-2.0 * c) / Float64(t_0 + b)); else tmp_3 = Float64(Float64(Float64(t_0 - b) / a) * 0.5); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / Float64(-2.0 * b)); else tmp_1 = Float64(Float64(-2.0 * b) / Float64(2.0 * a)); end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(-4.0 * N[(c * a), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -2e+155], If[GreaterEqual[b, 0.0], N[(1.0 / N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 2.7e+81], If[GreaterEqual[b, 0.0], N[(N[(-2.0 * c), $MachinePrecision] / N[(t$95$0 + b), $MachinePrecision]), $MachinePrecision], N[(N[(N[(t$95$0 - b), $MachinePrecision] / a), $MachinePrecision] * 0.5), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(-2.0 * b), $MachinePrecision]), $MachinePrecision], N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{\mathsf{fma}\left(-4, c \cdot a, b \cdot b\right)}\\
\mathbf{if}\;b \leq -2 \cdot 10^{+155}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{1}{\frac{-2 \cdot b}{2 \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \leq 2.7 \cdot 10^{+81}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-2 \cdot c}{t\_0 + b}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_0 - b}{a} \cdot 0.5\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{-2 \cdot b}\\
\mathbf{else}:\\
\;\;\;\;\frac{-2 \cdot b}{2 \cdot a}\\
\end{array}
\end{array}
if b < -2.00000000000000001e155Initial program 28.2%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
Taylor expanded in c around 0
Applied rewrites97.9%
Taylor expanded in c around 0
lower-*.f6497.9
Applied rewrites97.9%
lift-/.f64N/A
clear-numN/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
if -2.00000000000000001e155 < b < 2.6999999999999999e81Initial program 89.1%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6470.5
Applied rewrites70.5%
Taylor expanded in c around 0
Applied rewrites70.6%
Taylor expanded in c around 0
lower->=.f64N/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
+-commutativeN/A
lower-+.f64N/A
cancel-sign-sub-invN/A
metadata-evalN/A
+-commutativeN/A
lower-sqrt.f64N/A
lower-fma.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
Applied rewrites89.1%
if 2.6999999999999999e81 < b Initial program 54.9%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6454.9
Applied rewrites54.9%
Taylor expanded in c around 0
Applied rewrites54.9%
Taylor expanded in c around 0
lower-*.f6497.2
Applied rewrites97.2%
Taylor expanded in b around -inf
lower-*.f6497.2
Applied rewrites97.2%
Final simplification92.7%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (/ (* (fma a (/ c b) (- b)) 2.0) (* 2.0 a)))
(t_1 (- (sqrt (fma -4.0 (* c a) (* b b))) b)))
(if (<= b -2e+155)
(if (>= b 0.0) (/ 1.0 (/ (* -2.0 b) (* 2.0 c))) t_0)
(if (<= b 6.8e-75)
(if (>= b 0.0) (* (/ c t_1) -2.0) (* (/ t_1 a) 0.5))
(if (>= b 0.0)
(/ (* (- c) 2.0) (+ (fma (* (/ c b) a) -2.0 b) b))
t_0)))))
double code(double a, double b, double c) {
double t_0 = (fma(a, (c / b), -b) * 2.0) / (2.0 * a);
double t_1 = sqrt(fma(-4.0, (c * a), (b * b))) - b;
double tmp_1;
if (b <= -2e+155) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = 1.0 / ((-2.0 * b) / (2.0 * c));
} else {
tmp_2 = t_0;
}
tmp_1 = tmp_2;
} else if (b <= 6.8e-75) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (c / t_1) * -2.0;
} else {
tmp_3 = (t_1 / a) * 0.5;
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (-c * 2.0) / (fma(((c / b) * a), -2.0, b) + b);
} else {
tmp_1 = t_0;
}
return tmp_1;
}
function code(a, b, c) t_0 = Float64(Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) / Float64(2.0 * a)) t_1 = Float64(sqrt(fma(-4.0, Float64(c * a), Float64(b * b))) - b) tmp_1 = 0.0 if (b <= -2e+155) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(1.0 / Float64(Float64(-2.0 * b) / Float64(2.0 * c))); else tmp_2 = t_0; end tmp_1 = tmp_2; elseif (b <= 6.8e-75) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(c / t_1) * -2.0); else tmp_3 = Float64(Float64(t_1 / a) * 0.5); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(Float64(-c) * 2.0) / Float64(fma(Float64(Float64(c / b) * a), -2.0, b) + b)); else tmp_1 = t_0; end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[(N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Sqrt[N[(-4.0 * N[(c * a), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]}, If[LessEqual[b, -2e+155], If[GreaterEqual[b, 0.0], N[(1.0 / N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$0], If[LessEqual[b, 6.8e-75], If[GreaterEqual[b, 0.0], N[(N[(c / t$95$1), $MachinePrecision] * -2.0), $MachinePrecision], N[(N[(t$95$1 / a), $MachinePrecision] * 0.5), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[((-c) * 2.0), $MachinePrecision] / N[(N[(N[(N[(c / b), $MachinePrecision] * a), $MachinePrecision] * -2.0 + b), $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision], t$95$0]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2}{2 \cdot a}\\
t_1 := \sqrt{\mathsf{fma}\left(-4, c \cdot a, b \cdot b\right)} - b\\
\mathbf{if}\;b \leq -2 \cdot 10^{+155}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{1}{\frac{-2 \cdot b}{2 \cdot c}}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}\\
\mathbf{elif}\;b \leq 6.8 \cdot 10^{-75}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{c}{t\_1} \cdot -2\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_1}{a} \cdot 0.5\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{\left(-c\right) \cdot 2}{\mathsf{fma}\left(\frac{c}{b} \cdot a, -2, b\right) + b}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if b < -2.00000000000000001e155Initial program 28.2%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
Taylor expanded in c around 0
Applied rewrites97.9%
Taylor expanded in c around 0
lower-*.f6497.9
Applied rewrites97.9%
lift-/.f64N/A
clear-numN/A
lower-/.f64N/A
lower-/.f6497.9
Applied rewrites97.9%
if -2.00000000000000001e155 < b < 6.8000000000000003e-75Initial program 86.1%
Applied rewrites83.1%
Taylor expanded in c around 0
Applied rewrites83.0%
if 6.8000000000000003e-75 < b Initial program 70.7%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6470.7
Applied rewrites70.7%
Taylor expanded in c around 0
Applied rewrites70.7%
Taylor expanded in c around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6487.6
Applied rewrites87.6%
Final simplification87.5%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (/ (* (fma a (/ c b) (- b)) 2.0) (* 2.0 a))) (t_1 (* (- c) 2.0)))
(if (<= b 3.5e-42)
(if (>= b 0.0) (/ t_1 (+ (sqrt (* (* c a) -4.0)) b)) t_0)
(if (>= b 0.0) (/ t_1 (+ (fma (* (/ c b) a) -2.0 b) b)) t_0))))
double code(double a, double b, double c) {
double t_0 = (fma(a, (c / b), -b) * 2.0) / (2.0 * a);
double t_1 = -c * 2.0;
double tmp_1;
if (b <= 3.5e-42) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = t_1 / (sqrt(((c * a) * -4.0)) + b);
} else {
tmp_2 = t_0;
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = t_1 / (fma(((c / b) * a), -2.0, b) + b);
} else {
tmp_1 = t_0;
}
return tmp_1;
}
function code(a, b, c) t_0 = Float64(Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) / Float64(2.0 * a)) t_1 = Float64(Float64(-c) * 2.0) tmp_1 = 0.0 if (b <= 3.5e-42) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(t_1 / Float64(sqrt(Float64(Float64(c * a) * -4.0)) + b)); else tmp_2 = t_0; end tmp_1 = tmp_2; elseif (b >= 0.0) tmp_1 = Float64(t_1 / Float64(fma(Float64(Float64(c / b) * a), -2.0, b) + b)); else tmp_1 = t_0; end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[(N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[((-c) * 2.0), $MachinePrecision]}, If[LessEqual[b, 3.5e-42], If[GreaterEqual[b, 0.0], N[(t$95$1 / N[(N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision], t$95$0], If[GreaterEqual[b, 0.0], N[(t$95$1 / N[(N[(N[(N[(c / b), $MachinePrecision] * a), $MachinePrecision] * -2.0 + b), $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision], t$95$0]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2}{2 \cdot a}\\
t_1 := \left(-c\right) \cdot 2\\
\mathbf{if}\;b \leq 3.5 \cdot 10^{-42}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{t\_1}{\sqrt{\left(c \cdot a\right) \cdot -4} + b}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{t\_1}{\mathsf{fma}\left(\frac{c}{b} \cdot a, -2, b\right) + b}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if b < 3.5000000000000002e-42Initial program 70.4%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6473.2
Applied rewrites73.2%
Taylor expanded in c around 0
Applied rewrites73.3%
Taylor expanded in c around inf
lower-*.f64N/A
lower-*.f6469.4
Applied rewrites69.4%
if 3.5000000000000002e-42 < b Initial program 68.3%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6468.3
Applied rewrites68.3%
Taylor expanded in c around 0
Applied rewrites68.3%
Taylor expanded in c around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6490.4
Applied rewrites90.4%
Final simplification77.4%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (* (fma a (/ c b) (- b)) 2.0)))
(if (<= b 3.5e-42)
(if (>= b 0.0)
(/ (* (- c) 2.0) (+ (sqrt (* (* c a) -4.0)) b))
(/ t_0 (* 2.0 a)))
(if (>= b 0.0) (/ (* 2.0 c) t_0) (* (- b (- b)) (/ -0.5 a))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c / b), -b) * 2.0;
double tmp_1;
if (b <= 3.5e-42) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = (-c * 2.0) / (sqrt(((c * a) * -4.0)) + b);
} else {
tmp_2 = t_0 / (2.0 * a);
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / t_0;
} else {
tmp_1 = (b - -b) * (-0.5 / a);
}
return tmp_1;
}
function code(a, b, c) t_0 = Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) tmp_1 = 0.0 if (b <= 3.5e-42) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(Float64(Float64(-c) * 2.0) / Float64(sqrt(Float64(Float64(c * a) * -4.0)) + b)); else tmp_2 = Float64(t_0 / Float64(2.0 * a)); end tmp_1 = tmp_2; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / t_0); else tmp_1 = Float64(Float64(b - Float64(-b)) * Float64(-0.5 / a)); end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision]}, If[LessEqual[b, 3.5e-42], If[GreaterEqual[b, 0.0], N[(N[((-c) * 2.0), $MachinePrecision] / N[(N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision], N[(t$95$0 / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / t$95$0), $MachinePrecision], N[(N[(b - (-b)), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2\\
\mathbf{if}\;b \leq 3.5 \cdot 10^{-42}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{\left(-c\right) \cdot 2}{\sqrt{\left(c \cdot a\right) \cdot -4} + b}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_0}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{t\_0}\\
\mathbf{else}:\\
\;\;\;\;\left(b - \left(-b\right)\right) \cdot \frac{-0.5}{a}\\
\end{array}
\end{array}
if b < 3.5000000000000002e-42Initial program 70.4%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6473.2
Applied rewrites73.2%
Taylor expanded in c around 0
Applied rewrites73.3%
Taylor expanded in c around inf
lower-*.f64N/A
lower-*.f6469.4
Applied rewrites69.4%
if 3.5000000000000002e-42 < b Initial program 68.3%
lift-/.f64N/A
frac-2negN/A
distribute-frac-negN/A
neg-sub0N/A
lower--.f64N/A
div-invN/A
lower-*.f64N/A
Applied rewrites68.3%
Taylor expanded in c around 0
distribute-lft-out--N/A
lower-*.f64N/A
sub-negN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-neg.f6490.4
Applied rewrites90.4%
Taylor expanded in b around -inf
mul-1-negN/A
lower-neg.f6490.4
Applied rewrites90.4%
Final simplification77.4%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (* (fma a (/ c b) (- b)) 2.0)))
(if (<= b 3.5e-42)
(if (>= b 0.0)
(* (/ 2.0 (+ (sqrt (* (* -4.0 c) a)) b)) (- c))
(/ t_0 (* 2.0 a)))
(if (>= b 0.0) (/ (* 2.0 c) t_0) (* (- b (- b)) (/ -0.5 a))))))
double code(double a, double b, double c) {
double t_0 = fma(a, (c / b), -b) * 2.0;
double tmp_1;
if (b <= 3.5e-42) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = (2.0 / (sqrt(((-4.0 * c) * a)) + b)) * -c;
} else {
tmp_2 = t_0 / (2.0 * a);
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / t_0;
} else {
tmp_1 = (b - -b) * (-0.5 / a);
}
return tmp_1;
}
function code(a, b, c) t_0 = Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) tmp_1 = 0.0 if (b <= 3.5e-42) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(Float64(2.0 / Float64(sqrt(Float64(Float64(-4.0 * c) * a)) + b)) * Float64(-c)); else tmp_2 = Float64(t_0 / Float64(2.0 * a)); end tmp_1 = tmp_2; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / t_0); else tmp_1 = Float64(Float64(b - Float64(-b)) * Float64(-0.5 / a)); end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision]}, If[LessEqual[b, 3.5e-42], If[GreaterEqual[b, 0.0], N[(N[(2.0 / N[(N[Sqrt[N[(N[(-4.0 * c), $MachinePrecision] * a), $MachinePrecision]], $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision] * (-c)), $MachinePrecision], N[(t$95$0 / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / t$95$0), $MachinePrecision], N[(N[(b - (-b)), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2\\
\mathbf{if}\;b \leq 3.5 \cdot 10^{-42}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2}{\sqrt{\left(-4 \cdot c\right) \cdot a} + b} \cdot \left(-c\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_0}{2 \cdot a}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{t\_0}\\
\mathbf{else}:\\
\;\;\;\;\left(b - \left(-b\right)\right) \cdot \frac{-0.5}{a}\\
\end{array}
\end{array}
if b < 3.5000000000000002e-42Initial program 70.4%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6473.2
Applied rewrites73.2%
Taylor expanded in c around 0
Applied rewrites73.3%
Taylor expanded in c around inf
lower-*.f64N/A
lower-*.f6469.4
Applied rewrites69.4%
lift-/.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-/l*N/A
lower-*.f64N/A
lower-/.f6469.4
Applied rewrites69.4%
if 3.5000000000000002e-42 < b Initial program 68.3%
lift-/.f64N/A
frac-2negN/A
distribute-frac-negN/A
neg-sub0N/A
lower--.f64N/A
div-invN/A
lower-*.f64N/A
Applied rewrites68.3%
Taylor expanded in c around 0
distribute-lft-out--N/A
lower-*.f64N/A
sub-negN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-neg.f6490.4
Applied rewrites90.4%
Taylor expanded in b around -inf
mul-1-negN/A
lower-neg.f6490.4
Applied rewrites90.4%
Final simplification77.4%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (* 2.0 c) (* -2.0 b)) (/ (* (fma a (/ c b) (- b)) 2.0) (* 2.0 a))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-2.0 * b);
} else {
tmp = (fma(a, (c / b), -b) * 2.0) / (2.0 * a);
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(2.0 * c) / Float64(-2.0 * b)); else tmp = Float64(Float64(fma(a, Float64(c / b), Float64(-b)) * 2.0) / Float64(2.0 * a)); end return tmp end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(-2.0 * b), $MachinePrecision]), $MachinePrecision], N[(N[(N[(a * N[(c / b), $MachinePrecision] + (-b)), $MachinePrecision] * 2.0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{-2 \cdot b}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(a, \frac{c}{b}, -b\right) \cdot 2}{2 \cdot a}\\
\end{array}
\end{array}
Initial program 69.6%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6471.3
Applied rewrites71.3%
Taylor expanded in c around 0
Applied rewrites71.4%
Taylor expanded in c around 0
lower-*.f6468.6
Applied rewrites68.6%
Final simplification68.6%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (* 2.0 c) (* -2.0 b)) (* (* (fma (/ c b) a (- b)) 2.0) (/ 0.5 a))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-2.0 * b);
} else {
tmp = (fma((c / b), a, -b) * 2.0) * (0.5 / a);
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(2.0 * c) / Float64(-2.0 * b)); else tmp = Float64(Float64(fma(Float64(c / b), a, Float64(-b)) * 2.0) * Float64(0.5 / a)); end return tmp end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(-2.0 * b), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(c / b), $MachinePrecision] * a + (-b)), $MachinePrecision] * 2.0), $MachinePrecision] * N[(0.5 / a), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{-2 \cdot b}\\
\mathbf{else}:\\
\;\;\;\;\left(\mathsf{fma}\left(\frac{c}{b}, a, -b\right) \cdot 2\right) \cdot \frac{0.5}{a}\\
\end{array}
\end{array}
Initial program 69.6%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6471.3
Applied rewrites71.3%
Taylor expanded in c around 0
Applied rewrites71.4%
Taylor expanded in c around 0
lower-*.f6468.6
Applied rewrites68.6%
lift-/.f64N/A
clear-numN/A
lift-*.f64N/A
*-commutativeN/A
metadata-evalN/A
div-invN/A
Applied rewrites68.5%
Final simplification68.5%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (* 2.0 c) (* -2.0 b)) (* (- (/ c (* b b)) (/ 1.0 a)) b)))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-2.0 * b);
} else {
tmp = ((c / (b * b)) - (1.0 / a)) * 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) :: tmp
if (b >= 0.0d0) then
tmp = (2.0d0 * c) / ((-2.0d0) * b)
else
tmp = ((c / (b * b)) - (1.0d0 / a)) * b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-2.0 * b);
} else {
tmp = ((c / (b * b)) - (1.0 / a)) * b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = (2.0 * c) / (-2.0 * b) else: tmp = ((c / (b * b)) - (1.0 / a)) * b return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(2.0 * c) / Float64(-2.0 * b)); else tmp = Float64(Float64(Float64(c / Float64(b * b)) - Float64(1.0 / a)) * b); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = (2.0 * c) / (-2.0 * b); else tmp = ((c / (b * b)) - (1.0 / a)) * b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(-2.0 * b), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c / N[(b * b), $MachinePrecision]), $MachinePrecision] - N[(1.0 / a), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{-2 \cdot b}\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{c}{b \cdot b} - \frac{1}{a}\right) \cdot b\\
\end{array}
\end{array}
Initial program 69.6%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6471.3
Applied rewrites71.3%
Taylor expanded in c around 0
Applied rewrites71.4%
Taylor expanded in c around 0
lower-*.f6468.6
Applied rewrites68.6%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-/.f64N/A
unpow2N/A
lower-*.f6468.4
Applied rewrites68.4%
Final simplification68.4%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (* 2.0 c) (* -2.0 b)) (/ (* -2.0 b) (* 2.0 a))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-2.0 * b);
} else {
tmp = (-2.0 * b) / (2.0 * a);
}
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 >= 0.0d0) then
tmp = (2.0d0 * c) / ((-2.0d0) * b)
else
tmp = ((-2.0d0) * b) / (2.0d0 * a)
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-2.0 * b);
} else {
tmp = (-2.0 * b) / (2.0 * a);
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = (2.0 * c) / (-2.0 * b) else: tmp = (-2.0 * b) / (2.0 * a) return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(2.0 * c) / Float64(-2.0 * b)); else tmp = Float64(Float64(-2.0 * b) / Float64(2.0 * a)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = (2.0 * c) / (-2.0 * b); else tmp = (-2.0 * b) / (2.0 * a); end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(-2.0 * b), $MachinePrecision]), $MachinePrecision], N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{-2 \cdot b}\\
\mathbf{else}:\\
\;\;\;\;\frac{-2 \cdot b}{2 \cdot a}\\
\end{array}
\end{array}
Initial program 69.6%
Taylor expanded in b around -inf
associate-*r*N/A
mul-1-negN/A
lower-*.f64N/A
lower-neg.f64N/A
+-commutativeN/A
associate-*r/N/A
associate-*r*N/A
unpow2N/A
times-fracN/A
associate-*r/N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f6471.3
Applied rewrites71.3%
Taylor expanded in c around 0
Applied rewrites71.4%
Taylor expanded in c around 0
lower-*.f6468.6
Applied rewrites68.6%
Taylor expanded in b around -inf
lower-*.f6468.2
Applied rewrites68.2%
herbie shell --seed 2024254
(FPCore (a b c)
:name "jeff quadratic root 2"
:precision binary64
(if (>= b 0.0) (/ (* 2.0 c) (- (- b) (sqrt (- (* b b) (* (* 4.0 a) c))))) (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a))))