
(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 5 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 (- (* b b) (* c (* a 4.0))))))
(if (<= b -1.6e+22)
(if (>= b 0.0) (* b (/ 1.0 a)) (- (/ c b) (/ b a)))
(if (<= b 1.28e+65)
(if (>= b 0.0) (/ (* c 2.0) (- (- b) t_0)) (/ (- t_0 b) (* a 2.0)))
(if (>= b 0.0) (/ (- c) b) (/ (- b) a))))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - (c * (a * 4.0))));
double tmp_1;
if (b <= -1.6e+22) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b * (1.0 / a);
} else {
tmp_2 = (c / b) - (b / a);
}
tmp_1 = tmp_2;
} else if (b <= 1.28e+65) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (c * 2.0) / (-b - t_0);
} else {
tmp_3 = (t_0 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = -c / b;
} else {
tmp_1 = -b / a;
}
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 <= (-1.6d+22)) then
if (b >= 0.0d0) then
tmp_2 = b * (1.0d0 / a)
else
tmp_2 = (c / b) - (b / a)
end if
tmp_1 = tmp_2
else if (b <= 1.28d+65) then
if (b >= 0.0d0) then
tmp_3 = (c * 2.0d0) / (-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 = -c / b
else
tmp_1 = -b / a
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 <= -1.6e+22) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b * (1.0 / a);
} else {
tmp_2 = (c / b) - (b / a);
}
tmp_1 = tmp_2;
} else if (b <= 1.28e+65) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = (c * 2.0) / (-b - t_0);
} else {
tmp_3 = (t_0 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = -c / b;
} else {
tmp_1 = -b / a;
}
return tmp_1;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - (c * (a * 4.0)))) tmp_1 = 0 if b <= -1.6e+22: tmp_2 = 0 if b >= 0.0: tmp_2 = b * (1.0 / a) else: tmp_2 = (c / b) - (b / a) tmp_1 = tmp_2 elif b <= 1.28e+65: tmp_3 = 0 if b >= 0.0: tmp_3 = (c * 2.0) / (-b - t_0) else: tmp_3 = (t_0 - b) / (a * 2.0) tmp_1 = tmp_3 elif b >= 0.0: tmp_1 = -c / b else: tmp_1 = -b / a 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 <= -1.6e+22) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(b * Float64(1.0 / a)); else tmp_2 = Float64(Float64(c / b) - Float64(b / a)); end tmp_1 = tmp_2; elseif (b <= 1.28e+65) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(Float64(c * 2.0) / 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(-c) / b); else tmp_1 = Float64(Float64(-b) / a); 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 <= -1.6e+22) tmp_3 = 0.0; if (b >= 0.0) tmp_3 = b * (1.0 / a); else tmp_3 = (c / b) - (b / a); end tmp_2 = tmp_3; elseif (b <= 1.28e+65) tmp_4 = 0.0; if (b >= 0.0) tmp_4 = (c * 2.0) / (-b - t_0); else tmp_4 = (t_0 - b) / (a * 2.0); end tmp_2 = tmp_4; elseif (b >= 0.0) tmp_2 = -c / b; else tmp_2 = -b / a; 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, -1.6e+22], If[GreaterEqual[b, 0.0], N[(b * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.28e+65], If[GreaterEqual[b, 0.0], N[(N[(c * 2.0), $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[((-c) / b), $MachinePrecision], N[((-b) / a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}\\
\mathbf{if}\;b \leq -1.6 \cdot 10^{+22}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;b \cdot \frac{1}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\end{array}\\
\mathbf{elif}\;b \leq 1.28 \cdot 10^{+65}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{c \cdot 2}{\left(-b\right) - t_0}\\
\mathbf{else}:\\
\;\;\;\;\frac{t_0 - b}{a \cdot 2}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{-c}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{-b}{a}\\
\end{array}
\end{array}
if b < -1.6e22Initial program 63.8%
Simplified63.8%
Taylor expanded in b around inf 63.8%
+-commutative63.8%
*-commutative63.8%
fma-def63.8%
associate-/l*63.8%
associate-*r/63.8%
*-commutative63.8%
Simplified63.8%
Taylor expanded in b around 0 63.8%
Taylor expanded in b around -inf 96.4%
mul-1-neg96.4%
unsub-neg96.4%
Simplified96.4%
associate-/r*96.4%
metadata-eval96.4%
clear-num96.4%
div-inv96.4%
Applied egg-rr96.4%
if -1.6e22 < b < 1.28000000000000007e65Initial program 90.4%
if 1.28000000000000007e65 < b Initial program 66.1%
div-inv66.0%
*-commutative66.0%
*-commutative66.0%
*-commutative66.0%
Applied egg-rr66.0%
Taylor expanded in b around inf 84.9%
+-commutative84.9%
*-commutative84.9%
fma-def84.9%
associate-/l*95.3%
associate-*r/95.3%
*-commutative95.3%
*-rgt-identity95.3%
associate-*r/95.3%
associate-*l*95.3%
associate-*r/95.3%
metadata-eval95.3%
associate-/l*95.3%
associate-*r/95.3%
Simplified95.3%
Taylor expanded in c around 0 95.6%
associate-*r/95.6%
neg-mul-195.6%
Simplified95.6%
Taylor expanded in b around -inf 95.6%
neg-mul-195.6%
distribute-neg-frac95.6%
Simplified95.6%
Final simplification93.5%
(FPCore (a b c)
:precision binary64
(let* ((t_0 (sqrt (- (* b b) (* c (* a 4.0))))))
(if (<= b -1.6e+22)
(if (>= b 0.0) (* b (/ 1.0 a)) (- (/ c b) (/ b a)))
(if (<= b 1.28e+65)
(if (>= b 0.0) (/ 2.0 (/ (- (- b) t_0) c)) (/ (- t_0 b) (* a 2.0)))
(if (>= b 0.0) (/ (- c) b) (/ (- b) a))))))
double code(double a, double b, double c) {
double t_0 = sqrt(((b * b) - (c * (a * 4.0))));
double tmp_1;
if (b <= -1.6e+22) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b * (1.0 / a);
} else {
tmp_2 = (c / b) - (b / a);
}
tmp_1 = tmp_2;
} else if (b <= 1.28e+65) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = 2.0 / ((-b - t_0) / c);
} else {
tmp_3 = (t_0 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = -c / b;
} else {
tmp_1 = -b / a;
}
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 <= (-1.6d+22)) then
if (b >= 0.0d0) then
tmp_2 = b * (1.0d0 / a)
else
tmp_2 = (c / b) - (b / a)
end if
tmp_1 = tmp_2
else if (b <= 1.28d+65) then
if (b >= 0.0d0) then
tmp_3 = 2.0d0 / ((-b - t_0) / c)
else
tmp_3 = (t_0 - b) / (a * 2.0d0)
end if
tmp_1 = tmp_3
else if (b >= 0.0d0) then
tmp_1 = -c / b
else
tmp_1 = -b / a
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 <= -1.6e+22) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b * (1.0 / a);
} else {
tmp_2 = (c / b) - (b / a);
}
tmp_1 = tmp_2;
} else if (b <= 1.28e+65) {
double tmp_3;
if (b >= 0.0) {
tmp_3 = 2.0 / ((-b - t_0) / c);
} else {
tmp_3 = (t_0 - b) / (a * 2.0);
}
tmp_1 = tmp_3;
} else if (b >= 0.0) {
tmp_1 = -c / b;
} else {
tmp_1 = -b / a;
}
return tmp_1;
}
def code(a, b, c): t_0 = math.sqrt(((b * b) - (c * (a * 4.0)))) tmp_1 = 0 if b <= -1.6e+22: tmp_2 = 0 if b >= 0.0: tmp_2 = b * (1.0 / a) else: tmp_2 = (c / b) - (b / a) tmp_1 = tmp_2 elif b <= 1.28e+65: tmp_3 = 0 if b >= 0.0: tmp_3 = 2.0 / ((-b - t_0) / c) else: tmp_3 = (t_0 - b) / (a * 2.0) tmp_1 = tmp_3 elif b >= 0.0: tmp_1 = -c / b else: tmp_1 = -b / a 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 <= -1.6e+22) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(b * Float64(1.0 / a)); else tmp_2 = Float64(Float64(c / b) - Float64(b / a)); end tmp_1 = tmp_2; elseif (b <= 1.28e+65) tmp_3 = 0.0 if (b >= 0.0) tmp_3 = Float64(2.0 / Float64(Float64(Float64(-b) - t_0) / c)); 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(-c) / b); else tmp_1 = Float64(Float64(-b) / a); 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 <= -1.6e+22) tmp_3 = 0.0; if (b >= 0.0) tmp_3 = b * (1.0 / a); else tmp_3 = (c / b) - (b / a); end tmp_2 = tmp_3; elseif (b <= 1.28e+65) tmp_4 = 0.0; if (b >= 0.0) tmp_4 = 2.0 / ((-b - t_0) / c); else tmp_4 = (t_0 - b) / (a * 2.0); end tmp_2 = tmp_4; elseif (b >= 0.0) tmp_2 = -c / b; else tmp_2 = -b / a; 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, -1.6e+22], If[GreaterEqual[b, 0.0], N[(b * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.28e+65], If[GreaterEqual[b, 0.0], N[(2.0 / N[(N[((-b) - t$95$0), $MachinePrecision] / c), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$0 - b), $MachinePrecision] / N[(a * 2.0), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[((-c) / b), $MachinePrecision], N[((-b) / a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)}\\
\mathbf{if}\;b \leq -1.6 \cdot 10^{+22}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;b \cdot \frac{1}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\end{array}\\
\mathbf{elif}\;b \leq 1.28 \cdot 10^{+65}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{2}{\frac{\left(-b\right) - t_0}{c}}\\
\mathbf{else}:\\
\;\;\;\;\frac{t_0 - b}{a \cdot 2}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\frac{-c}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{-b}{a}\\
\end{array}
\end{array}
if b < -1.6e22Initial program 63.8%
Simplified63.8%
Taylor expanded in b around inf 63.8%
+-commutative63.8%
*-commutative63.8%
fma-def63.8%
associate-/l*63.8%
associate-*r/63.8%
*-commutative63.8%
Simplified63.8%
Taylor expanded in b around 0 63.8%
Taylor expanded in b around -inf 96.4%
mul-1-neg96.4%
unsub-neg96.4%
Simplified96.4%
associate-/r*96.4%
metadata-eval96.4%
clear-num96.4%
div-inv96.4%
Applied egg-rr96.4%
if -1.6e22 < b < 1.28000000000000007e65Initial program 90.4%
expm1-log1p-u77.9%
expm1-udef56.0%
associate-/l*56.0%
*-commutative56.0%
*-commutative56.0%
Applied egg-rr56.0%
expm1-def77.8%
expm1-log1p90.3%
Simplified90.3%
if 1.28000000000000007e65 < b Initial program 66.1%
div-inv66.0%
*-commutative66.0%
*-commutative66.0%
*-commutative66.0%
Applied egg-rr66.0%
Taylor expanded in b around inf 84.9%
+-commutative84.9%
*-commutative84.9%
fma-def84.9%
associate-/l*95.3%
associate-*r/95.3%
*-commutative95.3%
*-rgt-identity95.3%
associate-*r/95.3%
associate-*l*95.3%
associate-*r/95.3%
metadata-eval95.3%
associate-/l*95.3%
associate-*r/95.3%
Simplified95.3%
Taylor expanded in c around 0 95.6%
associate-*r/95.6%
neg-mul-195.6%
Simplified95.6%
Taylor expanded in b around -inf 95.6%
neg-mul-195.6%
distribute-neg-frac95.6%
Simplified95.6%
Final simplification93.5%
(FPCore (a b c)
:precision binary64
(if (<= b -1.6e+22)
(if (>= b 0.0) (* b (/ 1.0 a)) (- (/ c b) (/ b a)))
(if (>= b 0.0)
(* (* c 2.0) (/ 1.0 (fma b -2.0 (* c (* 2.0 (/ a b))))))
(/ (- (sqrt (- (* b b) (* c (* a 4.0)))) b) (* a 2.0)))))
double code(double a, double b, double c) {
double tmp_1;
if (b <= -1.6e+22) {
double tmp_2;
if (b >= 0.0) {
tmp_2 = b * (1.0 / a);
} else {
tmp_2 = (c / b) - (b / a);
}
tmp_1 = tmp_2;
} else if (b >= 0.0) {
tmp_1 = (c * 2.0) * (1.0 / fma(b, -2.0, (c * (2.0 * (a / b)))));
} else {
tmp_1 = (sqrt(((b * b) - (c * (a * 4.0)))) - b) / (a * 2.0);
}
return tmp_1;
}
function code(a, b, c) tmp_1 = 0.0 if (b <= -1.6e+22) tmp_2 = 0.0 if (b >= 0.0) tmp_2 = Float64(b * Float64(1.0 / a)); else tmp_2 = Float64(Float64(c / b) - Float64(b / a)); end tmp_1 = tmp_2; elseif (b >= 0.0) tmp_1 = Float64(Float64(c * 2.0) * Float64(1.0 / fma(b, -2.0, Float64(c * Float64(2.0 * Float64(a / b)))))); else tmp_1 = Float64(Float64(sqrt(Float64(Float64(b * b) - Float64(c * Float64(a * 4.0)))) - b) / Float64(a * 2.0)); end return tmp_1 end
code[a_, b_, c_] := If[LessEqual[b, -1.6e+22], If[GreaterEqual[b, 0.0], N[(b * N[(1.0 / a), $MachinePrecision]), $MachinePrecision], N[(N[(c / b), $MachinePrecision] - N[(b / a), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(N[(c * 2.0), $MachinePrecision] * N[(1.0 / N[(b * -2.0 + N[(c * N[(2.0 * N[(a / b), $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]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -1.6 \cdot 10^{+22}:\\
\;\;\;\;\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;b \cdot \frac{1}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{c}{b} - \frac{b}{a}\\
\end{array}\\
\mathbf{elif}\;b \geq 0:\\
\;\;\;\;\left(c \cdot 2\right) \cdot \frac{1}{\mathsf{fma}\left(b, -2, c \cdot \left(2 \cdot \frac{a}{b}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\sqrt{b \cdot b - c \cdot \left(a \cdot 4\right)} - b}{a \cdot 2}\\
\end{array}
\end{array}
if b < -1.6e22Initial program 63.8%
Simplified63.8%
Taylor expanded in b around inf 63.8%
+-commutative63.8%
*-commutative63.8%
fma-def63.8%
associate-/l*63.8%
associate-*r/63.8%
*-commutative63.8%
Simplified63.8%
Taylor expanded in b around 0 63.8%
Taylor expanded in b around -inf 96.4%
mul-1-neg96.4%
unsub-neg96.4%
Simplified96.4%
associate-/r*96.4%
metadata-eval96.4%
clear-num96.4%
div-inv96.4%
Applied egg-rr96.4%
if -1.6e22 < b Initial program 81.5%
div-inv81.4%
*-commutative81.4%
*-commutative81.4%
*-commutative81.4%
Applied egg-rr81.4%
Taylor expanded in b around inf 69.7%
+-commutative69.7%
*-commutative69.7%
fma-def69.7%
associate-/l*73.4%
associate-*r/73.4%
*-commutative73.4%
*-rgt-identity73.4%
associate-*r/73.4%
associate-*l*73.4%
associate-*r/73.4%
metadata-eval73.4%
associate-/l*73.4%
associate-*r/73.4%
Simplified73.4%
Final simplification80.3%
(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(Float64(-b) / 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 76.2%
div-inv76.1%
*-commutative76.1%
*-commutative76.1%
*-commutative76.1%
Applied egg-rr76.1%
Taylor expanded in b around inf 67.9%
+-commutative67.9%
*-commutative67.9%
fma-def67.9%
associate-/l*70.5%
associate-*r/70.5%
*-commutative70.5%
*-rgt-identity70.5%
associate-*r/70.5%
associate-*l*70.5%
associate-*r/70.5%
metadata-eval70.5%
associate-/l*70.5%
associate-*r/70.5%
Simplified70.5%
Taylor expanded in c around inf 39.5%
Taylor expanded in b around -inf 38.8%
neg-mul-169.9%
distribute-neg-frac69.9%
Simplified38.8%
Final simplification38.8%
(FPCore (a b c) :precision binary64 (if (>= b 0.0) (/ (- c) b) (/ (- b) a)))
double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = -c / 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 / 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 / b;
} else {
tmp = -b / a;
}
return tmp;
}
def code(a, b, c): tmp = 0 if b >= 0.0: tmp = -c / b else: tmp = -b / a return tmp
function code(a, b, c) tmp = 0.0 if (b >= 0.0) tmp = Float64(Float64(-c) / b); else tmp = Float64(Float64(-b) / a); end return tmp end
function tmp_2 = code(a, b, c) tmp = 0.0; if (b >= 0.0) tmp = -c / b; else tmp = -b / a; end tmp_2 = tmp; end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[((-c) / b), $MachinePrecision], N[((-b) / a), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \geq 0:\\
\;\;\;\;\frac{-c}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{-b}{a}\\
\end{array}
\end{array}
Initial program 76.2%
div-inv76.1%
*-commutative76.1%
*-commutative76.1%
*-commutative76.1%
Applied egg-rr76.1%
Taylor expanded in b around inf 67.9%
+-commutative67.9%
*-commutative67.9%
fma-def67.9%
associate-/l*70.5%
associate-*r/70.5%
*-commutative70.5%
*-rgt-identity70.5%
associate-*r/70.5%
associate-*l*70.5%
associate-*r/70.5%
metadata-eval70.5%
associate-/l*70.5%
associate-*r/70.5%
Simplified70.5%
Taylor expanded in c around 0 70.7%
associate-*r/70.7%
neg-mul-170.7%
Simplified70.7%
Taylor expanded in b around -inf 69.9%
neg-mul-169.9%
distribute-neg-frac69.9%
Simplified69.9%
Final simplification69.9%
herbie shell --seed 2023274
(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))))