
(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 8 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
(let* ((t_0 (sqrt (fma b b (* a (* c -4.0))))))
(if (<= b -1.85e+143)
(if (>= b 0.0) (/ b a) (/ b (- a)))
(if (<= b 4e+111)
(if (>= b 0.0) (/ (* 2.0 c) (- (- b) t_0)) (/ (- t_0 b) (* a 2.0)))
(if (>= b 0.0)
(/ (* 2.0 c) (* 2.0 (- (* a (/ c b)) b)))
(/ (* b -2.0) (* a 2.0)))))))
double code(double a, double b, double c) {
double t_0 = sqrt(fma(b, b, (a * (c * -4.0))));
double tmp_1;
if (b <= -1.85e+143) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b / a;
} else {
tmp_2 = b / -a;
}
tmp_1 = tmp_2;
} else if (b <= 4e+111) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (2.0 * c) / (-b - t_0);
} else {
tmp_3 = (t_0 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b));
} else {
tmp_1 = (b * -2.0) / (a * 2.0);
}
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 <= -1.85e+143) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(b / a); else tmp_2 = Float64(b / Float64(-a)); end tmp_1 = tmp_2; elseif (b <= 4e+111) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(2.0 * c) / Float64(Float64(-b) - t_0)); else tmp_3 = Float64(Float64(t_0 - b) / Float64(a * 2.0)); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / Float64(2.0 * Float64(Float64(a * Float64(c / b)) - b))); else tmp_1 = Float64(Float64(b * -2.0) / Float64(a * 2.0)); 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, -1.85e+143], If[GreaterEqual[b, 0.0], N[(b / a), $MachinePrecision], N[(b / (-a)), $MachinePrecision]], If[LessEqual[b, 4e+111], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - t$95$0), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$0 - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(N[(a * N[(c / b), $MachinePrecision]), $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(b * -2.0), $MachinePrecision] / N[(a * 2.0), $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 -1.85 \cdot 10^{+143}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{b}{-a}\\
\end{array}\\
\mathbf{elif}\;b \leq 4 \cdot 10^{+111}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{\left(-b\right) - t\_0}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_0 - b}{a \cdot 2}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{2 \cdot \left(a \cdot \frac{c}{b} - b\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{b \cdot -2}{a \cdot 2}\\
\end{array}
\end{array}
if b < -1.8500000000000001e143Initial program 42.7%
Taylor expanded in a around 0 42.7%
distribute-lft-out--42.7%
associate-/l*42.7%
fma-neg42.7%
Simplified42.7%
Taylor expanded in b around -inf 97.8%
*-commutative97.8%
Simplified97.8%
Taylor expanded in c around inf 97.8%
Taylor expanded in b around 0 97.8%
associate-*r/97.8%
mul-1-neg97.8%
Simplified97.8%
if -1.8500000000000001e143 < b < 3.99999999999999983e111Initial program 87.3%
Simplified87.3%
if 3.99999999999999983e111 < b Initial program 62.7%
Taylor expanded in a around 0 89.8%
distribute-lft-out--89.8%
associate-/l*98.3%
fma-neg98.3%
Simplified98.3%
Taylor expanded in b around -inf 98.3%
*-commutative98.3%
Simplified98.3%
fma-undefine98.3%
Applied egg-rr98.3%
Final simplification91.4%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (/ (* b -2.0) (* a 2.0)))
(t_1 (sqrt (- (* b b) (* c (* a 4.0))))))
(if (<= b -1.72e+143)
(if (>= b 0.0) (/ b a) (/ b (- a)))
(if (<= b -4e-308)
(if (>= b 0.0)
(* (* 2.0 c) (/ -1.0 (+ b (sqrt (* a (* c -4.0))))))
(/ (- t_1 b) (* a 2.0)))
(if (<= b 3.9e+111)
(if (>= b 0.0) (/ (* 2.0 (- c)) (+ b t_1)) t_0)
(if (>= b 0.0) (/ (* 2.0 c) (* 2.0 (- (* a (/ c b)) b))) t_0))))))
double code(double a, double b, double c) {
double t_0 = (b * -2.0) / (a * 2.0);
double t_1 = sqrt(((b * b) - (c * (a * 4.0))));
double tmp_1;
if (b <= -1.72e+143) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b / a;
} else {
tmp_2 = b / -a;
}
tmp_1 = tmp_2;
} else if (b <= -4e-308) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (2.0 * c) * (-1.0 / (b + sqrt((a * (c * -4.0)))));
} else {
tmp_3 = (t_1 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b <= 3.9e+111) {
double tmp_4;
if (b >= 0.0) {
tmp_4 = (2.0 * -c) / (b + t_1);
} else {
tmp_4 = t_0;
}
tmp_1 = tmp_4;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b));
} else {
tmp_1 = t_0;
}
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
real(8) :: tmp_4
t_0 = (b * (-2.0d0)) / (a * 2.0d0)
t_1 = sqrt(((b * b) - (c * (a * 4.0d0))))
if (b <= (-1.72d+143)) then
if (b >= 0.0d0) then
tmp_2 = b / a
else
tmp_2 = b / -a
end if
tmp_1 = tmp_2
else if (b <= (-4d-308)) then
if (b >= 0.0d0) then
tmp_3 = (2.0d0 * c) * ((-1.0d0) / (b + sqrt((a * (c * (-4.0d0))))))
else
tmp_3 = (t_1 - b) / (a * 2.0d0)
end if
tmp_1 = tmp_3
else if (b <= 3.9d+111) then
if (b >= 0.0d0) then
tmp_4 = (2.0d0 * -c) / (b + t_1)
else
tmp_4 = t_0
end if
tmp_1 = tmp_4
else if (b >= 0.0d0) then
tmp_1 = (2.0d0 * c) / (2.0d0 * ((a * (c / b)) - b))
else
tmp_1 = t_0
end if
code = tmp_1
end function
public static double code(double a, double b, double c) {
double t_0 = (b * -2.0) / (a * 2.0);
double t_1 = Math.sqrt(((b * b) - (c * (a * 4.0))));
double tmp_1;
if (b <= -1.72e+143) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b / a;
} else {
tmp_2 = b / -a;
}
tmp_1 = tmp_2;
} else if (b <= -4e-308) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (2.0 * c) * (-1.0 / (b + Math.sqrt((a * (c * -4.0)))));
} else {
tmp_3 = (t_1 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b <= 3.9e+111) {
double tmp_4;
if (b >= 0.0) {
tmp_4 = (2.0 * -c) / (b + t_1);
} else {
tmp_4 = t_0;
}
tmp_1 = tmp_4;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b));
} else {
tmp_1 = t_0;
}
return tmp_1;
}
def code(a, b, c): t_0 = (b * -2.0) / (a * 2.0) t_1 = math.sqrt(((b * b) - (c * (a * 4.0)))) tmp_1 = 0 if b <= -1.72e+143: tmp_2 = 0 if b >= 0.0: tmp_2 = b / a else: tmp_2 = b / -a tmp_1 = tmp_2 elif b <= -4e-308: tmp_3 = 0 if b >= 0.0: tmp_3 = (2.0 * c) * (-1.0 / (b + math.sqrt((a * (c * -4.0))))) else: tmp_3 = (t_1 - b) / (a * 2.0) tmp_1 = tmp_3 elif b <= 3.9e+111: tmp_4 = 0 if b >= 0.0: tmp_4 = (2.0 * -c) / (b + t_1) else: tmp_4 = t_0 tmp_1 = tmp_4 elif b >= 0.0: tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b)) else: tmp_1 = t_0 return tmp_1
function code(a, b, c) t_0 = Float64(Float64(b * -2.0) / Float64(a * 2.0)) t_1 = sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) tmp_1 = 0.0 if (b <= -1.72e+143) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(b / a); else tmp_2 = Float64(b / Float64(-a)); end tmp_1 = tmp_2; elseif (b <= -4e-308) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(2.0 * c) * Float64(-1.0 / Float64(b + sqrt(Float64(a * Float64(c * -4.0)))))); else tmp_3 = Float64(Float64(t_1 - b) / Float64(a * 2.0)); end tmp_1 = tmp_3; elseif (b <= 3.9e+111) tmp_4 = 0.0 if (b >= 0.0) tmp_4 = Float64(Float64(2.0 * Float64(-c)) / Float64(b + t_1)); else tmp_4 = t_0; end tmp_1 = tmp_4; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / Float64(2.0 * Float64(Float64(a * Float64(c / b)) - b))); else tmp_1 = t_0; end return tmp_1 end
function tmp_6 = code(a, b, c) t_0 = (b * -2.0) / (a * 2.0); t_1 = sqrt(((b * b) - (c * (a * 4.0)))); tmp_2 = 0.0; if (b <= -1.72e+143) tmp_3 = 0.0; if (b >= 0.0) tmp_3 = b / a; else tmp_3 = b / -a; end tmp_2 = tmp_3; elseif (b <= -4e-308) tmp_4 = 0.0; if (b >= 0.0) tmp_4 = (2.0 * c) * (-1.0 / (b + sqrt((a * (c * -4.0))))); else tmp_4 = (t_1 - b) / (a * 2.0); end tmp_2 = tmp_4; elseif (b <= 3.9e+111) tmp_5 = 0.0; if (b >= 0.0) tmp_5 = (2.0 * -c) / (b + t_1); else tmp_5 = t_0; end tmp_2 = tmp_5; elseif (b >= 0.0) tmp_2 = (2.0 * c) / (2.0 * ((a * (c / b)) - b)); else tmp_2 = t_0; end tmp_6 = tmp_2; end
code[a_, b_, c_] := Block[{t$95$0 = N[(N[(b * -2.0), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(c * N[(a * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -1.72e+143], If[GreaterEqual[b, 0.0], N[(b / a), $MachinePrecision], N[(b / (-a)), $MachinePrecision]], If[LessEqual[b, -4e-308], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] * N[(-1.0 / N[(b + N[Sqrt[N[(a * N[(c * -4.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$1 - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 3.9e+111], If[GreaterEqual[b, 0.0], N[(N[(2.0 * (-c)), $MachinePrecision] / N[(b + t$95$1), $MachinePrecision]), $MachinePrecision], t$95$0], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(N[(a * N[(c / b), $MachinePrecision]), $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$0]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{b \cdot -2}{a \cdot 2}\\
t_1 := \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}\\
\mathbf{if}\;b \leq -1.72 \cdot 10^{+143}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{b}{-a}\\
\end{array}\\
\mathbf{elif}\;b \leq -4 \cdot 10^{-308}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\left(2 \cdot c\right) \cdot \frac{-1}{b + \sqrt{a \cdot \left(c \cdot -4\right)}}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_1 - b}{a \cdot 2}\\
\end{array}\\
\mathbf{elif}\;b \leq 3.9 \cdot 10^{+111}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot \left(-c\right)}{b + t\_1}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{2 \cdot \left(a \cdot \frac{c}{b} - b\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if b < -1.72000000000000005e143Initial program 42.7%
Taylor expanded in a around 0 42.7%
distribute-lft-out--42.7%
associate-/l*42.7%
fma-neg42.7%
Simplified42.7%
Taylor expanded in b around -inf 97.8%
*-commutative97.8%
Simplified97.8%
Taylor expanded in c around inf 97.8%
Taylor expanded in b around 0 97.8%
associate-*r/97.8%
mul-1-neg97.8%
Simplified97.8%
if -1.72000000000000005e143 < b < -4.00000000000000013e-308Initial program 91.1%
add-sqr-sqrt91.1%
pow291.1%
pow1/291.1%
sqrt-pow191.1%
pow291.1%
associate-*l*91.1%
metadata-eval91.1%
Applied egg-rr91.1%
Taylor expanded in b around 0 91.1%
*-commutative91.1%
*-commutative91.1%
Simplified91.1%
div-inv91.1%
pow-pow91.1%
*-commutative91.1%
associate-*r*91.1%
metadata-eval91.1%
pow1/291.1%
Applied egg-rr91.1%
if -4.00000000000000013e-308 < b < 3.89999999999999979e111Initial program 83.4%
Taylor expanded in b around -inf 83.4%
*-commutative45.1%
Simplified83.4%
if 3.89999999999999979e111 < b Initial program 62.7%
Taylor expanded in a around 0 89.8%
distribute-lft-out--89.8%
associate-/l*98.3%
fma-neg98.3%
Simplified98.3%
Taylor expanded in b around -inf 98.3%
*-commutative98.3%
Simplified98.3%
fma-undefine98.3%
Applied egg-rr98.3%
Final simplification91.4%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (- (* b b) (* c (* a 4.0))))))
(if (<= b -2e+143)
(if (>= b 0.0) (/ b a) (/ b (- a)))
(if (<= b 4e+111)
(if (>= b 0.0) (/ (* 2.0 (- c)) (+ b t_0)) (/ (- t_0 b) (* a 2.0)))
(if (>= b 0.0)
(/ (* 2.0 c) (* 2.0 (- (* a (/ c b)) b)))
(/ (* b -2.0) (* a 2.0)))))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - (c * (a * 4.0))));
double tmp_1;
if (b <= -2e+143) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b / a;
} else {
tmp_2 = b / -a;
}
tmp_1 = tmp_2;
} else if (b <= 4e+111) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (2.0 * -c) / (b + t_0);
} else {
tmp_3 = (t_0 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b));
} else {
tmp_1 = (b * -2.0) / (a * 2.0);
}
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) :: tmp
real(8) :: tmp_1
real(8) :: tmp_2
real(8) :: tmp_3
t_0 = sqrt(((b * b) - (c * (a * 4.0d0))))
if (b <= (-2d+143)) then
if (b >= 0.0d0) then
tmp_2 = b / a
else
tmp_2 = b / -a
end if
tmp_1 = tmp_2
else if (b <= 4d+111) then
if (b >= 0.0d0) then
tmp_3 = (2.0d0 * -c) / (b + t_0)
else
tmp_3 = (t_0 - b) / (a * 2.0d0)
end if
tmp_1 = tmp_3
else if (b >= 0.0d0) then
tmp_1 = (2.0d0 * c) / (2.0d0 * ((a * (c / b)) - b))
else
tmp_1 = (b * (-2.0d0)) / (a * 2.0d0)
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 tmp_1;
if (b <= -2e+143) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b / a;
} else {
tmp_2 = b / -a;
}
tmp_1 = tmp_2;
} else if (b <= 4e+111) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (2.0 * -c) / (b + t_0);
} else {
tmp_3 = (t_0 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b));
} else {
tmp_1 = (b * -2.0) / (a * 2.0);
}
return tmp_1;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - (c * (a * 4.0)))) tmp_1 = 0 if b <= -2e+143: tmp_2 = 0 if b >= 0.0: tmp_2 = b / a else: tmp_2 = b / -a tmp_1 = tmp_2 elif b <= 4e+111: tmp_3 = 0 if b >= 0.0: tmp_3 = (2.0 * -c) / (b + t_0) else: tmp_3 = (t_0 - b) / (a * 2.0) tmp_1 = tmp_3 elif b >= 0.0: tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b)) else: tmp_1 = (b * -2.0) / (a * 2.0) return tmp_1
function code(a, b, c) t_0 = sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) tmp_1 = 0.0 if (b <= -2e+143) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(b / a); else tmp_2 = Float64(b / Float64(-a)); end tmp_1 = tmp_2; elseif (b <= 4e+111) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(2.0 * Float64(-c)) / Float64(b + t_0)); else tmp_3 = Float64(Float64(t_0 - b) / Float64(a * 2.0)); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / Float64(2.0 * Float64(Float64(a * Float64(c / b)) - b))); else tmp_1 = Float64(Float64(b * -2.0) / Float64(a * 2.0)); end return tmp_1 end
function tmp_5 = code(a, b, c) t_0 = sqrt(((b * b) - (c * (a * 4.0)))); tmp_2 = 0.0; if (b <= -2e+143) tmp_3 = 0.0; if (b >= 0.0) tmp_3 = b / a; else tmp_3 = b / -a; end tmp_2 = tmp_3; elseif (b <= 4e+111) tmp_4 = 0.0; if (b >= 0.0) tmp_4 = (2.0 * -c) / (b + t_0); else tmp_4 = (t_0 - b) / (a * 2.0); end tmp_2 = tmp_4; elseif (b >= 0.0) tmp_2 = (2.0 * c) / (2.0 * ((a * (c / b)) - b)); else tmp_2 = (b * -2.0) / (a * 2.0); 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]}, If[LessEqual[b, -2e+143], If[GreaterEqual[b, 0.0], N[(b / a), $MachinePrecision], N[(b / (-a)), $MachinePrecision]], If[LessEqual[b, 4e+111], If[GreaterEqual[b, 0.0], N[(N[(2.0 * (-c)), $MachinePrecision] / N[(b + t$95$0), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$0 - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(N[(a * N[(c / b), $MachinePrecision]), $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(b * -2.0), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}\\
\mathbf{if}\;b \leq -2 \cdot 10^{+143}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{b}{-a}\\
\end{array}\\
\mathbf{elif}\;b \leq 4 \cdot 10^{+111}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot \left(-c\right)}{b + t\_0}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_0 - b}{a \cdot 2}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{2 \cdot \left(a \cdot \frac{c}{b} - b\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{b \cdot -2}{a \cdot 2}\\
\end{array}
\end{array}
if b < -2e143Initial program 42.7%
Taylor expanded in a around 0 42.7%
distribute-lft-out--42.7%
associate-/l*42.7%
fma-neg42.7%
Simplified42.7%
Taylor expanded in b around -inf 97.8%
*-commutative97.8%
Simplified97.8%
Taylor expanded in c around inf 97.8%
Taylor expanded in b around 0 97.8%
associate-*r/97.8%
mul-1-neg97.8%
Simplified97.8%
if -2e143 < b < 3.99999999999999983e111Initial program 87.3%
if 3.99999999999999983e111 < b Initial program 62.7%
Taylor expanded in a around 0 89.8%
distribute-lft-out--89.8%
associate-/l*98.3%
fma-neg98.3%
Simplified98.3%
Taylor expanded in b around -inf 98.3%
*-commutative98.3%
Simplified98.3%
fma-undefine98.3%
Applied egg-rr98.3%
Final simplification91.4%
(FPCore (a b c)
:precision binary64
(if (<= b -1.72e+143)
(if (>= b 0.0) (/ b a) (/ b (- a)))
(if (<= b 1.55e-32)
(if (>= b 0.0)
(* (* 2.0 c) (/ -1.0 (+ b (sqrt (* a (* c -4.0))))))
(/ (- (sqrt (- (* b b) (* c (* a 4.0)))) b) (* a 2.0)))
(if (>= b 0.0)
(/ (* 2.0 c) (* 2.0 (- (* a (/ c b)) b)))
(/ (* b -2.0) (* a 2.0))))))
double code(double a, double b, double c) {
double tmp_1;
if (b <= -1.72e+143) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b / a;
} else {
tmp_2 = b / -a;
}
tmp_1 = tmp_2;
} else if (b <= 1.55e-32) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (2.0 * c) * (-1.0 / (b + sqrt((a * (c * -4.0)))));
} else {
tmp_3 = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b));
} else {
tmp_1 = (b * -2.0) / (a * 2.0);
}
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
real(8) :: tmp_3
if (b <= (-1.72d+143)) then
if (b >= 0.0d0) then
tmp_2 = b / a
else
tmp_2 = b / -a
end if
tmp_1 = tmp_2
else if (b <= 1.55d-32) then
if (b >= 0.0d0) then
tmp_3 = (2.0d0 * c) * ((-1.0d0) / (b + sqrt((a * (c * (-4.0d0))))))
else
tmp_3 = (sqrt(((b * b) - (c * (a * 4.0d0)))) - b) / (a * 2.0d0)
end if
tmp_1 = tmp_3
else if (b >= 0.0d0) then
tmp_1 = (2.0d0 * c) / (2.0d0 * ((a * (c / b)) - b))
else
tmp_1 = (b * (-2.0d0)) / (a * 2.0d0)
end if
code = tmp_1
end function
public static double code(double a, double b, double c) {
double tmp_1;
if (b <= -1.72e+143) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b / a;
} else {
tmp_2 = b / -a;
}
tmp_1 = tmp_2;
} else if (b <= 1.55e-32) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (2.0 * c) * (-1.0 / (b + Math.sqrt((a * (c * -4.0)))));
} else {
tmp_3 = (Math.sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b));
} else {
tmp_1 = (b * -2.0) / (a * 2.0);
}
return tmp_1;
}
def code(a, b, c): tmp_1 = 0 if b <= -1.72e+143: tmp_2 = 0 if b >= 0.0: tmp_2 = b / a else: tmp_2 = b / -a tmp_1 = tmp_2 elif b <= 1.55e-32: tmp_3 = 0 if b >= 0.0: tmp_3 = (2.0 * c) * (-1.0 / (b + math.sqrt((a * (c * -4.0))))) else: tmp_3 = (math.sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0) tmp_1 = tmp_3 elif b >= 0.0: tmp_1 = (2.0 * c) / (2.0 * ((a * (c / b)) - b)) else: tmp_1 = (b * -2.0) / (a * 2.0) return tmp_1
function code(a, b, c) tmp_1 = 0.0 if (b <= -1.72e+143) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(b / a); else tmp_2 = Float64(b / Float64(-a)); end tmp_1 = tmp_2; elseif (b <= 1.55e-32) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(2.0 * c) * Float64(-1.0 / Float64(b + sqrt(Float64(a * Float64(c * -4.0)))))); else tmp_3 = Float64(Float64(sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) - b) / Float64(a * 2.0)); end tmp_1 = tmp_3; elseif (b >= 0.0) tmp_1 = Float64(Float64(2.0 * c) / Float64(2.0 * Float64(Float64(a * Float64(c / b)) - b))); else tmp_1 = Float64(Float64(b * -2.0) / Float64(a * 2.0)); end return tmp_1 end
function tmp_5 = code(a, b, c) tmp_2 = 0.0; if (b <= -1.72e+143) tmp_3 = 0.0; if (b >= 0.0) tmp_3 = b / a; else tmp_3 = b / -a; end tmp_2 = tmp_3; elseif (b <= 1.55e-32) tmp_4 = 0.0; if (b >= 0.0) tmp_4 = (2.0 * c) * (-1.0 / (b + sqrt((a * (c * -4.0))))); else tmp_4 = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0); end tmp_2 = tmp_4; elseif (b >= 0.0) tmp_2 = (2.0 * c) / (2.0 * ((a * (c / b)) - b)); else tmp_2 = (b * -2.0) / (a * 2.0); end tmp_5 = tmp_2; end
code[a_, b_, c_] := If[LessEqual[b, -1.72e+143], If[GreaterEqual[b, 0.0], N[(b / a), $MachinePrecision], N[(b / (-a)), $MachinePrecision]], If[LessEqual[b, 1.55e-32], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] * N[(-1.0 / N[(b + N[Sqrt[N[(a * N[(c * -4.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(c * N[(a * 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(N[(a * N[(c / b), $MachinePrecision]), $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(b * -2.0), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -1.72 \cdot 10^{+143}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{b}{-a}\\
\end{array}\\
\mathbf{elif}\;b \leq 1.55 \cdot 10^{-32}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\left(2 \cdot c\right) \cdot \frac{-1}{b + \sqrt{a \cdot \left(c \cdot -4\right)}}\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} - b}{a \cdot 2}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{2 \cdot \left(a \cdot \frac{c}{b} - b\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{b \cdot -2}{a \cdot 2}\\
\end{array}
\end{array}
if b < -1.72000000000000005e143Initial program 42.7%
Taylor expanded in a around 0 42.7%
distribute-lft-out--42.7%
associate-/l*42.7%
fma-neg42.7%
Simplified42.7%
Taylor expanded in b around -inf 97.8%
*-commutative97.8%
Simplified97.8%
Taylor expanded in c around inf 97.8%
Taylor expanded in b around 0 97.8%
associate-*r/97.8%
mul-1-neg97.8%
Simplified97.8%
if -1.72000000000000005e143 < b < 1.55000000000000005e-32Initial program 89.3%
add-sqr-sqrt89.2%
pow289.2%
pow1/289.2%
sqrt-pow189.2%
pow289.2%
associate-*l*89.2%
metadata-eval89.2%
Applied egg-rr89.2%
Taylor expanded in b around 0 83.0%
*-commutative83.0%
*-commutative83.0%
Simplified83.0%
div-inv83.0%
pow-pow83.0%
*-commutative83.0%
associate-*r*83.0%
metadata-eval83.0%
pow1/283.0%
Applied egg-rr83.0%
if 1.55000000000000005e-32 < b Initial program 68.8%
Taylor expanded in a around 0 81.9%
distribute-lft-out--81.9%
associate-/l*87.3%
fma-neg87.3%
Simplified87.3%
Taylor expanded in b around -inf 87.3%
*-commutative87.3%
Simplified87.3%
fma-undefine87.3%
Applied egg-rr87.3%
Final simplification86.8%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (* 2.0 c) (* 2.0 (- (* a (/ c b)) b))) (/ (* b -2.0) (* a 2.0))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (2.0 * ((a * (c / b)) - b));
} else {
tmp = (b * -2.0) / (a * 2.0);
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b >= 0.0d0) then
tmp = (2.0d0 * c) / (2.0d0 * ((a * (c / b)) - b))
else
tmp = (b * (-2.0d0)) / (a * 2.0d0)
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 * ((a * (c / b)) - b));
} else {
tmp = (b * -2.0) / (a * 2.0);
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = (2.0 * c) / (2.0 * ((a * (c / b)) - b)) else: tmp = (b * -2.0) / (a * 2.0) return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(2.0 * c) / Float64(2.0 * Float64(Float64(a * Float64(c / b)) - b))); else tmp = Float64(Float64(b * -2.0) / Float64(a * 2.0)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = (2.0 * c) / (2.0 * ((a * (c / b)) - b)); else tmp = (b * -2.0) / (a * 2.0); end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[(2.0 * N[(N[(a * N[(c / b), $MachinePrecision]), $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(b * -2.0), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2 \cdot c}{2 \cdot \left(a \cdot \frac{c}{b} - b\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{b \cdot -2}{a \cdot 2}\\
\end{array}
\end{array}
Initial program 74.8%
Taylor expanded in a around 0 68.9%
distribute-lft-out--68.9%
associate-/l*70.8%
fma-neg70.8%
Simplified70.8%
Taylor expanded in b around -inf 65.7%
*-commutative65.7%
Simplified65.7%
fma-undefine65.7%
Applied egg-rr65.7%
Final simplification65.7%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ c (- (/ (* a c) b) b)) (/ b (- a))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = c / (((a * c) / b) - b);
} else {
tmp = b / -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 = c / (((a * c) / b) - b)
else
tmp = b / -a
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = c / (((a * c) / b) - b);
} else {
tmp = b / -a;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = c / (((a * c) / b) - b) else: tmp = b / -a return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(c / Float64(Float64(Float64(a * c) / b) - b)); else tmp = Float64(b / Float64(-a)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = c / (((a * c) / b) - b); else tmp = b / -a; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(c / N[(N[(N[(a * c), $MachinePrecision] / b), $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision], N[(b / (-a)), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{c}{\frac{a \cdot c}{b} - b}\\
\mathbf{else}:\\
\;\;\;\;\frac{b}{-a}\\
\end{array}
\end{array}
Initial program 74.8%
Taylor expanded in a around 0 68.9%
distribute-lft-out--68.9%
associate-/l*70.8%
fma-neg70.8%
Simplified70.8%
Taylor expanded in b around -inf 65.7%
*-commutative65.7%
Simplified65.7%
Taylor expanded in b around 0 63.8%
Final simplification63.8%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ c b) (/ (* b -2.0) (* a 2.0))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = c / b;
} else {
tmp = (b * -2.0) / (a * 2.0);
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b >= 0.0d0) then
tmp = c / b
else
tmp = (b * (-2.0d0)) / (a * 2.0d0)
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = c / b;
} else {
tmp = (b * -2.0) / (a * 2.0);
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = c / b else: tmp = (b * -2.0) / (a * 2.0) return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(c / b); else tmp = Float64(Float64(b * -2.0) / Float64(a * 2.0)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = c / b; else tmp = (b * -2.0) / (a * 2.0); end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(c / b), $MachinePrecision], N[(N[(b * -2.0), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{c}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{b \cdot -2}{a \cdot 2}\\
\end{array}
\end{array}
Initial program 74.8%
Taylor expanded in a around 0 68.9%
distribute-lft-out--68.9%
associate-/l*70.8%
fma-neg70.8%
Simplified70.8%
Taylor expanded in b around -inf 65.7%
*-commutative65.7%
Simplified65.7%
associate-/l*65.7%
*-un-lft-identity65.7%
times-frac65.7%
metadata-eval65.7%
add-sqr-sqrt29.7%
sqrt-unprod40.3%
sqr-neg40.3%
sqrt-prod40.1%
add-sqr-sqrt40.1%
Applied egg-rr40.1%
Taylor expanded in c around 0 39.5%
Final simplification39.5%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ b a) (/ b (- a))))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = b / a;
} else {
tmp = b / -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 = b / a
else
tmp = b / -a
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 = b / -a;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = b / a else: tmp = b / -a return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(b / a); else tmp = Float64(b / Float64(-a)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = b / a; else tmp = b / -a; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(b / a), $MachinePrecision], N[(b / (-a)), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{b}{-a}\\
\end{array}
\end{array}
Initial program 74.8%
Taylor expanded in a around 0 68.9%
distribute-lft-out--68.9%
associate-/l*70.8%
fma-neg70.8%
Simplified70.8%
Taylor expanded in b around -inf 65.7%
*-commutative65.7%
Simplified65.7%
Taylor expanded in c around inf 31.6%
Taylor expanded in b around 0 31.6%
associate-*r/31.6%
mul-1-neg31.6%
Simplified31.6%
Final simplification31.6%
herbie shell --seed 2024133
(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))))