
(FPCore (x y z t a b c i) :precision binary64 (+ (+ (+ (* x y) (* z t)) (* a b)) (* c i)))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
return (((x * y) + (z * t)) + (a * b)) + (c * i);
}
real(8) function code(x, y, z, t, a, b, c, i)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
code = (((x * y) + (z * t)) + (a * b)) + (c * i)
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i) {
return (((x * y) + (z * t)) + (a * b)) + (c * i);
}
def code(x, y, z, t, a, b, c, i): return (((x * y) + (z * t)) + (a * b)) + (c * i)
function code(x, y, z, t, a, b, c, i) return Float64(Float64(Float64(Float64(x * y) + Float64(z * t)) + Float64(a * b)) + Float64(c * i)) end
function tmp = code(x, y, z, t, a, b, c, i) tmp = (((x * y) + (z * t)) + (a * b)) + (c * i); end
code[x_, y_, z_, t_, a_, b_, c_, i_] := N[(N[(N[(N[(x * y), $MachinePrecision] + N[(z * t), $MachinePrecision]), $MachinePrecision] + N[(a * b), $MachinePrecision]), $MachinePrecision] + N[(c * i), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(x \cdot y + z \cdot t\right) + a \cdot b\right) + c \cdot i
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 11 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a b c i) :precision binary64 (+ (+ (+ (* x y) (* z t)) (* a b)) (* c i)))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
return (((x * y) + (z * t)) + (a * b)) + (c * i);
}
real(8) function code(x, y, z, t, a, b, c, i)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
code = (((x * y) + (z * t)) + (a * b)) + (c * i)
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i) {
return (((x * y) + (z * t)) + (a * b)) + (c * i);
}
def code(x, y, z, t, a, b, c, i): return (((x * y) + (z * t)) + (a * b)) + (c * i)
function code(x, y, z, t, a, b, c, i) return Float64(Float64(Float64(Float64(x * y) + Float64(z * t)) + Float64(a * b)) + Float64(c * i)) end
function tmp = code(x, y, z, t, a, b, c, i) tmp = (((x * y) + (z * t)) + (a * b)) + (c * i); end
code[x_, y_, z_, t_, a_, b_, c_, i_] := N[(N[(N[(N[(x * y), $MachinePrecision] + N[(z * t), $MachinePrecision]), $MachinePrecision] + N[(a * b), $MachinePrecision]), $MachinePrecision] + N[(c * i), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(x \cdot y + z \cdot t\right) + a \cdot b\right) + c \cdot i
\end{array}
(FPCore (x y z t a b c i) :precision binary64 (let* ((t_1 (+ (+ (+ (* x y) (* z t)) (* a b)) (* c i)))) (if (<= t_1 INFINITY) t_1 (fma a b (fma c i (* x y))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double t_1 = (((x * y) + (z * t)) + (a * b)) + (c * i);
double tmp;
if (t_1 <= ((double) INFINITY)) {
tmp = t_1;
} else {
tmp = fma(a, b, fma(c, i, (x * y)));
}
return tmp;
}
function code(x, y, z, t, a, b, c, i) t_1 = Float64(Float64(Float64(Float64(x * y) + Float64(z * t)) + Float64(a * b)) + Float64(c * i)) tmp = 0.0 if (t_1 <= Inf) tmp = t_1; else tmp = fma(a, b, fma(c, i, Float64(x * y))); end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_] := Block[{t$95$1 = N[(N[(N[(N[(x * y), $MachinePrecision] + N[(z * t), $MachinePrecision]), $MachinePrecision] + N[(a * b), $MachinePrecision]), $MachinePrecision] + N[(c * i), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, Infinity], t$95$1, N[(a * b + N[(c * i + N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(\left(x \cdot y + z \cdot t\right) + a \cdot b\right) + c \cdot i\\
\mathbf{if}\;t\_1 \leq \infty:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(a, b, \mathsf{fma}\left(c, i, x \cdot y\right)\right)\\
\end{array}
\end{array}
if (+.f64 (+.f64 (+.f64 (*.f64 x y) (*.f64 z t)) (*.f64 a b)) (*.f64 c i)) < +inf.0Initial program 100.0%
if +inf.0 < (+.f64 (+.f64 (+.f64 (*.f64 x y) (*.f64 z t)) (*.f64 a b)) (*.f64 c i)) Initial program 0.0%
Taylor expanded in z around 0
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6455.6
Simplified55.6%
(FPCore (x y z t a b c i)
:precision binary64
(let* ((t_1 (fma a b (* z t))))
(if (<= (* z t) -5e+86)
t_1
(if (<= (* z t) 1e+186) (fma a b (fma c i (* x y))) t_1))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double t_1 = fma(a, b, (z * t));
double tmp;
if ((z * t) <= -5e+86) {
tmp = t_1;
} else if ((z * t) <= 1e+186) {
tmp = fma(a, b, fma(c, i, (x * y)));
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t, a, b, c, i) t_1 = fma(a, b, Float64(z * t)) tmp = 0.0 if (Float64(z * t) <= -5e+86) tmp = t_1; elseif (Float64(z * t) <= 1e+186) tmp = fma(a, b, fma(c, i, Float64(x * y))); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_] := Block[{t$95$1 = N[(a * b + N[(z * t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(z * t), $MachinePrecision], -5e+86], t$95$1, If[LessEqual[N[(z * t), $MachinePrecision], 1e+186], N[(a * b + N[(c * i + N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(a, b, z \cdot t\right)\\
\mathbf{if}\;z \cdot t \leq -5 \cdot 10^{+86}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \cdot t \leq 10^{+186}:\\
\;\;\;\;\mathsf{fma}\left(a, b, \mathsf{fma}\left(c, i, x \cdot y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (*.f64 z t) < -4.9999999999999998e86 or 9.9999999999999998e185 < (*.f64 z t) Initial program 91.0%
Taylor expanded in x around 0
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6491.1
Simplified91.1%
Taylor expanded in c around 0
accelerator-lowering-fma.f64N/A
*-lowering-*.f6484.9
Simplified84.9%
if -4.9999999999999998e86 < (*.f64 z t) < 9.9999999999999998e185Initial program 98.9%
Taylor expanded in z around 0
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6491.0
Simplified91.0%
Final simplification89.2%
(FPCore (x y z t a b c i) :precision binary64 (let* ((t_1 (fma a b (* z t)))) (if (<= (* z t) -5e+86) t_1 (if (<= (* z t) 2e+85) (fma i c (* a b)) t_1))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double t_1 = fma(a, b, (z * t));
double tmp;
if ((z * t) <= -5e+86) {
tmp = t_1;
} else if ((z * t) <= 2e+85) {
tmp = fma(i, c, (a * b));
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t, a, b, c, i) t_1 = fma(a, b, Float64(z * t)) tmp = 0.0 if (Float64(z * t) <= -5e+86) tmp = t_1; elseif (Float64(z * t) <= 2e+85) tmp = fma(i, c, Float64(a * b)); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_] := Block[{t$95$1 = N[(a * b + N[(z * t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(z * t), $MachinePrecision], -5e+86], t$95$1, If[LessEqual[N[(z * t), $MachinePrecision], 2e+85], N[(i * c + N[(a * b), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(a, b, z \cdot t\right)\\
\mathbf{if}\;z \cdot t \leq -5 \cdot 10^{+86}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \cdot t \leq 2 \cdot 10^{+85}:\\
\;\;\;\;\mathsf{fma}\left(i, c, a \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (*.f64 z t) < -4.9999999999999998e86 or 2e85 < (*.f64 z t) Initial program 92.4%
Taylor expanded in x around 0
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6487.3
Simplified87.3%
Taylor expanded in c around 0
accelerator-lowering-fma.f64N/A
*-lowering-*.f6478.9
Simplified78.9%
if -4.9999999999999998e86 < (*.f64 z t) < 2e85Initial program 98.8%
Taylor expanded in a around inf
*-lowering-*.f6464.6
Simplified64.6%
+-commutativeN/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6465.2
Applied egg-rr65.2%
Final simplification70.2%
(FPCore (x y z t a b c i) :precision binary64 (if (<= (* c i) -8e+86) (* c i) (if (<= (* c i) 2.8e+190) (fma a b (* z t)) (* c i))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if ((c * i) <= -8e+86) {
tmp = c * i;
} else if ((c * i) <= 2.8e+190) {
tmp = fma(a, b, (z * t));
} else {
tmp = c * i;
}
return tmp;
}
function code(x, y, z, t, a, b, c, i) tmp = 0.0 if (Float64(c * i) <= -8e+86) tmp = Float64(c * i); elseif (Float64(c * i) <= 2.8e+190) tmp = fma(a, b, Float64(z * t)); else tmp = Float64(c * i); end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_] := If[LessEqual[N[(c * i), $MachinePrecision], -8e+86], N[(c * i), $MachinePrecision], If[LessEqual[N[(c * i), $MachinePrecision], 2.8e+190], N[(a * b + N[(z * t), $MachinePrecision]), $MachinePrecision], N[(c * i), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;c \cdot i \leq -8 \cdot 10^{+86}:\\
\;\;\;\;c \cdot i\\
\mathbf{elif}\;c \cdot i \leq 2.8 \cdot 10^{+190}:\\
\;\;\;\;\mathsf{fma}\left(a, b, z \cdot t\right)\\
\mathbf{else}:\\
\;\;\;\;c \cdot i\\
\end{array}
\end{array}
if (*.f64 c i) < -8.0000000000000001e86 or 2.79999999999999997e190 < (*.f64 c i) Initial program 92.3%
Taylor expanded in c around inf
*-lowering-*.f6478.7
Simplified78.7%
if -8.0000000000000001e86 < (*.f64 c i) < 2.79999999999999997e190Initial program 97.9%
Taylor expanded in x around 0
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6473.0
Simplified73.0%
Taylor expanded in c around 0
accelerator-lowering-fma.f64N/A
*-lowering-*.f6462.9
Simplified62.9%
Final simplification66.9%
(FPCore (x y z t a b c i)
:precision binary64
(if (<= t -7.5e-48)
(fma t z (* c i))
(if (<= t 1.48e-87)
(fma i c (* a b))
(if (<= t 2.5e+102) (fma i c (* x y)) (fma a b (* z t))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if (t <= -7.5e-48) {
tmp = fma(t, z, (c * i));
} else if (t <= 1.48e-87) {
tmp = fma(i, c, (a * b));
} else if (t <= 2.5e+102) {
tmp = fma(i, c, (x * y));
} else {
tmp = fma(a, b, (z * t));
}
return tmp;
}
function code(x, y, z, t, a, b, c, i) tmp = 0.0 if (t <= -7.5e-48) tmp = fma(t, z, Float64(c * i)); elseif (t <= 1.48e-87) tmp = fma(i, c, Float64(a * b)); elseif (t <= 2.5e+102) tmp = fma(i, c, Float64(x * y)); else tmp = fma(a, b, Float64(z * t)); end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_] := If[LessEqual[t, -7.5e-48], N[(t * z + N[(c * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 1.48e-87], N[(i * c + N[(a * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 2.5e+102], N[(i * c + N[(x * y), $MachinePrecision]), $MachinePrecision], N[(a * b + N[(z * t), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -7.5 \cdot 10^{-48}:\\
\;\;\;\;\mathsf{fma}\left(t, z, c \cdot i\right)\\
\mathbf{elif}\;t \leq 1.48 \cdot 10^{-87}:\\
\;\;\;\;\mathsf{fma}\left(i, c, a \cdot b\right)\\
\mathbf{elif}\;t \leq 2.5 \cdot 10^{+102}:\\
\;\;\;\;\mathsf{fma}\left(i, c, x \cdot y\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(a, b, z \cdot t\right)\\
\end{array}
\end{array}
if t < -7.50000000000000042e-48Initial program 96.4%
Taylor expanded in x around 0
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6482.4
Simplified82.4%
Taylor expanded in a around 0
+-commutativeN/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6463.8
Simplified63.8%
if -7.50000000000000042e-48 < t < 1.4799999999999999e-87Initial program 98.9%
Taylor expanded in a around inf
*-lowering-*.f6467.5
Simplified67.5%
+-commutativeN/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6468.7
Applied egg-rr68.7%
if 1.4799999999999999e-87 < t < 2.5e102Initial program 100.0%
Taylor expanded in x around inf
*-lowering-*.f6463.2
Simplified63.2%
+-commutativeN/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6463.3
Applied egg-rr63.3%
if 2.5e102 < t Initial program 87.5%
Taylor expanded in x around 0
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6482.9
Simplified82.9%
Taylor expanded in c around 0
accelerator-lowering-fma.f64N/A
*-lowering-*.f6468.2
Simplified68.2%
Final simplification66.2%
(FPCore (x y z t a b c i)
:precision binary64
(if (<= t -4000000000.0)
(* z t)
(if (<= t 1.4e-87)
(fma i c (* a b))
(if (<= t 2.25e+101) (fma i c (* x y)) (fma a b (* z t))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if (t <= -4000000000.0) {
tmp = z * t;
} else if (t <= 1.4e-87) {
tmp = fma(i, c, (a * b));
} else if (t <= 2.25e+101) {
tmp = fma(i, c, (x * y));
} else {
tmp = fma(a, b, (z * t));
}
return tmp;
}
function code(x, y, z, t, a, b, c, i) tmp = 0.0 if (t <= -4000000000.0) tmp = Float64(z * t); elseif (t <= 1.4e-87) tmp = fma(i, c, Float64(a * b)); elseif (t <= 2.25e+101) tmp = fma(i, c, Float64(x * y)); else tmp = fma(a, b, Float64(z * t)); end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_] := If[LessEqual[t, -4000000000.0], N[(z * t), $MachinePrecision], If[LessEqual[t, 1.4e-87], N[(i * c + N[(a * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 2.25e+101], N[(i * c + N[(x * y), $MachinePrecision]), $MachinePrecision], N[(a * b + N[(z * t), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -4000000000:\\
\;\;\;\;z \cdot t\\
\mathbf{elif}\;t \leq 1.4 \cdot 10^{-87}:\\
\;\;\;\;\mathsf{fma}\left(i, c, a \cdot b\right)\\
\mathbf{elif}\;t \leq 2.25 \cdot 10^{+101}:\\
\;\;\;\;\mathsf{fma}\left(i, c, x \cdot y\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(a, b, z \cdot t\right)\\
\end{array}
\end{array}
if t < -4e9Initial program 95.6%
Taylor expanded in z around inf
*-lowering-*.f6448.8
Simplified48.8%
if -4e9 < t < 1.4e-87Initial program 99.1%
Taylor expanded in a around inf
*-lowering-*.f6464.9
Simplified64.9%
+-commutativeN/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6465.8
Applied egg-rr65.8%
if 1.4e-87 < t < 2.2500000000000001e101Initial program 100.0%
Taylor expanded in x around inf
*-lowering-*.f6463.2
Simplified63.2%
+-commutativeN/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6463.3
Applied egg-rr63.3%
if 2.2500000000000001e101 < t Initial program 87.5%
Taylor expanded in x around 0
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6482.9
Simplified82.9%
Taylor expanded in c around 0
accelerator-lowering-fma.f64N/A
*-lowering-*.f6468.2
Simplified68.2%
Final simplification61.3%
(FPCore (x y z t a b c i)
:precision binary64
(if (<= t -1.4e-44)
(fma t z (* c i))
(if (<= t 7.2e+101)
(fma a b (fma c i (* x y)))
(fma c i (fma a b (* z t))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if (t <= -1.4e-44) {
tmp = fma(t, z, (c * i));
} else if (t <= 7.2e+101) {
tmp = fma(a, b, fma(c, i, (x * y)));
} else {
tmp = fma(c, i, fma(a, b, (z * t)));
}
return tmp;
}
function code(x, y, z, t, a, b, c, i) tmp = 0.0 if (t <= -1.4e-44) tmp = fma(t, z, Float64(c * i)); elseif (t <= 7.2e+101) tmp = fma(a, b, fma(c, i, Float64(x * y))); else tmp = fma(c, i, fma(a, b, Float64(z * t))); end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_] := If[LessEqual[t, -1.4e-44], N[(t * z + N[(c * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 7.2e+101], N[(a * b + N[(c * i + N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(c * i + N[(a * b + N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -1.4 \cdot 10^{-44}:\\
\;\;\;\;\mathsf{fma}\left(t, z, c \cdot i\right)\\
\mathbf{elif}\;t \leq 7.2 \cdot 10^{+101}:\\
\;\;\;\;\mathsf{fma}\left(a, b, \mathsf{fma}\left(c, i, x \cdot y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(c, i, \mathsf{fma}\left(a, b, z \cdot t\right)\right)\\
\end{array}
\end{array}
if t < -1.4e-44Initial program 96.4%
Taylor expanded in x around 0
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6482.4
Simplified82.4%
Taylor expanded in a around 0
+-commutativeN/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6463.8
Simplified63.8%
if -1.4e-44 < t < 7.20000000000000058e101Initial program 99.2%
Taylor expanded in z around 0
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6487.2
Simplified87.2%
if 7.20000000000000058e101 < t Initial program 87.5%
Taylor expanded in x around 0
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
accelerator-lowering-fma.f64N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f6482.9
Simplified82.9%
Final simplification78.9%
(FPCore (x y z t a b c i) :precision binary64 (if (<= (* c i) -6.6e-128) (* c i) (if (<= (* c i) 1.95e+188) (* a b) (* c i))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if ((c * i) <= -6.6e-128) {
tmp = c * i;
} else if ((c * i) <= 1.95e+188) {
tmp = a * b;
} else {
tmp = c * i;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8) :: tmp
if ((c * i) <= (-6.6d-128)) then
tmp = c * i
else if ((c * i) <= 1.95d+188) then
tmp = a * b
else
tmp = c * i
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if ((c * i) <= -6.6e-128) {
tmp = c * i;
} else if ((c * i) <= 1.95e+188) {
tmp = a * b;
} else {
tmp = c * i;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i): tmp = 0 if (c * i) <= -6.6e-128: tmp = c * i elif (c * i) <= 1.95e+188: tmp = a * b else: tmp = c * i return tmp
function code(x, y, z, t, a, b, c, i) tmp = 0.0 if (Float64(c * i) <= -6.6e-128) tmp = Float64(c * i); elseif (Float64(c * i) <= 1.95e+188) tmp = Float64(a * b); else tmp = Float64(c * i); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i) tmp = 0.0; if ((c * i) <= -6.6e-128) tmp = c * i; elseif ((c * i) <= 1.95e+188) tmp = a * b; else tmp = c * i; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_] := If[LessEqual[N[(c * i), $MachinePrecision], -6.6e-128], N[(c * i), $MachinePrecision], If[LessEqual[N[(c * i), $MachinePrecision], 1.95e+188], N[(a * b), $MachinePrecision], N[(c * i), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;c \cdot i \leq -6.6 \cdot 10^{-128}:\\
\;\;\;\;c \cdot i\\
\mathbf{elif}\;c \cdot i \leq 1.95 \cdot 10^{+188}:\\
\;\;\;\;a \cdot b\\
\mathbf{else}:\\
\;\;\;\;c \cdot i\\
\end{array}
\end{array}
if (*.f64 c i) < -6.6e-128 or 1.95e188 < (*.f64 c i) Initial program 94.6%
Taylor expanded in c around inf
*-lowering-*.f6456.4
Simplified56.4%
if -6.6e-128 < (*.f64 c i) < 1.95e188Initial program 97.9%
Taylor expanded in a around inf
*-lowering-*.f6435.3
Simplified35.3%
(FPCore (x y z t a b c i) :precision binary64 (if (<= t -25000000.0) (* z t) (if (<= t 1.3e-112) (* c i) (if (<= t 2.4e+103) (* x y) (* z t)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if (t <= -25000000.0) {
tmp = z * t;
} else if (t <= 1.3e-112) {
tmp = c * i;
} else if (t <= 2.4e+103) {
tmp = x * y;
} else {
tmp = z * t;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8) :: tmp
if (t <= (-25000000.0d0)) then
tmp = z * t
else if (t <= 1.3d-112) then
tmp = c * i
else if (t <= 2.4d+103) then
tmp = x * y
else
tmp = z * t
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if (t <= -25000000.0) {
tmp = z * t;
} else if (t <= 1.3e-112) {
tmp = c * i;
} else if (t <= 2.4e+103) {
tmp = x * y;
} else {
tmp = z * t;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i): tmp = 0 if t <= -25000000.0: tmp = z * t elif t <= 1.3e-112: tmp = c * i elif t <= 2.4e+103: tmp = x * y else: tmp = z * t return tmp
function code(x, y, z, t, a, b, c, i) tmp = 0.0 if (t <= -25000000.0) tmp = Float64(z * t); elseif (t <= 1.3e-112) tmp = Float64(c * i); elseif (t <= 2.4e+103) tmp = Float64(x * y); else tmp = Float64(z * t); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i) tmp = 0.0; if (t <= -25000000.0) tmp = z * t; elseif (t <= 1.3e-112) tmp = c * i; elseif (t <= 2.4e+103) tmp = x * y; else tmp = z * t; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_] := If[LessEqual[t, -25000000.0], N[(z * t), $MachinePrecision], If[LessEqual[t, 1.3e-112], N[(c * i), $MachinePrecision], If[LessEqual[t, 2.4e+103], N[(x * y), $MachinePrecision], N[(z * t), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -25000000:\\
\;\;\;\;z \cdot t\\
\mathbf{elif}\;t \leq 1.3 \cdot 10^{-112}:\\
\;\;\;\;c \cdot i\\
\mathbf{elif}\;t \leq 2.4 \cdot 10^{+103}:\\
\;\;\;\;x \cdot y\\
\mathbf{else}:\\
\;\;\;\;z \cdot t\\
\end{array}
\end{array}
if t < -2.5e7 or 2.3999999999999998e103 < t Initial program 92.6%
Taylor expanded in z around inf
*-lowering-*.f6451.6
Simplified51.6%
if -2.5e7 < t < 1.29999999999999996e-112Initial program 99.0%
Taylor expanded in c around inf
*-lowering-*.f6438.4
Simplified38.4%
if 1.29999999999999996e-112 < t < 2.3999999999999998e103Initial program 100.0%
Taylor expanded in x around inf
*-lowering-*.f6440.5
Simplified40.5%
Final simplification44.3%
(FPCore (x y z t a b c i) :precision binary64 (if (<= t -980000000.0) (* z t) (if (<= t 5.5e+136) (* c i) (* z t))))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if (t <= -980000000.0) {
tmp = z * t;
} else if (t <= 5.5e+136) {
tmp = c * i;
} else {
tmp = z * t;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8) :: tmp
if (t <= (-980000000.0d0)) then
tmp = z * t
else if (t <= 5.5d+136) then
tmp = c * i
else
tmp = z * t
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double tmp;
if (t <= -980000000.0) {
tmp = z * t;
} else if (t <= 5.5e+136) {
tmp = c * i;
} else {
tmp = z * t;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i): tmp = 0 if t <= -980000000.0: tmp = z * t elif t <= 5.5e+136: tmp = c * i else: tmp = z * t return tmp
function code(x, y, z, t, a, b, c, i) tmp = 0.0 if (t <= -980000000.0) tmp = Float64(z * t); elseif (t <= 5.5e+136) tmp = Float64(c * i); else tmp = Float64(z * t); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i) tmp = 0.0; if (t <= -980000000.0) tmp = z * t; elseif (t <= 5.5e+136) tmp = c * i; else tmp = z * t; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_] := If[LessEqual[t, -980000000.0], N[(z * t), $MachinePrecision], If[LessEqual[t, 5.5e+136], N[(c * i), $MachinePrecision], N[(z * t), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -980000000:\\
\;\;\;\;z \cdot t\\
\mathbf{elif}\;t \leq 5.5 \cdot 10^{+136}:\\
\;\;\;\;c \cdot i\\
\mathbf{else}:\\
\;\;\;\;z \cdot t\\
\end{array}
\end{array}
if t < -9.8e8 or 5.50000000000000039e136 < t Initial program 93.2%
Taylor expanded in z around inf
*-lowering-*.f6452.1
Simplified52.1%
if -9.8e8 < t < 5.50000000000000039e136Initial program 98.7%
Taylor expanded in c around inf
*-lowering-*.f6433.6
Simplified33.6%
Final simplification41.0%
(FPCore (x y z t a b c i) :precision binary64 (* a b))
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
return a * b;
}
real(8) function code(x, y, z, t, a, b, c, i)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
code = a * b
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i) {
return a * b;
}
def code(x, y, z, t, a, b, c, i): return a * b
function code(x, y, z, t, a, b, c, i) return Float64(a * b) end
function tmp = code(x, y, z, t, a, b, c, i) tmp = a * b; end
code[x_, y_, z_, t_, a_, b_, c_, i_] := N[(a * b), $MachinePrecision]
\begin{array}{l}
\\
a \cdot b
\end{array}
Initial program 96.5%
Taylor expanded in a around inf
*-lowering-*.f6425.5
Simplified25.5%
herbie shell --seed 2024195
(FPCore (x y z t a b c i)
:name "Linear.V4:$cdot from linear-1.19.1.3, C"
:precision binary64
(+ (+ (+ (* x y) (* z t)) (* a b)) (* c i)))