
(FPCore (x.re x.im y.re y.im) :precision binary64 (/ (- (* x.im y.re) (* x.re y.im)) (+ (* y.re y.re) (* y.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_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_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_46re) - (x_46re * y_46im)) / ((y_46re * y_46re) + (y_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_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_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_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im))
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(Float64(Float64(x_46_im * y_46_re) - Float64(x_46_re * y_46_im)) / Float64(Float64(y_46_re * y_46_re) + Float64(y_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_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im)); end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] - N[(x$46$re * y$46$im), $MachinePrecision]), $MachinePrecision] / N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x.re x.im y.re y.im) :precision binary64 (/ (- (* x.im y.re) (* x.re y.im)) (+ (* y.re y.re) (* y.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_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_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_46re) - (x_46re * y_46im)) / ((y_46re * y_46re) + (y_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_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_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_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im))
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(Float64(Float64(x_46_im * y_46_re) - Float64(x_46_re * y_46_im)) / Float64(Float64(y_46_re * y_46_re) + Float64(y_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_re) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im)); end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] - N[(x$46$re * y$46$im), $MachinePrecision]), $MachinePrecision] / N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}
\end{array}
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (fma y.im y.im (* y.re y.re)))
(t_1 (fma (- x.re) (/ y.im t_0) (* (/ y.re t_0) x.im))))
(if (<= y.re -6.2e+47)
(/ (fma (- x.re) (/ y.im y.re) x.im) y.re)
(if (<= y.re -1.26e-145)
t_1
(if (<= y.re 4.25e-103)
(/ (fma (/ y.re y.im) x.im (- x.re)) y.im)
(if (<= y.re 4.2e+126)
t_1
(/ (- x.im (* y.im (/ x.re y.re))) y.re)))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = fma(y_46_im, y_46_im, (y_46_re * y_46_re));
double t_1 = fma(-x_46_re, (y_46_im / t_0), ((y_46_re / t_0) * x_46_im));
double tmp;
if (y_46_re <= -6.2e+47) {
tmp = fma(-x_46_re, (y_46_im / y_46_re), x_46_im) / y_46_re;
} else if (y_46_re <= -1.26e-145) {
tmp = t_1;
} else if (y_46_re <= 4.25e-103) {
tmp = fma((y_46_re / y_46_im), x_46_im, -x_46_re) / y_46_im;
} else if (y_46_re <= 4.2e+126) {
tmp = t_1;
} else {
tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = fma(y_46_im, y_46_im, Float64(y_46_re * y_46_re)) t_1 = fma(Float64(-x_46_re), Float64(y_46_im / t_0), Float64(Float64(y_46_re / t_0) * x_46_im)) tmp = 0.0 if (y_46_re <= -6.2e+47) tmp = Float64(fma(Float64(-x_46_re), Float64(y_46_im / y_46_re), x_46_im) / y_46_re); elseif (y_46_re <= -1.26e-145) tmp = t_1; elseif (y_46_re <= 4.25e-103) tmp = Float64(fma(Float64(y_46_re / y_46_im), x_46_im, Float64(-x_46_re)) / y_46_im); elseif (y_46_re <= 4.2e+126) tmp = t_1; else tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[(y$46$im * y$46$im + N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[((-x$46$re) * N[(y$46$im / t$95$0), $MachinePrecision] + N[(N[(y$46$re / t$95$0), $MachinePrecision] * x$46$im), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y$46$re, -6.2e+47], N[(N[((-x$46$re) * N[(y$46$im / y$46$re), $MachinePrecision] + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -1.26e-145], t$95$1, If[LessEqual[y$46$re, 4.25e-103], N[(N[(N[(y$46$re / y$46$im), $MachinePrecision] * x$46$im + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 4.2e+126], t$95$1, N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)\\
t_1 := \mathsf{fma}\left(-x.re, \frac{y.im}{t\_0}, \frac{y.re}{t\_0} \cdot x.im\right)\\
\mathbf{if}\;y.re \leq -6.2 \cdot 10^{+47}:\\
\;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\
\mathbf{elif}\;y.re \leq -1.26 \cdot 10^{-145}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 4.25 \cdot 10^{-103}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\
\mathbf{elif}\;y.re \leq 4.2 \cdot 10^{+126}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
\end{array}
\end{array}
if y.re < -6.2000000000000001e47Initial program 43.7%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6478.5
Applied rewrites78.5%
Applied rewrites91.5%
if -6.2000000000000001e47 < y.re < -1.2599999999999999e-145 or 4.25000000000000016e-103 < y.re < 4.1999999999999998e126Initial program 75.3%
lift-/.f64N/A
lift--.f64N/A
div-subN/A
sub-negN/A
+-commutativeN/A
lift-*.f64N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f64N/A
lift-*.f64N/A
associate-/l*N/A
Applied rewrites82.4%
if -1.2599999999999999e-145 < y.re < 4.25000000000000016e-103Initial program 64.4%
Taylor expanded in y.re around 0
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
unpow2N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6493.5
Applied rewrites93.5%
Applied rewrites93.5%
if 4.1999999999999998e126 < y.re Initial program 33.9%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6477.5
Applied rewrites77.5%
Applied rewrites82.9%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (<= y.re -1.1e-139)
(/ (fma (- x.re) (/ y.im y.re) x.im) y.re)
(if (<= y.re 8.1e-103)
(/ (fma (/ y.re y.im) x.im (- x.re)) y.im)
(if (<= y.re 6e+120)
(/ (fma (- y.im) x.re (* x.im y.re)) (fma y.im y.im (* y.re y.re)))
(/ (- x.im (* y.im (/ x.re y.re))) y.re)))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if (y_46_re <= -1.1e-139) {
tmp = fma(-x_46_re, (y_46_im / y_46_re), x_46_im) / y_46_re;
} else if (y_46_re <= 8.1e-103) {
tmp = fma((y_46_re / y_46_im), x_46_im, -x_46_re) / y_46_im;
} else if (y_46_re <= 6e+120) {
tmp = fma(-y_46_im, x_46_re, (x_46_im * y_46_re)) / fma(y_46_im, y_46_im, (y_46_re * y_46_re));
} else {
tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if (y_46_re <= -1.1e-139) tmp = Float64(fma(Float64(-x_46_re), Float64(y_46_im / y_46_re), x_46_im) / y_46_re); elseif (y_46_re <= 8.1e-103) tmp = Float64(fma(Float64(y_46_re / y_46_im), x_46_im, Float64(-x_46_re)) / y_46_im); elseif (y_46_re <= 6e+120) tmp = Float64(fma(Float64(-y_46_im), x_46_re, Float64(x_46_im * y_46_re)) / fma(y_46_im, y_46_im, Float64(y_46_re * y_46_re))); else tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -1.1e-139], N[(N[((-x$46$re) * N[(y$46$im / y$46$re), $MachinePrecision] + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 8.1e-103], N[(N[(N[(y$46$re / y$46$im), $MachinePrecision] * x$46$im + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 6e+120], N[(N[((-y$46$im) * x$46$re + N[(x$46$im * y$46$re), $MachinePrecision]), $MachinePrecision] / N[(y$46$im * y$46$im + N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\
\;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\
\mathbf{elif}\;y.re \leq 8.1 \cdot 10^{-103}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\
\mathbf{elif}\;y.re \leq 6 \cdot 10^{+120}:\\
\;\;\;\;\frac{\mathsf{fma}\left(-y.im, x.re, x.im \cdot y.re\right)}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
\end{array}
\end{array}
if y.re < -1.10000000000000005e-139Initial program 52.0%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6468.3
Applied rewrites68.3%
Applied rewrites75.7%
if -1.10000000000000005e-139 < y.re < 8.09999999999999979e-103Initial program 64.4%
Taylor expanded in y.re around 0
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
unpow2N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6493.5
Applied rewrites93.5%
Applied rewrites93.5%
if 8.09999999999999979e-103 < y.re < 6e120Initial program 85.4%
lift--.f64N/A
sub-negN/A
+-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f6485.4
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f6485.4
Applied rewrites85.4%
if 6e120 < y.re Initial program 33.9%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6477.5
Applied rewrites77.5%
Applied rewrites82.9%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (<= y.re -2e+30)
(/ x.im y.re)
(if (<= y.re 5.5e-99)
(/ (- x.re) y.im)
(if (<= y.re 7.6e+62)
(/ (- (* x.im y.re) (* x.re y.im)) (* y.re y.re))
(/ x.im y.re)))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if (y_46_re <= -2e+30) {
tmp = x_46_im / y_46_re;
} else if (y_46_re <= 5.5e-99) {
tmp = -x_46_re / y_46_im;
} else if (y_46_re <= 7.6e+62) {
tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / (y_46_re * y_46_re);
} else {
tmp = x_46_im / y_46_re;
}
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) :: tmp
if (y_46re <= (-2d+30)) then
tmp = x_46im / y_46re
else if (y_46re <= 5.5d-99) then
tmp = -x_46re / y_46im
else if (y_46re <= 7.6d+62) then
tmp = ((x_46im * y_46re) - (x_46re * y_46im)) / (y_46re * y_46re)
else
tmp = x_46im / y_46re
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 tmp;
if (y_46_re <= -2e+30) {
tmp = x_46_im / y_46_re;
} else if (y_46_re <= 5.5e-99) {
tmp = -x_46_re / y_46_im;
} else if (y_46_re <= 7.6e+62) {
tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / (y_46_re * y_46_re);
} else {
tmp = x_46_im / y_46_re;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if y_46_re <= -2e+30: tmp = x_46_im / y_46_re elif y_46_re <= 5.5e-99: tmp = -x_46_re / y_46_im elif y_46_re <= 7.6e+62: tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / (y_46_re * y_46_re) else: tmp = x_46_im / y_46_re return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if (y_46_re <= -2e+30) tmp = Float64(x_46_im / y_46_re); elseif (y_46_re <= 5.5e-99) tmp = Float64(Float64(-x_46_re) / y_46_im); elseif (y_46_re <= 7.6e+62) tmp = Float64(Float64(Float64(x_46_im * y_46_re) - Float64(x_46_re * y_46_im)) / Float64(y_46_re * y_46_re)); else tmp = Float64(x_46_im / y_46_re); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0; if (y_46_re <= -2e+30) tmp = x_46_im / y_46_re; elseif (y_46_re <= 5.5e-99) tmp = -x_46_re / y_46_im; elseif (y_46_re <= 7.6e+62) tmp = ((x_46_im * y_46_re) - (x_46_re * y_46_im)) / (y_46_re * y_46_re); else tmp = x_46_im / y_46_re; end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -2e+30], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 5.5e-99], N[((-x$46$re) / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 7.6e+62], N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] - N[(x$46$re * y$46$im), $MachinePrecision]), $MachinePrecision] / N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision], N[(x$46$im / y$46$re), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -2 \cdot 10^{+30}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;y.re \leq 5.5 \cdot 10^{-99}:\\
\;\;\;\;\frac{-x.re}{y.im}\\
\mathbf{elif}\;y.re \leq 7.6 \cdot 10^{+62}:\\
\;\;\;\;\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\end{array}
\end{array}
if y.re < -2e30 or 7.59999999999999967e62 < y.re Initial program 45.1%
Taylor expanded in y.re around inf
lower-/.f6471.5
Applied rewrites71.5%
if -2e30 < y.re < 5.49999999999999991e-99Initial program 64.4%
Taylor expanded in y.re around 0
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6469.3
Applied rewrites69.3%
if 5.49999999999999991e-99 < y.re < 7.59999999999999967e62Initial program 85.6%
Taylor expanded in y.re around inf
unpow2N/A
lower-*.f6467.6
Applied rewrites67.6%
Final simplification70.1%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (<= y.re -2e+30)
(/ x.im y.re)
(if (<= y.re 9.5e-101)
(/ (- x.re) y.im)
(if (<= y.re 6e+120)
(/ (* y.re x.im) (fma y.im y.im (* y.re y.re)))
(/ x.im y.re)))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if (y_46_re <= -2e+30) {
tmp = x_46_im / y_46_re;
} else if (y_46_re <= 9.5e-101) {
tmp = -x_46_re / y_46_im;
} else if (y_46_re <= 6e+120) {
tmp = (y_46_re * x_46_im) / fma(y_46_im, y_46_im, (y_46_re * y_46_re));
} else {
tmp = x_46_im / y_46_re;
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if (y_46_re <= -2e+30) tmp = Float64(x_46_im / y_46_re); elseif (y_46_re <= 9.5e-101) tmp = Float64(Float64(-x_46_re) / y_46_im); elseif (y_46_re <= 6e+120) tmp = Float64(Float64(y_46_re * x_46_im) / fma(y_46_im, y_46_im, Float64(y_46_re * y_46_re))); else tmp = Float64(x_46_im / y_46_re); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -2e+30], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 9.5e-101], N[((-x$46$re) / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 6e+120], N[(N[(y$46$re * x$46$im), $MachinePrecision] / N[(y$46$im * y$46$im + N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x$46$im / y$46$re), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -2 \cdot 10^{+30}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;y.re \leq 9.5 \cdot 10^{-101}:\\
\;\;\;\;\frac{-x.re}{y.im}\\
\mathbf{elif}\;y.re \leq 6 \cdot 10^{+120}:\\
\;\;\;\;\frac{y.re \cdot x.im}{\mathsf{fma}\left(y.im, y.im, y.re \cdot y.re\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\end{array}
\end{array}
if y.re < -2e30 or 6e120 < y.re Initial program 41.1%
Taylor expanded in y.re around inf
lower-/.f6472.1
Applied rewrites72.1%
if -2e30 < y.re < 9.49999999999999994e-101Initial program 63.8%
Taylor expanded in y.re around 0
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6469.6
Applied rewrites69.6%
if 9.49999999999999994e-101 < y.re < 6e120Initial program 85.1%
lift--.f64N/A
sub-negN/A
+-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f6485.1
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f6485.1
Applied rewrites85.1%
Taylor expanded in x.re around 0
*-commutativeN/A
lower-*.f6465.4
Applied rewrites65.4%
Final simplification69.9%
(FPCore (x.re x.im y.re y.im) :precision binary64 (if (or (<= y.re -2e+30) (not (<= y.re 2.05e-57))) (/ (- x.im (* y.im (/ x.re y.re))) y.re) (/ (- (/ (* x.im y.re) y.im) x.re) y.im)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_re <= -2e+30) || !(y_46_re <= 2.05e-57)) {
tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
} else {
tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im;
}
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) :: tmp
if ((y_46re <= (-2d+30)) .or. (.not. (y_46re <= 2.05d-57))) then
tmp = (x_46im - (y_46im * (x_46re / y_46re))) / y_46re
else
tmp = (((x_46im * y_46re) / y_46im) - x_46re) / y_46im
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 tmp;
if ((y_46_re <= -2e+30) || !(y_46_re <= 2.05e-57)) {
tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
} else {
tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if (y_46_re <= -2e+30) or not (y_46_re <= 2.05e-57): tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re else: tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if ((y_46_re <= -2e+30) || !(y_46_re <= 2.05e-57)) tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re); else tmp = Float64(Float64(Float64(Float64(x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0; if ((y_46_re <= -2e+30) || ~((y_46_re <= 2.05e-57))) tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re; else tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im; end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -2e+30], N[Not[LessEqual[y$46$re, 2.05e-57]], $MachinePrecision]], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], N[(N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision] - x$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -2 \cdot 10^{+30} \lor \neg \left(y.re \leq 2.05 \cdot 10^{-57}\right):\\
\;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}\\
\end{array}
\end{array}
if y.re < -2e30 or 2.0500000000000001e-57 < y.re Initial program 51.0%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6474.2
Applied rewrites74.2%
Applied rewrites80.7%
if -2e30 < y.re < 2.0500000000000001e-57Initial program 66.1%
Taylor expanded in y.re around 0
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
unpow2N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6483.1
Applied rewrites83.1%
Final simplification81.8%
(FPCore (x.re x.im y.re y.im) :precision binary64 (if (or (<= y.re -6e-146) (not (<= y.re 5.5e-99))) (/ (- x.im (* y.im (/ x.re y.re))) y.re) (/ (- x.re) y.im)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_re <= -6e-146) || !(y_46_re <= 5.5e-99)) {
tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
} else {
tmp = -x_46_re / y_46_im;
}
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) :: tmp
if ((y_46re <= (-6d-146)) .or. (.not. (y_46re <= 5.5d-99))) then
tmp = (x_46im - (y_46im * (x_46re / y_46re))) / y_46re
else
tmp = -x_46re / y_46im
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 tmp;
if ((y_46_re <= -6e-146) || !(y_46_re <= 5.5e-99)) {
tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
} else {
tmp = -x_46_re / y_46_im;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if (y_46_re <= -6e-146) or not (y_46_re <= 5.5e-99): tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re else: tmp = -x_46_re / y_46_im return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if ((y_46_re <= -6e-146) || !(y_46_re <= 5.5e-99)) tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re); else tmp = Float64(Float64(-x_46_re) / y_46_im); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0; if ((y_46_re <= -6e-146) || ~((y_46_re <= 5.5e-99))) tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re; else tmp = -x_46_re / y_46_im; end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -6e-146], N[Not[LessEqual[y$46$re, 5.5e-99]], $MachinePrecision]], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], N[((-x$46$re) / y$46$im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -6 \cdot 10^{-146} \lor \neg \left(y.re \leq 5.5 \cdot 10^{-99}\right):\\
\;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
\mathbf{else}:\\
\;\;\;\;\frac{-x.re}{y.im}\\
\end{array}
\end{array}
if y.re < -6.00000000000000038e-146 or 5.49999999999999991e-99 < y.re Initial program 54.6%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6470.8
Applied rewrites70.8%
Applied rewrites74.2%
if -6.00000000000000038e-146 < y.re < 5.49999999999999991e-99Initial program 65.1%
Taylor expanded in y.re around 0
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6476.8
Applied rewrites76.8%
Final simplification75.1%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (<= y.re -1.1e-139)
(/ (fma (- x.re) (/ y.im y.re) x.im) y.re)
(if (<= y.re 2.05e-57)
(/ (fma (/ y.re y.im) x.im (- x.re)) y.im)
(/ (- x.im (* y.im (/ x.re y.re))) y.re))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if (y_46_re <= -1.1e-139) {
tmp = fma(-x_46_re, (y_46_im / y_46_re), x_46_im) / y_46_re;
} else if (y_46_re <= 2.05e-57) {
tmp = fma((y_46_re / y_46_im), x_46_im, -x_46_re) / y_46_im;
} else {
tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if (y_46_re <= -1.1e-139) tmp = Float64(fma(Float64(-x_46_re), Float64(y_46_im / y_46_re), x_46_im) / y_46_re); elseif (y_46_re <= 2.05e-57) tmp = Float64(fma(Float64(y_46_re / y_46_im), x_46_im, Float64(-x_46_re)) / y_46_im); else tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -1.1e-139], N[(N[((-x$46$re) * N[(y$46$im / y$46$re), $MachinePrecision] + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.05e-57], N[(N[(N[(y$46$re / y$46$im), $MachinePrecision] * x$46$im + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\
\;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\
\mathbf{elif}\;y.re \leq 2.05 \cdot 10^{-57}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{y.re}{y.im}, x.im, -x.re\right)}{y.im}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
\end{array}
\end{array}
if y.re < -1.10000000000000005e-139Initial program 52.0%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6468.3
Applied rewrites68.3%
Applied rewrites75.7%
if -1.10000000000000005e-139 < y.re < 2.0500000000000001e-57Initial program 67.6%
Taylor expanded in y.re around 0
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
unpow2N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6491.2
Applied rewrites91.2%
Applied rewrites91.2%
if 2.0500000000000001e-57 < y.re Initial program 53.2%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6473.2
Applied rewrites73.2%
Applied rewrites76.5%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (<= y.re -1.1e-139)
(/ (fma (- x.re) (/ y.im y.re) x.im) y.re)
(if (<= y.re 2.05e-57)
(/ (- (/ (* x.im y.re) y.im) x.re) y.im)
(/ (- x.im (* y.im (/ x.re y.re))) y.re))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if (y_46_re <= -1.1e-139) {
tmp = fma(-x_46_re, (y_46_im / y_46_re), x_46_im) / y_46_re;
} else if (y_46_re <= 2.05e-57) {
tmp = (((x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im;
} else {
tmp = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if (y_46_re <= -1.1e-139) tmp = Float64(fma(Float64(-x_46_re), Float64(y_46_im / y_46_re), x_46_im) / y_46_re); elseif (y_46_re <= 2.05e-57) tmp = Float64(Float64(Float64(Float64(x_46_im * y_46_re) / y_46_im) - x_46_re) / y_46_im); else tmp = Float64(Float64(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[y$46$re, -1.1e-139], N[(N[((-x$46$re) * N[(y$46$im / y$46$re), $MachinePrecision] + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.05e-57], N[(N[(N[(N[(x$46$im * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision] - x$46$re), $MachinePrecision] / y$46$im), $MachinePrecision], N[(N[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -1.1 \cdot 10^{-139}:\\
\;\;\;\;\frac{\mathsf{fma}\left(-x.re, \frac{y.im}{y.re}, x.im\right)}{y.re}\\
\mathbf{elif}\;y.re \leq 2.05 \cdot 10^{-57}:\\
\;\;\;\;\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
\end{array}
\end{array}
if y.re < -1.10000000000000005e-139Initial program 52.0%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6468.3
Applied rewrites68.3%
Applied rewrites75.7%
if -1.10000000000000005e-139 < y.re < 2.0500000000000001e-57Initial program 67.6%
Taylor expanded in y.re around 0
+-commutativeN/A
mul-1-negN/A
unsub-negN/A
unpow2N/A
associate-/r*N/A
div-subN/A
lower-/.f64N/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6491.2
Applied rewrites91.2%
if 2.0500000000000001e-57 < y.re Initial program 53.2%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
lower-*.f6473.2
Applied rewrites73.2%
Applied rewrites76.5%
(FPCore (x.re x.im y.re y.im) :precision binary64 (if (or (<= y.re -2e+30) (not (<= y.re 6.5e-99))) (/ x.im y.re) (/ (- x.re) y.im)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_re <= -2e+30) || !(y_46_re <= 6.5e-99)) {
tmp = x_46_im / y_46_re;
} else {
tmp = -x_46_re / y_46_im;
}
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) :: tmp
if ((y_46re <= (-2d+30)) .or. (.not. (y_46re <= 6.5d-99))) then
tmp = x_46im / y_46re
else
tmp = -x_46re / y_46im
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 tmp;
if ((y_46_re <= -2e+30) || !(y_46_re <= 6.5e-99)) {
tmp = x_46_im / y_46_re;
} else {
tmp = -x_46_re / y_46_im;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if (y_46_re <= -2e+30) or not (y_46_re <= 6.5e-99): tmp = x_46_im / y_46_re else: tmp = -x_46_re / y_46_im return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if ((y_46_re <= -2e+30) || !(y_46_re <= 6.5e-99)) tmp = Float64(x_46_im / y_46_re); else tmp = Float64(Float64(-x_46_re) / y_46_im); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0; if ((y_46_re <= -2e+30) || ~((y_46_re <= 6.5e-99))) tmp = x_46_im / y_46_re; else tmp = -x_46_re / y_46_im; end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -2e+30], N[Not[LessEqual[y$46$re, 6.5e-99]], $MachinePrecision]], N[(x$46$im / y$46$re), $MachinePrecision], N[((-x$46$re) / y$46$im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -2 \cdot 10^{+30} \lor \neg \left(y.re \leq 6.5 \cdot 10^{-99}\right):\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{else}:\\
\;\;\;\;\frac{-x.re}{y.im}\\
\end{array}
\end{array}
if y.re < -2e30 or 6.50000000000000033e-99 < y.re Initial program 53.1%
Taylor expanded in y.re around inf
lower-/.f6467.1
Applied rewrites67.1%
if -2e30 < y.re < 6.50000000000000033e-99Initial program 64.4%
Taylor expanded in y.re around 0
mul-1-negN/A
distribute-neg-frac2N/A
mul-1-negN/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6469.3
Applied rewrites69.3%
Final simplification68.1%
(FPCore (x.re x.im y.re y.im) :precision binary64 (/ x.im y.re))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return x_46_im / 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_46im / 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_im / y_46_re;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): return x_46_im / y_46_re
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(x_46_im / y_46_re) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = x_46_im / y_46_re; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(x$46$im / y$46$re), $MachinePrecision]
\begin{array}{l}
\\
\frac{x.im}{y.re}
\end{array}
Initial program 58.3%
Taylor expanded in y.re around inf
lower-/.f6442.4
Applied rewrites42.4%
herbie shell --seed 2024313
(FPCore (x.re x.im y.re y.im)
:name "_divideComplex, imaginary part"
:precision binary64
(/ (- (* x.im y.re) (* x.re y.im)) (+ (* y.re y.re) (* y.im y.im))))