| Alternative 1 | |
|---|---|
| Error | 13.6 |
| Cost | 2064 |
(FPCore (x.re x.im y.re y.im) :precision binary64 (/ (+ (* x.re y.re) (* x.im 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.re) (* y.im y.im)))
(t_1 (/ (* y.re x.re) t_0))
(t_2
(-
(/ x.re y.re)
(* y.im (/ x.im (- (- (* y.im y.im)) (* y.re y.re))))))
(t_3 (+ (* y.im y.im) (* y.re y.re))))
(if (<= y.re -2e+109)
t_2
(if (<= y.re -5.2e-161)
(- (/ (* x.im y.im) t_3) (* x.re (/ (- y.re) t_3)))
(if (<= y.re 1.5e-157)
(- t_1 (- (/ x.im y.im)))
(if (<= y.re 1.55e+37) (- t_1 (* x.im (/ (- y.im) t_0))) t_2))))))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)) / ((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_re) + (y_46_im * y_46_im);
double t_1 = (y_46_re * x_46_re) / t_0;
double t_2 = (x_46_re / y_46_re) - (y_46_im * (x_46_im / (-(y_46_im * y_46_im) - (y_46_re * y_46_re))));
double t_3 = (y_46_im * y_46_im) + (y_46_re * y_46_re);
double tmp;
if (y_46_re <= -2e+109) {
tmp = t_2;
} else if (y_46_re <= -5.2e-161) {
tmp = ((x_46_im * y_46_im) / t_3) - (x_46_re * (-y_46_re / t_3));
} else if (y_46_re <= 1.5e-157) {
tmp = t_1 - -(x_46_im / y_46_im);
} else if (y_46_re <= 1.55e+37) {
tmp = t_1 - (x_46_im * (-y_46_im / t_0));
} else {
tmp = t_2;
}
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
code = ((x_46re * y_46re) + (x_46im * y_46im)) / ((y_46re * y_46re) + (y_46im * y_46im))
end function
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) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = (y_46re * y_46re) + (y_46im * y_46im)
t_1 = (y_46re * x_46re) / t_0
t_2 = (x_46re / y_46re) - (y_46im * (x_46im / (-(y_46im * y_46im) - (y_46re * y_46re))))
t_3 = (y_46im * y_46im) + (y_46re * y_46re)
if (y_46re <= (-2d+109)) then
tmp = t_2
else if (y_46re <= (-5.2d-161)) then
tmp = ((x_46im * y_46im) / t_3) - (x_46re * (-y_46re / t_3))
else if (y_46re <= 1.5d-157) then
tmp = t_1 - -(x_46im / y_46im)
else if (y_46re <= 1.55d+37) then
tmp = t_1 - (x_46im * (-y_46im / t_0))
else
tmp = t_2
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) {
return ((x_46_re * y_46_re) + (x_46_im * y_46_im)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
}
public static 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_re) + (y_46_im * y_46_im);
double t_1 = (y_46_re * x_46_re) / t_0;
double t_2 = (x_46_re / y_46_re) - (y_46_im * (x_46_im / (-(y_46_im * y_46_im) - (y_46_re * y_46_re))));
double t_3 = (y_46_im * y_46_im) + (y_46_re * y_46_re);
double tmp;
if (y_46_re <= -2e+109) {
tmp = t_2;
} else if (y_46_re <= -5.2e-161) {
tmp = ((x_46_im * y_46_im) / t_3) - (x_46_re * (-y_46_re / t_3));
} else if (y_46_re <= 1.5e-157) {
tmp = t_1 - -(x_46_im / y_46_im);
} else if (y_46_re <= 1.55e+37) {
tmp = t_1 - (x_46_im * (-y_46_im / t_0));
} else {
tmp = t_2;
}
return tmp;
}
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)) / ((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): t_0 = (y_46_re * y_46_re) + (y_46_im * y_46_im) t_1 = (y_46_re * x_46_re) / t_0 t_2 = (x_46_re / y_46_re) - (y_46_im * (x_46_im / (-(y_46_im * y_46_im) - (y_46_re * y_46_re)))) t_3 = (y_46_im * y_46_im) + (y_46_re * y_46_re) tmp = 0 if y_46_re <= -2e+109: tmp = t_2 elif y_46_re <= -5.2e-161: tmp = ((x_46_im * y_46_im) / t_3) - (x_46_re * (-y_46_re / t_3)) elif y_46_re <= 1.5e-157: tmp = t_1 - -(x_46_im / y_46_im) elif y_46_re <= 1.55e+37: tmp = t_1 - (x_46_im * (-y_46_im / t_0)) else: tmp = t_2 return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(Float64(Float64(x_46_re * y_46_re) + Float64(x_46_im * 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(y_46_re * y_46_re) + Float64(y_46_im * y_46_im)) t_1 = Float64(Float64(y_46_re * x_46_re) / t_0) t_2 = Float64(Float64(x_46_re / y_46_re) - Float64(y_46_im * Float64(x_46_im / Float64(Float64(-Float64(y_46_im * y_46_im)) - Float64(y_46_re * y_46_re))))) t_3 = Float64(Float64(y_46_im * y_46_im) + Float64(y_46_re * y_46_re)) tmp = 0.0 if (y_46_re <= -2e+109) tmp = t_2; elseif (y_46_re <= -5.2e-161) tmp = Float64(Float64(Float64(x_46_im * y_46_im) / t_3) - Float64(x_46_re * Float64(Float64(-y_46_re) / t_3))); elseif (y_46_re <= 1.5e-157) tmp = Float64(t_1 - Float64(-Float64(x_46_im / y_46_im))); elseif (y_46_re <= 1.55e+37) tmp = Float64(t_1 - Float64(x_46_im * Float64(Float64(-y_46_im) / t_0))); else tmp = t_2; end return tmp 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)) / ((y_46_re * y_46_re) + (y_46_im * y_46_im)); end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = (y_46_re * y_46_re) + (y_46_im * y_46_im); t_1 = (y_46_re * x_46_re) / t_0; t_2 = (x_46_re / y_46_re) - (y_46_im * (x_46_im / (-(y_46_im * y_46_im) - (y_46_re * y_46_re)))); t_3 = (y_46_im * y_46_im) + (y_46_re * y_46_re); tmp = 0.0; if (y_46_re <= -2e+109) tmp = t_2; elseif (y_46_re <= -5.2e-161) tmp = ((x_46_im * y_46_im) / t_3) - (x_46_re * (-y_46_re / t_3)); elseif (y_46_re <= 1.5e-157) tmp = t_1 - -(x_46_im / y_46_im); elseif (y_46_re <= 1.55e+37) tmp = t_1 - (x_46_im * (-y_46_im / t_0)); else tmp = t_2; end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(N[(N[(x$46$re * y$46$re), $MachinePrecision] + N[(x$46$im * 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[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(y$46$re * x$46$re), $MachinePrecision] / t$95$0), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$46$re / y$46$re), $MachinePrecision] - N[(y$46$im * N[(x$46$im / N[((-N[(y$46$im * y$46$im), $MachinePrecision]) - N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y$46$im * y$46$im), $MachinePrecision] + N[(y$46$re * y$46$re), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y$46$re, -2e+109], t$95$2, If[LessEqual[y$46$re, -5.2e-161], N[(N[(N[(x$46$im * y$46$im), $MachinePrecision] / t$95$3), $MachinePrecision] - N[(x$46$re * N[((-y$46$re) / t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, 1.5e-157], N[(t$95$1 - (-N[(x$46$im / y$46$im), $MachinePrecision])), $MachinePrecision], If[LessEqual[y$46$re, 1.55e+37], N[(t$95$1 - N[(x$46$im * N[((-y$46$im) / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]
\frac{x.re \cdot y.re + x.im \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}
\begin{array}{l}
t_0 := y.re \cdot y.re + y.im \cdot y.im\\
t_1 := \frac{y.re \cdot x.re}{t_0}\\
t_2 := \frac{x.re}{y.re} - y.im \cdot \frac{x.im}{\left(-y.im \cdot y.im\right) - y.re \cdot y.re}\\
t_3 := y.im \cdot y.im + y.re \cdot y.re\\
\mathbf{if}\;y.re \leq -2 \cdot 10^{+109}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;y.re \leq -5.2 \cdot 10^{-161}:\\
\;\;\;\;\frac{x.im \cdot y.im}{t_3} - x.re \cdot \frac{-y.re}{t_3}\\
\mathbf{elif}\;y.re \leq 1.5 \cdot 10^{-157}:\\
\;\;\;\;t_1 - \left(-\frac{x.im}{y.im}\right)\\
\mathbf{elif}\;y.re \leq 1.55 \cdot 10^{+37}:\\
\;\;\;\;t_1 - x.im \cdot \frac{-y.im}{t_0}\\
\mathbf{else}:\\
\;\;\;\;t_2\\
\end{array}
Results
if y.re < -1.99999999999999996e109 or 1.5500000000000001e37 < y.re Initial program 37.3
Applied egg-rr36.7
Simplified37.4
[Start]36.7 | \[ \frac{x.re \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} - \left(-y.im\right) \cdot \frac{x.im}{y.re \cdot y.re + y.im \cdot y.im}
\] |
|---|---|
rational_best-simplify-1 [=>]36.7 | \[ \frac{\color{blue}{y.re \cdot x.re}}{y.re \cdot y.re + y.im \cdot y.im} - \left(-y.im\right) \cdot \frac{x.im}{y.re \cdot y.re + y.im \cdot y.im}
\] |
rational_best-simplify-55 [=>]37.4 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - \color{blue}{x.im \cdot \frac{-y.im}{y.re \cdot y.re + y.im \cdot y.im}}
\] |
Applied egg-rr36.7
Simplified36.7
[Start]36.7 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - \left(y.im \cdot \frac{x.im}{\left(-y.im \cdot y.im\right) - y.re \cdot y.re} + 0\right)
\] |
|---|---|
rational_best-simplify-3 [<=]36.7 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - \color{blue}{\left(0 + y.im \cdot \frac{x.im}{\left(-y.im \cdot y.im\right) - y.re \cdot y.re}\right)}
\] |
rational_best-simplify-6 [=>]36.7 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - \color{blue}{y.im \cdot \frac{x.im}{\left(-y.im \cdot y.im\right) - y.re \cdot y.re}}
\] |
Taylor expanded in y.re around inf 15.6
if -1.99999999999999996e109 < y.re < -5.19999999999999991e-161Initial program 17.4
Applied egg-rr32.1
Applied egg-rr17.0
Simplified15.4
[Start]17.0 | \[ \frac{y.im \cdot x.im}{y.im \cdot y.im + y.re \cdot y.re} - \left(-y.re\right) \cdot \frac{x.re}{y.im \cdot y.im + y.re \cdot y.re}
\] |
|---|---|
rational_best-simplify-1 [=>]17.0 | \[ \frac{\color{blue}{x.im \cdot y.im}}{y.im \cdot y.im + y.re \cdot y.re} - \left(-y.re\right) \cdot \frac{x.re}{y.im \cdot y.im + y.re \cdot y.re}
\] |
rational_best-simplify-55 [=>]15.4 | \[ \frac{x.im \cdot y.im}{y.im \cdot y.im + y.re \cdot y.re} - \color{blue}{x.re \cdot \frac{-y.re}{y.im \cdot y.im + y.re \cdot y.re}}
\] |
if -5.19999999999999991e-161 < y.re < 1.5e-157Initial program 22.4
Applied egg-rr24.1
Simplified19.7
[Start]24.1 | \[ \frac{x.re \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} - \left(-y.im\right) \cdot \frac{x.im}{y.re \cdot y.re + y.im \cdot y.im}
\] |
|---|---|
rational_best-simplify-1 [=>]24.1 | \[ \frac{\color{blue}{y.re \cdot x.re}}{y.re \cdot y.re + y.im \cdot y.im} - \left(-y.im\right) \cdot \frac{x.im}{y.re \cdot y.re + y.im \cdot y.im}
\] |
rational_best-simplify-55 [=>]19.7 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - \color{blue}{x.im \cdot \frac{-y.im}{y.re \cdot y.re + y.im \cdot y.im}}
\] |
Taylor expanded in y.im around inf 8.4
Simplified8.4
[Start]8.4 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - -1 \cdot \frac{x.im}{y.im}
\] |
|---|---|
rational_best-simplify-1 [=>]8.4 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - \color{blue}{\frac{x.im}{y.im} \cdot -1}
\] |
rational_best-simplify-10 [=>]8.4 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - \color{blue}{\left(-\frac{x.im}{y.im}\right)}
\] |
if 1.5e-157 < y.re < 1.5500000000000001e37Initial program 13.7
Applied egg-rr16.6
Simplified11.4
[Start]16.6 | \[ \frac{x.re \cdot y.re}{y.re \cdot y.re + y.im \cdot y.im} - \left(-y.im\right) \cdot \frac{x.im}{y.re \cdot y.re + y.im \cdot y.im}
\] |
|---|---|
rational_best-simplify-1 [=>]16.6 | \[ \frac{\color{blue}{y.re \cdot x.re}}{y.re \cdot y.re + y.im \cdot y.im} - \left(-y.im\right) \cdot \frac{x.im}{y.re \cdot y.re + y.im \cdot y.im}
\] |
rational_best-simplify-55 [=>]11.4 | \[ \frac{y.re \cdot x.re}{y.re \cdot y.re + y.im \cdot y.im} - \color{blue}{x.im \cdot \frac{-y.im}{y.re \cdot y.re + y.im \cdot y.im}}
\] |
Final simplification13.3
| Alternative 1 | |
|---|---|
| Error | 13.6 |
| Cost | 2064 |
| Alternative 2 | |
|---|---|
| Error | 15.3 |
| Cost | 1552 |
| Alternative 3 | |
|---|---|
| Error | 14.2 |
| Cost | 1552 |
| Alternative 4 | |
|---|---|
| Error | 23.9 |
| Cost | 1496 |
| Alternative 5 | |
|---|---|
| Error | 23.9 |
| Cost | 1496 |
| Alternative 6 | |
|---|---|
| Error | 16.5 |
| Cost | 1488 |
| Alternative 7 | |
|---|---|
| Error | 23.5 |
| Cost | 1100 |
| Alternative 8 | |
|---|---|
| Error | 23.3 |
| Cost | 1100 |
| Alternative 9 | |
|---|---|
| Error | 23.2 |
| Cost | 456 |
| Alternative 10 | |
|---|---|
| Error | 36.9 |
| Cost | 192 |
herbie shell --seed 2023100
(FPCore (x.re x.im y.re y.im)
:name "_divideComplex, real part"
:precision binary64
(/ (+ (* x.re y.re) (* x.im y.im)) (+ (* y.re y.re) (* y.im y.im))))