
(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))
double code(double a, double b, double c) {
return (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = (-b + sqrt(((b * b) - ((4.0d0 * a) * c)))) / (2.0d0 * a)
end function
public static double code(double a, double b, double c) {
return (-b + Math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
}
def code(a, b, c): return (-b + math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a)
function code(a, b, c) return Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))) / Float64(2.0 * a)) end
function tmp = code(a, b, c) tmp = (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a); end
code[a_, b_, c_] := N[(N[((-b) + N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b c) :precision binary64 (/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))
double code(double a, double b, double c) {
return (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = (-b + sqrt(((b * b) - ((4.0d0 * a) * c)))) / (2.0d0 * a)
end function
public static double code(double a, double b, double c) {
return (-b + Math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
}
def code(a, b, c): return (-b + math.sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a)
function code(a, b, c) return Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))) / Float64(2.0 * a)) end
function tmp = code(a, b, c) tmp = (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a); end
code[a_, b_, c_] := N[(N[((-b) + N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}
\end{array}
(FPCore (a b c)
:precision binary64
(if (<= b -1.1e+101)
(/ b (- a))
(if (<= b 7e-54)
(/ (- (sqrt (fma a (* c -4.0) (* b b))) b) (* a 2.0))
(/ c (- b)))))
double code(double a, double b, double c) {
double tmp;
if (b <= -1.1e+101) {
tmp = b / -a;
} else if (b <= 7e-54) {
tmp = (sqrt(fma(a, (c * -4.0), (b * b))) - b) / (a * 2.0);
} else {
tmp = c / -b;
}
return tmp;
}
function code(a, b, c) tmp = 0.0 if (b <= -1.1e+101) tmp = Float64(b / Float64(-a)); elseif (b <= 7e-54) tmp = Float64(Float64(sqrt(fma(a, Float64(c * -4.0), Float64(b * b))) - b) / Float64(a * 2.0)); else tmp = Float64(c / Float64(-b)); end return tmp end
code[a_, b_, c_] := If[LessEqual[b, -1.1e+101], N[(b / (-a)), $MachinePrecision], If[LessEqual[b, 7e-54], N[(N[(N[Sqrt[N[(a * N[(c * -4.0), $MachinePrecision] + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(c / (-b)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -1.1 \cdot 10^{+101}:\\
\;\;\;\;\frac{b}{-a}\\
\mathbf{elif}\;b \leq 7 \cdot 10^{-54}:\\
\;\;\;\;\frac{\sqrt{\mathsf{fma}\left(a, c \cdot -4, b \cdot b\right)} - b}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
if b < -1.1e101Initial program 45.9%
*-commutative45.9%
Simplified45.9%
Taylor expanded in b around -inf 96.1%
associate-*r/96.1%
mul-1-neg96.1%
Simplified96.1%
if -1.1e101 < b < 6.99999999999999964e-54Initial program 80.6%
*-commutative80.6%
Simplified80.6%
if 6.99999999999999964e-54 < b Initial program 17.6%
*-commutative17.6%
Simplified17.6%
Taylor expanded in a around 0 84.4%
associate-*r/84.4%
mul-1-neg84.4%
Simplified84.4%
Final simplification84.7%
(FPCore (a b c)
:precision binary64
(if (<= b -3.9e+101)
(/ b (- a))
(if (<= b 5.6e-52)
(/ (- (sqrt (- (* b b) (* c (* a 4.0)))) b) (* a 2.0))
(/ c (- b)))))
double code(double a, double b, double c) {
double tmp;
if (b <= -3.9e+101) {
tmp = b / -a;
} else if (b <= 5.6e-52) {
tmp = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
} 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 <= (-3.9d+101)) then
tmp = b / -a
else if (b <= 5.6d-52) then
tmp = (sqrt(((b * b) - (c * (a * 4.0d0)))) - b) / (a * 2.0d0)
else
tmp = c / -b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= -3.9e+101) {
tmp = b / -a;
} else if (b <= 5.6e-52) {
tmp = (Math.sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
} else {
tmp = c / -b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= -3.9e+101: tmp = b / -a elif b <= 5.6e-52: tmp = (math.sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0) else: tmp = c / -b return tmp
function code(a, b, c) tmp = 0.0 if (b <= -3.9e+101) tmp = Float64(b / Float64(-a)); elseif (b <= 5.6e-52) tmp = Float64(Float64(sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) - b) / Float64(a * 2.0)); else tmp = Float64(c / Float64(-b)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= -3.9e+101) tmp = b / -a; elseif (b <= 5.6e-52) tmp = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0); else tmp = c / -b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, -3.9e+101], N[(b / (-a)), $MachinePrecision], If[LessEqual[b, 5.6e-52], 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], N[(c / (-b)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -3.9 \cdot 10^{+101}:\\
\;\;\;\;\frac{b}{-a}\\
\mathbf{elif}\;b \leq 5.6 \cdot 10^{-52}:\\
\;\;\;\;\frac{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} - b}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
if b < -3.9e101Initial program 45.9%
*-commutative45.9%
Simplified45.9%
Taylor expanded in b around -inf 96.1%
associate-*r/96.1%
mul-1-neg96.1%
Simplified96.1%
if -3.9e101 < b < 5.59999999999999989e-52Initial program 80.6%
if 5.59999999999999989e-52 < b Initial program 17.6%
*-commutative17.6%
Simplified17.6%
Taylor expanded in a around 0 84.4%
associate-*r/84.4%
mul-1-neg84.4%
Simplified84.4%
Final simplification84.7%
(FPCore (a b c)
:precision binary64
(if (<= b -2.7e+101)
(/ b (- a))
(if (<= b 6.2e-54)
(* (/ 0.5 a) (- (sqrt (+ (* b b) (* a (* c -4.0)))) b))
(/ c (- b)))))
double code(double a, double b, double c) {
double tmp;
if (b <= -2.7e+101) {
tmp = b / -a;
} else if (b <= 6.2e-54) {
tmp = (0.5 / a) * (sqrt(((b * b) + (a * (c * -4.0)))) - b);
} else {
tmp = c / -b;
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b <= (-2.7d+101)) then
tmp = b / -a
else if (b <= 6.2d-54) then
tmp = (0.5d0 / a) * (sqrt(((b * b) + (a * (c * (-4.0d0))))) - b)
else
tmp = c / -b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= -2.7e+101) {
tmp = b / -a;
} else if (b <= 6.2e-54) {
tmp = (0.5 / a) * (Math.sqrt(((b * b) + (a * (c * -4.0)))) - b);
} else {
tmp = c / -b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= -2.7e+101: tmp = b / -a elif b <= 6.2e-54: tmp = (0.5 / a) * (math.sqrt(((b * b) + (a * (c * -4.0)))) - b) else: tmp = c / -b return tmp
function code(a, b, c) tmp = 0.0 if (b <= -2.7e+101) tmp = Float64(b / Float64(-a)); elseif (b <= 6.2e-54) tmp = Float64(Float64(0.5 / a) * Float64(sqrt(Float64(Float64(b * b) + Float64(a * Float64(c * -4.0)))) - b)); else tmp = Float64(c / Float64(-b)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= -2.7e+101) tmp = b / -a; elseif (b <= 6.2e-54) tmp = (0.5 / a) * (sqrt(((b * b) + (a * (c * -4.0)))) - b); else tmp = c / -b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, -2.7e+101], N[(b / (-a)), $MachinePrecision], If[LessEqual[b, 6.2e-54], N[(N[(0.5 / a), $MachinePrecision] * N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] + N[(a * N[(c * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision], N[(c / (-b)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -2.7 \cdot 10^{+101}:\\
\;\;\;\;\frac{b}{-a}\\
\mathbf{elif}\;b \leq 6.2 \cdot 10^{-54}:\\
\;\;\;\;\frac{0.5}{a} \cdot \left(\sqrt{b \cdot b + a \cdot \left(c \cdot -4\right)} - b\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
if b < -2.70000000000000006e101Initial program 45.9%
*-commutative45.9%
Simplified45.9%
Taylor expanded in b around -inf 96.1%
associate-*r/96.1%
mul-1-neg96.1%
Simplified96.1%
if -2.70000000000000006e101 < b < 6.20000000000000008e-54Initial program 80.6%
*-commutative80.6%
Simplified80.6%
div-sub80.6%
sub-neg80.6%
div-inv80.4%
pow280.4%
*-commutative80.4%
associate-/r*80.4%
metadata-eval80.4%
div-inv80.3%
*-commutative80.3%
associate-/r*80.3%
metadata-eval80.3%
Applied egg-rr80.3%
sub-neg80.3%
distribute-rgt-out--80.4%
Simplified80.4%
fma-undefine80.4%
Applied egg-rr80.4%
unpow280.4%
Applied egg-rr80.4%
if 6.20000000000000008e-54 < b Initial program 17.6%
*-commutative17.6%
Simplified17.6%
Taylor expanded in a around 0 84.4%
associate-*r/84.4%
mul-1-neg84.4%
Simplified84.4%
Final simplification84.6%
(FPCore (a b c)
:precision binary64
(if (<= b -3.4e-99)
(- (/ c b) (/ b a))
(if (<= b 1.38e-49)
(/ (- (sqrt (* a (* c -4.0))) b) (* a 2.0))
(/ c (- b)))))
double code(double a, double b, double c) {
double tmp;
if (b <= -3.4e-99) {
tmp = (c / b) - (b / a);
} else if (b <= 1.38e-49) {
tmp = (sqrt((a * (c * -4.0))) - b) / (a * 2.0);
} 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 <= (-3.4d-99)) then
tmp = (c / b) - (b / a)
else if (b <= 1.38d-49) then
tmp = (sqrt((a * (c * (-4.0d0)))) - b) / (a * 2.0d0)
else
tmp = c / -b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= -3.4e-99) {
tmp = (c / b) - (b / a);
} else if (b <= 1.38e-49) {
tmp = (Math.sqrt((a * (c * -4.0))) - b) / (a * 2.0);
} else {
tmp = c / -b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= -3.4e-99: tmp = (c / b) - (b / a) elif b <= 1.38e-49: tmp = (math.sqrt((a * (c * -4.0))) - b) / (a * 2.0) else: tmp = c / -b return tmp
function code(a, b, c) tmp = 0.0 if (b <= -3.4e-99) tmp = Float64(Float64(c / b) - Float64(b / a)); elseif (b <= 1.38e-49) tmp = Float64(Float64(sqrt(Float64(a * Float64(c * -4.0))) - b) / Float64(a * 2.0)); else tmp = Float64(c / Float64(-b)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= -3.4e-99) tmp = (c / b) - (b / a); elseif (b <= 1.38e-49) tmp = (sqrt((a * (c * -4.0))) - b) / (a * 2.0); else tmp = c / -b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, -3.4e-99], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.38e-49], N[(N[(N[Sqrt[N[(a * N[(c * -4.0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision], N[(c / (-b)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -3.4 \cdot 10^{-99}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{elif}\;b \leq 1.38 \cdot 10^{-49}:\\
\;\;\;\;\frac{\sqrt{a \cdot \left(c \cdot -4\right)} - b}{a \cdot 2}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
if b < -3.40000000000000007e-99Initial program 66.1%
*-commutative66.1%
Simplified66.1%
Taylor expanded in b around -inf 80.7%
mul-1-neg80.7%
*-commutative80.7%
distribute-rgt-neg-in80.7%
+-commutative80.7%
mul-1-neg80.7%
unsub-neg80.7%
Simplified80.7%
Taylor expanded in a around inf 81.0%
neg-mul-181.0%
+-commutative81.0%
unsub-neg81.0%
Simplified81.0%
if -3.40000000000000007e-99 < b < 1.38e-49Initial program 77.6%
*-commutative77.6%
Simplified77.6%
Taylor expanded in a around inf 73.9%
*-commutative73.9%
associate-*r*73.9%
Simplified73.9%
if 1.38e-49 < b Initial program 17.6%
*-commutative17.6%
Simplified17.6%
Taylor expanded in a around 0 84.4%
associate-*r/84.4%
mul-1-neg84.4%
Simplified84.4%
Final simplification80.2%
(FPCore (a b c)
:precision binary64
(if (<= b -6.6e-99)
(- (/ c b) (/ b a))
(if (<= b 7.1e-56)
(* (/ 0.5 a) (- (sqrt (* -4.0 (* a c))) b))
(/ c (- b)))))
double code(double a, double b, double c) {
double tmp;
if (b <= -6.6e-99) {
tmp = (c / b) - (b / a);
} else if (b <= 7.1e-56) {
tmp = (0.5 / a) * (sqrt((-4.0 * (a * c))) - b);
} else {
tmp = c / -b;
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b <= (-6.6d-99)) then
tmp = (c / b) - (b / a)
else if (b <= 7.1d-56) then
tmp = (0.5d0 / a) * (sqrt(((-4.0d0) * (a * c))) - b)
else
tmp = c / -b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= -6.6e-99) {
tmp = (c / b) - (b / a);
} else if (b <= 7.1e-56) {
tmp = (0.5 / a) * (Math.sqrt((-4.0 * (a * c))) - b);
} else {
tmp = c / -b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= -6.6e-99: tmp = (c / b) - (b / a) elif b <= 7.1e-56: tmp = (0.5 / a) * (math.sqrt((-4.0 * (a * c))) - b) else: tmp = c / -b return tmp
function code(a, b, c) tmp = 0.0 if (b <= -6.6e-99) tmp = Float64(Float64(c / b) - Float64(b / a)); elseif (b <= 7.1e-56) tmp = Float64(Float64(0.5 / a) * Float64(sqrt(Float64(-4.0 * Float64(a * c))) - b)); else tmp = Float64(c / Float64(-b)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= -6.6e-99) tmp = (c / b) - (b / a); elseif (b <= 7.1e-56) tmp = (0.5 / a) * (sqrt((-4.0 * (a * c))) - b); else tmp = c / -b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, -6.6e-99], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 7.1e-56], N[(N[(0.5 / a), $MachinePrecision] * N[(N[Sqrt[N[(-4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision], N[(c / (-b)), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -6.6 \cdot 10^{-99}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{elif}\;b \leq 7.1 \cdot 10^{-56}:\\
\;\;\;\;\frac{0.5}{a} \cdot \left(\sqrt{-4 \cdot \left(a \cdot c\right)} - b\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
if b < -6.59999999999999973e-99Initial program 66.1%
*-commutative66.1%
Simplified66.1%
Taylor expanded in b around -inf 80.7%
mul-1-neg80.7%
*-commutative80.7%
distribute-rgt-neg-in80.7%
+-commutative80.7%
mul-1-neg80.7%
unsub-neg80.7%
Simplified80.7%
Taylor expanded in a around inf 81.0%
neg-mul-181.0%
+-commutative81.0%
unsub-neg81.0%
Simplified81.0%
if -6.59999999999999973e-99 < b < 7.1e-56Initial program 77.6%
*-commutative77.6%
Simplified77.6%
div-sub77.6%
sub-neg77.6%
div-inv77.4%
pow277.4%
*-commutative77.4%
associate-/r*77.4%
metadata-eval77.4%
div-inv77.4%
*-commutative77.4%
associate-/r*77.4%
metadata-eval77.4%
Applied egg-rr77.4%
sub-neg77.4%
distribute-rgt-out--77.4%
Simplified77.4%
Taylor expanded in a around inf 73.7%
*-commutative73.7%
Simplified73.7%
if 7.1e-56 < b Initial program 17.6%
*-commutative17.6%
Simplified17.6%
Taylor expanded in a around 0 84.4%
associate-*r/84.4%
mul-1-neg84.4%
Simplified84.4%
Final simplification80.1%
(FPCore (a b c) :precision binary64 (if (<= b -2e-311) (- (/ c b) (/ b a)) (/ c (- b))))
double code(double a, double b, double c) {
double tmp;
if (b <= -2e-311) {
tmp = (c / 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 <= (-2d-311)) then
tmp = (c / 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 <= -2e-311) {
tmp = (c / b) - (b / a);
} else {
tmp = c / -b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= -2e-311: tmp = (c / b) - (b / a) else: tmp = c / -b return tmp
function code(a, b, c) tmp = 0.0 if (b <= -2e-311) tmp = Float64(Float64(c / b) - Float64(b / a)); else tmp = Float64(c / Float64(-b)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= -2e-311) tmp = (c / b) - (b / a); else tmp = c / -b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, -2e-311], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision], N[(c / (-b)), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -2 \cdot 10^{-311}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
if b < -1.9999999999999e-311Initial program 69.8%
*-commutative69.8%
Simplified69.8%
Taylor expanded in b around -inf 61.1%
mul-1-neg61.1%
*-commutative61.1%
distribute-rgt-neg-in61.1%
+-commutative61.1%
mul-1-neg61.1%
unsub-neg61.1%
Simplified61.1%
Taylor expanded in a around inf 63.0%
neg-mul-163.0%
+-commutative63.0%
unsub-neg63.0%
Simplified63.0%
if -1.9999999999999e-311 < b Initial program 33.9%
*-commutative33.9%
Simplified33.9%
Taylor expanded in a around 0 63.6%
associate-*r/63.6%
mul-1-neg63.6%
Simplified63.6%
Final simplification63.3%
(FPCore (a b c) :precision binary64 (if (<= b 4.9e-294) (/ b (- a)) (/ c (- b))))
double code(double a, double b, double c) {
double tmp;
if (b <= 4.9e-294) {
tmp = b / -a;
} else {
tmp = c / -b;
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b <= 4.9d-294) then
tmp = b / -a
else
tmp = c / -b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= 4.9e-294) {
tmp = b / -a;
} else {
tmp = c / -b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= 4.9e-294: tmp = b / -a else: tmp = c / -b return tmp
function code(a, b, c) tmp = 0.0 if (b <= 4.9e-294) tmp = Float64(b / Float64(-a)); else tmp = Float64(c / Float64(-b)); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= 4.9e-294) tmp = b / -a; else tmp = c / -b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, 4.9e-294], N[(b / (-a)), $MachinePrecision], N[(c / (-b)), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 4.9 \cdot 10^{-294}:\\
\;\;\;\;\frac{b}{-a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{-b}\\
\end{array}
\end{array}
if b < 4.8999999999999998e-294Initial program 70.3%
*-commutative70.3%
Simplified70.3%
Taylor expanded in b around -inf 61.6%
associate-*r/61.6%
mul-1-neg61.6%
Simplified61.6%
if 4.8999999999999998e-294 < b Initial program 32.7%
*-commutative32.7%
Simplified32.7%
Taylor expanded in a around 0 64.7%
associate-*r/64.7%
mul-1-neg64.7%
Simplified64.7%
Final simplification63.0%
(FPCore (a b c) :precision binary64 (if (<= b 480000000000.0) (/ b (- a)) (/ c b)))
double code(double a, double b, double c) {
double tmp;
if (b <= 480000000000.0) {
tmp = b / -a;
} else {
tmp = c / b;
}
return tmp;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8) :: tmp
if (b <= 480000000000.0d0) then
tmp = b / -a
else
tmp = c / b
end if
code = tmp
end function
public static double code(double a, double b, double c) {
double tmp;
if (b <= 480000000000.0) {
tmp = b / -a;
} else {
tmp = c / b;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b <= 480000000000.0: tmp = b / -a else: tmp = c / b return tmp
function code(a, b, c) tmp = 0.0 if (b <= 480000000000.0) tmp = Float64(b / Float64(-a)); else tmp = Float64(c / b); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b <= 480000000000.0) tmp = b / -a; else tmp = c / b; end tmp_2 = tmp; end
code[a_, b_, c_] := If[LessEqual[b, 480000000000.0], N[(b / (-a)), $MachinePrecision], N[(c / b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 480000000000:\\
\;\;\;\;\frac{b}{-a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{b}\\
\end{array}
\end{array}
if b < 4.8e11Initial program 68.9%
*-commutative68.9%
Simplified68.9%
Taylor expanded in b around -inf 47.5%
associate-*r/47.5%
mul-1-neg47.5%
Simplified47.5%
if 4.8e11 < b Initial program 14.7%
*-commutative14.7%
Simplified14.7%
Taylor expanded in b around -inf 2.1%
mul-1-neg2.1%
*-commutative2.1%
distribute-rgt-neg-in2.1%
+-commutative2.1%
mul-1-neg2.1%
unsub-neg2.1%
Simplified2.1%
Taylor expanded in a around inf 25.1%
Final simplification40.9%
(FPCore (a b c) :precision binary64 (/ c b))
double code(double a, double b, double c) {
return c / b;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = c / b
end function
public static double code(double a, double b, double c) {
return c / b;
}
def code(a, b, c): return c / b
function code(a, b, c) return Float64(c / b) end
function tmp = code(a, b, c) tmp = c / b; end
code[a_, b_, c_] := N[(c / b), $MachinePrecision]
\begin{array}{l}
\\
\frac{c}{b}
\end{array}
Initial program 52.8%
*-commutative52.8%
Simplified52.8%
Taylor expanded in b around -inf 33.1%
mul-1-neg33.1%
*-commutative33.1%
distribute-rgt-neg-in33.1%
+-commutative33.1%
mul-1-neg33.1%
unsub-neg33.1%
Simplified33.1%
Taylor expanded in a around inf 9.7%
(FPCore (a b c) :precision binary64 (/ b a))
double code(double a, double b, double c) {
return b / a;
}
real(8) function code(a, b, c)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
code = b / a
end function
public static double code(double a, double b, double c) {
return b / a;
}
def code(a, b, c): return b / a
function code(a, b, c) return Float64(b / a) end
function tmp = code(a, b, c) tmp = b / a; end
code[a_, b_, c_] := N[(b / a), $MachinePrecision]
\begin{array}{l}
\\
\frac{b}{a}
\end{array}
Initial program 52.8%
*-commutative52.8%
Simplified52.8%
Taylor expanded in b around -inf 34.1%
associate-*r/34.1%
mul-1-neg34.1%
Simplified34.1%
add-sqr-sqrt32.8%
sqrt-unprod24.7%
sqr-neg24.7%
sqrt-prod1.9%
add-sqr-sqrt2.7%
div-inv2.7%
Applied egg-rr2.7%
associate-*r/2.7%
*-rgt-identity2.7%
Simplified2.7%
(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))
(/ c (* a (/ (- (- 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 = (-b + t_0) / (2.0 * a);
} else {
tmp = c / (a * ((-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 = (-b + t_0) / (2.0d0 * a)
else
tmp = c / (a * ((-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 = (-b + t_0) / (2.0 * a);
} else {
tmp = c / (a * ((-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 = (-b + t_0) / (2.0 * a) else: tmp = c / (a * ((-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(Float64(-b) + t_0) / Float64(2.0 * a)); else tmp = Float64(c / Float64(a * 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 = (-b + t_0) / (2.0 * a); else tmp = c / (a * ((-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[Less[b, 0.0], N[(N[((-b) + t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(c / N[(a * N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\
\mathbf{if}\;b < 0:\\
\;\;\;\;\frac{\left(-b\right) + t\_0}{2 \cdot a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{a \cdot \frac{\left(-b\right) - t\_0}{2 \cdot a}}\\
\end{array}
\end{array}
herbie shell --seed 2024146
(FPCore (a b c)
:name "The quadratic formula (r1)"
:precision binary64
:alt
(! :herbie-platform default (let ((d (- (* b b) (* (* 4 a) c)))) (let ((r1 (/ (+ (- b) (sqrt d)) (* 2 a)))) (let ((r2 (/ (- (- b) (sqrt d)) (* 2 a)))) (if (< b 0) r1 (/ c (* a r2)))))))
(/ (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)))