| Alternative 1 | |
|---|---|
| Error | 17.6% |
| Cost | 14556 |
(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))))
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (- (/ y.re (/ y.im x.im)) x.re) y.im))
(t_1 (fma y.re y.re (* y.im y.im)))
(t_2 (/ 1.0 (hypot y.re y.im)))
(t_3 (- (* y.re x.im) (* x.re y.im))))
(if (<= y.re -1.4e+138)
(- (/ x.im y.re) (/ (/ x.re y.re) (/ y.re y.im)))
(if (<= y.re -1.85e+60)
(* (/ y.re (hypot y.re y.im)) (/ x.im (hypot y.re y.im)))
(if (<= y.re -1.05e+37)
(/ t_2 (/ (hypot y.re y.im) t_3))
(if (<= y.re -60000000.0)
t_0
(if (<= y.re -2.4e-123)
(/ (/ t_3 (hypot y.re y.im)) (hypot y.re y.im))
(if (<= y.re 2.65e-108)
t_0
(if (<= y.re 6.8e+98)
(- (/ y.re (/ t_1 x.im)) (* y.im (/ x.re t_1)))
(* t_2 (- x.im (/ (* x.re y.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) - (x_46_re * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
}
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = ((y_46_re / (y_46_im / x_46_im)) - x_46_re) / y_46_im;
double t_1 = fma(y_46_re, y_46_re, (y_46_im * y_46_im));
double t_2 = 1.0 / hypot(y_46_re, y_46_im);
double t_3 = (y_46_re * x_46_im) - (x_46_re * y_46_im);
double tmp;
if (y_46_re <= -1.4e+138) {
tmp = (x_46_im / y_46_re) - ((x_46_re / y_46_re) / (y_46_re / y_46_im));
} else if (y_46_re <= -1.85e+60) {
tmp = (y_46_re / hypot(y_46_re, y_46_im)) * (x_46_im / hypot(y_46_re, y_46_im));
} else if (y_46_re <= -1.05e+37) {
tmp = t_2 / (hypot(y_46_re, y_46_im) / t_3);
} else if (y_46_re <= -60000000.0) {
tmp = t_0;
} else if (y_46_re <= -2.4e-123) {
tmp = (t_3 / hypot(y_46_re, y_46_im)) / hypot(y_46_re, y_46_im);
} else if (y_46_re <= 2.65e-108) {
tmp = t_0;
} else if (y_46_re <= 6.8e+98) {
tmp = (y_46_re / (t_1 / x_46_im)) - (y_46_im * (x_46_re / t_1));
} else {
tmp = t_2 * (x_46_im - ((x_46_re * y_46_im) / y_46_re));
}
return tmp;
}
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 code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(Float64(Float64(y_46_re / Float64(y_46_im / x_46_im)) - x_46_re) / y_46_im) t_1 = fma(y_46_re, y_46_re, Float64(y_46_im * y_46_im)) t_2 = Float64(1.0 / hypot(y_46_re, y_46_im)) t_3 = Float64(Float64(y_46_re * x_46_im) - Float64(x_46_re * y_46_im)) tmp = 0.0 if (y_46_re <= -1.4e+138) tmp = Float64(Float64(x_46_im / y_46_re) - Float64(Float64(x_46_re / y_46_re) / Float64(y_46_re / y_46_im))); elseif (y_46_re <= -1.85e+60) tmp = Float64(Float64(y_46_re / hypot(y_46_re, y_46_im)) * Float64(x_46_im / hypot(y_46_re, y_46_im))); elseif (y_46_re <= -1.05e+37) tmp = Float64(t_2 / Float64(hypot(y_46_re, y_46_im) / t_3)); elseif (y_46_re <= -60000000.0) tmp = t_0; elseif (y_46_re <= -2.4e-123) tmp = Float64(Float64(t_3 / hypot(y_46_re, y_46_im)) / hypot(y_46_re, y_46_im)); elseif (y_46_re <= 2.65e-108) tmp = t_0; elseif (y_46_re <= 6.8e+98) tmp = Float64(Float64(y_46_re / Float64(t_1 / x_46_im)) - Float64(y_46_im * Float64(x_46_re / t_1))); else tmp = Float64(t_2 * Float64(x_46_im - Float64(Float64(x_46_re * y_46_im) / y_46_re))); end return tmp 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]
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[(N[(N[(y$46$re / N[(y$46$im / x$46$im), $MachinePrecision]), $MachinePrecision] - x$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$1 = N[(y$46$re * y$46$re + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(1.0 / N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y$46$re * x$46$im), $MachinePrecision] - N[(x$46$re * y$46$im), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y$46$re, -1.4e+138], N[(N[(x$46$im / y$46$re), $MachinePrecision] - N[(N[(x$46$re / y$46$re), $MachinePrecision] / N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -1.85e+60], N[(N[(y$46$re / N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision]), $MachinePrecision] * N[(x$46$im / N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -1.05e+37], N[(t$95$2 / N[(N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision] / t$95$3), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -60000000.0], t$95$0, If[LessEqual[y$46$re, -2.4e-123], N[(N[(t$95$3 / N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision]), $MachinePrecision] / N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, 2.65e-108], t$95$0, If[LessEqual[y$46$re, 6.8e+98], N[(N[(y$46$re / N[(t$95$1 / x$46$im), $MachinePrecision]), $MachinePrecision] - N[(y$46$im * N[(x$46$re / t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(t$95$2 * N[(x$46$im - N[(N[(x$46$re * y$46$im), $MachinePrecision] / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]
\frac{x.im \cdot y.re - x.re \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}
\begin{array}{l}
t_0 := \frac{\frac{y.re}{\frac{y.im}{x.im}} - x.re}{y.im}\\
t_1 := \mathsf{fma}\left(y.re, y.re, y.im \cdot y.im\right)\\
t_2 := \frac{1}{\mathsf{hypot}\left(y.re, y.im\right)}\\
t_3 := y.re \cdot x.im - x.re \cdot y.im\\
\mathbf{if}\;y.re \leq -1.4 \cdot 10^{+138}:\\
\;\;\;\;\frac{x.im}{y.re} - \frac{\frac{x.re}{y.re}}{\frac{y.re}{y.im}}\\
\mathbf{elif}\;y.re \leq -1.85 \cdot 10^{+60}:\\
\;\;\;\;\frac{y.re}{\mathsf{hypot}\left(y.re, y.im\right)} \cdot \frac{x.im}{\mathsf{hypot}\left(y.re, y.im\right)}\\
\mathbf{elif}\;y.re \leq -1.05 \cdot 10^{+37}:\\
\;\;\;\;\frac{t_2}{\frac{\mathsf{hypot}\left(y.re, y.im\right)}{t_3}}\\
\mathbf{elif}\;y.re \leq -60000000:\\
\;\;\;\;t_0\\
\mathbf{elif}\;y.re \leq -2.4 \cdot 10^{-123}:\\
\;\;\;\;\frac{\frac{t_3}{\mathsf{hypot}\left(y.re, y.im\right)}}{\mathsf{hypot}\left(y.re, y.im\right)}\\
\mathbf{elif}\;y.re \leq 2.65 \cdot 10^{-108}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;y.re \leq 6.8 \cdot 10^{+98}:\\
\;\;\;\;\frac{y.re}{\frac{t_1}{x.im}} - y.im \cdot \frac{x.re}{t_1}\\
\mathbf{else}:\\
\;\;\;\;t_2 \cdot \left(x.im - \frac{x.re \cdot y.im}{y.re}\right)\\
\end{array}
if y.re < -1.4e138Initial program 68.52
Applied egg-rr43.66
Applied egg-rr43.6
Taylor expanded in y.re around inf 22.41
Simplified20.18
[Start]22.41 | \[ \frac{x.im}{y.re} + -1 \cdot \frac{x.re \cdot y.im}{{y.re}^{2}}
\] |
|---|---|
mul-1-neg [=>]22.41 | \[ \frac{x.im}{y.re} + \color{blue}{\left(-\frac{x.re \cdot y.im}{{y.re}^{2}}\right)}
\] |
unsub-neg [=>]22.41 | \[ \color{blue}{\frac{x.im}{y.re} - \frac{x.re \cdot y.im}{{y.re}^{2}}}
\] |
associate-/l* [=>]20.41 | \[ \frac{x.im}{y.re} - \color{blue}{\frac{x.re}{\frac{{y.re}^{2}}{y.im}}}
\] |
unpow2 [=>]20.41 | \[ \frac{x.im}{y.re} - \frac{x.re}{\frac{\color{blue}{y.re \cdot y.re}}{y.im}}
\] |
associate-/r/ [=>]20.18 | \[ \frac{x.im}{y.re} - \color{blue}{\frac{x.re}{y.re \cdot y.re} \cdot y.im}
\] |
*-commutative [=>]20.18 | \[ \frac{x.im}{y.re} - \color{blue}{y.im \cdot \frac{x.re}{y.re \cdot y.re}}
\] |
Applied egg-rr10.87
if -1.4e138 < y.re < -1.84999999999999994e60Initial program 34.01
Taylor expanded in x.im around inf 48.53
Applied egg-rr31.47
if -1.84999999999999994e60 < y.re < -1.0500000000000001e37Initial program 25.29
Applied egg-rr18.27
Applied egg-rr18.36
if -1.0500000000000001e37 < y.re < -6e7 or -2.4e-123 < y.re < 2.64999999999999994e-108Initial program 33.04
Taylor expanded in y.re around 0 20.93
Simplified18.38
[Start]20.93 | \[ -1 \cdot \frac{x.re}{y.im} + \frac{y.re \cdot x.im}{{y.im}^{2}}
\] |
|---|---|
+-commutative [=>]20.93 | \[ \color{blue}{\frac{y.re \cdot x.im}{{y.im}^{2}} + -1 \cdot \frac{x.re}{y.im}}
\] |
mul-1-neg [=>]20.93 | \[ \frac{y.re \cdot x.im}{{y.im}^{2}} + \color{blue}{\left(-\frac{x.re}{y.im}\right)}
\] |
unsub-neg [=>]20.93 | \[ \color{blue}{\frac{y.re \cdot x.im}{{y.im}^{2}} - \frac{x.re}{y.im}}
\] |
*-commutative [=>]20.93 | \[ \frac{\color{blue}{x.im \cdot y.re}}{{y.im}^{2}} - \frac{x.re}{y.im}
\] |
unpow2 [=>]20.93 | \[ \frac{x.im \cdot y.re}{\color{blue}{y.im \cdot y.im}} - \frac{x.re}{y.im}
\] |
times-frac [=>]18.38 | \[ \color{blue}{\frac{x.im}{y.im} \cdot \frac{y.re}{y.im}} - \frac{x.re}{y.im}
\] |
Taylor expanded in x.im around 0 20.93
Simplified16.74
[Start]20.93 | \[ -1 \cdot \frac{x.re}{y.im} + \frac{y.re \cdot x.im}{{y.im}^{2}}
\] |
|---|---|
+-commutative [=>]20.93 | \[ \color{blue}{\frac{y.re \cdot x.im}{{y.im}^{2}} + -1 \cdot \frac{x.re}{y.im}}
\] |
*-commutative [=>]20.93 | \[ \frac{\color{blue}{x.im \cdot y.re}}{{y.im}^{2}} + -1 \cdot \frac{x.re}{y.im}
\] |
unpow2 [=>]20.93 | \[ \frac{x.im \cdot y.re}{\color{blue}{y.im \cdot y.im}} + -1 \cdot \frac{x.re}{y.im}
\] |
associate-/l* [=>]22.19 | \[ \color{blue}{\frac{x.im}{\frac{y.im \cdot y.im}{y.re}}} + -1 \cdot \frac{x.re}{y.im}
\] |
mul-1-neg [=>]22.19 | \[ \frac{x.im}{\frac{y.im \cdot y.im}{y.re}} + \color{blue}{\left(-\frac{x.re}{y.im}\right)}
\] |
sub-neg [<=]22.19 | \[ \color{blue}{\frac{x.im}{\frac{y.im \cdot y.im}{y.re}} - \frac{x.re}{y.im}}
\] |
associate-/l* [<=]20.93 | \[ \color{blue}{\frac{x.im \cdot y.re}{y.im \cdot y.im}} - \frac{x.re}{y.im}
\] |
associate-/r* [=>]15.34 | \[ \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im}}{y.im}} - \frac{x.re}{y.im}
\] |
div-sub [<=]15.34 | \[ \color{blue}{\frac{\frac{x.im \cdot y.re}{y.im} - x.re}{y.im}}
\] |
*-commutative [<=]15.34 | \[ \frac{\frac{\color{blue}{y.re \cdot x.im}}{y.im} - x.re}{y.im}
\] |
associate-/l* [=>]16.74 | \[ \frac{\color{blue}{\frac{y.re}{\frac{y.im}{x.im}}} - x.re}{y.im}
\] |
if -6e7 < y.re < -2.4e-123Initial program 24.07
Applied egg-rr16.94
Applied egg-rr16.76
if 2.64999999999999994e-108 < y.re < 6.79999999999999944e98Initial program 24.56
Taylor expanded in x.im around 0 24.56
Simplified24.81
[Start]24.56 | \[ \frac{y.re \cdot x.im}{{y.re}^{2} + {y.im}^{2}} + -1 \cdot \frac{x.re \cdot y.im}{{y.re}^{2} + {y.im}^{2}}
\] |
|---|---|
mul-1-neg [=>]24.56 | \[ \frac{y.re \cdot x.im}{{y.re}^{2} + {y.im}^{2}} + \color{blue}{\left(-\frac{x.re \cdot y.im}{{y.re}^{2} + {y.im}^{2}}\right)}
\] |
unsub-neg [=>]24.56 | \[ \color{blue}{\frac{y.re \cdot x.im}{{y.re}^{2} + {y.im}^{2}} - \frac{x.re \cdot y.im}{{y.re}^{2} + {y.im}^{2}}}
\] |
associate-/l* [=>]24.48 | \[ \color{blue}{\frac{y.re}{\frac{{y.re}^{2} + {y.im}^{2}}{x.im}}} - \frac{x.re \cdot y.im}{{y.re}^{2} + {y.im}^{2}}
\] |
unpow2 [=>]24.48 | \[ \frac{y.re}{\frac{\color{blue}{y.re \cdot y.re} + {y.im}^{2}}{x.im}} - \frac{x.re \cdot y.im}{{y.re}^{2} + {y.im}^{2}}
\] |
unpow2 [=>]24.48 | \[ \frac{y.re}{\frac{y.re \cdot y.re + \color{blue}{y.im \cdot y.im}}{x.im}} - \frac{x.re \cdot y.im}{{y.re}^{2} + {y.im}^{2}}
\] |
fma-udef [<=]24.48 | \[ \frac{y.re}{\frac{\color{blue}{\mathsf{fma}\left(y.re, y.re, y.im \cdot y.im\right)}}{x.im}} - \frac{x.re \cdot y.im}{{y.re}^{2} + {y.im}^{2}}
\] |
associate-/l* [=>]20.8 | \[ \frac{y.re}{\frac{\mathsf{fma}\left(y.re, y.re, y.im \cdot y.im\right)}{x.im}} - \color{blue}{\frac{x.re}{\frac{{y.re}^{2} + {y.im}^{2}}{y.im}}}
\] |
associate-/r/ [=>]24.81 | \[ \frac{y.re}{\frac{\mathsf{fma}\left(y.re, y.re, y.im \cdot y.im\right)}{x.im}} - \color{blue}{\frac{x.re}{{y.re}^{2} + {y.im}^{2}} \cdot y.im}
\] |
unpow2 [=>]24.81 | \[ \frac{y.re}{\frac{\mathsf{fma}\left(y.re, y.re, y.im \cdot y.im\right)}{x.im}} - \frac{x.re}{\color{blue}{y.re \cdot y.re} + {y.im}^{2}} \cdot y.im
\] |
unpow2 [=>]24.81 | \[ \frac{y.re}{\frac{\mathsf{fma}\left(y.re, y.re, y.im \cdot y.im\right)}{x.im}} - \frac{x.re}{y.re \cdot y.re + \color{blue}{y.im \cdot y.im}} \cdot y.im
\] |
fma-udef [<=]24.81 | \[ \frac{y.re}{\frac{\mathsf{fma}\left(y.re, y.re, y.im \cdot y.im\right)}{x.im}} - \frac{x.re}{\color{blue}{\mathsf{fma}\left(y.re, y.re, y.im \cdot y.im\right)}} \cdot y.im
\] |
if 6.79999999999999944e98 < y.re Initial program 62.66
Applied egg-rr43.46
Taylor expanded in y.re around inf 21.43
Final simplification19.16
| Alternative 1 | |
|---|---|
| Error | 17.6% |
| Cost | 14556 |
| Alternative 2 | |
|---|---|
| Error | 17.78% |
| Cost | 14556 |
| Alternative 3 | |
|---|---|
| Error | 19.75% |
| Cost | 14168 |
| Alternative 4 | |
|---|---|
| Error | 19.68% |
| Cost | 14168 |
| Alternative 5 | |
|---|---|
| Error | 23.3% |
| Cost | 7568 |
| Alternative 6 | |
|---|---|
| Error | 25.63% |
| Cost | 7172 |
| Alternative 7 | |
|---|---|
| Error | 25.89% |
| Cost | 1496 |
| Alternative 8 | |
|---|---|
| Error | 27.22% |
| Cost | 1232 |
| Alternative 9 | |
|---|---|
| Error | 26.99% |
| Cost | 1232 |
| Alternative 10 | |
|---|---|
| Error | 31.47% |
| Cost | 968 |
| Alternative 11 | |
|---|---|
| Error | 27.19% |
| Cost | 968 |
| Alternative 12 | |
|---|---|
| Error | 28.19% |
| Cost | 968 |
| Alternative 13 | |
|---|---|
| Error | 31.3% |
| Cost | 841 |
| Alternative 14 | |
|---|---|
| Error | 35.73% |
| Cost | 520 |
| Alternative 15 | |
|---|---|
| Error | 58.22% |
| Cost | 192 |
herbie shell --seed 2023090
(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))))