
(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 (- (* b b) (* c (* a 4.0))))) (t_1 (/ (- c) b)))
(if (<= b -1.5e+139)
(if (>= b 0.0) (* -0.5 (/ -1.0 a)) t_1)
(if (<= b 2.55e+25)
(if (>= b 0.0) (/ (+ b t_0) (* a (- 2.0))) (/ (* c 2.0) (- t_0 b)))
(if (>= b 0.0) (* -0.5 (+ (* -2.0 (/ c b)) (* 2.0 (/ b a)))) t_1)))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - (c * (a * 4.0))));
double t_1 = -c / b;
double tmp_1;
if (b <= -1.5e+139) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (-1.0 / a);
} else {
tmp_2 = t_1;
}
tmp_1 = tmp_2;
} else if (b <= 2.55e+25) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (b + t_0) / (a * -2.0);
} else {
tmp_3 = (c * 2.0) / (t_0 - b);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = -0.5 * ((-2.0 * (c / b)) + (2.0 * (b / a)));
} else {
tmp_1 = t_1;
}
return tmp_1;
}
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) :: t_1
real(8) :: tmp
real(8) :: tmp_1
real(8) :: tmp_2
real(8) :: tmp_3
t_0 = sqrt(((b * b) - (c * (a * 4.0d0))))
t_1 = -c / b
if (b <= (-1.5d+139)) then
if (b >= 0.0d0) then
tmp_2 = (-0.5d0) * ((-1.0d0) / a)
else
tmp_2 = t_1
end if
tmp_1 = tmp_2
else if (b <= 2.55d+25) then
if (b >= 0.0d0) then
tmp_3 = (b + t_0) / (a * -2.0d0)
else
tmp_3 = (c * 2.0d0) / (t_0 - b)
end if
tmp_1 = tmp_3
else if (b >= 0.0d0) then
tmp_1 = (-0.5d0) * (((-2.0d0) * (c / b)) + (2.0d0 * (b / a)))
else
tmp_1 = t_1
end if
code = tmp_1
end function
public static double code(double a, double b, double c) {
double t_0 = Math.sqrt(((b * b) - (c * (a * 4.0))));
double t_1 = -c / b;
double tmp_1;
if (b <= -1.5e+139) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (-1.0 / a);
} else {
tmp_2 = t_1;
}
tmp_1 = tmp_2;
} else if (b <= 2.55e+25) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (b + t_0) / (a * -2.0);
} else {
tmp_3 = (c * 2.0) / (t_0 - b);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = -0.5 * ((-2.0 * (c / b)) + (2.0 * (b / a)));
} else {
tmp_1 = t_1;
}
return tmp_1;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - (c * (a * 4.0)))) t_1 = -c / b tmp_1 = 0 if b <= -1.5e+139: tmp_2 = 0 if b >= 0.0: tmp_2 = -0.5 * (-1.0 / a) else: tmp_2 = t_1 tmp_1 = tmp_2 elif b <= 2.55e+25: tmp_3 = 0 if b >= 0.0: tmp_3 = (b + t_0) / (a * -2.0) else: tmp_3 = (c * 2.0) / (t_0 - b) tmp_1 = tmp_3 elif b >= 0.0: tmp_1 = -0.5 * ((-2.0 * (c / b)) + (2.0 * (b / a))) else: tmp_1 = t_1 return tmp_1
function code(a, b, c) t_0 = sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) t_1 = Float64(Float64(-c) / b) tmp_1 = 0.0 if (b <= -1.5e+139) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(-0.5 * Float64(-1.0 / a)); else tmp_2 = t_1; end tmp_1 = tmp_2; elseif (b <= 2.55e+25) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(b + t_0) / Float64(a * Float64(-2.0))); else tmp_3 = Float64(Float64(c * 2.0) / Float64(t_0 - b)); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(-0.5 * Float64(Float64(-2.0 * Float64(c / b)) + Float64(2.0 * Float64(b / a)))); else tmp_1 = t_1; end return tmp_1 end
function tmp_5 = code(a, b, c) t_0 = sqrt(((b * b) - (c * (a * 4.0)))); t_1 = -c / b; tmp_2 = 0.0; if (b <= -1.5e+139) tmp_3 = 0.0; if (b >= 0.0) tmp_3 = -0.5 * (-1.0 / a); else tmp_3 = t_1; end tmp_2 = tmp_3; elseif (b <= 2.55e+25) tmp_4 = 0.0; if (b >= 0.0) tmp_4 = (b + t_0) / (a * -2.0); else tmp_4 = (c * 2.0) / (t_0 - b); end tmp_2 = tmp_4; elseif (b >= 0.0) tmp_2 = -0.5 * ((-2.0 * (c / b)) + (2.0 * (b / a))); else tmp_2 = t_1; end tmp_5 = tmp_2; end
code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(c * N[(a * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[((-c) / b), $MachinePrecision]}, If[LessEqual[b, -1.5e+139], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(-1.0 / a), $MachinePrecision]), $MachinePrecision], t$95$1], If[LessEqual[b, 2.55e+25], If[GreaterEqual[b, 0.0], N[(N[(b + t$95$0), $MachinePrecision] / N[(a * (-2.0)), $MachinePrecision]), $MachinePrecision], N[(N[(c * 2.0), $MachinePrecision] / N[(t$95$0 - b), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(-2.0 * N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[(b / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}\\
t_1 := \frac{-c}{b}\\
\mathbf{if}\;b \leq -1.5 \cdot 10^{+139}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{-1}{a}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}\\
\mathbf{elif}\;b \leq 2.55 \cdot 10^{+25}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{b + t\_0}{a \cdot \left(-2\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{t\_0 - b}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \left(-2 \cdot \frac{c}{b} + 2 \cdot \frac{b}{a}\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if b < -1.5e139Initial program 46.8%
Simplified46.8%
Taylor expanded in b around -inf 98.3%
mul-1-neg98.3%
distribute-neg-frac298.3%
Simplified98.3%
clear-num98.3%
inv-pow98.3%
fma-undefine98.3%
pow298.3%
fma-undefine98.3%
Applied egg-rr98.3%
unpow-198.3%
Simplified98.3%
Taylor expanded in c around 0 98.3%
clear-num98.3%
*-un-lft-identity98.3%
flip-+98.3%
+-inverses98.3%
+-inverses98.3%
Applied egg-rr98.3%
Simplified98.3%
if -1.5e139 < b < 2.5500000000000002e25Initial program 88.7%
if 2.5500000000000002e25 < b Initial program 65.7%
Simplified65.8%
Taylor expanded in b around -inf 65.8%
mul-1-neg65.8%
distribute-neg-frac265.8%
Simplified65.8%
Taylor expanded in c around 0 95.9%
Final simplification92.6%
(FPCore (a b c)
:precision binary64
(if (<= b -1.02e+139)
(if (>= b 0.0) (* -0.5 (/ -1.0 a)) (/ (- c) b))
(if (>= b 0.0)
(* b (+ (/ c (pow b 2.0)) (/ -1.0 a)))
(/ (* c 2.0) (- (sqrt (- (* b b) (* c (* a 4.0)))) b)))))
double code(double a, double b, double c) {
double tmp_1;
if (b <= -1.02e+139) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (-1.0 / a);
} else {
tmp_2 = -c / b;
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = b * ((c / pow(b, 2.0)) + (-1.0 / a));
} else {
tmp_1 = (c * 2.0) / (sqrt(((b * b) - (c * (a * 4.0)))) - b);
}
return tmp_1;
}
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
real(8) :: tmp_1
real(8) :: tmp_2
if (b <= (-1.02d+139)) then
if (b >= 0.0d0) then
tmp_2 = (-0.5d0) * ((-1.0d0) / a)
else
tmp_2 = -c / b
end if
tmp_1 = tmp_2
else if (b >= 0.0d0) then
tmp_1 = b * ((c / (b ** 2.0d0)) + ((-1.0d0) / a))
else
tmp_1 = (c * 2.0d0) / (sqrt(((b * b) - (c * (a * 4.0d0)))) - b)
end if
code = tmp_1
end function
public static double code(double a, double b, double c) {
double tmp_1;
if (b <= -1.02e+139) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (-1.0 / a);
} else {
tmp_2 = -c / b;
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = b * ((c / Math.pow(b, 2.0)) + (-1.0 / a));
} else {
tmp_1 = (c * 2.0) / (Math.sqrt(((b * b) - (c * (a * 4.0)))) - b);
}
return tmp_1;
}
def code(a, b, c): tmp_1 = 0 if b <= -1.02e+139: tmp_2 = 0 if b >= 0.0: tmp_2 = -0.5 * (-1.0 / a) else: tmp_2 = -c / b tmp_1 = tmp_2 elif b >= 0.0: tmp_1 = b * ((c / math.pow(b, 2.0)) + (-1.0 / a)) else: tmp_1 = (c * 2.0) / (math.sqrt(((b * b) - (c * (a * 4.0)))) - b) return tmp_1
function code(a, b, c) tmp_1 = 0.0 if (b <= -1.02e+139) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(-0.5 * Float64(-1.0 / a)); else tmp_2 = Float64(Float64(-c) / b); end tmp_1 = tmp_2; elseif (b >= 0.0) tmp_1 = Float64(b * Float64(Float64(c / (b ^ 2.0)) + Float64(-1.0 / a))); else tmp_1 = Float64(Float64(c * 2.0) / Float64(sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) - b)); end return tmp_1 end
function tmp_4 = code(a, b, c) tmp_2 = 0.0; if (b <= -1.02e+139) tmp_3 = 0.0; if (b >= 0.0) tmp_3 = -0.5 * (-1.0 / a); else tmp_3 = -c / b; end tmp_2 = tmp_3; elseif (b >= 0.0) tmp_2 = b * ((c / (b ^ 2.0)) + (-1.0 / a)); else tmp_2 = (c * 2.0) / (sqrt(((b * b) - (c * (a * 4.0)))) - b); end tmp_4 = tmp_2; end
code[a_, b_, c_] := If[LessEqual[b, -1.02e+139], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(-1.0 / a), $MachinePrecision]), $MachinePrecision], N[((-c) / b), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(b * N[(N[(c / N[Power[b, 2.0], $MachinePrecision]), $MachinePrecision] + N[(-1.0 / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(c * 2.0), $MachinePrecision] / N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(c * N[(a * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -1.02 \cdot 10^{+139}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{-1}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-c}{b}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;b \cdot \left(\frac{c}{{b}^{2}} + \frac{-1}{a}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} - b}\\
\end{array}
\end{array}
if b < -1.02e139Initial program 46.8%
Simplified46.8%
Taylor expanded in b around -inf 98.3%
mul-1-neg98.3%
distribute-neg-frac298.3%
Simplified98.3%
clear-num98.3%
inv-pow98.3%
fma-undefine98.3%
pow298.3%
fma-undefine98.3%
Applied egg-rr98.3%
unpow-198.3%
Simplified98.3%
Taylor expanded in c around 0 98.3%
clear-num98.3%
*-un-lft-identity98.3%
flip-+98.3%
+-inverses98.3%
+-inverses98.3%
Applied egg-rr98.3%
Simplified98.3%
if -1.02e139 < b Initial program 81.1%
Taylor expanded in a around 0 75.0%
distribute-lft-out--75.0%
associate-/l*77.5%
Simplified77.5%
Taylor expanded in b around -inf 76.3%
mul-1-neg76.3%
*-commutative76.3%
distribute-rgt-neg-in76.3%
+-commutative76.3%
mul-1-neg76.3%
unsub-neg76.3%
Simplified76.3%
Final simplification81.0%
(FPCore (a b c)
:precision binary64
(if (<= b -1e+140)
(if (>= b 0.0) (* -0.5 (/ -1.0 a)) (/ (- c) b))
(if (>= b 0.0)
(/ (* 2.0 (- (* a (/ c b)) b)) (* a 2.0))
(/ (* c 2.0) (- (sqrt (- (* b b) (* c (* a 4.0)))) b)))))
double code(double a, double b, double c) {
double tmp_1;
if (b <= -1e+140) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (-1.0 / a);
} else {
tmp_2 = -c / b;
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = (2.0 * ((a * (c / b)) - b)) / (a * 2.0);
} else {
tmp_1 = (c * 2.0) / (sqrt(((b * b) - (c * (a * 4.0)))) - b);
}
return tmp_1;
}
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
real(8) :: tmp_1
real(8) :: tmp_2
if (b <= (-1d+140)) then
if (b >= 0.0d0) then
tmp_2 = (-0.5d0) * ((-1.0d0) / a)
else
tmp_2 = -c / b
end if
tmp_1 = tmp_2
else if (b >= 0.0d0) then
tmp_1 = (2.0d0 * ((a * (c / b)) - b)) / (a * 2.0d0)
else
tmp_1 = (c * 2.0d0) / (sqrt(((b * b) - (c * (a * 4.0d0)))) - b)
end if
code = tmp_1
end function
public static double code(double a, double b, double c) {
double tmp_1;
if (b <= -1e+140) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = -0.5 * (-1.0 / a);
} else {
tmp_2 = -c / b;
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = (2.0 * ((a * (c / b)) - b)) / (a * 2.0);
} else {
tmp_1 = (c * 2.0) / (Math.sqrt(((b * b) - (c * (a * 4.0)))) - b);
}
return tmp_1;
}
def code(a, b, c): tmp_1 = 0 if b <= -1e+140: tmp_2 = 0 if b >= 0.0: tmp_2 = -0.5 * (-1.0 / a) else: tmp_2 = -c / b tmp_1 = tmp_2 elif b >= 0.0: tmp_1 = (2.0 * ((a * (c / b)) - b)) / (a * 2.0) else: tmp_1 = (c * 2.0) / (math.sqrt(((b * b) - (c * (a * 4.0)))) - b) return tmp_1
function code(a, b, c) tmp_1 = 0.0 if (b <= -1e+140) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(-0.5 * Float64(-1.0 / a)); else tmp_2 = Float64(Float64(-c) / b); end tmp_1 = tmp_2; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * Float64(Float64(a * Float64(c / b)) - b)) / Float64(a * 2.0)); else tmp_1 = Float64(Float64(c * 2.0) / Float64(sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) - b)); end return tmp_1 end
function tmp_4 = code(a, b, c) tmp_2 = 0.0; if (b <= -1e+140) tmp_3 = 0.0; if (b >= 0.0) tmp_3 = -0.5 * (-1.0 / a); else tmp_3 = -c / b; end tmp_2 = tmp_3; elseif (b >= 0.0) tmp_2 = (2.0 * ((a * (c / b)) - b)) / (a * 2.0); else tmp_2 = (c * 2.0) / (sqrt(((b * b) - (c * (a * 4.0)))) - b); end tmp_4 = tmp_2; end
code[a_, b_, c_] := If[LessEqual[b, -1e+140], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(-1.0 / a), $MachinePrecision]), $MachinePrecision], N[((-c) / b), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * N[(N[(a * N[(c / b), $MachinePrecision]), $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(c * 2.0), $MachinePrecision] / N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(c * N[(a * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -1 \cdot 10^{+140}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{-1}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-c}{b}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot \left(a \cdot \frac{c}{b} - b\right)}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{c \cdot 2}{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} - b}\\
\end{array}
\end{array}
if b < -1.00000000000000006e140Initial program 46.8%
Simplified46.8%
Taylor expanded in b around -inf 98.3%
mul-1-neg98.3%
distribute-neg-frac298.3%
Simplified98.3%
clear-num98.3%
inv-pow98.3%
fma-undefine98.3%
pow298.3%
fma-undefine98.3%
Applied egg-rr98.3%
unpow-198.3%
Simplified98.3%
Taylor expanded in c around 0 98.3%
clear-num98.3%
*-un-lft-identity98.3%
flip-+98.3%
+-inverses98.3%
+-inverses98.3%
Applied egg-rr98.3%
Simplified98.3%
if -1.00000000000000006e140 < b Initial program 81.1%
Taylor expanded in a around 0 75.0%
distribute-lft-out--75.0%
associate-/l*77.5%
Simplified77.5%
Final simplification81.9%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (* -0.5 (+ (* -2.0 (/ c b)) (* 2.0 (/ b a)))) (/ (- c) b)))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -0.5 * ((-2.0 * (c / b)) + (2.0 * (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 = (-0.5d0) * (((-2.0d0) * (c / b)) + (2.0d0 * (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 = -0.5 * ((-2.0 * (c / b)) + (2.0 * (b / a)));
} else {
tmp = -c / b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = -0.5 * ((-2.0 * (c / b)) + (2.0 * (b / a))) else: tmp = -c / b return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(-0.5 * Float64(Float64(-2.0 * Float64(c / b)) + Float64(2.0 * 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 = -0.5 * ((-2.0 * (c / b)) + (2.0 * (b / a))); else tmp = -c / b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(-2.0 * N[(c / b), $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[(b / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[((-c) / b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \left(-2 \cdot \frac{c}{b} + 2 \cdot \frac{b}{a}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{-c}{b}\\
\end{array}
\end{array}
Initial program 73.8%
Simplified73.8%
Taylor expanded in b around -inf 69.2%
mul-1-neg69.2%
distribute-neg-frac269.2%
Simplified69.2%
Taylor expanded in c around 0 66.4%
Final simplification66.4%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (* -0.5 (* b (/ 2.0 a))) (/ (- c) b)))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -0.5 * (b * (2.0 / 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 = (-0.5d0) * (b * (2.0d0 / 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 = -0.5 * (b * (2.0 / a));
} else {
tmp = -c / b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = -0.5 * (b * (2.0 / a)) else: tmp = -c / b return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(-0.5 * Float64(b * Float64(2.0 / 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 = -0.5 * (b * (2.0 / a)); else tmp = -c / b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(-0.5 * N[(b * N[(2.0 / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[((-c) / b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \left(b \cdot \frac{2}{a}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{-c}{b}\\
\end{array}
\end{array}
Initial program 73.8%
Simplified73.8%
Taylor expanded in b around -inf 69.2%
mul-1-neg69.2%
distribute-neg-frac269.2%
Simplified69.2%
clear-num69.1%
inv-pow69.1%
fma-undefine69.1%
pow269.1%
fma-undefine69.1%
Applied egg-rr69.1%
unpow-169.1%
Simplified69.1%
Taylor expanded in c around 0 66.2%
associate-/r/66.1%
count-266.1%
associate-*r*66.1%
Applied egg-rr66.1%
Simplified66.1%
Final simplification66.1%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (* -0.5 (/ (+ b b) a)) (/ (- c) b)))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -0.5 * ((b + 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 = (-0.5d0) * ((b + 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 = -0.5 * ((b + b) / a);
} else {
tmp = -c / b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = -0.5 * ((b + b) / a) else: tmp = -c / b return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(-0.5 * Float64(Float64(b + 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 = -0.5 * ((b + b) / a); else tmp = -c / b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[(b + b), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[((-c) / b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{b + b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-c}{b}\\
\end{array}
\end{array}
Initial program 73.8%
Simplified73.8%
Taylor expanded in b around -inf 69.2%
mul-1-neg69.2%
distribute-neg-frac269.2%
Simplified69.2%
Taylor expanded in c around 0 66.2%
Final simplification66.2%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (* -0.5 (/ -1.0 a)) (/ (- c) b)))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -0.5 * (-1.0 / 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 = (-0.5d0) * ((-1.0d0) / 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 = -0.5 * (-1.0 / a);
} else {
tmp = -c / b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = -0.5 * (-1.0 / a) else: tmp = -c / b return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(-0.5 * Float64(-1.0 / 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 = -0.5 * (-1.0 / a); else tmp = -c / b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(-0.5 * N[(-1.0 / a), $MachinePrecision]), $MachinePrecision], N[((-c) / b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;-0.5 \cdot \frac{-1}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-c}{b}\\
\end{array}
\end{array}
Initial program 73.8%
Simplified73.8%
Taylor expanded in b around -inf 69.2%
mul-1-neg69.2%
distribute-neg-frac269.2%
Simplified69.2%
clear-num69.1%
inv-pow69.1%
fma-undefine69.1%
pow269.1%
fma-undefine69.1%
Applied egg-rr69.1%
unpow-169.1%
Simplified69.1%
Taylor expanded in c around 0 66.2%
clear-num66.2%
*-un-lft-identity66.2%
flip-+34.3%
+-inverses34.3%
+-inverses34.3%
Applied egg-rr34.3%
Simplified34.9%
Final simplification34.9%
herbie shell --seed 2024080
(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)))))))