\[\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{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
t_1 := \mathsf{fma}\left(\frac{y.re}{\mathsf{hypot}\left(y.re, y.im\right)}, \frac{x.im}{\mathsf{hypot}\left(y.re, y.im\right)}, \frac{-y.im \cdot x.re}{{\left(\mathsf{hypot}\left(y.re, y.im\right)\right)}^{2}}\right)\\
t_2 := \frac{x.im \cdot \frac{y.re}{y.im} - x.re}{y.im}\\
\mathbf{if}\;y.im \leq -2.5355883399872014 \cdot 10^{+249}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;y.im \leq -9.766740365443902 \cdot 10^{+235}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;y.im \leq -3.5729780386512144 \cdot 10^{+121}:\\
\;\;\;\;\frac{1}{\frac{y.im}{y.re} \cdot \frac{y.im}{x.im}} - \frac{x.re}{y.im}\\
\mathbf{elif}\;y.im \leq -1 \cdot 10^{-172}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y.im \leq 3.2241809059768097 \cdot 10^{-149}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;y.im \leq 2.926004778278525 \cdot 10^{+141}:\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;t_2\\
\end{array}
\]
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 = (x_46_im - (y_46_im * (x_46_re / y_46_re))) / y_46_re;
double t_1 = fma((y_46_re / hypot(y_46_re, y_46_im)), (x_46_im / hypot(y_46_re, y_46_im)), (-(y_46_im * x_46_re) / pow(hypot(y_46_re, y_46_im), 2.0)));
double t_2 = ((x_46_im * (y_46_re / y_46_im)) - x_46_re) / y_46_im;
double tmp;
if (y_46_im <= -2.5355883399872014e+249) {
tmp = t_2;
} else if (y_46_im <= -9.766740365443902e+235) {
tmp = t_0;
} else if (y_46_im <= -3.5729780386512144e+121) {
tmp = (1.0 / ((y_46_im / y_46_re) * (y_46_im / x_46_im))) - (x_46_re / y_46_im);
} else if (y_46_im <= -1e-172) {
tmp = t_1;
} else if (y_46_im <= 3.2241809059768097e-149) {
tmp = t_0;
} else if (y_46_im <= 2.926004778278525e+141) {
tmp = t_1;
} 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_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(x_46_im - Float64(y_46_im * Float64(x_46_re / y_46_re))) / y_46_re)
t_1 = fma(Float64(y_46_re / hypot(y_46_re, y_46_im)), Float64(x_46_im / hypot(y_46_re, y_46_im)), Float64(Float64(-Float64(y_46_im * x_46_re)) / (hypot(y_46_re, y_46_im) ^ 2.0)))
t_2 = Float64(Float64(Float64(x_46_im * Float64(y_46_re / y_46_im)) - x_46_re) / y_46_im)
tmp = 0.0
if (y_46_im <= -2.5355883399872014e+249)
tmp = t_2;
elseif (y_46_im <= -9.766740365443902e+235)
tmp = t_0;
elseif (y_46_im <= -3.5729780386512144e+121)
tmp = Float64(Float64(1.0 / Float64(Float64(y_46_im / y_46_re) * Float64(y_46_im / x_46_im))) - Float64(x_46_re / y_46_im));
elseif (y_46_im <= -1e-172)
tmp = t_1;
elseif (y_46_im <= 3.2241809059768097e-149)
tmp = t_0;
elseif (y_46_im <= 2.926004778278525e+141)
tmp = t_1;
else
tmp = t_2;
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[(x$46$im - N[(y$46$im * N[(x$46$re / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$1 = 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] + N[((-N[(y$46$im * x$46$re), $MachinePrecision]) / N[Power[N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(N[(x$46$im * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision] - x$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$im, -2.5355883399872014e+249], t$95$2, If[LessEqual[y$46$im, -9.766740365443902e+235], t$95$0, If[LessEqual[y$46$im, -3.5729780386512144e+121], N[(N[(1.0 / N[(N[(y$46$im / y$46$re), $MachinePrecision] * N[(y$46$im / x$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x$46$re / y$46$im), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, -1e-172], t$95$1, If[LessEqual[y$46$im, 3.2241809059768097e-149], t$95$0, If[LessEqual[y$46$im, 2.926004778278525e+141], t$95$1, t$95$2]]]]]]]]]
\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{x.im - y.im \cdot \frac{x.re}{y.re}}{y.re}\\
t_1 := \mathsf{fma}\left(\frac{y.re}{\mathsf{hypot}\left(y.re, y.im\right)}, \frac{x.im}{\mathsf{hypot}\left(y.re, y.im\right)}, \frac{-y.im \cdot x.re}{{\left(\mathsf{hypot}\left(y.re, y.im\right)\right)}^{2}}\right)\\
t_2 := \frac{x.im \cdot \frac{y.re}{y.im} - x.re}{y.im}\\
\mathbf{if}\;y.im \leq -2.5355883399872014 \cdot 10^{+249}:\\
\;\;\;\;t_2\\
\mathbf{elif}\;y.im \leq -9.766740365443902 \cdot 10^{+235}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;y.im \leq -3.5729780386512144 \cdot 10^{+121}:\\
\;\;\;\;\frac{1}{\frac{y.im}{y.re} \cdot \frac{y.im}{x.im}} - \frac{x.re}{y.im}\\
\mathbf{elif}\;y.im \leq -1 \cdot 10^{-172}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y.im \leq 3.2241809059768097 \cdot 10^{-149}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;y.im \leq 2.926004778278525 \cdot 10^{+141}:\\
\;\;\;\;t_1\\
\mathbf{else}:\\
\;\;\;\;t_2\\
\end{array}