
(FPCore (a b c) :precision binary64 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c))))) (if (>= b 0.0) (/ (- (- b) t_0) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_0)))))
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 = (-b - t_0) / (2.0 * a);
} else {
tmp = (2.0 * c) / (-b + t_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) :: t_0
real(8) :: tmp
t_0 = sqrt(((b * b) - ((4.0d0 * a) * c)))
if (b >= 0.0d0) then
tmp = (-b - t_0) / (2.0d0 * a)
else
tmp = (2.0d0 * c) / (-b + t_0)
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 = (-b - t_0) / (2.0 * a);
} else {
tmp = (2.0 * c) / (-b + t_0);
}
return tmp;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - ((4.0 * a) * c))) tmp = 0 if b >= 0.0: tmp = (-b - t_0) / (2.0 * a) else: tmp = (2.0 * c) / (-b + t_0) 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(Float64(-b) - t_0) / Float64(2.0 * a)); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_0)); 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 = (-b - t_0) / (2.0 * a); else tmp = (2.0 * c) / (-b + t_0); 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[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$0), $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{\left(-b\right) - t_0}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t_0}\\
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 7 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b c) :precision binary64 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c))))) (if (>= b 0.0) (/ (- (- b) t_0) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_0)))))
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 = (-b - t_0) / (2.0 * a);
} else {
tmp = (2.0 * c) / (-b + t_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) :: t_0
real(8) :: tmp
t_0 = sqrt(((b * b) - ((4.0d0 * a) * c)))
if (b >= 0.0d0) then
tmp = (-b - t_0) / (2.0d0 * a)
else
tmp = (2.0d0 * c) / (-b + t_0)
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 = (-b - t_0) / (2.0 * a);
} else {
tmp = (2.0 * c) / (-b + t_0);
}
return tmp;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - ((4.0 * a) * c))) tmp = 0 if b >= 0.0: tmp = (-b - t_0) / (2.0 * a) else: tmp = (2.0 * c) / (-b + t_0) 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(Float64(-b) - t_0) / Float64(2.0 * a)); else tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_0)); 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 = (-b - t_0) / (2.0 * a); else tmp = (2.0 * c) / (-b + t_0); 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[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$0), $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{\left(-b\right) - t_0}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t_0}\\
\end{array}
\end{array}
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (fma b b (* a (* c -4.0))))))
(if (<= b -5e+155)
(if (>= b 0.0)
(* -0.5 (/ (fma b 2.0 (/ (* c -2.0) (/ b a))) a))
(/ (* 2.0 c) (fma 2.0 (/ c (/ b a)) (* b -2.0))))
(if (<= b 1.35e+130)
(if (>= b 0.0) (* -0.5 (/ (+ b t_0) a)) (/ (* 2.0 c) (- t_0 b)))
(if (>= b 0.0)
(- (/ c b) (/ b a))
(/ (* 2.0 c) (- (sqrt (- (* b b) (* 4.0 (* c a)))) b)))))))
double code(double a, double b, double c) {
double t_0 = sqrt(fma(b, b, (a * (c * -4.0))));
double tmp_1;
if (b <= -5e+155) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (fma(b, 2.0, ((c * -2.0) / (b / a))) / a);
} else {
tmp_2 = (2.0 * c) / fma(2.0, (c / (b / a)), (b * -2.0));
}
tmp_1 = tmp_2;
} else if (b <= 1.35e+130) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = -0.5 * ((b + t_0) / a);
} else {
tmp_3 = (2.0 * c) / (t_0 - b);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (c / b) - (b / a);
} else {
tmp_1 = (2.0 * c) / (sqrt(((b * b) - (4.0 * (c * a)))) - b);
}
return tmp_1;
}
function code(a, b, c) t_0 = sqrt(fma(b, b, Float64(a * Float64(c * -4.0)))) tmp_1 = 0.0 if (b <= -5e+155) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(-0.5 * Float64(fma(b, 2.0, Float64(Float64(c * -2.0) / Float64(b / a))) / a)); else tmp_2 = Float64(Float64(2.0 * c) / fma(2.0, Float64(c / Float64(b / a)), Float64(b * -2.0))); end tmp_1 = tmp_2; elseif (b <= 1.35e+130) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(-0.5 * Float64(Float64(b + t_0) / a)); else tmp_3 = Float64(Float64(2.0 * c) / Float64(t_0 - b)); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(c / b) - Float64(b / a)); else tmp_1 = Float64(Float64(2.0 * c) / Float64(sqrt(Float64(Float64(b * b) - Float64(4.0 * Float64(c * a)))) - b)); end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(b * b + N[(a * N[(c * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -5e+155], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(b * 2.0 + N[(N[(c * -2.0), $MachinePrecision] / N[(b / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(c / N[(b / a), $MachinePrecision]), $MachinePrecision] + N[(b * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.35e+130], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(b + t$95$0), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(t$95$0 - b), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(4.0 * N[(c * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{\mathsf{fma}\left(b, b, a \cdot \left(c \cdot -4\right)\right)}\\
\mathbf{if}\;b \leq -5 \cdot 10^{+155}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{\mathsf{fma}\left(b, 2, \frac{c \cdot -2}{\frac{b}{a}}\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\mathsf{fma}\left(2, \frac{c}{\frac{b}{a}}, b \cdot -2\right)}\\
\end{array}\\
\mathbf{elif}\;b \leq 1.35 \cdot 10^{+130}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{b + t_0}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{t_0 - b}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\sqrt{b \cdot b - 4 \cdot \left(c \cdot a\right)} - b}\\
\end{array}
\end{array}
if b < -4.9999999999999999e155Initial program 44.1%
Simplified44.1%
Taylor expanded in b around -inf 88.2%
fma-def88.2%
associate-/l*97.8%
*-commutative97.8%
Simplified97.8%
Taylor expanded in b around inf 97.8%
+-commutative97.8%
*-commutative97.8%
fma-def97.8%
*-commutative97.8%
associate-/l*97.8%
associate-*l/97.8%
Simplified97.8%
if -4.9999999999999999e155 < b < 1.3499999999999999e130Initial program 84.6%
Simplified85.2%
if 1.3499999999999999e130 < b Initial program 44.3%
sqr-neg44.3%
sqr-neg44.3%
associate-*l*44.3%
*-commutative44.3%
*-commutative44.3%
sqr-neg44.3%
sqr-neg44.3%
associate-*l*44.3%
Simplified44.3%
Taylor expanded in b around inf 97.7%
mul-1-neg97.7%
unsub-neg97.7%
Simplified97.7%
Final simplification89.2%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (- (* b b) (* 4.0 (* c a))))) (t_1 (/ (* 2.0 c) (- t_0 b))))
(if (<= b -5e+150)
(if (>= b 0.0)
(* -0.5 (/ (fma b 2.0 (/ (* c -2.0) (/ b a))) a))
(/ (* 2.0 c) (fma 2.0 (/ c (/ b a)) (* b -2.0))))
(if (<= b 1.2e+130)
(if (>= b 0.0) (/ (- (- b) t_0) (* 2.0 a)) t_1)
(if (>= b 0.0) (- (/ c b) (/ b a)) t_1)))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - (4.0 * (c * a))));
double t_1 = (2.0 * c) / (t_0 - b);
double tmp_1;
if (b <= -5e+150) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (fma(b, 2.0, ((c * -2.0) / (b / a))) / a);
} else {
tmp_2 = (2.0 * c) / fma(2.0, (c / (b / a)), (b * -2.0));
}
tmp_1 = tmp_2;
} else if (b <= 1.2e+130) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (-b - t_0) / (2.0 * a);
} else {
tmp_3 = t_1;
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (c / b) - (b / a);
} else {
tmp_1 = t_1;
}
return tmp_1;
}
function code(a, b, c) t_0 = sqrt(Float64(Float64(b * b) - Float64(4.0 * Float64(c * a)))) t_1 = Float64(Float64(2.0 * c) / Float64(t_0 - b)) tmp_1 = 0.0 if (b <= -5e+150) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(-0.5 * Float64(fma(b, 2.0, Float64(Float64(c * -2.0) / Float64(b / a))) / a)); else tmp_2 = Float64(Float64(2.0 * c) / fma(2.0, Float64(c / Float64(b / a)), Float64(b * -2.0))); end tmp_1 = tmp_2; elseif (b <= 1.2e+130) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(Float64(-b) - t_0) / Float64(2.0 * a)); else tmp_3 = t_1; end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(c / b) - Float64(b / a)); else tmp_1 = t_1; end return tmp_1 end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(4.0 * N[(c * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(N[(2.0 * c), $MachinePrecision] / N[(t$95$0 - b), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -5e+150], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(b * 2.0 + N[(N[(c * -2.0), $MachinePrecision] / N[(b / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(c / N[(b / a), $MachinePrecision]), $MachinePrecision] + N[(b * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.2e+130], If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], t$95$1], If[GreaterEqual[b, 0.0], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - 4 \cdot \left(c \cdot a\right)}\\
t_1 := \frac{2 \cdot c}{t_0 - b}\\
\mathbf{if}\;b \leq -5 \cdot 10^{+150}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{\mathsf{fma}\left(b, 2, \frac{c \cdot -2}{\frac{b}{a}}\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\mathsf{fma}\left(2, \frac{c}{\frac{b}{a}}, b \cdot -2\right)}\\
\end{array}\\
\mathbf{elif}\;b \leq 1.2 \cdot 10^{+130}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{\left(-b\right) - t_0}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;t_1\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;t_1\\
\end{array}
\end{array}
if b < -5.00000000000000009e150Initial program 44.1%
Simplified44.1%
Taylor expanded in b around -inf 88.2%
fma-def88.2%
associate-/l*97.8%
*-commutative97.8%
Simplified97.8%
Taylor expanded in b around inf 97.8%
+-commutative97.8%
*-commutative97.8%
fma-def97.8%
*-commutative97.8%
associate-/l*97.8%
associate-*l/97.8%
Simplified97.8%
if -5.00000000000000009e150 < b < 1.20000000000000012e130Initial program 84.6%
sqr-neg84.6%
sqr-neg84.6%
associate-*l*84.6%
*-commutative84.6%
*-commutative84.6%
sqr-neg84.6%
sqr-neg84.6%
associate-*l*85.2%
Simplified85.2%
if 1.20000000000000012e130 < b Initial program 44.3%
sqr-neg44.3%
sqr-neg44.3%
associate-*l*44.3%
*-commutative44.3%
*-commutative44.3%
sqr-neg44.3%
sqr-neg44.3%
associate-*l*44.3%
Simplified44.3%
Taylor expanded in b around inf 97.7%
mul-1-neg97.7%
unsub-neg97.7%
Simplified97.7%
Final simplification89.2%
(FPCore (a b c)
:precision binary64
(if (<= b -5e+149)
(if (>= b 0.0)
(* -0.5 (/ (fma b 2.0 (/ (* c -2.0) (/ b a))) a))
(/ (* 2.0 c) (fma 2.0 (/ c (/ b a)) (* b -2.0))))
(if (>= b 0.0)
(/ (- b) a)
(/ (* 2.0 c) (- (sqrt (- (* b b) (* 4.0 (* c a)))) b)))))
double code(double a, double b, double c) {
double tmp_1;
if (b <= -5e+149) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (fma(b, 2.0, ((c * -2.0) / (b / a))) / a);
} else {
tmp_2 = (2.0 * c) / fma(2.0, (c / (b / a)), (b * -2.0));
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = -b / a;
} else {
tmp_1 = (2.0 * c) / (sqrt(((b * b) - (4.0 * (c * a)))) - b);
}
return tmp_1;
}
function code(a, b, c) tmp_1 = 0.0 if (b <= -5e+149) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(-0.5 * Float64(fma(b, 2.0, Float64(Float64(c * -2.0) / Float64(b / a))) / a)); else tmp_2 = Float64(Float64(2.0 * c) / fma(2.0, Float64(c / Float64(b / a)), Float64(b * -2.0))); end tmp_1 = tmp_2; elseif (b >= 0.0) tmp_1 = Float64(Float64(-b) / a); else tmp_1 = Float64(Float64(2.0 * c) / Float64(sqrt(Float64(Float64(b * b) - Float64(4.0 * Float64(c * a)))) - b)); end return tmp_1 end
code[a_, b_, c_] := If[LessEqual[b, -5e+149], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(b * 2.0 + N[(N[(c * -2.0), $MachinePrecision] / N[(b / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(c / N[(b / a), $MachinePrecision]), $MachinePrecision] + N[(b * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[((-b) / a), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(4.0 * N[(c * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -5 \cdot 10^{+149}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{\mathsf{fma}\left(b, 2, \frac{c \cdot -2}{\frac{b}{a}}\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\mathsf{fma}\left(2, \frac{c}{\frac{b}{a}}, b \cdot -2\right)}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{-b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\sqrt{b \cdot b - 4 \cdot \left(c \cdot a\right)} - b}\\
\end{array}
\end{array}
if b < -4.9999999999999999e149Initial program 44.1%
Simplified44.1%
Taylor expanded in b around -inf 88.2%
fma-def88.2%
associate-/l*97.8%
*-commutative97.8%
Simplified97.8%
Taylor expanded in b around inf 97.8%
+-commutative97.8%
*-commutative97.8%
fma-def97.8%
*-commutative97.8%
associate-/l*97.8%
associate-*l/97.8%
Simplified97.8%
if -4.9999999999999999e149 < b Initial program 76.9%
sqr-neg76.9%
sqr-neg76.9%
associate-*l*76.9%
*-commutative76.9%
*-commutative76.9%
sqr-neg76.9%
sqr-neg76.9%
associate-*l*77.4%
Simplified77.4%
Taylor expanded in b around inf 71.6%
Final simplification75.8%
(FPCore (a b c)
:precision binary64
(if (<= b -1.82e+149)
(if (>= b 0.0)
(* -0.5 (/ (fma b 2.0 (/ (* c -2.0) (/ b a))) a))
(/ (* 2.0 c) (fma 2.0 (/ c (/ b a)) (* b -2.0))))
(if (>= b 0.0)
(- (/ c b) (/ b a))
(/ (* 2.0 c) (- (sqrt (- (* b b) (* 4.0 (* c a)))) b)))))
double code(double a, double b, double c) {
double tmp_1;
if (b <= -1.82e+149) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (fma(b, 2.0, ((c * -2.0) / (b / a))) / a);
} else {
tmp_2 = (2.0 * c) / fma(2.0, (c / (b / a)), (b * -2.0));
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = (c / b) - (b / a);
} else {
tmp_1 = (2.0 * c) / (sqrt(((b * b) - (4.0 * (c * a)))) - b);
}
return tmp_1;
}
function code(a, b, c) tmp_1 = 0.0 if (b <= -1.82e+149) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(-0.5 * Float64(fma(b, 2.0, Float64(Float64(c * -2.0) / Float64(b / a))) / a)); else tmp_2 = Float64(Float64(2.0 * c) / fma(2.0, Float64(c / Float64(b / a)), Float64(b * -2.0))); end tmp_1 = tmp_2; elseif (b >= 0.0) tmp_1 = Float64(Float64(c / b) - Float64(b / a)); else tmp_1 = Float64(Float64(2.0 * c) / Float64(sqrt(Float64(Float64(b * b) - Float64(4.0 * Float64(c * a)))) - b)); end return tmp_1 end
code[a_, b_, c_] := If[LessEqual[b, -1.82e+149], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(b * 2.0 + N[(N[(c * -2.0), $MachinePrecision] / N[(b / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(c / N[(b / a), $MachinePrecision]), $MachinePrecision] + N[(b * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(4.0 * N[(c * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -1.82 \cdot 10^{+149}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{\mathsf{fma}\left(b, 2, \frac{c \cdot -2}{\frac{b}{a}}\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\mathsf{fma}\left(2, \frac{c}{\frac{b}{a}}, b \cdot -2\right)}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\sqrt{b \cdot b - 4 \cdot \left(c \cdot a\right)} - b}\\
\end{array}
\end{array}
if b < -1.8199999999999999e149Initial program 44.1%
Simplified44.1%
Taylor expanded in b around -inf 88.2%
fma-def88.2%
associate-/l*97.8%
*-commutative97.8%
Simplified97.8%
Taylor expanded in b around inf 97.8%
+-commutative97.8%
*-commutative97.8%
fma-def97.8%
*-commutative97.8%
associate-/l*97.8%
associate-*l/97.8%
Simplified97.8%
if -1.8199999999999999e149 < b Initial program 76.9%
sqr-neg76.9%
sqr-neg76.9%
associate-*l*76.9%
*-commutative76.9%
*-commutative76.9%
sqr-neg76.9%
sqr-neg76.9%
associate-*l*77.4%
Simplified77.4%
Taylor expanded in b around inf 71.8%
mul-1-neg71.8%
unsub-neg71.8%
Simplified71.8%
Final simplification75.9%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (* -0.5 (/ (fma b 2.0 (/ (* c -2.0) (/ b a))) a)) (/ (* 2.0 c) (fma 2.0 (/ c (/ b a)) (* b -2.0)))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -0.5 * (fma(b, 2.0, ((c * -2.0) / (b / a))) / a);
} else {
tmp = (2.0 * c) / fma(2.0, (c / (b / a)), (b * -2.0));
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(-0.5 * Float64(fma(b, 2.0, Float64(Float64(c * -2.0) / Float64(b / a))) / a)); else tmp = Float64(Float64(2.0 * c) / fma(2.0, Float64(c / Float64(b / a)), Float64(b * -2.0))); end return tmp end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(b * 2.0 + N[(N[(c * -2.0), $MachinePrecision] / N[(b / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(c / N[(b / a), $MachinePrecision]), $MachinePrecision] + N[(b * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{\mathsf{fma}\left(b, 2, \frac{c \cdot -2}{\frac{b}{a}}\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 \cdot c}{\mathsf{fma}\left(2, \frac{c}{\frac{b}{a}}, b \cdot -2\right)}\\
\end{array}
\end{array}
Initial program 71.7%
Simplified72.1%
Taylor expanded in b around -inf 65.9%
fma-def65.9%
associate-/l*67.5%
*-commutative67.5%
Simplified67.5%
Taylor expanded in b around inf 61.6%
+-commutative61.6%
*-commutative61.6%
fma-def61.6%
*-commutative61.6%
associate-/l*62.7%
associate-*l/62.7%
Simplified62.7%
Final simplification62.7%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (- b) a) (/ (- c) b)))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -b / a;
} 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) :: tmp
if (b >= 0.0d0) then
tmp = -b / a
else
tmp = -c / b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -b / a;
} else {
tmp = -c / b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = -b / a else: tmp = -c / b return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(-b) / a); else tmp = Float64(Float64(-c) / b); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = -b / a; else tmp = -c / b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[((-b) / a), $MachinePrecision], N[((-c) / b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-c}{b}\\
\end{array}
\end{array}
Initial program 71.7%
sqr-neg71.7%
sqr-neg71.7%
associate-*l*71.7%
*-commutative71.7%
*-commutative71.7%
sqr-neg71.7%
sqr-neg71.7%
associate-*l*72.0%
Simplified72.0%
Taylor expanded in b around inf 67.2%
Taylor expanded in b around -inf 62.6%
associate-*r/62.6%
mul-1-neg62.6%
Simplified62.6%
Final simplification62.6%
(FPCore (a b c) :precision binary64 (/ (- b) a))
double code(double a, double b, double c) {
return -b / 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 / a
end function
public static double code(double a, double b, double c) {
return -b / a;
}
def code(a, b, c): return -b / a
function code(a, b, c) return Float64(Float64(-b) / a) end
function tmp = code(a, b, c) tmp = -b / a; end
code[a_, b_, c_] := N[((-b) / a), $MachinePrecision]
\begin{array}{l}
\\
\frac{-b}{a}
\end{array}
Initial program 71.7%
sqr-neg71.7%
sqr-neg71.7%
associate-*l*71.7%
*-commutative71.7%
*-commutative71.7%
sqr-neg71.7%
sqr-neg71.7%
associate-*l*72.0%
Simplified72.0%
Taylor expanded in b around inf 67.2%
Taylor expanded in c around 0 29.1%
associate-*r/29.1%
mul-1-neg29.1%
Simplified29.1%
Final simplification29.1%
herbie shell --seed 2023279
(FPCore (a b c)
:name "jeff quadratic root 1"
:precision binary64
(if (>= b 0.0) (/ (- (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))))))