
(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 4 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
(if (<= b -5e+85)
(if (>= b 0.0) (* (/ (- 0.5) a) (* 2.0 b)) (/ c (- b)))
(if (<= b 5.4e+117)
(if (>= b 0.0)
(/ (+ (sqrt (fma (* c a) -4.0 (* b b))) b) (* (- a) 2.0))
(/ (* c 2.0) (- (sqrt (fma (* c -4.0) a (* b b))) b)))
(if (>= b 0.0) (- (/ c b) (/ b a)) (* (/ -2.0 (- b (- b))) c)))))
double code(double a, double b, double c) {
double tmp_1;
if (b <= -5e+85) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = (-0.5 / a) * (2.0 * b);
} else {
tmp_2 = c / -b;
}
tmp_1 = tmp_2;
} else if (b <= 5.4e+117) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (sqrt(fma((c * a), -4.0, (b * b))) + b) / (-a * 2.0);
} else {
tmp_3 = (c * 2.0) / (sqrt(fma((c * -4.0), a, (b * b))) - b);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (c / b) - (b / a);
} else {
tmp_1 = (-2.0 / (b - -b)) * c;
}
return tmp_1;
}
function code(a, b, c) tmp_1 = 0.0 if (b <= -5e+85) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(Float64(Float64(-0.5) / a) * Float64(2.0 * b)); else tmp_2 = Float64(c / Float64(-b)); end tmp_1 = tmp_2; elseif (b <= 5.4e+117) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(sqrt(fma(Float64(c * a), -4.0, Float64(b * b))) + b) / Float64(Float64(-a) * 2.0)); else tmp_3 = Float64(Float64(c * 2.0) / Float64(sqrt(fma(Float64(c * -4.0), a, Float64(b * b))) - 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 / Float64(b - Float64(-b))) * c); end return tmp_1 end
code[a_, b_, c_] := If[LessEqual[b, -5e+85], If[GreaterEqual[b, 0.0], N[(N[((-0.5) / a), $MachinePrecision] * N[(2.0 * b), $MachinePrecision]), $MachinePrecision], N[(c / (-b)), $MachinePrecision]], If[LessEqual[b, 5.4e+117], If[GreaterEqual[b, 0.0], N[(N[(N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0 + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + b), $MachinePrecision] / N[((-a) * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(c * 2.0), $MachinePrecision] / N[(N[Sqrt[N[(N[(c * -4.0), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(-2.0 / N[(b - (-b)), $MachinePrecision]), $MachinePrecision] * c), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -5 \cdot 10^{+85}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-0.5}{a} \cdot \left(2 \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}\\
\mathbf{elif}\;b \leq 5.4 \cdot 10^{+117}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)} + b}{\left(-a\right) \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-2}{b - \left(-b\right)} \cdot c\\
\end{array}
\end{array}
if b < -5.0000000000000001e85Initial program 55.2%
Applied rewrites55.2%
lift-/.f64N/A
clear-numN/A
associate-/r/N/A
lift-*.f64N/A
associate-/r*N/A
metadata-evalN/A
lift-/.f64N/A
lower-*.f6455.2
lift--.f64N/A
sub-negN/A
lift-neg.f64N/A
distribute-neg-outN/A
lift--.f64N/A
lift-*.f64N/A
cancel-sign-sub-invN/A
Applied rewrites55.2%
Taylor expanded in c around 0
lower-*.f6455.2
Applied rewrites55.2%
Taylor expanded in b around -inf
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6495.2
Applied rewrites95.2%
if -5.0000000000000001e85 < b < 5.4000000000000005e117Initial program 90.3%
Applied rewrites90.2%
lift--.f64N/A
lift-*.f64N/A
cancel-sign-sub-invN/A
lift-*.f64N/A
*-commutativeN/A
distribute-rgt-neg-inN/A
metadata-evalN/A
associate-*r*N/A
lift-*.f64N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6490.2
Applied rewrites90.2%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
frac-2negN/A
metadata-evalN/A
associate-*l/N/A
lift-neg.f64N/A
distribute-rgt-neg-inN/A
lift-*.f64N/A
frac-2negN/A
lower-/.f6490.3
Applied rewrites90.3%
if 5.4000000000000005e117 < b Initial program 52.4%
Applied rewrites52.4%
lift--.f64N/A
lift-*.f64N/A
cancel-sign-sub-invN/A
lift-*.f64N/A
*-commutativeN/A
distribute-rgt-neg-inN/A
metadata-evalN/A
associate-*r*N/A
lift-*.f64N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6452.4
Applied rewrites52.4%
Taylor expanded in b around -inf
mul-1-negN/A
lower-neg.f6452.4
Applied rewrites52.4%
Taylor expanded in c around 0
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-/.f6498.5
Applied rewrites98.5%
Final simplification93.3%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (fma -4.0 (* c a) (* b b)))))
(if (<= b -5e+85)
(if (>= b 0.0) (* (/ (- 0.5) a) (* 2.0 b)) (/ c (- b)))
(if (<= b 5.4e+117)
(if (>= b 0.0) (* -0.5 (/ (+ t_0 b) a)) (/ (* c 2.0) (- t_0 b)))
(if (>= b 0.0) (- (/ c b) (/ b a)) (* (/ -2.0 (- b (- b))) c))))))
double code(double a, double b, double c) {
double t_0 = sqrt(fma(-4.0, (c * a), (b * b)));
double tmp_1;
if (b <= -5e+85) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = (-0.5 / a) * (2.0 * b);
} else {
tmp_2 = c / -b;
}
tmp_1 = tmp_2;
} else if (b <= 5.4e+117) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = -0.5 * ((t_0 + b) / a);
} else {
tmp_3 = (c * 2.0) / (t_0 - b);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (c / b) - (b / a);
} else {
tmp_1 = (-2.0 / (b - -b)) * c;
}
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 <= -5e+85) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(Float64(Float64(-0.5) / a) * Float64(2.0 * b)); else tmp_2 = Float64(c / Float64(-b)); end tmp_1 = tmp_2; elseif (b <= 5.4e+117) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(-0.5 * Float64(Float64(t_0 + b) / a)); else tmp_3 = Float64(Float64(c * 2.0) / 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 / Float64(b - Float64(-b))) * c); 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, -5e+85], If[GreaterEqual[b, 0.0], N[(N[((-0.5) / a), $MachinePrecision] * N[(2.0 * b), $MachinePrecision]), $MachinePrecision], N[(c / (-b)), $MachinePrecision]], If[LessEqual[b, 5.4e+117], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(t$95$0 + b), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(N[(c * 2.0), $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 / N[(b - (-b)), $MachinePrecision]), $MachinePrecision] * c), $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 -5 \cdot 10^{+85}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-0.5}{a} \cdot \left(2 \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}\\
\mathbf{elif}\;b \leq 5.4 \cdot 10^{+117}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{t\_0 + b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{t\_0 - b}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-2}{b - \left(-b\right)} \cdot c\\
\end{array}
\end{array}
if b < -5.0000000000000001e85Initial program 55.2%
Applied rewrites55.2%
lift-/.f64N/A
clear-numN/A
associate-/r/N/A
lift-*.f64N/A
associate-/r*N/A
metadata-evalN/A
lift-/.f64N/A
lower-*.f6455.2
lift--.f64N/A
sub-negN/A
lift-neg.f64N/A
distribute-neg-outN/A
lift--.f64N/A
lift-*.f64N/A
cancel-sign-sub-invN/A
Applied rewrites55.2%
Taylor expanded in c around 0
lower-*.f6455.2
Applied rewrites55.2%
Taylor expanded in b around -inf
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6495.2
Applied rewrites95.2%
if -5.0000000000000001e85 < b < 5.4000000000000005e117Initial program 90.3%
Applied rewrites90.2%
lift--.f64N/A
lift-*.f64N/A
cancel-sign-sub-invN/A
lift-*.f64N/A
*-commutativeN/A
distribute-rgt-neg-inN/A
metadata-evalN/A
associate-*r*N/A
lift-*.f64N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6490.2
Applied rewrites90.2%
lift-*.f64N/A
*-commutativeN/A
lift-/.f64N/A
frac-2negN/A
metadata-evalN/A
associate-*l/N/A
lift-neg.f64N/A
distribute-rgt-neg-inN/A
lift-*.f64N/A
frac-2negN/A
lower-/.f6490.3
Applied rewrites90.3%
Taylor expanded in c around 0
lower->=.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f64N/A
+-commutativeN/A
lower-+.f64N/A
lower-sqrt.f64N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
associate-*r/N/A
Applied rewrites90.3%
if 5.4000000000000005e117 < b Initial program 52.4%
Applied rewrites52.4%
lift--.f64N/A
lift-*.f64N/A
cancel-sign-sub-invN/A
lift-*.f64N/A
*-commutativeN/A
distribute-rgt-neg-inN/A
metadata-evalN/A
associate-*r*N/A
lift-*.f64N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6452.4
Applied rewrites52.4%
Taylor expanded in b around -inf
mul-1-negN/A
lower-neg.f6452.4
Applied rewrites52.4%
Taylor expanded in c around 0
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-/.f6498.5
Applied rewrites98.5%
Final simplification93.3%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (* (/ (- 0.5) a) (* 2.0 b)) (/ c (- b))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (-0.5 / a) * (2.0 * b);
} 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 = (-0.5d0 / a) * (2.0d0 * b)
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 = (-0.5 / a) * (2.0 * b);
} else {
tmp = c / -b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = (-0.5 / a) * (2.0 * b) else: tmp = c / -b return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(Float64(-0.5) / a) * Float64(2.0 * b)); else tmp = Float64(c / Float64(-b)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = (-0.5 / a) * (2.0 * b); else tmp = c / -b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(N[((-0.5) / a), $MachinePrecision] * N[(2.0 * b), $MachinePrecision]), $MachinePrecision], N[(c / (-b)), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-0.5}{a} \cdot \left(2 \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
Initial program 73.6%
Applied rewrites73.6%
lift-/.f64N/A
clear-numN/A
associate-/r/N/A
lift-*.f64N/A
associate-/r*N/A
metadata-evalN/A
lift-/.f64N/A
lower-*.f6473.5
lift--.f64N/A
sub-negN/A
lift-neg.f64N/A
distribute-neg-outN/A
lift--.f64N/A
lift-*.f64N/A
cancel-sign-sub-invN/A
Applied rewrites73.5%
Taylor expanded in c around 0
lower-*.f6473.2
Applied rewrites73.2%
Taylor expanded in b around -inf
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6472.8
Applied rewrites72.8%
Final simplification72.8%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (* -2.0 b) (* 2.0 a)) (* (/ -2.0 (- b (- b))) c)))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (-2.0 * b) / (2.0 * a);
} else {
tmp = (-2.0 / (b - -b)) * c;
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b >= 0.0d0) then
tmp = ((-2.0d0) * b) / (2.0d0 * a)
else
tmp = ((-2.0d0) / (b - -b)) * c
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 * b) / (2.0 * a);
} else {
tmp = (-2.0 / (b - -b)) * c;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = (-2.0 * b) / (2.0 * a) else: tmp = (-2.0 / (b - -b)) * c return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(-2.0 * b) / Float64(2.0 * a)); else tmp = Float64(Float64(-2.0 / Float64(b - Float64(-b))) * c); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = (-2.0 * b) / (2.0 * a); else tmp = (-2.0 / (b - -b)) * c; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(N[(-2.0 * b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(-2.0 / N[(b - (-b)), $MachinePrecision]), $MachinePrecision] * c), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-2 \cdot b}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-2}{b - \left(-b\right)} \cdot c\\
\end{array}
\end{array}
Initial program 73.6%
Applied rewrites73.6%
lift--.f64N/A
lift-*.f64N/A
cancel-sign-sub-invN/A
lift-*.f64N/A
*-commutativeN/A
distribute-rgt-neg-inN/A
metadata-evalN/A
associate-*r*N/A
lift-*.f64N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
associate-*r*N/A
lower-fma.f64N/A
*-commutativeN/A
lower-*.f6473.6
Applied rewrites73.6%
Taylor expanded in b around -inf
mul-1-negN/A
lower-neg.f6473.1
Applied rewrites73.1%
Taylor expanded in c around 0
lower-*.f6472.8
Applied rewrites72.8%
Final simplification72.8%
herbie shell --seed 2024272
(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)))))))