
(FPCore (x.re x.im y.re y.im) :precision binary64 (- (* x.re y.re) (* x.im y.im)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return (x_46_re * y_46_re) - (x_46_im * y_46_im);
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
code = (x_46re * y_46re) - (x_46im * y_46im)
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return (x_46_re * y_46_re) - (x_46_im * y_46_im);
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): return (x_46_re * y_46_re) - (x_46_im * y_46_im)
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(Float64(x_46_re * y_46_re) - Float64(x_46_im * y_46_im)) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = (x_46_re * y_46_re) - (x_46_im * y_46_im); end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(N[(x$46$re * y$46$re), $MachinePrecision] - N[(x$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x.re \cdot y.re - x.im \cdot y.im
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 6 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x.re x.im y.re y.im) :precision binary64 (- (* x.re y.re) (* x.im y.im)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return (x_46_re * y_46_re) - (x_46_im * y_46_im);
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
code = (x_46re * y_46re) - (x_46im * y_46im)
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return (x_46_re * y_46_re) - (x_46_im * y_46_im);
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): return (x_46_re * y_46_re) - (x_46_im * y_46_im)
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(Float64(x_46_re * y_46_re) - Float64(x_46_im * y_46_im)) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = (x_46_re * y_46_re) - (x_46_im * y_46_im); end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(N[(x$46$re * y$46$re), $MachinePrecision] - N[(x$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x.re \cdot y.re - x.im \cdot y.im
\end{array}
(FPCore (x.re x.im y.re y.im) :precision binary64 (fma (- y.im) x.im (* x.re y.re)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return fma(-y_46_im, x_46_im, (x_46_re * y_46_re));
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) return fma(Float64(-y_46_im), x_46_im, Float64(x_46_re * y_46_re)) end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[((-y$46$im) * x$46$im + N[(x$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(-y.im, x.im, x.re \cdot y.re\right)
\end{array}
Initial program 99.6%
lift--.f64N/A
sub-negN/A
+-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64100.0
lift-*.f64N/A
*-commutativeN/A
lower-*.f64100.0
Applied rewrites100.0%
Final simplification100.0%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (* (- x.im) y.im)))
(if (<= (* x.im y.im) -2e-40)
t_0
(if (<= (* x.im y.im) 5e-135) (* x.re y.re) t_0))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = -x_46_im * y_46_im;
double tmp;
if ((x_46_im * y_46_im) <= -2e-40) {
tmp = t_0;
} else if ((x_46_im * y_46_im) <= 5e-135) {
tmp = x_46_re * y_46_re;
} else {
tmp = t_0;
}
return tmp;
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
real(8) :: t_0
real(8) :: tmp
t_0 = -x_46im * y_46im
if ((x_46im * y_46im) <= (-2d-40)) then
tmp = t_0
else if ((x_46im * y_46im) <= 5d-135) then
tmp = x_46re * y_46re
else
tmp = t_0
end if
code = tmp
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = -x_46_im * y_46_im;
double tmp;
if ((x_46_im * y_46_im) <= -2e-40) {
tmp = t_0;
} else if ((x_46_im * y_46_im) <= 5e-135) {
tmp = x_46_re * y_46_re;
} else {
tmp = t_0;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = -x_46_im * y_46_im tmp = 0 if (x_46_im * y_46_im) <= -2e-40: tmp = t_0 elif (x_46_im * y_46_im) <= 5e-135: tmp = x_46_re * y_46_re else: tmp = t_0 return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(Float64(-x_46_im) * y_46_im) tmp = 0.0 if (Float64(x_46_im * y_46_im) <= -2e-40) tmp = t_0; elseif (Float64(x_46_im * y_46_im) <= 5e-135) tmp = Float64(x_46_re * y_46_re); else tmp = t_0; end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = -x_46_im * y_46_im; tmp = 0.0; if ((x_46_im * y_46_im) <= -2e-40) tmp = t_0; elseif ((x_46_im * y_46_im) <= 5e-135) tmp = x_46_re * y_46_re; else tmp = t_0; end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[((-x$46$im) * y$46$im), $MachinePrecision]}, If[LessEqual[N[(x$46$im * y$46$im), $MachinePrecision], -2e-40], t$95$0, If[LessEqual[N[(x$46$im * y$46$im), $MachinePrecision], 5e-135], N[(x$46$re * y$46$re), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(-x.im\right) \cdot y.im\\
\mathbf{if}\;x.im \cdot y.im \leq -2 \cdot 10^{-40}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \cdot y.im \leq 5 \cdot 10^{-135}:\\
\;\;\;\;x.re \cdot y.re\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if (*.f64 x.im y.im) < -1.9999999999999999e-40 or 5.0000000000000002e-135 < (*.f64 x.im y.im) Initial program 99.3%
Taylor expanded in x.re around 0
associate-*r*N/A
lower-*.f64N/A
mul-1-negN/A
lower-neg.f6476.2
Applied rewrites76.2%
if -1.9999999999999999e-40 < (*.f64 x.im y.im) < 5.0000000000000002e-135Initial program 100.0%
Taylor expanded in x.re around 0
associate-*r*N/A
lower-*.f64N/A
mul-1-negN/A
lower-neg.f6414.5
Applied rewrites14.5%
Applied rewrites3.6%
Taylor expanded in x.re around inf
*-commutativeN/A
lower-*.f6488.8
Applied rewrites88.8%
Final simplification81.2%
(FPCore (x.re x.im y.re y.im) :precision binary64 (fma y.re x.re (* (- x.im) y.im)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return fma(y_46_re, x_46_re, (-x_46_im * y_46_im));
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) return fma(y_46_re, x_46_re, Float64(Float64(-x_46_im) * y_46_im)) end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(y$46$re * x$46$re + N[((-x$46$im) * y$46$im), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(y.re, x.re, \left(-x.im\right) \cdot y.im\right)
\end{array}
Initial program 99.6%
lift--.f64N/A
sub-negN/A
lift-*.f64N/A
*-commutativeN/A
lower-fma.f64N/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-*.f64N/A
lower-neg.f6499.6
Applied rewrites99.6%
Final simplification99.6%
(FPCore (x.re x.im y.re y.im) :precision binary64 (- (* x.re y.re) (* x.im y.im)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return (x_46_re * y_46_re) - (x_46_im * y_46_im);
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
code = (x_46re * y_46re) - (x_46im * y_46im)
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return (x_46_re * y_46_re) - (x_46_im * y_46_im);
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): return (x_46_re * y_46_re) - (x_46_im * y_46_im)
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(Float64(x_46_re * y_46_re) - Float64(x_46_im * y_46_im)) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = (x_46_re * y_46_re) - (x_46_im * y_46_im); end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(N[(x$46$re * y$46$re), $MachinePrecision] - N[(x$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x.re \cdot y.re - x.im \cdot y.im
\end{array}
Initial program 99.6%
(FPCore (x.re x.im y.re y.im) :precision binary64 (* x.re y.re))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return x_46_re * y_46_re;
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
code = x_46re * y_46re
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return x_46_re * y_46_re;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): return x_46_re * y_46_re
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(x_46_re * y_46_re) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = x_46_re * y_46_re; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(x$46$re * y$46$re), $MachinePrecision]
\begin{array}{l}
\\
x.re \cdot y.re
\end{array}
Initial program 99.6%
Taylor expanded in x.re around 0
associate-*r*N/A
lower-*.f64N/A
mul-1-negN/A
lower-neg.f6451.6
Applied rewrites51.6%
Applied rewrites2.6%
Taylor expanded in x.re around inf
*-commutativeN/A
lower-*.f6452.3
Applied rewrites52.3%
Final simplification52.3%
(FPCore (x.re x.im y.re y.im) :precision binary64 (* x.im y.im))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return x_46_im * y_46_im;
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
code = x_46im * y_46im
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return x_46_im * y_46_im;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): return x_46_im * y_46_im
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(x_46_im * y_46_im) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = x_46_im * y_46_im; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(x$46$im * y$46$im), $MachinePrecision]
\begin{array}{l}
\\
x.im \cdot y.im
\end{array}
Initial program 99.6%
Taylor expanded in x.re around 0
associate-*r*N/A
lower-*.f64N/A
mul-1-negN/A
lower-neg.f6451.6
Applied rewrites51.6%
Applied rewrites2.6%
Final simplification2.6%
herbie shell --seed 2024285
(FPCore (x.re x.im y.re y.im)
:name "_multiplyComplex, real part"
:precision binary64
(- (* x.re y.re) (* x.im y.im)))