
(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 x.re (- (/ y.im y.re)) x.im) y.re)))
(if (<= y.im -3.25e+74)
(/ (fma y.re (/ x.im y.im) (- x.re)) y.im)
(if (<= y.im -2.4e+54)
t_0
(if (<= y.im -1.25e-153)
(/ (- (* y.re x.im) (* y.im x.re)) (+ (* y.re y.re) (* y.im y.im)))
(if (<= y.im 0.0102)
t_0
(fma (/ y.re y.im) (/ x.im 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 t_0 = fma(x_46_re, -(y_46_im / y_46_re), x_46_im) / y_46_re;
double tmp;
if (y_46_im <= -3.25e+74) {
tmp = fma(y_46_re, (x_46_im / y_46_im), -x_46_re) / y_46_im;
} else if (y_46_im <= -2.4e+54) {
tmp = t_0;
} else if (y_46_im <= -1.25e-153) {
tmp = ((y_46_re * x_46_im) - (y_46_im * x_46_re)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
} else if (y_46_im <= 0.0102) {
tmp = t_0;
} else {
tmp = fma((y_46_re / y_46_im), (x_46_im / 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) t_0 = Float64(fma(x_46_re, Float64(-Float64(y_46_im / y_46_re)), x_46_im) / y_46_re) tmp = 0.0 if (y_46_im <= -3.25e+74) tmp = Float64(fma(y_46_re, Float64(x_46_im / y_46_im), Float64(-x_46_re)) / y_46_im); elseif (y_46_im <= -2.4e+54) tmp = t_0; elseif (y_46_im <= -1.25e-153) tmp = Float64(Float64(Float64(y_46_re * x_46_im) - Float64(y_46_im * x_46_re)) / Float64(Float64(y_46_re * y_46_re) + Float64(y_46_im * y_46_im))); elseif (y_46_im <= 0.0102) tmp = t_0; else tmp = fma(Float64(y_46_re / y_46_im), Float64(x_46_im / y_46_im), Float64(Float64(-x_46_re) / y_46_im)); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = 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$im, -3.25e+74], N[(N[(y$46$re * N[(x$46$im / y$46$im), $MachinePrecision] + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision], If[LessEqual[y$46$im, -2.4e+54], t$95$0, If[LessEqual[y$46$im, -1.25e-153], N[(N[(N[(y$46$re * x$46$im), $MachinePrecision] - N[(y$46$im * x$46$re), $MachinePrecision]), $MachinePrecision] / N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 0.0102], t$95$0, N[(N[(y$46$re / y$46$im), $MachinePrecision] * N[(x$46$im / y$46$im), $MachinePrecision] + N[((-x$46$re) / y$46$im), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{fma}\left(x.re, -\frac{y.im}{y.re}, x.im\right)}{y.re}\\
\mathbf{if}\;y.im \leq -3.25 \cdot 10^{+74}:\\
\;\;\;\;\frac{\mathsf{fma}\left(y.re, \frac{x.im}{y.im}, -x.re\right)}{y.im}\\
\mathbf{elif}\;y.im \leq -2.4 \cdot 10^{+54}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq -1.25 \cdot 10^{-153}:\\
\;\;\;\;\frac{y.re \cdot x.im - y.im \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im}\\
\mathbf{elif}\;y.im \leq 0.0102:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{y.re}{y.im}, \frac{x.im}{y.im}, \frac{-x.re}{y.im}\right)\\
\end{array}
\end{array}
if y.im < -3.24999999999999981e74Initial program 53.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
sub-negN/A
*-commutativeN/A
associate-/l*N/A
mul-1-negN/A
lower-fma.f64N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6487.2
Simplified87.2%
if -3.24999999999999981e74 < y.im < -2.39999999999999998e54 or -1.25000000000000008e-153 < y.im < 0.010200000000000001Initial program 62.0%
lift-*.f64N/A
lift-*.f64N/A
sub-negN/A
+-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f6462.0
lift-*.f64N/A
*-commutativeN/A
lower-*.f6462.0
Applied egg-rr62.0%
Taylor expanded in y.re around inf
unpow2N/A
lower-*.f6460.1
Simplified60.1%
Taylor expanded in y.im around 0
mul-1-negN/A
neg-sub0N/A
associate-+l-N/A
unpow2N/A
associate-/r*N/A
div-subN/A
unsub-negN/A
mul-1-negN/A
+-commutativeN/A
neg-sub0N/A
mul-1-negN/A
associate-*r/N/A
lower-/.f64N/A
Simplified93.1%
if -2.39999999999999998e54 < y.im < -1.25000000000000008e-153Initial program 86.4%
if 0.010200000000000001 < y.im Initial program 58.8%
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
sub-negN/A
*-commutativeN/A
associate-/l*N/A
mul-1-negN/A
lower-fma.f64N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6487.5
Simplified87.5%
lift-/.f64N/A
+-rgt-identityN/A
sub-negN/A
div-subN/A
+-rgt-identityN/A
lift-/.f64N/A
associate-*r/N/A
lift-*.f64N/A
associate-/r*N/A
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
sub-negN/A
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
times-fracN/A
lift-/.f64N/A
lower-fma.f64N/A
lower-/.f64N/A
Applied egg-rr87.5%
Final simplification89.3%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (fma x.re (- (/ y.im y.re)) x.im) y.re))
(t_1 (/ (fma y.re (/ x.im y.im) (- x.re)) y.im)))
(if (<= y.im -6.2e+74)
t_1
(if (<= y.im -3.4e+54)
t_0
(if (<= y.im -1.25e-153)
(/ (- (* y.re x.im) (* y.im x.re)) (+ (* y.re y.re) (* y.im y.im)))
(if (<= y.im 0.00062) t_0 t_1))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = fma(x_46_re, -(y_46_im / y_46_re), x_46_im) / y_46_re;
double t_1 = fma(y_46_re, (x_46_im / y_46_im), -x_46_re) / y_46_im;
double tmp;
if (y_46_im <= -6.2e+74) {
tmp = t_1;
} else if (y_46_im <= -3.4e+54) {
tmp = t_0;
} else if (y_46_im <= -1.25e-153) {
tmp = ((y_46_re * x_46_im) - (y_46_im * x_46_re)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
} else if (y_46_im <= 0.00062) {
tmp = t_0;
} else {
tmp = t_1;
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(fma(x_46_re, Float64(-Float64(y_46_im / y_46_re)), x_46_im) / y_46_re) t_1 = Float64(fma(y_46_re, Float64(x_46_im / y_46_im), Float64(-x_46_re)) / y_46_im) tmp = 0.0 if (y_46_im <= -6.2e+74) tmp = t_1; elseif (y_46_im <= -3.4e+54) tmp = t_0; elseif (y_46_im <= -1.25e-153) tmp = Float64(Float64(Float64(y_46_re * x_46_im) - Float64(y_46_im * x_46_re)) / Float64(Float64(y_46_re * y_46_re) + Float64(y_46_im * y_46_im))); elseif (y_46_im <= 0.00062) tmp = t_0; else tmp = t_1; end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[(N[(x$46$re * (-N[(y$46$im / y$46$re), $MachinePrecision]) + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(N[(y$46$re * N[(x$46$im / y$46$im), $MachinePrecision] + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -6.2e+74], t$95$1, If[LessEqual[y$46$im, -3.4e+54], t$95$0, If[LessEqual[y$46$im, -1.25e-153], N[(N[(N[(y$46$re * x$46$im), $MachinePrecision] - N[(y$46$im * x$46$re), $MachinePrecision]), $MachinePrecision] / N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 0.00062], t$95$0, t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{fma}\left(x.re, -\frac{y.im}{y.re}, x.im\right)}{y.re}\\
t_1 := \frac{\mathsf{fma}\left(y.re, \frac{x.im}{y.im}, -x.re\right)}{y.im}\\
\mathbf{if}\;y.im \leq -6.2 \cdot 10^{+74}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq -3.4 \cdot 10^{+54}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq -1.25 \cdot 10^{-153}:\\
\;\;\;\;\frac{y.re \cdot x.im - y.im \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im}\\
\mathbf{elif}\;y.im \leq 0.00062:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y.im < -6.20000000000000043e74 or 6.2e-4 < y.im Initial program 56.7%
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
sub-negN/A
*-commutativeN/A
associate-/l*N/A
mul-1-negN/A
lower-fma.f64N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6487.4
Simplified87.4%
if -6.20000000000000043e74 < y.im < -3.4000000000000001e54 or -1.25000000000000008e-153 < y.im < 6.2e-4Initial program 62.0%
lift-*.f64N/A
lift-*.f64N/A
sub-negN/A
+-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f6462.0
lift-*.f64N/A
*-commutativeN/A
lower-*.f6462.0
Applied egg-rr62.0%
Taylor expanded in y.re around inf
unpow2N/A
lower-*.f6460.1
Simplified60.1%
Taylor expanded in y.im around 0
mul-1-negN/A
neg-sub0N/A
associate-+l-N/A
unpow2N/A
associate-/r*N/A
div-subN/A
unsub-negN/A
mul-1-negN/A
+-commutativeN/A
neg-sub0N/A
mul-1-negN/A
associate-*r/N/A
lower-/.f64N/A
Simplified93.1%
if -3.4000000000000001e54 < y.im < -1.25000000000000008e-153Initial program 86.4%
Final simplification89.3%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (- x.re) y.im)))
(if (<= y.im -9.5e+28)
t_0
(if (<= y.im 5.8e-5)
(/ (- x.im (/ (* y.im x.re) y.re)) y.re)
(if (<= y.im 9e+142)
(/ (fma (- y.im) x.re (* y.re x.im)) (* y.im y.im))
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_re / y_46_im;
double tmp;
if (y_46_im <= -9.5e+28) {
tmp = t_0;
} else if (y_46_im <= 5.8e-5) {
tmp = (x_46_im - ((y_46_im * x_46_re) / y_46_re)) / y_46_re;
} else if (y_46_im <= 9e+142) {
tmp = fma(-y_46_im, x_46_re, (y_46_re * x_46_im)) / (y_46_im * y_46_im);
} 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_re) / y_46_im) tmp = 0.0 if (y_46_im <= -9.5e+28) tmp = t_0; elseif (y_46_im <= 5.8e-5) tmp = Float64(Float64(x_46_im - Float64(Float64(y_46_im * x_46_re) / y_46_re)) / y_46_re); elseif (y_46_im <= 9e+142) tmp = Float64(fma(Float64(-y_46_im), x_46_re, Float64(y_46_re * x_46_im)) / Float64(y_46_im * y_46_im)); else tmp = t_0; end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[((-x$46$re) / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -9.5e+28], t$95$0, If[LessEqual[y$46$im, 5.8e-5], N[(N[(x$46$im - N[(N[(y$46$im * x$46$re), $MachinePrecision] / y$46$re), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 9e+142], N[(N[((-y$46$im) * x$46$re + N[(y$46$re * x$46$im), $MachinePrecision]), $MachinePrecision] / N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision], t$95$0]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x.re}{y.im}\\
\mathbf{if}\;y.im \leq -9.5 \cdot 10^{+28}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 5.8 \cdot 10^{-5}:\\
\;\;\;\;\frac{x.im - \frac{y.im \cdot x.re}{y.re}}{y.re}\\
\mathbf{elif}\;y.im \leq 9 \cdot 10^{+142}:\\
\;\;\;\;\frac{\mathsf{fma}\left(-y.im, x.re, y.re \cdot x.im\right)}{y.im \cdot y.im}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.im < -9.49999999999999927e28 or 8.9999999999999998e142 < y.im Initial program 43.2%
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.f6475.1
Simplified75.1%
if -9.49999999999999927e28 < y.im < 5.8e-5Initial program 72.2%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6481.7
Simplified81.7%
if 5.8e-5 < y.im < 8.9999999999999998e142Initial program 91.1%
Taylor expanded in y.re around 0
unpow2N/A
lower-*.f6479.8
Simplified79.8%
*-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
cancel-sign-sub-invN/A
lift-neg.f64N/A
+-commutativeN/A
lift-fma.f6480.0
Applied egg-rr80.0%
Final simplification79.2%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (- x.re) y.im)))
(if (<= y.im -7.4e+22)
t_0
(if (<= y.im 6.8e-6)
(/ x.im y.re)
(if (<= y.im 1.4e+143)
(/ (fma (- y.im) x.re (* y.re x.im)) (* y.im y.im))
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_re / y_46_im;
double tmp;
if (y_46_im <= -7.4e+22) {
tmp = t_0;
} else if (y_46_im <= 6.8e-6) {
tmp = x_46_im / y_46_re;
} else if (y_46_im <= 1.4e+143) {
tmp = fma(-y_46_im, x_46_re, (y_46_re * x_46_im)) / (y_46_im * y_46_im);
} 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_re) / y_46_im) tmp = 0.0 if (y_46_im <= -7.4e+22) tmp = t_0; elseif (y_46_im <= 6.8e-6) tmp = Float64(x_46_im / y_46_re); elseif (y_46_im <= 1.4e+143) tmp = Float64(fma(Float64(-y_46_im), x_46_re, Float64(y_46_re * x_46_im)) / Float64(y_46_im * y_46_im)); else tmp = t_0; end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[((-x$46$re) / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -7.4e+22], t$95$0, If[LessEqual[y$46$im, 6.8e-6], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 1.4e+143], N[(N[((-y$46$im) * x$46$re + N[(y$46$re * x$46$im), $MachinePrecision]), $MachinePrecision] / N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision], t$95$0]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x.re}{y.im}\\
\mathbf{if}\;y.im \leq -7.4 \cdot 10^{+22}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 6.8 \cdot 10^{-6}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;y.im \leq 1.4 \cdot 10^{+143}:\\
\;\;\;\;\frac{\mathsf{fma}\left(-y.im, x.re, y.re \cdot x.im\right)}{y.im \cdot y.im}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.im < -7.3999999999999996e22 or 1.39999999999999999e143 < y.im Initial program 43.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.f6474.3
Simplified74.3%
if -7.3999999999999996e22 < y.im < 6.80000000000000012e-6Initial program 72.0%
Taylor expanded in y.re around inf
lower-/.f6463.3
Simplified63.3%
if 6.80000000000000012e-6 < y.im < 1.39999999999999999e143Initial program 91.1%
Taylor expanded in y.re around 0
unpow2N/A
lower-*.f6479.8
Simplified79.8%
*-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
cancel-sign-sub-invN/A
lift-neg.f64N/A
+-commutativeN/A
lift-fma.f6480.0
Applied egg-rr80.0%
Final simplification69.3%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (- x.re) y.im)))
(if (<= y.im -8e+22)
t_0
(if (<= y.im 6.6e-6)
(/ x.im y.re)
(if (<= y.im 5.2e+142)
(/ (- (* y.re x.im) (* y.im x.re)) (* y.im y.im))
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_re / y_46_im;
double tmp;
if (y_46_im <= -8e+22) {
tmp = t_0;
} else if (y_46_im <= 6.6e-6) {
tmp = x_46_im / y_46_re;
} else if (y_46_im <= 5.2e+142) {
tmp = ((y_46_re * x_46_im) - (y_46_im * x_46_re)) / (y_46_im * y_46_im);
} 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_46re / y_46im
if (y_46im <= (-8d+22)) then
tmp = t_0
else if (y_46im <= 6.6d-6) then
tmp = x_46im / y_46re
else if (y_46im <= 5.2d+142) then
tmp = ((y_46re * x_46im) - (y_46im * x_46re)) / (y_46im * y_46im)
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_re / y_46_im;
double tmp;
if (y_46_im <= -8e+22) {
tmp = t_0;
} else if (y_46_im <= 6.6e-6) {
tmp = x_46_im / y_46_re;
} else if (y_46_im <= 5.2e+142) {
tmp = ((y_46_re * x_46_im) - (y_46_im * x_46_re)) / (y_46_im * y_46_im);
} else {
tmp = t_0;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = -x_46_re / y_46_im tmp = 0 if y_46_im <= -8e+22: tmp = t_0 elif y_46_im <= 6.6e-6: tmp = x_46_im / y_46_re elif y_46_im <= 5.2e+142: tmp = ((y_46_re * x_46_im) - (y_46_im * x_46_re)) / (y_46_im * y_46_im) 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_re) / y_46_im) tmp = 0.0 if (y_46_im <= -8e+22) tmp = t_0; elseif (y_46_im <= 6.6e-6) tmp = Float64(x_46_im / y_46_re); elseif (y_46_im <= 5.2e+142) tmp = Float64(Float64(Float64(y_46_re * x_46_im) - Float64(y_46_im * x_46_re)) / Float64(y_46_im * y_46_im)); 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_re / y_46_im; tmp = 0.0; if (y_46_im <= -8e+22) tmp = t_0; elseif (y_46_im <= 6.6e-6) tmp = x_46_im / y_46_re; elseif (y_46_im <= 5.2e+142) tmp = ((y_46_re * x_46_im) - (y_46_im * x_46_re)) / (y_46_im * y_46_im); 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$re) / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -8e+22], t$95$0, If[LessEqual[y$46$im, 6.6e-6], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 5.2e+142], N[(N[(N[(y$46$re * x$46$im), $MachinePrecision] - N[(y$46$im * x$46$re), $MachinePrecision]), $MachinePrecision] / N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision], t$95$0]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x.re}{y.im}\\
\mathbf{if}\;y.im \leq -8 \cdot 10^{+22}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 6.6 \cdot 10^{-6}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;y.im \leq 5.2 \cdot 10^{+142}:\\
\;\;\;\;\frac{y.re \cdot x.im - y.im \cdot x.re}{y.im \cdot y.im}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.im < -8e22 or 5.20000000000000043e142 < y.im Initial program 43.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.f6474.3
Simplified74.3%
if -8e22 < y.im < 6.60000000000000034e-6Initial program 72.0%
Taylor expanded in y.re around inf
lower-/.f6463.3
Simplified63.3%
if 6.60000000000000034e-6 < y.im < 5.20000000000000043e142Initial program 91.1%
Taylor expanded in y.re around 0
unpow2N/A
lower-*.f6479.8
Simplified79.8%
Final simplification69.3%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (fma y.re (/ x.im y.im) (- x.re)) y.im)))
(if (<= y.im -2.05e-25)
t_0
(if (<= y.im 0.00095) (/ (fma x.re (- (/ y.im y.re)) x.im) 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 = fma(y_46_re, (x_46_im / y_46_im), -x_46_re) / y_46_im;
double tmp;
if (y_46_im <= -2.05e-25) {
tmp = t_0;
} else if (y_46_im <= 0.00095) {
tmp = fma(x_46_re, -(y_46_im / y_46_re), x_46_im) / 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(fma(y_46_re, Float64(x_46_im / y_46_im), Float64(-x_46_re)) / y_46_im) tmp = 0.0 if (y_46_im <= -2.05e-25) tmp = t_0; elseif (y_46_im <= 0.00095) tmp = Float64(fma(x_46_re, Float64(-Float64(y_46_im / y_46_re)), x_46_im) / y_46_re); else tmp = t_0; end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[(N[(y$46$re * N[(x$46$im / y$46$im), $MachinePrecision] + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -2.05e-25], t$95$0, If[LessEqual[y$46$im, 0.00095], N[(N[(x$46$re * (-N[(y$46$im / y$46$re), $MachinePrecision]) + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{fma}\left(y.re, \frac{x.im}{y.im}, -x.re\right)}{y.im}\\
\mathbf{if}\;y.im \leq -2.05 \cdot 10^{-25}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 0.00095:\\
\;\;\;\;\frac{\mathsf{fma}\left(x.re, -\frac{y.im}{y.re}, x.im\right)}{y.re}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.im < -2.04999999999999994e-25 or 9.49999999999999998e-4 < y.im Initial program 58.5%
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
sub-negN/A
*-commutativeN/A
associate-/l*N/A
mul-1-negN/A
lower-fma.f64N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6481.3
Simplified81.3%
if -2.04999999999999994e-25 < y.im < 9.49999999999999998e-4Initial program 71.7%
lift-*.f64N/A
lift-*.f64N/A
sub-negN/A
+-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f6471.7
lift-*.f64N/A
*-commutativeN/A
lower-*.f6471.7
Applied egg-rr71.7%
Taylor expanded in y.re around inf
unpow2N/A
lower-*.f6460.9
Simplified60.9%
Taylor expanded in y.im around 0
mul-1-negN/A
neg-sub0N/A
associate-+l-N/A
unpow2N/A
associate-/r*N/A
div-subN/A
unsub-negN/A
mul-1-negN/A
+-commutativeN/A
neg-sub0N/A
mul-1-negN/A
associate-*r/N/A
lower-/.f64N/A
Simplified86.0%
Final simplification83.5%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (fma x.im (/ y.re y.im) (- x.re)) y.im)))
(if (<= y.im -3e-17)
t_0
(if (<= y.im 0.00047) (/ (fma x.re (- (/ y.im y.re)) x.im) 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 = fma(x_46_im, (y_46_re / y_46_im), -x_46_re) / y_46_im;
double tmp;
if (y_46_im <= -3e-17) {
tmp = t_0;
} else if (y_46_im <= 0.00047) {
tmp = fma(x_46_re, -(y_46_im / y_46_re), x_46_im) / 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(fma(x_46_im, Float64(y_46_re / y_46_im), Float64(-x_46_re)) / y_46_im) tmp = 0.0 if (y_46_im <= -3e-17) tmp = t_0; elseif (y_46_im <= 0.00047) tmp = Float64(fma(x_46_re, Float64(-Float64(y_46_im / y_46_re)), x_46_im) / y_46_re); else tmp = t_0; end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[(N[(x$46$im * N[(y$46$re / y$46$im), $MachinePrecision] + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -3e-17], t$95$0, If[LessEqual[y$46$im, 0.00047], N[(N[(x$46$re * (-N[(y$46$im / y$46$re), $MachinePrecision]) + x$46$im), $MachinePrecision] / y$46$re), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{fma}\left(x.im, \frac{y.re}{y.im}, -x.re\right)}{y.im}\\
\mathbf{if}\;y.im \leq -3 \cdot 10^{-17}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 0.00047:\\
\;\;\;\;\frac{\mathsf{fma}\left(x.re, -\frac{y.im}{y.re}, x.im\right)}{y.re}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.im < -3.00000000000000006e-17 or 4.69999999999999986e-4 < y.im Initial program 58.5%
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
sub-negN/A
*-commutativeN/A
associate-/l*N/A
mul-1-negN/A
lower-fma.f64N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6481.3
Simplified81.3%
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
lift-neg.f64N/A
lower-fma.f64N/A
lower-/.f6480.6
Applied egg-rr80.6%
if -3.00000000000000006e-17 < y.im < 4.69999999999999986e-4Initial program 71.7%
lift-*.f64N/A
lift-*.f64N/A
sub-negN/A
+-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f6471.7
lift-*.f64N/A
*-commutativeN/A
lower-*.f6471.7
Applied egg-rr71.7%
Taylor expanded in y.re around inf
unpow2N/A
lower-*.f6460.9
Simplified60.9%
Taylor expanded in y.im around 0
mul-1-negN/A
neg-sub0N/A
associate-+l-N/A
unpow2N/A
associate-/r*N/A
div-subN/A
unsub-negN/A
mul-1-negN/A
+-commutativeN/A
neg-sub0N/A
mul-1-negN/A
associate-*r/N/A
lower-/.f64N/A
Simplified86.0%
Final simplification83.1%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (fma x.im (/ y.re y.im) (- x.re)) y.im)))
(if (<= y.im -1.2e-24)
t_0
(if (<= y.im 0.000205) (/ (- x.im (/ (* y.im x.re) y.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 = fma(x_46_im, (y_46_re / y_46_im), -x_46_re) / y_46_im;
double tmp;
if (y_46_im <= -1.2e-24) {
tmp = t_0;
} else if (y_46_im <= 0.000205) {
tmp = (x_46_im - ((y_46_im * x_46_re) / y_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(fma(x_46_im, Float64(y_46_re / y_46_im), Float64(-x_46_re)) / y_46_im) tmp = 0.0 if (y_46_im <= -1.2e-24) tmp = t_0; elseif (y_46_im <= 0.000205) tmp = Float64(Float64(x_46_im - Float64(Float64(y_46_im * x_46_re) / y_46_re)) / y_46_re); else tmp = t_0; end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[(N[(x$46$im * N[(y$46$re / y$46$im), $MachinePrecision] + (-x$46$re)), $MachinePrecision] / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -1.2e-24], t$95$0, If[LessEqual[y$46$im, 0.000205], N[(N[(x$46$im - N[(N[(y$46$im * x$46$re), $MachinePrecision] / y$46$re), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\mathsf{fma}\left(x.im, \frac{y.re}{y.im}, -x.re\right)}{y.im}\\
\mathbf{if}\;y.im \leq -1.2 \cdot 10^{-24}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 0.000205:\\
\;\;\;\;\frac{x.im - \frac{y.im \cdot x.re}{y.re}}{y.re}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.im < -1.1999999999999999e-24 or 2.05e-4 < y.im Initial program 58.5%
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
sub-negN/A
*-commutativeN/A
associate-/l*N/A
mul-1-negN/A
lower-fma.f64N/A
lower-/.f64N/A
mul-1-negN/A
lower-neg.f6481.3
Simplified81.3%
associate-*r/N/A
*-commutativeN/A
associate-/l*N/A
lift-neg.f64N/A
lower-fma.f64N/A
lower-/.f6480.6
Applied egg-rr80.6%
if -1.1999999999999999e-24 < y.im < 2.05e-4Initial program 71.7%
Taylor expanded in y.re around inf
lower-/.f64N/A
mul-1-negN/A
unsub-negN/A
lower--.f64N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f6485.2
Simplified85.2%
(FPCore (x.re x.im y.re y.im) :precision binary64 (let* ((t_0 (/ (- x.re) y.im))) (if (<= y.im -3.5e+24) t_0 (if (<= y.im 2.6e-5) (/ x.im 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_re / y_46_im;
double tmp;
if (y_46_im <= -3.5e+24) {
tmp = t_0;
} else if (y_46_im <= 2.6e-5) {
tmp = x_46_im / 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_46re / y_46im
if (y_46im <= (-3.5d+24)) then
tmp = t_0
else if (y_46im <= 2.6d-5) then
tmp = x_46im / 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_re / y_46_im;
double tmp;
if (y_46_im <= -3.5e+24) {
tmp = t_0;
} else if (y_46_im <= 2.6e-5) {
tmp = x_46_im / 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_re / y_46_im tmp = 0 if y_46_im <= -3.5e+24: tmp = t_0 elif y_46_im <= 2.6e-5: tmp = x_46_im / 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_re) / y_46_im) tmp = 0.0 if (y_46_im <= -3.5e+24) tmp = t_0; elseif (y_46_im <= 2.6e-5) tmp = Float64(x_46_im / 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_re / y_46_im; tmp = 0.0; if (y_46_im <= -3.5e+24) tmp = t_0; elseif (y_46_im <= 2.6e-5) tmp = x_46_im / 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$re) / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -3.5e+24], t$95$0, If[LessEqual[y$46$im, 2.6e-5], N[(x$46$im / y$46$re), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x.re}{y.im}\\
\mathbf{if}\;y.im \leq -3.5 \cdot 10^{+24}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 2.6 \cdot 10^{-5}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.im < -3.5000000000000002e24 or 2.59999999999999984e-5 < y.im Initial program 56.9%
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.f6472.2
Simplified72.2%
if -3.5000000000000002e24 < y.im < 2.59999999999999984e-5Initial program 72.0%
Taylor expanded in y.re around inf
lower-/.f6463.3
Simplified63.3%
Final simplification67.6%
(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 64.7%
Taylor expanded in y.re around inf
lower-/.f6440.0
Simplified40.0%
herbie shell --seed 2024207
(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))))