
(FPCore (a b_2 c) :precision binary64 (/ (+ (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))
double code(double a, double b_2, double c) {
return (-b_2 + sqrt(((b_2 * b_2) - (a * c)))) / a;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
code = (-b_2 + sqrt(((b_2 * b_2) - (a * c)))) / a
end function
public static double code(double a, double b_2, double c) {
return (-b_2 + Math.sqrt(((b_2 * b_2) - (a * c)))) / a;
}
def code(a, b_2, c): return (-b_2 + math.sqrt(((b_2 * b_2) - (a * c)))) / a
function code(a, b_2, c) return Float64(Float64(Float64(-b_2) + sqrt(Float64(Float64(b_2 * b_2) - Float64(a * c)))) / a) end
function tmp = code(a, b_2, c) tmp = (-b_2 + sqrt(((b_2 * b_2) - (a * c)))) / a; end
code[a_, b$95$2_, c_] := N[(N[((-b$95$2) + N[Sqrt[N[(N[(b$95$2 * b$95$2), $MachinePrecision] - N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(-b\_2\right) + \sqrt{b\_2 \cdot b\_2 - a \cdot c}}{a}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b_2 c) :precision binary64 (/ (+ (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))
double code(double a, double b_2, double c) {
return (-b_2 + sqrt(((b_2 * b_2) - (a * c)))) / a;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
code = (-b_2 + sqrt(((b_2 * b_2) - (a * c)))) / a
end function
public static double code(double a, double b_2, double c) {
return (-b_2 + Math.sqrt(((b_2 * b_2) - (a * c)))) / a;
}
def code(a, b_2, c): return (-b_2 + math.sqrt(((b_2 * b_2) - (a * c)))) / a
function code(a, b_2, c) return Float64(Float64(Float64(-b_2) + sqrt(Float64(Float64(b_2 * b_2) - Float64(a * c)))) / a) end
function tmp = code(a, b_2, c) tmp = (-b_2 + sqrt(((b_2 * b_2) - (a * c)))) / a; end
code[a_, b$95$2_, c_] := N[(N[((-b$95$2) + N[Sqrt[N[(N[(b$95$2 * b$95$2), $MachinePrecision] - N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(-b\_2\right) + \sqrt{b\_2 \cdot b\_2 - a \cdot c}}{a}
\end{array}
(FPCore (a b_2 c)
:precision binary64
(if (<= b_2 -1e+146)
(/ (* b_2 (- (* -0.5 (* a (/ c (- (pow b_2 2.0))))) 2.0)) a)
(if (<= b_2 -1.55e-112)
(/
(-
(sqrt (+ (- (pow b_2 2.0) (* a c)) (* 2.0 (fma a (- c) (* a c)))))
b_2)
a)
(if (<= b_2 1.3e-175)
(/ (- (hypot (sqrt (* a (- c))) b_2) b_2) a)
(* -0.5 (/ c b_2))))))
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -1e+146) {
tmp = (b_2 * ((-0.5 * (a * (c / -pow(b_2, 2.0)))) - 2.0)) / a;
} else if (b_2 <= -1.55e-112) {
tmp = (sqrt(((pow(b_2, 2.0) - (a * c)) + (2.0 * fma(a, -c, (a * c))))) - b_2) / a;
} else if (b_2 <= 1.3e-175) {
tmp = (hypot(sqrt((a * -c)), b_2) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
function code(a, b_2, c) tmp = 0.0 if (b_2 <= -1e+146) tmp = Float64(Float64(b_2 * Float64(Float64(-0.5 * Float64(a * Float64(c / Float64(-(b_2 ^ 2.0))))) - 2.0)) / a); elseif (b_2 <= -1.55e-112) tmp = Float64(Float64(sqrt(Float64(Float64((b_2 ^ 2.0) - Float64(a * c)) + Float64(2.0 * fma(a, Float64(-c), Float64(a * c))))) - b_2) / a); elseif (b_2 <= 1.3e-175) tmp = Float64(Float64(hypot(sqrt(Float64(a * Float64(-c))), b_2) - b_2) / a); else tmp = Float64(-0.5 * Float64(c / b_2)); end return tmp end
code[a_, b$95$2_, c_] := If[LessEqual[b$95$2, -1e+146], N[(N[(b$95$2 * N[(N[(-0.5 * N[(a * N[(c / (-N[Power[b$95$2, 2.0], $MachinePrecision])), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 2.0), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision], If[LessEqual[b$95$2, -1.55e-112], N[(N[(N[Sqrt[N[(N[(N[Power[b$95$2, 2.0], $MachinePrecision] - N[(a * c), $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[(a * (-c) + N[(a * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b$95$2), $MachinePrecision] / a), $MachinePrecision], If[LessEqual[b$95$2, 1.3e-175], N[(N[(N[Sqrt[N[Sqrt[N[(a * (-c)), $MachinePrecision]], $MachinePrecision] ^ 2 + b$95$2 ^ 2], $MachinePrecision] - b$95$2), $MachinePrecision] / a), $MachinePrecision], N[(-0.5 * N[(c / b$95$2), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b\_2 \leq -1 \cdot 10^{+146}:\\
\;\;\;\;\frac{b\_2 \cdot \left(-0.5 \cdot \left(a \cdot \frac{c}{-{b\_2}^{2}}\right) - 2\right)}{a}\\
\mathbf{elif}\;b\_2 \leq -1.55 \cdot 10^{-112}:\\
\;\;\;\;\frac{\sqrt{\left({b\_2}^{2} - a \cdot c\right) + 2 \cdot \mathsf{fma}\left(a, -c, a \cdot c\right)} - b\_2}{a}\\
\mathbf{elif}\;b\_2 \leq 1.3 \cdot 10^{-175}:\\
\;\;\;\;\frac{\mathsf{hypot}\left(\sqrt{a \cdot \left(-c\right)}, b\_2\right) - b\_2}{a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b\_2}\\
\end{array}
\end{array}
if b_2 < -9.99999999999999934e145Initial program 42.7%
+-commutative42.7%
unsub-neg42.7%
Simplified42.7%
add-cbrt-cube40.0%
pow1/340.0%
pow340.0%
sqrt-pow240.0%
pow240.0%
metadata-eval40.0%
Applied egg-rr40.0%
unpow1/340.0%
*-commutative40.0%
Simplified40.0%
Taylor expanded in b_2 around -inf 70.4%
associate-*r*70.4%
neg-mul-170.4%
associate-/l*92.5%
Simplified92.5%
if -9.99999999999999934e145 < b_2 < -1.5499999999999999e-112Initial program 96.1%
+-commutative96.1%
unsub-neg96.1%
Simplified96.1%
prod-diff95.9%
*-commutative95.9%
fma-neg95.9%
prod-diff95.9%
*-commutative95.9%
fma-neg95.9%
associate-+l+96.1%
pow296.1%
*-commutative96.1%
fma-undefine95.9%
distribute-lft-neg-in95.9%
*-commutative95.9%
distribute-rgt-neg-in95.9%
fma-define96.1%
*-commutative96.1%
fma-undefine95.9%
distribute-lft-neg-in95.9%
*-commutative95.9%
distribute-rgt-neg-in95.9%
Applied egg-rr96.1%
*-commutative96.1%
count-296.1%
*-commutative96.1%
Simplified96.1%
if -1.5499999999999999e-112 < b_2 < 1.3e-175Initial program 62.3%
+-commutative62.3%
unsub-neg62.3%
Simplified62.3%
sub-neg62.3%
+-commutative62.3%
add-sqr-sqrt62.3%
hypot-define69.4%
*-commutative69.4%
distribute-rgt-neg-in69.4%
Applied egg-rr69.4%
if 1.3e-175 < b_2 Initial program 21.2%
+-commutative21.2%
unsub-neg21.2%
Simplified21.2%
Taylor expanded in b_2 around inf 81.4%
Final simplification83.3%
(FPCore (a b_2 c)
:precision binary64
(if (<= b_2 -1e+146)
(/ (* b_2 (- (* -0.5 (* a (/ c (- (pow b_2 2.0))))) 2.0)) a)
(if (<= b_2 -4e-99)
(/ (- (sqrt (- (* b_2 b_2) (* a c))) b_2) a)
(if (<= b_2 1.3e-175)
(/ (- (hypot (sqrt (* a (- c))) b_2) b_2) a)
(* -0.5 (/ c b_2))))))
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -1e+146) {
tmp = (b_2 * ((-0.5 * (a * (c / -pow(b_2, 2.0)))) - 2.0)) / a;
} else if (b_2 <= -4e-99) {
tmp = (sqrt(((b_2 * b_2) - (a * c))) - b_2) / a;
} else if (b_2 <= 1.3e-175) {
tmp = (hypot(sqrt((a * -c)), b_2) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
public static double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -1e+146) {
tmp = (b_2 * ((-0.5 * (a * (c / -Math.pow(b_2, 2.0)))) - 2.0)) / a;
} else if (b_2 <= -4e-99) {
tmp = (Math.sqrt(((b_2 * b_2) - (a * c))) - b_2) / a;
} else if (b_2 <= 1.3e-175) {
tmp = (Math.hypot(Math.sqrt((a * -c)), b_2) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
def code(a, b_2, c): tmp = 0 if b_2 <= -1e+146: tmp = (b_2 * ((-0.5 * (a * (c / -math.pow(b_2, 2.0)))) - 2.0)) / a elif b_2 <= -4e-99: tmp = (math.sqrt(((b_2 * b_2) - (a * c))) - b_2) / a elif b_2 <= 1.3e-175: tmp = (math.hypot(math.sqrt((a * -c)), b_2) - b_2) / a else: tmp = -0.5 * (c / b_2) return tmp
function code(a, b_2, c) tmp = 0.0 if (b_2 <= -1e+146) tmp = Float64(Float64(b_2 * Float64(Float64(-0.5 * Float64(a * Float64(c / Float64(-(b_2 ^ 2.0))))) - 2.0)) / a); elseif (b_2 <= -4e-99) tmp = Float64(Float64(sqrt(Float64(Float64(b_2 * b_2) - Float64(a * c))) - b_2) / a); elseif (b_2 <= 1.3e-175) tmp = Float64(Float64(hypot(sqrt(Float64(a * Float64(-c))), b_2) - b_2) / a); else tmp = Float64(-0.5 * Float64(c / b_2)); end return tmp end
function tmp_2 = code(a, b_2, c) tmp = 0.0; if (b_2 <= -1e+146) tmp = (b_2 * ((-0.5 * (a * (c / -(b_2 ^ 2.0)))) - 2.0)) / a; elseif (b_2 <= -4e-99) tmp = (sqrt(((b_2 * b_2) - (a * c))) - b_2) / a; elseif (b_2 <= 1.3e-175) tmp = (hypot(sqrt((a * -c)), b_2) - b_2) / a; else tmp = -0.5 * (c / b_2); end tmp_2 = tmp; end
code[a_, b$95$2_, c_] := If[LessEqual[b$95$2, -1e+146], N[(N[(b$95$2 * N[(N[(-0.5 * N[(a * N[(c / (-N[Power[b$95$2, 2.0], $MachinePrecision])), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 2.0), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision], If[LessEqual[b$95$2, -4e-99], N[(N[(N[Sqrt[N[(N[(b$95$2 * b$95$2), $MachinePrecision] - N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b$95$2), $MachinePrecision] / a), $MachinePrecision], If[LessEqual[b$95$2, 1.3e-175], N[(N[(N[Sqrt[N[Sqrt[N[(a * (-c)), $MachinePrecision]], $MachinePrecision] ^ 2 + b$95$2 ^ 2], $MachinePrecision] - b$95$2), $MachinePrecision] / a), $MachinePrecision], N[(-0.5 * N[(c / b$95$2), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b\_2 \leq -1 \cdot 10^{+146}:\\
\;\;\;\;\frac{b\_2 \cdot \left(-0.5 \cdot \left(a \cdot \frac{c}{-{b\_2}^{2}}\right) - 2\right)}{a}\\
\mathbf{elif}\;b\_2 \leq -4 \cdot 10^{-99}:\\
\;\;\;\;\frac{\sqrt{b\_2 \cdot b\_2 - a \cdot c} - b\_2}{a}\\
\mathbf{elif}\;b\_2 \leq 1.3 \cdot 10^{-175}:\\
\;\;\;\;\frac{\mathsf{hypot}\left(\sqrt{a \cdot \left(-c\right)}, b\_2\right) - b\_2}{a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b\_2}\\
\end{array}
\end{array}
if b_2 < -9.99999999999999934e145Initial program 42.7%
+-commutative42.7%
unsub-neg42.7%
Simplified42.7%
add-cbrt-cube40.0%
pow1/340.0%
pow340.0%
sqrt-pow240.0%
pow240.0%
metadata-eval40.0%
Applied egg-rr40.0%
unpow1/340.0%
*-commutative40.0%
Simplified40.0%
Taylor expanded in b_2 around -inf 70.4%
associate-*r*70.4%
neg-mul-170.4%
associate-/l*92.5%
Simplified92.5%
if -9.99999999999999934e145 < b_2 < -4.0000000000000001e-99Initial program 95.8%
+-commutative95.8%
unsub-neg95.8%
Simplified95.8%
if -4.0000000000000001e-99 < b_2 < 1.3e-175Initial program 64.1%
+-commutative64.1%
unsub-neg64.1%
Simplified64.1%
sub-neg64.1%
+-commutative64.1%
add-sqr-sqrt64.1%
hypot-define70.8%
*-commutative70.8%
distribute-rgt-neg-in70.8%
Applied egg-rr70.8%
if 1.3e-175 < b_2 Initial program 21.2%
+-commutative21.2%
unsub-neg21.2%
Simplified21.2%
Taylor expanded in b_2 around inf 81.4%
Final simplification83.3%
(FPCore (a b_2 c)
:precision binary64
(if (<= b_2 -1.06e+146)
(/ (* b_2 (- (* -0.5 (* a (/ c (- (pow b_2 2.0))))) 2.0)) a)
(if (<= b_2 1.1e-156)
(/ (- (sqrt (- (* b_2 b_2) (* a c))) b_2) a)
(* -0.5 (/ c b_2)))))
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -1.06e+146) {
tmp = (b_2 * ((-0.5 * (a * (c / -pow(b_2, 2.0)))) - 2.0)) / a;
} else if (b_2 <= 1.1e-156) {
tmp = (sqrt(((b_2 * b_2) - (a * c))) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
real(8) :: tmp
if (b_2 <= (-1.06d+146)) then
tmp = (b_2 * (((-0.5d0) * (a * (c / -(b_2 ** 2.0d0)))) - 2.0d0)) / a
else if (b_2 <= 1.1d-156) then
tmp = (sqrt(((b_2 * b_2) - (a * c))) - b_2) / a
else
tmp = (-0.5d0) * (c / b_2)
end if
code = tmp
end function
public static double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -1.06e+146) {
tmp = (b_2 * ((-0.5 * (a * (c / -Math.pow(b_2, 2.0)))) - 2.0)) / a;
} else if (b_2 <= 1.1e-156) {
tmp = (Math.sqrt(((b_2 * b_2) - (a * c))) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
def code(a, b_2, c): tmp = 0 if b_2 <= -1.06e+146: tmp = (b_2 * ((-0.5 * (a * (c / -math.pow(b_2, 2.0)))) - 2.0)) / a elif b_2 <= 1.1e-156: tmp = (math.sqrt(((b_2 * b_2) - (a * c))) - b_2) / a else: tmp = -0.5 * (c / b_2) return tmp
function code(a, b_2, c) tmp = 0.0 if (b_2 <= -1.06e+146) tmp = Float64(Float64(b_2 * Float64(Float64(-0.5 * Float64(a * Float64(c / Float64(-(b_2 ^ 2.0))))) - 2.0)) / a); elseif (b_2 <= 1.1e-156) tmp = Float64(Float64(sqrt(Float64(Float64(b_2 * b_2) - Float64(a * c))) - b_2) / a); else tmp = Float64(-0.5 * Float64(c / b_2)); end return tmp end
function tmp_2 = code(a, b_2, c) tmp = 0.0; if (b_2 <= -1.06e+146) tmp = (b_2 * ((-0.5 * (a * (c / -(b_2 ^ 2.0)))) - 2.0)) / a; elseif (b_2 <= 1.1e-156) tmp = (sqrt(((b_2 * b_2) - (a * c))) - b_2) / a; else tmp = -0.5 * (c / b_2); end tmp_2 = tmp; end
code[a_, b$95$2_, c_] := If[LessEqual[b$95$2, -1.06e+146], N[(N[(b$95$2 * N[(N[(-0.5 * N[(a * N[(c / (-N[Power[b$95$2, 2.0], $MachinePrecision])), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 2.0), $MachinePrecision]), $MachinePrecision] / a), $MachinePrecision], If[LessEqual[b$95$2, 1.1e-156], N[(N[(N[Sqrt[N[(N[(b$95$2 * b$95$2), $MachinePrecision] - N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b$95$2), $MachinePrecision] / a), $MachinePrecision], N[(-0.5 * N[(c / b$95$2), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b\_2 \leq -1.06 \cdot 10^{+146}:\\
\;\;\;\;\frac{b\_2 \cdot \left(-0.5 \cdot \left(a \cdot \frac{c}{-{b\_2}^{2}}\right) - 2\right)}{a}\\
\mathbf{elif}\;b\_2 \leq 1.1 \cdot 10^{-156}:\\
\;\;\;\;\frac{\sqrt{b\_2 \cdot b\_2 - a \cdot c} - b\_2}{a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b\_2}\\
\end{array}
\end{array}
if b_2 < -1.06000000000000005e146Initial program 42.7%
+-commutative42.7%
unsub-neg42.7%
Simplified42.7%
add-cbrt-cube40.0%
pow1/340.0%
pow340.0%
sqrt-pow240.0%
pow240.0%
metadata-eval40.0%
Applied egg-rr40.0%
unpow1/340.0%
*-commutative40.0%
Simplified40.0%
Taylor expanded in b_2 around -inf 70.4%
associate-*r*70.4%
neg-mul-170.4%
associate-/l*92.5%
Simplified92.5%
if -1.06000000000000005e146 < b_2 < 1.1e-156Initial program 77.8%
+-commutative77.8%
unsub-neg77.8%
Simplified77.8%
if 1.1e-156 < b_2 Initial program 20.6%
+-commutative20.6%
unsub-neg20.6%
Simplified20.6%
Taylor expanded in b_2 around inf 81.9%
Final simplification81.7%
(FPCore (a b_2 c)
:precision binary64
(if (<= b_2 -1e+146)
(/ (* b_2 -2.0) a)
(if (<= b_2 1.02e-156)
(/ (- (sqrt (- (* b_2 b_2) (* a c))) b_2) a)
(* -0.5 (/ c b_2)))))
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -1e+146) {
tmp = (b_2 * -2.0) / a;
} else if (b_2 <= 1.02e-156) {
tmp = (sqrt(((b_2 * b_2) - (a * c))) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
real(8) :: tmp
if (b_2 <= (-1d+146)) then
tmp = (b_2 * (-2.0d0)) / a
else if (b_2 <= 1.02d-156) then
tmp = (sqrt(((b_2 * b_2) - (a * c))) - b_2) / a
else
tmp = (-0.5d0) * (c / b_2)
end if
code = tmp
end function
public static double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -1e+146) {
tmp = (b_2 * -2.0) / a;
} else if (b_2 <= 1.02e-156) {
tmp = (Math.sqrt(((b_2 * b_2) - (a * c))) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
def code(a, b_2, c): tmp = 0 if b_2 <= -1e+146: tmp = (b_2 * -2.0) / a elif b_2 <= 1.02e-156: tmp = (math.sqrt(((b_2 * b_2) - (a * c))) - b_2) / a else: tmp = -0.5 * (c / b_2) return tmp
function code(a, b_2, c) tmp = 0.0 if (b_2 <= -1e+146) tmp = Float64(Float64(b_2 * -2.0) / a); elseif (b_2 <= 1.02e-156) tmp = Float64(Float64(sqrt(Float64(Float64(b_2 * b_2) - Float64(a * c))) - b_2) / a); else tmp = Float64(-0.5 * Float64(c / b_2)); end return tmp end
function tmp_2 = code(a, b_2, c) tmp = 0.0; if (b_2 <= -1e+146) tmp = (b_2 * -2.0) / a; elseif (b_2 <= 1.02e-156) tmp = (sqrt(((b_2 * b_2) - (a * c))) - b_2) / a; else tmp = -0.5 * (c / b_2); end tmp_2 = tmp; end
code[a_, b$95$2_, c_] := If[LessEqual[b$95$2, -1e+146], N[(N[(b$95$2 * -2.0), $MachinePrecision] / a), $MachinePrecision], If[LessEqual[b$95$2, 1.02e-156], N[(N[(N[Sqrt[N[(N[(b$95$2 * b$95$2), $MachinePrecision] - N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b$95$2), $MachinePrecision] / a), $MachinePrecision], N[(-0.5 * N[(c / b$95$2), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b\_2 \leq -1 \cdot 10^{+146}:\\
\;\;\;\;\frac{b\_2 \cdot -2}{a}\\
\mathbf{elif}\;b\_2 \leq 1.02 \cdot 10^{-156}:\\
\;\;\;\;\frac{\sqrt{b\_2 \cdot b\_2 - a \cdot c} - b\_2}{a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b\_2}\\
\end{array}
\end{array}
if b_2 < -9.99999999999999934e145Initial program 42.7%
+-commutative42.7%
unsub-neg42.7%
Simplified42.7%
Taylor expanded in b_2 around -inf 92.5%
*-commutative92.5%
Simplified92.5%
if -9.99999999999999934e145 < b_2 < 1.02e-156Initial program 77.8%
+-commutative77.8%
unsub-neg77.8%
Simplified77.8%
if 1.02e-156 < b_2 Initial program 20.6%
+-commutative20.6%
unsub-neg20.6%
Simplified20.6%
Taylor expanded in b_2 around inf 81.9%
(FPCore (a b_2 c) :precision binary64 (if (<= b_2 -3.4e-59) (/ (* b_2 -2.0) a) (if (<= b_2 1.1e-156) (/ (- (sqrt (* a (- c))) b_2) a) (* -0.5 (/ c b_2)))))
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -3.4e-59) {
tmp = (b_2 * -2.0) / a;
} else if (b_2 <= 1.1e-156) {
tmp = (sqrt((a * -c)) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
real(8) :: tmp
if (b_2 <= (-3.4d-59)) then
tmp = (b_2 * (-2.0d0)) / a
else if (b_2 <= 1.1d-156) then
tmp = (sqrt((a * -c)) - b_2) / a
else
tmp = (-0.5d0) * (c / b_2)
end if
code = tmp
end function
public static double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -3.4e-59) {
tmp = (b_2 * -2.0) / a;
} else if (b_2 <= 1.1e-156) {
tmp = (Math.sqrt((a * -c)) - b_2) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
def code(a, b_2, c): tmp = 0 if b_2 <= -3.4e-59: tmp = (b_2 * -2.0) / a elif b_2 <= 1.1e-156: tmp = (math.sqrt((a * -c)) - b_2) / a else: tmp = -0.5 * (c / b_2) return tmp
function code(a, b_2, c) tmp = 0.0 if (b_2 <= -3.4e-59) tmp = Float64(Float64(b_2 * -2.0) / a); elseif (b_2 <= 1.1e-156) tmp = Float64(Float64(sqrt(Float64(a * Float64(-c))) - b_2) / a); else tmp = Float64(-0.5 * Float64(c / b_2)); end return tmp end
function tmp_2 = code(a, b_2, c) tmp = 0.0; if (b_2 <= -3.4e-59) tmp = (b_2 * -2.0) / a; elseif (b_2 <= 1.1e-156) tmp = (sqrt((a * -c)) - b_2) / a; else tmp = -0.5 * (c / b_2); end tmp_2 = tmp; end
code[a_, b$95$2_, c_] := If[LessEqual[b$95$2, -3.4e-59], N[(N[(b$95$2 * -2.0), $MachinePrecision] / a), $MachinePrecision], If[LessEqual[b$95$2, 1.1e-156], N[(N[(N[Sqrt[N[(a * (-c)), $MachinePrecision]], $MachinePrecision] - b$95$2), $MachinePrecision] / a), $MachinePrecision], N[(-0.5 * N[(c / b$95$2), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b\_2 \leq -3.4 \cdot 10^{-59}:\\
\;\;\;\;\frac{b\_2 \cdot -2}{a}\\
\mathbf{elif}\;b\_2 \leq 1.1 \cdot 10^{-156}:\\
\;\;\;\;\frac{\sqrt{a \cdot \left(-c\right)} - b\_2}{a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b\_2}\\
\end{array}
\end{array}
if b_2 < -3.40000000000000018e-59Initial program 68.7%
+-commutative68.7%
unsub-neg68.7%
Simplified68.7%
Taylor expanded in b_2 around -inf 83.2%
*-commutative83.2%
Simplified83.2%
if -3.40000000000000018e-59 < b_2 < 1.1e-156Initial program 69.5%
+-commutative69.5%
unsub-neg69.5%
Simplified69.5%
Taylor expanded in b_2 around 0 59.6%
associate-*r*59.6%
neg-mul-159.6%
*-commutative59.6%
Simplified59.6%
if 1.1e-156 < b_2 Initial program 20.6%
+-commutative20.6%
unsub-neg20.6%
Simplified20.6%
Taylor expanded in b_2 around inf 81.9%
Final simplification75.5%
(FPCore (a b_2 c)
:precision binary64
(if (<= b_2 -4.9e-99)
(/ (* b_2 -2.0) a)
(if (<= b_2 1.35e-179)
(* (sqrt (* a (- c))) (/ 1.0 a))
(* -0.5 (/ c b_2)))))
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -4.9e-99) {
tmp = (b_2 * -2.0) / a;
} else if (b_2 <= 1.35e-179) {
tmp = sqrt((a * -c)) * (1.0 / a);
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
real(8) :: tmp
if (b_2 <= (-4.9d-99)) then
tmp = (b_2 * (-2.0d0)) / a
else if (b_2 <= 1.35d-179) then
tmp = sqrt((a * -c)) * (1.0d0 / a)
else
tmp = (-0.5d0) * (c / b_2)
end if
code = tmp
end function
public static double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= -4.9e-99) {
tmp = (b_2 * -2.0) / a;
} else if (b_2 <= 1.35e-179) {
tmp = Math.sqrt((a * -c)) * (1.0 / a);
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
def code(a, b_2, c): tmp = 0 if b_2 <= -4.9e-99: tmp = (b_2 * -2.0) / a elif b_2 <= 1.35e-179: tmp = math.sqrt((a * -c)) * (1.0 / a) else: tmp = -0.5 * (c / b_2) return tmp
function code(a, b_2, c) tmp = 0.0 if (b_2 <= -4.9e-99) tmp = Float64(Float64(b_2 * -2.0) / a); elseif (b_2 <= 1.35e-179) tmp = Float64(sqrt(Float64(a * Float64(-c))) * Float64(1.0 / a)); else tmp = Float64(-0.5 * Float64(c / b_2)); end return tmp end
function tmp_2 = code(a, b_2, c) tmp = 0.0; if (b_2 <= -4.9e-99) tmp = (b_2 * -2.0) / a; elseif (b_2 <= 1.35e-179) tmp = sqrt((a * -c)) * (1.0 / a); else tmp = -0.5 * (c / b_2); end tmp_2 = tmp; end
code[a_, b$95$2_, c_] := If[LessEqual[b$95$2, -4.9e-99], N[(N[(b$95$2 * -2.0), $MachinePrecision] / a), $MachinePrecision], If[LessEqual[b$95$2, 1.35e-179], N[(N[Sqrt[N[(a * (-c)), $MachinePrecision]], $MachinePrecision] * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], N[(-0.5 * N[(c / b$95$2), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b\_2 \leq -4.9 \cdot 10^{-99}:\\
\;\;\;\;\frac{b\_2 \cdot -2}{a}\\
\mathbf{elif}\;b\_2 \leq 1.35 \cdot 10^{-179}:\\
\;\;\;\;\sqrt{a \cdot \left(-c\right)} \cdot \frac{1}{a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b\_2}\\
\end{array}
\end{array}
if b_2 < -4.9000000000000003e-99Initial program 73.0%
+-commutative73.0%
unsub-neg73.0%
Simplified73.0%
Taylor expanded in b_2 around -inf 77.3%
*-commutative77.3%
Simplified77.3%
if -4.9000000000000003e-99 < b_2 < 1.34999999999999994e-179Initial program 64.1%
+-commutative64.1%
unsub-neg64.1%
Simplified64.1%
prod-diff63.6%
*-commutative63.6%
fma-neg63.6%
prod-diff63.6%
*-commutative63.6%
fma-neg63.6%
associate-+l+63.5%
pow263.5%
*-commutative63.5%
fma-undefine63.6%
distribute-lft-neg-in63.6%
*-commutative63.6%
distribute-rgt-neg-in63.6%
fma-define63.5%
*-commutative63.5%
fma-undefine63.6%
distribute-lft-neg-in63.6%
*-commutative63.6%
distribute-rgt-neg-in63.6%
Applied egg-rr63.5%
*-commutative63.5%
count-263.5%
*-commutative63.5%
Simplified63.5%
Taylor expanded in c around inf 59.4%
distribute-rgt1-in59.4%
metadata-eval59.4%
Simplified59.4%
Taylor expanded in c around 0 59.4%
neg-mul-159.4%
*-commutative59.4%
distribute-rgt-neg-in59.4%
Simplified59.4%
if 1.34999999999999994e-179 < b_2 Initial program 21.2%
+-commutative21.2%
unsub-neg21.2%
Simplified21.2%
Taylor expanded in b_2 around inf 81.4%
Final simplification74.8%
(FPCore (a b_2 c) :precision binary64 (if (<= b_2 3e-299) (/ (* b_2 -2.0) a) (* -0.5 (/ c b_2))))
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= 3e-299) {
tmp = (b_2 * -2.0) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
real(8) :: tmp
if (b_2 <= 3d-299) then
tmp = (b_2 * (-2.0d0)) / a
else
tmp = (-0.5d0) * (c / b_2)
end if
code = tmp
end function
public static double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= 3e-299) {
tmp = (b_2 * -2.0) / a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
def code(a, b_2, c): tmp = 0 if b_2 <= 3e-299: tmp = (b_2 * -2.0) / a else: tmp = -0.5 * (c / b_2) return tmp
function code(a, b_2, c) tmp = 0.0 if (b_2 <= 3e-299) tmp = Float64(Float64(b_2 * -2.0) / a); else tmp = Float64(-0.5 * Float64(c / b_2)); end return tmp end
function tmp_2 = code(a, b_2, c) tmp = 0.0; if (b_2 <= 3e-299) tmp = (b_2 * -2.0) / a; else tmp = -0.5 * (c / b_2); end tmp_2 = tmp; end
code[a_, b$95$2_, c_] := If[LessEqual[b$95$2, 3e-299], N[(N[(b$95$2 * -2.0), $MachinePrecision] / a), $MachinePrecision], N[(-0.5 * N[(c / b$95$2), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b\_2 \leq 3 \cdot 10^{-299}:\\
\;\;\;\;\frac{b\_2 \cdot -2}{a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b\_2}\\
\end{array}
\end{array}
if b_2 < 2.99999999999999984e-299Initial program 70.1%
+-commutative70.1%
unsub-neg70.1%
Simplified70.1%
Taylor expanded in b_2 around -inf 59.5%
*-commutative59.5%
Simplified59.5%
if 2.99999999999999984e-299 < b_2 Initial program 28.2%
+-commutative28.2%
unsub-neg28.2%
Simplified28.2%
Taylor expanded in b_2 around inf 70.3%
(FPCore (a b_2 c) :precision binary64 (if (<= b_2 3.6e-299) (/ b_2 (- a)) (* -0.5 (/ c b_2))))
double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= 3.6e-299) {
tmp = b_2 / -a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
real(8) :: tmp
if (b_2 <= 3.6d-299) then
tmp = b_2 / -a
else
tmp = (-0.5d0) * (c / b_2)
end if
code = tmp
end function
public static double code(double a, double b_2, double c) {
double tmp;
if (b_2 <= 3.6e-299) {
tmp = b_2 / -a;
} else {
tmp = -0.5 * (c / b_2);
}
return tmp;
}
def code(a, b_2, c): tmp = 0 if b_2 <= 3.6e-299: tmp = b_2 / -a else: tmp = -0.5 * (c / b_2) return tmp
function code(a, b_2, c) tmp = 0.0 if (b_2 <= 3.6e-299) tmp = Float64(b_2 / Float64(-a)); else tmp = Float64(-0.5 * Float64(c / b_2)); end return tmp end
function tmp_2 = code(a, b_2, c) tmp = 0.0; if (b_2 <= 3.6e-299) tmp = b_2 / -a; else tmp = -0.5 * (c / b_2); end tmp_2 = tmp; end
code[a_, b$95$2_, c_] := If[LessEqual[b$95$2, 3.6e-299], N[(b$95$2 / (-a)), $MachinePrecision], N[(-0.5 * N[(c / b$95$2), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b\_2 \leq 3.6 \cdot 10^{-299}:\\
\;\;\;\;\frac{b\_2}{-a}\\
\mathbf{else}:\\
\;\;\;\;-0.5 \cdot \frac{c}{b\_2}\\
\end{array}
\end{array}
if b_2 < 3.6e-299Initial program 70.1%
+-commutative70.1%
unsub-neg70.1%
Simplified70.1%
Taylor expanded in b_2 around 0 42.1%
associate-*r*42.1%
neg-mul-142.1%
*-commutative42.1%
Simplified42.1%
Taylor expanded in b_2 around inf 24.8%
neg-mul-124.8%
distribute-neg-frac224.8%
Simplified24.8%
if 3.6e-299 < b_2 Initial program 28.2%
+-commutative28.2%
unsub-neg28.2%
Simplified28.2%
Taylor expanded in b_2 around inf 70.3%
(FPCore (a b_2 c) :precision binary64 (/ b_2 (- a)))
double code(double a, double b_2, double c) {
return b_2 / -a;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
code = b_2 / -a
end function
public static double code(double a, double b_2, double c) {
return b_2 / -a;
}
def code(a, b_2, c): return b_2 / -a
function code(a, b_2, c) return Float64(b_2 / Float64(-a)) end
function tmp = code(a, b_2, c) tmp = b_2 / -a; end
code[a_, b$95$2_, c_] := N[(b$95$2 / (-a)), $MachinePrecision]
\begin{array}{l}
\\
\frac{b\_2}{-a}
\end{array}
Initial program 48.8%
+-commutative48.8%
unsub-neg48.8%
Simplified48.8%
Taylor expanded in b_2 around 0 32.1%
associate-*r*32.1%
neg-mul-132.1%
*-commutative32.1%
Simplified32.1%
Taylor expanded in b_2 around inf 13.4%
neg-mul-113.4%
distribute-neg-frac213.4%
Simplified13.4%
(FPCore (a b_2 c) :precision binary64 (/ b_2 a))
double code(double a, double b_2, double c) {
return b_2 / a;
}
real(8) function code(a, b_2, c)
real(8), intent (in) :: a
real(8), intent (in) :: b_2
real(8), intent (in) :: c
code = b_2 / a
end function
public static double code(double a, double b_2, double c) {
return b_2 / a;
}
def code(a, b_2, c): return b_2 / a
function code(a, b_2, c) return Float64(b_2 / a) end
function tmp = code(a, b_2, c) tmp = b_2 / a; end
code[a_, b$95$2_, c_] := N[(b$95$2 / a), $MachinePrecision]
\begin{array}{l}
\\
\frac{b\_2}{a}
\end{array}
Initial program 48.8%
+-commutative48.8%
unsub-neg48.8%
Simplified48.8%
Taylor expanded in b_2 around 0 32.1%
associate-*r*32.1%
neg-mul-132.1%
*-commutative32.1%
Simplified32.1%
Taylor expanded in b_2 around inf 13.4%
neg-mul-113.4%
distribute-neg-frac213.4%
Simplified13.4%
add-sqr-sqrt8.3%
sqrt-unprod10.8%
sqr-neg10.8%
sqrt-unprod1.5%
add-sqr-sqrt2.8%
*-un-lft-identity2.8%
Applied egg-rr2.8%
*-lft-identity2.8%
Simplified2.8%
(FPCore (a b_2 c)
:precision binary64
(let* ((t_0 (* (sqrt (fabs a)) (sqrt (fabs c))))
(t_1
(if (== (copysign a c) a)
(* (sqrt (- (fabs b_2) t_0)) (sqrt (+ (fabs b_2) t_0)))
(hypot b_2 t_0))))
(if (< b_2 0.0) (/ (- t_1 b_2) a) (/ (- c) (+ b_2 t_1)))))
double code(double a, double b_2, double c) {
double t_0 = sqrt(fabs(a)) * sqrt(fabs(c));
double tmp;
if (copysign(a, c) == a) {
tmp = sqrt((fabs(b_2) - t_0)) * sqrt((fabs(b_2) + t_0));
} else {
tmp = hypot(b_2, t_0);
}
double t_1 = tmp;
double tmp_1;
if (b_2 < 0.0) {
tmp_1 = (t_1 - b_2) / a;
} else {
tmp_1 = -c / (b_2 + t_1);
}
return tmp_1;
}
public static double code(double a, double b_2, double c) {
double t_0 = Math.sqrt(Math.abs(a)) * Math.sqrt(Math.abs(c));
double tmp;
if (Math.copySign(a, c) == a) {
tmp = Math.sqrt((Math.abs(b_2) - t_0)) * Math.sqrt((Math.abs(b_2) + t_0));
} else {
tmp = Math.hypot(b_2, t_0);
}
double t_1 = tmp;
double tmp_1;
if (b_2 < 0.0) {
tmp_1 = (t_1 - b_2) / a;
} else {
tmp_1 = -c / (b_2 + t_1);
}
return tmp_1;
}
def code(a, b_2, c): t_0 = math.sqrt(math.fabs(a)) * math.sqrt(math.fabs(c)) tmp = 0 if math.copysign(a, c) == a: tmp = math.sqrt((math.fabs(b_2) - t_0)) * math.sqrt((math.fabs(b_2) + t_0)) else: tmp = math.hypot(b_2, t_0) t_1 = tmp tmp_1 = 0 if b_2 < 0.0: tmp_1 = (t_1 - b_2) / a else: tmp_1 = -c / (b_2 + t_1) return tmp_1
function code(a, b_2, c) t_0 = Float64(sqrt(abs(a)) * sqrt(abs(c))) tmp = 0.0 if (copysign(a, c) == a) tmp = Float64(sqrt(Float64(abs(b_2) - t_0)) * sqrt(Float64(abs(b_2) + t_0))); else tmp = hypot(b_2, t_0); end t_1 = tmp tmp_1 = 0.0 if (b_2 < 0.0) tmp_1 = Float64(Float64(t_1 - b_2) / a); else tmp_1 = Float64(Float64(-c) / Float64(b_2 + t_1)); end return tmp_1 end
function tmp_3 = code(a, b_2, c) t_0 = sqrt(abs(a)) * sqrt(abs(c)); tmp = 0.0; if ((sign(c) * abs(a)) == a) tmp = sqrt((abs(b_2) - t_0)) * sqrt((abs(b_2) + t_0)); else tmp = hypot(b_2, t_0); end t_1 = tmp; tmp_2 = 0.0; if (b_2 < 0.0) tmp_2 = (t_1 - b_2) / a; else tmp_2 = -c / (b_2 + t_1); end tmp_3 = tmp_2; end
code[a_, b$95$2_, c_] := Block[{t$95$0 = N[(N[Sqrt[N[Abs[a], $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[Abs[c], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = If[Equal[N[With[{TMP1 = Abs[a], TMP2 = Sign[c]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision], a], N[(N[Sqrt[N[(N[Abs[b$95$2], $MachinePrecision] - t$95$0), $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[(N[Abs[b$95$2], $MachinePrecision] + t$95$0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[Sqrt[b$95$2 ^ 2 + t$95$0 ^ 2], $MachinePrecision]]}, If[Less[b$95$2, 0.0], N[(N[(t$95$1 - b$95$2), $MachinePrecision] / a), $MachinePrecision], N[((-c) / N[(b$95$2 + t$95$1), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{\left|a\right|} \cdot \sqrt{\left|c\right|}\\
t_1 := \begin{array}{l}
\mathbf{if}\;\mathsf{copysign}\left(a, c\right) = a:\\
\;\;\;\;\sqrt{\left|b\_2\right| - t\_0} \cdot \sqrt{\left|b\_2\right| + t\_0}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{hypot}\left(b\_2, t\_0\right)\\
\end{array}\\
\mathbf{if}\;b\_2 < 0:\\
\;\;\;\;\frac{t\_1 - b\_2}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{-c}{b\_2 + t\_1}\\
\end{array}
\end{array}
herbie shell --seed 2024130
(FPCore (a b_2 c)
:name "quad2p (problem 3.2.1, positive)"
:precision binary64
:herbie-expected 10
:alt
(! :herbie-platform default (let ((sqtD (let ((x (* (sqrt (fabs a)) (sqrt (fabs c))))) (if (== (copysign a c) a) (* (sqrt (- (fabs b_2) x)) (sqrt (+ (fabs b_2) x))) (hypot b_2 x))))) (if (< b_2 0) (/ (- sqtD b_2) a) (/ (- c) (+ b_2 sqtD)))))
(/ (+ (- b_2) (sqrt (- (* b_2 b_2) (* a c)))) a))