
(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))))
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));
}
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
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));
}
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))
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 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
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]
\begin{array}{l}
\\
\frac{x.re \cdot y.re + x.im \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 17 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(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))))
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));
}
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
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));
}
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))
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 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
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]
\begin{array}{l}
\\
\frac{x.re \cdot y.re + x.im \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 (+ (* y.re y.re) (* y.im y.im)))
(t_1 (/ (+ (* x.re y.re) (* x.im y.im)) t_0))
(t_2 (* (/ y.im (hypot y.re y.im)) (/ x.im (hypot y.re y.im))))
(t_3 (/ (+ x.re (* y.im (/ x.im y.re))) y.re))
(t_4 (* x.re (/ (/ y.re y.im) y.im)))
(t_5 (/ (+ x.re (* x.im (/ y.im y.re))) y.re)))
(if (<= y.im -1.2e+84)
t_2
(if (<= y.im -225.0)
t_1
(if (<= y.im -8.0)
(/ x.im y.im)
(if (<= y.im -2.35e-5)
(/ x.re y.re)
(if (<= y.im -2.2e-5)
t_4
(if (<= y.im -7.6e-32)
t_1
(if (<= y.im -7e-35)
(/ 1.0 (/ y.im (fma x.re (/ y.re y.im) x.im)))
(if (<= y.im -6.2e-39)
t_5
(if (<= y.im -4.4e-43)
(/ x.im y.im)
(if (<= y.im -1.3e-84)
(/ x.re y.re)
(if (<= y.im -1.25e-84)
(/ x.im y.im)
(if (<= y.im -1.44e-92)
(/ x.re y.re)
(if (<= y.im -1.4e-92)
(/ x.im y.im)
(if (<= y.im -1.45e-95)
(/ (* x.re y.re) t_0)
(if (<= y.im -2.5e-140)
(+
(/ x.re y.re)
(* x.im (/ y.im (pow y.re 2.0))))
(if (<= y.im -2.4e-140)
t_4
(if (<= y.im -1.6e-172)
t_3
(if (<= y.im -1.55e-172)
t_4
(if (<= y.im -1e-237)
(/
(+ x.re (/ x.im (/ y.re y.im)))
y.re)
(if (<= y.im 1.2e-194)
t_3
(if (<= y.im 1.25e-194)
(/ x.im y.im)
(if (<= y.im 2.1e-143)
t_3
(if (<= y.im 2.2e-143)
t_4
(if (<= y.im 1.1e-85)
t_3
(if (<= y.im 9.5e-52)
t_2
(if (<= y.im 5.2e-34)
t_4
(if (<= y.im 5.2e-33)
(/ x.re y.re)
(if (<= y.im 9e-9)
t_1
(if (<= y.im 460.0)
t_5
(if (<=
y.im
2.3e+27)
t_1
(if (<=
y.im
2.8e+46)
t_5
(if (<=
y.im
1.22e+51)
(/
x.im
y.im)
(if (<=
y.im
2.05e+74)
t_1
(if (<=
y.im
2.8e+103)
t_2
(if (<=
y.im
3e+103)
(/
x.re
y.re)
(if (<=
y.im
1.8e+143)
(/
(+
x.im
(*
x.re
(/
y.re
y.im)))
y.im)
(if (<=
y.im
1.85e+143)
(/
x.re
y.re)
(if (<=
y.im
1.3e+174)
t_2
(if (<=
y.im
1.25e+175)
(/
x.re
y.re)
(if (<=
y.im
4.7e+235)
t_2
(if (<=
y.im
4.8e+235)
(/
x.re
y.re)
(if (<=
y.im
1.9e+271)
t_2
(if (<=
y.im
1.95e+271)
(/
x.re
y.re)
(/
x.im
y.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 = ((x_46_re * y_46_re) + (x_46_im * y_46_im)) / t_0;
double t_2 = (y_46_im / hypot(y_46_re, y_46_im)) * (x_46_im / hypot(y_46_re, y_46_im));
double t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_4 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_5 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double tmp;
if (y_46_im <= -1.2e+84) {
tmp = t_2;
} else if (y_46_im <= -225.0) {
tmp = t_1;
} else if (y_46_im <= -8.0) {
tmp = x_46_im / y_46_im;
} else if (y_46_im <= -2.35e-5) {
tmp = x_46_re / y_46_re;
} else if (y_46_im <= -2.2e-5) {
tmp = t_4;
} else if (y_46_im <= -7.6e-32) {
tmp = t_1;
} else if (y_46_im <= -7e-35) {
tmp = 1.0 / (y_46_im / fma(x_46_re, (y_46_re / y_46_im), x_46_im));
} else if (y_46_im <= -6.2e-39) {
tmp = t_5;
} else if (y_46_im <= -4.4e-43) {
tmp = x_46_im / y_46_im;
} else if (y_46_im <= -1.3e-84) {
tmp = x_46_re / y_46_re;
} else if (y_46_im <= -1.25e-84) {
tmp = x_46_im / y_46_im;
} else if (y_46_im <= -1.44e-92) {
tmp = x_46_re / y_46_re;
} else if (y_46_im <= -1.4e-92) {
tmp = x_46_im / y_46_im;
} else if (y_46_im <= -1.45e-95) {
tmp = (x_46_re * y_46_re) / t_0;
} else if (y_46_im <= -2.5e-140) {
tmp = (x_46_re / y_46_re) + (x_46_im * (y_46_im / pow(y_46_re, 2.0)));
} else if (y_46_im <= -2.4e-140) {
tmp = t_4;
} else if (y_46_im <= -1.6e-172) {
tmp = t_3;
} else if (y_46_im <= -1.55e-172) {
tmp = t_4;
} else if (y_46_im <= -1e-237) {
tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
} else if (y_46_im <= 1.2e-194) {
tmp = t_3;
} else if (y_46_im <= 1.25e-194) {
tmp = x_46_im / y_46_im;
} else if (y_46_im <= 2.1e-143) {
tmp = t_3;
} else if (y_46_im <= 2.2e-143) {
tmp = t_4;
} else if (y_46_im <= 1.1e-85) {
tmp = t_3;
} else if (y_46_im <= 9.5e-52) {
tmp = t_2;
} else if (y_46_im <= 5.2e-34) {
tmp = t_4;
} else if (y_46_im <= 5.2e-33) {
tmp = x_46_re / y_46_re;
} else if (y_46_im <= 9e-9) {
tmp = t_1;
} else if (y_46_im <= 460.0) {
tmp = t_5;
} else if (y_46_im <= 2.3e+27) {
tmp = t_1;
} else if (y_46_im <= 2.8e+46) {
tmp = t_5;
} else if (y_46_im <= 1.22e+51) {
tmp = x_46_im / y_46_im;
} else if (y_46_im <= 2.05e+74) {
tmp = t_1;
} else if (y_46_im <= 2.8e+103) {
tmp = t_2;
} else if (y_46_im <= 3e+103) {
tmp = x_46_re / y_46_re;
} else if (y_46_im <= 1.8e+143) {
tmp = (x_46_im + (x_46_re * (y_46_re / y_46_im))) / y_46_im;
} else if (y_46_im <= 1.85e+143) {
tmp = x_46_re / y_46_re;
} else if (y_46_im <= 1.3e+174) {
tmp = t_2;
} else if (y_46_im <= 1.25e+175) {
tmp = x_46_re / y_46_re;
} else if (y_46_im <= 4.7e+235) {
tmp = t_2;
} else if (y_46_im <= 4.8e+235) {
tmp = x_46_re / y_46_re;
} else if (y_46_im <= 1.9e+271) {
tmp = t_2;
} else if (y_46_im <= 1.95e+271) {
tmp = x_46_re / y_46_re;
} else {
tmp = x_46_im / y_46_im;
}
return tmp;
}
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(Float64(x_46_re * y_46_re) + Float64(x_46_im * y_46_im)) / t_0) t_2 = Float64(Float64(y_46_im / hypot(y_46_re, y_46_im)) * Float64(x_46_im / hypot(y_46_re, y_46_im))) t_3 = Float64(Float64(x_46_re + Float64(y_46_im * Float64(x_46_im / y_46_re))) / y_46_re) t_4 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) t_5 = Float64(Float64(x_46_re + Float64(x_46_im * Float64(y_46_im / y_46_re))) / y_46_re) tmp = 0.0 if (y_46_im <= -1.2e+84) tmp = t_2; elseif (y_46_im <= -225.0) tmp = t_1; elseif (y_46_im <= -8.0) tmp = Float64(x_46_im / y_46_im); elseif (y_46_im <= -2.35e-5) tmp = Float64(x_46_re / y_46_re); elseif (y_46_im <= -2.2e-5) tmp = t_4; elseif (y_46_im <= -7.6e-32) tmp = t_1; elseif (y_46_im <= -7e-35) tmp = Float64(1.0 / Float64(y_46_im / fma(x_46_re, Float64(y_46_re / y_46_im), x_46_im))); elseif (y_46_im <= -6.2e-39) tmp = t_5; elseif (y_46_im <= -4.4e-43) tmp = Float64(x_46_im / y_46_im); elseif (y_46_im <= -1.3e-84) tmp = Float64(x_46_re / y_46_re); elseif (y_46_im <= -1.25e-84) tmp = Float64(x_46_im / y_46_im); elseif (y_46_im <= -1.44e-92) tmp = Float64(x_46_re / y_46_re); elseif (y_46_im <= -1.4e-92) tmp = Float64(x_46_im / y_46_im); elseif (y_46_im <= -1.45e-95) tmp = Float64(Float64(x_46_re * y_46_re) / t_0); elseif (y_46_im <= -2.5e-140) tmp = Float64(Float64(x_46_re / y_46_re) + Float64(x_46_im * Float64(y_46_im / (y_46_re ^ 2.0)))); elseif (y_46_im <= -2.4e-140) tmp = t_4; elseif (y_46_im <= -1.6e-172) tmp = t_3; elseif (y_46_im <= -1.55e-172) tmp = t_4; elseif (y_46_im <= -1e-237) tmp = Float64(Float64(x_46_re + Float64(x_46_im / Float64(y_46_re / y_46_im))) / y_46_re); elseif (y_46_im <= 1.2e-194) tmp = t_3; elseif (y_46_im <= 1.25e-194) tmp = Float64(x_46_im / y_46_im); elseif (y_46_im <= 2.1e-143) tmp = t_3; elseif (y_46_im <= 2.2e-143) tmp = t_4; elseif (y_46_im <= 1.1e-85) tmp = t_3; elseif (y_46_im <= 9.5e-52) tmp = t_2; elseif (y_46_im <= 5.2e-34) tmp = t_4; elseif (y_46_im <= 5.2e-33) tmp = Float64(x_46_re / y_46_re); elseif (y_46_im <= 9e-9) tmp = t_1; elseif (y_46_im <= 460.0) tmp = t_5; elseif (y_46_im <= 2.3e+27) tmp = t_1; elseif (y_46_im <= 2.8e+46) tmp = t_5; elseif (y_46_im <= 1.22e+51) tmp = Float64(x_46_im / y_46_im); elseif (y_46_im <= 2.05e+74) tmp = t_1; elseif (y_46_im <= 2.8e+103) tmp = t_2; elseif (y_46_im <= 3e+103) tmp = Float64(x_46_re / y_46_re); elseif (y_46_im <= 1.8e+143) tmp = Float64(Float64(x_46_im + Float64(x_46_re * Float64(y_46_re / y_46_im))) / y_46_im); elseif (y_46_im <= 1.85e+143) tmp = Float64(x_46_re / y_46_re); elseif (y_46_im <= 1.3e+174) tmp = t_2; elseif (y_46_im <= 1.25e+175) tmp = Float64(x_46_re / y_46_re); elseif (y_46_im <= 4.7e+235) tmp = t_2; elseif (y_46_im <= 4.8e+235) tmp = Float64(x_46_re / y_46_re); elseif (y_46_im <= 1.9e+271) tmp = t_2; elseif (y_46_im <= 1.95e+271) tmp = Float64(x_46_re / y_46_re); else tmp = Float64(x_46_im / 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[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[(x$46$re * y$46$re), $MachinePrecision] + N[(x$46$im * y$46$im), $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]}, Block[{t$95$2 = N[(N[(y$46$im / 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]}, Block[{t$95$3 = N[(N[(x$46$re + N[(y$46$im * N[(x$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$4 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x$46$re + N[(x$46$im * N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, If[LessEqual[y$46$im, -1.2e+84], t$95$2, If[LessEqual[y$46$im, -225.0], t$95$1, If[LessEqual[y$46$im, -8.0], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$im, -2.35e-5], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, -2.2e-5], t$95$4, If[LessEqual[y$46$im, -7.6e-32], t$95$1, If[LessEqual[y$46$im, -7e-35], N[(1.0 / N[(y$46$im / N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision] + x$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, -6.2e-39], t$95$5, If[LessEqual[y$46$im, -4.4e-43], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$im, -1.3e-84], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, -1.25e-84], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$im, -1.44e-92], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, -1.4e-92], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$im, -1.45e-95], N[(N[(x$46$re * y$46$re), $MachinePrecision] / t$95$0), $MachinePrecision], If[LessEqual[y$46$im, -2.5e-140], N[(N[(x$46$re / y$46$re), $MachinePrecision] + N[(x$46$im * N[(y$46$im / N[Power[y$46$re, 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, -2.4e-140], t$95$4, If[LessEqual[y$46$im, -1.6e-172], t$95$3, If[LessEqual[y$46$im, -1.55e-172], t$95$4, If[LessEqual[y$46$im, -1e-237], N[(N[(x$46$re + N[(x$46$im / N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 1.2e-194], t$95$3, If[LessEqual[y$46$im, 1.25e-194], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$im, 2.1e-143], t$95$3, If[LessEqual[y$46$im, 2.2e-143], t$95$4, If[LessEqual[y$46$im, 1.1e-85], t$95$3, If[LessEqual[y$46$im, 9.5e-52], t$95$2, If[LessEqual[y$46$im, 5.2e-34], t$95$4, If[LessEqual[y$46$im, 5.2e-33], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 9e-9], t$95$1, If[LessEqual[y$46$im, 460.0], t$95$5, If[LessEqual[y$46$im, 2.3e+27], t$95$1, If[LessEqual[y$46$im, 2.8e+46], t$95$5, If[LessEqual[y$46$im, 1.22e+51], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$im, 2.05e+74], t$95$1, If[LessEqual[y$46$im, 2.8e+103], t$95$2, If[LessEqual[y$46$im, 3e+103], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 1.8e+143], N[(N[(x$46$im + N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision], If[LessEqual[y$46$im, 1.85e+143], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 1.3e+174], t$95$2, If[LessEqual[y$46$im, 1.25e+175], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 4.7e+235], t$95$2, If[LessEqual[y$46$im, 4.8e+235], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$im, 1.9e+271], t$95$2, If[LessEqual[y$46$im, 1.95e+271], N[(x$46$re / y$46$re), $MachinePrecision], N[(x$46$im / y$46$im), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := y.re \cdot y.re + y.im \cdot y.im\\
t_1 := \frac{x.re \cdot y.re + x.im \cdot y.im}{t\_0}\\
t_2 := \frac{y.im}{\mathsf{hypot}\left(y.re, y.im\right)} \cdot \frac{x.im}{\mathsf{hypot}\left(y.re, y.im\right)}\\
t_3 := \frac{x.re + y.im \cdot \frac{x.im}{y.re}}{y.re}\\
t_4 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
t_5 := \frac{x.re + x.im \cdot \frac{y.im}{y.re}}{y.re}\\
\mathbf{if}\;y.im \leq -1.2 \cdot 10^{+84}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq -225:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq -8:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.im \leq -2.35 \cdot 10^{-5}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.im \leq -2.2 \cdot 10^{-5}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.im \leq -7.6 \cdot 10^{-32}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq -7 \cdot 10^{-35}:\\
\;\;\;\;\frac{1}{\frac{y.im}{\mathsf{fma}\left(x.re, \frac{y.re}{y.im}, x.im\right)}}\\
\mathbf{elif}\;y.im \leq -6.2 \cdot 10^{-39}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.im \leq -4.4 \cdot 10^{-43}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.im \leq -1.3 \cdot 10^{-84}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.im \leq -1.25 \cdot 10^{-84}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.im \leq -1.44 \cdot 10^{-92}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.im \leq -1.4 \cdot 10^{-92}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.im \leq -1.45 \cdot 10^{-95}:\\
\;\;\;\;\frac{x.re \cdot y.re}{t\_0}\\
\mathbf{elif}\;y.im \leq -2.5 \cdot 10^{-140}:\\
\;\;\;\;\frac{x.re}{y.re} + x.im \cdot \frac{y.im}{{y.re}^{2}}\\
\mathbf{elif}\;y.im \leq -2.4 \cdot 10^{-140}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.im \leq -1.6 \cdot 10^{-172}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.im \leq -1.55 \cdot 10^{-172}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.im \leq -1 \cdot 10^{-237}:\\
\;\;\;\;\frac{x.re + \frac{x.im}{\frac{y.re}{y.im}}}{y.re}\\
\mathbf{elif}\;y.im \leq 1.2 \cdot 10^{-194}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.im \leq 1.25 \cdot 10^{-194}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.im \leq 2.1 \cdot 10^{-143}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.im \leq 2.2 \cdot 10^{-143}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.im \leq 1.1 \cdot 10^{-85}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.im \leq 9.5 \cdot 10^{-52}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 5.2 \cdot 10^{-34}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.im \leq 5.2 \cdot 10^{-33}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.im \leq 9 \cdot 10^{-9}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq 460:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.im \leq 2.3 \cdot 10^{+27}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq 2.8 \cdot 10^{+46}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.im \leq 1.22 \cdot 10^{+51}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.im \leq 2.05 \cdot 10^{+74}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq 2.8 \cdot 10^{+103}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 3 \cdot 10^{+103}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.im \leq 1.8 \cdot 10^{+143}:\\
\;\;\;\;\frac{x.im + x.re \cdot \frac{y.re}{y.im}}{y.im}\\
\mathbf{elif}\;y.im \leq 1.85 \cdot 10^{+143}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.im \leq 1.3 \cdot 10^{+174}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 1.25 \cdot 10^{+175}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.im \leq 4.7 \cdot 10^{+235}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 4.8 \cdot 10^{+235}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.im \leq 1.9 \cdot 10^{+271}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 1.95 \cdot 10^{+271}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\end{array}
\end{array}
if y.im < -1.2e84 or 1.1e-85 < y.im < 9.50000000000000007e-52 or 2.05e74 < y.im < 2.80000000000000008e103 or 1.8500000000000001e143 < y.im < 1.2999999999999999e174 or 1.25e175 < y.im < 4.6999999999999999e235 or 4.7999999999999998e235 < y.im < 1.8999999999999999e271Initial program 43.0%
Taylor expanded in x.re around 0 40.6%
*-commutative40.6%
add-sqr-sqrt40.6%
hypot-undefine40.6%
hypot-undefine40.6%
times-frac91.2%
Applied egg-rr91.2%
if -1.2e84 < y.im < -225 or -2.1999999999999999e-5 < y.im < -7.60000000000000015e-32 or 5.19999999999999988e-33 < y.im < 8.99999999999999953e-9 or 460 < y.im < 2.3000000000000001e27 or 1.22000000000000005e51 < y.im < 2.05e74Initial program 92.2%
if -225 < y.im < -8 or -6.1999999999999994e-39 < y.im < -4.39999999999999994e-43 or -1.3e-84 < y.im < -1.25e-84 or -1.4400000000000001e-92 < y.im < -1.4e-92 or 1.2e-194 < y.im < 1.2500000000000001e-194 or 2.80000000000000018e46 < y.im < 1.22000000000000005e51 or 1.95e271 < y.im Initial program 45.9%
Taylor expanded in y.re around 0 100.0%
if -8 < y.im < -2.34999999999999986e-5 or -4.39999999999999994e-43 < y.im < -1.3e-84 or -1.25e-84 < y.im < -1.4400000000000001e-92 or 5.1999999999999999e-34 < y.im < 5.19999999999999988e-33 or 2.80000000000000008e103 < y.im < 3e103 or 1.8e143 < y.im < 1.8500000000000001e143 or 1.2999999999999999e174 < y.im < 1.25e175 or 4.6999999999999999e235 < y.im < 4.7999999999999998e235 or 1.8999999999999999e271 < y.im < 1.95e271Initial program 33.4%
Taylor expanded in y.re around inf 100.0%
if -2.34999999999999986e-5 < y.im < -2.1999999999999999e-5 or -2.50000000000000007e-140 < y.im < -2.39999999999999987e-140 or -1.6000000000000001e-172 < y.im < -1.5500000000000001e-172 or 2.1000000000000001e-143 < y.im < 2.19999999999999989e-143 or 9.50000000000000007e-52 < y.im < 5.1999999999999999e-34Initial program 83.4%
Taylor expanded in y.im around inf 99.5%
associate-/l*99.7%
Simplified99.7%
Taylor expanded in x.im around 0 83.4%
associate-/l*83.7%
Simplified83.7%
*-un-lft-identity83.7%
unpow283.7%
times-frac100.0%
Applied egg-rr100.0%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
if -7.60000000000000015e-32 < y.im < -6.99999999999999992e-35Initial program 99.2%
Taylor expanded in y.im around inf 99.2%
associate-/l*99.2%
Simplified99.2%
clear-num100.0%
inv-pow100.0%
+-commutative100.0%
fma-define100.0%
Applied egg-rr100.0%
unpow-1100.0%
Simplified100.0%
if -6.99999999999999992e-35 < y.im < -6.1999999999999994e-39 or 8.99999999999999953e-9 < y.im < 460 or 2.3000000000000001e27 < y.im < 2.80000000000000018e46Initial program 50.9%
Taylor expanded in y.re around inf 99.8%
associate-/l*100.0%
Simplified100.0%
if -1.4e-92 < y.im < -1.45000000000000001e-95Initial program 100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
Simplified100.0%
if -1.45000000000000001e-95 < y.im < -2.50000000000000007e-140Initial program 99.3%
Taylor expanded in y.im around 0 99.7%
associate-/l*100.0%
Simplified100.0%
if -2.39999999999999987e-140 < y.im < -1.6000000000000001e-172 or -9.9999999999999999e-238 < y.im < 1.2e-194 or 1.2500000000000001e-194 < y.im < 2.1000000000000001e-143 or 2.19999999999999989e-143 < y.im < 1.1e-85Initial program 65.4%
Taylor expanded in y.re around inf 100.0%
associate-/l*98.6%
Simplified98.6%
clear-num98.6%
un-div-inv98.6%
Applied egg-rr98.6%
associate-/r/100.0%
Applied egg-rr100.0%
if -1.5500000000000001e-172 < y.im < -9.9999999999999999e-238Initial program 66.4%
Taylor expanded in y.re around inf 100.0%
associate-/l*99.9%
Simplified99.9%
clear-num99.9%
un-div-inv100.0%
Applied egg-rr100.0%
if 3e103 < y.im < 1.8e143Initial program 67.9%
Taylor expanded in y.im around inf 89.3%
associate-/l*100.0%
Simplified100.0%
Final simplification96.4%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (+ x.re (* x.im (/ y.im y.re))) y.re))
(t_1 (/ (+ x.re (* y.im (/ x.im y.re))) y.re))
(t_2 (/ (+ x.re (/ x.im (/ y.re y.im))) y.re))
(t_3 (+ (* y.re y.re) (* y.im y.im)))
(t_4 (/ (+ (* x.re y.re) (* x.im y.im)) t_3))
(t_5 (/ (+ x.im (* x.re (/ y.re y.im))) y.im))
(t_6 (* x.re (/ (/ y.re y.im) y.im))))
(if (<= t_4 (- INFINITY))
t_0
(if (<= t_4 -2e+128)
t_4
(if (<= t_4 -5e+122)
(/ x.re y.re)
(if (<= t_4 -1e+14)
t_4
(if (<= t_4 -0.2)
(/ x.re y.re)
(if (<= t_4 -5e-81)
t_4
(if (<= t_4 -6e-178)
t_5
(if (<= t_4 -1.45e-182)
t_0
(if (<= t_4 -1e-215)
t_4
(if (<= t_4 -1e-235)
t_0
(if (<= t_4 -4e-240)
(/ x.im y.im)
(if (<= t_4 -5e-286)
(/ x.re y.re)
(if (<= t_4 -1e-304)
(/ x.im y.im)
(if (<= t_4 0.0)
t_1
(if (<= t_4 5e-303)
(/ (* x.re y.re) t_3)
(if (<= t_4 1e-293)
(/ x.im y.im)
(if (<= t_4 1e-261)
t_4
(if (<= t_4 1e-205)
t_1
(if (<= t_4 5e-205)
(/ x.im y.im)
(if (<= t_4 4e-196)
(/
1.0
(/ y.im (* y.re (/ x.re y.im))))
(if (<= t_4 5e-176)
(/ x.re y.re)
(if (<= t_4 1e-170)
(/ x.im y.im)
(if (<= t_4 1e-146)
t_1
(if (<= t_4 2e-126)
t_4
(if (<= t_4 1e-114)
(/ x.im y.im)
(if (<= t_4 4e-59)
t_4
(if (<= t_4 5e-53)
(/ x.im y.im)
(if (<= t_4 4e-45)
t_0
(if (<= t_4 5e-33)
t_4
(if (<= t_4 2e-16)
t_5
(if (<=
t_4
5e-14)
(/ x.re y.re)
(if (<=
t_4
20000.0)
t_5
(if (<=
t_4
2e+25)
(/
x.re
y.re)
(if (<=
t_4
5e+40)
t_6
(if (<=
t_4
5e+152)
t_1
(if (<=
t_4
1e+157)
t_6
(if (<=
t_4
5e+188)
t_2
(if (<=
t_4
1e+192)
(/
x.im
y.im)
(if (<=
t_4
1e+231)
t_4
(if (<=
t_4
5e+300)
(/
x.re
y.re)
(if (<=
t_4
INFINITY)
t_5
t_2)))))))))))))))))))))))))))))))))))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_1 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_2 = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
double t_3 = (y_46_re * y_46_re) + (y_46_im * y_46_im);
double t_4 = ((x_46_re * y_46_re) + (x_46_im * y_46_im)) / t_3;
double t_5 = (x_46_im + (x_46_re * (y_46_re / y_46_im))) / y_46_im;
double t_6 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double tmp;
if (t_4 <= -((double) INFINITY)) {
tmp = t_0;
} else if (t_4 <= -2e+128) {
tmp = t_4;
} else if (t_4 <= -5e+122) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= -1e+14) {
tmp = t_4;
} else if (t_4 <= -0.2) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= -5e-81) {
tmp = t_4;
} else if (t_4 <= -6e-178) {
tmp = t_5;
} else if (t_4 <= -1.45e-182) {
tmp = t_0;
} else if (t_4 <= -1e-215) {
tmp = t_4;
} else if (t_4 <= -1e-235) {
tmp = t_0;
} else if (t_4 <= -4e-240) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= -5e-286) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= -1e-304) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 0.0) {
tmp = t_1;
} else if (t_4 <= 5e-303) {
tmp = (x_46_re * y_46_re) / t_3;
} else if (t_4 <= 1e-293) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 1e-261) {
tmp = t_4;
} else if (t_4 <= 1e-205) {
tmp = t_1;
} else if (t_4 <= 5e-205) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 4e-196) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (t_4 <= 5e-176) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= 1e-170) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 1e-146) {
tmp = t_1;
} else if (t_4 <= 2e-126) {
tmp = t_4;
} else if (t_4 <= 1e-114) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 4e-59) {
tmp = t_4;
} else if (t_4 <= 5e-53) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 4e-45) {
tmp = t_0;
} else if (t_4 <= 5e-33) {
tmp = t_4;
} else if (t_4 <= 2e-16) {
tmp = t_5;
} else if (t_4 <= 5e-14) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= 20000.0) {
tmp = t_5;
} else if (t_4 <= 2e+25) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= 5e+40) {
tmp = t_6;
} else if (t_4 <= 5e+152) {
tmp = t_1;
} else if (t_4 <= 1e+157) {
tmp = t_6;
} else if (t_4 <= 5e+188) {
tmp = t_2;
} else if (t_4 <= 1e+192) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 1e+231) {
tmp = t_4;
} else if (t_4 <= 5e+300) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= ((double) INFINITY)) {
tmp = t_5;
} else {
tmp = t_2;
}
return tmp;
}
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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_1 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_2 = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
double t_3 = (y_46_re * y_46_re) + (y_46_im * y_46_im);
double t_4 = ((x_46_re * y_46_re) + (x_46_im * y_46_im)) / t_3;
double t_5 = (x_46_im + (x_46_re * (y_46_re / y_46_im))) / y_46_im;
double t_6 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double tmp;
if (t_4 <= -Double.POSITIVE_INFINITY) {
tmp = t_0;
} else if (t_4 <= -2e+128) {
tmp = t_4;
} else if (t_4 <= -5e+122) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= -1e+14) {
tmp = t_4;
} else if (t_4 <= -0.2) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= -5e-81) {
tmp = t_4;
} else if (t_4 <= -6e-178) {
tmp = t_5;
} else if (t_4 <= -1.45e-182) {
tmp = t_0;
} else if (t_4 <= -1e-215) {
tmp = t_4;
} else if (t_4 <= -1e-235) {
tmp = t_0;
} else if (t_4 <= -4e-240) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= -5e-286) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= -1e-304) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 0.0) {
tmp = t_1;
} else if (t_4 <= 5e-303) {
tmp = (x_46_re * y_46_re) / t_3;
} else if (t_4 <= 1e-293) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 1e-261) {
tmp = t_4;
} else if (t_4 <= 1e-205) {
tmp = t_1;
} else if (t_4 <= 5e-205) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 4e-196) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (t_4 <= 5e-176) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= 1e-170) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 1e-146) {
tmp = t_1;
} else if (t_4 <= 2e-126) {
tmp = t_4;
} else if (t_4 <= 1e-114) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 4e-59) {
tmp = t_4;
} else if (t_4 <= 5e-53) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 4e-45) {
tmp = t_0;
} else if (t_4 <= 5e-33) {
tmp = t_4;
} else if (t_4 <= 2e-16) {
tmp = t_5;
} else if (t_4 <= 5e-14) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= 20000.0) {
tmp = t_5;
} else if (t_4 <= 2e+25) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= 5e+40) {
tmp = t_6;
} else if (t_4 <= 5e+152) {
tmp = t_1;
} else if (t_4 <= 1e+157) {
tmp = t_6;
} else if (t_4 <= 5e+188) {
tmp = t_2;
} else if (t_4 <= 1e+192) {
tmp = x_46_im / y_46_im;
} else if (t_4 <= 1e+231) {
tmp = t_4;
} else if (t_4 <= 5e+300) {
tmp = x_46_re / y_46_re;
} else if (t_4 <= Double.POSITIVE_INFINITY) {
tmp = t_5;
} else {
tmp = t_2;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re t_1 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re t_2 = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re t_3 = (y_46_re * y_46_re) + (y_46_im * y_46_im) t_4 = ((x_46_re * y_46_re) + (x_46_im * y_46_im)) / t_3 t_5 = (x_46_im + (x_46_re * (y_46_re / y_46_im))) / y_46_im t_6 = x_46_re * ((y_46_re / y_46_im) / y_46_im) tmp = 0 if t_4 <= -math.inf: tmp = t_0 elif t_4 <= -2e+128: tmp = t_4 elif t_4 <= -5e+122: tmp = x_46_re / y_46_re elif t_4 <= -1e+14: tmp = t_4 elif t_4 <= -0.2: tmp = x_46_re / y_46_re elif t_4 <= -5e-81: tmp = t_4 elif t_4 <= -6e-178: tmp = t_5 elif t_4 <= -1.45e-182: tmp = t_0 elif t_4 <= -1e-215: tmp = t_4 elif t_4 <= -1e-235: tmp = t_0 elif t_4 <= -4e-240: tmp = x_46_im / y_46_im elif t_4 <= -5e-286: tmp = x_46_re / y_46_re elif t_4 <= -1e-304: tmp = x_46_im / y_46_im elif t_4 <= 0.0: tmp = t_1 elif t_4 <= 5e-303: tmp = (x_46_re * y_46_re) / t_3 elif t_4 <= 1e-293: tmp = x_46_im / y_46_im elif t_4 <= 1e-261: tmp = t_4 elif t_4 <= 1e-205: tmp = t_1 elif t_4 <= 5e-205: tmp = x_46_im / y_46_im elif t_4 <= 4e-196: tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))) elif t_4 <= 5e-176: tmp = x_46_re / y_46_re elif t_4 <= 1e-170: tmp = x_46_im / y_46_im elif t_4 <= 1e-146: tmp = t_1 elif t_4 <= 2e-126: tmp = t_4 elif t_4 <= 1e-114: tmp = x_46_im / y_46_im elif t_4 <= 4e-59: tmp = t_4 elif t_4 <= 5e-53: tmp = x_46_im / y_46_im elif t_4 <= 4e-45: tmp = t_0 elif t_4 <= 5e-33: tmp = t_4 elif t_4 <= 2e-16: tmp = t_5 elif t_4 <= 5e-14: tmp = x_46_re / y_46_re elif t_4 <= 20000.0: tmp = t_5 elif t_4 <= 2e+25: tmp = x_46_re / y_46_re elif t_4 <= 5e+40: tmp = t_6 elif t_4 <= 5e+152: tmp = t_1 elif t_4 <= 1e+157: tmp = t_6 elif t_4 <= 5e+188: tmp = t_2 elif t_4 <= 1e+192: tmp = x_46_im / y_46_im elif t_4 <= 1e+231: tmp = t_4 elif t_4 <= 5e+300: tmp = x_46_re / y_46_re elif t_4 <= math.inf: tmp = t_5 else: tmp = t_2 return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(Float64(x_46_re + Float64(x_46_im * Float64(y_46_im / y_46_re))) / y_46_re) t_1 = Float64(Float64(x_46_re + Float64(y_46_im * Float64(x_46_im / y_46_re))) / y_46_re) t_2 = Float64(Float64(x_46_re + Float64(x_46_im / Float64(y_46_re / y_46_im))) / y_46_re) t_3 = Float64(Float64(y_46_re * y_46_re) + Float64(y_46_im * y_46_im)) t_4 = Float64(Float64(Float64(x_46_re * y_46_re) + Float64(x_46_im * y_46_im)) / t_3) t_5 = Float64(Float64(x_46_im + Float64(x_46_re * Float64(y_46_re / y_46_im))) / y_46_im) t_6 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) tmp = 0.0 if (t_4 <= Float64(-Inf)) tmp = t_0; elseif (t_4 <= -2e+128) tmp = t_4; elseif (t_4 <= -5e+122) tmp = Float64(x_46_re / y_46_re); elseif (t_4 <= -1e+14) tmp = t_4; elseif (t_4 <= -0.2) tmp = Float64(x_46_re / y_46_re); elseif (t_4 <= -5e-81) tmp = t_4; elseif (t_4 <= -6e-178) tmp = t_5; elseif (t_4 <= -1.45e-182) tmp = t_0; elseif (t_4 <= -1e-215) tmp = t_4; elseif (t_4 <= -1e-235) tmp = t_0; elseif (t_4 <= -4e-240) tmp = Float64(x_46_im / y_46_im); elseif (t_4 <= -5e-286) tmp = Float64(x_46_re / y_46_re); elseif (t_4 <= -1e-304) tmp = Float64(x_46_im / y_46_im); elseif (t_4 <= 0.0) tmp = t_1; elseif (t_4 <= 5e-303) tmp = Float64(Float64(x_46_re * y_46_re) / t_3); elseif (t_4 <= 1e-293) tmp = Float64(x_46_im / y_46_im); elseif (t_4 <= 1e-261) tmp = t_4; elseif (t_4 <= 1e-205) tmp = t_1; elseif (t_4 <= 5e-205) tmp = Float64(x_46_im / y_46_im); elseif (t_4 <= 4e-196) tmp = Float64(1.0 / Float64(y_46_im / Float64(y_46_re * Float64(x_46_re / y_46_im)))); elseif (t_4 <= 5e-176) tmp = Float64(x_46_re / y_46_re); elseif (t_4 <= 1e-170) tmp = Float64(x_46_im / y_46_im); elseif (t_4 <= 1e-146) tmp = t_1; elseif (t_4 <= 2e-126) tmp = t_4; elseif (t_4 <= 1e-114) tmp = Float64(x_46_im / y_46_im); elseif (t_4 <= 4e-59) tmp = t_4; elseif (t_4 <= 5e-53) tmp = Float64(x_46_im / y_46_im); elseif (t_4 <= 4e-45) tmp = t_0; elseif (t_4 <= 5e-33) tmp = t_4; elseif (t_4 <= 2e-16) tmp = t_5; elseif (t_4 <= 5e-14) tmp = Float64(x_46_re / y_46_re); elseif (t_4 <= 20000.0) tmp = t_5; elseif (t_4 <= 2e+25) tmp = Float64(x_46_re / y_46_re); elseif (t_4 <= 5e+40) tmp = t_6; elseif (t_4 <= 5e+152) tmp = t_1; elseif (t_4 <= 1e+157) tmp = t_6; elseif (t_4 <= 5e+188) tmp = t_2; elseif (t_4 <= 1e+192) tmp = Float64(x_46_im / y_46_im); elseif (t_4 <= 1e+231) tmp = t_4; elseif (t_4 <= 5e+300) tmp = Float64(x_46_re / y_46_re); elseif (t_4 <= Inf) tmp = t_5; else tmp = t_2; 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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re; t_1 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re; t_2 = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re; t_3 = (y_46_re * y_46_re) + (y_46_im * y_46_im); t_4 = ((x_46_re * y_46_re) + (x_46_im * y_46_im)) / t_3; t_5 = (x_46_im + (x_46_re * (y_46_re / y_46_im))) / y_46_im; t_6 = x_46_re * ((y_46_re / y_46_im) / y_46_im); tmp = 0.0; if (t_4 <= -Inf) tmp = t_0; elseif (t_4 <= -2e+128) tmp = t_4; elseif (t_4 <= -5e+122) tmp = x_46_re / y_46_re; elseif (t_4 <= -1e+14) tmp = t_4; elseif (t_4 <= -0.2) tmp = x_46_re / y_46_re; elseif (t_4 <= -5e-81) tmp = t_4; elseif (t_4 <= -6e-178) tmp = t_5; elseif (t_4 <= -1.45e-182) tmp = t_0; elseif (t_4 <= -1e-215) tmp = t_4; elseif (t_4 <= -1e-235) tmp = t_0; elseif (t_4 <= -4e-240) tmp = x_46_im / y_46_im; elseif (t_4 <= -5e-286) tmp = x_46_re / y_46_re; elseif (t_4 <= -1e-304) tmp = x_46_im / y_46_im; elseif (t_4 <= 0.0) tmp = t_1; elseif (t_4 <= 5e-303) tmp = (x_46_re * y_46_re) / t_3; elseif (t_4 <= 1e-293) tmp = x_46_im / y_46_im; elseif (t_4 <= 1e-261) tmp = t_4; elseif (t_4 <= 1e-205) tmp = t_1; elseif (t_4 <= 5e-205) tmp = x_46_im / y_46_im; elseif (t_4 <= 4e-196) tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))); elseif (t_4 <= 5e-176) tmp = x_46_re / y_46_re; elseif (t_4 <= 1e-170) tmp = x_46_im / y_46_im; elseif (t_4 <= 1e-146) tmp = t_1; elseif (t_4 <= 2e-126) tmp = t_4; elseif (t_4 <= 1e-114) tmp = x_46_im / y_46_im; elseif (t_4 <= 4e-59) tmp = t_4; elseif (t_4 <= 5e-53) tmp = x_46_im / y_46_im; elseif (t_4 <= 4e-45) tmp = t_0; elseif (t_4 <= 5e-33) tmp = t_4; elseif (t_4 <= 2e-16) tmp = t_5; elseif (t_4 <= 5e-14) tmp = x_46_re / y_46_re; elseif (t_4 <= 20000.0) tmp = t_5; elseif (t_4 <= 2e+25) tmp = x_46_re / y_46_re; elseif (t_4 <= 5e+40) tmp = t_6; elseif (t_4 <= 5e+152) tmp = t_1; elseif (t_4 <= 1e+157) tmp = t_6; elseif (t_4 <= 5e+188) tmp = t_2; elseif (t_4 <= 1e+192) tmp = x_46_im / y_46_im; elseif (t_4 <= 1e+231) tmp = t_4; elseif (t_4 <= 5e+300) tmp = x_46_re / y_46_re; elseif (t_4 <= Inf) tmp = t_5; else tmp = t_2; end tmp_2 = 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[(x$46$im * N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(N[(x$46$re + N[(y$46$im * N[(x$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$46$re + N[(x$46$im / N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(x$46$re * y$46$re), $MachinePrecision] + N[(x$46$im * y$46$im), $MachinePrecision]), $MachinePrecision] / t$95$3), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x$46$im + N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$6 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$4, (-Infinity)], t$95$0, If[LessEqual[t$95$4, -2e+128], t$95$4, If[LessEqual[t$95$4, -5e+122], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$4, -1e+14], t$95$4, If[LessEqual[t$95$4, -0.2], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$4, -5e-81], t$95$4, If[LessEqual[t$95$4, -6e-178], t$95$5, If[LessEqual[t$95$4, -1.45e-182], t$95$0, If[LessEqual[t$95$4, -1e-215], t$95$4, If[LessEqual[t$95$4, -1e-235], t$95$0, If[LessEqual[t$95$4, -4e-240], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$4, -5e-286], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$4, -1e-304], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$4, 0.0], t$95$1, If[LessEqual[t$95$4, 5e-303], N[(N[(x$46$re * y$46$re), $MachinePrecision] / t$95$3), $MachinePrecision], If[LessEqual[t$95$4, 1e-293], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$4, 1e-261], t$95$4, If[LessEqual[t$95$4, 1e-205], t$95$1, If[LessEqual[t$95$4, 5e-205], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$4, 4e-196], N[(1.0 / N[(y$46$im / N[(y$46$re * N[(x$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$4, 5e-176], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$4, 1e-170], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$4, 1e-146], t$95$1, If[LessEqual[t$95$4, 2e-126], t$95$4, If[LessEqual[t$95$4, 1e-114], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$4, 4e-59], t$95$4, If[LessEqual[t$95$4, 5e-53], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$4, 4e-45], t$95$0, If[LessEqual[t$95$4, 5e-33], t$95$4, If[LessEqual[t$95$4, 2e-16], t$95$5, If[LessEqual[t$95$4, 5e-14], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$4, 20000.0], t$95$5, If[LessEqual[t$95$4, 2e+25], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$4, 5e+40], t$95$6, If[LessEqual[t$95$4, 5e+152], t$95$1, If[LessEqual[t$95$4, 1e+157], t$95$6, If[LessEqual[t$95$4, 5e+188], t$95$2, If[LessEqual[t$95$4, 1e+192], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$4, 1e+231], t$95$4, If[LessEqual[t$95$4, 5e+300], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$4, Infinity], t$95$5, t$95$2]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x.re + x.im \cdot \frac{y.im}{y.re}}{y.re}\\
t_1 := \frac{x.re + y.im \cdot \frac{x.im}{y.re}}{y.re}\\
t_2 := \frac{x.re + \frac{x.im}{\frac{y.re}{y.im}}}{y.re}\\
t_3 := y.re \cdot y.re + y.im \cdot y.im\\
t_4 := \frac{x.re \cdot y.re + x.im \cdot y.im}{t\_3}\\
t_5 := \frac{x.im + x.re \cdot \frac{y.re}{y.im}}{y.im}\\
t_6 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
\mathbf{if}\;t\_4 \leq -\infty:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;t\_4 \leq -2 \cdot 10^{+128}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq -5 \cdot 10^{+122}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_4 \leq -1 \cdot 10^{+14}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq -0.2:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_4 \leq -5 \cdot 10^{-81}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq -6 \cdot 10^{-178}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_4 \leq -1.45 \cdot 10^{-182}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;t\_4 \leq -1 \cdot 10^{-215}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq -1 \cdot 10^{-235}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;t\_4 \leq -4 \cdot 10^{-240}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_4 \leq -5 \cdot 10^{-286}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_4 \leq -1 \cdot 10^{-304}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_4 \leq 0:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{-303}:\\
\;\;\;\;\frac{x.re \cdot y.re}{t\_3}\\
\mathbf{elif}\;t\_4 \leq 10^{-293}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_4 \leq 10^{-261}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq 10^{-205}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{-205}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_4 \leq 4 \cdot 10^{-196}:\\
\;\;\;\;\frac{1}{\frac{y.im}{y.re \cdot \frac{x.re}{y.im}}}\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{-176}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_4 \leq 10^{-170}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_4 \leq 10^{-146}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_4 \leq 2 \cdot 10^{-126}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq 10^{-114}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_4 \leq 4 \cdot 10^{-59}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{-53}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_4 \leq 4 \cdot 10^{-45}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{-33}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq 2 \cdot 10^{-16}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{-14}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_4 \leq 20000:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_4 \leq 2 \cdot 10^{+25}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{+40}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{+152}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_4 \leq 10^{+157}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{+188}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_4 \leq 10^{+192}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_4 \leq 10^{+231}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_4 \leq 5 \cdot 10^{+300}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_4 \leq \infty:\\
\;\;\;\;t\_5\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -inf.0 or -5.9999999999999997e-178 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -1.44999999999999993e-182 or -1.00000000000000004e-215 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -9.9999999999999996e-236 or 5e-53 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 3.99999999999999994e-45Initial program 62.5%
Taylor expanded in y.re around inf 84.3%
associate-/l*89.6%
Simplified89.6%
if -inf.0 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -2.0000000000000002e128 or -4.99999999999999989e122 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -1e14 or -0.20000000000000001 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -4.99999999999999981e-81 or -1.44999999999999993e-182 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -1.00000000000000004e-215 or 1.0000000000000001e-293 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 9.99999999999999984e-262 or 1.00000000000000003e-146 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.9999999999999999e-126 or 1.0000000000000001e-114 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 4.0000000000000001e-59 or 3.99999999999999994e-45 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.00000000000000028e-33 or 1.00000000000000004e192 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.0000000000000001e231Initial program 99.8%
if -2.0000000000000002e128 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -4.99999999999999989e122 or -1e14 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -0.20000000000000001 or -3.9999999999999999e-240 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -5.00000000000000037e-286 or 4.0000000000000002e-196 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5e-176 or 2e-16 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.0000000000000002e-14 or 2e4 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 2.00000000000000018e25 or 1.0000000000000001e231 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.00000000000000026e300Initial program 93.0%
Taylor expanded in y.re around inf 100.0%
if -4.99999999999999981e-81 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -5.9999999999999997e-178 or 5.00000000000000028e-33 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 2e-16 or 5.0000000000000002e-14 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 2e4 or 5.00000000000000026e300 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < +inf.0Initial program 57.4%
Taylor expanded in y.im around inf 80.7%
associate-/l*80.8%
Simplified80.8%
if -9.9999999999999996e-236 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -3.9999999999999999e-240 or -5.00000000000000037e-286 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -9.99999999999999971e-305 or 4.9999999999999998e-303 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.0000000000000001e-293 or 1e-205 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.00000000000000001e-205 or 5e-176 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 9.99999999999999983e-171 or 1.9999999999999999e-126 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.0000000000000001e-114 or 4.0000000000000001e-59 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5e-53 or 5.0000000000000001e188 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.00000000000000004e192Initial program 99.3%
Taylor expanded in y.re around 0 100.0%
if -9.99999999999999971e-305 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -0.0 or 9.99999999999999984e-262 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1e-205 or 9.99999999999999983e-171 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.00000000000000003e-146 or 5.00000000000000003e40 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5e152Initial program 61.2%
Taylor expanded in y.re around inf 67.6%
associate-/l*66.5%
Simplified66.5%
clear-num66.5%
un-div-inv66.6%
Applied egg-rr66.6%
associate-/r/67.6%
Applied egg-rr67.6%
if -0.0 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 4.9999999999999998e-303Initial program 100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
Simplified100.0%
if 5.00000000000000001e-205 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 4.0000000000000002e-196Initial program 98.4%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
clear-num100.0%
inv-pow100.0%
+-commutative100.0%
fma-define100.0%
Applied egg-rr100.0%
unpow-1100.0%
Simplified100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
associate-/l*100.0%
Simplified100.0%
if 2.00000000000000018e25 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.00000000000000003e40 or 5e152 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 9.99999999999999983e156Initial program 100.0%
Taylor expanded in y.im around inf 100.0%
associate-/l*100.0%
Simplified100.0%
Taylor expanded in x.im around 0 100.0%
associate-/l*99.2%
Simplified99.2%
*-un-lft-identity99.2%
unpow299.2%
times-frac100.0%
Applied egg-rr100.0%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
if 9.99999999999999983e156 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.0000000000000001e188 or +inf.0 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) Initial program 4.5%
Taylor expanded in y.re around inf 46.9%
associate-/l*58.3%
Simplified58.3%
clear-num58.3%
un-div-inv58.4%
Applied egg-rr58.4%
Final simplification78.9%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (+ x.re (/ x.im (/ y.re y.im))) y.re))
(t_1 (/ (+ x.re (* x.im (/ y.im y.re))) y.re))
(t_2 (/ (+ x.re (* y.im (/ x.im y.re))) y.re))
(t_3 (/ (+ x.im (* x.re (/ y.re y.im))) y.im))
(t_4 (+ (* y.re y.re) (* y.im y.im)))
(t_5 (/ (+ (* x.re y.re) (* x.im y.im)) t_4))
(t_6 (* x.re (/ (/ y.re y.im) y.im))))
(if (<= t_5 (- INFINITY))
t_1
(if (<= t_5 -2e+128)
t_5
(if (<= t_5 -5e+122)
(/ x.re y.re)
(if (<= t_5 -1e+14)
t_5
(if (<= t_5 -0.2)
(/ x.re y.re)
(if (<= t_5 -5e-81)
t_5
(if (<= t_5 -6e-178)
t_3
(if (<= t_5 -1.45e-182)
t_1
(if (<= t_5 -1e-215)
t_5
(if (<= t_5 -1e-235)
t_1
(if (<= t_5 -4e-240)
(/ x.im y.im)
(if (<= t_5 -5e-286)
(/ x.re y.re)
(if (<= t_5 -1e-304)
(/ x.im y.im)
(if (<= t_5 0.0)
t_2
(if (<= t_5 5e-303)
(/ (* x.re y.re) t_4)
(if (<= t_5 1e-293)
(/ x.im y.im)
(if (<= t_5 1e-261)
t_5
(if (<= t_5 1e-205)
t_2
(if (<= t_5 4e-196)
(/
1.0
(/
y.im
(fma x.re (/ y.re y.im) x.im)))
(if (<= t_5 5e-176)
(/ x.re y.re)
(if (<= t_5 1e-170)
(/ x.im y.im)
(if (<= t_5 1e-146)
t_2
(if (<= t_5 2e-126)
t_5
(if (<= t_5 1e-114)
(/ x.im y.im)
(if (<= t_5 4e-59)
t_5
(if (<= t_5 5e-53)
(/ x.im y.im)
(if (<= t_5 4e-45)
t_1
(if (<= t_5 5e-33)
t_5
(if (<= t_5 2e-16)
t_3
(if (<= t_5 5e-14)
(/ x.re y.re)
(if (<=
t_5
20000.0)
t_3
(if (<=
t_5
2e+25)
(/
x.re
y.re)
(if (<=
t_5
5e+40)
t_6
(if (<=
t_5
5e+152)
t_2
(if (<=
t_5
1e+157)
t_6
(if (<=
t_5
5e+188)
t_0
(if (<=
t_5
1e+192)
(/
x.im
y.im)
(if (<=
t_5
1e+231)
t_5
(if (<=
t_5
5e+300)
(/
x.re
y.re)
(if (<=
t_5
INFINITY)
t_3
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 + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
double t_1 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_2 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_3 = (x_46_im + (x_46_re * (y_46_re / y_46_im))) / y_46_im;
double t_4 = (y_46_re * y_46_re) + (y_46_im * y_46_im);
double t_5 = ((x_46_re * y_46_re) + (x_46_im * y_46_im)) / t_4;
double t_6 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double tmp;
if (t_5 <= -((double) INFINITY)) {
tmp = t_1;
} else if (t_5 <= -2e+128) {
tmp = t_5;
} else if (t_5 <= -5e+122) {
tmp = x_46_re / y_46_re;
} else if (t_5 <= -1e+14) {
tmp = t_5;
} else if (t_5 <= -0.2) {
tmp = x_46_re / y_46_re;
} else if (t_5 <= -5e-81) {
tmp = t_5;
} else if (t_5 <= -6e-178) {
tmp = t_3;
} else if (t_5 <= -1.45e-182) {
tmp = t_1;
} else if (t_5 <= -1e-215) {
tmp = t_5;
} else if (t_5 <= -1e-235) {
tmp = t_1;
} else if (t_5 <= -4e-240) {
tmp = x_46_im / y_46_im;
} else if (t_5 <= -5e-286) {
tmp = x_46_re / y_46_re;
} else if (t_5 <= -1e-304) {
tmp = x_46_im / y_46_im;
} else if (t_5 <= 0.0) {
tmp = t_2;
} else if (t_5 <= 5e-303) {
tmp = (x_46_re * y_46_re) / t_4;
} else if (t_5 <= 1e-293) {
tmp = x_46_im / y_46_im;
} else if (t_5 <= 1e-261) {
tmp = t_5;
} else if (t_5 <= 1e-205) {
tmp = t_2;
} else if (t_5 <= 4e-196) {
tmp = 1.0 / (y_46_im / fma(x_46_re, (y_46_re / y_46_im), x_46_im));
} else if (t_5 <= 5e-176) {
tmp = x_46_re / y_46_re;
} else if (t_5 <= 1e-170) {
tmp = x_46_im / y_46_im;
} else if (t_5 <= 1e-146) {
tmp = t_2;
} else if (t_5 <= 2e-126) {
tmp = t_5;
} else if (t_5 <= 1e-114) {
tmp = x_46_im / y_46_im;
} else if (t_5 <= 4e-59) {
tmp = t_5;
} else if (t_5 <= 5e-53) {
tmp = x_46_im / y_46_im;
} else if (t_5 <= 4e-45) {
tmp = t_1;
} else if (t_5 <= 5e-33) {
tmp = t_5;
} else if (t_5 <= 2e-16) {
tmp = t_3;
} else if (t_5 <= 5e-14) {
tmp = x_46_re / y_46_re;
} else if (t_5 <= 20000.0) {
tmp = t_3;
} else if (t_5 <= 2e+25) {
tmp = x_46_re / y_46_re;
} else if (t_5 <= 5e+40) {
tmp = t_6;
} else if (t_5 <= 5e+152) {
tmp = t_2;
} else if (t_5 <= 1e+157) {
tmp = t_6;
} else if (t_5 <= 5e+188) {
tmp = t_0;
} else if (t_5 <= 1e+192) {
tmp = x_46_im / y_46_im;
} else if (t_5 <= 1e+231) {
tmp = t_5;
} else if (t_5 <= 5e+300) {
tmp = x_46_re / y_46_re;
} else if (t_5 <= ((double) INFINITY)) {
tmp = t_3;
} 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 + Float64(x_46_im / Float64(y_46_re / y_46_im))) / y_46_re) t_1 = Float64(Float64(x_46_re + Float64(x_46_im * Float64(y_46_im / y_46_re))) / y_46_re) t_2 = Float64(Float64(x_46_re + Float64(y_46_im * Float64(x_46_im / y_46_re))) / y_46_re) t_3 = Float64(Float64(x_46_im + Float64(x_46_re * Float64(y_46_re / y_46_im))) / y_46_im) t_4 = Float64(Float64(y_46_re * y_46_re) + Float64(y_46_im * y_46_im)) t_5 = Float64(Float64(Float64(x_46_re * y_46_re) + Float64(x_46_im * y_46_im)) / t_4) t_6 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) tmp = 0.0 if (t_5 <= Float64(-Inf)) tmp = t_1; elseif (t_5 <= -2e+128) tmp = t_5; elseif (t_5 <= -5e+122) tmp = Float64(x_46_re / y_46_re); elseif (t_5 <= -1e+14) tmp = t_5; elseif (t_5 <= -0.2) tmp = Float64(x_46_re / y_46_re); elseif (t_5 <= -5e-81) tmp = t_5; elseif (t_5 <= -6e-178) tmp = t_3; elseif (t_5 <= -1.45e-182) tmp = t_1; elseif (t_5 <= -1e-215) tmp = t_5; elseif (t_5 <= -1e-235) tmp = t_1; elseif (t_5 <= -4e-240) tmp = Float64(x_46_im / y_46_im); elseif (t_5 <= -5e-286) tmp = Float64(x_46_re / y_46_re); elseif (t_5 <= -1e-304) tmp = Float64(x_46_im / y_46_im); elseif (t_5 <= 0.0) tmp = t_2; elseif (t_5 <= 5e-303) tmp = Float64(Float64(x_46_re * y_46_re) / t_4); elseif (t_5 <= 1e-293) tmp = Float64(x_46_im / y_46_im); elseif (t_5 <= 1e-261) tmp = t_5; elseif (t_5 <= 1e-205) tmp = t_2; elseif (t_5 <= 4e-196) tmp = Float64(1.0 / Float64(y_46_im / fma(x_46_re, Float64(y_46_re / y_46_im), x_46_im))); elseif (t_5 <= 5e-176) tmp = Float64(x_46_re / y_46_re); elseif (t_5 <= 1e-170) tmp = Float64(x_46_im / y_46_im); elseif (t_5 <= 1e-146) tmp = t_2; elseif (t_5 <= 2e-126) tmp = t_5; elseif (t_5 <= 1e-114) tmp = Float64(x_46_im / y_46_im); elseif (t_5 <= 4e-59) tmp = t_5; elseif (t_5 <= 5e-53) tmp = Float64(x_46_im / y_46_im); elseif (t_5 <= 4e-45) tmp = t_1; elseif (t_5 <= 5e-33) tmp = t_5; elseif (t_5 <= 2e-16) tmp = t_3; elseif (t_5 <= 5e-14) tmp = Float64(x_46_re / y_46_re); elseif (t_5 <= 20000.0) tmp = t_3; elseif (t_5 <= 2e+25) tmp = Float64(x_46_re / y_46_re); elseif (t_5 <= 5e+40) tmp = t_6; elseif (t_5 <= 5e+152) tmp = t_2; elseif (t_5 <= 1e+157) tmp = t_6; elseif (t_5 <= 5e+188) tmp = t_0; elseif (t_5 <= 1e+192) tmp = Float64(x_46_im / y_46_im); elseif (t_5 <= 1e+231) tmp = t_5; elseif (t_5 <= 5e+300) tmp = Float64(x_46_re / y_46_re); elseif (t_5 <= Inf) tmp = t_3; 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$re + N[(x$46$im / N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(N[(x$46$re + N[(x$46$im * N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$46$re + N[(y$46$im * N[(x$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x$46$im + N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$4 = N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(N[(x$46$re * y$46$re), $MachinePrecision] + N[(x$46$im * y$46$im), $MachinePrecision]), $MachinePrecision] / t$95$4), $MachinePrecision]}, Block[{t$95$6 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$5, (-Infinity)], t$95$1, If[LessEqual[t$95$5, -2e+128], t$95$5, If[LessEqual[t$95$5, -5e+122], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$5, -1e+14], t$95$5, If[LessEqual[t$95$5, -0.2], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$5, -5e-81], t$95$5, If[LessEqual[t$95$5, -6e-178], t$95$3, If[LessEqual[t$95$5, -1.45e-182], t$95$1, If[LessEqual[t$95$5, -1e-215], t$95$5, If[LessEqual[t$95$5, -1e-235], t$95$1, If[LessEqual[t$95$5, -4e-240], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$5, -5e-286], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$5, -1e-304], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$5, 0.0], t$95$2, If[LessEqual[t$95$5, 5e-303], N[(N[(x$46$re * y$46$re), $MachinePrecision] / t$95$4), $MachinePrecision], If[LessEqual[t$95$5, 1e-293], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$5, 1e-261], t$95$5, If[LessEqual[t$95$5, 1e-205], t$95$2, If[LessEqual[t$95$5, 4e-196], N[(1.0 / N[(y$46$im / N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision] + x$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$5, 5e-176], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$5, 1e-170], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$5, 1e-146], t$95$2, If[LessEqual[t$95$5, 2e-126], t$95$5, If[LessEqual[t$95$5, 1e-114], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$5, 4e-59], t$95$5, If[LessEqual[t$95$5, 5e-53], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$5, 4e-45], t$95$1, If[LessEqual[t$95$5, 5e-33], t$95$5, If[LessEqual[t$95$5, 2e-16], t$95$3, If[LessEqual[t$95$5, 5e-14], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$5, 20000.0], t$95$3, If[LessEqual[t$95$5, 2e+25], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$5, 5e+40], t$95$6, If[LessEqual[t$95$5, 5e+152], t$95$2, If[LessEqual[t$95$5, 1e+157], t$95$6, If[LessEqual[t$95$5, 5e+188], t$95$0, If[LessEqual[t$95$5, 1e+192], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[t$95$5, 1e+231], t$95$5, If[LessEqual[t$95$5, 5e+300], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[t$95$5, Infinity], t$95$3, t$95$0]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x.re + \frac{x.im}{\frac{y.re}{y.im}}}{y.re}\\
t_1 := \frac{x.re + x.im \cdot \frac{y.im}{y.re}}{y.re}\\
t_2 := \frac{x.re + y.im \cdot \frac{x.im}{y.re}}{y.re}\\
t_3 := \frac{x.im + x.re \cdot \frac{y.re}{y.im}}{y.im}\\
t_4 := y.re \cdot y.re + y.im \cdot y.im\\
t_5 := \frac{x.re \cdot y.re + x.im \cdot y.im}{t\_4}\\
t_6 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
\mathbf{if}\;t\_5 \leq -\infty:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_5 \leq -2 \cdot 10^{+128}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq -5 \cdot 10^{+122}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_5 \leq -1 \cdot 10^{+14}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq -0.2:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_5 \leq -5 \cdot 10^{-81}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq -6 \cdot 10^{-178}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t\_5 \leq -1.45 \cdot 10^{-182}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_5 \leq -1 \cdot 10^{-215}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq -1 \cdot 10^{-235}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_5 \leq -4 \cdot 10^{-240}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_5 \leq -5 \cdot 10^{-286}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_5 \leq -1 \cdot 10^{-304}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_5 \leq 0:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{-303}:\\
\;\;\;\;\frac{x.re \cdot y.re}{t\_4}\\
\mathbf{elif}\;t\_5 \leq 10^{-293}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_5 \leq 10^{-261}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq 10^{-205}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_5 \leq 4 \cdot 10^{-196}:\\
\;\;\;\;\frac{1}{\frac{y.im}{\mathsf{fma}\left(x.re, \frac{y.re}{y.im}, x.im\right)}}\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{-176}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_5 \leq 10^{-170}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_5 \leq 10^{-146}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_5 \leq 2 \cdot 10^{-126}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq 10^{-114}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_5 \leq 4 \cdot 10^{-59}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{-53}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_5 \leq 4 \cdot 10^{-45}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{-33}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq 2 \cdot 10^{-16}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{-14}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_5 \leq 20000:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t\_5 \leq 2 \cdot 10^{+25}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{+40}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{+152}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_5 \leq 10^{+157}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{+188}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;t\_5 \leq 10^{+192}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;t\_5 \leq 10^{+231}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;t\_5 \leq 5 \cdot 10^{+300}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;t\_5 \leq \infty:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -inf.0 or -5.9999999999999997e-178 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -1.44999999999999993e-182 or -1.00000000000000004e-215 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -9.9999999999999996e-236 or 5e-53 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 3.99999999999999994e-45Initial program 62.5%
Taylor expanded in y.re around inf 84.3%
associate-/l*89.6%
Simplified89.6%
if -inf.0 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -2.0000000000000002e128 or -4.99999999999999989e122 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -1e14 or -0.20000000000000001 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -4.99999999999999981e-81 or -1.44999999999999993e-182 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -1.00000000000000004e-215 or 1.0000000000000001e-293 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 9.99999999999999984e-262 or 1.00000000000000003e-146 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.9999999999999999e-126 or 1.0000000000000001e-114 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 4.0000000000000001e-59 or 3.99999999999999994e-45 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.00000000000000028e-33 or 1.00000000000000004e192 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.0000000000000001e231Initial program 99.8%
if -2.0000000000000002e128 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -4.99999999999999989e122 or -1e14 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -0.20000000000000001 or -3.9999999999999999e-240 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -5.00000000000000037e-286 or 4.0000000000000002e-196 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5e-176 or 2e-16 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.0000000000000002e-14 or 2e4 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 2.00000000000000018e25 or 1.0000000000000001e231 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.00000000000000026e300Initial program 93.0%
Taylor expanded in y.re around inf 100.0%
if -4.99999999999999981e-81 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -5.9999999999999997e-178 or 5.00000000000000028e-33 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 2e-16 or 5.0000000000000002e-14 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 2e4 or 5.00000000000000026e300 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < +inf.0Initial program 57.4%
Taylor expanded in y.im around inf 80.7%
associate-/l*80.8%
Simplified80.8%
if -9.9999999999999996e-236 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -3.9999999999999999e-240 or -5.00000000000000037e-286 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -9.99999999999999971e-305 or 4.9999999999999998e-303 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.0000000000000001e-293 or 5e-176 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 9.99999999999999983e-171 or 1.9999999999999999e-126 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.0000000000000001e-114 or 4.0000000000000001e-59 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5e-53 or 5.0000000000000001e188 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.00000000000000004e192Initial program 99.3%
Taylor expanded in y.re around 0 100.0%
if -9.99999999999999971e-305 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < -0.0 or 9.99999999999999984e-262 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1e-205 or 9.99999999999999983e-171 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 1.00000000000000003e-146 or 5.00000000000000003e40 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5e152Initial program 61.2%
Taylor expanded in y.re around inf 67.6%
associate-/l*66.5%
Simplified66.5%
clear-num66.5%
un-div-inv66.6%
Applied egg-rr66.6%
associate-/r/67.6%
Applied egg-rr67.6%
if -0.0 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 4.9999999999999998e-303Initial program 100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
Simplified100.0%
if 1e-205 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 4.0000000000000002e-196Initial program 99.2%
Taylor expanded in y.im around inf 99.2%
associate-/l*99.2%
Simplified99.2%
clear-num100.0%
inv-pow100.0%
+-commutative100.0%
fma-define100.0%
Applied egg-rr100.0%
unpow-1100.0%
Simplified100.0%
if 2.00000000000000018e25 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.00000000000000003e40 or 5e152 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 9.99999999999999983e156Initial program 100.0%
Taylor expanded in y.im around inf 100.0%
associate-/l*100.0%
Simplified100.0%
Taylor expanded in x.im around 0 100.0%
associate-/l*99.2%
Simplified99.2%
*-un-lft-identity99.2%
unpow299.2%
times-frac100.0%
Applied egg-rr100.0%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
if 9.99999999999999983e156 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < 5.0000000000000001e188 or +inf.0 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) Initial program 4.5%
Taylor expanded in y.re around inf 46.9%
associate-/l*58.3%
Simplified58.3%
clear-num58.3%
un-div-inv58.4%
Applied egg-rr58.4%
Final simplification78.9%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (<=
(/ (+ (* x.re y.re) (* x.im y.im)) (+ (* y.re y.re) (* y.im y.im)))
INFINITY)
(*
(/ 1.0 (hypot y.re y.im))
(/ (fma x.re y.re (* x.im y.im)) (hypot y.re y.im)))
(/ (+ x.re (/ x.im (/ y.re y.im))) y.re)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((((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) INFINITY)) {
tmp = (1.0 / hypot(y_46_re, y_46_im)) * (fma(x_46_re, y_46_re, (x_46_im * y_46_im)) / hypot(y_46_re, y_46_im));
} else {
tmp = (x_46_re + (x_46_im / (y_46_re / y_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 (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))) <= Inf) tmp = Float64(Float64(1.0 / hypot(y_46_re, y_46_im)) * Float64(fma(x_46_re, y_46_re, Float64(x_46_im * y_46_im)) / hypot(y_46_re, y_46_im))); else tmp = Float64(Float64(x_46_re + Float64(x_46_im / Float64(y_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_] := If[LessEqual[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], Infinity], N[(N[(1.0 / N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision]), $MachinePrecision] * N[(N[(x$46$re * y$46$re + N[(x$46$im * y$46$im), $MachinePrecision]), $MachinePrecision] / N[Sqrt[y$46$re ^ 2 + y$46$im ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x$46$re + N[(x$46$im / N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x.re \cdot y.re + x.im \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im} \leq \infty:\\
\;\;\;\;\frac{1}{\mathsf{hypot}\left(y.re, y.im\right)} \cdot \frac{\mathsf{fma}\left(x.re, y.re, x.im \cdot y.im\right)}{\mathsf{hypot}\left(y.re, y.im\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.re + \frac{x.im}{\frac{y.re}{y.im}}}{y.re}\\
\end{array}
\end{array}
if (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) < +inf.0Initial program 74.9%
*-un-lft-identity74.9%
add-sqr-sqrt74.9%
times-frac74.9%
hypot-define74.9%
fma-define74.9%
hypot-define93.9%
Applied egg-rr93.9%
if +inf.0 < (/.f64 (+.f64 (*.f64 x.re y.re) (*.f64 x.im y.im)) (+.f64 (*.f64 y.re y.re) (*.f64 y.im y.im))) Initial program 0.0%
Taylor expanded in y.re around inf 44.4%
associate-/l*56.4%
Simplified56.4%
clear-num56.4%
un-div-inv56.4%
Applied egg-rr56.4%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (* x.re (/ y.re y.im)))
(t_1 (/ (+ x.im t_0) y.im))
(t_2 (* x.re (/ (/ y.re y.im) y.im)))
(t_3 (/ (+ x.re (* y.im (/ x.im y.re))) y.re))
(t_4 (/ (+ x.re (* x.im (/ y.im y.re))) y.re))
(t_5 (/ (+ x.im (/ (* x.re y.re) y.im)) y.im))
(t_6 (/ t_0 y.im)))
(if (<= y.re -2.35e-51)
t_3
(if (<= y.re -1.6e-76)
t_1
(if (<= y.re -9e-77)
(/ x.re y.re)
(if (<= y.re -7.2e-81)
(/ 1.0 (/ y.im (* y.re (/ x.re y.im))))
(if (<= y.re -4e-83)
(/ x.re y.re)
(if (<= y.re -1.2e-100)
(/ x.im y.im)
(if (<= y.re -3.3e-101)
t_4
(if (<= y.re -1.9e-103)
(/ x.im y.im)
(if (<= y.re -1.6e-105)
(/ (+ x.re (/ x.im (/ y.re y.im))) y.re)
(if (<= y.re -1.9e-170)
t_1
(if (<= y.re -1.5e-170)
(/ x.re y.re)
(if (<= y.re -7e-194)
t_1
(if (<= y.re -1.45e-198)
t_4
(if (<= y.re -2e-286)
t_1
(if (<= y.re 2.25e-263)
t_5
(if (<= y.re 5.2e-263)
t_4
(if (<= y.re 2.1e-262)
t_2
(if (<= y.re 1.3e-210)
t_1
(if (<= y.re 8e-210)
(/ x.re y.re)
(if (<= y.re 7e-207)
t_2
(if (<= y.re 4.1e-165)
t_5
(if (<= y.re 8.4e-150)
t_3
(if (<= y.re 8.5e-123)
t_1
(if (<= y.re 9e-123)
(/ x.re y.re)
(if (<= y.re 3.05e-102)
t_1
(if (<= y.re 1.45e-98)
(/ x.re y.re)
(if (<= y.re 3.1e-84)
(/ x.im y.im)
(if (<= y.re 4.8e-72)
(/ x.re y.re)
(if (<=
y.re
2.75e-53)
t_6
(if (<=
y.re
1.05e-40)
(/ x.re y.re)
(if (<=
y.re
7.2e-28)
(/ x.im y.im)
(if (<=
y.re
2400000000.0)
(/
x.re
y.re)
(if (<=
y.re
5.2e+19)
(/
x.im
y.im)
(if (<=
y.re
2.7e+37)
t_4
(if (<=
y.re
3.95e+37)
(/
x.im
y.im)
(if (<=
y.re
1.2e+57)
t_4
(if (<=
y.re
4.8e+57)
(/
x.im
y.im)
(if (<=
y.re
1.6e+78)
t_4
(if (<=
y.re
3.7e+79)
(/
x.im
y.im)
(if (<=
y.re
5.5e+101)
t_3
(if (<=
y.re
1.8e+103)
(/
x.im
y.im)
(if (<=
y.re
3.5e+117)
(/
x.re
y.re)
(if (<=
y.re
3.6e+117)
t_6
(if (<=
y.re
2e+136)
t_4
(if (<=
y.re
2.02e+136)
t_6
(if (<=
y.re
2.1e+163)
(/
x.re
y.re)
(if (<=
y.re
2.15e+163)
(/
x.im
y.im)
(if (<=
y.re
2.7e+171)
(/
x.re
y.re)
(if (<=
y.re
2.8e+171)
t_1
(if (<=
y.re
2.2e+198)
(/
x.re
y.re)
(if (<=
y.re
2.3e+198)
(/
x.im
y.im)
(if (<=
y.re
2.9e+207)
t_3
(if (<=
y.re
3e+207)
t_1
(if (<=
y.re
2.35e+224)
(/
x.re
y.re)
(if (<=
y.re
2.4e+224)
(/
x.im
y.im)
t_4)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
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_re / y_46_im);
double t_1 = (x_46_im + t_0) / y_46_im;
double t_2 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_4 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_6 = t_0 / y_46_im;
double tmp;
if (y_46_re <= -2.35e-51) {
tmp = t_3;
} else if (y_46_re <= -1.6e-76) {
tmp = t_1;
} else if (y_46_re <= -9e-77) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7.2e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -4e-83) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -1.2e-100) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -3.3e-101) {
tmp = t_4;
} else if (y_46_re <= -1.9e-103) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.6e-105) {
tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
} else if (y_46_re <= -1.9e-170) {
tmp = t_1;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_1;
} else if (y_46_re <= -1.45e-198) {
tmp = t_4;
} else if (y_46_re <= -2e-286) {
tmp = t_1;
} else if (y_46_re <= 2.25e-263) {
tmp = t_5;
} else if (y_46_re <= 5.2e-263) {
tmp = t_4;
} else if (y_46_re <= 2.1e-262) {
tmp = t_2;
} else if (y_46_re <= 1.3e-210) {
tmp = t_1;
} else if (y_46_re <= 8e-210) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_2;
} else if (y_46_re <= 4.1e-165) {
tmp = t_5;
} else if (y_46_re <= 8.4e-150) {
tmp = t_3;
} else if (y_46_re <= 8.5e-123) {
tmp = t_1;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_1;
} else if (y_46_re <= 1.45e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.1e-84) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 4.8e-72) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.75e-53) {
tmp = t_6;
} else if (y_46_re <= 1.05e-40) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7.2e-28) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2400000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 5.2e+19) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+37) {
tmp = t_4;
} else if (y_46_re <= 3.95e+37) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_4;
} else if (y_46_re <= 4.8e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.6e+78) {
tmp = t_4;
} else if (y_46_re <= 3.7e+79) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e+101) {
tmp = t_3;
} else if (y_46_re <= 1.8e+103) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_6;
} else if (y_46_re <= 2e+136) {
tmp = t_4;
} else if (y_46_re <= 2.02e+136) {
tmp = t_6;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_1;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = t_3;
} else if (y_46_re <= 3e+207) {
tmp = t_1;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_46_im / y_46_im;
} else {
tmp = t_4;
}
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) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: tmp
t_0 = x_46re * (y_46re / y_46im)
t_1 = (x_46im + t_0) / y_46im
t_2 = x_46re * ((y_46re / y_46im) / y_46im)
t_3 = (x_46re + (y_46im * (x_46im / y_46re))) / y_46re
t_4 = (x_46re + (x_46im * (y_46im / y_46re))) / y_46re
t_5 = (x_46im + ((x_46re * y_46re) / y_46im)) / y_46im
t_6 = t_0 / y_46im
if (y_46re <= (-2.35d-51)) then
tmp = t_3
else if (y_46re <= (-1.6d-76)) then
tmp = t_1
else if (y_46re <= (-9d-77)) then
tmp = x_46re / y_46re
else if (y_46re <= (-7.2d-81)) then
tmp = 1.0d0 / (y_46im / (y_46re * (x_46re / y_46im)))
else if (y_46re <= (-4d-83)) then
tmp = x_46re / y_46re
else if (y_46re <= (-1.2d-100)) then
tmp = x_46im / y_46im
else if (y_46re <= (-3.3d-101)) then
tmp = t_4
else if (y_46re <= (-1.9d-103)) then
tmp = x_46im / y_46im
else if (y_46re <= (-1.6d-105)) then
tmp = (x_46re + (x_46im / (y_46re / y_46im))) / y_46re
else if (y_46re <= (-1.9d-170)) then
tmp = t_1
else if (y_46re <= (-1.5d-170)) then
tmp = x_46re / y_46re
else if (y_46re <= (-7d-194)) then
tmp = t_1
else if (y_46re <= (-1.45d-198)) then
tmp = t_4
else if (y_46re <= (-2d-286)) then
tmp = t_1
else if (y_46re <= 2.25d-263) then
tmp = t_5
else if (y_46re <= 5.2d-263) then
tmp = t_4
else if (y_46re <= 2.1d-262) then
tmp = t_2
else if (y_46re <= 1.3d-210) then
tmp = t_1
else if (y_46re <= 8d-210) then
tmp = x_46re / y_46re
else if (y_46re <= 7d-207) then
tmp = t_2
else if (y_46re <= 4.1d-165) then
tmp = t_5
else if (y_46re <= 8.4d-150) then
tmp = t_3
else if (y_46re <= 8.5d-123) then
tmp = t_1
else if (y_46re <= 9d-123) then
tmp = x_46re / y_46re
else if (y_46re <= 3.05d-102) then
tmp = t_1
else if (y_46re <= 1.45d-98) then
tmp = x_46re / y_46re
else if (y_46re <= 3.1d-84) then
tmp = x_46im / y_46im
else if (y_46re <= 4.8d-72) then
tmp = x_46re / y_46re
else if (y_46re <= 2.75d-53) then
tmp = t_6
else if (y_46re <= 1.05d-40) then
tmp = x_46re / y_46re
else if (y_46re <= 7.2d-28) then
tmp = x_46im / y_46im
else if (y_46re <= 2400000000.0d0) then
tmp = x_46re / y_46re
else if (y_46re <= 5.2d+19) then
tmp = x_46im / y_46im
else if (y_46re <= 2.7d+37) then
tmp = t_4
else if (y_46re <= 3.95d+37) then
tmp = x_46im / y_46im
else if (y_46re <= 1.2d+57) then
tmp = t_4
else if (y_46re <= 4.8d+57) then
tmp = x_46im / y_46im
else if (y_46re <= 1.6d+78) then
tmp = t_4
else if (y_46re <= 3.7d+79) then
tmp = x_46im / y_46im
else if (y_46re <= 5.5d+101) then
tmp = t_3
else if (y_46re <= 1.8d+103) then
tmp = x_46im / y_46im
else if (y_46re <= 3.5d+117) then
tmp = x_46re / y_46re
else if (y_46re <= 3.6d+117) then
tmp = t_6
else if (y_46re <= 2d+136) then
tmp = t_4
else if (y_46re <= 2.02d+136) then
tmp = t_6
else if (y_46re <= 2.1d+163) then
tmp = x_46re / y_46re
else if (y_46re <= 2.15d+163) then
tmp = x_46im / y_46im
else if (y_46re <= 2.7d+171) then
tmp = x_46re / y_46re
else if (y_46re <= 2.8d+171) then
tmp = t_1
else if (y_46re <= 2.2d+198) then
tmp = x_46re / y_46re
else if (y_46re <= 2.3d+198) then
tmp = x_46im / y_46im
else if (y_46re <= 2.9d+207) then
tmp = t_3
else if (y_46re <= 3d+207) then
tmp = t_1
else if (y_46re <= 2.35d+224) then
tmp = x_46re / y_46re
else if (y_46re <= 2.4d+224) then
tmp = x_46im / y_46im
else
tmp = t_4
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_re / y_46_im);
double t_1 = (x_46_im + t_0) / y_46_im;
double t_2 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_4 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_6 = t_0 / y_46_im;
double tmp;
if (y_46_re <= -2.35e-51) {
tmp = t_3;
} else if (y_46_re <= -1.6e-76) {
tmp = t_1;
} else if (y_46_re <= -9e-77) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7.2e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -4e-83) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -1.2e-100) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -3.3e-101) {
tmp = t_4;
} else if (y_46_re <= -1.9e-103) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.6e-105) {
tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
} else if (y_46_re <= -1.9e-170) {
tmp = t_1;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_1;
} else if (y_46_re <= -1.45e-198) {
tmp = t_4;
} else if (y_46_re <= -2e-286) {
tmp = t_1;
} else if (y_46_re <= 2.25e-263) {
tmp = t_5;
} else if (y_46_re <= 5.2e-263) {
tmp = t_4;
} else if (y_46_re <= 2.1e-262) {
tmp = t_2;
} else if (y_46_re <= 1.3e-210) {
tmp = t_1;
} else if (y_46_re <= 8e-210) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_2;
} else if (y_46_re <= 4.1e-165) {
tmp = t_5;
} else if (y_46_re <= 8.4e-150) {
tmp = t_3;
} else if (y_46_re <= 8.5e-123) {
tmp = t_1;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_1;
} else if (y_46_re <= 1.45e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.1e-84) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 4.8e-72) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.75e-53) {
tmp = t_6;
} else if (y_46_re <= 1.05e-40) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7.2e-28) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2400000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 5.2e+19) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+37) {
tmp = t_4;
} else if (y_46_re <= 3.95e+37) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_4;
} else if (y_46_re <= 4.8e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.6e+78) {
tmp = t_4;
} else if (y_46_re <= 3.7e+79) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e+101) {
tmp = t_3;
} else if (y_46_re <= 1.8e+103) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_6;
} else if (y_46_re <= 2e+136) {
tmp = t_4;
} else if (y_46_re <= 2.02e+136) {
tmp = t_6;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_1;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = t_3;
} else if (y_46_re <= 3e+207) {
tmp = t_1;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_46_im / y_46_im;
} else {
tmp = t_4;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = x_46_re * (y_46_re / y_46_im) t_1 = (x_46_im + t_0) / y_46_im t_2 = x_46_re * ((y_46_re / y_46_im) / y_46_im) t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re t_4 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im t_6 = t_0 / y_46_im tmp = 0 if y_46_re <= -2.35e-51: tmp = t_3 elif y_46_re <= -1.6e-76: tmp = t_1 elif y_46_re <= -9e-77: tmp = x_46_re / y_46_re elif y_46_re <= -7.2e-81: tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))) elif y_46_re <= -4e-83: tmp = x_46_re / y_46_re elif y_46_re <= -1.2e-100: tmp = x_46_im / y_46_im elif y_46_re <= -3.3e-101: tmp = t_4 elif y_46_re <= -1.9e-103: tmp = x_46_im / y_46_im elif y_46_re <= -1.6e-105: tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re elif y_46_re <= -1.9e-170: tmp = t_1 elif y_46_re <= -1.5e-170: tmp = x_46_re / y_46_re elif y_46_re <= -7e-194: tmp = t_1 elif y_46_re <= -1.45e-198: tmp = t_4 elif y_46_re <= -2e-286: tmp = t_1 elif y_46_re <= 2.25e-263: tmp = t_5 elif y_46_re <= 5.2e-263: tmp = t_4 elif y_46_re <= 2.1e-262: tmp = t_2 elif y_46_re <= 1.3e-210: tmp = t_1 elif y_46_re <= 8e-210: tmp = x_46_re / y_46_re elif y_46_re <= 7e-207: tmp = t_2 elif y_46_re <= 4.1e-165: tmp = t_5 elif y_46_re <= 8.4e-150: tmp = t_3 elif y_46_re <= 8.5e-123: tmp = t_1 elif y_46_re <= 9e-123: tmp = x_46_re / y_46_re elif y_46_re <= 3.05e-102: tmp = t_1 elif y_46_re <= 1.45e-98: tmp = x_46_re / y_46_re elif y_46_re <= 3.1e-84: tmp = x_46_im / y_46_im elif y_46_re <= 4.8e-72: tmp = x_46_re / y_46_re elif y_46_re <= 2.75e-53: tmp = t_6 elif y_46_re <= 1.05e-40: tmp = x_46_re / y_46_re elif y_46_re <= 7.2e-28: tmp = x_46_im / y_46_im elif y_46_re <= 2400000000.0: tmp = x_46_re / y_46_re elif y_46_re <= 5.2e+19: tmp = x_46_im / y_46_im elif y_46_re <= 2.7e+37: tmp = t_4 elif y_46_re <= 3.95e+37: tmp = x_46_im / y_46_im elif y_46_re <= 1.2e+57: tmp = t_4 elif y_46_re <= 4.8e+57: tmp = x_46_im / y_46_im elif y_46_re <= 1.6e+78: tmp = t_4 elif y_46_re <= 3.7e+79: tmp = x_46_im / y_46_im elif y_46_re <= 5.5e+101: tmp = t_3 elif y_46_re <= 1.8e+103: tmp = x_46_im / y_46_im elif y_46_re <= 3.5e+117: tmp = x_46_re / y_46_re elif y_46_re <= 3.6e+117: tmp = t_6 elif y_46_re <= 2e+136: tmp = t_4 elif y_46_re <= 2.02e+136: tmp = t_6 elif y_46_re <= 2.1e+163: tmp = x_46_re / y_46_re elif y_46_re <= 2.15e+163: tmp = x_46_im / y_46_im elif y_46_re <= 2.7e+171: tmp = x_46_re / y_46_re elif y_46_re <= 2.8e+171: tmp = t_1 elif y_46_re <= 2.2e+198: tmp = x_46_re / y_46_re elif y_46_re <= 2.3e+198: tmp = x_46_im / y_46_im elif y_46_re <= 2.9e+207: tmp = t_3 elif y_46_re <= 3e+207: tmp = t_1 elif y_46_re <= 2.35e+224: tmp = x_46_re / y_46_re elif y_46_re <= 2.4e+224: tmp = x_46_im / y_46_im else: tmp = t_4 return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(x_46_re * Float64(y_46_re / y_46_im)) t_1 = Float64(Float64(x_46_im + t_0) / y_46_im) t_2 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) t_3 = Float64(Float64(x_46_re + Float64(y_46_im * Float64(x_46_im / y_46_re))) / y_46_re) t_4 = Float64(Float64(x_46_re + Float64(x_46_im * Float64(y_46_im / y_46_re))) / y_46_re) t_5 = Float64(Float64(x_46_im + Float64(Float64(x_46_re * y_46_re) / y_46_im)) / y_46_im) t_6 = Float64(t_0 / y_46_im) tmp = 0.0 if (y_46_re <= -2.35e-51) tmp = t_3; elseif (y_46_re <= -1.6e-76) tmp = t_1; elseif (y_46_re <= -9e-77) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -7.2e-81) tmp = Float64(1.0 / Float64(y_46_im / Float64(y_46_re * Float64(x_46_re / y_46_im)))); elseif (y_46_re <= -4e-83) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -1.2e-100) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= -3.3e-101) tmp = t_4; elseif (y_46_re <= -1.9e-103) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= -1.6e-105) tmp = Float64(Float64(x_46_re + Float64(x_46_im / Float64(y_46_re / y_46_im))) / y_46_re); elseif (y_46_re <= -1.9e-170) tmp = t_1; elseif (y_46_re <= -1.5e-170) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -7e-194) tmp = t_1; elseif (y_46_re <= -1.45e-198) tmp = t_4; elseif (y_46_re <= -2e-286) tmp = t_1; elseif (y_46_re <= 2.25e-263) tmp = t_5; elseif (y_46_re <= 5.2e-263) tmp = t_4; elseif (y_46_re <= 2.1e-262) tmp = t_2; elseif (y_46_re <= 1.3e-210) tmp = t_1; elseif (y_46_re <= 8e-210) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 7e-207) tmp = t_2; elseif (y_46_re <= 4.1e-165) tmp = t_5; elseif (y_46_re <= 8.4e-150) tmp = t_3; elseif (y_46_re <= 8.5e-123) tmp = t_1; elseif (y_46_re <= 9e-123) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.05e-102) tmp = t_1; elseif (y_46_re <= 1.45e-98) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.1e-84) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 4.8e-72) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.75e-53) tmp = t_6; elseif (y_46_re <= 1.05e-40) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 7.2e-28) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2400000000.0) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 5.2e+19) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.7e+37) tmp = t_4; elseif (y_46_re <= 3.95e+37) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.2e+57) tmp = t_4; elseif (y_46_re <= 4.8e+57) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.6e+78) tmp = t_4; elseif (y_46_re <= 3.7e+79) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 5.5e+101) tmp = t_3; elseif (y_46_re <= 1.8e+103) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.5e+117) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.6e+117) tmp = t_6; elseif (y_46_re <= 2e+136) tmp = t_4; elseif (y_46_re <= 2.02e+136) tmp = t_6; elseif (y_46_re <= 2.1e+163) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.15e+163) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.7e+171) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.8e+171) tmp = t_1; elseif (y_46_re <= 2.2e+198) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.3e+198) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.9e+207) tmp = t_3; elseif (y_46_re <= 3e+207) tmp = t_1; elseif (y_46_re <= 2.35e+224) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.4e+224) tmp = Float64(x_46_im / y_46_im); else tmp = t_4; 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_re / y_46_im); t_1 = (x_46_im + t_0) / y_46_im; t_2 = x_46_re * ((y_46_re / y_46_im) / y_46_im); t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re; t_4 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re; t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im; t_6 = t_0 / y_46_im; tmp = 0.0; if (y_46_re <= -2.35e-51) tmp = t_3; elseif (y_46_re <= -1.6e-76) tmp = t_1; elseif (y_46_re <= -9e-77) tmp = x_46_re / y_46_re; elseif (y_46_re <= -7.2e-81) tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))); elseif (y_46_re <= -4e-83) tmp = x_46_re / y_46_re; elseif (y_46_re <= -1.2e-100) tmp = x_46_im / y_46_im; elseif (y_46_re <= -3.3e-101) tmp = t_4; elseif (y_46_re <= -1.9e-103) tmp = x_46_im / y_46_im; elseif (y_46_re <= -1.6e-105) tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re; elseif (y_46_re <= -1.9e-170) tmp = t_1; elseif (y_46_re <= -1.5e-170) tmp = x_46_re / y_46_re; elseif (y_46_re <= -7e-194) tmp = t_1; elseif (y_46_re <= -1.45e-198) tmp = t_4; elseif (y_46_re <= -2e-286) tmp = t_1; elseif (y_46_re <= 2.25e-263) tmp = t_5; elseif (y_46_re <= 5.2e-263) tmp = t_4; elseif (y_46_re <= 2.1e-262) tmp = t_2; elseif (y_46_re <= 1.3e-210) tmp = t_1; elseif (y_46_re <= 8e-210) tmp = x_46_re / y_46_re; elseif (y_46_re <= 7e-207) tmp = t_2; elseif (y_46_re <= 4.1e-165) tmp = t_5; elseif (y_46_re <= 8.4e-150) tmp = t_3; elseif (y_46_re <= 8.5e-123) tmp = t_1; elseif (y_46_re <= 9e-123) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.05e-102) tmp = t_1; elseif (y_46_re <= 1.45e-98) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.1e-84) tmp = x_46_im / y_46_im; elseif (y_46_re <= 4.8e-72) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.75e-53) tmp = t_6; elseif (y_46_re <= 1.05e-40) tmp = x_46_re / y_46_re; elseif (y_46_re <= 7.2e-28) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2400000000.0) tmp = x_46_re / y_46_re; elseif (y_46_re <= 5.2e+19) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.7e+37) tmp = t_4; elseif (y_46_re <= 3.95e+37) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.2e+57) tmp = t_4; elseif (y_46_re <= 4.8e+57) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.6e+78) tmp = t_4; elseif (y_46_re <= 3.7e+79) tmp = x_46_im / y_46_im; elseif (y_46_re <= 5.5e+101) tmp = t_3; elseif (y_46_re <= 1.8e+103) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.5e+117) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.6e+117) tmp = t_6; elseif (y_46_re <= 2e+136) tmp = t_4; elseif (y_46_re <= 2.02e+136) tmp = t_6; elseif (y_46_re <= 2.1e+163) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.15e+163) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.7e+171) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.8e+171) tmp = t_1; elseif (y_46_re <= 2.2e+198) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.3e+198) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.9e+207) tmp = t_3; elseif (y_46_re <= 3e+207) tmp = t_1; elseif (y_46_re <= 2.35e+224) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.4e+224) tmp = x_46_im / y_46_im; else tmp = t_4; 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 * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(x$46$im + t$95$0), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$2 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x$46$re + N[(y$46$im * N[(x$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x$46$re + N[(x$46$im * N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x$46$im + N[(N[(x$46$re * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$0 / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$re, -2.35e-51], t$95$3, If[LessEqual[y$46$re, -1.6e-76], t$95$1, If[LessEqual[y$46$re, -9e-77], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -7.2e-81], N[(1.0 / N[(y$46$im / N[(y$46$re * N[(x$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -4e-83], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -1.2e-100], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, -3.3e-101], t$95$4, If[LessEqual[y$46$re, -1.9e-103], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, -1.6e-105], N[(N[(x$46$re + N[(x$46$im / N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -1.9e-170], t$95$1, If[LessEqual[y$46$re, -1.5e-170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -7e-194], t$95$1, If[LessEqual[y$46$re, -1.45e-198], t$95$4, If[LessEqual[y$46$re, -2e-286], t$95$1, If[LessEqual[y$46$re, 2.25e-263], t$95$5, If[LessEqual[y$46$re, 5.2e-263], t$95$4, If[LessEqual[y$46$re, 2.1e-262], t$95$2, If[LessEqual[y$46$re, 1.3e-210], t$95$1, If[LessEqual[y$46$re, 8e-210], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 7e-207], t$95$2, If[LessEqual[y$46$re, 4.1e-165], t$95$5, If[LessEqual[y$46$re, 8.4e-150], t$95$3, If[LessEqual[y$46$re, 8.5e-123], t$95$1, If[LessEqual[y$46$re, 9e-123], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.05e-102], t$95$1, If[LessEqual[y$46$re, 1.45e-98], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.1e-84], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 4.8e-72], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.75e-53], t$95$6, If[LessEqual[y$46$re, 1.05e-40], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 7.2e-28], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2400000000.0], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 5.2e+19], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.7e+37], t$95$4, If[LessEqual[y$46$re, 3.95e+37], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.2e+57], t$95$4, If[LessEqual[y$46$re, 4.8e+57], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.6e+78], t$95$4, If[LessEqual[y$46$re, 3.7e+79], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 5.5e+101], t$95$3, If[LessEqual[y$46$re, 1.8e+103], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.5e+117], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.6e+117], t$95$6, If[LessEqual[y$46$re, 2e+136], t$95$4, If[LessEqual[y$46$re, 2.02e+136], t$95$6, If[LessEqual[y$46$re, 2.1e+163], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.15e+163], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.7e+171], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.8e+171], t$95$1, If[LessEqual[y$46$re, 2.2e+198], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.3e+198], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.9e+207], t$95$3, If[LessEqual[y$46$re, 3e+207], t$95$1, If[LessEqual[y$46$re, 2.35e+224], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.4e+224], N[(x$46$im / y$46$im), $MachinePrecision], t$95$4]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := x.re \cdot \frac{y.re}{y.im}\\
t_1 := \frac{x.im + t\_0}{y.im}\\
t_2 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
t_3 := \frac{x.re + y.im \cdot \frac{x.im}{y.re}}{y.re}\\
t_4 := \frac{x.re + x.im \cdot \frac{y.im}{y.re}}{y.re}\\
t_5 := \frac{x.im + \frac{x.re \cdot y.re}{y.im}}{y.im}\\
t_6 := \frac{t\_0}{y.im}\\
\mathbf{if}\;y.re \leq -2.35 \cdot 10^{-51}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq -1.6 \cdot 10^{-76}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq -9 \cdot 10^{-77}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -7.2 \cdot 10^{-81}:\\
\;\;\;\;\frac{1}{\frac{y.im}{y.re \cdot \frac{x.re}{y.im}}}\\
\mathbf{elif}\;y.re \leq -4 \cdot 10^{-83}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -1.2 \cdot 10^{-100}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq -3.3 \cdot 10^{-101}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq -1.9 \cdot 10^{-103}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq -1.6 \cdot 10^{-105}:\\
\;\;\;\;\frac{x.re + \frac{x.im}{\frac{y.re}{y.im}}}{y.re}\\
\mathbf{elif}\;y.re \leq -1.9 \cdot 10^{-170}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq -1.5 \cdot 10^{-170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -7 \cdot 10^{-194}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq -1.45 \cdot 10^{-198}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq -2 \cdot 10^{-286}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 2.25 \cdot 10^{-263}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 5.2 \cdot 10^{-263}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{-262}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 1.3 \cdot 10^{-210}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 8 \cdot 10^{-210}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 7 \cdot 10^{-207}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 4.1 \cdot 10^{-165}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 8.4 \cdot 10^{-150}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 8.5 \cdot 10^{-123}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 9 \cdot 10^{-123}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.05 \cdot 10^{-102}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 1.45 \cdot 10^{-98}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.1 \cdot 10^{-84}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 4.8 \cdot 10^{-72}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.75 \cdot 10^{-53}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 1.05 \cdot 10^{-40}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 7.2 \cdot 10^{-28}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2400000000:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 5.2 \cdot 10^{+19}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.7 \cdot 10^{+37}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 3.95 \cdot 10^{+37}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.2 \cdot 10^{+57}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 4.8 \cdot 10^{+57}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.6 \cdot 10^{+78}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 3.7 \cdot 10^{+79}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 5.5 \cdot 10^{+101}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 1.8 \cdot 10^{+103}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.5 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.6 \cdot 10^{+117}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2 \cdot 10^{+136}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 2.02 \cdot 10^{+136}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.15 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.7 \cdot 10^{+171}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.8 \cdot 10^{+171}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 2.2 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.3 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.9 \cdot 10^{+207}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 3 \cdot 10^{+207}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 2.35 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.4 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if y.re < -2.3499999999999999e-51 or 4.1000000000000002e-165 < y.re < 8.4000000000000004e-150 or 3.70000000000000009e79 < y.re < 5.50000000000000018e101 or 2.3000000000000001e198 < y.re < 2.89999999999999997e207Initial program 54.3%
Taylor expanded in y.re around inf 82.2%
associate-/l*84.5%
Simplified84.5%
clear-num84.5%
un-div-inv84.6%
Applied egg-rr84.6%
associate-/r/85.6%
Applied egg-rr85.6%
if -2.3499999999999999e-51 < y.re < -1.5999999999999999e-76 or -1.59999999999999991e-105 < y.re < -1.8999999999999999e-170 or -1.50000000000000007e-170 < y.re < -7.0000000000000006e-194 or -1.45e-198 < y.re < -2.0000000000000001e-286 or 2.1e-262 < y.re < 1.2999999999999999e-210 or 8.4000000000000004e-150 < y.re < 8.4999999999999995e-123 or 8.99999999999999986e-123 < y.re < 3.0499999999999999e-102 or 2.6999999999999998e171 < y.re < 2.80000000000000004e171 or 2.89999999999999997e207 < y.re < 2.99999999999999983e207Initial program 65.1%
Taylor expanded in y.im around inf 98.5%
associate-/l*98.6%
Simplified98.6%
if -1.5999999999999999e-76 < y.re < -9.0000000000000001e-77 or -7.1999999999999997e-81 < y.re < -4.0000000000000001e-83 or -1.8999999999999999e-170 < y.re < -1.50000000000000007e-170 or 1.2999999999999999e-210 < y.re < 8.0000000000000004e-210 or 8.4999999999999995e-123 < y.re < 8.99999999999999986e-123 or 3.0499999999999999e-102 < y.re < 1.45e-98 or 3.10000000000000002e-84 < y.re < 4.8e-72 or 2.75000000000000011e-53 < y.re < 1.05000000000000009e-40 or 7.1999999999999997e-28 < y.re < 2.4e9 or 1.80000000000000008e103 < y.re < 3.49999999999999983e117 or 2.02000000000000002e136 < y.re < 2.1e163 or 2.1500000000000001e163 < y.re < 2.6999999999999998e171 or 2.80000000000000004e171 < y.re < 2.2e198 or 2.99999999999999983e207 < y.re < 2.3500000000000001e224Initial program 73.2%
Taylor expanded in y.re around inf 100.0%
if -9.0000000000000001e-77 < y.re < -7.1999999999999997e-81Initial program 98.4%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
clear-num100.0%
inv-pow100.0%
+-commutative100.0%
fma-define100.0%
Applied egg-rr100.0%
unpow-1100.0%
Simplified100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
associate-/l*100.0%
Simplified100.0%
if -4.0000000000000001e-83 < y.re < -1.2000000000000001e-100 or -3.29999999999999984e-101 < y.re < -1.9e-103 or 1.45e-98 < y.re < 3.10000000000000002e-84 or 1.05000000000000009e-40 < y.re < 7.1999999999999997e-28 or 2.4e9 < y.re < 5.2e19 or 2.69999999999999986e37 < y.re < 3.9500000000000001e37 or 1.20000000000000002e57 < y.re < 4.80000000000000009e57 or 1.59999999999999997e78 < y.re < 3.70000000000000009e79 or 5.50000000000000018e101 < y.re < 1.80000000000000008e103 or 2.1e163 < y.re < 2.1500000000000001e163 or 2.2e198 < y.re < 2.3000000000000001e198 or 2.3500000000000001e224 < y.re < 2.40000000000000001e224Initial program 48.7%
Taylor expanded in y.re around 0 100.0%
if -1.2000000000000001e-100 < y.re < -3.29999999999999984e-101 or -7.0000000000000006e-194 < y.re < -1.45e-198 or 2.2499999999999999e-263 < y.re < 5.2000000000000001e-263 or 5.2e19 < y.re < 2.69999999999999986e37 or 3.9500000000000001e37 < y.re < 1.20000000000000002e57 or 4.80000000000000009e57 < y.re < 1.59999999999999997e78 or 3.60000000000000013e117 < y.re < 2.00000000000000012e136 or 2.40000000000000001e224 < y.re Initial program 56.3%
Taylor expanded in y.re around inf 92.4%
associate-/l*100.0%
Simplified100.0%
if -1.9e-103 < y.re < -1.59999999999999991e-105Initial program 99.2%
Taylor expanded in y.re around inf 100.0%
associate-/l*99.2%
Simplified99.2%
clear-num99.2%
un-div-inv100.0%
Applied egg-rr100.0%
if -2.0000000000000001e-286 < y.re < 2.2499999999999999e-263 or 7.0000000000000003e-207 < y.re < 4.1000000000000002e-165Initial program 91.2%
Taylor expanded in y.im around inf 100.0%
if 5.2000000000000001e-263 < y.re < 2.1e-262 or 8.0000000000000004e-210 < y.re < 7.0000000000000003e-207Initial program 99.2%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
Taylor expanded in x.im around 0 99.2%
associate-/l*100.0%
Simplified100.0%
*-un-lft-identity100.0%
unpow2100.0%
times-frac100.0%
Applied egg-rr100.0%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
if 4.8e-72 < y.re < 2.75000000000000011e-53 or 3.49999999999999983e117 < y.re < 3.60000000000000013e117 or 2.00000000000000012e136 < y.re < 2.02000000000000002e136Initial program 50.9%
Taylor expanded in y.im around inf 51.4%
associate-/l*99.6%
Simplified99.6%
Taylor expanded in x.im around 0 50.9%
associate-/l*77.2%
Simplified77.2%
*-un-lft-identity77.2%
unpow277.2%
times-frac76.5%
Applied egg-rr76.5%
*-commutative76.5%
associate-*l/76.5%
*-un-lft-identity76.5%
associate-*l/99.6%
Applied egg-rr99.6%
Final simplification94.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (* x.re (/ y.re y.im)))
(t_1 (/ (+ x.re (* x.im (/ y.im y.re))) y.re))
(t_2 (/ (+ x.im t_0) y.im))
(t_3 (* x.re (/ (/ y.re y.im) y.im)))
(t_4 (/ (+ x.re (* y.im (/ x.im y.re))) y.re))
(t_5 (/ (+ x.im (/ (* x.re y.re) y.im)) y.im))
(t_6 (/ t_0 y.im)))
(if (<= y.re -2.15e-51)
t_4
(if (<= y.re -1.7e-76)
t_2
(if (<= y.re -2.7e-79)
(/ x.re y.re)
(if (<= y.re -6.5e-81)
(/ 1.0 (/ y.im (* y.re (/ x.re y.im))))
(if (<= y.re -1.45e-81)
(/ x.re y.re)
(if (<= y.re -1.2e-100)
(/ x.im y.im)
(if (<= y.re -3.2e-101)
t_1
(if (<= y.re -3e-103)
(/ x.im y.im)
(if (<= y.re -1.6e-105)
t_1
(if (<= y.re -1.55e-170)
t_2
(if (<= y.re -1.5e-170)
(/ x.re y.re)
(if (<= y.re -7e-194)
t_2
(if (<= y.re -1.45e-198)
t_1
(if (<= y.re -2e-286)
t_2
(if (<= y.re 2.25e-263)
t_5
(if (<= y.re 9.8e-263)
t_1
(if (<= y.re 2.1e-262)
t_3
(if (<= y.re 1.3e-210)
t_2
(if (<= y.re 7.5e-210)
(/ x.re y.re)
(if (<= y.re 7e-207)
t_3
(if (<= y.re 4.1e-165)
t_5
(if (<= y.re 8.4e-150)
t_4
(if (<= y.re 8.5e-123)
t_2
(if (<= y.re 9e-123)
(/ x.re y.re)
(if (<= y.re 3.05e-102)
t_2
(if (<= y.re 2e-98)
(/ x.re y.re)
(if (<= y.re 3e-84)
(/ x.im y.im)
(if (<= y.re 2.6e-80)
(/ x.re y.re)
(if (<=
y.re
1.5e-52)
t_6
(if (<=
y.re
1.65e-30)
(/ x.re y.re)
(if (<=
y.re
8.8e-24)
(/ x.im y.im)
(if (<=
y.re
85000000000.0)
(/
x.re
y.re)
(if (<=
y.re
1.6e+20)
(/
x.im
y.im)
(if (<=
y.re
3.3e+37)
t_1
(if (<=
y.re
3.95e+37)
(/
x.im
y.im)
(if (<=
y.re
1.2e+57)
t_1
(if (<=
y.re
1.25e+57)
(/
x.im
y.im)
(if (<=
y.re
1.6e+78)
t_1
(if (<=
y.re
1.62e+78)
(/
x.im
y.im)
(if (<=
y.re
5.5e+101)
t_4
(if (<=
y.re
6.5e+101)
(/
x.im
y.im)
(if (<=
y.re
3.5e+117)
(/
x.re
y.re)
(if (<=
y.re
3.6e+117)
t_6
(if (<=
y.re
2e+136)
t_1
(if (<=
y.re
2.02e+136)
t_6
(if (<=
y.re
2.1e+163)
(/
x.re
y.re)
(if (<=
y.re
2.15e+163)
(/
x.im
y.im)
(if (<=
y.re
2.7e+171)
(/
x.re
y.re)
(if (<=
y.re
2.8e+171)
t_2
(if (<=
y.re
2.2e+198)
(/
x.re
y.re)
(if (<=
y.re
2.3e+198)
(/
x.im
y.im)
(if (<=
y.re
2.9e+207)
t_4
(if (<=
y.re
3e+207)
t_2
(if (<=
y.re
2.35e+224)
(/
x.re
y.re)
(if (<=
y.re
2.4e+224)
(/
x.im
y.im)
t_1)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
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_re / y_46_im);
double t_1 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_2 = (x_46_im + t_0) / y_46_im;
double t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_4 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_6 = t_0 / y_46_im;
double tmp;
if (y_46_re <= -2.15e-51) {
tmp = t_4;
} else if (y_46_re <= -1.7e-76) {
tmp = t_2;
} else if (y_46_re <= -2.7e-79) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -6.5e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -1.45e-81) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -1.2e-100) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -3.2e-101) {
tmp = t_1;
} else if (y_46_re <= -3e-103) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.6e-105) {
tmp = t_1;
} else if (y_46_re <= -1.55e-170) {
tmp = t_2;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_2;
} else if (y_46_re <= -1.45e-198) {
tmp = t_1;
} else if (y_46_re <= -2e-286) {
tmp = t_2;
} else if (y_46_re <= 2.25e-263) {
tmp = t_5;
} else if (y_46_re <= 9.8e-263) {
tmp = t_1;
} else if (y_46_re <= 2.1e-262) {
tmp = t_3;
} else if (y_46_re <= 1.3e-210) {
tmp = t_2;
} else if (y_46_re <= 7.5e-210) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_3;
} else if (y_46_re <= 4.1e-165) {
tmp = t_5;
} else if (y_46_re <= 8.4e-150) {
tmp = t_4;
} else if (y_46_re <= 8.5e-123) {
tmp = t_2;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_2;
} else if (y_46_re <= 2e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3e-84) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.6e-80) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 1.5e-52) {
tmp = t_6;
} else if (y_46_re <= 1.65e-30) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 8.8e-24) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 85000000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 1.6e+20) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.3e+37) {
tmp = t_1;
} else if (y_46_re <= 3.95e+37) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_1;
} else if (y_46_re <= 1.25e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.6e+78) {
tmp = t_1;
} else if (y_46_re <= 1.62e+78) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e+101) {
tmp = t_4;
} else if (y_46_re <= 6.5e+101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_6;
} else if (y_46_re <= 2e+136) {
tmp = t_1;
} else if (y_46_re <= 2.02e+136) {
tmp = t_6;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_2;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = t_4;
} else if (y_46_re <= 3e+207) {
tmp = t_2;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_46_im / y_46_im;
} else {
tmp = t_1;
}
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) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: tmp
t_0 = x_46re * (y_46re / y_46im)
t_1 = (x_46re + (x_46im * (y_46im / y_46re))) / y_46re
t_2 = (x_46im + t_0) / y_46im
t_3 = x_46re * ((y_46re / y_46im) / y_46im)
t_4 = (x_46re + (y_46im * (x_46im / y_46re))) / y_46re
t_5 = (x_46im + ((x_46re * y_46re) / y_46im)) / y_46im
t_6 = t_0 / y_46im
if (y_46re <= (-2.15d-51)) then
tmp = t_4
else if (y_46re <= (-1.7d-76)) then
tmp = t_2
else if (y_46re <= (-2.7d-79)) then
tmp = x_46re / y_46re
else if (y_46re <= (-6.5d-81)) then
tmp = 1.0d0 / (y_46im / (y_46re * (x_46re / y_46im)))
else if (y_46re <= (-1.45d-81)) then
tmp = x_46re / y_46re
else if (y_46re <= (-1.2d-100)) then
tmp = x_46im / y_46im
else if (y_46re <= (-3.2d-101)) then
tmp = t_1
else if (y_46re <= (-3d-103)) then
tmp = x_46im / y_46im
else if (y_46re <= (-1.6d-105)) then
tmp = t_1
else if (y_46re <= (-1.55d-170)) then
tmp = t_2
else if (y_46re <= (-1.5d-170)) then
tmp = x_46re / y_46re
else if (y_46re <= (-7d-194)) then
tmp = t_2
else if (y_46re <= (-1.45d-198)) then
tmp = t_1
else if (y_46re <= (-2d-286)) then
tmp = t_2
else if (y_46re <= 2.25d-263) then
tmp = t_5
else if (y_46re <= 9.8d-263) then
tmp = t_1
else if (y_46re <= 2.1d-262) then
tmp = t_3
else if (y_46re <= 1.3d-210) then
tmp = t_2
else if (y_46re <= 7.5d-210) then
tmp = x_46re / y_46re
else if (y_46re <= 7d-207) then
tmp = t_3
else if (y_46re <= 4.1d-165) then
tmp = t_5
else if (y_46re <= 8.4d-150) then
tmp = t_4
else if (y_46re <= 8.5d-123) then
tmp = t_2
else if (y_46re <= 9d-123) then
tmp = x_46re / y_46re
else if (y_46re <= 3.05d-102) then
tmp = t_2
else if (y_46re <= 2d-98) then
tmp = x_46re / y_46re
else if (y_46re <= 3d-84) then
tmp = x_46im / y_46im
else if (y_46re <= 2.6d-80) then
tmp = x_46re / y_46re
else if (y_46re <= 1.5d-52) then
tmp = t_6
else if (y_46re <= 1.65d-30) then
tmp = x_46re / y_46re
else if (y_46re <= 8.8d-24) then
tmp = x_46im / y_46im
else if (y_46re <= 85000000000.0d0) then
tmp = x_46re / y_46re
else if (y_46re <= 1.6d+20) then
tmp = x_46im / y_46im
else if (y_46re <= 3.3d+37) then
tmp = t_1
else if (y_46re <= 3.95d+37) then
tmp = x_46im / y_46im
else if (y_46re <= 1.2d+57) then
tmp = t_1
else if (y_46re <= 1.25d+57) then
tmp = x_46im / y_46im
else if (y_46re <= 1.6d+78) then
tmp = t_1
else if (y_46re <= 1.62d+78) then
tmp = x_46im / y_46im
else if (y_46re <= 5.5d+101) then
tmp = t_4
else if (y_46re <= 6.5d+101) then
tmp = x_46im / y_46im
else if (y_46re <= 3.5d+117) then
tmp = x_46re / y_46re
else if (y_46re <= 3.6d+117) then
tmp = t_6
else if (y_46re <= 2d+136) then
tmp = t_1
else if (y_46re <= 2.02d+136) then
tmp = t_6
else if (y_46re <= 2.1d+163) then
tmp = x_46re / y_46re
else if (y_46re <= 2.15d+163) then
tmp = x_46im / y_46im
else if (y_46re <= 2.7d+171) then
tmp = x_46re / y_46re
else if (y_46re <= 2.8d+171) then
tmp = t_2
else if (y_46re <= 2.2d+198) then
tmp = x_46re / y_46re
else if (y_46re <= 2.3d+198) then
tmp = x_46im / y_46im
else if (y_46re <= 2.9d+207) then
tmp = t_4
else if (y_46re <= 3d+207) then
tmp = t_2
else if (y_46re <= 2.35d+224) then
tmp = x_46re / y_46re
else if (y_46re <= 2.4d+224) then
tmp = x_46im / y_46im
else
tmp = t_1
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_re / y_46_im);
double t_1 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_2 = (x_46_im + t_0) / y_46_im;
double t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_4 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_6 = t_0 / y_46_im;
double tmp;
if (y_46_re <= -2.15e-51) {
tmp = t_4;
} else if (y_46_re <= -1.7e-76) {
tmp = t_2;
} else if (y_46_re <= -2.7e-79) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -6.5e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -1.45e-81) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -1.2e-100) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -3.2e-101) {
tmp = t_1;
} else if (y_46_re <= -3e-103) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.6e-105) {
tmp = t_1;
} else if (y_46_re <= -1.55e-170) {
tmp = t_2;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_2;
} else if (y_46_re <= -1.45e-198) {
tmp = t_1;
} else if (y_46_re <= -2e-286) {
tmp = t_2;
} else if (y_46_re <= 2.25e-263) {
tmp = t_5;
} else if (y_46_re <= 9.8e-263) {
tmp = t_1;
} else if (y_46_re <= 2.1e-262) {
tmp = t_3;
} else if (y_46_re <= 1.3e-210) {
tmp = t_2;
} else if (y_46_re <= 7.5e-210) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_3;
} else if (y_46_re <= 4.1e-165) {
tmp = t_5;
} else if (y_46_re <= 8.4e-150) {
tmp = t_4;
} else if (y_46_re <= 8.5e-123) {
tmp = t_2;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_2;
} else if (y_46_re <= 2e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3e-84) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.6e-80) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 1.5e-52) {
tmp = t_6;
} else if (y_46_re <= 1.65e-30) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 8.8e-24) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 85000000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 1.6e+20) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.3e+37) {
tmp = t_1;
} else if (y_46_re <= 3.95e+37) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_1;
} else if (y_46_re <= 1.25e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.6e+78) {
tmp = t_1;
} else if (y_46_re <= 1.62e+78) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e+101) {
tmp = t_4;
} else if (y_46_re <= 6.5e+101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_6;
} else if (y_46_re <= 2e+136) {
tmp = t_1;
} else if (y_46_re <= 2.02e+136) {
tmp = t_6;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_2;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = t_4;
} else if (y_46_re <= 3e+207) {
tmp = t_2;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_46_im / y_46_im;
} else {
tmp = t_1;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = x_46_re * (y_46_re / y_46_im) t_1 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re t_2 = (x_46_im + t_0) / y_46_im t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im) t_4 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im t_6 = t_0 / y_46_im tmp = 0 if y_46_re <= -2.15e-51: tmp = t_4 elif y_46_re <= -1.7e-76: tmp = t_2 elif y_46_re <= -2.7e-79: tmp = x_46_re / y_46_re elif y_46_re <= -6.5e-81: tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))) elif y_46_re <= -1.45e-81: tmp = x_46_re / y_46_re elif y_46_re <= -1.2e-100: tmp = x_46_im / y_46_im elif y_46_re <= -3.2e-101: tmp = t_1 elif y_46_re <= -3e-103: tmp = x_46_im / y_46_im elif y_46_re <= -1.6e-105: tmp = t_1 elif y_46_re <= -1.55e-170: tmp = t_2 elif y_46_re <= -1.5e-170: tmp = x_46_re / y_46_re elif y_46_re <= -7e-194: tmp = t_2 elif y_46_re <= -1.45e-198: tmp = t_1 elif y_46_re <= -2e-286: tmp = t_2 elif y_46_re <= 2.25e-263: tmp = t_5 elif y_46_re <= 9.8e-263: tmp = t_1 elif y_46_re <= 2.1e-262: tmp = t_3 elif y_46_re <= 1.3e-210: tmp = t_2 elif y_46_re <= 7.5e-210: tmp = x_46_re / y_46_re elif y_46_re <= 7e-207: tmp = t_3 elif y_46_re <= 4.1e-165: tmp = t_5 elif y_46_re <= 8.4e-150: tmp = t_4 elif y_46_re <= 8.5e-123: tmp = t_2 elif y_46_re <= 9e-123: tmp = x_46_re / y_46_re elif y_46_re <= 3.05e-102: tmp = t_2 elif y_46_re <= 2e-98: tmp = x_46_re / y_46_re elif y_46_re <= 3e-84: tmp = x_46_im / y_46_im elif y_46_re <= 2.6e-80: tmp = x_46_re / y_46_re elif y_46_re <= 1.5e-52: tmp = t_6 elif y_46_re <= 1.65e-30: tmp = x_46_re / y_46_re elif y_46_re <= 8.8e-24: tmp = x_46_im / y_46_im elif y_46_re <= 85000000000.0: tmp = x_46_re / y_46_re elif y_46_re <= 1.6e+20: tmp = x_46_im / y_46_im elif y_46_re <= 3.3e+37: tmp = t_1 elif y_46_re <= 3.95e+37: tmp = x_46_im / y_46_im elif y_46_re <= 1.2e+57: tmp = t_1 elif y_46_re <= 1.25e+57: tmp = x_46_im / y_46_im elif y_46_re <= 1.6e+78: tmp = t_1 elif y_46_re <= 1.62e+78: tmp = x_46_im / y_46_im elif y_46_re <= 5.5e+101: tmp = t_4 elif y_46_re <= 6.5e+101: tmp = x_46_im / y_46_im elif y_46_re <= 3.5e+117: tmp = x_46_re / y_46_re elif y_46_re <= 3.6e+117: tmp = t_6 elif y_46_re <= 2e+136: tmp = t_1 elif y_46_re <= 2.02e+136: tmp = t_6 elif y_46_re <= 2.1e+163: tmp = x_46_re / y_46_re elif y_46_re <= 2.15e+163: tmp = x_46_im / y_46_im elif y_46_re <= 2.7e+171: tmp = x_46_re / y_46_re elif y_46_re <= 2.8e+171: tmp = t_2 elif y_46_re <= 2.2e+198: tmp = x_46_re / y_46_re elif y_46_re <= 2.3e+198: tmp = x_46_im / y_46_im elif y_46_re <= 2.9e+207: tmp = t_4 elif y_46_re <= 3e+207: tmp = t_2 elif y_46_re <= 2.35e+224: tmp = x_46_re / y_46_re elif y_46_re <= 2.4e+224: tmp = x_46_im / y_46_im else: tmp = t_1 return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(x_46_re * Float64(y_46_re / y_46_im)) t_1 = Float64(Float64(x_46_re + Float64(x_46_im * Float64(y_46_im / y_46_re))) / y_46_re) t_2 = Float64(Float64(x_46_im + t_0) / y_46_im) t_3 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) t_4 = Float64(Float64(x_46_re + Float64(y_46_im * Float64(x_46_im / y_46_re))) / y_46_re) t_5 = Float64(Float64(x_46_im + Float64(Float64(x_46_re * y_46_re) / y_46_im)) / y_46_im) t_6 = Float64(t_0 / y_46_im) tmp = 0.0 if (y_46_re <= -2.15e-51) tmp = t_4; elseif (y_46_re <= -1.7e-76) tmp = t_2; elseif (y_46_re <= -2.7e-79) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -6.5e-81) tmp = Float64(1.0 / Float64(y_46_im / Float64(y_46_re * Float64(x_46_re / y_46_im)))); elseif (y_46_re <= -1.45e-81) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -1.2e-100) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= -3.2e-101) tmp = t_1; elseif (y_46_re <= -3e-103) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= -1.6e-105) tmp = t_1; elseif (y_46_re <= -1.55e-170) tmp = t_2; elseif (y_46_re <= -1.5e-170) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -7e-194) tmp = t_2; elseif (y_46_re <= -1.45e-198) tmp = t_1; elseif (y_46_re <= -2e-286) tmp = t_2; elseif (y_46_re <= 2.25e-263) tmp = t_5; elseif (y_46_re <= 9.8e-263) tmp = t_1; elseif (y_46_re <= 2.1e-262) tmp = t_3; elseif (y_46_re <= 1.3e-210) tmp = t_2; elseif (y_46_re <= 7.5e-210) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 7e-207) tmp = t_3; elseif (y_46_re <= 4.1e-165) tmp = t_5; elseif (y_46_re <= 8.4e-150) tmp = t_4; elseif (y_46_re <= 8.5e-123) tmp = t_2; elseif (y_46_re <= 9e-123) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.05e-102) tmp = t_2; elseif (y_46_re <= 2e-98) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3e-84) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.6e-80) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 1.5e-52) tmp = t_6; elseif (y_46_re <= 1.65e-30) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 8.8e-24) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 85000000000.0) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 1.6e+20) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.3e+37) tmp = t_1; elseif (y_46_re <= 3.95e+37) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.2e+57) tmp = t_1; elseif (y_46_re <= 1.25e+57) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.6e+78) tmp = t_1; elseif (y_46_re <= 1.62e+78) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 5.5e+101) tmp = t_4; elseif (y_46_re <= 6.5e+101) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.5e+117) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.6e+117) tmp = t_6; elseif (y_46_re <= 2e+136) tmp = t_1; elseif (y_46_re <= 2.02e+136) tmp = t_6; elseif (y_46_re <= 2.1e+163) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.15e+163) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.7e+171) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.8e+171) tmp = t_2; elseif (y_46_re <= 2.2e+198) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.3e+198) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.9e+207) tmp = t_4; elseif (y_46_re <= 3e+207) tmp = t_2; elseif (y_46_re <= 2.35e+224) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.4e+224) tmp = Float64(x_46_im / y_46_im); else tmp = t_1; 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_re / y_46_im); t_1 = (x_46_re + (x_46_im * (y_46_im / y_46_re))) / y_46_re; t_2 = (x_46_im + t_0) / y_46_im; t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im); t_4 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re; t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im; t_6 = t_0 / y_46_im; tmp = 0.0; if (y_46_re <= -2.15e-51) tmp = t_4; elseif (y_46_re <= -1.7e-76) tmp = t_2; elseif (y_46_re <= -2.7e-79) tmp = x_46_re / y_46_re; elseif (y_46_re <= -6.5e-81) tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))); elseif (y_46_re <= -1.45e-81) tmp = x_46_re / y_46_re; elseif (y_46_re <= -1.2e-100) tmp = x_46_im / y_46_im; elseif (y_46_re <= -3.2e-101) tmp = t_1; elseif (y_46_re <= -3e-103) tmp = x_46_im / y_46_im; elseif (y_46_re <= -1.6e-105) tmp = t_1; elseif (y_46_re <= -1.55e-170) tmp = t_2; elseif (y_46_re <= -1.5e-170) tmp = x_46_re / y_46_re; elseif (y_46_re <= -7e-194) tmp = t_2; elseif (y_46_re <= -1.45e-198) tmp = t_1; elseif (y_46_re <= -2e-286) tmp = t_2; elseif (y_46_re <= 2.25e-263) tmp = t_5; elseif (y_46_re <= 9.8e-263) tmp = t_1; elseif (y_46_re <= 2.1e-262) tmp = t_3; elseif (y_46_re <= 1.3e-210) tmp = t_2; elseif (y_46_re <= 7.5e-210) tmp = x_46_re / y_46_re; elseif (y_46_re <= 7e-207) tmp = t_3; elseif (y_46_re <= 4.1e-165) tmp = t_5; elseif (y_46_re <= 8.4e-150) tmp = t_4; elseif (y_46_re <= 8.5e-123) tmp = t_2; elseif (y_46_re <= 9e-123) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.05e-102) tmp = t_2; elseif (y_46_re <= 2e-98) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3e-84) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.6e-80) tmp = x_46_re / y_46_re; elseif (y_46_re <= 1.5e-52) tmp = t_6; elseif (y_46_re <= 1.65e-30) tmp = x_46_re / y_46_re; elseif (y_46_re <= 8.8e-24) tmp = x_46_im / y_46_im; elseif (y_46_re <= 85000000000.0) tmp = x_46_re / y_46_re; elseif (y_46_re <= 1.6e+20) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.3e+37) tmp = t_1; elseif (y_46_re <= 3.95e+37) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.2e+57) tmp = t_1; elseif (y_46_re <= 1.25e+57) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.6e+78) tmp = t_1; elseif (y_46_re <= 1.62e+78) tmp = x_46_im / y_46_im; elseif (y_46_re <= 5.5e+101) tmp = t_4; elseif (y_46_re <= 6.5e+101) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.5e+117) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.6e+117) tmp = t_6; elseif (y_46_re <= 2e+136) tmp = t_1; elseif (y_46_re <= 2.02e+136) tmp = t_6; elseif (y_46_re <= 2.1e+163) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.15e+163) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.7e+171) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.8e+171) tmp = t_2; elseif (y_46_re <= 2.2e+198) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.3e+198) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.9e+207) tmp = t_4; elseif (y_46_re <= 3e+207) tmp = t_2; elseif (y_46_re <= 2.35e+224) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.4e+224) tmp = x_46_im / y_46_im; else tmp = t_1; 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 * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(x$46$re + N[(x$46$im * N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$46$im + t$95$0), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$3 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x$46$re + N[(y$46$im * N[(x$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x$46$im + N[(N[(x$46$re * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$0 / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$re, -2.15e-51], t$95$4, If[LessEqual[y$46$re, -1.7e-76], t$95$2, If[LessEqual[y$46$re, -2.7e-79], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -6.5e-81], N[(1.0 / N[(y$46$im / N[(y$46$re * N[(x$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -1.45e-81], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -1.2e-100], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, -3.2e-101], t$95$1, If[LessEqual[y$46$re, -3e-103], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, -1.6e-105], t$95$1, If[LessEqual[y$46$re, -1.55e-170], t$95$2, If[LessEqual[y$46$re, -1.5e-170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -7e-194], t$95$2, If[LessEqual[y$46$re, -1.45e-198], t$95$1, If[LessEqual[y$46$re, -2e-286], t$95$2, If[LessEqual[y$46$re, 2.25e-263], t$95$5, If[LessEqual[y$46$re, 9.8e-263], t$95$1, If[LessEqual[y$46$re, 2.1e-262], t$95$3, If[LessEqual[y$46$re, 1.3e-210], t$95$2, If[LessEqual[y$46$re, 7.5e-210], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 7e-207], t$95$3, If[LessEqual[y$46$re, 4.1e-165], t$95$5, If[LessEqual[y$46$re, 8.4e-150], t$95$4, If[LessEqual[y$46$re, 8.5e-123], t$95$2, If[LessEqual[y$46$re, 9e-123], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.05e-102], t$95$2, If[LessEqual[y$46$re, 2e-98], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3e-84], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.6e-80], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 1.5e-52], t$95$6, If[LessEqual[y$46$re, 1.65e-30], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 8.8e-24], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 85000000000.0], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 1.6e+20], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.3e+37], t$95$1, If[LessEqual[y$46$re, 3.95e+37], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.2e+57], t$95$1, If[LessEqual[y$46$re, 1.25e+57], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.6e+78], t$95$1, If[LessEqual[y$46$re, 1.62e+78], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 5.5e+101], t$95$4, If[LessEqual[y$46$re, 6.5e+101], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.5e+117], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.6e+117], t$95$6, If[LessEqual[y$46$re, 2e+136], t$95$1, If[LessEqual[y$46$re, 2.02e+136], t$95$6, If[LessEqual[y$46$re, 2.1e+163], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.15e+163], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.7e+171], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.8e+171], t$95$2, If[LessEqual[y$46$re, 2.2e+198], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.3e+198], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.9e+207], t$95$4, If[LessEqual[y$46$re, 3e+207], t$95$2, If[LessEqual[y$46$re, 2.35e+224], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.4e+224], N[(x$46$im / y$46$im), $MachinePrecision], t$95$1]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := x.re \cdot \frac{y.re}{y.im}\\
t_1 := \frac{x.re + x.im \cdot \frac{y.im}{y.re}}{y.re}\\
t_2 := \frac{x.im + t\_0}{y.im}\\
t_3 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
t_4 := \frac{x.re + y.im \cdot \frac{x.im}{y.re}}{y.re}\\
t_5 := \frac{x.im + \frac{x.re \cdot y.re}{y.im}}{y.im}\\
t_6 := \frac{t\_0}{y.im}\\
\mathbf{if}\;y.re \leq -2.15 \cdot 10^{-51}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq -1.7 \cdot 10^{-76}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq -2.7 \cdot 10^{-79}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -6.5 \cdot 10^{-81}:\\
\;\;\;\;\frac{1}{\frac{y.im}{y.re \cdot \frac{x.re}{y.im}}}\\
\mathbf{elif}\;y.re \leq -1.45 \cdot 10^{-81}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -1.2 \cdot 10^{-100}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq -3.2 \cdot 10^{-101}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq -3 \cdot 10^{-103}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq -1.6 \cdot 10^{-105}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq -1.55 \cdot 10^{-170}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq -1.5 \cdot 10^{-170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -7 \cdot 10^{-194}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq -1.45 \cdot 10^{-198}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq -2 \cdot 10^{-286}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 2.25 \cdot 10^{-263}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 9.8 \cdot 10^{-263}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{-262}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 1.3 \cdot 10^{-210}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 7.5 \cdot 10^{-210}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 7 \cdot 10^{-207}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 4.1 \cdot 10^{-165}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 8.4 \cdot 10^{-150}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 8.5 \cdot 10^{-123}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 9 \cdot 10^{-123}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.05 \cdot 10^{-102}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 2 \cdot 10^{-98}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3 \cdot 10^{-84}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.6 \cdot 10^{-80}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 1.5 \cdot 10^{-52}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 1.65 \cdot 10^{-30}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 8.8 \cdot 10^{-24}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 85000000000:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 1.6 \cdot 10^{+20}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.3 \cdot 10^{+37}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 3.95 \cdot 10^{+37}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.2 \cdot 10^{+57}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 1.25 \cdot 10^{+57}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.6 \cdot 10^{+78}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 1.62 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 5.5 \cdot 10^{+101}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 6.5 \cdot 10^{+101}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.5 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.6 \cdot 10^{+117}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2 \cdot 10^{+136}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 2.02 \cdot 10^{+136}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.15 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.7 \cdot 10^{+171}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.8 \cdot 10^{+171}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 2.2 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.3 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.9 \cdot 10^{+207}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 3 \cdot 10^{+207}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 2.35 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.4 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y.re < -2.1499999999999999e-51 or 4.1000000000000002e-165 < y.re < 8.4000000000000004e-150 or 1.6199999999999999e78 < y.re < 5.50000000000000018e101 or 2.3000000000000001e198 < y.re < 2.89999999999999997e207Initial program 54.3%
Taylor expanded in y.re around inf 82.2%
associate-/l*84.5%
Simplified84.5%
clear-num84.5%
un-div-inv84.6%
Applied egg-rr84.6%
associate-/r/85.6%
Applied egg-rr85.6%
if -2.1499999999999999e-51 < y.re < -1.7e-76 or -1.59999999999999991e-105 < y.re < -1.54999999999999993e-170 or -1.50000000000000007e-170 < y.re < -7.0000000000000006e-194 or -1.45e-198 < y.re < -2.0000000000000001e-286 or 2.1e-262 < y.re < 1.2999999999999999e-210 or 8.4000000000000004e-150 < y.re < 8.4999999999999995e-123 or 8.99999999999999986e-123 < y.re < 3.0499999999999999e-102 or 2.6999999999999998e171 < y.re < 2.80000000000000004e171 or 2.89999999999999997e207 < y.re < 2.99999999999999983e207Initial program 65.1%
Taylor expanded in y.im around inf 98.5%
associate-/l*98.6%
Simplified98.6%
if -1.7e-76 < y.re < -2.7000000000000002e-79 or -6.5000000000000002e-81 < y.re < -1.44999999999999994e-81 or -1.54999999999999993e-170 < y.re < -1.50000000000000007e-170 or 1.2999999999999999e-210 < y.re < 7.4999999999999997e-210 or 8.4999999999999995e-123 < y.re < 8.99999999999999986e-123 or 3.0499999999999999e-102 < y.re < 1.99999999999999988e-98 or 3.0000000000000001e-84 < y.re < 2.6000000000000001e-80 or 1.5e-52 < y.re < 1.6500000000000001e-30 or 8.80000000000000006e-24 < y.re < 8.5e10 or 6.50000000000000016e101 < y.re < 3.49999999999999983e117 or 2.02000000000000002e136 < y.re < 2.1e163 or 2.1500000000000001e163 < y.re < 2.6999999999999998e171 or 2.80000000000000004e171 < y.re < 2.2e198 or 2.99999999999999983e207 < y.re < 2.3500000000000001e224Initial program 73.2%
Taylor expanded in y.re around inf 100.0%
if -2.7000000000000002e-79 < y.re < -6.5000000000000002e-81Initial program 98.4%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
clear-num100.0%
inv-pow100.0%
+-commutative100.0%
fma-define100.0%
Applied egg-rr100.0%
unpow-1100.0%
Simplified100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
associate-/l*100.0%
Simplified100.0%
if -1.44999999999999994e-81 < y.re < -1.2000000000000001e-100 or -3.19999999999999978e-101 < y.re < -3e-103 or 1.99999999999999988e-98 < y.re < 3.0000000000000001e-84 or 1.6500000000000001e-30 < y.re < 8.80000000000000006e-24 or 8.5e10 < y.re < 1.6e20 or 3.3000000000000001e37 < y.re < 3.9500000000000001e37 or 1.20000000000000002e57 < y.re < 1.24999999999999993e57 or 1.59999999999999997e78 < y.re < 1.6199999999999999e78 or 5.50000000000000018e101 < y.re < 6.50000000000000016e101 or 2.1e163 < y.re < 2.1500000000000001e163 or 2.2e198 < y.re < 2.3000000000000001e198 or 2.3500000000000001e224 < y.re < 2.40000000000000001e224Initial program 48.7%
Taylor expanded in y.re around 0 100.0%
if -1.2000000000000001e-100 < y.re < -3.19999999999999978e-101 or -3e-103 < y.re < -1.59999999999999991e-105 or -7.0000000000000006e-194 < y.re < -1.45e-198 or 2.2499999999999999e-263 < y.re < 9.7999999999999994e-263 or 1.6e20 < y.re < 3.3000000000000001e37 or 3.9500000000000001e37 < y.re < 1.20000000000000002e57 or 1.24999999999999993e57 < y.re < 1.59999999999999997e78 or 3.60000000000000013e117 < y.re < 2.00000000000000012e136 or 2.40000000000000001e224 < y.re Initial program 58.4%
Taylor expanded in y.re around inf 92.7%
associate-/l*99.9%
Simplified99.9%
if -2.0000000000000001e-286 < y.re < 2.2499999999999999e-263 or 7.0000000000000003e-207 < y.re < 4.1000000000000002e-165Initial program 91.2%
Taylor expanded in y.im around inf 100.0%
if 9.7999999999999994e-263 < y.re < 2.1e-262 or 7.4999999999999997e-210 < y.re < 7.0000000000000003e-207Initial program 99.2%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
Taylor expanded in x.im around 0 99.2%
associate-/l*100.0%
Simplified100.0%
*-un-lft-identity100.0%
unpow2100.0%
times-frac100.0%
Applied egg-rr100.0%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
if 2.6000000000000001e-80 < y.re < 1.5e-52 or 3.49999999999999983e117 < y.re < 3.60000000000000013e117 or 2.00000000000000012e136 < y.re < 2.02000000000000002e136Initial program 50.9%
Taylor expanded in y.im around inf 51.4%
associate-/l*99.6%
Simplified99.6%
Taylor expanded in x.im around 0 50.9%
associate-/l*77.2%
Simplified77.2%
*-un-lft-identity77.2%
unpow277.2%
times-frac76.5%
Applied egg-rr76.5%
*-commutative76.5%
associate-*l/76.5%
*-un-lft-identity76.5%
associate-*l/99.6%
Applied egg-rr99.6%
Final simplification94.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (+ x.re (* x.im (/ y.im y.re))) y.re))
(t_1 (* x.re (/ (/ y.re y.im) y.im)))
(t_2 (* x.re (/ y.re y.im)))
(t_3 (/ (+ x.im t_2) y.im))
(t_4 (/ (+ x.im (/ (* x.re y.re) y.im)) y.im))
(t_5 (/ t_2 y.im)))
(if (<= y.re -2.2e-51)
t_0
(if (<= y.re -2.7e-76)
t_3
(if (<= y.re -3.8e-79)
(/ x.re y.re)
(if (<= y.re -6.5e-81)
(/ 1.0 (/ y.im (* y.re (/ x.re y.im))))
(if (<= y.re -3.9e-81)
(/ x.re y.re)
(if (<= y.re -3.5e-101)
(/ x.im y.im)
(if (<= y.re -3.1e-101)
t_0
(if (<= y.re -1.55e-103)
(/ x.im y.im)
(if (<= y.re -1.42e-105)
t_0
(if (<= y.re -1.55e-170)
t_3
(if (<= y.re -1.5e-170)
(/ x.re y.re)
(if (<= y.re -7e-194)
t_3
(if (<= y.re -1.45e-198)
t_0
(if (<= y.re -2e-286)
t_3
(if (<= y.re 2.25e-263)
t_4
(if (<= y.re 2.4e-263)
t_0
(if (<= y.re 2.1e-262)
t_1
(if (<= y.re 1.3e-210)
t_3
(if (<= y.re 7.5e-210)
(/ x.re y.re)
(if (<= y.re 7e-207)
t_1
(if (<= y.re 4.1e-165)
t_4
(if (<= y.re 8.4e-150)
t_0
(if (<= y.re 8.5e-123)
t_3
(if (<= y.re 9e-123)
(/ x.re y.re)
(if (<= y.re 3.05e-102)
t_3
(if (<= y.re 1.45e-98)
(/ x.re y.re)
(if (<= y.re 3e-84)
(/ x.im y.im)
(if (<= y.re 3.7e-78)
(/ x.re y.re)
(if (<=
y.re
1.35e-49)
t_5
(if (<=
y.re
1.58e-34)
(/ x.re y.re)
(if (<=
y.re
5.2e-25)
(/ x.im y.im)
(if (<=
y.re
180000000000.0)
(/
x.re
y.re)
(if (<=
y.re
9.2e+19)
(/
x.im
y.im)
(if (<=
y.re
3.9e+37)
t_0
(if (<=
y.re
1.25e+42)
(/
x.im
y.im)
(if (<=
y.re
1.2e+57)
t_0
(if (<=
y.re
1.25e+57)
(/
x.im
y.im)
(if (<=
y.re
1.6e+78)
t_0
(if (<=
y.re
1.7e+78)
(/
x.im
y.im)
(if (<=
y.re
5.5e+101)
t_0
(if (<=
y.re
5.8e+101)
(/
x.im
y.im)
(if (<=
y.re
3.5e+117)
(/
x.re
y.re)
(if (<=
y.re
3.6e+117)
t_5
(if (<=
y.re
2e+136)
t_0
(if (<=
y.re
2.02e+136)
t_5
(if (<=
y.re
2.1e+163)
(/
x.re
y.re)
(if (<=
y.re
2.15e+163)
(/
x.im
y.im)
(if (<=
y.re
2.7e+171)
(/
x.re
y.re)
(if (<=
y.re
2.8e+171)
t_3
(if (<=
y.re
2.2e+198)
(/
x.re
y.re)
(if (<=
y.re
2.3e+198)
(/
x.im
y.im)
(if (<=
y.re
2.9e+207)
(/
x.re
y.re)
(if (<=
y.re
3e+207)
t_3
(if (<=
y.re
2.35e+224)
(/
x.re
y.re)
(if (<=
y.re
2.4e+224)
(/
x.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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_2 = x_46_re * (y_46_re / y_46_im);
double t_3 = (x_46_im + t_2) / y_46_im;
double t_4 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_5 = t_2 / y_46_im;
double tmp;
if (y_46_re <= -2.2e-51) {
tmp = t_0;
} else if (y_46_re <= -2.7e-76) {
tmp = t_3;
} else if (y_46_re <= -3.8e-79) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -6.5e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -3.9e-81) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -3.5e-101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -3.1e-101) {
tmp = t_0;
} else if (y_46_re <= -1.55e-103) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.42e-105) {
tmp = t_0;
} else if (y_46_re <= -1.55e-170) {
tmp = t_3;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_3;
} else if (y_46_re <= -1.45e-198) {
tmp = t_0;
} else if (y_46_re <= -2e-286) {
tmp = t_3;
} else if (y_46_re <= 2.25e-263) {
tmp = t_4;
} else if (y_46_re <= 2.4e-263) {
tmp = t_0;
} else if (y_46_re <= 2.1e-262) {
tmp = t_1;
} else if (y_46_re <= 1.3e-210) {
tmp = t_3;
} else if (y_46_re <= 7.5e-210) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_1;
} else if (y_46_re <= 4.1e-165) {
tmp = t_4;
} else if (y_46_re <= 8.4e-150) {
tmp = t_0;
} else if (y_46_re <= 8.5e-123) {
tmp = t_3;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_3;
} else if (y_46_re <= 1.45e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3e-84) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.7e-78) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 1.35e-49) {
tmp = t_5;
} else if (y_46_re <= 1.58e-34) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 5.2e-25) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 180000000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 9.2e+19) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.9e+37) {
tmp = t_0;
} else if (y_46_re <= 1.25e+42) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_0;
} else if (y_46_re <= 1.25e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.6e+78) {
tmp = t_0;
} else if (y_46_re <= 1.7e+78) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e+101) {
tmp = t_0;
} else if (y_46_re <= 5.8e+101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_5;
} else if (y_46_re <= 2e+136) {
tmp = t_0;
} else if (y_46_re <= 2.02e+136) {
tmp = t_5;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_3;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3e+207) {
tmp = t_3;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_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) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: tmp
t_0 = (x_46re + (x_46im * (y_46im / y_46re))) / y_46re
t_1 = x_46re * ((y_46re / y_46im) / y_46im)
t_2 = x_46re * (y_46re / y_46im)
t_3 = (x_46im + t_2) / y_46im
t_4 = (x_46im + ((x_46re * y_46re) / y_46im)) / y_46im
t_5 = t_2 / y_46im
if (y_46re <= (-2.2d-51)) then
tmp = t_0
else if (y_46re <= (-2.7d-76)) then
tmp = t_3
else if (y_46re <= (-3.8d-79)) then
tmp = x_46re / y_46re
else if (y_46re <= (-6.5d-81)) then
tmp = 1.0d0 / (y_46im / (y_46re * (x_46re / y_46im)))
else if (y_46re <= (-3.9d-81)) then
tmp = x_46re / y_46re
else if (y_46re <= (-3.5d-101)) then
tmp = x_46im / y_46im
else if (y_46re <= (-3.1d-101)) then
tmp = t_0
else if (y_46re <= (-1.55d-103)) then
tmp = x_46im / y_46im
else if (y_46re <= (-1.42d-105)) then
tmp = t_0
else if (y_46re <= (-1.55d-170)) then
tmp = t_3
else if (y_46re <= (-1.5d-170)) then
tmp = x_46re / y_46re
else if (y_46re <= (-7d-194)) then
tmp = t_3
else if (y_46re <= (-1.45d-198)) then
tmp = t_0
else if (y_46re <= (-2d-286)) then
tmp = t_3
else if (y_46re <= 2.25d-263) then
tmp = t_4
else if (y_46re <= 2.4d-263) then
tmp = t_0
else if (y_46re <= 2.1d-262) then
tmp = t_1
else if (y_46re <= 1.3d-210) then
tmp = t_3
else if (y_46re <= 7.5d-210) then
tmp = x_46re / y_46re
else if (y_46re <= 7d-207) then
tmp = t_1
else if (y_46re <= 4.1d-165) then
tmp = t_4
else if (y_46re <= 8.4d-150) then
tmp = t_0
else if (y_46re <= 8.5d-123) then
tmp = t_3
else if (y_46re <= 9d-123) then
tmp = x_46re / y_46re
else if (y_46re <= 3.05d-102) then
tmp = t_3
else if (y_46re <= 1.45d-98) then
tmp = x_46re / y_46re
else if (y_46re <= 3d-84) then
tmp = x_46im / y_46im
else if (y_46re <= 3.7d-78) then
tmp = x_46re / y_46re
else if (y_46re <= 1.35d-49) then
tmp = t_5
else if (y_46re <= 1.58d-34) then
tmp = x_46re / y_46re
else if (y_46re <= 5.2d-25) then
tmp = x_46im / y_46im
else if (y_46re <= 180000000000.0d0) then
tmp = x_46re / y_46re
else if (y_46re <= 9.2d+19) then
tmp = x_46im / y_46im
else if (y_46re <= 3.9d+37) then
tmp = t_0
else if (y_46re <= 1.25d+42) then
tmp = x_46im / y_46im
else if (y_46re <= 1.2d+57) then
tmp = t_0
else if (y_46re <= 1.25d+57) then
tmp = x_46im / y_46im
else if (y_46re <= 1.6d+78) then
tmp = t_0
else if (y_46re <= 1.7d+78) then
tmp = x_46im / y_46im
else if (y_46re <= 5.5d+101) then
tmp = t_0
else if (y_46re <= 5.8d+101) then
tmp = x_46im / y_46im
else if (y_46re <= 3.5d+117) then
tmp = x_46re / y_46re
else if (y_46re <= 3.6d+117) then
tmp = t_5
else if (y_46re <= 2d+136) then
tmp = t_0
else if (y_46re <= 2.02d+136) then
tmp = t_5
else if (y_46re <= 2.1d+163) then
tmp = x_46re / y_46re
else if (y_46re <= 2.15d+163) then
tmp = x_46im / y_46im
else if (y_46re <= 2.7d+171) then
tmp = x_46re / y_46re
else if (y_46re <= 2.8d+171) then
tmp = t_3
else if (y_46re <= 2.2d+198) then
tmp = x_46re / y_46re
else if (y_46re <= 2.3d+198) then
tmp = x_46im / y_46im
else if (y_46re <= 2.9d+207) then
tmp = x_46re / y_46re
else if (y_46re <= 3d+207) then
tmp = t_3
else if (y_46re <= 2.35d+224) then
tmp = x_46re / y_46re
else if (y_46re <= 2.4d+224) then
tmp = x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_2 = x_46_re * (y_46_re / y_46_im);
double t_3 = (x_46_im + t_2) / y_46_im;
double t_4 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_5 = t_2 / y_46_im;
double tmp;
if (y_46_re <= -2.2e-51) {
tmp = t_0;
} else if (y_46_re <= -2.7e-76) {
tmp = t_3;
} else if (y_46_re <= -3.8e-79) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -6.5e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -3.9e-81) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -3.5e-101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -3.1e-101) {
tmp = t_0;
} else if (y_46_re <= -1.55e-103) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.42e-105) {
tmp = t_0;
} else if (y_46_re <= -1.55e-170) {
tmp = t_3;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_3;
} else if (y_46_re <= -1.45e-198) {
tmp = t_0;
} else if (y_46_re <= -2e-286) {
tmp = t_3;
} else if (y_46_re <= 2.25e-263) {
tmp = t_4;
} else if (y_46_re <= 2.4e-263) {
tmp = t_0;
} else if (y_46_re <= 2.1e-262) {
tmp = t_1;
} else if (y_46_re <= 1.3e-210) {
tmp = t_3;
} else if (y_46_re <= 7.5e-210) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_1;
} else if (y_46_re <= 4.1e-165) {
tmp = t_4;
} else if (y_46_re <= 8.4e-150) {
tmp = t_0;
} else if (y_46_re <= 8.5e-123) {
tmp = t_3;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_3;
} else if (y_46_re <= 1.45e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3e-84) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.7e-78) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 1.35e-49) {
tmp = t_5;
} else if (y_46_re <= 1.58e-34) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 5.2e-25) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 180000000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 9.2e+19) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.9e+37) {
tmp = t_0;
} else if (y_46_re <= 1.25e+42) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_0;
} else if (y_46_re <= 1.25e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.6e+78) {
tmp = t_0;
} else if (y_46_re <= 1.7e+78) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e+101) {
tmp = t_0;
} else if (y_46_re <= 5.8e+101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_5;
} else if (y_46_re <= 2e+136) {
tmp = t_0;
} else if (y_46_re <= 2.02e+136) {
tmp = t_5;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_3;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3e+207) {
tmp = t_3;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im) t_2 = x_46_re * (y_46_re / y_46_im) t_3 = (x_46_im + t_2) / y_46_im t_4 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im t_5 = t_2 / y_46_im tmp = 0 if y_46_re <= -2.2e-51: tmp = t_0 elif y_46_re <= -2.7e-76: tmp = t_3 elif y_46_re <= -3.8e-79: tmp = x_46_re / y_46_re elif y_46_re <= -6.5e-81: tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))) elif y_46_re <= -3.9e-81: tmp = x_46_re / y_46_re elif y_46_re <= -3.5e-101: tmp = x_46_im / y_46_im elif y_46_re <= -3.1e-101: tmp = t_0 elif y_46_re <= -1.55e-103: tmp = x_46_im / y_46_im elif y_46_re <= -1.42e-105: tmp = t_0 elif y_46_re <= -1.55e-170: tmp = t_3 elif y_46_re <= -1.5e-170: tmp = x_46_re / y_46_re elif y_46_re <= -7e-194: tmp = t_3 elif y_46_re <= -1.45e-198: tmp = t_0 elif y_46_re <= -2e-286: tmp = t_3 elif y_46_re <= 2.25e-263: tmp = t_4 elif y_46_re <= 2.4e-263: tmp = t_0 elif y_46_re <= 2.1e-262: tmp = t_1 elif y_46_re <= 1.3e-210: tmp = t_3 elif y_46_re <= 7.5e-210: tmp = x_46_re / y_46_re elif y_46_re <= 7e-207: tmp = t_1 elif y_46_re <= 4.1e-165: tmp = t_4 elif y_46_re <= 8.4e-150: tmp = t_0 elif y_46_re <= 8.5e-123: tmp = t_3 elif y_46_re <= 9e-123: tmp = x_46_re / y_46_re elif y_46_re <= 3.05e-102: tmp = t_3 elif y_46_re <= 1.45e-98: tmp = x_46_re / y_46_re elif y_46_re <= 3e-84: tmp = x_46_im / y_46_im elif y_46_re <= 3.7e-78: tmp = x_46_re / y_46_re elif y_46_re <= 1.35e-49: tmp = t_5 elif y_46_re <= 1.58e-34: tmp = x_46_re / y_46_re elif y_46_re <= 5.2e-25: tmp = x_46_im / y_46_im elif y_46_re <= 180000000000.0: tmp = x_46_re / y_46_re elif y_46_re <= 9.2e+19: tmp = x_46_im / y_46_im elif y_46_re <= 3.9e+37: tmp = t_0 elif y_46_re <= 1.25e+42: tmp = x_46_im / y_46_im elif y_46_re <= 1.2e+57: tmp = t_0 elif y_46_re <= 1.25e+57: tmp = x_46_im / y_46_im elif y_46_re <= 1.6e+78: tmp = t_0 elif y_46_re <= 1.7e+78: tmp = x_46_im / y_46_im elif y_46_re <= 5.5e+101: tmp = t_0 elif y_46_re <= 5.8e+101: tmp = x_46_im / y_46_im elif y_46_re <= 3.5e+117: tmp = x_46_re / y_46_re elif y_46_re <= 3.6e+117: tmp = t_5 elif y_46_re <= 2e+136: tmp = t_0 elif y_46_re <= 2.02e+136: tmp = t_5 elif y_46_re <= 2.1e+163: tmp = x_46_re / y_46_re elif y_46_re <= 2.15e+163: tmp = x_46_im / y_46_im elif y_46_re <= 2.7e+171: tmp = x_46_re / y_46_re elif y_46_re <= 2.8e+171: tmp = t_3 elif y_46_re <= 2.2e+198: tmp = x_46_re / y_46_re elif y_46_re <= 2.3e+198: tmp = x_46_im / y_46_im elif y_46_re <= 2.9e+207: tmp = x_46_re / y_46_re elif y_46_re <= 3e+207: tmp = t_3 elif y_46_re <= 2.35e+224: tmp = x_46_re / y_46_re elif y_46_re <= 2.4e+224: tmp = x_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 + Float64(x_46_im * Float64(y_46_im / y_46_re))) / y_46_re) t_1 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) t_2 = Float64(x_46_re * Float64(y_46_re / y_46_im)) t_3 = Float64(Float64(x_46_im + t_2) / y_46_im) t_4 = Float64(Float64(x_46_im + Float64(Float64(x_46_re * y_46_re) / y_46_im)) / y_46_im) t_5 = Float64(t_2 / y_46_im) tmp = 0.0 if (y_46_re <= -2.2e-51) tmp = t_0; elseif (y_46_re <= -2.7e-76) tmp = t_3; elseif (y_46_re <= -3.8e-79) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -6.5e-81) tmp = Float64(1.0 / Float64(y_46_im / Float64(y_46_re * Float64(x_46_re / y_46_im)))); elseif (y_46_re <= -3.9e-81) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -3.5e-101) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= -3.1e-101) tmp = t_0; elseif (y_46_re <= -1.55e-103) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= -1.42e-105) tmp = t_0; elseif (y_46_re <= -1.55e-170) tmp = t_3; elseif (y_46_re <= -1.5e-170) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -7e-194) tmp = t_3; elseif (y_46_re <= -1.45e-198) tmp = t_0; elseif (y_46_re <= -2e-286) tmp = t_3; elseif (y_46_re <= 2.25e-263) tmp = t_4; elseif (y_46_re <= 2.4e-263) tmp = t_0; elseif (y_46_re <= 2.1e-262) tmp = t_1; elseif (y_46_re <= 1.3e-210) tmp = t_3; elseif (y_46_re <= 7.5e-210) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 7e-207) tmp = t_1; elseif (y_46_re <= 4.1e-165) tmp = t_4; elseif (y_46_re <= 8.4e-150) tmp = t_0; elseif (y_46_re <= 8.5e-123) tmp = t_3; elseif (y_46_re <= 9e-123) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.05e-102) tmp = t_3; elseif (y_46_re <= 1.45e-98) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3e-84) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.7e-78) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 1.35e-49) tmp = t_5; elseif (y_46_re <= 1.58e-34) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 5.2e-25) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 180000000000.0) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 9.2e+19) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.9e+37) tmp = t_0; elseif (y_46_re <= 1.25e+42) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.2e+57) tmp = t_0; elseif (y_46_re <= 1.25e+57) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.6e+78) tmp = t_0; elseif (y_46_re <= 1.7e+78) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 5.5e+101) tmp = t_0; elseif (y_46_re <= 5.8e+101) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.5e+117) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.6e+117) tmp = t_5; elseif (y_46_re <= 2e+136) tmp = t_0; elseif (y_46_re <= 2.02e+136) tmp = t_5; elseif (y_46_re <= 2.1e+163) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.15e+163) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.7e+171) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.8e+171) tmp = t_3; elseif (y_46_re <= 2.2e+198) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.3e+198) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.9e+207) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3e+207) tmp = t_3; elseif (y_46_re <= 2.35e+224) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.4e+224) tmp = Float64(x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re; t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im); t_2 = x_46_re * (y_46_re / y_46_im); t_3 = (x_46_im + t_2) / y_46_im; t_4 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im; t_5 = t_2 / y_46_im; tmp = 0.0; if (y_46_re <= -2.2e-51) tmp = t_0; elseif (y_46_re <= -2.7e-76) tmp = t_3; elseif (y_46_re <= -3.8e-79) tmp = x_46_re / y_46_re; elseif (y_46_re <= -6.5e-81) tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))); elseif (y_46_re <= -3.9e-81) tmp = x_46_re / y_46_re; elseif (y_46_re <= -3.5e-101) tmp = x_46_im / y_46_im; elseif (y_46_re <= -3.1e-101) tmp = t_0; elseif (y_46_re <= -1.55e-103) tmp = x_46_im / y_46_im; elseif (y_46_re <= -1.42e-105) tmp = t_0; elseif (y_46_re <= -1.55e-170) tmp = t_3; elseif (y_46_re <= -1.5e-170) tmp = x_46_re / y_46_re; elseif (y_46_re <= -7e-194) tmp = t_3; elseif (y_46_re <= -1.45e-198) tmp = t_0; elseif (y_46_re <= -2e-286) tmp = t_3; elseif (y_46_re <= 2.25e-263) tmp = t_4; elseif (y_46_re <= 2.4e-263) tmp = t_0; elseif (y_46_re <= 2.1e-262) tmp = t_1; elseif (y_46_re <= 1.3e-210) tmp = t_3; elseif (y_46_re <= 7.5e-210) tmp = x_46_re / y_46_re; elseif (y_46_re <= 7e-207) tmp = t_1; elseif (y_46_re <= 4.1e-165) tmp = t_4; elseif (y_46_re <= 8.4e-150) tmp = t_0; elseif (y_46_re <= 8.5e-123) tmp = t_3; elseif (y_46_re <= 9e-123) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.05e-102) tmp = t_3; elseif (y_46_re <= 1.45e-98) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3e-84) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.7e-78) tmp = x_46_re / y_46_re; elseif (y_46_re <= 1.35e-49) tmp = t_5; elseif (y_46_re <= 1.58e-34) tmp = x_46_re / y_46_re; elseif (y_46_re <= 5.2e-25) tmp = x_46_im / y_46_im; elseif (y_46_re <= 180000000000.0) tmp = x_46_re / y_46_re; elseif (y_46_re <= 9.2e+19) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.9e+37) tmp = t_0; elseif (y_46_re <= 1.25e+42) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.2e+57) tmp = t_0; elseif (y_46_re <= 1.25e+57) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.6e+78) tmp = t_0; elseif (y_46_re <= 1.7e+78) tmp = x_46_im / y_46_im; elseif (y_46_re <= 5.5e+101) tmp = t_0; elseif (y_46_re <= 5.8e+101) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.5e+117) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.6e+117) tmp = t_5; elseif (y_46_re <= 2e+136) tmp = t_0; elseif (y_46_re <= 2.02e+136) tmp = t_5; elseif (y_46_re <= 2.1e+163) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.15e+163) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.7e+171) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.8e+171) tmp = t_3; elseif (y_46_re <= 2.2e+198) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.3e+198) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.9e+207) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3e+207) tmp = t_3; elseif (y_46_re <= 2.35e+224) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.4e+224) tmp = x_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[(N[(x$46$re + N[(x$46$im * N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x$46$im + t$95$2), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x$46$im + N[(N[(x$46$re * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$2 / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$re, -2.2e-51], t$95$0, If[LessEqual[y$46$re, -2.7e-76], t$95$3, If[LessEqual[y$46$re, -3.8e-79], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -6.5e-81], N[(1.0 / N[(y$46$im / N[(y$46$re * N[(x$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -3.9e-81], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -3.5e-101], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, -3.1e-101], t$95$0, If[LessEqual[y$46$re, -1.55e-103], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, -1.42e-105], t$95$0, If[LessEqual[y$46$re, -1.55e-170], t$95$3, If[LessEqual[y$46$re, -1.5e-170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -7e-194], t$95$3, If[LessEqual[y$46$re, -1.45e-198], t$95$0, If[LessEqual[y$46$re, -2e-286], t$95$3, If[LessEqual[y$46$re, 2.25e-263], t$95$4, If[LessEqual[y$46$re, 2.4e-263], t$95$0, If[LessEqual[y$46$re, 2.1e-262], t$95$1, If[LessEqual[y$46$re, 1.3e-210], t$95$3, If[LessEqual[y$46$re, 7.5e-210], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 7e-207], t$95$1, If[LessEqual[y$46$re, 4.1e-165], t$95$4, If[LessEqual[y$46$re, 8.4e-150], t$95$0, If[LessEqual[y$46$re, 8.5e-123], t$95$3, If[LessEqual[y$46$re, 9e-123], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.05e-102], t$95$3, If[LessEqual[y$46$re, 1.45e-98], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3e-84], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.7e-78], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 1.35e-49], t$95$5, If[LessEqual[y$46$re, 1.58e-34], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 5.2e-25], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 180000000000.0], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 9.2e+19], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.9e+37], t$95$0, If[LessEqual[y$46$re, 1.25e+42], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.2e+57], t$95$0, If[LessEqual[y$46$re, 1.25e+57], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.6e+78], t$95$0, If[LessEqual[y$46$re, 1.7e+78], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 5.5e+101], t$95$0, If[LessEqual[y$46$re, 5.8e+101], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.5e+117], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.6e+117], t$95$5, If[LessEqual[y$46$re, 2e+136], t$95$0, If[LessEqual[y$46$re, 2.02e+136], t$95$5, If[LessEqual[y$46$re, 2.1e+163], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.15e+163], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.7e+171], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.8e+171], t$95$3, If[LessEqual[y$46$re, 2.2e+198], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.3e+198], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.9e+207], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3e+207], t$95$3, If[LessEqual[y$46$re, 2.35e+224], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.4e+224], N[(x$46$im / y$46$im), $MachinePrecision], t$95$0]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x.re + x.im \cdot \frac{y.im}{y.re}}{y.re}\\
t_1 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
t_2 := x.re \cdot \frac{y.re}{y.im}\\
t_3 := \frac{x.im + t\_2}{y.im}\\
t_4 := \frac{x.im + \frac{x.re \cdot y.re}{y.im}}{y.im}\\
t_5 := \frac{t\_2}{y.im}\\
\mathbf{if}\;y.re \leq -2.2 \cdot 10^{-51}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq -2.7 \cdot 10^{-76}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq -3.8 \cdot 10^{-79}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -6.5 \cdot 10^{-81}:\\
\;\;\;\;\frac{1}{\frac{y.im}{y.re \cdot \frac{x.re}{y.im}}}\\
\mathbf{elif}\;y.re \leq -3.9 \cdot 10^{-81}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -3.5 \cdot 10^{-101}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq -3.1 \cdot 10^{-101}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq -1.55 \cdot 10^{-103}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq -1.42 \cdot 10^{-105}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq -1.55 \cdot 10^{-170}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq -1.5 \cdot 10^{-170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -7 \cdot 10^{-194}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq -1.45 \cdot 10^{-198}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq -2 \cdot 10^{-286}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 2.25 \cdot 10^{-263}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 2.4 \cdot 10^{-263}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{-262}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 1.3 \cdot 10^{-210}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 7.5 \cdot 10^{-210}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 7 \cdot 10^{-207}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.re \leq 4.1 \cdot 10^{-165}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 8.4 \cdot 10^{-150}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 8.5 \cdot 10^{-123}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 9 \cdot 10^{-123}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.05 \cdot 10^{-102}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 1.45 \cdot 10^{-98}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3 \cdot 10^{-84}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.7 \cdot 10^{-78}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 1.35 \cdot 10^{-49}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 1.58 \cdot 10^{-34}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 5.2 \cdot 10^{-25}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 180000000000:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 9.2 \cdot 10^{+19}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.9 \cdot 10^{+37}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 1.25 \cdot 10^{+42}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.2 \cdot 10^{+57}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 1.25 \cdot 10^{+57}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.6 \cdot 10^{+78}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 1.7 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 5.5 \cdot 10^{+101}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 5.8 \cdot 10^{+101}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.5 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.6 \cdot 10^{+117}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 2 \cdot 10^{+136}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 2.02 \cdot 10^{+136}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.15 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.7 \cdot 10^{+171}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.8 \cdot 10^{+171}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 2.2 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.3 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.9 \cdot 10^{+207}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3 \cdot 10^{+207}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 2.35 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.4 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.re < -2.2e-51 or -3.49999999999999994e-101 < y.re < -3.09999999999999973e-101 or -1.5500000000000001e-103 < y.re < -1.4199999999999999e-105 or -7.0000000000000006e-194 < y.re < -1.45e-198 or 2.2499999999999999e-263 < y.re < 2.4e-263 or 4.1000000000000002e-165 < y.re < 8.4000000000000004e-150 or 9.2e19 < y.re < 3.8999999999999999e37 or 1.25000000000000002e42 < y.re < 1.20000000000000002e57 or 1.24999999999999993e57 < y.re < 1.59999999999999997e78 or 1.70000000000000004e78 < y.re < 5.50000000000000018e101 or 3.60000000000000013e117 < y.re < 2.00000000000000012e136 or 2.40000000000000001e224 < y.re Initial program 56.9%
Taylor expanded in y.re around inf 85.2%
associate-/l*89.9%
Simplified89.9%
if -2.2e-51 < y.re < -2.7e-76 or -1.4199999999999999e-105 < y.re < -1.54999999999999993e-170 or -1.50000000000000007e-170 < y.re < -7.0000000000000006e-194 or -1.45e-198 < y.re < -2.0000000000000001e-286 or 2.1e-262 < y.re < 1.2999999999999999e-210 or 8.4000000000000004e-150 < y.re < 8.4999999999999995e-123 or 8.99999999999999986e-123 < y.re < 3.0499999999999999e-102 or 2.6999999999999998e171 < y.re < 2.80000000000000004e171 or 2.89999999999999997e207 < y.re < 2.99999999999999983e207Initial program 65.1%
Taylor expanded in y.im around inf 98.5%
associate-/l*98.6%
Simplified98.6%
if -2.7e-76 < y.re < -3.8000000000000001e-79 or -6.5000000000000002e-81 < y.re < -3.89999999999999985e-81 or -1.54999999999999993e-170 < y.re < -1.50000000000000007e-170 or 1.2999999999999999e-210 < y.re < 7.4999999999999997e-210 or 8.4999999999999995e-123 < y.re < 8.99999999999999986e-123 or 3.0499999999999999e-102 < y.re < 1.45e-98 or 3.0000000000000001e-84 < y.re < 3.70000000000000006e-78 or 1.35e-49 < y.re < 1.57999999999999997e-34 or 5.2e-25 < y.re < 1.8e11 or 5.79999999999999974e101 < y.re < 3.49999999999999983e117 or 2.02000000000000002e136 < y.re < 2.1e163 or 2.1500000000000001e163 < y.re < 2.6999999999999998e171 or 2.80000000000000004e171 < y.re < 2.2e198 or 2.3000000000000001e198 < y.re < 2.89999999999999997e207 or 2.99999999999999983e207 < y.re < 2.3500000000000001e224Initial program 66.6%
Taylor expanded in y.re around inf 97.1%
if -3.8000000000000001e-79 < y.re < -6.5000000000000002e-81Initial program 98.4%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
clear-num100.0%
inv-pow100.0%
+-commutative100.0%
fma-define100.0%
Applied egg-rr100.0%
unpow-1100.0%
Simplified100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
associate-/l*100.0%
Simplified100.0%
if -3.89999999999999985e-81 < y.re < -3.49999999999999994e-101 or -3.09999999999999973e-101 < y.re < -1.5500000000000001e-103 or 1.45e-98 < y.re < 3.0000000000000001e-84 or 1.57999999999999997e-34 < y.re < 5.2e-25 or 1.8e11 < y.re < 9.2e19 or 3.8999999999999999e37 < y.re < 1.25000000000000002e42 or 1.20000000000000002e57 < y.re < 1.24999999999999993e57 or 1.59999999999999997e78 < y.re < 1.70000000000000004e78 or 5.50000000000000018e101 < y.re < 5.79999999999999974e101 or 2.1e163 < y.re < 2.1500000000000001e163 or 2.2e198 < y.re < 2.3000000000000001e198 or 2.3500000000000001e224 < y.re < 2.40000000000000001e224Initial program 48.7%
Taylor expanded in y.re around 0 100.0%
if -2.0000000000000001e-286 < y.re < 2.2499999999999999e-263 or 7.0000000000000003e-207 < y.re < 4.1000000000000002e-165Initial program 91.2%
Taylor expanded in y.im around inf 100.0%
if 2.4e-263 < y.re < 2.1e-262 or 7.4999999999999997e-210 < y.re < 7.0000000000000003e-207Initial program 99.2%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
Taylor expanded in x.im around 0 99.2%
associate-/l*100.0%
Simplified100.0%
*-un-lft-identity100.0%
unpow2100.0%
times-frac100.0%
Applied egg-rr100.0%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
if 3.70000000000000006e-78 < y.re < 1.35e-49 or 3.49999999999999983e117 < y.re < 3.60000000000000013e117 or 2.00000000000000012e136 < y.re < 2.02000000000000002e136Initial program 50.9%
Taylor expanded in y.im around inf 51.4%
associate-/l*99.6%
Simplified99.6%
Taylor expanded in x.im around 0 50.9%
associate-/l*77.2%
Simplified77.2%
*-un-lft-identity77.2%
unpow277.2%
times-frac76.5%
Applied egg-rr76.5%
*-commutative76.5%
associate-*l/76.5%
*-un-lft-identity76.5%
associate-*l/99.6%
Applied egg-rr99.6%
Final simplification94.4%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (- x.im) y.re))
(t_1 (* x.re (/ (/ y.re y.im) y.im)))
(t_2 (/ (* x.re (/ y.re y.im)) y.im)))
(if (<= x.im -9.5e-255)
(/ x.re y.re)
(if (<= x.im 1e-271)
t_2
(if (<= x.im 1.8e-265)
(/ (/ x.re y.im) (/ y.im y.re))
(if (<= x.im 7.5e-258)
(/ x.re y.re)
(if (<= x.im 3.6e-254)
t_2
(if (<= x.im 9e-247)
(/ x.re y.re)
(if (<= x.im 8.8e-243)
(/ x.im y.im)
(if (<= x.im 1.8e-193)
(/ x.re y.re)
(if (<= x.im 2.3e-182)
t_1
(if (<= x.im 4.5e-170)
(/ x.re y.re)
(if (<= x.im 2.45e-163)
(/ x.im y.im)
(if (<= x.im 1.52e-158)
t_1
(if (<= x.im 7.5e-141)
(/ x.re y.re)
(if (<= x.im 7.8e-141)
(/ x.im y.re)
(if (<= x.im 2.7e-131)
(/ x.re y.re)
(if (<= x.im 5.4e-131)
(/ x.im y.im)
(if (<= x.im 1.4e-124)
(/ x.re y.re)
(if (<= x.im 2.3e-119)
t_1
(if (<= x.im 8.5e-114)
(/ x.im y.im)
(if (<= x.im 5e-102)
(/ x.re y.re)
(if (<= x.im 5.1e-102)
(/ x.im y.im)
(if (<= x.im 2.1e-96)
(/ x.re y.re)
(if (<= x.im 1.12e-94)
(/ x.im y.im)
(if (<= x.im 1.2e-85)
(/ x.re y.re)
(if (<= x.im 4.1e-72)
(/ x.im y.im)
(if (<= x.im 4.2e-72)
t_0
(if (<= x.im 2e-63)
(/ x.re y.re)
(if (<= x.im 1.2e-59)
(/ x.im y.im)
(if (<=
x.im
5.4e-56)
(/ x.re y.re)
(if (<=
x.im
1.95e-46)
(/ x.im y.im)
(if (<=
x.im
2e-46)
t_2
(if (<=
x.im
3.5e-25)
(/
x.im
y.im)
(if (<=
x.im
1.35e-13)
t_1
(if (<=
x.im
1.4e-13)
(/
x.im
y.re)
(if (<=
x.im
9.2e+27)
(/
x.re
y.re)
(if (<=
x.im
8.5e+34)
(/
x.im
y.im)
(if (<=
x.im
9e+46)
(/
x.re
y.re)
(if (<=
x.im
9.5e+46)
(/
x.im
y.re)
(if (<=
x.im
1.6e+76)
(/
x.re
y.re)
(if (<=
x.im
3.7e+117)
(/
x.im
y.im)
(if (<=
x.im
3.8e+117)
t_0
(if (<=
x.im
1.75e+134)
(/
x.re
y.re)
(if (<=
x.im
6.4e+136)
(/
x.im
y.im)
(if (<=
x.im
5.8e+170)
(/
x.re
y.re)
(if (<=
x.im
6e+170)
(/
x.im
y.re)
(if (<=
x.im
4e+185)
(/
x.re
y.re)
(if (<=
x.im
5.8e+188)
(/
x.im
y.im)
(if (<=
x.im
6e+188)
(/
x.im
y.re)
(if (<=
x.im
1.35e+244)
(/
x.im
y.im)
(if (<=
x.im
1.4e+244)
(/
x.im
y.re)
(if (<=
x.im
1.8e+262)
(/
x.im
y.im)
(if (<=
x.im
3.1e+271)
(/
x.re
y.re)
(if (<=
x.im
1.7e+276)
(/
x.im
y.im)
(if (<=
x.im
1.26e+277)
t_0
(if (or (<=
x.im
2e+299)
(not
(<=
x.im
2.6e+299)))
(/
x.im
y.im)
(/
x.re
y.re))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
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_re;
double t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_2 = (x_46_re * (y_46_re / y_46_im)) / y_46_im;
double tmp;
if (x_46_im <= -9.5e-255) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1e-271) {
tmp = t_2;
} else if (x_46_im <= 1.8e-265) {
tmp = (x_46_re / y_46_im) / (y_46_im / y_46_re);
} else if (x_46_im <= 7.5e-258) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.6e-254) {
tmp = t_2;
} else if (x_46_im <= 9e-247) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.8e-243) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.8e-193) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.3e-182) {
tmp = t_1;
} else if (x_46_im <= 4.5e-170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.45e-163) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.52e-158) {
tmp = t_1;
} else if (x_46_im <= 7.5e-141) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.8e-141) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.7e-131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.4e-131) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e-124) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.3e-119) {
tmp = t_1;
} else if (x_46_im <= 8.5e-114) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5e-102) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.1e-102) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.1e-96) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.12e-94) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.2e-85) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.1e-72) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.2e-72) {
tmp = t_0;
} else if (x_46_im <= 2e-63) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.2e-59) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.4e-56) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.95e-46) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2e-46) {
tmp = t_2;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.35e-13) {
tmp = t_1;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 9.2e+27) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.5e+34) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.6e+76) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_0;
} else if (x_46_im <= 1.75e+134) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.4e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.8e+262) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.1e+271) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_0;
} else if ((x_46_im <= 2e+299) || !(x_46_im <= 2.6e+299)) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / 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) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_0 = -x_46im / y_46re
t_1 = x_46re * ((y_46re / y_46im) / y_46im)
t_2 = (x_46re * (y_46re / y_46im)) / y_46im
if (x_46im <= (-9.5d-255)) then
tmp = x_46re / y_46re
else if (x_46im <= 1d-271) then
tmp = t_2
else if (x_46im <= 1.8d-265) then
tmp = (x_46re / y_46im) / (y_46im / y_46re)
else if (x_46im <= 7.5d-258) then
tmp = x_46re / y_46re
else if (x_46im <= 3.6d-254) then
tmp = t_2
else if (x_46im <= 9d-247) then
tmp = x_46re / y_46re
else if (x_46im <= 8.8d-243) then
tmp = x_46im / y_46im
else if (x_46im <= 1.8d-193) then
tmp = x_46re / y_46re
else if (x_46im <= 2.3d-182) then
tmp = t_1
else if (x_46im <= 4.5d-170) then
tmp = x_46re / y_46re
else if (x_46im <= 2.45d-163) then
tmp = x_46im / y_46im
else if (x_46im <= 1.52d-158) then
tmp = t_1
else if (x_46im <= 7.5d-141) then
tmp = x_46re / y_46re
else if (x_46im <= 7.8d-141) then
tmp = x_46im / y_46re
else if (x_46im <= 2.7d-131) then
tmp = x_46re / y_46re
else if (x_46im <= 5.4d-131) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d-124) then
tmp = x_46re / y_46re
else if (x_46im <= 2.3d-119) then
tmp = t_1
else if (x_46im <= 8.5d-114) then
tmp = x_46im / y_46im
else if (x_46im <= 5d-102) then
tmp = x_46re / y_46re
else if (x_46im <= 5.1d-102) then
tmp = x_46im / y_46im
else if (x_46im <= 2.1d-96) then
tmp = x_46re / y_46re
else if (x_46im <= 1.12d-94) then
tmp = x_46im / y_46im
else if (x_46im <= 1.2d-85) then
tmp = x_46re / y_46re
else if (x_46im <= 4.1d-72) then
tmp = x_46im / y_46im
else if (x_46im <= 4.2d-72) then
tmp = t_0
else if (x_46im <= 2d-63) then
tmp = x_46re / y_46re
else if (x_46im <= 1.2d-59) then
tmp = x_46im / y_46im
else if (x_46im <= 5.4d-56) then
tmp = x_46re / y_46re
else if (x_46im <= 1.95d-46) then
tmp = x_46im / y_46im
else if (x_46im <= 2d-46) then
tmp = t_2
else if (x_46im <= 3.5d-25) then
tmp = x_46im / y_46im
else if (x_46im <= 1.35d-13) then
tmp = t_1
else if (x_46im <= 1.4d-13) then
tmp = x_46im / y_46re
else if (x_46im <= 9.2d+27) then
tmp = x_46re / y_46re
else if (x_46im <= 8.5d+34) then
tmp = x_46im / y_46im
else if (x_46im <= 9d+46) then
tmp = x_46re / y_46re
else if (x_46im <= 9.5d+46) then
tmp = x_46im / y_46re
else if (x_46im <= 1.6d+76) then
tmp = x_46re / y_46re
else if (x_46im <= 3.7d+117) then
tmp = x_46im / y_46im
else if (x_46im <= 3.8d+117) then
tmp = t_0
else if (x_46im <= 1.75d+134) then
tmp = x_46re / y_46re
else if (x_46im <= 6.4d+136) then
tmp = x_46im / y_46im
else if (x_46im <= 5.8d+170) then
tmp = x_46re / y_46re
else if (x_46im <= 6d+170) then
tmp = x_46im / y_46re
else if (x_46im <= 4d+185) then
tmp = x_46re / y_46re
else if (x_46im <= 5.8d+188) then
tmp = x_46im / y_46im
else if (x_46im <= 6d+188) then
tmp = x_46im / y_46re
else if (x_46im <= 1.35d+244) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d+244) then
tmp = x_46im / y_46re
else if (x_46im <= 1.8d+262) then
tmp = x_46im / y_46im
else if (x_46im <= 3.1d+271) then
tmp = x_46re / y_46re
else if (x_46im <= 1.7d+276) then
tmp = x_46im / y_46im
else if (x_46im <= 1.26d+277) then
tmp = t_0
else if ((x_46im <= 2d+299) .or. (.not. (x_46im <= 2.6d+299))) then
tmp = x_46im / y_46im
else
tmp = x_46re / 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 t_0 = -x_46_im / y_46_re;
double t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_2 = (x_46_re * (y_46_re / y_46_im)) / y_46_im;
double tmp;
if (x_46_im <= -9.5e-255) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1e-271) {
tmp = t_2;
} else if (x_46_im <= 1.8e-265) {
tmp = (x_46_re / y_46_im) / (y_46_im / y_46_re);
} else if (x_46_im <= 7.5e-258) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.6e-254) {
tmp = t_2;
} else if (x_46_im <= 9e-247) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.8e-243) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.8e-193) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.3e-182) {
tmp = t_1;
} else if (x_46_im <= 4.5e-170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.45e-163) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.52e-158) {
tmp = t_1;
} else if (x_46_im <= 7.5e-141) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.8e-141) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.7e-131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.4e-131) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e-124) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.3e-119) {
tmp = t_1;
} else if (x_46_im <= 8.5e-114) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5e-102) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.1e-102) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.1e-96) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.12e-94) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.2e-85) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.1e-72) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.2e-72) {
tmp = t_0;
} else if (x_46_im <= 2e-63) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.2e-59) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.4e-56) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.95e-46) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2e-46) {
tmp = t_2;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.35e-13) {
tmp = t_1;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 9.2e+27) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.5e+34) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.6e+76) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_0;
} else if (x_46_im <= 1.75e+134) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.4e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.8e+262) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.1e+271) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_0;
} else if ((x_46_im <= 2e+299) || !(x_46_im <= 2.6e+299)) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / y_46_re;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = -x_46_im / y_46_re t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im) t_2 = (x_46_re * (y_46_re / y_46_im)) / y_46_im tmp = 0 if x_46_im <= -9.5e-255: tmp = x_46_re / y_46_re elif x_46_im <= 1e-271: tmp = t_2 elif x_46_im <= 1.8e-265: tmp = (x_46_re / y_46_im) / (y_46_im / y_46_re) elif x_46_im <= 7.5e-258: tmp = x_46_re / y_46_re elif x_46_im <= 3.6e-254: tmp = t_2 elif x_46_im <= 9e-247: tmp = x_46_re / y_46_re elif x_46_im <= 8.8e-243: tmp = x_46_im / y_46_im elif x_46_im <= 1.8e-193: tmp = x_46_re / y_46_re elif x_46_im <= 2.3e-182: tmp = t_1 elif x_46_im <= 4.5e-170: tmp = x_46_re / y_46_re elif x_46_im <= 2.45e-163: tmp = x_46_im / y_46_im elif x_46_im <= 1.52e-158: tmp = t_1 elif x_46_im <= 7.5e-141: tmp = x_46_re / y_46_re elif x_46_im <= 7.8e-141: tmp = x_46_im / y_46_re elif x_46_im <= 2.7e-131: tmp = x_46_re / y_46_re elif x_46_im <= 5.4e-131: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e-124: tmp = x_46_re / y_46_re elif x_46_im <= 2.3e-119: tmp = t_1 elif x_46_im <= 8.5e-114: tmp = x_46_im / y_46_im elif x_46_im <= 5e-102: tmp = x_46_re / y_46_re elif x_46_im <= 5.1e-102: tmp = x_46_im / y_46_im elif x_46_im <= 2.1e-96: tmp = x_46_re / y_46_re elif x_46_im <= 1.12e-94: tmp = x_46_im / y_46_im elif x_46_im <= 1.2e-85: tmp = x_46_re / y_46_re elif x_46_im <= 4.1e-72: tmp = x_46_im / y_46_im elif x_46_im <= 4.2e-72: tmp = t_0 elif x_46_im <= 2e-63: tmp = x_46_re / y_46_re elif x_46_im <= 1.2e-59: tmp = x_46_im / y_46_im elif x_46_im <= 5.4e-56: tmp = x_46_re / y_46_re elif x_46_im <= 1.95e-46: tmp = x_46_im / y_46_im elif x_46_im <= 2e-46: tmp = t_2 elif x_46_im <= 3.5e-25: tmp = x_46_im / y_46_im elif x_46_im <= 1.35e-13: tmp = t_1 elif x_46_im <= 1.4e-13: tmp = x_46_im / y_46_re elif x_46_im <= 9.2e+27: tmp = x_46_re / y_46_re elif x_46_im <= 8.5e+34: tmp = x_46_im / y_46_im elif x_46_im <= 9e+46: tmp = x_46_re / y_46_re elif x_46_im <= 9.5e+46: tmp = x_46_im / y_46_re elif x_46_im <= 1.6e+76: tmp = x_46_re / y_46_re elif x_46_im <= 3.7e+117: tmp = x_46_im / y_46_im elif x_46_im <= 3.8e+117: tmp = t_0 elif x_46_im <= 1.75e+134: tmp = x_46_re / y_46_re elif x_46_im <= 6.4e+136: tmp = x_46_im / y_46_im elif x_46_im <= 5.8e+170: tmp = x_46_re / y_46_re elif x_46_im <= 6e+170: tmp = x_46_im / y_46_re elif x_46_im <= 4e+185: tmp = x_46_re / y_46_re elif x_46_im <= 5.8e+188: tmp = x_46_im / y_46_im elif x_46_im <= 6e+188: tmp = x_46_im / y_46_re elif x_46_im <= 1.35e+244: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e+244: tmp = x_46_im / y_46_re elif x_46_im <= 1.8e+262: tmp = x_46_im / y_46_im elif x_46_im <= 3.1e+271: tmp = x_46_re / y_46_re elif x_46_im <= 1.7e+276: tmp = x_46_im / y_46_im elif x_46_im <= 1.26e+277: tmp = t_0 elif (x_46_im <= 2e+299) or not (x_46_im <= 2.6e+299): tmp = x_46_im / y_46_im else: tmp = x_46_re / y_46_re return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(Float64(-x_46_im) / y_46_re) t_1 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) t_2 = Float64(Float64(x_46_re * Float64(y_46_re / y_46_im)) / y_46_im) tmp = 0.0 if (x_46_im <= -9.5e-255) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1e-271) tmp = t_2; elseif (x_46_im <= 1.8e-265) tmp = Float64(Float64(x_46_re / y_46_im) / Float64(y_46_im / y_46_re)); elseif (x_46_im <= 7.5e-258) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.6e-254) tmp = t_2; elseif (x_46_im <= 9e-247) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 8.8e-243) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.8e-193) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 2.3e-182) tmp = t_1; elseif (x_46_im <= 4.5e-170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 2.45e-163) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.52e-158) tmp = t_1; elseif (x_46_im <= 7.5e-141) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 7.8e-141) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 2.7e-131) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.4e-131) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e-124) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 2.3e-119) tmp = t_1; elseif (x_46_im <= 8.5e-114) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5e-102) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.1e-102) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2.1e-96) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.12e-94) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.2e-85) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 4.1e-72) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 4.2e-72) tmp = t_0; elseif (x_46_im <= 2e-63) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.2e-59) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.4e-56) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.95e-46) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2e-46) tmp = t_2; elseif (x_46_im <= 3.5e-25) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.35e-13) tmp = t_1; elseif (x_46_im <= 1.4e-13) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 9.2e+27) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 8.5e+34) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 9e+46) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.5e+46) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.6e+76) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.7e+117) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 3.8e+117) tmp = t_0; elseif (x_46_im <= 1.75e+134) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6.4e+136) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.8e+170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6e+170) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 4e+185) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.8e+188) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6e+188) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.35e+244) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e+244) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.8e+262) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 3.1e+271) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.7e+276) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.26e+277) tmp = t_0; elseif ((x_46_im <= 2e+299) || !(x_46_im <= 2.6e+299)) tmp = Float64(x_46_im / y_46_im); else tmp = Float64(x_46_re / y_46_re); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = -x_46_im / y_46_re; t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im); t_2 = (x_46_re * (y_46_re / y_46_im)) / y_46_im; tmp = 0.0; if (x_46_im <= -9.5e-255) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1e-271) tmp = t_2; elseif (x_46_im <= 1.8e-265) tmp = (x_46_re / y_46_im) / (y_46_im / y_46_re); elseif (x_46_im <= 7.5e-258) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.6e-254) tmp = t_2; elseif (x_46_im <= 9e-247) tmp = x_46_re / y_46_re; elseif (x_46_im <= 8.8e-243) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.8e-193) tmp = x_46_re / y_46_re; elseif (x_46_im <= 2.3e-182) tmp = t_1; elseif (x_46_im <= 4.5e-170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 2.45e-163) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.52e-158) tmp = t_1; elseif (x_46_im <= 7.5e-141) tmp = x_46_re / y_46_re; elseif (x_46_im <= 7.8e-141) tmp = x_46_im / y_46_re; elseif (x_46_im <= 2.7e-131) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.4e-131) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e-124) tmp = x_46_re / y_46_re; elseif (x_46_im <= 2.3e-119) tmp = t_1; elseif (x_46_im <= 8.5e-114) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5e-102) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.1e-102) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2.1e-96) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.12e-94) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.2e-85) tmp = x_46_re / y_46_re; elseif (x_46_im <= 4.1e-72) tmp = x_46_im / y_46_im; elseif (x_46_im <= 4.2e-72) tmp = t_0; elseif (x_46_im <= 2e-63) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.2e-59) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.4e-56) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.95e-46) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2e-46) tmp = t_2; elseif (x_46_im <= 3.5e-25) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.35e-13) tmp = t_1; elseif (x_46_im <= 1.4e-13) tmp = x_46_im / y_46_re; elseif (x_46_im <= 9.2e+27) tmp = x_46_re / y_46_re; elseif (x_46_im <= 8.5e+34) tmp = x_46_im / y_46_im; elseif (x_46_im <= 9e+46) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.5e+46) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.6e+76) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.7e+117) tmp = x_46_im / y_46_im; elseif (x_46_im <= 3.8e+117) tmp = t_0; elseif (x_46_im <= 1.75e+134) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6.4e+136) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.8e+170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6e+170) tmp = x_46_im / y_46_re; elseif (x_46_im <= 4e+185) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.8e+188) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6e+188) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.35e+244) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e+244) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.8e+262) tmp = x_46_im / y_46_im; elseif (x_46_im <= 3.1e+271) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.7e+276) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.26e+277) tmp = t_0; elseif ((x_46_im <= 2e+299) || ~((x_46_im <= 2.6e+299))) tmp = x_46_im / y_46_im; else tmp = x_46_re / y_46_re; 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$im) / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, If[LessEqual[x$46$im, -9.5e-255], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1e-271], t$95$2, If[LessEqual[x$46$im, 1.8e-265], N[(N[(x$46$re / y$46$im), $MachinePrecision] / N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision], If[LessEqual[x$46$im, 7.5e-258], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.6e-254], t$95$2, If[LessEqual[x$46$im, 9e-247], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 8.8e-243], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.8e-193], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.3e-182], t$95$1, If[LessEqual[x$46$im, 4.5e-170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.45e-163], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.52e-158], t$95$1, If[LessEqual[x$46$im, 7.5e-141], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 7.8e-141], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.7e-131], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.4e-131], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e-124], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.3e-119], t$95$1, If[LessEqual[x$46$im, 8.5e-114], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5e-102], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.1e-102], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2.1e-96], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.12e-94], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.2e-85], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4.1e-72], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 4.2e-72], t$95$0, If[LessEqual[x$46$im, 2e-63], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.2e-59], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.4e-56], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.95e-46], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2e-46], t$95$2, If[LessEqual[x$46$im, 3.5e-25], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.35e-13], t$95$1, If[LessEqual[x$46$im, 1.4e-13], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.2e+27], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 8.5e+34], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9e+46], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.5e+46], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.6e+76], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.7e+117], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 3.8e+117], t$95$0, If[LessEqual[x$46$im, 1.75e+134], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6.4e+136], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6e+170], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4e+185], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+188], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6e+188], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e+244], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+244], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.8e+262], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 3.1e+271], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.7e+276], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.26e+277], t$95$0, If[Or[LessEqual[x$46$im, 2e+299], N[Not[LessEqual[x$46$im, 2.6e+299]], $MachinePrecision]], N[(x$46$im / y$46$im), $MachinePrecision], N[(x$46$re / y$46$re), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x.im}{y.re}\\
t_1 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
t_2 := \frac{x.re \cdot \frac{y.re}{y.im}}{y.im}\\
\mathbf{if}\;x.im \leq -9.5 \cdot 10^{-255}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 10^{-271}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x.im \leq 1.8 \cdot 10^{-265}:\\
\;\;\;\;\frac{\frac{x.re}{y.im}}{\frac{y.im}{y.re}}\\
\mathbf{elif}\;x.im \leq 7.5 \cdot 10^{-258}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.6 \cdot 10^{-254}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x.im \leq 9 \cdot 10^{-247}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 8.8 \cdot 10^{-243}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.8 \cdot 10^{-193}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 2.3 \cdot 10^{-182}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 4.5 \cdot 10^{-170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 2.45 \cdot 10^{-163}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.52 \cdot 10^{-158}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 7.5 \cdot 10^{-141}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 7.8 \cdot 10^{-141}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 2.7 \cdot 10^{-131}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.4 \cdot 10^{-131}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-124}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 2.3 \cdot 10^{-119}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 8.5 \cdot 10^{-114}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5 \cdot 10^{-102}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.1 \cdot 10^{-102}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2.1 \cdot 10^{-96}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.12 \cdot 10^{-94}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.2 \cdot 10^{-85}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 4.1 \cdot 10^{-72}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 4.2 \cdot 10^{-72}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 2 \cdot 10^{-63}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.2 \cdot 10^{-59}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.4 \cdot 10^{-56}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.95 \cdot 10^{-46}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2 \cdot 10^{-46}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x.im \leq 3.5 \cdot 10^{-25}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{-13}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-13}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 9.2 \cdot 10^{+27}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 8.5 \cdot 10^{+34}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 9 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.6 \cdot 10^{+76}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.7 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 3.8 \cdot 10^{+117}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 1.75 \cdot 10^{+134}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6.4 \cdot 10^{+136}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 4 \cdot 10^{+185}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.8 \cdot 10^{+262}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 3.1 \cdot 10^{+271}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{+276}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.26 \cdot 10^{+277}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 2 \cdot 10^{+299} \lor \neg \left(x.im \leq 2.6 \cdot 10^{+299}\right):\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\end{array}
\end{array}
if x.im < -9.5000000000000003e-255 or 1.8000000000000001e-265 < x.im < 7.4999999999999998e-258 or 3.59999999999999984e-254 < x.im < 9.0000000000000005e-247 or 8.7999999999999996e-243 < x.im < 1.7999999999999999e-193 or 2.2999999999999999e-182 < x.im < 4.50000000000000002e-170 or 1.52e-158 < x.im < 7.50000000000000046e-141 or 7.7999999999999994e-141 < x.im < 2.70000000000000021e-131 or 5.40000000000000042e-131 < x.im < 1.39999999999999999e-124 or 8.5000000000000006e-114 < x.im < 5.00000000000000026e-102 or 5.09999999999999999e-102 < x.im < 2.10000000000000001e-96 or 1.12e-94 < x.im < 1.2e-85 or 4.2e-72 < x.im < 2.00000000000000013e-63 or 1.20000000000000008e-59 < x.im < 5.3999999999999999e-56 or 1.4000000000000001e-13 < x.im < 9.2000000000000002e27 or 8.5000000000000003e34 < x.im < 9.00000000000000019e46 or 9.5000000000000008e46 < x.im < 1.59999999999999988e76 or 3.8000000000000002e117 < x.im < 1.75000000000000001e134 or 6.39999999999999976e136 < x.im < 5.8000000000000001e170 or 5.99999999999999994e170 < x.im < 3.9999999999999999e185 or 1.79999999999999996e262 < x.im < 3.1000000000000001e271 or 2.0000000000000001e299 < x.im < 2.6e299Initial program 59.9%
Taylor expanded in y.re around inf 64.5%
if -9.5000000000000003e-255 < x.im < 9.99999999999999963e-272 or 7.4999999999999998e-258 < x.im < 3.59999999999999984e-254 or 1.9500000000000001e-46 < x.im < 2.00000000000000005e-46Initial program 84.6%
Taylor expanded in y.im around inf 69.3%
associate-/l*73.1%
Simplified73.1%
Taylor expanded in x.im around 0 65.8%
associate-/l*66.1%
Simplified66.1%
*-un-lft-identity66.1%
unpow266.1%
times-frac66.0%
Applied egg-rr66.0%
*-commutative66.0%
associate-*l/66.1%
*-un-lft-identity66.1%
associate-*l/73.1%
Applied egg-rr73.1%
if 9.99999999999999963e-272 < x.im < 1.8000000000000001e-265Initial program 100.0%
Taylor expanded in y.im around inf 100.0%
associate-/l*99.2%
Simplified99.2%
Taylor expanded in x.im around 0 100.0%
associate-/l*99.2%
Simplified99.2%
*-un-lft-identity99.2%
unpow299.2%
times-frac100.0%
Applied egg-rr100.0%
associate-*r*99.2%
div-inv99.2%
clear-num99.2%
un-div-inv100.0%
Applied egg-rr100.0%
if 9.0000000000000005e-247 < x.im < 8.7999999999999996e-243 or 4.50000000000000002e-170 < x.im < 2.4500000000000001e-163 or 2.70000000000000021e-131 < x.im < 5.40000000000000042e-131 or 2.29999999999999993e-119 < x.im < 8.5000000000000006e-114 or 5.00000000000000026e-102 < x.im < 5.09999999999999999e-102 or 2.10000000000000001e-96 < x.im < 1.12e-94 or 1.2e-85 < x.im < 4.10000000000000003e-72 or 2.00000000000000013e-63 < x.im < 1.20000000000000008e-59 or 5.3999999999999999e-56 < x.im < 1.9500000000000001e-46 or 2.00000000000000005e-46 < x.im < 3.5000000000000002e-25 or 9.2000000000000002e27 < x.im < 8.5000000000000003e34 or 1.59999999999999988e76 < x.im < 3.6999999999999999e117 or 1.75000000000000001e134 < x.im < 6.39999999999999976e136 or 3.9999999999999999e185 < x.im < 5.7999999999999999e188 or 6.0000000000000001e188 < x.im < 1.34999999999999999e244 or 1.39999999999999995e244 < x.im < 1.79999999999999996e262 or 3.1000000000000001e271 < x.im < 1.69999999999999992e276 or 1.25999999999999995e277 < x.im < 2.0000000000000001e299 or 2.6e299 < x.im Initial program 52.8%
Taylor expanded in y.re around 0 98.3%
if 1.7999999999999999e-193 < x.im < 2.2999999999999999e-182 or 2.4500000000000001e-163 < x.im < 1.52e-158 or 1.39999999999999999e-124 < x.im < 2.29999999999999993e-119 or 3.5000000000000002e-25 < x.im < 1.35000000000000005e-13Initial program 84.2%
Taylor expanded in y.im around inf 83.9%
associate-/l*83.9%
Simplified83.9%
Taylor expanded in x.im around 0 68.2%
associate-/l*68.9%
Simplified68.9%
*-un-lft-identity68.9%
unpow268.9%
times-frac84.7%
Applied egg-rr84.7%
associate-*l/84.7%
*-un-lft-identity84.7%
Applied egg-rr84.7%
if 7.50000000000000046e-141 < x.im < 7.7999999999999994e-141 or 1.35000000000000005e-13 < x.im < 1.4000000000000001e-13 or 9.00000000000000019e46 < x.im < 9.5000000000000008e46 or 5.8000000000000001e170 < x.im < 5.99999999999999994e170 or 5.7999999999999999e188 < x.im < 6.0000000000000001e188 or 1.34999999999999999e244 < x.im < 1.39999999999999995e244Initial program 83.2%
*-un-lft-identity83.2%
add-sqr-sqrt83.2%
times-frac83.7%
hypot-define83.7%
fma-define83.7%
hypot-define83.7%
Applied egg-rr83.7%
Taylor expanded in y.im around -inf 4.7%
mul-1-neg4.7%
Simplified4.7%
Taylor expanded in y.re around -inf 7.4%
if 4.10000000000000003e-72 < x.im < 4.2e-72 or 3.6999999999999999e117 < x.im < 3.8000000000000002e117 or 1.69999999999999992e276 < x.im < 1.25999999999999995e277Initial program 49.6%
*-un-lft-identity49.6%
add-sqr-sqrt49.6%
times-frac49.2%
hypot-define49.2%
fma-define49.2%
hypot-define50.5%
Applied egg-rr50.5%
Taylor expanded in y.im around -inf 4.8%
mul-1-neg4.8%
Simplified4.8%
Taylor expanded in y.re around inf 8.0%
associate-*r/8.0%
mul-1-neg8.0%
Simplified8.0%
Final simplification68.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (+ x.re (* x.im (/ y.im y.re))) y.re))
(t_1 (* x.re (/ y.re y.im)))
(t_2 (/ (+ x.im t_1) y.im))
(t_3 (* x.re (/ (/ y.re y.im) y.im)))
(t_4 (/ (+ x.re (* y.im (/ x.im y.re))) y.re))
(t_5 (/ (+ x.im (/ (* x.re y.re) y.im)) y.im))
(t_6 (/ t_1 y.im)))
(if (<= y.re -7.2e-51)
t_4
(if (<= y.re -4.7e-76)
t_2
(if (<= y.re -6.2e-80)
(/ x.re y.re)
(if (<= y.re -6e-81)
(/ 1.0 (/ y.im (* y.re (/ x.re y.im))))
(if (<= y.re -4.5e-81)
(/ x.re y.re)
(if (<= y.re -1.7e-97)
(/ x.im y.im)
(if (<= y.re -1.7e-102)
(/ (* x.im y.im) (+ (* y.re y.re) (* y.im y.im)))
(if (<= y.re -1.6e-105)
(/ (+ x.re (/ x.im (/ y.re y.im))) y.re)
(if (<= y.re -1.55e-170)
t_2
(if (<= y.re -1.5e-170)
(/ x.re y.re)
(if (<= y.re -7e-194)
t_2
(if (<= y.re -1.45e-198)
t_0
(if (<= y.re -2e-286)
t_2
(if (<= y.re 2.25e-263)
t_5
(if (<= y.re 2.5e-263)
t_0
(if (<= y.re 2.1e-262)
t_3
(if (<= y.re 1.3e-210)
t_2
(if (<= y.re 2.55e-208)
(/ x.re y.re)
(if (<= y.re 7e-207)
t_3
(if (<= y.re 4.1e-165)
t_5
(if (<= y.re 8.4e-150)
t_4
(if (<= y.re 8.5e-123)
t_2
(if (<= y.re 9e-123)
(/ x.re y.re)
(if (<= y.re 3.05e-102)
t_2
(if (<= y.re 1.15e-98)
(/ x.re y.re)
(if (<= y.re 2e-85)
(/ x.im y.im)
(if (<= y.re 5.5e-82)
(/ x.re y.re)
(if (<= y.re 2.2e-53)
t_6
(if (<=
y.re
1.25e-37)
(/ x.re y.re)
(if (<=
y.re
1.8e-24)
(/ x.im y.im)
(if (<=
y.re
98000000.0)
(/ x.re y.re)
(if (<=
y.re
6e+19)
(/
x.im
y.im)
(if (<=
y.re
6.2e+36)
t_0
(if (<=
y.re
1.22e+39)
(/
x.im
y.im)
(if (<=
y.re
1.2e+57)
t_0
(if (<=
y.re
1.25e+57)
(/
x.im
y.im)
(if (<=
y.re
1.6e+78)
t_0
(if (<=
y.re
1.62e+78)
(/
x.im
y.im)
(if (<=
y.re
1.65e+100)
t_4
(if (<=
y.re
5.8e+101)
(/
x.im
y.im)
(if (<=
y.re
3.5e+117)
(/
x.re
y.re)
(if (<=
y.re
3.6e+117)
t_6
(if (<=
y.re
2e+136)
t_0
(if (<=
y.re
2.02e+136)
t_6
(if (<=
y.re
2.1e+163)
(/
x.re
y.re)
(if (<=
y.re
2.15e+163)
(/
x.im
y.im)
(if (<=
y.re
2.7e+171)
(/
x.re
y.re)
(if (<=
y.re
2.8e+171)
t_2
(if (<=
y.re
2.2e+198)
(/
x.re
y.re)
(if (<=
y.re
2.3e+198)
(/
x.im
y.im)
(if (<=
y.re
2.9e+207)
t_4
(if (<=
y.re
3e+207)
t_2
(if (<=
y.re
2.35e+224)
(/
x.re
y.re)
(if (<=
y.re
2.4e+224)
(/
x.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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_1 = x_46_re * (y_46_re / y_46_im);
double t_2 = (x_46_im + t_1) / y_46_im;
double t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_4 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_6 = t_1 / y_46_im;
double tmp;
if (y_46_re <= -7.2e-51) {
tmp = t_4;
} else if (y_46_re <= -4.7e-76) {
tmp = t_2;
} else if (y_46_re <= -6.2e-80) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -6e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -4.5e-81) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -1.7e-97) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.7e-102) {
tmp = (x_46_im * y_46_im) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
} else if (y_46_re <= -1.6e-105) {
tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
} else if (y_46_re <= -1.55e-170) {
tmp = t_2;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_2;
} else if (y_46_re <= -1.45e-198) {
tmp = t_0;
} else if (y_46_re <= -2e-286) {
tmp = t_2;
} else if (y_46_re <= 2.25e-263) {
tmp = t_5;
} else if (y_46_re <= 2.5e-263) {
tmp = t_0;
} else if (y_46_re <= 2.1e-262) {
tmp = t_3;
} else if (y_46_re <= 1.3e-210) {
tmp = t_2;
} else if (y_46_re <= 2.55e-208) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_3;
} else if (y_46_re <= 4.1e-165) {
tmp = t_5;
} else if (y_46_re <= 8.4e-150) {
tmp = t_4;
} else if (y_46_re <= 8.5e-123) {
tmp = t_2;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_2;
} else if (y_46_re <= 1.15e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2e-85) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e-82) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.2e-53) {
tmp = t_6;
} else if (y_46_re <= 1.25e-37) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 1.8e-24) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 98000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 6e+19) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 6.2e+36) {
tmp = t_0;
} else if (y_46_re <= 1.22e+39) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_0;
} else if (y_46_re <= 1.25e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.6e+78) {
tmp = t_0;
} else if (y_46_re <= 1.62e+78) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.65e+100) {
tmp = t_4;
} else if (y_46_re <= 5.8e+101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_6;
} else if (y_46_re <= 2e+136) {
tmp = t_0;
} else if (y_46_re <= 2.02e+136) {
tmp = t_6;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_2;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = t_4;
} else if (y_46_re <= 3e+207) {
tmp = t_2;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_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) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: tmp
t_0 = (x_46re + (x_46im * (y_46im / y_46re))) / y_46re
t_1 = x_46re * (y_46re / y_46im)
t_2 = (x_46im + t_1) / y_46im
t_3 = x_46re * ((y_46re / y_46im) / y_46im)
t_4 = (x_46re + (y_46im * (x_46im / y_46re))) / y_46re
t_5 = (x_46im + ((x_46re * y_46re) / y_46im)) / y_46im
t_6 = t_1 / y_46im
if (y_46re <= (-7.2d-51)) then
tmp = t_4
else if (y_46re <= (-4.7d-76)) then
tmp = t_2
else if (y_46re <= (-6.2d-80)) then
tmp = x_46re / y_46re
else if (y_46re <= (-6d-81)) then
tmp = 1.0d0 / (y_46im / (y_46re * (x_46re / y_46im)))
else if (y_46re <= (-4.5d-81)) then
tmp = x_46re / y_46re
else if (y_46re <= (-1.7d-97)) then
tmp = x_46im / y_46im
else if (y_46re <= (-1.7d-102)) then
tmp = (x_46im * y_46im) / ((y_46re * y_46re) + (y_46im * y_46im))
else if (y_46re <= (-1.6d-105)) then
tmp = (x_46re + (x_46im / (y_46re / y_46im))) / y_46re
else if (y_46re <= (-1.55d-170)) then
tmp = t_2
else if (y_46re <= (-1.5d-170)) then
tmp = x_46re / y_46re
else if (y_46re <= (-7d-194)) then
tmp = t_2
else if (y_46re <= (-1.45d-198)) then
tmp = t_0
else if (y_46re <= (-2d-286)) then
tmp = t_2
else if (y_46re <= 2.25d-263) then
tmp = t_5
else if (y_46re <= 2.5d-263) then
tmp = t_0
else if (y_46re <= 2.1d-262) then
tmp = t_3
else if (y_46re <= 1.3d-210) then
tmp = t_2
else if (y_46re <= 2.55d-208) then
tmp = x_46re / y_46re
else if (y_46re <= 7d-207) then
tmp = t_3
else if (y_46re <= 4.1d-165) then
tmp = t_5
else if (y_46re <= 8.4d-150) then
tmp = t_4
else if (y_46re <= 8.5d-123) then
tmp = t_2
else if (y_46re <= 9d-123) then
tmp = x_46re / y_46re
else if (y_46re <= 3.05d-102) then
tmp = t_2
else if (y_46re <= 1.15d-98) then
tmp = x_46re / y_46re
else if (y_46re <= 2d-85) then
tmp = x_46im / y_46im
else if (y_46re <= 5.5d-82) then
tmp = x_46re / y_46re
else if (y_46re <= 2.2d-53) then
tmp = t_6
else if (y_46re <= 1.25d-37) then
tmp = x_46re / y_46re
else if (y_46re <= 1.8d-24) then
tmp = x_46im / y_46im
else if (y_46re <= 98000000.0d0) then
tmp = x_46re / y_46re
else if (y_46re <= 6d+19) then
tmp = x_46im / y_46im
else if (y_46re <= 6.2d+36) then
tmp = t_0
else if (y_46re <= 1.22d+39) then
tmp = x_46im / y_46im
else if (y_46re <= 1.2d+57) then
tmp = t_0
else if (y_46re <= 1.25d+57) then
tmp = x_46im / y_46im
else if (y_46re <= 1.6d+78) then
tmp = t_0
else if (y_46re <= 1.62d+78) then
tmp = x_46im / y_46im
else if (y_46re <= 1.65d+100) then
tmp = t_4
else if (y_46re <= 5.8d+101) then
tmp = x_46im / y_46im
else if (y_46re <= 3.5d+117) then
tmp = x_46re / y_46re
else if (y_46re <= 3.6d+117) then
tmp = t_6
else if (y_46re <= 2d+136) then
tmp = t_0
else if (y_46re <= 2.02d+136) then
tmp = t_6
else if (y_46re <= 2.1d+163) then
tmp = x_46re / y_46re
else if (y_46re <= 2.15d+163) then
tmp = x_46im / y_46im
else if (y_46re <= 2.7d+171) then
tmp = x_46re / y_46re
else if (y_46re <= 2.8d+171) then
tmp = t_2
else if (y_46re <= 2.2d+198) then
tmp = x_46re / y_46re
else if (y_46re <= 2.3d+198) then
tmp = x_46im / y_46im
else if (y_46re <= 2.9d+207) then
tmp = t_4
else if (y_46re <= 3d+207) then
tmp = t_2
else if (y_46re <= 2.35d+224) then
tmp = x_46re / y_46re
else if (y_46re <= 2.4d+224) then
tmp = x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_1 = x_46_re * (y_46_re / y_46_im);
double t_2 = (x_46_im + t_1) / y_46_im;
double t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_4 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_6 = t_1 / y_46_im;
double tmp;
if (y_46_re <= -7.2e-51) {
tmp = t_4;
} else if (y_46_re <= -4.7e-76) {
tmp = t_2;
} else if (y_46_re <= -6.2e-80) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -6e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -4.5e-81) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -1.7e-97) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.7e-102) {
tmp = (x_46_im * y_46_im) / ((y_46_re * y_46_re) + (y_46_im * y_46_im));
} else if (y_46_re <= -1.6e-105) {
tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
} else if (y_46_re <= -1.55e-170) {
tmp = t_2;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_2;
} else if (y_46_re <= -1.45e-198) {
tmp = t_0;
} else if (y_46_re <= -2e-286) {
tmp = t_2;
} else if (y_46_re <= 2.25e-263) {
tmp = t_5;
} else if (y_46_re <= 2.5e-263) {
tmp = t_0;
} else if (y_46_re <= 2.1e-262) {
tmp = t_3;
} else if (y_46_re <= 1.3e-210) {
tmp = t_2;
} else if (y_46_re <= 2.55e-208) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_3;
} else if (y_46_re <= 4.1e-165) {
tmp = t_5;
} else if (y_46_re <= 8.4e-150) {
tmp = t_4;
} else if (y_46_re <= 8.5e-123) {
tmp = t_2;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_2;
} else if (y_46_re <= 1.15e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2e-85) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e-82) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.2e-53) {
tmp = t_6;
} else if (y_46_re <= 1.25e-37) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 1.8e-24) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 98000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 6e+19) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 6.2e+36) {
tmp = t_0;
} else if (y_46_re <= 1.22e+39) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_0;
} else if (y_46_re <= 1.25e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.6e+78) {
tmp = t_0;
} else if (y_46_re <= 1.62e+78) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.65e+100) {
tmp = t_4;
} else if (y_46_re <= 5.8e+101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_6;
} else if (y_46_re <= 2e+136) {
tmp = t_0;
} else if (y_46_re <= 2.02e+136) {
tmp = t_6;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_2;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = t_4;
} else if (y_46_re <= 3e+207) {
tmp = t_2;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re t_1 = x_46_re * (y_46_re / y_46_im) t_2 = (x_46_im + t_1) / y_46_im t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im) t_4 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im t_6 = t_1 / y_46_im tmp = 0 if y_46_re <= -7.2e-51: tmp = t_4 elif y_46_re <= -4.7e-76: tmp = t_2 elif y_46_re <= -6.2e-80: tmp = x_46_re / y_46_re elif y_46_re <= -6e-81: tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))) elif y_46_re <= -4.5e-81: tmp = x_46_re / y_46_re elif y_46_re <= -1.7e-97: tmp = x_46_im / y_46_im elif y_46_re <= -1.7e-102: tmp = (x_46_im * y_46_im) / ((y_46_re * y_46_re) + (y_46_im * y_46_im)) elif y_46_re <= -1.6e-105: tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re elif y_46_re <= -1.55e-170: tmp = t_2 elif y_46_re <= -1.5e-170: tmp = x_46_re / y_46_re elif y_46_re <= -7e-194: tmp = t_2 elif y_46_re <= -1.45e-198: tmp = t_0 elif y_46_re <= -2e-286: tmp = t_2 elif y_46_re <= 2.25e-263: tmp = t_5 elif y_46_re <= 2.5e-263: tmp = t_0 elif y_46_re <= 2.1e-262: tmp = t_3 elif y_46_re <= 1.3e-210: tmp = t_2 elif y_46_re <= 2.55e-208: tmp = x_46_re / y_46_re elif y_46_re <= 7e-207: tmp = t_3 elif y_46_re <= 4.1e-165: tmp = t_5 elif y_46_re <= 8.4e-150: tmp = t_4 elif y_46_re <= 8.5e-123: tmp = t_2 elif y_46_re <= 9e-123: tmp = x_46_re / y_46_re elif y_46_re <= 3.05e-102: tmp = t_2 elif y_46_re <= 1.15e-98: tmp = x_46_re / y_46_re elif y_46_re <= 2e-85: tmp = x_46_im / y_46_im elif y_46_re <= 5.5e-82: tmp = x_46_re / y_46_re elif y_46_re <= 2.2e-53: tmp = t_6 elif y_46_re <= 1.25e-37: tmp = x_46_re / y_46_re elif y_46_re <= 1.8e-24: tmp = x_46_im / y_46_im elif y_46_re <= 98000000.0: tmp = x_46_re / y_46_re elif y_46_re <= 6e+19: tmp = x_46_im / y_46_im elif y_46_re <= 6.2e+36: tmp = t_0 elif y_46_re <= 1.22e+39: tmp = x_46_im / y_46_im elif y_46_re <= 1.2e+57: tmp = t_0 elif y_46_re <= 1.25e+57: tmp = x_46_im / y_46_im elif y_46_re <= 1.6e+78: tmp = t_0 elif y_46_re <= 1.62e+78: tmp = x_46_im / y_46_im elif y_46_re <= 1.65e+100: tmp = t_4 elif y_46_re <= 5.8e+101: tmp = x_46_im / y_46_im elif y_46_re <= 3.5e+117: tmp = x_46_re / y_46_re elif y_46_re <= 3.6e+117: tmp = t_6 elif y_46_re <= 2e+136: tmp = t_0 elif y_46_re <= 2.02e+136: tmp = t_6 elif y_46_re <= 2.1e+163: tmp = x_46_re / y_46_re elif y_46_re <= 2.15e+163: tmp = x_46_im / y_46_im elif y_46_re <= 2.7e+171: tmp = x_46_re / y_46_re elif y_46_re <= 2.8e+171: tmp = t_2 elif y_46_re <= 2.2e+198: tmp = x_46_re / y_46_re elif y_46_re <= 2.3e+198: tmp = x_46_im / y_46_im elif y_46_re <= 2.9e+207: tmp = t_4 elif y_46_re <= 3e+207: tmp = t_2 elif y_46_re <= 2.35e+224: tmp = x_46_re / y_46_re elif y_46_re <= 2.4e+224: tmp = x_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 + Float64(x_46_im * Float64(y_46_im / y_46_re))) / y_46_re) t_1 = Float64(x_46_re * Float64(y_46_re / y_46_im)) t_2 = Float64(Float64(x_46_im + t_1) / y_46_im) t_3 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) t_4 = Float64(Float64(x_46_re + Float64(y_46_im * Float64(x_46_im / y_46_re))) / y_46_re) t_5 = Float64(Float64(x_46_im + Float64(Float64(x_46_re * y_46_re) / y_46_im)) / y_46_im) t_6 = Float64(t_1 / y_46_im) tmp = 0.0 if (y_46_re <= -7.2e-51) tmp = t_4; elseif (y_46_re <= -4.7e-76) tmp = t_2; elseif (y_46_re <= -6.2e-80) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -6e-81) tmp = Float64(1.0 / Float64(y_46_im / Float64(y_46_re * Float64(x_46_re / y_46_im)))); elseif (y_46_re <= -4.5e-81) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -1.7e-97) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= -1.7e-102) tmp = Float64(Float64(x_46_im * y_46_im) / Float64(Float64(y_46_re * y_46_re) + Float64(y_46_im * y_46_im))); elseif (y_46_re <= -1.6e-105) tmp = Float64(Float64(x_46_re + Float64(x_46_im / Float64(y_46_re / y_46_im))) / y_46_re); elseif (y_46_re <= -1.55e-170) tmp = t_2; elseif (y_46_re <= -1.5e-170) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -7e-194) tmp = t_2; elseif (y_46_re <= -1.45e-198) tmp = t_0; elseif (y_46_re <= -2e-286) tmp = t_2; elseif (y_46_re <= 2.25e-263) tmp = t_5; elseif (y_46_re <= 2.5e-263) tmp = t_0; elseif (y_46_re <= 2.1e-262) tmp = t_3; elseif (y_46_re <= 1.3e-210) tmp = t_2; elseif (y_46_re <= 2.55e-208) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 7e-207) tmp = t_3; elseif (y_46_re <= 4.1e-165) tmp = t_5; elseif (y_46_re <= 8.4e-150) tmp = t_4; elseif (y_46_re <= 8.5e-123) tmp = t_2; elseif (y_46_re <= 9e-123) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.05e-102) tmp = t_2; elseif (y_46_re <= 1.15e-98) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2e-85) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 5.5e-82) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.2e-53) tmp = t_6; elseif (y_46_re <= 1.25e-37) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 1.8e-24) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 98000000.0) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 6e+19) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 6.2e+36) tmp = t_0; elseif (y_46_re <= 1.22e+39) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.2e+57) tmp = t_0; elseif (y_46_re <= 1.25e+57) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.6e+78) tmp = t_0; elseif (y_46_re <= 1.62e+78) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.65e+100) tmp = t_4; elseif (y_46_re <= 5.8e+101) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.5e+117) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.6e+117) tmp = t_6; elseif (y_46_re <= 2e+136) tmp = t_0; elseif (y_46_re <= 2.02e+136) tmp = t_6; elseif (y_46_re <= 2.1e+163) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.15e+163) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.7e+171) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.8e+171) tmp = t_2; elseif (y_46_re <= 2.2e+198) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.3e+198) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.9e+207) tmp = t_4; elseif (y_46_re <= 3e+207) tmp = t_2; elseif (y_46_re <= 2.35e+224) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.4e+224) tmp = Float64(x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re; t_1 = x_46_re * (y_46_re / y_46_im); t_2 = (x_46_im + t_1) / y_46_im; t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im); t_4 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re; t_5 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im; t_6 = t_1 / y_46_im; tmp = 0.0; if (y_46_re <= -7.2e-51) tmp = t_4; elseif (y_46_re <= -4.7e-76) tmp = t_2; elseif (y_46_re <= -6.2e-80) tmp = x_46_re / y_46_re; elseif (y_46_re <= -6e-81) tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))); elseif (y_46_re <= -4.5e-81) tmp = x_46_re / y_46_re; elseif (y_46_re <= -1.7e-97) tmp = x_46_im / y_46_im; elseif (y_46_re <= -1.7e-102) tmp = (x_46_im * y_46_im) / ((y_46_re * y_46_re) + (y_46_im * y_46_im)); elseif (y_46_re <= -1.6e-105) tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re; elseif (y_46_re <= -1.55e-170) tmp = t_2; elseif (y_46_re <= -1.5e-170) tmp = x_46_re / y_46_re; elseif (y_46_re <= -7e-194) tmp = t_2; elseif (y_46_re <= -1.45e-198) tmp = t_0; elseif (y_46_re <= -2e-286) tmp = t_2; elseif (y_46_re <= 2.25e-263) tmp = t_5; elseif (y_46_re <= 2.5e-263) tmp = t_0; elseif (y_46_re <= 2.1e-262) tmp = t_3; elseif (y_46_re <= 1.3e-210) tmp = t_2; elseif (y_46_re <= 2.55e-208) tmp = x_46_re / y_46_re; elseif (y_46_re <= 7e-207) tmp = t_3; elseif (y_46_re <= 4.1e-165) tmp = t_5; elseif (y_46_re <= 8.4e-150) tmp = t_4; elseif (y_46_re <= 8.5e-123) tmp = t_2; elseif (y_46_re <= 9e-123) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.05e-102) tmp = t_2; elseif (y_46_re <= 1.15e-98) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2e-85) tmp = x_46_im / y_46_im; elseif (y_46_re <= 5.5e-82) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.2e-53) tmp = t_6; elseif (y_46_re <= 1.25e-37) tmp = x_46_re / y_46_re; elseif (y_46_re <= 1.8e-24) tmp = x_46_im / y_46_im; elseif (y_46_re <= 98000000.0) tmp = x_46_re / y_46_re; elseif (y_46_re <= 6e+19) tmp = x_46_im / y_46_im; elseif (y_46_re <= 6.2e+36) tmp = t_0; elseif (y_46_re <= 1.22e+39) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.2e+57) tmp = t_0; elseif (y_46_re <= 1.25e+57) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.6e+78) tmp = t_0; elseif (y_46_re <= 1.62e+78) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.65e+100) tmp = t_4; elseif (y_46_re <= 5.8e+101) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.5e+117) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.6e+117) tmp = t_6; elseif (y_46_re <= 2e+136) tmp = t_0; elseif (y_46_re <= 2.02e+136) tmp = t_6; elseif (y_46_re <= 2.1e+163) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.15e+163) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.7e+171) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.8e+171) tmp = t_2; elseif (y_46_re <= 2.2e+198) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.3e+198) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.9e+207) tmp = t_4; elseif (y_46_re <= 3e+207) tmp = t_2; elseif (y_46_re <= 2.35e+224) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.4e+224) tmp = x_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[(N[(x$46$re + N[(x$46$im * N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$46$im + t$95$1), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$3 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x$46$re + N[(y$46$im * N[(x$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x$46$im + N[(N[(x$46$re * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$6 = N[(t$95$1 / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$re, -7.2e-51], t$95$4, If[LessEqual[y$46$re, -4.7e-76], t$95$2, If[LessEqual[y$46$re, -6.2e-80], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -6e-81], N[(1.0 / N[(y$46$im / N[(y$46$re * N[(x$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -4.5e-81], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -1.7e-97], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, -1.7e-102], N[(N[(x$46$im * y$46$im), $MachinePrecision] / N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -1.6e-105], N[(N[(x$46$re + N[(x$46$im / N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -1.55e-170], t$95$2, If[LessEqual[y$46$re, -1.5e-170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -7e-194], t$95$2, If[LessEqual[y$46$re, -1.45e-198], t$95$0, If[LessEqual[y$46$re, -2e-286], t$95$2, If[LessEqual[y$46$re, 2.25e-263], t$95$5, If[LessEqual[y$46$re, 2.5e-263], t$95$0, If[LessEqual[y$46$re, 2.1e-262], t$95$3, If[LessEqual[y$46$re, 1.3e-210], t$95$2, If[LessEqual[y$46$re, 2.55e-208], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 7e-207], t$95$3, If[LessEqual[y$46$re, 4.1e-165], t$95$5, If[LessEqual[y$46$re, 8.4e-150], t$95$4, If[LessEqual[y$46$re, 8.5e-123], t$95$2, If[LessEqual[y$46$re, 9e-123], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.05e-102], t$95$2, If[LessEqual[y$46$re, 1.15e-98], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2e-85], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 5.5e-82], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.2e-53], t$95$6, If[LessEqual[y$46$re, 1.25e-37], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 1.8e-24], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 98000000.0], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 6e+19], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 6.2e+36], t$95$0, If[LessEqual[y$46$re, 1.22e+39], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.2e+57], t$95$0, If[LessEqual[y$46$re, 1.25e+57], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.6e+78], t$95$0, If[LessEqual[y$46$re, 1.62e+78], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.65e+100], t$95$4, If[LessEqual[y$46$re, 5.8e+101], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.5e+117], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.6e+117], t$95$6, If[LessEqual[y$46$re, 2e+136], t$95$0, If[LessEqual[y$46$re, 2.02e+136], t$95$6, If[LessEqual[y$46$re, 2.1e+163], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.15e+163], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.7e+171], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.8e+171], t$95$2, If[LessEqual[y$46$re, 2.2e+198], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.3e+198], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.9e+207], t$95$4, If[LessEqual[y$46$re, 3e+207], t$95$2, If[LessEqual[y$46$re, 2.35e+224], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.4e+224], N[(x$46$im / y$46$im), $MachinePrecision], t$95$0]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x.re + x.im \cdot \frac{y.im}{y.re}}{y.re}\\
t_1 := x.re \cdot \frac{y.re}{y.im}\\
t_2 := \frac{x.im + t\_1}{y.im}\\
t_3 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
t_4 := \frac{x.re + y.im \cdot \frac{x.im}{y.re}}{y.re}\\
t_5 := \frac{x.im + \frac{x.re \cdot y.re}{y.im}}{y.im}\\
t_6 := \frac{t\_1}{y.im}\\
\mathbf{if}\;y.re \leq -7.2 \cdot 10^{-51}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq -4.7 \cdot 10^{-76}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq -6.2 \cdot 10^{-80}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -6 \cdot 10^{-81}:\\
\;\;\;\;\frac{1}{\frac{y.im}{y.re \cdot \frac{x.re}{y.im}}}\\
\mathbf{elif}\;y.re \leq -4.5 \cdot 10^{-81}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -1.7 \cdot 10^{-97}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq -1.7 \cdot 10^{-102}:\\
\;\;\;\;\frac{x.im \cdot y.im}{y.re \cdot y.re + y.im \cdot y.im}\\
\mathbf{elif}\;y.re \leq -1.6 \cdot 10^{-105}:\\
\;\;\;\;\frac{x.re + \frac{x.im}{\frac{y.re}{y.im}}}{y.re}\\
\mathbf{elif}\;y.re \leq -1.55 \cdot 10^{-170}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq -1.5 \cdot 10^{-170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -7 \cdot 10^{-194}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq -1.45 \cdot 10^{-198}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq -2 \cdot 10^{-286}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 2.25 \cdot 10^{-263}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 2.5 \cdot 10^{-263}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{-262}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 1.3 \cdot 10^{-210}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 2.55 \cdot 10^{-208}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 7 \cdot 10^{-207}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 4.1 \cdot 10^{-165}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y.re \leq 8.4 \cdot 10^{-150}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 8.5 \cdot 10^{-123}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 9 \cdot 10^{-123}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.05 \cdot 10^{-102}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 1.15 \cdot 10^{-98}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2 \cdot 10^{-85}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 5.5 \cdot 10^{-82}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.2 \cdot 10^{-53}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 1.25 \cdot 10^{-37}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 1.8 \cdot 10^{-24}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 98000000:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 6 \cdot 10^{+19}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 6.2 \cdot 10^{+36}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 1.22 \cdot 10^{+39}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.2 \cdot 10^{+57}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 1.25 \cdot 10^{+57}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.6 \cdot 10^{+78}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 1.62 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.65 \cdot 10^{+100}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 5.8 \cdot 10^{+101}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.5 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.6 \cdot 10^{+117}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2 \cdot 10^{+136}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 2.02 \cdot 10^{+136}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.15 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.7 \cdot 10^{+171}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.8 \cdot 10^{+171}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 2.2 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.3 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.9 \cdot 10^{+207}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 3 \cdot 10^{+207}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 2.35 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.4 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.re < -7.2000000000000001e-51 or 4.1000000000000002e-165 < y.re < 8.4000000000000004e-150 or 1.6199999999999999e78 < y.re < 1.6500000000000001e100 or 2.3000000000000001e198 < y.re < 2.89999999999999997e207Initial program 54.3%
Taylor expanded in y.re around inf 82.2%
associate-/l*84.5%
Simplified84.5%
clear-num84.5%
un-div-inv84.6%
Applied egg-rr84.6%
associate-/r/85.6%
Applied egg-rr85.6%
if -7.2000000000000001e-51 < y.re < -4.7000000000000002e-76 or -1.59999999999999991e-105 < y.re < -1.54999999999999993e-170 or -1.50000000000000007e-170 < y.re < -7.0000000000000006e-194 or -1.45e-198 < y.re < -2.0000000000000001e-286 or 2.1e-262 < y.re < 1.2999999999999999e-210 or 8.4000000000000004e-150 < y.re < 8.4999999999999995e-123 or 8.99999999999999986e-123 < y.re < 3.0499999999999999e-102 or 2.6999999999999998e171 < y.re < 2.80000000000000004e171 or 2.89999999999999997e207 < y.re < 2.99999999999999983e207Initial program 65.1%
Taylor expanded in y.im around inf 98.5%
associate-/l*98.6%
Simplified98.6%
if -4.7000000000000002e-76 < y.re < -6.20000000000000032e-80 or -5.9999999999999998e-81 < y.re < -4.5e-81 or -1.54999999999999993e-170 < y.re < -1.50000000000000007e-170 or 1.2999999999999999e-210 < y.re < 2.55e-208 or 8.4999999999999995e-123 < y.re < 8.99999999999999986e-123 or 3.0499999999999999e-102 < y.re < 1.15e-98 or 2e-85 < y.re < 5.4999999999999998e-82 or 2.20000000000000018e-53 < y.re < 1.2499999999999999e-37 or 1.8e-24 < y.re < 9.8e7 or 5.79999999999999974e101 < y.re < 3.49999999999999983e117 or 2.02000000000000002e136 < y.re < 2.1e163 or 2.1500000000000001e163 < y.re < 2.6999999999999998e171 or 2.80000000000000004e171 < y.re < 2.2e198 or 2.99999999999999983e207 < y.re < 2.3500000000000001e224Initial program 73.2%
Taylor expanded in y.re around inf 100.0%
if -6.20000000000000032e-80 < y.re < -5.9999999999999998e-81Initial program 98.4%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
clear-num100.0%
inv-pow100.0%
+-commutative100.0%
fma-define100.0%
Applied egg-rr100.0%
unpow-1100.0%
Simplified100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
associate-/l*100.0%
Simplified100.0%
if -4.5e-81 < y.re < -1.6999999999999999e-97 or 1.15e-98 < y.re < 2e-85 or 1.2499999999999999e-37 < y.re < 1.8e-24 or 9.8e7 < y.re < 6e19 or 6.1999999999999999e36 < y.re < 1.22e39 or 1.20000000000000002e57 < y.re < 1.24999999999999993e57 or 1.59999999999999997e78 < y.re < 1.6199999999999999e78 or 1.6500000000000001e100 < y.re < 5.79999999999999974e101 or 2.1e163 < y.re < 2.1500000000000001e163 or 2.2e198 < y.re < 2.3000000000000001e198 or 2.3500000000000001e224 < y.re < 2.40000000000000001e224Initial program 37.7%
Taylor expanded in y.re around 0 100.0%
if -1.6999999999999999e-97 < y.re < -1.70000000000000006e-102Initial program 100.0%
Taylor expanded in x.re around 0 100.0%
if -1.70000000000000006e-102 < y.re < -1.59999999999999991e-105Initial program 99.2%
Taylor expanded in y.re around inf 100.0%
associate-/l*99.2%
Simplified99.2%
clear-num99.2%
un-div-inv100.0%
Applied egg-rr100.0%
if -7.0000000000000006e-194 < y.re < -1.45e-198 or 2.2499999999999999e-263 < y.re < 2.50000000000000003e-263 or 6e19 < y.re < 6.1999999999999999e36 or 1.22e39 < y.re < 1.20000000000000002e57 or 1.24999999999999993e57 < y.re < 1.59999999999999997e78 or 3.60000000000000013e117 < y.re < 2.00000000000000012e136 or 2.40000000000000001e224 < y.re Initial program 55.2%
Taylor expanded in y.re around inf 92.2%
associate-/l*100.0%
Simplified100.0%
if -2.0000000000000001e-286 < y.re < 2.2499999999999999e-263 or 7.0000000000000003e-207 < y.re < 4.1000000000000002e-165Initial program 91.2%
Taylor expanded in y.im around inf 100.0%
if 2.50000000000000003e-263 < y.re < 2.1e-262 or 2.55e-208 < y.re < 7.0000000000000003e-207Initial program 99.2%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
Taylor expanded in x.im around 0 99.2%
associate-/l*100.0%
Simplified100.0%
*-un-lft-identity100.0%
unpow2100.0%
times-frac100.0%
Applied egg-rr100.0%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
if 5.4999999999999998e-82 < y.re < 2.20000000000000018e-53 or 3.49999999999999983e117 < y.re < 3.60000000000000013e117 or 2.00000000000000012e136 < y.re < 2.02000000000000002e136Initial program 50.9%
Taylor expanded in y.im around inf 51.4%
associate-/l*99.6%
Simplified99.6%
Taylor expanded in x.im around 0 50.9%
associate-/l*77.2%
Simplified77.2%
*-un-lft-identity77.2%
unpow277.2%
times-frac76.5%
Applied egg-rr76.5%
*-commutative76.5%
associate-*l/76.5%
*-un-lft-identity76.5%
associate-*l/99.6%
Applied egg-rr99.6%
Final simplification94.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (* x.re (/ (/ y.re y.im) y.im)))
(t_1 (/ (- x.im) y.re))
(t_2 (/ (* x.re (/ y.re y.im)) y.im)))
(if (<= x.im -4.1e-255)
(/ x.re y.re)
(if (<= x.im 1.9e-265)
t_2
(if (<= x.im 1.7e-257)
(/ x.re y.re)
(if (<= x.im 1.1e-254)
t_2
(if (<= x.im 9.4e-247)
(/ x.re y.re)
(if (<= x.im 8.8e-243)
(/ x.im y.im)
(if (<= x.im 1.8e-193)
(/ x.re y.re)
(if (<= x.im 1.85e-193)
t_0
(if (<= x.im 3e-172)
(/ x.re y.re)
(if (<= x.im 3.3e-166)
(/ x.im y.im)
(if (<= x.im 1.4e-158)
t_0
(if (<= x.im 7.5e-141)
(/ x.re y.re)
(if (<= x.im 7.8e-141)
(/ x.im y.re)
(if (<= x.im 2.7e-131)
(/ x.re y.re)
(if (<= x.im 3e-131)
(/ x.im y.im)
(if (<= x.im 1.45e-124)
(/ x.re y.re)
(if (<= x.im 5.5e-120)
t_0
(if (<= x.im 8.6e-114)
(/ x.im y.im)
(if (<= x.im 6.6e-106)
(/ x.re y.re)
(if (<= x.im 6.5e-102)
(/ x.im y.im)
(if (<= x.im 2.7e-95)
(/ x.re y.re)
(if (<= x.im 4.8e-95)
(/ x.im y.im)
(if (<= x.im 2e-85)
(/ x.re y.re)
(if (<= x.im 4.1e-72)
(/ x.im y.im)
(if (<= x.im 4.2e-72)
t_1
(if (<= x.im 8.2e-63)
(/ x.re y.re)
(if (<= x.im 1.35e-61)
(/ x.im y.im)
(if (<= x.im 5.4e-56)
(/ x.re y.re)
(if (<=
x.im
1.95e-46)
(/ x.im y.im)
(if (<=
x.im
2e-46)
t_2
(if (<=
x.im
3.4e-25)
(/ x.im y.im)
(if (<=
x.im
1.35e-13)
t_0
(if (<=
x.im
1.4e-13)
(/
x.im
y.re)
(if (<=
x.im
5e+25)
(/
x.re
y.re)
(if (<=
x.im
3.3e+35)
(/
x.im
y.im)
(if (<=
x.im
9e+46)
(/
x.re
y.re)
(if (<=
x.im
9.5e+46)
(/
x.im
y.re)
(if (<=
x.im
3.8e+78)
(/
x.re
y.re)
(if (<=
x.im
3.7e+117)
(/
x.im
y.im)
(if (<=
x.im
3.8e+117)
t_1
(if (<=
x.im
3.2e+132)
(/
x.re
y.re)
(if (<=
x.im
6.4e+136)
(/
x.im
y.im)
(if (<=
x.im
3.8e+170)
(/
x.re
y.re)
(if (<=
x.im
6e+170)
(/
x.im
y.re)
(if (<=
x.im
3.2e+185)
(/
x.re
y.re)
(if (<=
x.im
5.8e+188)
(/
x.im
y.im)
(if (<=
x.im
6e+188)
(/
x.im
y.re)
(if (<=
x.im
1.35e+244)
(/
x.im
y.im)
(if (<=
x.im
1.4e+244)
(/
x.im
y.re)
(if (<=
x.im
1.4e+263)
(/
x.im
y.im)
(if (<=
x.im
2.6e+271)
(/
x.re
y.re)
(if (<=
x.im
1.7e+276)
(/
x.im
y.im)
(if (<=
x.im
1.26e+277)
t_1
(if (and (not
(<=
x.im
2e+299))
(<=
x.im
1.2e+300))
(/
x.re
y.re)
(/
x.im
y.im)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
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_re / y_46_im) / y_46_im);
double t_1 = -x_46_im / y_46_re;
double t_2 = (x_46_re * (y_46_re / y_46_im)) / y_46_im;
double tmp;
if (x_46_im <= -4.1e-255) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.9e-265) {
tmp = t_2;
} else if (x_46_im <= 1.7e-257) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.1e-254) {
tmp = t_2;
} else if (x_46_im <= 9.4e-247) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.8e-243) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.8e-193) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.85e-193) {
tmp = t_0;
} else if (x_46_im <= 3e-172) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.3e-166) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e-158) {
tmp = t_0;
} else if (x_46_im <= 7.5e-141) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.8e-141) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.7e-131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3e-131) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-124) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.5e-120) {
tmp = t_0;
} else if (x_46_im <= 8.6e-114) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6.6e-106) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.5e-102) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.7e-95) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.8e-95) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2e-85) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.1e-72) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.2e-72) {
tmp = t_1;
} else if (x_46_im <= 8.2e-63) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.35e-61) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.4e-56) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.95e-46) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2e-46) {
tmp = t_2;
} else if (x_46_im <= 3.4e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.35e-13) {
tmp = t_0;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 5e+25) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.3e+35) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.8e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_1;
} else if (x_46_im <= 3.2e+132) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.4e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.2e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.4e+263) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.6e+271) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_1;
} else if (!(x_46_im <= 2e+299) && (x_46_im <= 1.2e+300)) {
tmp = x_46_re / y_46_re;
} else {
tmp = x_46_im / 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) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_0 = x_46re * ((y_46re / y_46im) / y_46im)
t_1 = -x_46im / y_46re
t_2 = (x_46re * (y_46re / y_46im)) / y_46im
if (x_46im <= (-4.1d-255)) then
tmp = x_46re / y_46re
else if (x_46im <= 1.9d-265) then
tmp = t_2
else if (x_46im <= 1.7d-257) then
tmp = x_46re / y_46re
else if (x_46im <= 1.1d-254) then
tmp = t_2
else if (x_46im <= 9.4d-247) then
tmp = x_46re / y_46re
else if (x_46im <= 8.8d-243) then
tmp = x_46im / y_46im
else if (x_46im <= 1.8d-193) then
tmp = x_46re / y_46re
else if (x_46im <= 1.85d-193) then
tmp = t_0
else if (x_46im <= 3d-172) then
tmp = x_46re / y_46re
else if (x_46im <= 3.3d-166) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d-158) then
tmp = t_0
else if (x_46im <= 7.5d-141) then
tmp = x_46re / y_46re
else if (x_46im <= 7.8d-141) then
tmp = x_46im / y_46re
else if (x_46im <= 2.7d-131) then
tmp = x_46re / y_46re
else if (x_46im <= 3d-131) then
tmp = x_46im / y_46im
else if (x_46im <= 1.45d-124) then
tmp = x_46re / y_46re
else if (x_46im <= 5.5d-120) then
tmp = t_0
else if (x_46im <= 8.6d-114) then
tmp = x_46im / y_46im
else if (x_46im <= 6.6d-106) then
tmp = x_46re / y_46re
else if (x_46im <= 6.5d-102) then
tmp = x_46im / y_46im
else if (x_46im <= 2.7d-95) then
tmp = x_46re / y_46re
else if (x_46im <= 4.8d-95) then
tmp = x_46im / y_46im
else if (x_46im <= 2d-85) then
tmp = x_46re / y_46re
else if (x_46im <= 4.1d-72) then
tmp = x_46im / y_46im
else if (x_46im <= 4.2d-72) then
tmp = t_1
else if (x_46im <= 8.2d-63) then
tmp = x_46re / y_46re
else if (x_46im <= 1.35d-61) then
tmp = x_46im / y_46im
else if (x_46im <= 5.4d-56) then
tmp = x_46re / y_46re
else if (x_46im <= 1.95d-46) then
tmp = x_46im / y_46im
else if (x_46im <= 2d-46) then
tmp = t_2
else if (x_46im <= 3.4d-25) then
tmp = x_46im / y_46im
else if (x_46im <= 1.35d-13) then
tmp = t_0
else if (x_46im <= 1.4d-13) then
tmp = x_46im / y_46re
else if (x_46im <= 5d+25) then
tmp = x_46re / y_46re
else if (x_46im <= 3.3d+35) then
tmp = x_46im / y_46im
else if (x_46im <= 9d+46) then
tmp = x_46re / y_46re
else if (x_46im <= 9.5d+46) then
tmp = x_46im / y_46re
else if (x_46im <= 3.8d+78) then
tmp = x_46re / y_46re
else if (x_46im <= 3.7d+117) then
tmp = x_46im / y_46im
else if (x_46im <= 3.8d+117) then
tmp = t_1
else if (x_46im <= 3.2d+132) then
tmp = x_46re / y_46re
else if (x_46im <= 6.4d+136) then
tmp = x_46im / y_46im
else if (x_46im <= 3.8d+170) then
tmp = x_46re / y_46re
else if (x_46im <= 6d+170) then
tmp = x_46im / y_46re
else if (x_46im <= 3.2d+185) then
tmp = x_46re / y_46re
else if (x_46im <= 5.8d+188) then
tmp = x_46im / y_46im
else if (x_46im <= 6d+188) then
tmp = x_46im / y_46re
else if (x_46im <= 1.35d+244) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d+244) then
tmp = x_46im / y_46re
else if (x_46im <= 1.4d+263) then
tmp = x_46im / y_46im
else if (x_46im <= 2.6d+271) then
tmp = x_46re / y_46re
else if (x_46im <= 1.7d+276) then
tmp = x_46im / y_46im
else if (x_46im <= 1.26d+277) then
tmp = t_1
else if ((.not. (x_46im <= 2d+299)) .and. (x_46im <= 1.2d+300)) then
tmp = x_46re / y_46re
else
tmp = x_46im / 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 t_0 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_1 = -x_46_im / y_46_re;
double t_2 = (x_46_re * (y_46_re / y_46_im)) / y_46_im;
double tmp;
if (x_46_im <= -4.1e-255) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.9e-265) {
tmp = t_2;
} else if (x_46_im <= 1.7e-257) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.1e-254) {
tmp = t_2;
} else if (x_46_im <= 9.4e-247) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.8e-243) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.8e-193) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.85e-193) {
tmp = t_0;
} else if (x_46_im <= 3e-172) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.3e-166) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e-158) {
tmp = t_0;
} else if (x_46_im <= 7.5e-141) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.8e-141) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.7e-131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3e-131) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-124) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.5e-120) {
tmp = t_0;
} else if (x_46_im <= 8.6e-114) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6.6e-106) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.5e-102) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.7e-95) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.8e-95) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2e-85) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.1e-72) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.2e-72) {
tmp = t_1;
} else if (x_46_im <= 8.2e-63) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.35e-61) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.4e-56) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.95e-46) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2e-46) {
tmp = t_2;
} else if (x_46_im <= 3.4e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.35e-13) {
tmp = t_0;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 5e+25) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.3e+35) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.8e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_1;
} else if (x_46_im <= 3.2e+132) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.4e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.2e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.4e+263) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.6e+271) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_1;
} else if (!(x_46_im <= 2e+299) && (x_46_im <= 1.2e+300)) {
tmp = x_46_re / y_46_re;
} else {
tmp = x_46_im / y_46_im;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = x_46_re * ((y_46_re / y_46_im) / y_46_im) t_1 = -x_46_im / y_46_re t_2 = (x_46_re * (y_46_re / y_46_im)) / y_46_im tmp = 0 if x_46_im <= -4.1e-255: tmp = x_46_re / y_46_re elif x_46_im <= 1.9e-265: tmp = t_2 elif x_46_im <= 1.7e-257: tmp = x_46_re / y_46_re elif x_46_im <= 1.1e-254: tmp = t_2 elif x_46_im <= 9.4e-247: tmp = x_46_re / y_46_re elif x_46_im <= 8.8e-243: tmp = x_46_im / y_46_im elif x_46_im <= 1.8e-193: tmp = x_46_re / y_46_re elif x_46_im <= 1.85e-193: tmp = t_0 elif x_46_im <= 3e-172: tmp = x_46_re / y_46_re elif x_46_im <= 3.3e-166: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e-158: tmp = t_0 elif x_46_im <= 7.5e-141: tmp = x_46_re / y_46_re elif x_46_im <= 7.8e-141: tmp = x_46_im / y_46_re elif x_46_im <= 2.7e-131: tmp = x_46_re / y_46_re elif x_46_im <= 3e-131: tmp = x_46_im / y_46_im elif x_46_im <= 1.45e-124: tmp = x_46_re / y_46_re elif x_46_im <= 5.5e-120: tmp = t_0 elif x_46_im <= 8.6e-114: tmp = x_46_im / y_46_im elif x_46_im <= 6.6e-106: tmp = x_46_re / y_46_re elif x_46_im <= 6.5e-102: tmp = x_46_im / y_46_im elif x_46_im <= 2.7e-95: tmp = x_46_re / y_46_re elif x_46_im <= 4.8e-95: tmp = x_46_im / y_46_im elif x_46_im <= 2e-85: tmp = x_46_re / y_46_re elif x_46_im <= 4.1e-72: tmp = x_46_im / y_46_im elif x_46_im <= 4.2e-72: tmp = t_1 elif x_46_im <= 8.2e-63: tmp = x_46_re / y_46_re elif x_46_im <= 1.35e-61: tmp = x_46_im / y_46_im elif x_46_im <= 5.4e-56: tmp = x_46_re / y_46_re elif x_46_im <= 1.95e-46: tmp = x_46_im / y_46_im elif x_46_im <= 2e-46: tmp = t_2 elif x_46_im <= 3.4e-25: tmp = x_46_im / y_46_im elif x_46_im <= 1.35e-13: tmp = t_0 elif x_46_im <= 1.4e-13: tmp = x_46_im / y_46_re elif x_46_im <= 5e+25: tmp = x_46_re / y_46_re elif x_46_im <= 3.3e+35: tmp = x_46_im / y_46_im elif x_46_im <= 9e+46: tmp = x_46_re / y_46_re elif x_46_im <= 9.5e+46: tmp = x_46_im / y_46_re elif x_46_im <= 3.8e+78: tmp = x_46_re / y_46_re elif x_46_im <= 3.7e+117: tmp = x_46_im / y_46_im elif x_46_im <= 3.8e+117: tmp = t_1 elif x_46_im <= 3.2e+132: tmp = x_46_re / y_46_re elif x_46_im <= 6.4e+136: tmp = x_46_im / y_46_im elif x_46_im <= 3.8e+170: tmp = x_46_re / y_46_re elif x_46_im <= 6e+170: tmp = x_46_im / y_46_re elif x_46_im <= 3.2e+185: tmp = x_46_re / y_46_re elif x_46_im <= 5.8e+188: tmp = x_46_im / y_46_im elif x_46_im <= 6e+188: tmp = x_46_im / y_46_re elif x_46_im <= 1.35e+244: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e+244: tmp = x_46_im / y_46_re elif x_46_im <= 1.4e+263: tmp = x_46_im / y_46_im elif x_46_im <= 2.6e+271: tmp = x_46_re / y_46_re elif x_46_im <= 1.7e+276: tmp = x_46_im / y_46_im elif x_46_im <= 1.26e+277: tmp = t_1 elif not (x_46_im <= 2e+299) and (x_46_im <= 1.2e+300): tmp = x_46_re / y_46_re else: tmp = x_46_im / y_46_im return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) t_1 = Float64(Float64(-x_46_im) / y_46_re) t_2 = Float64(Float64(x_46_re * Float64(y_46_re / y_46_im)) / y_46_im) tmp = 0.0 if (x_46_im <= -4.1e-255) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.9e-265) tmp = t_2; elseif (x_46_im <= 1.7e-257) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.1e-254) tmp = t_2; elseif (x_46_im <= 9.4e-247) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 8.8e-243) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.8e-193) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.85e-193) tmp = t_0; elseif (x_46_im <= 3e-172) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.3e-166) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e-158) tmp = t_0; elseif (x_46_im <= 7.5e-141) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 7.8e-141) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 2.7e-131) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3e-131) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.45e-124) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.5e-120) tmp = t_0; elseif (x_46_im <= 8.6e-114) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6.6e-106) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6.5e-102) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2.7e-95) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 4.8e-95) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2e-85) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 4.1e-72) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 4.2e-72) tmp = t_1; elseif (x_46_im <= 8.2e-63) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.35e-61) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.4e-56) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.95e-46) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2e-46) tmp = t_2; elseif (x_46_im <= 3.4e-25) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.35e-13) tmp = t_0; elseif (x_46_im <= 1.4e-13) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 5e+25) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.3e+35) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 9e+46) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.5e+46) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 3.8e+78) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.7e+117) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 3.8e+117) tmp = t_1; elseif (x_46_im <= 3.2e+132) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6.4e+136) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 3.8e+170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6e+170) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 3.2e+185) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.8e+188) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6e+188) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.35e+244) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e+244) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.4e+263) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2.6e+271) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.7e+276) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.26e+277) tmp = t_1; elseif (!(x_46_im <= 2e+299) && (x_46_im <= 1.2e+300)) tmp = Float64(x_46_re / y_46_re); else tmp = Float64(x_46_im / y_46_im); 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_re / y_46_im) / y_46_im); t_1 = -x_46_im / y_46_re; t_2 = (x_46_re * (y_46_re / y_46_im)) / y_46_im; tmp = 0.0; if (x_46_im <= -4.1e-255) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.9e-265) tmp = t_2; elseif (x_46_im <= 1.7e-257) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.1e-254) tmp = t_2; elseif (x_46_im <= 9.4e-247) tmp = x_46_re / y_46_re; elseif (x_46_im <= 8.8e-243) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.8e-193) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.85e-193) tmp = t_0; elseif (x_46_im <= 3e-172) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.3e-166) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e-158) tmp = t_0; elseif (x_46_im <= 7.5e-141) tmp = x_46_re / y_46_re; elseif (x_46_im <= 7.8e-141) tmp = x_46_im / y_46_re; elseif (x_46_im <= 2.7e-131) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3e-131) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.45e-124) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.5e-120) tmp = t_0; elseif (x_46_im <= 8.6e-114) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6.6e-106) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6.5e-102) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2.7e-95) tmp = x_46_re / y_46_re; elseif (x_46_im <= 4.8e-95) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2e-85) tmp = x_46_re / y_46_re; elseif (x_46_im <= 4.1e-72) tmp = x_46_im / y_46_im; elseif (x_46_im <= 4.2e-72) tmp = t_1; elseif (x_46_im <= 8.2e-63) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.35e-61) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.4e-56) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.95e-46) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2e-46) tmp = t_2; elseif (x_46_im <= 3.4e-25) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.35e-13) tmp = t_0; elseif (x_46_im <= 1.4e-13) tmp = x_46_im / y_46_re; elseif (x_46_im <= 5e+25) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.3e+35) tmp = x_46_im / y_46_im; elseif (x_46_im <= 9e+46) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.5e+46) tmp = x_46_im / y_46_re; elseif (x_46_im <= 3.8e+78) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.7e+117) tmp = x_46_im / y_46_im; elseif (x_46_im <= 3.8e+117) tmp = t_1; elseif (x_46_im <= 3.2e+132) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6.4e+136) tmp = x_46_im / y_46_im; elseif (x_46_im <= 3.8e+170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6e+170) tmp = x_46_im / y_46_re; elseif (x_46_im <= 3.2e+185) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.8e+188) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6e+188) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.35e+244) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e+244) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.4e+263) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2.6e+271) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.7e+276) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.26e+277) tmp = t_1; elseif (~((x_46_im <= 2e+299)) && (x_46_im <= 1.2e+300)) tmp = x_46_re / y_46_re; else tmp = x_46_im / y_46_im; 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 * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[((-x$46$im) / y$46$re), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, If[LessEqual[x$46$im, -4.1e-255], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.9e-265], t$95$2, If[LessEqual[x$46$im, 1.7e-257], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.1e-254], t$95$2, If[LessEqual[x$46$im, 9.4e-247], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 8.8e-243], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.8e-193], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.85e-193], t$95$0, If[LessEqual[x$46$im, 3e-172], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.3e-166], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e-158], t$95$0, If[LessEqual[x$46$im, 7.5e-141], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 7.8e-141], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.7e-131], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3e-131], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.45e-124], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.5e-120], t$95$0, If[LessEqual[x$46$im, 8.6e-114], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6.6e-106], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6.5e-102], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2.7e-95], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4.8e-95], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2e-85], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4.1e-72], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 4.2e-72], t$95$1, If[LessEqual[x$46$im, 8.2e-63], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e-61], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.4e-56], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.95e-46], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2e-46], t$95$2, If[LessEqual[x$46$im, 3.4e-25], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.35e-13], t$95$0, If[LessEqual[x$46$im, 1.4e-13], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5e+25], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.3e+35], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9e+46], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.5e+46], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.8e+78], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.7e+117], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 3.8e+117], t$95$1, If[LessEqual[x$46$im, 3.2e+132], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6.4e+136], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 3.8e+170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6e+170], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.2e+185], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+188], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6e+188], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e+244], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+244], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+263], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2.6e+271], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.7e+276], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.26e+277], t$95$1, If[And[N[Not[LessEqual[x$46$im, 2e+299]], $MachinePrecision], LessEqual[x$46$im, 1.2e+300]], N[(x$46$re / y$46$re), $MachinePrecision], N[(x$46$im / y$46$im), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
t_1 := \frac{-x.im}{y.re}\\
t_2 := \frac{x.re \cdot \frac{y.re}{y.im}}{y.im}\\
\mathbf{if}\;x.im \leq -4.1 \cdot 10^{-255}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.9 \cdot 10^{-265}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{-257}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.1 \cdot 10^{-254}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x.im \leq 9.4 \cdot 10^{-247}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 8.8 \cdot 10^{-243}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.8 \cdot 10^{-193}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.85 \cdot 10^{-193}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 3 \cdot 10^{-172}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.3 \cdot 10^{-166}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-158}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 7.5 \cdot 10^{-141}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 7.8 \cdot 10^{-141}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 2.7 \cdot 10^{-131}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3 \cdot 10^{-131}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.45 \cdot 10^{-124}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.5 \cdot 10^{-120}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 8.6 \cdot 10^{-114}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6.6 \cdot 10^{-106}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6.5 \cdot 10^{-102}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2.7 \cdot 10^{-95}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 4.8 \cdot 10^{-95}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2 \cdot 10^{-85}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 4.1 \cdot 10^{-72}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 4.2 \cdot 10^{-72}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 8.2 \cdot 10^{-63}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{-61}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.4 \cdot 10^{-56}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.95 \cdot 10^{-46}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2 \cdot 10^{-46}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x.im \leq 3.4 \cdot 10^{-25}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{-13}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-13}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 5 \cdot 10^{+25}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.3 \cdot 10^{+35}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 9 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 3.8 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.7 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 3.8 \cdot 10^{+117}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 3.2 \cdot 10^{+132}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6.4 \cdot 10^{+136}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 3.8 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 3.2 \cdot 10^{+185}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+263}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2.6 \cdot 10^{+271}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{+276}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.26 \cdot 10^{+277}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\neg \left(x.im \leq 2 \cdot 10^{+299}\right) \land x.im \leq 1.2 \cdot 10^{+300}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\end{array}
\end{array}
if x.im < -4.1e-255 or 1.8999999999999999e-265 < x.im < 1.6999999999999999e-257 or 1.1000000000000001e-254 < x.im < 9.3999999999999996e-247 or 8.7999999999999996e-243 < x.im < 1.7999999999999999e-193 or 1.8500000000000001e-193 < x.im < 2.99999999999999984e-172 or 1.40000000000000001e-158 < x.im < 7.50000000000000046e-141 or 7.7999999999999994e-141 < x.im < 2.70000000000000021e-131 or 2.99999999999999996e-131 < x.im < 1.4500000000000001e-124 or 8.6000000000000001e-114 < x.im < 6.60000000000000031e-106 or 6.5000000000000003e-102 < x.im < 2.7e-95 or 4.8e-95 < x.im < 2e-85 or 4.2e-72 < x.im < 8.1999999999999995e-63 or 1.34999999999999997e-61 < x.im < 5.3999999999999999e-56 or 1.4000000000000001e-13 < x.im < 5.00000000000000024e25 or 3.3000000000000002e35 < x.im < 9.00000000000000019e46 or 9.5000000000000008e46 < x.im < 3.7999999999999999e78 or 3.8000000000000002e117 < x.im < 3.1999999999999997e132 or 6.39999999999999976e136 < x.im < 3.7999999999999998e170 or 5.99999999999999994e170 < x.im < 3.20000000000000006e185 or 1.3999999999999999e263 < x.im < 2.5999999999999998e271 or 2.0000000000000001e299 < x.im < 1.2000000000000001e300Initial program 59.9%
Taylor expanded in y.re around inf 64.5%
if -4.1e-255 < x.im < 1.8999999999999999e-265 or 1.6999999999999999e-257 < x.im < 1.1000000000000001e-254 or 1.9500000000000001e-46 < x.im < 2.00000000000000005e-46Initial program 85.7%
Taylor expanded in y.im around inf 71.6%
associate-/l*75.0%
Simplified75.0%
Taylor expanded in x.im around 0 68.3%
associate-/l*68.5%
Simplified68.5%
*-un-lft-identity68.5%
unpow268.5%
times-frac68.5%
Applied egg-rr68.5%
*-commutative68.5%
associate-*l/68.5%
*-un-lft-identity68.5%
associate-*l/75.0%
Applied egg-rr75.0%
if 9.3999999999999996e-247 < x.im < 8.7999999999999996e-243 or 2.99999999999999984e-172 < x.im < 3.30000000000000018e-166 or 2.70000000000000021e-131 < x.im < 2.99999999999999996e-131 or 5.5000000000000001e-120 < x.im < 8.6000000000000001e-114 or 6.60000000000000031e-106 < x.im < 6.5000000000000003e-102 or 2.7e-95 < x.im < 4.8e-95 or 2e-85 < x.im < 4.10000000000000003e-72 or 8.1999999999999995e-63 < x.im < 1.34999999999999997e-61 or 5.3999999999999999e-56 < x.im < 1.9500000000000001e-46 or 2.00000000000000005e-46 < x.im < 3.40000000000000002e-25 or 5.00000000000000024e25 < x.im < 3.3000000000000002e35 or 3.7999999999999999e78 < x.im < 3.6999999999999999e117 or 3.1999999999999997e132 < x.im < 6.39999999999999976e136 or 3.20000000000000006e185 < x.im < 5.7999999999999999e188 or 6.0000000000000001e188 < x.im < 1.34999999999999999e244 or 1.39999999999999995e244 < x.im < 1.3999999999999999e263 or 2.5999999999999998e271 < x.im < 1.69999999999999992e276 or 1.25999999999999995e277 < x.im < 2.0000000000000001e299 or 1.2000000000000001e300 < x.im Initial program 52.8%
Taylor expanded in y.re around 0 98.3%
if 1.7999999999999999e-193 < x.im < 1.8500000000000001e-193 or 3.30000000000000018e-166 < x.im < 1.40000000000000001e-158 or 1.4500000000000001e-124 < x.im < 5.5000000000000001e-120 or 3.40000000000000002e-25 < x.im < 1.35000000000000005e-13Initial program 84.2%
Taylor expanded in y.im around inf 83.9%
associate-/l*83.9%
Simplified83.9%
Taylor expanded in x.im around 0 68.2%
associate-/l*68.9%
Simplified68.9%
*-un-lft-identity68.9%
unpow268.9%
times-frac84.7%
Applied egg-rr84.7%
associate-*l/84.7%
*-un-lft-identity84.7%
Applied egg-rr84.7%
if 7.50000000000000046e-141 < x.im < 7.7999999999999994e-141 or 1.35000000000000005e-13 < x.im < 1.4000000000000001e-13 or 9.00000000000000019e46 < x.im < 9.5000000000000008e46 or 3.7999999999999998e170 < x.im < 5.99999999999999994e170 or 5.7999999999999999e188 < x.im < 6.0000000000000001e188 or 1.34999999999999999e244 < x.im < 1.39999999999999995e244Initial program 83.2%
*-un-lft-identity83.2%
add-sqr-sqrt83.2%
times-frac83.7%
hypot-define83.7%
fma-define83.7%
hypot-define83.7%
Applied egg-rr83.7%
Taylor expanded in y.im around -inf 4.7%
mul-1-neg4.7%
Simplified4.7%
Taylor expanded in y.re around -inf 7.4%
if 4.10000000000000003e-72 < x.im < 4.2e-72 or 3.6999999999999999e117 < x.im < 3.8000000000000002e117 or 1.69999999999999992e276 < x.im < 1.25999999999999995e277Initial program 49.6%
*-un-lft-identity49.6%
add-sqr-sqrt49.6%
times-frac49.2%
hypot-define49.2%
fma-define49.2%
hypot-define50.5%
Applied egg-rr50.5%
Taylor expanded in y.im around -inf 4.8%
mul-1-neg4.8%
Simplified4.8%
Taylor expanded in y.re around inf 8.0%
associate-*r/8.0%
mul-1-neg8.0%
Simplified8.0%
Final simplification68.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (- x.im) y.re)) (t_1 (* x.re (/ (/ y.re y.im) y.im))))
(if (<= x.im -4.7e-255)
(/ x.re y.re)
(if (<= x.im 3.9e-264)
t_1
(if (<= x.im 2.05e-257)
(/ x.re y.re)
(if (<= x.im 3.2e-252)
t_1
(if (<= x.im 9.4e-247)
(/ x.re y.re)
(if (<= x.im 8.8e-243)
(/ x.im y.im)
(if (<= x.im 1.55e-193)
(/ x.re y.re)
(if (<= x.im 1.85e-193)
t_1
(if (<= x.im 3.8e-170)
(/ x.re y.re)
(if (<= x.im 3.4e-165)
(/ x.im y.im)
(if (<= x.im 1.45e-158)
t_1
(if (<= x.im 7.5e-141)
(/ x.re y.re)
(if (<= x.im 7.8e-141)
(/ x.im y.re)
(if (<= x.im 2.7e-131)
(/ x.re y.re)
(if (<= x.im 1.62e-130)
(/ x.im y.im)
(if (<= x.im 1.45e-124)
(/ x.re y.re)
(if (<= x.im 2.1e-120)
t_1
(if (<= x.im 9.4e-114)
(/ x.im y.im)
(if (<= x.im 5e-102)
(/ x.re y.re)
(if (<= x.im 5.1e-102)
(/ x.im y.im)
(if (<= x.im 2.7e-95)
(/ x.re y.re)
(if (<= x.im 8e-95)
(/ x.im y.im)
(if (<= x.im 9.5e-86)
(/ x.re y.re)
(if (<= x.im 4.1e-72)
(/ x.im y.im)
(if (<= x.im 4.2e-72)
t_0
(if (<= x.im 1.2e-61)
(/ x.re y.re)
(if (<= x.im 1.45e-61)
(/ x.im y.im)
(if (<= x.im 5e-56)
(/ x.re y.re)
(if (<=
x.im
1.6e-46)
(/ x.im y.im)
(if (<=
x.im
4.8e-46)
t_1
(if (<=
x.im
3.5e-25)
(/ x.im y.im)
(if (<=
x.im
1.35e-13)
t_1
(if (<=
x.im
1.4e-13)
(/
x.im
y.re)
(if (<=
x.im
3.5e+27)
(/
x.re
y.re)
(if (<=
x.im
3.2e+36)
(/
x.im
y.im)
(if (<=
x.im
9e+46)
(/
x.re
y.re)
(if (<=
x.im
9.5e+46)
(/
x.im
y.re)
(if (<=
x.im
1.5e+78)
(/
x.re
y.re)
(if (<=
x.im
3.7e+117)
(/
x.im
y.im)
(if (<=
x.im
3.8e+117)
t_0
(if (<=
x.im
3.25e+131)
(/
x.re
y.re)
(if (<=
x.im
8.4e+136)
(/
x.im
y.im)
(if (<=
x.im
5.8e+170)
(/
x.re
y.re)
(if (<=
x.im
6e+170)
(/
x.im
y.re)
(if (<=
x.im
4.2e+185)
(/
x.re
y.re)
(if (<=
x.im
5.8e+188)
(/
x.im
y.im)
(if (<=
x.im
6e+188)
(/
x.im
y.re)
(if (<=
x.im
1.35e+244)
(/
x.im
y.im)
(if (<=
x.im
1.4e+244)
(/
x.im
y.re)
(if (<=
x.im
1.2e+263)
(/
x.im
y.im)
(if (<=
x.im
5.9e+271)
(/
x.re
y.re)
(if (<=
x.im
1.7e+276)
(/
x.im
y.im)
(if (<=
x.im
1.26e+277)
t_0
(if (or (<=
x.im
8.4e+294)
(not
(<=
x.im
5.5e+299)))
(/
x.im
y.im)
(/
x.re
y.re)))))))))))))))))))))))))))))))))))))))))))))))))))))))))
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_re;
double t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double tmp;
if (x_46_im <= -4.7e-255) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.9e-264) {
tmp = t_1;
} else if (x_46_im <= 2.05e-257) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.2e-252) {
tmp = t_1;
} else if (x_46_im <= 9.4e-247) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.8e-243) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.55e-193) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.85e-193) {
tmp = t_1;
} else if (x_46_im <= 3.8e-170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.4e-165) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-158) {
tmp = t_1;
} else if (x_46_im <= 7.5e-141) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.8e-141) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.7e-131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.62e-130) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-124) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.1e-120) {
tmp = t_1;
} else if (x_46_im <= 9.4e-114) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5e-102) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.1e-102) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.7e-95) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8e-95) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9.5e-86) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.1e-72) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.2e-72) {
tmp = t_0;
} else if (x_46_im <= 1.2e-61) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.45e-61) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5e-56) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.6e-46) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.8e-46) {
tmp = t_1;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.35e-13) {
tmp = t_1;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.5e+27) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.2e+36) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.5e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_0;
} else if (x_46_im <= 3.25e+131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.4e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4.2e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.2e+263) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.9e+271) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_0;
} else if ((x_46_im <= 8.4e+294) || !(x_46_im <= 5.5e+299)) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / 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) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = -x_46im / y_46re
t_1 = x_46re * ((y_46re / y_46im) / y_46im)
if (x_46im <= (-4.7d-255)) then
tmp = x_46re / y_46re
else if (x_46im <= 3.9d-264) then
tmp = t_1
else if (x_46im <= 2.05d-257) then
tmp = x_46re / y_46re
else if (x_46im <= 3.2d-252) then
tmp = t_1
else if (x_46im <= 9.4d-247) then
tmp = x_46re / y_46re
else if (x_46im <= 8.8d-243) then
tmp = x_46im / y_46im
else if (x_46im <= 1.55d-193) then
tmp = x_46re / y_46re
else if (x_46im <= 1.85d-193) then
tmp = t_1
else if (x_46im <= 3.8d-170) then
tmp = x_46re / y_46re
else if (x_46im <= 3.4d-165) then
tmp = x_46im / y_46im
else if (x_46im <= 1.45d-158) then
tmp = t_1
else if (x_46im <= 7.5d-141) then
tmp = x_46re / y_46re
else if (x_46im <= 7.8d-141) then
tmp = x_46im / y_46re
else if (x_46im <= 2.7d-131) then
tmp = x_46re / y_46re
else if (x_46im <= 1.62d-130) then
tmp = x_46im / y_46im
else if (x_46im <= 1.45d-124) then
tmp = x_46re / y_46re
else if (x_46im <= 2.1d-120) then
tmp = t_1
else if (x_46im <= 9.4d-114) then
tmp = x_46im / y_46im
else if (x_46im <= 5d-102) then
tmp = x_46re / y_46re
else if (x_46im <= 5.1d-102) then
tmp = x_46im / y_46im
else if (x_46im <= 2.7d-95) then
tmp = x_46re / y_46re
else if (x_46im <= 8d-95) then
tmp = x_46im / y_46im
else if (x_46im <= 9.5d-86) then
tmp = x_46re / y_46re
else if (x_46im <= 4.1d-72) then
tmp = x_46im / y_46im
else if (x_46im <= 4.2d-72) then
tmp = t_0
else if (x_46im <= 1.2d-61) then
tmp = x_46re / y_46re
else if (x_46im <= 1.45d-61) then
tmp = x_46im / y_46im
else if (x_46im <= 5d-56) then
tmp = x_46re / y_46re
else if (x_46im <= 1.6d-46) then
tmp = x_46im / y_46im
else if (x_46im <= 4.8d-46) then
tmp = t_1
else if (x_46im <= 3.5d-25) then
tmp = x_46im / y_46im
else if (x_46im <= 1.35d-13) then
tmp = t_1
else if (x_46im <= 1.4d-13) then
tmp = x_46im / y_46re
else if (x_46im <= 3.5d+27) then
tmp = x_46re / y_46re
else if (x_46im <= 3.2d+36) then
tmp = x_46im / y_46im
else if (x_46im <= 9d+46) then
tmp = x_46re / y_46re
else if (x_46im <= 9.5d+46) then
tmp = x_46im / y_46re
else if (x_46im <= 1.5d+78) then
tmp = x_46re / y_46re
else if (x_46im <= 3.7d+117) then
tmp = x_46im / y_46im
else if (x_46im <= 3.8d+117) then
tmp = t_0
else if (x_46im <= 3.25d+131) then
tmp = x_46re / y_46re
else if (x_46im <= 8.4d+136) then
tmp = x_46im / y_46im
else if (x_46im <= 5.8d+170) then
tmp = x_46re / y_46re
else if (x_46im <= 6d+170) then
tmp = x_46im / y_46re
else if (x_46im <= 4.2d+185) then
tmp = x_46re / y_46re
else if (x_46im <= 5.8d+188) then
tmp = x_46im / y_46im
else if (x_46im <= 6d+188) then
tmp = x_46im / y_46re
else if (x_46im <= 1.35d+244) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d+244) then
tmp = x_46im / y_46re
else if (x_46im <= 1.2d+263) then
tmp = x_46im / y_46im
else if (x_46im <= 5.9d+271) then
tmp = x_46re / y_46re
else if (x_46im <= 1.7d+276) then
tmp = x_46im / y_46im
else if (x_46im <= 1.26d+277) then
tmp = t_0
else if ((x_46im <= 8.4d+294) .or. (.not. (x_46im <= 5.5d+299))) then
tmp = x_46im / y_46im
else
tmp = x_46re / 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 t_0 = -x_46_im / y_46_re;
double t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double tmp;
if (x_46_im <= -4.7e-255) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.9e-264) {
tmp = t_1;
} else if (x_46_im <= 2.05e-257) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.2e-252) {
tmp = t_1;
} else if (x_46_im <= 9.4e-247) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.8e-243) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.55e-193) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.85e-193) {
tmp = t_1;
} else if (x_46_im <= 3.8e-170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.4e-165) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-158) {
tmp = t_1;
} else if (x_46_im <= 7.5e-141) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.8e-141) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.7e-131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.62e-130) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-124) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.1e-120) {
tmp = t_1;
} else if (x_46_im <= 9.4e-114) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5e-102) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.1e-102) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.7e-95) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8e-95) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9.5e-86) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.1e-72) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.2e-72) {
tmp = t_0;
} else if (x_46_im <= 1.2e-61) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.45e-61) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5e-56) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.6e-46) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.8e-46) {
tmp = t_1;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.35e-13) {
tmp = t_1;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.5e+27) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.2e+36) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.5e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_0;
} else if (x_46_im <= 3.25e+131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 8.4e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4.2e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.2e+263) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.9e+271) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_0;
} else if ((x_46_im <= 8.4e+294) || !(x_46_im <= 5.5e+299)) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / y_46_re;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = -x_46_im / y_46_re t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im) tmp = 0 if x_46_im <= -4.7e-255: tmp = x_46_re / y_46_re elif x_46_im <= 3.9e-264: tmp = t_1 elif x_46_im <= 2.05e-257: tmp = x_46_re / y_46_re elif x_46_im <= 3.2e-252: tmp = t_1 elif x_46_im <= 9.4e-247: tmp = x_46_re / y_46_re elif x_46_im <= 8.8e-243: tmp = x_46_im / y_46_im elif x_46_im <= 1.55e-193: tmp = x_46_re / y_46_re elif x_46_im <= 1.85e-193: tmp = t_1 elif x_46_im <= 3.8e-170: tmp = x_46_re / y_46_re elif x_46_im <= 3.4e-165: tmp = x_46_im / y_46_im elif x_46_im <= 1.45e-158: tmp = t_1 elif x_46_im <= 7.5e-141: tmp = x_46_re / y_46_re elif x_46_im <= 7.8e-141: tmp = x_46_im / y_46_re elif x_46_im <= 2.7e-131: tmp = x_46_re / y_46_re elif x_46_im <= 1.62e-130: tmp = x_46_im / y_46_im elif x_46_im <= 1.45e-124: tmp = x_46_re / y_46_re elif x_46_im <= 2.1e-120: tmp = t_1 elif x_46_im <= 9.4e-114: tmp = x_46_im / y_46_im elif x_46_im <= 5e-102: tmp = x_46_re / y_46_re elif x_46_im <= 5.1e-102: tmp = x_46_im / y_46_im elif x_46_im <= 2.7e-95: tmp = x_46_re / y_46_re elif x_46_im <= 8e-95: tmp = x_46_im / y_46_im elif x_46_im <= 9.5e-86: tmp = x_46_re / y_46_re elif x_46_im <= 4.1e-72: tmp = x_46_im / y_46_im elif x_46_im <= 4.2e-72: tmp = t_0 elif x_46_im <= 1.2e-61: tmp = x_46_re / y_46_re elif x_46_im <= 1.45e-61: tmp = x_46_im / y_46_im elif x_46_im <= 5e-56: tmp = x_46_re / y_46_re elif x_46_im <= 1.6e-46: tmp = x_46_im / y_46_im elif x_46_im <= 4.8e-46: tmp = t_1 elif x_46_im <= 3.5e-25: tmp = x_46_im / y_46_im elif x_46_im <= 1.35e-13: tmp = t_1 elif x_46_im <= 1.4e-13: tmp = x_46_im / y_46_re elif x_46_im <= 3.5e+27: tmp = x_46_re / y_46_re elif x_46_im <= 3.2e+36: tmp = x_46_im / y_46_im elif x_46_im <= 9e+46: tmp = x_46_re / y_46_re elif x_46_im <= 9.5e+46: tmp = x_46_im / y_46_re elif x_46_im <= 1.5e+78: tmp = x_46_re / y_46_re elif x_46_im <= 3.7e+117: tmp = x_46_im / y_46_im elif x_46_im <= 3.8e+117: tmp = t_0 elif x_46_im <= 3.25e+131: tmp = x_46_re / y_46_re elif x_46_im <= 8.4e+136: tmp = x_46_im / y_46_im elif x_46_im <= 5.8e+170: tmp = x_46_re / y_46_re elif x_46_im <= 6e+170: tmp = x_46_im / y_46_re elif x_46_im <= 4.2e+185: tmp = x_46_re / y_46_re elif x_46_im <= 5.8e+188: tmp = x_46_im / y_46_im elif x_46_im <= 6e+188: tmp = x_46_im / y_46_re elif x_46_im <= 1.35e+244: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e+244: tmp = x_46_im / y_46_re elif x_46_im <= 1.2e+263: tmp = x_46_im / y_46_im elif x_46_im <= 5.9e+271: tmp = x_46_re / y_46_re elif x_46_im <= 1.7e+276: tmp = x_46_im / y_46_im elif x_46_im <= 1.26e+277: tmp = t_0 elif (x_46_im <= 8.4e+294) or not (x_46_im <= 5.5e+299): tmp = x_46_im / y_46_im else: tmp = x_46_re / y_46_re return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(Float64(-x_46_im) / y_46_re) t_1 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) tmp = 0.0 if (x_46_im <= -4.7e-255) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.9e-264) tmp = t_1; elseif (x_46_im <= 2.05e-257) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.2e-252) tmp = t_1; elseif (x_46_im <= 9.4e-247) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 8.8e-243) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.55e-193) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.85e-193) tmp = t_1; elseif (x_46_im <= 3.8e-170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.4e-165) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.45e-158) tmp = t_1; elseif (x_46_im <= 7.5e-141) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 7.8e-141) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 2.7e-131) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.62e-130) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.45e-124) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 2.1e-120) tmp = t_1; elseif (x_46_im <= 9.4e-114) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5e-102) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.1e-102) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2.7e-95) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 8e-95) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 9.5e-86) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 4.1e-72) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 4.2e-72) tmp = t_0; elseif (x_46_im <= 1.2e-61) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.45e-61) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5e-56) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.6e-46) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 4.8e-46) tmp = t_1; elseif (x_46_im <= 3.5e-25) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.35e-13) tmp = t_1; elseif (x_46_im <= 1.4e-13) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 3.5e+27) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.2e+36) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 9e+46) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.5e+46) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.5e+78) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.7e+117) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 3.8e+117) tmp = t_0; elseif (x_46_im <= 3.25e+131) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 8.4e+136) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.8e+170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6e+170) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 4.2e+185) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.8e+188) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6e+188) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.35e+244) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e+244) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.2e+263) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.9e+271) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.7e+276) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.26e+277) tmp = t_0; elseif ((x_46_im <= 8.4e+294) || !(x_46_im <= 5.5e+299)) tmp = Float64(x_46_im / y_46_im); else tmp = Float64(x_46_re / y_46_re); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = -x_46_im / y_46_re; t_1 = x_46_re * ((y_46_re / y_46_im) / y_46_im); tmp = 0.0; if (x_46_im <= -4.7e-255) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.9e-264) tmp = t_1; elseif (x_46_im <= 2.05e-257) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.2e-252) tmp = t_1; elseif (x_46_im <= 9.4e-247) tmp = x_46_re / y_46_re; elseif (x_46_im <= 8.8e-243) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.55e-193) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.85e-193) tmp = t_1; elseif (x_46_im <= 3.8e-170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.4e-165) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.45e-158) tmp = t_1; elseif (x_46_im <= 7.5e-141) tmp = x_46_re / y_46_re; elseif (x_46_im <= 7.8e-141) tmp = x_46_im / y_46_re; elseif (x_46_im <= 2.7e-131) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.62e-130) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.45e-124) tmp = x_46_re / y_46_re; elseif (x_46_im <= 2.1e-120) tmp = t_1; elseif (x_46_im <= 9.4e-114) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5e-102) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.1e-102) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2.7e-95) tmp = x_46_re / y_46_re; elseif (x_46_im <= 8e-95) tmp = x_46_im / y_46_im; elseif (x_46_im <= 9.5e-86) tmp = x_46_re / y_46_re; elseif (x_46_im <= 4.1e-72) tmp = x_46_im / y_46_im; elseif (x_46_im <= 4.2e-72) tmp = t_0; elseif (x_46_im <= 1.2e-61) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.45e-61) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5e-56) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.6e-46) tmp = x_46_im / y_46_im; elseif (x_46_im <= 4.8e-46) tmp = t_1; elseif (x_46_im <= 3.5e-25) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.35e-13) tmp = t_1; elseif (x_46_im <= 1.4e-13) tmp = x_46_im / y_46_re; elseif (x_46_im <= 3.5e+27) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.2e+36) tmp = x_46_im / y_46_im; elseif (x_46_im <= 9e+46) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.5e+46) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.5e+78) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.7e+117) tmp = x_46_im / y_46_im; elseif (x_46_im <= 3.8e+117) tmp = t_0; elseif (x_46_im <= 3.25e+131) tmp = x_46_re / y_46_re; elseif (x_46_im <= 8.4e+136) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.8e+170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6e+170) tmp = x_46_im / y_46_re; elseif (x_46_im <= 4.2e+185) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.8e+188) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6e+188) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.35e+244) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e+244) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.2e+263) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.9e+271) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.7e+276) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.26e+277) tmp = t_0; elseif ((x_46_im <= 8.4e+294) || ~((x_46_im <= 5.5e+299))) tmp = x_46_im / y_46_im; else tmp = x_46_re / y_46_re; 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$im) / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x$46$im, -4.7e-255], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.9e-264], t$95$1, If[LessEqual[x$46$im, 2.05e-257], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.2e-252], t$95$1, If[LessEqual[x$46$im, 9.4e-247], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 8.8e-243], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.55e-193], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.85e-193], t$95$1, If[LessEqual[x$46$im, 3.8e-170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.4e-165], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.45e-158], t$95$1, If[LessEqual[x$46$im, 7.5e-141], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 7.8e-141], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.7e-131], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.62e-130], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.45e-124], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.1e-120], t$95$1, If[LessEqual[x$46$im, 9.4e-114], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5e-102], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.1e-102], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2.7e-95], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 8e-95], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9.5e-86], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4.1e-72], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 4.2e-72], t$95$0, If[LessEqual[x$46$im, 1.2e-61], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.45e-61], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5e-56], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.6e-46], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 4.8e-46], t$95$1, If[LessEqual[x$46$im, 3.5e-25], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.35e-13], t$95$1, If[LessEqual[x$46$im, 1.4e-13], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.5e+27], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.2e+36], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9e+46], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.5e+46], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.5e+78], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.7e+117], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 3.8e+117], t$95$0, If[LessEqual[x$46$im, 3.25e+131], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 8.4e+136], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6e+170], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4.2e+185], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+188], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6e+188], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e+244], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+244], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.2e+263], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.9e+271], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.7e+276], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.26e+277], t$95$0, If[Or[LessEqual[x$46$im, 8.4e+294], N[Not[LessEqual[x$46$im, 5.5e+299]], $MachinePrecision]], N[(x$46$im / y$46$im), $MachinePrecision], N[(x$46$re / y$46$re), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x.im}{y.re}\\
t_1 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
\mathbf{if}\;x.im \leq -4.7 \cdot 10^{-255}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.9 \cdot 10^{-264}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 2.05 \cdot 10^{-257}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.2 \cdot 10^{-252}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 9.4 \cdot 10^{-247}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 8.8 \cdot 10^{-243}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.55 \cdot 10^{-193}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.85 \cdot 10^{-193}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 3.8 \cdot 10^{-170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.4 \cdot 10^{-165}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.45 \cdot 10^{-158}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 7.5 \cdot 10^{-141}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 7.8 \cdot 10^{-141}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 2.7 \cdot 10^{-131}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.62 \cdot 10^{-130}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.45 \cdot 10^{-124}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 2.1 \cdot 10^{-120}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 9.4 \cdot 10^{-114}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5 \cdot 10^{-102}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.1 \cdot 10^{-102}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2.7 \cdot 10^{-95}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 8 \cdot 10^{-95}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{-86}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 4.1 \cdot 10^{-72}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 4.2 \cdot 10^{-72}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 1.2 \cdot 10^{-61}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.45 \cdot 10^{-61}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5 \cdot 10^{-56}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.6 \cdot 10^{-46}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 4.8 \cdot 10^{-46}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 3.5 \cdot 10^{-25}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{-13}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-13}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 3.5 \cdot 10^{+27}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.2 \cdot 10^{+36}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 9 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.5 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.7 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 3.8 \cdot 10^{+117}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 3.25 \cdot 10^{+131}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 8.4 \cdot 10^{+136}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 4.2 \cdot 10^{+185}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.2 \cdot 10^{+263}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.9 \cdot 10^{+271}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{+276}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.26 \cdot 10^{+277}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 8.4 \cdot 10^{+294} \lor \neg \left(x.im \leq 5.5 \cdot 10^{+299}\right):\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\end{array}
\end{array}
if x.im < -4.6999999999999997e-255 or 3.8999999999999999e-264 < x.im < 2.0499999999999998e-257 or 3.2000000000000002e-252 < x.im < 9.3999999999999996e-247 or 8.7999999999999996e-243 < x.im < 1.5500000000000001e-193 or 1.8500000000000001e-193 < x.im < 3.7999999999999998e-170 or 1.4499999999999999e-158 < x.im < 7.50000000000000046e-141 or 7.7999999999999994e-141 < x.im < 2.70000000000000021e-131 or 1.62e-130 < x.im < 1.4500000000000001e-124 or 9.40000000000000012e-114 < x.im < 5.00000000000000026e-102 or 5.09999999999999999e-102 < x.im < 2.7e-95 or 7.99999999999999992e-95 < x.im < 9.4999999999999996e-86 or 4.2e-72 < x.im < 1.2e-61 or 1.45e-61 < x.im < 4.99999999999999997e-56 or 1.4000000000000001e-13 < x.im < 3.5000000000000002e27 or 3.1999999999999999e36 < x.im < 9.00000000000000019e46 or 9.5000000000000008e46 < x.im < 1.49999999999999991e78 or 3.8000000000000002e117 < x.im < 3.25e131 or 8.3999999999999996e136 < x.im < 5.8000000000000001e170 or 5.99999999999999994e170 < x.im < 4.2e185 or 1.2e263 < x.im < 5.8999999999999997e271 or 8.3999999999999999e294 < x.im < 5.5000000000000003e299Initial program 59.9%
Taylor expanded in y.re around inf 64.5%
if -4.6999999999999997e-255 < x.im < 3.8999999999999999e-264 or 2.0499999999999998e-257 < x.im < 3.2000000000000002e-252 or 1.5500000000000001e-193 < x.im < 1.8500000000000001e-193 or 3.4e-165 < x.im < 1.4499999999999999e-158 or 1.4500000000000001e-124 < x.im < 2.1e-120 or 1.6e-46 < x.im < 4.80000000000000027e-46 or 3.5000000000000002e-25 < x.im < 1.35000000000000005e-13Initial program 85.4%
Taylor expanded in y.im around inf 73.8%
associate-/l*76.6%
Simplified76.6%
Taylor expanded in x.im around 0 68.3%
associate-/l*68.6%
Simplified68.6%
*-un-lft-identity68.6%
unpow268.6%
times-frac71.5%
Applied egg-rr71.5%
associate-*l/71.5%
*-un-lft-identity71.5%
Applied egg-rr71.5%
if 9.3999999999999996e-247 < x.im < 8.7999999999999996e-243 or 3.7999999999999998e-170 < x.im < 3.4e-165 or 2.70000000000000021e-131 < x.im < 1.62e-130 or 2.1e-120 < x.im < 9.40000000000000012e-114 or 5.00000000000000026e-102 < x.im < 5.09999999999999999e-102 or 2.7e-95 < x.im < 7.99999999999999992e-95 or 9.4999999999999996e-86 < x.im < 4.10000000000000003e-72 or 1.2e-61 < x.im < 1.45e-61 or 4.99999999999999997e-56 < x.im < 1.6e-46 or 4.80000000000000027e-46 < x.im < 3.5000000000000002e-25 or 3.5000000000000002e27 < x.im < 3.1999999999999999e36 or 1.49999999999999991e78 < x.im < 3.6999999999999999e117 or 3.25e131 < x.im < 8.3999999999999996e136 or 4.2e185 < x.im < 5.7999999999999999e188 or 6.0000000000000001e188 < x.im < 1.34999999999999999e244 or 1.39999999999999995e244 < x.im < 1.2e263 or 5.8999999999999997e271 < x.im < 1.69999999999999992e276 or 1.25999999999999995e277 < x.im < 8.3999999999999999e294 or 5.5000000000000003e299 < x.im Initial program 52.8%
Taylor expanded in y.re around 0 98.3%
if 7.50000000000000046e-141 < x.im < 7.7999999999999994e-141 or 1.35000000000000005e-13 < x.im < 1.4000000000000001e-13 or 9.00000000000000019e46 < x.im < 9.5000000000000008e46 or 5.8000000000000001e170 < x.im < 5.99999999999999994e170 or 5.7999999999999999e188 < x.im < 6.0000000000000001e188 or 1.34999999999999999e244 < x.im < 1.39999999999999995e244Initial program 83.2%
*-un-lft-identity83.2%
add-sqr-sqrt83.2%
times-frac83.7%
hypot-define83.7%
fma-define83.7%
hypot-define83.7%
Applied egg-rr83.7%
Taylor expanded in y.im around -inf 4.7%
mul-1-neg4.7%
Simplified4.7%
Taylor expanded in y.re around -inf 7.4%
if 4.10000000000000003e-72 < x.im < 4.2e-72 or 3.6999999999999999e117 < x.im < 3.8000000000000002e117 or 1.69999999999999992e276 < x.im < 1.25999999999999995e277Initial program 49.6%
*-un-lft-identity49.6%
add-sqr-sqrt49.6%
times-frac49.2%
hypot-define49.2%
fma-define49.2%
hypot-define50.5%
Applied egg-rr50.5%
Taylor expanded in y.im around -inf 4.8%
mul-1-neg4.8%
Simplified4.8%
Taylor expanded in y.re around inf 8.0%
associate-*r/8.0%
mul-1-neg8.0%
Simplified8.0%
Final simplification68.1%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (- x.im) y.re))
(t_1 (* x.re (/ y.re y.im)))
(t_2 (/ (+ x.im t_1) y.im))
(t_3 (* x.re (/ (/ y.re y.im) y.im))))
(if (<= x.im -1.05e-160)
(/ x.re y.re)
(if (<= x.im 9.8e-290)
t_2
(if (<= x.im 4.4e-284)
(/ x.re y.re)
(if (<= x.im 1.4e-265)
(/ (/ x.re y.im) (/ y.im y.re))
(if (<= x.im 3.4e-257)
(/ x.re y.re)
(if (<= x.im 1.7e-254)
(/ t_1 y.im)
(if (<= x.im 9.4e-247)
(/ x.re y.re)
(if (<= x.im 9.5e-243)
(/ x.im y.im)
(if (<= x.im 1.8e-193)
(/ x.re y.re)
(if (<= x.im 3.2e-192)
t_3
(if (<= x.im 2.5e-170)
(/ x.re y.re)
(if (<= x.im 6.1e-161)
(/ x.im y.im)
(if (<= x.im 1.4e-158)
t_3
(if (<= x.im 7.5e-141)
(/ x.re y.re)
(if (<= x.im 7.8e-141)
(/ x.im y.re)
(if (<= x.im 4e-132)
(/ x.re y.re)
(if (<= x.im 2e-130)
(/ x.im y.im)
(if (<= x.im 1.45e-124)
(/ x.re y.re)
(if (<= x.im 1.05e-115)
t_3
(if (<= x.im 8.5e-114)
(/ x.im y.im)
(if (<= x.im 1.65e-106)
(/ x.re y.re)
(if (<= x.im 1.18e-101)
(/ x.im y.im)
(if (<= x.im 1.42e-95)
(/ x.re y.re)
(if (<= x.im 2.9e-95)
(/ x.im y.im)
(if (<= x.im 4.4e-85)
(/ x.re y.re)
(if (<= x.im 4.1e-72)
(/ x.im y.im)
(if (<= x.im 4.2e-72)
t_0
(if (<= x.im 8.8e-62)
(/ x.re y.re)
(if (<=
x.im
2.6e-61)
(/ x.im y.im)
(if (<=
x.im
6.5e-58)
(/ x.re y.re)
(if (<=
x.im
1.35e-13)
t_2
(if (<=
x.im
1.4e-13)
(/
x.im
y.re)
(if (<=
x.im
4.6e+28)
(/
x.re
y.re)
(if (<=
x.im
2.6e+38)
(/
x.im
y.im)
(if (<=
x.im
9e+46)
(/
x.re
y.re)
(if (<=
x.im
9.5e+46)
(/
x.im
y.re)
(if (<=
x.im
7e+78)
(/
x.re
y.re)
(if (<=
x.im
3.7e+117)
(/
x.im
y.im)
(if (<=
x.im
3.8e+117)
t_0
(if (<=
x.im
3.6e+131)
(/
x.re
y.re)
(if (<=
x.im
6.2e+136)
(/
x.im
y.im)
(if (<=
x.im
5.8e+170)
(/
x.re
y.re)
(if (<=
x.im
6e+170)
(/
x.im
y.re)
(if (<=
x.im
4.6e+185)
(/
x.re
y.re)
(if (<=
x.im
5.8e+188)
(/
x.im
y.im)
(if (<=
x.im
6e+188)
(/
x.im
y.re)
(if (<=
x.im
1.35e+244)
(/
x.im
y.im)
(if (<=
x.im
1.4e+244)
(/
x.im
y.re)
(if (<=
x.im
1.25e+262)
(/
x.im
y.im)
(if (<=
x.im
1.7e+272)
(/
x.re
y.re)
(if (<=
x.im
1.7e+276)
(/
x.im
y.im)
(if (<=
x.im
1.26e+277)
t_0
(if (or (<=
x.im
8.2e+298)
(not
(<=
x.im
1.25e+300)))
(/
x.im
y.im)
(/
x.re
y.re))))))))))))))))))))))))))))))))))))))))))))))))))))))))
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_re;
double t_1 = x_46_re * (y_46_re / y_46_im);
double t_2 = (x_46_im + t_1) / y_46_im;
double t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double tmp;
if (x_46_im <= -1.05e-160) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.8e-290) {
tmp = t_2;
} else if (x_46_im <= 4.4e-284) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.4e-265) {
tmp = (x_46_re / y_46_im) / (y_46_im / y_46_re);
} else if (x_46_im <= 3.4e-257) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e-254) {
tmp = t_1 / y_46_im;
} else if (x_46_im <= 9.4e-247) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e-243) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.8e-193) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.2e-192) {
tmp = t_3;
} else if (x_46_im <= 2.5e-170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.1e-161) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e-158) {
tmp = t_3;
} else if (x_46_im <= 7.5e-141) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.8e-141) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4e-132) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2e-130) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-124) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.05e-115) {
tmp = t_3;
} else if (x_46_im <= 8.5e-114) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.65e-106) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.18e-101) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.42e-95) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.9e-95) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.4e-85) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.1e-72) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.2e-72) {
tmp = t_0;
} else if (x_46_im <= 8.8e-62) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.6e-61) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6.5e-58) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.35e-13) {
tmp = t_2;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4.6e+28) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.6e+38) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 7e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_0;
} else if (x_46_im <= 3.6e+131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.2e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4.6e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.25e+262) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.7e+272) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_0;
} else if ((x_46_im <= 8.2e+298) || !(x_46_im <= 1.25e+300)) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / 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) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = -x_46im / y_46re
t_1 = x_46re * (y_46re / y_46im)
t_2 = (x_46im + t_1) / y_46im
t_3 = x_46re * ((y_46re / y_46im) / y_46im)
if (x_46im <= (-1.05d-160)) then
tmp = x_46re / y_46re
else if (x_46im <= 9.8d-290) then
tmp = t_2
else if (x_46im <= 4.4d-284) then
tmp = x_46re / y_46re
else if (x_46im <= 1.4d-265) then
tmp = (x_46re / y_46im) / (y_46im / y_46re)
else if (x_46im <= 3.4d-257) then
tmp = x_46re / y_46re
else if (x_46im <= 1.7d-254) then
tmp = t_1 / y_46im
else if (x_46im <= 9.4d-247) then
tmp = x_46re / y_46re
else if (x_46im <= 9.5d-243) then
tmp = x_46im / y_46im
else if (x_46im <= 1.8d-193) then
tmp = x_46re / y_46re
else if (x_46im <= 3.2d-192) then
tmp = t_3
else if (x_46im <= 2.5d-170) then
tmp = x_46re / y_46re
else if (x_46im <= 6.1d-161) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d-158) then
tmp = t_3
else if (x_46im <= 7.5d-141) then
tmp = x_46re / y_46re
else if (x_46im <= 7.8d-141) then
tmp = x_46im / y_46re
else if (x_46im <= 4d-132) then
tmp = x_46re / y_46re
else if (x_46im <= 2d-130) then
tmp = x_46im / y_46im
else if (x_46im <= 1.45d-124) then
tmp = x_46re / y_46re
else if (x_46im <= 1.05d-115) then
tmp = t_3
else if (x_46im <= 8.5d-114) then
tmp = x_46im / y_46im
else if (x_46im <= 1.65d-106) then
tmp = x_46re / y_46re
else if (x_46im <= 1.18d-101) then
tmp = x_46im / y_46im
else if (x_46im <= 1.42d-95) then
tmp = x_46re / y_46re
else if (x_46im <= 2.9d-95) then
tmp = x_46im / y_46im
else if (x_46im <= 4.4d-85) then
tmp = x_46re / y_46re
else if (x_46im <= 4.1d-72) then
tmp = x_46im / y_46im
else if (x_46im <= 4.2d-72) then
tmp = t_0
else if (x_46im <= 8.8d-62) then
tmp = x_46re / y_46re
else if (x_46im <= 2.6d-61) then
tmp = x_46im / y_46im
else if (x_46im <= 6.5d-58) then
tmp = x_46re / y_46re
else if (x_46im <= 1.35d-13) then
tmp = t_2
else if (x_46im <= 1.4d-13) then
tmp = x_46im / y_46re
else if (x_46im <= 4.6d+28) then
tmp = x_46re / y_46re
else if (x_46im <= 2.6d+38) then
tmp = x_46im / y_46im
else if (x_46im <= 9d+46) then
tmp = x_46re / y_46re
else if (x_46im <= 9.5d+46) then
tmp = x_46im / y_46re
else if (x_46im <= 7d+78) then
tmp = x_46re / y_46re
else if (x_46im <= 3.7d+117) then
tmp = x_46im / y_46im
else if (x_46im <= 3.8d+117) then
tmp = t_0
else if (x_46im <= 3.6d+131) then
tmp = x_46re / y_46re
else if (x_46im <= 6.2d+136) then
tmp = x_46im / y_46im
else if (x_46im <= 5.8d+170) then
tmp = x_46re / y_46re
else if (x_46im <= 6d+170) then
tmp = x_46im / y_46re
else if (x_46im <= 4.6d+185) then
tmp = x_46re / y_46re
else if (x_46im <= 5.8d+188) then
tmp = x_46im / y_46im
else if (x_46im <= 6d+188) then
tmp = x_46im / y_46re
else if (x_46im <= 1.35d+244) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d+244) then
tmp = x_46im / y_46re
else if (x_46im <= 1.25d+262) then
tmp = x_46im / y_46im
else if (x_46im <= 1.7d+272) then
tmp = x_46re / y_46re
else if (x_46im <= 1.7d+276) then
tmp = x_46im / y_46im
else if (x_46im <= 1.26d+277) then
tmp = t_0
else if ((x_46im <= 8.2d+298) .or. (.not. (x_46im <= 1.25d+300))) then
tmp = x_46im / y_46im
else
tmp = x_46re / 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 t_0 = -x_46_im / y_46_re;
double t_1 = x_46_re * (y_46_re / y_46_im);
double t_2 = (x_46_im + t_1) / y_46_im;
double t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double tmp;
if (x_46_im <= -1.05e-160) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.8e-290) {
tmp = t_2;
} else if (x_46_im <= 4.4e-284) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.4e-265) {
tmp = (x_46_re / y_46_im) / (y_46_im / y_46_re);
} else if (x_46_im <= 3.4e-257) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e-254) {
tmp = t_1 / y_46_im;
} else if (x_46_im <= 9.4e-247) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e-243) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.8e-193) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.2e-192) {
tmp = t_3;
} else if (x_46_im <= 2.5e-170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.1e-161) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e-158) {
tmp = t_3;
} else if (x_46_im <= 7.5e-141) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.8e-141) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4e-132) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2e-130) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-124) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.05e-115) {
tmp = t_3;
} else if (x_46_im <= 8.5e-114) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.65e-106) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.18e-101) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.42e-95) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.9e-95) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.4e-85) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 4.1e-72) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 4.2e-72) {
tmp = t_0;
} else if (x_46_im <= 8.8e-62) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.6e-61) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6.5e-58) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.35e-13) {
tmp = t_2;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4.6e+28) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 2.6e+38) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 7e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_0;
} else if (x_46_im <= 3.6e+131) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.2e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 4.6e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.25e+262) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.7e+272) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_0;
} else if ((x_46_im <= 8.2e+298) || !(x_46_im <= 1.25e+300)) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / y_46_re;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = -x_46_im / y_46_re t_1 = x_46_re * (y_46_re / y_46_im) t_2 = (x_46_im + t_1) / y_46_im t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im) tmp = 0 if x_46_im <= -1.05e-160: tmp = x_46_re / y_46_re elif x_46_im <= 9.8e-290: tmp = t_2 elif x_46_im <= 4.4e-284: tmp = x_46_re / y_46_re elif x_46_im <= 1.4e-265: tmp = (x_46_re / y_46_im) / (y_46_im / y_46_re) elif x_46_im <= 3.4e-257: tmp = x_46_re / y_46_re elif x_46_im <= 1.7e-254: tmp = t_1 / y_46_im elif x_46_im <= 9.4e-247: tmp = x_46_re / y_46_re elif x_46_im <= 9.5e-243: tmp = x_46_im / y_46_im elif x_46_im <= 1.8e-193: tmp = x_46_re / y_46_re elif x_46_im <= 3.2e-192: tmp = t_3 elif x_46_im <= 2.5e-170: tmp = x_46_re / y_46_re elif x_46_im <= 6.1e-161: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e-158: tmp = t_3 elif x_46_im <= 7.5e-141: tmp = x_46_re / y_46_re elif x_46_im <= 7.8e-141: tmp = x_46_im / y_46_re elif x_46_im <= 4e-132: tmp = x_46_re / y_46_re elif x_46_im <= 2e-130: tmp = x_46_im / y_46_im elif x_46_im <= 1.45e-124: tmp = x_46_re / y_46_re elif x_46_im <= 1.05e-115: tmp = t_3 elif x_46_im <= 8.5e-114: tmp = x_46_im / y_46_im elif x_46_im <= 1.65e-106: tmp = x_46_re / y_46_re elif x_46_im <= 1.18e-101: tmp = x_46_im / y_46_im elif x_46_im <= 1.42e-95: tmp = x_46_re / y_46_re elif x_46_im <= 2.9e-95: tmp = x_46_im / y_46_im elif x_46_im <= 4.4e-85: tmp = x_46_re / y_46_re elif x_46_im <= 4.1e-72: tmp = x_46_im / y_46_im elif x_46_im <= 4.2e-72: tmp = t_0 elif x_46_im <= 8.8e-62: tmp = x_46_re / y_46_re elif x_46_im <= 2.6e-61: tmp = x_46_im / y_46_im elif x_46_im <= 6.5e-58: tmp = x_46_re / y_46_re elif x_46_im <= 1.35e-13: tmp = t_2 elif x_46_im <= 1.4e-13: tmp = x_46_im / y_46_re elif x_46_im <= 4.6e+28: tmp = x_46_re / y_46_re elif x_46_im <= 2.6e+38: tmp = x_46_im / y_46_im elif x_46_im <= 9e+46: tmp = x_46_re / y_46_re elif x_46_im <= 9.5e+46: tmp = x_46_im / y_46_re elif x_46_im <= 7e+78: tmp = x_46_re / y_46_re elif x_46_im <= 3.7e+117: tmp = x_46_im / y_46_im elif x_46_im <= 3.8e+117: tmp = t_0 elif x_46_im <= 3.6e+131: tmp = x_46_re / y_46_re elif x_46_im <= 6.2e+136: tmp = x_46_im / y_46_im elif x_46_im <= 5.8e+170: tmp = x_46_re / y_46_re elif x_46_im <= 6e+170: tmp = x_46_im / y_46_re elif x_46_im <= 4.6e+185: tmp = x_46_re / y_46_re elif x_46_im <= 5.8e+188: tmp = x_46_im / y_46_im elif x_46_im <= 6e+188: tmp = x_46_im / y_46_re elif x_46_im <= 1.35e+244: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e+244: tmp = x_46_im / y_46_re elif x_46_im <= 1.25e+262: tmp = x_46_im / y_46_im elif x_46_im <= 1.7e+272: tmp = x_46_re / y_46_re elif x_46_im <= 1.7e+276: tmp = x_46_im / y_46_im elif x_46_im <= 1.26e+277: tmp = t_0 elif (x_46_im <= 8.2e+298) or not (x_46_im <= 1.25e+300): tmp = x_46_im / y_46_im else: tmp = x_46_re / y_46_re return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(Float64(-x_46_im) / y_46_re) t_1 = Float64(x_46_re * Float64(y_46_re / y_46_im)) t_2 = Float64(Float64(x_46_im + t_1) / y_46_im) t_3 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) tmp = 0.0 if (x_46_im <= -1.05e-160) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.8e-290) tmp = t_2; elseif (x_46_im <= 4.4e-284) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.4e-265) tmp = Float64(Float64(x_46_re / y_46_im) / Float64(y_46_im / y_46_re)); elseif (x_46_im <= 3.4e-257) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.7e-254) tmp = Float64(t_1 / y_46_im); elseif (x_46_im <= 9.4e-247) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.5e-243) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.8e-193) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.2e-192) tmp = t_3; elseif (x_46_im <= 2.5e-170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6.1e-161) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e-158) tmp = t_3; elseif (x_46_im <= 7.5e-141) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 7.8e-141) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 4e-132) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 2e-130) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.45e-124) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.05e-115) tmp = t_3; elseif (x_46_im <= 8.5e-114) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.65e-106) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.18e-101) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.42e-95) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 2.9e-95) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 4.4e-85) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 4.1e-72) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 4.2e-72) tmp = t_0; elseif (x_46_im <= 8.8e-62) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 2.6e-61) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6.5e-58) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.35e-13) tmp = t_2; elseif (x_46_im <= 1.4e-13) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 4.6e+28) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 2.6e+38) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 9e+46) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.5e+46) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 7e+78) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.7e+117) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 3.8e+117) tmp = t_0; elseif (x_46_im <= 3.6e+131) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6.2e+136) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.8e+170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6e+170) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 4.6e+185) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.8e+188) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6e+188) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.35e+244) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e+244) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.25e+262) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.7e+272) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.7e+276) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.26e+277) tmp = t_0; elseif ((x_46_im <= 8.2e+298) || !(x_46_im <= 1.25e+300)) tmp = Float64(x_46_im / y_46_im); else tmp = Float64(x_46_re / y_46_re); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = -x_46_im / y_46_re; t_1 = x_46_re * (y_46_re / y_46_im); t_2 = (x_46_im + t_1) / y_46_im; t_3 = x_46_re * ((y_46_re / y_46_im) / y_46_im); tmp = 0.0; if (x_46_im <= -1.05e-160) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.8e-290) tmp = t_2; elseif (x_46_im <= 4.4e-284) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.4e-265) tmp = (x_46_re / y_46_im) / (y_46_im / y_46_re); elseif (x_46_im <= 3.4e-257) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.7e-254) tmp = t_1 / y_46_im; elseif (x_46_im <= 9.4e-247) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.5e-243) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.8e-193) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.2e-192) tmp = t_3; elseif (x_46_im <= 2.5e-170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6.1e-161) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e-158) tmp = t_3; elseif (x_46_im <= 7.5e-141) tmp = x_46_re / y_46_re; elseif (x_46_im <= 7.8e-141) tmp = x_46_im / y_46_re; elseif (x_46_im <= 4e-132) tmp = x_46_re / y_46_re; elseif (x_46_im <= 2e-130) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.45e-124) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.05e-115) tmp = t_3; elseif (x_46_im <= 8.5e-114) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.65e-106) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.18e-101) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.42e-95) tmp = x_46_re / y_46_re; elseif (x_46_im <= 2.9e-95) tmp = x_46_im / y_46_im; elseif (x_46_im <= 4.4e-85) tmp = x_46_re / y_46_re; elseif (x_46_im <= 4.1e-72) tmp = x_46_im / y_46_im; elseif (x_46_im <= 4.2e-72) tmp = t_0; elseif (x_46_im <= 8.8e-62) tmp = x_46_re / y_46_re; elseif (x_46_im <= 2.6e-61) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6.5e-58) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.35e-13) tmp = t_2; elseif (x_46_im <= 1.4e-13) tmp = x_46_im / y_46_re; elseif (x_46_im <= 4.6e+28) tmp = x_46_re / y_46_re; elseif (x_46_im <= 2.6e+38) tmp = x_46_im / y_46_im; elseif (x_46_im <= 9e+46) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.5e+46) tmp = x_46_im / y_46_re; elseif (x_46_im <= 7e+78) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.7e+117) tmp = x_46_im / y_46_im; elseif (x_46_im <= 3.8e+117) tmp = t_0; elseif (x_46_im <= 3.6e+131) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6.2e+136) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.8e+170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6e+170) tmp = x_46_im / y_46_re; elseif (x_46_im <= 4.6e+185) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.8e+188) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6e+188) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.35e+244) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e+244) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.25e+262) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.7e+272) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.7e+276) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.26e+277) tmp = t_0; elseif ((x_46_im <= 8.2e+298) || ~((x_46_im <= 1.25e+300))) tmp = x_46_im / y_46_im; else tmp = x_46_re / y_46_re; 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$im) / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$46$im + t$95$1), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$3 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x$46$im, -1.05e-160], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.8e-290], t$95$2, If[LessEqual[x$46$im, 4.4e-284], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.4e-265], N[(N[(x$46$re / y$46$im), $MachinePrecision] / N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision], If[LessEqual[x$46$im, 3.4e-257], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.7e-254], N[(t$95$1 / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9.4e-247], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.5e-243], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.8e-193], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.2e-192], t$95$3, If[LessEqual[x$46$im, 2.5e-170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6.1e-161], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e-158], t$95$3, If[LessEqual[x$46$im, 7.5e-141], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 7.8e-141], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4e-132], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2e-130], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.45e-124], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.05e-115], t$95$3, If[LessEqual[x$46$im, 8.5e-114], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.65e-106], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.18e-101], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.42e-95], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.9e-95], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 4.4e-85], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4.1e-72], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 4.2e-72], t$95$0, If[LessEqual[x$46$im, 8.8e-62], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.6e-61], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6.5e-58], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e-13], t$95$2, If[LessEqual[x$46$im, 1.4e-13], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4.6e+28], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.6e+38], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9e+46], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.5e+46], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 7e+78], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.7e+117], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 3.8e+117], t$95$0, If[LessEqual[x$46$im, 3.6e+131], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6.2e+136], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6e+170], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 4.6e+185], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+188], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6e+188], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e+244], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+244], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.25e+262], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.7e+272], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.7e+276], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.26e+277], t$95$0, If[Or[LessEqual[x$46$im, 8.2e+298], N[Not[LessEqual[x$46$im, 1.25e+300]], $MachinePrecision]], N[(x$46$im / y$46$im), $MachinePrecision], N[(x$46$re / y$46$re), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x.im}{y.re}\\
t_1 := x.re \cdot \frac{y.re}{y.im}\\
t_2 := \frac{x.im + t\_1}{y.im}\\
t_3 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
\mathbf{if}\;x.im \leq -1.05 \cdot 10^{-160}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.8 \cdot 10^{-290}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x.im \leq 4.4 \cdot 10^{-284}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-265}:\\
\;\;\;\;\frac{\frac{x.re}{y.im}}{\frac{y.im}{y.re}}\\
\mathbf{elif}\;x.im \leq 3.4 \cdot 10^{-257}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{-254}:\\
\;\;\;\;\frac{t\_1}{y.im}\\
\mathbf{elif}\;x.im \leq 9.4 \cdot 10^{-247}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{-243}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.8 \cdot 10^{-193}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.2 \cdot 10^{-192}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x.im \leq 2.5 \cdot 10^{-170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6.1 \cdot 10^{-161}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-158}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x.im \leq 7.5 \cdot 10^{-141}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 7.8 \cdot 10^{-141}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 4 \cdot 10^{-132}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 2 \cdot 10^{-130}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.45 \cdot 10^{-124}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.05 \cdot 10^{-115}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x.im \leq 8.5 \cdot 10^{-114}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.65 \cdot 10^{-106}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.18 \cdot 10^{-101}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.42 \cdot 10^{-95}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 2.9 \cdot 10^{-95}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 4.4 \cdot 10^{-85}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 4.1 \cdot 10^{-72}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 4.2 \cdot 10^{-72}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 8.8 \cdot 10^{-62}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 2.6 \cdot 10^{-61}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6.5 \cdot 10^{-58}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{-13}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-13}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 4.6 \cdot 10^{+28}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 2.6 \cdot 10^{+38}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 9 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 7 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.7 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 3.8 \cdot 10^{+117}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 3.6 \cdot 10^{+131}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6.2 \cdot 10^{+136}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 4.6 \cdot 10^{+185}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.25 \cdot 10^{+262}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{+272}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{+276}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.26 \cdot 10^{+277}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 8.2 \cdot 10^{+298} \lor \neg \left(x.im \leq 1.25 \cdot 10^{+300}\right):\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\end{array}
\end{array}
if x.im < -1.05e-160 or 9.8000000000000002e-290 < x.im < 4.4000000000000001e-284 or 1.40000000000000012e-265 < x.im < 3.3999999999999998e-257 or 1.69999999999999996e-254 < x.im < 9.3999999999999996e-247 or 9.5000000000000005e-243 < x.im < 1.7999999999999999e-193 or 3.2000000000000002e-192 < x.im < 2.50000000000000005e-170 or 1.40000000000000001e-158 < x.im < 7.50000000000000046e-141 or 7.7999999999999994e-141 < x.im < 3.9999999999999999e-132 or 2.0000000000000002e-130 < x.im < 1.4500000000000001e-124 or 8.5000000000000006e-114 < x.im < 1.65000000000000008e-106 or 1.1800000000000001e-101 < x.im < 1.42000000000000007e-95 or 2.90000000000000002e-95 < x.im < 4.4e-85 or 4.2e-72 < x.im < 8.80000000000000069e-62 or 2.6000000000000001e-61 < x.im < 6.49999999999999964e-58 or 1.4000000000000001e-13 < x.im < 4.59999999999999968e28 or 2.5999999999999999e38 < x.im < 9.00000000000000019e46 or 9.5000000000000008e46 < x.im < 7.0000000000000003e78 or 3.8000000000000002e117 < x.im < 3.60000000000000031e131 or 6.19999999999999967e136 < x.im < 5.8000000000000001e170 or 5.99999999999999994e170 < x.im < 4.6000000000000003e185 or 1.25000000000000002e262 < x.im < 1.70000000000000005e272 or 8.20000000000000032e298 < x.im < 1.25000000000000007e300Initial program 58.1%
Taylor expanded in y.re around inf 67.2%
if -1.05e-160 < x.im < 9.8000000000000002e-290 or 6.49999999999999964e-58 < x.im < 1.35000000000000005e-13Initial program 75.1%
Taylor expanded in y.im around inf 62.3%
associate-/l*66.1%
Simplified66.1%
if 4.4000000000000001e-284 < x.im < 1.40000000000000012e-265Initial program 100.0%
Taylor expanded in y.im around inf 100.0%
associate-/l*99.7%
Simplified99.7%
Taylor expanded in x.im around 0 100.0%
associate-/l*99.7%
Simplified99.7%
*-un-lft-identity99.7%
unpow299.7%
times-frac100.0%
Applied egg-rr100.0%
associate-*r*99.7%
div-inv99.7%
clear-num99.7%
un-div-inv100.0%
Applied egg-rr100.0%
if 3.3999999999999998e-257 < x.im < 1.69999999999999996e-254Initial program 57.6%
Taylor expanded in y.im around inf 100.0%
associate-/l*100.0%
Simplified100.0%
Taylor expanded in x.im around 0 57.6%
associate-/l*57.6%
Simplified57.6%
*-un-lft-identity57.6%
unpow257.6%
times-frac56.8%
Applied egg-rr56.8%
*-commutative56.8%
associate-*l/56.8%
*-un-lft-identity56.8%
associate-*l/100.0%
Applied egg-rr100.0%
if 9.3999999999999996e-247 < x.im < 9.5000000000000005e-243 or 2.50000000000000005e-170 < x.im < 6.10000000000000015e-161 or 3.9999999999999999e-132 < x.im < 2.0000000000000002e-130 or 1.05000000000000001e-115 < x.im < 8.5000000000000006e-114 or 1.65000000000000008e-106 < x.im < 1.1800000000000001e-101 or 1.42000000000000007e-95 < x.im < 2.90000000000000002e-95 or 4.4e-85 < x.im < 4.10000000000000003e-72 or 8.80000000000000069e-62 < x.im < 2.6000000000000001e-61 or 4.59999999999999968e28 < x.im < 2.5999999999999999e38 or 7.0000000000000003e78 < x.im < 3.6999999999999999e117 or 3.60000000000000031e131 < x.im < 6.19999999999999967e136 or 4.6000000000000003e185 < x.im < 5.7999999999999999e188 or 6.0000000000000001e188 < x.im < 1.34999999999999999e244 or 1.39999999999999995e244 < x.im < 1.25000000000000002e262 or 1.70000000000000005e272 < x.im < 1.69999999999999992e276 or 1.25999999999999995e277 < x.im < 8.20000000000000032e298 or 1.25000000000000007e300 < x.im Initial program 51.3%
Taylor expanded in y.re around 0 97.9%
if 1.7999999999999999e-193 < x.im < 3.2000000000000002e-192 or 6.10000000000000015e-161 < x.im < 1.40000000000000001e-158 or 1.4500000000000001e-124 < x.im < 1.05000000000000001e-115Initial program 81.0%
Taylor expanded in y.im around inf 80.7%
associate-/l*80.7%
Simplified80.7%
Taylor expanded in x.im around 0 61.9%
associate-/l*62.7%
Simplified62.7%
*-un-lft-identity62.7%
unpow262.7%
times-frac81.7%
Applied egg-rr81.7%
associate-*l/81.7%
*-un-lft-identity81.7%
Applied egg-rr81.7%
if 7.50000000000000046e-141 < x.im < 7.7999999999999994e-141 or 1.35000000000000005e-13 < x.im < 1.4000000000000001e-13 or 9.00000000000000019e46 < x.im < 9.5000000000000008e46 or 5.8000000000000001e170 < x.im < 5.99999999999999994e170 or 5.7999999999999999e188 < x.im < 6.0000000000000001e188 or 1.34999999999999999e244 < x.im < 1.39999999999999995e244Initial program 83.2%
*-un-lft-identity83.2%
add-sqr-sqrt83.2%
times-frac83.7%
hypot-define83.7%
fma-define83.7%
hypot-define83.7%
Applied egg-rr83.7%
Taylor expanded in y.im around -inf 4.7%
mul-1-neg4.7%
Simplified4.7%
Taylor expanded in y.re around -inf 7.4%
if 4.10000000000000003e-72 < x.im < 4.2e-72 or 3.6999999999999999e117 < x.im < 3.8000000000000002e117 or 1.69999999999999992e276 < x.im < 1.25999999999999995e277Initial program 49.6%
*-un-lft-identity49.6%
add-sqr-sqrt49.6%
times-frac49.2%
hypot-define49.2%
fma-define49.2%
hypot-define50.5%
Applied egg-rr50.5%
Taylor expanded in y.im around -inf 4.8%
mul-1-neg4.8%
Simplified4.8%
Taylor expanded in y.re around inf 8.0%
associate-*r/8.0%
mul-1-neg8.0%
Simplified8.0%
Final simplification69.5%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (+ x.re (* x.im (/ y.im y.re))) y.re))
(t_1 (* x.re (/ y.re y.im)))
(t_2 (* x.re (/ (/ y.re y.im) y.im)))
(t_3 (/ (+ x.re (* y.im (/ x.im y.re))) y.re))
(t_4 (/ (+ x.im (/ (* x.re y.re) y.im)) y.im))
(t_5 (+ (* y.re y.re) (* y.im y.im)))
(t_6 (/ (+ x.im t_1) y.im))
(t_7 (/ t_1 y.im)))
(if (<= y.re -7.2e-51)
t_3
(if (<= y.re -1.6e-76)
t_6
(if (<= y.re -2e-80)
(/ x.re y.re)
(if (<= y.re -5e-81)
(/ 1.0 (/ y.im (* y.re (/ x.re y.im))))
(if (<= y.re -3.4e-81)
(/ x.re y.re)
(if (<= y.re -2.8e-95)
(/ x.im y.im)
(if (<= y.re -1.7e-103)
(/ (* x.im y.im) t_5)
(if (<= y.re -1.6e-105)
(/ (+ x.re (/ x.im (/ y.re y.im))) y.re)
(if (<= y.re -1.55e-170)
t_6
(if (<= y.re -1.5e-170)
(/ x.re y.re)
(if (<= y.re -7e-194)
t_6
(if (<= y.re -1.45e-198)
t_0
(if (<= y.re -3e-297)
t_6
(if (<= y.re 2.25e-263)
t_4
(if (<= y.re 4e-263)
t_0
(if (<= y.re 2.1e-262)
t_2
(if (<= y.re 1.3e-210)
t_6
(if (<= y.re 7.5e-210)
(/ x.re y.re)
(if (<= y.re 7e-207)
t_2
(if (<= y.re 4.1e-165)
t_4
(if (<= y.re 8.4e-150)
t_3
(if (<= y.re 8.5e-123)
t_6
(if (<= y.re 9e-123)
(/ x.re y.re)
(if (<= y.re 3.05e-102)
t_6
(if (<= y.re 1.15e-98)
(/ x.re y.re)
(if (<= y.re 2.6e-85)
(/ x.im y.im)
(if (<= y.re 3.2e-84)
(/ x.re y.re)
(if (<= y.re 6e-24)
(/
(* x.re y.re)
t_5)
(if (<=
y.re
175000000000.0)
(/ x.re y.re)
(if (<=
y.re
5.2e+19)
(/ x.im y.im)
(if (<=
y.re
1.08e+35)
t_0
(if (<=
y.re
3.95e+37)
(/
x.im
y.im)
(if (<=
y.re
1.2e+57)
t_0
(if (<=
y.re
1.25e+57)
(/
x.im
y.im)
(if (<=
y.re
1.55e+78)
t_0
(if (<=
y.re
1.62e+78)
(/
x.im
y.im)
(if (<=
y.re
5.5e+101)
t_3
(if (<=
y.re
5.8e+101)
(/
x.im
y.im)
(if (<=
y.re
3.5e+117)
(/
x.re
y.re)
(if (<=
y.re
3.6e+117)
t_7
(if (<=
y.re
2e+136)
t_0
(if (<=
y.re
2.02e+136)
t_7
(if (<=
y.re
2.1e+163)
(/
x.re
y.re)
(if (<=
y.re
2.15e+163)
(/
x.im
y.im)
(if (<=
y.re
2.7e+171)
(/
x.re
y.re)
(if (<=
y.re
2.8e+171)
t_6
(if (<=
y.re
2.2e+198)
(/
x.re
y.re)
(if (<=
y.re
2.3e+198)
(/
x.im
y.im)
(if (<=
y.re
2.9e+207)
t_3
(if (<=
y.re
3e+207)
t_6
(if (<=
y.re
2.35e+224)
(/
x.re
y.re)
(if (<=
y.re
2.4e+224)
(/
x.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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_1 = x_46_re * (y_46_re / y_46_im);
double t_2 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_4 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_5 = (y_46_re * y_46_re) + (y_46_im * y_46_im);
double t_6 = (x_46_im + t_1) / y_46_im;
double t_7 = t_1 / y_46_im;
double tmp;
if (y_46_re <= -7.2e-51) {
tmp = t_3;
} else if (y_46_re <= -1.6e-76) {
tmp = t_6;
} else if (y_46_re <= -2e-80) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -5e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -3.4e-81) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -2.8e-95) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.7e-103) {
tmp = (x_46_im * y_46_im) / t_5;
} else if (y_46_re <= -1.6e-105) {
tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
} else if (y_46_re <= -1.55e-170) {
tmp = t_6;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_6;
} else if (y_46_re <= -1.45e-198) {
tmp = t_0;
} else if (y_46_re <= -3e-297) {
tmp = t_6;
} else if (y_46_re <= 2.25e-263) {
tmp = t_4;
} else if (y_46_re <= 4e-263) {
tmp = t_0;
} else if (y_46_re <= 2.1e-262) {
tmp = t_2;
} else if (y_46_re <= 1.3e-210) {
tmp = t_6;
} else if (y_46_re <= 7.5e-210) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_2;
} else if (y_46_re <= 4.1e-165) {
tmp = t_4;
} else if (y_46_re <= 8.4e-150) {
tmp = t_3;
} else if (y_46_re <= 8.5e-123) {
tmp = t_6;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_6;
} else if (y_46_re <= 1.15e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.6e-85) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.2e-84) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 6e-24) {
tmp = (x_46_re * y_46_re) / t_5;
} else if (y_46_re <= 175000000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 5.2e+19) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.08e+35) {
tmp = t_0;
} else if (y_46_re <= 3.95e+37) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_0;
} else if (y_46_re <= 1.25e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.55e+78) {
tmp = t_0;
} else if (y_46_re <= 1.62e+78) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e+101) {
tmp = t_3;
} else if (y_46_re <= 5.8e+101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_7;
} else if (y_46_re <= 2e+136) {
tmp = t_0;
} else if (y_46_re <= 2.02e+136) {
tmp = t_7;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_6;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = t_3;
} else if (y_46_re <= 3e+207) {
tmp = t_6;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_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) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: tmp
t_0 = (x_46re + (x_46im * (y_46im / y_46re))) / y_46re
t_1 = x_46re * (y_46re / y_46im)
t_2 = x_46re * ((y_46re / y_46im) / y_46im)
t_3 = (x_46re + (y_46im * (x_46im / y_46re))) / y_46re
t_4 = (x_46im + ((x_46re * y_46re) / y_46im)) / y_46im
t_5 = (y_46re * y_46re) + (y_46im * y_46im)
t_6 = (x_46im + t_1) / y_46im
t_7 = t_1 / y_46im
if (y_46re <= (-7.2d-51)) then
tmp = t_3
else if (y_46re <= (-1.6d-76)) then
tmp = t_6
else if (y_46re <= (-2d-80)) then
tmp = x_46re / y_46re
else if (y_46re <= (-5d-81)) then
tmp = 1.0d0 / (y_46im / (y_46re * (x_46re / y_46im)))
else if (y_46re <= (-3.4d-81)) then
tmp = x_46re / y_46re
else if (y_46re <= (-2.8d-95)) then
tmp = x_46im / y_46im
else if (y_46re <= (-1.7d-103)) then
tmp = (x_46im * y_46im) / t_5
else if (y_46re <= (-1.6d-105)) then
tmp = (x_46re + (x_46im / (y_46re / y_46im))) / y_46re
else if (y_46re <= (-1.55d-170)) then
tmp = t_6
else if (y_46re <= (-1.5d-170)) then
tmp = x_46re / y_46re
else if (y_46re <= (-7d-194)) then
tmp = t_6
else if (y_46re <= (-1.45d-198)) then
tmp = t_0
else if (y_46re <= (-3d-297)) then
tmp = t_6
else if (y_46re <= 2.25d-263) then
tmp = t_4
else if (y_46re <= 4d-263) then
tmp = t_0
else if (y_46re <= 2.1d-262) then
tmp = t_2
else if (y_46re <= 1.3d-210) then
tmp = t_6
else if (y_46re <= 7.5d-210) then
tmp = x_46re / y_46re
else if (y_46re <= 7d-207) then
tmp = t_2
else if (y_46re <= 4.1d-165) then
tmp = t_4
else if (y_46re <= 8.4d-150) then
tmp = t_3
else if (y_46re <= 8.5d-123) then
tmp = t_6
else if (y_46re <= 9d-123) then
tmp = x_46re / y_46re
else if (y_46re <= 3.05d-102) then
tmp = t_6
else if (y_46re <= 1.15d-98) then
tmp = x_46re / y_46re
else if (y_46re <= 2.6d-85) then
tmp = x_46im / y_46im
else if (y_46re <= 3.2d-84) then
tmp = x_46re / y_46re
else if (y_46re <= 6d-24) then
tmp = (x_46re * y_46re) / t_5
else if (y_46re <= 175000000000.0d0) then
tmp = x_46re / y_46re
else if (y_46re <= 5.2d+19) then
tmp = x_46im / y_46im
else if (y_46re <= 1.08d+35) then
tmp = t_0
else if (y_46re <= 3.95d+37) then
tmp = x_46im / y_46im
else if (y_46re <= 1.2d+57) then
tmp = t_0
else if (y_46re <= 1.25d+57) then
tmp = x_46im / y_46im
else if (y_46re <= 1.55d+78) then
tmp = t_0
else if (y_46re <= 1.62d+78) then
tmp = x_46im / y_46im
else if (y_46re <= 5.5d+101) then
tmp = t_3
else if (y_46re <= 5.8d+101) then
tmp = x_46im / y_46im
else if (y_46re <= 3.5d+117) then
tmp = x_46re / y_46re
else if (y_46re <= 3.6d+117) then
tmp = t_7
else if (y_46re <= 2d+136) then
tmp = t_0
else if (y_46re <= 2.02d+136) then
tmp = t_7
else if (y_46re <= 2.1d+163) then
tmp = x_46re / y_46re
else if (y_46re <= 2.15d+163) then
tmp = x_46im / y_46im
else if (y_46re <= 2.7d+171) then
tmp = x_46re / y_46re
else if (y_46re <= 2.8d+171) then
tmp = t_6
else if (y_46re <= 2.2d+198) then
tmp = x_46re / y_46re
else if (y_46re <= 2.3d+198) then
tmp = x_46im / y_46im
else if (y_46re <= 2.9d+207) then
tmp = t_3
else if (y_46re <= 3d+207) then
tmp = t_6
else if (y_46re <= 2.35d+224) then
tmp = x_46re / y_46re
else if (y_46re <= 2.4d+224) then
tmp = x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re;
double t_1 = x_46_re * (y_46_re / y_46_im);
double t_2 = x_46_re * ((y_46_re / y_46_im) / y_46_im);
double t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re;
double t_4 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im;
double t_5 = (y_46_re * y_46_re) + (y_46_im * y_46_im);
double t_6 = (x_46_im + t_1) / y_46_im;
double t_7 = t_1 / y_46_im;
double tmp;
if (y_46_re <= -7.2e-51) {
tmp = t_3;
} else if (y_46_re <= -1.6e-76) {
tmp = t_6;
} else if (y_46_re <= -2e-80) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -5e-81) {
tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im)));
} else if (y_46_re <= -3.4e-81) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -2.8e-95) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= -1.7e-103) {
tmp = (x_46_im * y_46_im) / t_5;
} else if (y_46_re <= -1.6e-105) {
tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re;
} else if (y_46_re <= -1.55e-170) {
tmp = t_6;
} else if (y_46_re <= -1.5e-170) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= -7e-194) {
tmp = t_6;
} else if (y_46_re <= -1.45e-198) {
tmp = t_0;
} else if (y_46_re <= -3e-297) {
tmp = t_6;
} else if (y_46_re <= 2.25e-263) {
tmp = t_4;
} else if (y_46_re <= 4e-263) {
tmp = t_0;
} else if (y_46_re <= 2.1e-262) {
tmp = t_2;
} else if (y_46_re <= 1.3e-210) {
tmp = t_6;
} else if (y_46_re <= 7.5e-210) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 7e-207) {
tmp = t_2;
} else if (y_46_re <= 4.1e-165) {
tmp = t_4;
} else if (y_46_re <= 8.4e-150) {
tmp = t_3;
} else if (y_46_re <= 8.5e-123) {
tmp = t_6;
} else if (y_46_re <= 9e-123) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.05e-102) {
tmp = t_6;
} else if (y_46_re <= 1.15e-98) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.6e-85) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.2e-84) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 6e-24) {
tmp = (x_46_re * y_46_re) / t_5;
} else if (y_46_re <= 175000000000.0) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 5.2e+19) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.08e+35) {
tmp = t_0;
} else if (y_46_re <= 3.95e+37) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.2e+57) {
tmp = t_0;
} else if (y_46_re <= 1.25e+57) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 1.55e+78) {
tmp = t_0;
} else if (y_46_re <= 1.62e+78) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 5.5e+101) {
tmp = t_3;
} else if (y_46_re <= 5.8e+101) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 3.5e+117) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 3.6e+117) {
tmp = t_7;
} else if (y_46_re <= 2e+136) {
tmp = t_0;
} else if (y_46_re <= 2.02e+136) {
tmp = t_7;
} else if (y_46_re <= 2.1e+163) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.15e+163) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.7e+171) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.8e+171) {
tmp = t_6;
} else if (y_46_re <= 2.2e+198) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.3e+198) {
tmp = x_46_im / y_46_im;
} else if (y_46_re <= 2.9e+207) {
tmp = t_3;
} else if (y_46_re <= 3e+207) {
tmp = t_6;
} else if (y_46_re <= 2.35e+224) {
tmp = x_46_re / y_46_re;
} else if (y_46_re <= 2.4e+224) {
tmp = x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re t_1 = x_46_re * (y_46_re / y_46_im) t_2 = x_46_re * ((y_46_re / y_46_im) / y_46_im) t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re t_4 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im t_5 = (y_46_re * y_46_re) + (y_46_im * y_46_im) t_6 = (x_46_im + t_1) / y_46_im t_7 = t_1 / y_46_im tmp = 0 if y_46_re <= -7.2e-51: tmp = t_3 elif y_46_re <= -1.6e-76: tmp = t_6 elif y_46_re <= -2e-80: tmp = x_46_re / y_46_re elif y_46_re <= -5e-81: tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))) elif y_46_re <= -3.4e-81: tmp = x_46_re / y_46_re elif y_46_re <= -2.8e-95: tmp = x_46_im / y_46_im elif y_46_re <= -1.7e-103: tmp = (x_46_im * y_46_im) / t_5 elif y_46_re <= -1.6e-105: tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re elif y_46_re <= -1.55e-170: tmp = t_6 elif y_46_re <= -1.5e-170: tmp = x_46_re / y_46_re elif y_46_re <= -7e-194: tmp = t_6 elif y_46_re <= -1.45e-198: tmp = t_0 elif y_46_re <= -3e-297: tmp = t_6 elif y_46_re <= 2.25e-263: tmp = t_4 elif y_46_re <= 4e-263: tmp = t_0 elif y_46_re <= 2.1e-262: tmp = t_2 elif y_46_re <= 1.3e-210: tmp = t_6 elif y_46_re <= 7.5e-210: tmp = x_46_re / y_46_re elif y_46_re <= 7e-207: tmp = t_2 elif y_46_re <= 4.1e-165: tmp = t_4 elif y_46_re <= 8.4e-150: tmp = t_3 elif y_46_re <= 8.5e-123: tmp = t_6 elif y_46_re <= 9e-123: tmp = x_46_re / y_46_re elif y_46_re <= 3.05e-102: tmp = t_6 elif y_46_re <= 1.15e-98: tmp = x_46_re / y_46_re elif y_46_re <= 2.6e-85: tmp = x_46_im / y_46_im elif y_46_re <= 3.2e-84: tmp = x_46_re / y_46_re elif y_46_re <= 6e-24: tmp = (x_46_re * y_46_re) / t_5 elif y_46_re <= 175000000000.0: tmp = x_46_re / y_46_re elif y_46_re <= 5.2e+19: tmp = x_46_im / y_46_im elif y_46_re <= 1.08e+35: tmp = t_0 elif y_46_re <= 3.95e+37: tmp = x_46_im / y_46_im elif y_46_re <= 1.2e+57: tmp = t_0 elif y_46_re <= 1.25e+57: tmp = x_46_im / y_46_im elif y_46_re <= 1.55e+78: tmp = t_0 elif y_46_re <= 1.62e+78: tmp = x_46_im / y_46_im elif y_46_re <= 5.5e+101: tmp = t_3 elif y_46_re <= 5.8e+101: tmp = x_46_im / y_46_im elif y_46_re <= 3.5e+117: tmp = x_46_re / y_46_re elif y_46_re <= 3.6e+117: tmp = t_7 elif y_46_re <= 2e+136: tmp = t_0 elif y_46_re <= 2.02e+136: tmp = t_7 elif y_46_re <= 2.1e+163: tmp = x_46_re / y_46_re elif y_46_re <= 2.15e+163: tmp = x_46_im / y_46_im elif y_46_re <= 2.7e+171: tmp = x_46_re / y_46_re elif y_46_re <= 2.8e+171: tmp = t_6 elif y_46_re <= 2.2e+198: tmp = x_46_re / y_46_re elif y_46_re <= 2.3e+198: tmp = x_46_im / y_46_im elif y_46_re <= 2.9e+207: tmp = t_3 elif y_46_re <= 3e+207: tmp = t_6 elif y_46_re <= 2.35e+224: tmp = x_46_re / y_46_re elif y_46_re <= 2.4e+224: tmp = x_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 + Float64(x_46_im * Float64(y_46_im / y_46_re))) / y_46_re) t_1 = Float64(x_46_re * Float64(y_46_re / y_46_im)) t_2 = Float64(x_46_re * Float64(Float64(y_46_re / y_46_im) / y_46_im)) t_3 = Float64(Float64(x_46_re + Float64(y_46_im * Float64(x_46_im / y_46_re))) / y_46_re) t_4 = Float64(Float64(x_46_im + Float64(Float64(x_46_re * y_46_re) / y_46_im)) / y_46_im) t_5 = Float64(Float64(y_46_re * y_46_re) + Float64(y_46_im * y_46_im)) t_6 = Float64(Float64(x_46_im + t_1) / y_46_im) t_7 = Float64(t_1 / y_46_im) tmp = 0.0 if (y_46_re <= -7.2e-51) tmp = t_3; elseif (y_46_re <= -1.6e-76) tmp = t_6; elseif (y_46_re <= -2e-80) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -5e-81) tmp = Float64(1.0 / Float64(y_46_im / Float64(y_46_re * Float64(x_46_re / y_46_im)))); elseif (y_46_re <= -3.4e-81) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -2.8e-95) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= -1.7e-103) tmp = Float64(Float64(x_46_im * y_46_im) / t_5); elseif (y_46_re <= -1.6e-105) tmp = Float64(Float64(x_46_re + Float64(x_46_im / Float64(y_46_re / y_46_im))) / y_46_re); elseif (y_46_re <= -1.55e-170) tmp = t_6; elseif (y_46_re <= -1.5e-170) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= -7e-194) tmp = t_6; elseif (y_46_re <= -1.45e-198) tmp = t_0; elseif (y_46_re <= -3e-297) tmp = t_6; elseif (y_46_re <= 2.25e-263) tmp = t_4; elseif (y_46_re <= 4e-263) tmp = t_0; elseif (y_46_re <= 2.1e-262) tmp = t_2; elseif (y_46_re <= 1.3e-210) tmp = t_6; elseif (y_46_re <= 7.5e-210) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 7e-207) tmp = t_2; elseif (y_46_re <= 4.1e-165) tmp = t_4; elseif (y_46_re <= 8.4e-150) tmp = t_3; elseif (y_46_re <= 8.5e-123) tmp = t_6; elseif (y_46_re <= 9e-123) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.05e-102) tmp = t_6; elseif (y_46_re <= 1.15e-98) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.6e-85) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.2e-84) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 6e-24) tmp = Float64(Float64(x_46_re * y_46_re) / t_5); elseif (y_46_re <= 175000000000.0) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 5.2e+19) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.08e+35) tmp = t_0; elseif (y_46_re <= 3.95e+37) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.2e+57) tmp = t_0; elseif (y_46_re <= 1.25e+57) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 1.55e+78) tmp = t_0; elseif (y_46_re <= 1.62e+78) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 5.5e+101) tmp = t_3; elseif (y_46_re <= 5.8e+101) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 3.5e+117) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 3.6e+117) tmp = t_7; elseif (y_46_re <= 2e+136) tmp = t_0; elseif (y_46_re <= 2.02e+136) tmp = t_7; elseif (y_46_re <= 2.1e+163) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.15e+163) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.7e+171) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.8e+171) tmp = t_6; elseif (y_46_re <= 2.2e+198) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.3e+198) tmp = Float64(x_46_im / y_46_im); elseif (y_46_re <= 2.9e+207) tmp = t_3; elseif (y_46_re <= 3e+207) tmp = t_6; elseif (y_46_re <= 2.35e+224) tmp = Float64(x_46_re / y_46_re); elseif (y_46_re <= 2.4e+224) tmp = Float64(x_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 + (x_46_im * (y_46_im / y_46_re))) / y_46_re; t_1 = x_46_re * (y_46_re / y_46_im); t_2 = x_46_re * ((y_46_re / y_46_im) / y_46_im); t_3 = (x_46_re + (y_46_im * (x_46_im / y_46_re))) / y_46_re; t_4 = (x_46_im + ((x_46_re * y_46_re) / y_46_im)) / y_46_im; t_5 = (y_46_re * y_46_re) + (y_46_im * y_46_im); t_6 = (x_46_im + t_1) / y_46_im; t_7 = t_1 / y_46_im; tmp = 0.0; if (y_46_re <= -7.2e-51) tmp = t_3; elseif (y_46_re <= -1.6e-76) tmp = t_6; elseif (y_46_re <= -2e-80) tmp = x_46_re / y_46_re; elseif (y_46_re <= -5e-81) tmp = 1.0 / (y_46_im / (y_46_re * (x_46_re / y_46_im))); elseif (y_46_re <= -3.4e-81) tmp = x_46_re / y_46_re; elseif (y_46_re <= -2.8e-95) tmp = x_46_im / y_46_im; elseif (y_46_re <= -1.7e-103) tmp = (x_46_im * y_46_im) / t_5; elseif (y_46_re <= -1.6e-105) tmp = (x_46_re + (x_46_im / (y_46_re / y_46_im))) / y_46_re; elseif (y_46_re <= -1.55e-170) tmp = t_6; elseif (y_46_re <= -1.5e-170) tmp = x_46_re / y_46_re; elseif (y_46_re <= -7e-194) tmp = t_6; elseif (y_46_re <= -1.45e-198) tmp = t_0; elseif (y_46_re <= -3e-297) tmp = t_6; elseif (y_46_re <= 2.25e-263) tmp = t_4; elseif (y_46_re <= 4e-263) tmp = t_0; elseif (y_46_re <= 2.1e-262) tmp = t_2; elseif (y_46_re <= 1.3e-210) tmp = t_6; elseif (y_46_re <= 7.5e-210) tmp = x_46_re / y_46_re; elseif (y_46_re <= 7e-207) tmp = t_2; elseif (y_46_re <= 4.1e-165) tmp = t_4; elseif (y_46_re <= 8.4e-150) tmp = t_3; elseif (y_46_re <= 8.5e-123) tmp = t_6; elseif (y_46_re <= 9e-123) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.05e-102) tmp = t_6; elseif (y_46_re <= 1.15e-98) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.6e-85) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.2e-84) tmp = x_46_re / y_46_re; elseif (y_46_re <= 6e-24) tmp = (x_46_re * y_46_re) / t_5; elseif (y_46_re <= 175000000000.0) tmp = x_46_re / y_46_re; elseif (y_46_re <= 5.2e+19) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.08e+35) tmp = t_0; elseif (y_46_re <= 3.95e+37) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.2e+57) tmp = t_0; elseif (y_46_re <= 1.25e+57) tmp = x_46_im / y_46_im; elseif (y_46_re <= 1.55e+78) tmp = t_0; elseif (y_46_re <= 1.62e+78) tmp = x_46_im / y_46_im; elseif (y_46_re <= 5.5e+101) tmp = t_3; elseif (y_46_re <= 5.8e+101) tmp = x_46_im / y_46_im; elseif (y_46_re <= 3.5e+117) tmp = x_46_re / y_46_re; elseif (y_46_re <= 3.6e+117) tmp = t_7; elseif (y_46_re <= 2e+136) tmp = t_0; elseif (y_46_re <= 2.02e+136) tmp = t_7; elseif (y_46_re <= 2.1e+163) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.15e+163) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.7e+171) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.8e+171) tmp = t_6; elseif (y_46_re <= 2.2e+198) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.3e+198) tmp = x_46_im / y_46_im; elseif (y_46_re <= 2.9e+207) tmp = t_3; elseif (y_46_re <= 3e+207) tmp = t_6; elseif (y_46_re <= 2.35e+224) tmp = x_46_re / y_46_re; elseif (y_46_re <= 2.4e+224) tmp = x_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[(N[(x$46$re + N[(x$46$im * N[(y$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$1 = N[(x$46$re * N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x$46$re * N[(N[(y$46$re / y$46$im), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x$46$re + N[(y$46$im * N[(x$46$im / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x$46$im + N[(N[(x$46$re * y$46$re), $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$5 = N[(N[(y$46$re * y$46$re), $MachinePrecision] + N[(y$46$im * y$46$im), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(x$46$im + t$95$1), $MachinePrecision] / y$46$im), $MachinePrecision]}, Block[{t$95$7 = N[(t$95$1 / y$46$im), $MachinePrecision]}, If[LessEqual[y$46$re, -7.2e-51], t$95$3, If[LessEqual[y$46$re, -1.6e-76], t$95$6, If[LessEqual[y$46$re, -2e-80], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -5e-81], N[(1.0 / N[(y$46$im / N[(y$46$re * N[(x$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, -3.4e-81], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -2.8e-95], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, -1.7e-103], N[(N[(x$46$im * y$46$im), $MachinePrecision] / t$95$5), $MachinePrecision], If[LessEqual[y$46$re, -1.6e-105], N[(N[(x$46$re + N[(x$46$im / N[(y$46$re / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -1.55e-170], t$95$6, If[LessEqual[y$46$re, -1.5e-170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, -7e-194], t$95$6, If[LessEqual[y$46$re, -1.45e-198], t$95$0, If[LessEqual[y$46$re, -3e-297], t$95$6, If[LessEqual[y$46$re, 2.25e-263], t$95$4, If[LessEqual[y$46$re, 4e-263], t$95$0, If[LessEqual[y$46$re, 2.1e-262], t$95$2, If[LessEqual[y$46$re, 1.3e-210], t$95$6, If[LessEqual[y$46$re, 7.5e-210], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 7e-207], t$95$2, If[LessEqual[y$46$re, 4.1e-165], t$95$4, If[LessEqual[y$46$re, 8.4e-150], t$95$3, If[LessEqual[y$46$re, 8.5e-123], t$95$6, If[LessEqual[y$46$re, 9e-123], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.05e-102], t$95$6, If[LessEqual[y$46$re, 1.15e-98], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.6e-85], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.2e-84], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 6e-24], N[(N[(x$46$re * y$46$re), $MachinePrecision] / t$95$5), $MachinePrecision], If[LessEqual[y$46$re, 175000000000.0], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 5.2e+19], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.08e+35], t$95$0, If[LessEqual[y$46$re, 3.95e+37], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.2e+57], t$95$0, If[LessEqual[y$46$re, 1.25e+57], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 1.55e+78], t$95$0, If[LessEqual[y$46$re, 1.62e+78], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 5.5e+101], t$95$3, If[LessEqual[y$46$re, 5.8e+101], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 3.5e+117], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 3.6e+117], t$95$7, If[LessEqual[y$46$re, 2e+136], t$95$0, If[LessEqual[y$46$re, 2.02e+136], t$95$7, If[LessEqual[y$46$re, 2.1e+163], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.15e+163], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.7e+171], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.8e+171], t$95$6, If[LessEqual[y$46$re, 2.2e+198], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.3e+198], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[y$46$re, 2.9e+207], t$95$3, If[LessEqual[y$46$re, 3e+207], t$95$6, If[LessEqual[y$46$re, 2.35e+224], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[y$46$re, 2.4e+224], N[(x$46$im / y$46$im), $MachinePrecision], t$95$0]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{x.re + x.im \cdot \frac{y.im}{y.re}}{y.re}\\
t_1 := x.re \cdot \frac{y.re}{y.im}\\
t_2 := x.re \cdot \frac{\frac{y.re}{y.im}}{y.im}\\
t_3 := \frac{x.re + y.im \cdot \frac{x.im}{y.re}}{y.re}\\
t_4 := \frac{x.im + \frac{x.re \cdot y.re}{y.im}}{y.im}\\
t_5 := y.re \cdot y.re + y.im \cdot y.im\\
t_6 := \frac{x.im + t\_1}{y.im}\\
t_7 := \frac{t\_1}{y.im}\\
\mathbf{if}\;y.re \leq -7.2 \cdot 10^{-51}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq -1.6 \cdot 10^{-76}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq -2 \cdot 10^{-80}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -5 \cdot 10^{-81}:\\
\;\;\;\;\frac{1}{\frac{y.im}{y.re \cdot \frac{x.re}{y.im}}}\\
\mathbf{elif}\;y.re \leq -3.4 \cdot 10^{-81}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -2.8 \cdot 10^{-95}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq -1.7 \cdot 10^{-103}:\\
\;\;\;\;\frac{x.im \cdot y.im}{t\_5}\\
\mathbf{elif}\;y.re \leq -1.6 \cdot 10^{-105}:\\
\;\;\;\;\frac{x.re + \frac{x.im}{\frac{y.re}{y.im}}}{y.re}\\
\mathbf{elif}\;y.re \leq -1.55 \cdot 10^{-170}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq -1.5 \cdot 10^{-170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq -7 \cdot 10^{-194}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq -1.45 \cdot 10^{-198}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq -3 \cdot 10^{-297}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2.25 \cdot 10^{-263}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 4 \cdot 10^{-263}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{-262}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 1.3 \cdot 10^{-210}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 7.5 \cdot 10^{-210}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 7 \cdot 10^{-207}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.re \leq 4.1 \cdot 10^{-165}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.re \leq 8.4 \cdot 10^{-150}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 8.5 \cdot 10^{-123}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 9 \cdot 10^{-123}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.05 \cdot 10^{-102}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 1.15 \cdot 10^{-98}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.6 \cdot 10^{-85}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.2 \cdot 10^{-84}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 6 \cdot 10^{-24}:\\
\;\;\;\;\frac{x.re \cdot y.re}{t\_5}\\
\mathbf{elif}\;y.re \leq 175000000000:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 5.2 \cdot 10^{+19}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.08 \cdot 10^{+35}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 3.95 \cdot 10^{+37}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.2 \cdot 10^{+57}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 1.25 \cdot 10^{+57}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 1.55 \cdot 10^{+78}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 1.62 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 5.5 \cdot 10^{+101}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 5.8 \cdot 10^{+101}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 3.5 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 3.6 \cdot 10^{+117}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;y.re \leq 2 \cdot 10^{+136}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.re \leq 2.02 \cdot 10^{+136}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;y.re \leq 2.1 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.15 \cdot 10^{+163}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.7 \cdot 10^{+171}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.8 \cdot 10^{+171}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2.2 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.3 \cdot 10^{+198}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;y.re \leq 2.9 \cdot 10^{+207}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y.re \leq 3 \cdot 10^{+207}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y.re \leq 2.35 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;y.re \leq 2.4 \cdot 10^{+224}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if y.re < -7.2000000000000001e-51 or 4.1000000000000002e-165 < y.re < 8.4000000000000004e-150 or 1.6199999999999999e78 < y.re < 5.50000000000000018e101 or 2.3000000000000001e198 < y.re < 2.89999999999999997e207Initial program 54.3%
Taylor expanded in y.re around inf 82.2%
associate-/l*84.5%
Simplified84.5%
clear-num84.5%
un-div-inv84.6%
Applied egg-rr84.6%
associate-/r/85.6%
Applied egg-rr85.6%
if -7.2000000000000001e-51 < y.re < -1.5999999999999999e-76 or -1.59999999999999991e-105 < y.re < -1.54999999999999993e-170 or -1.50000000000000007e-170 < y.re < -7.0000000000000006e-194 or -1.45e-198 < y.re < -2.99999999999999995e-297 or 2.1e-262 < y.re < 1.2999999999999999e-210 or 8.4000000000000004e-150 < y.re < 8.4999999999999995e-123 or 8.99999999999999986e-123 < y.re < 3.0499999999999999e-102 or 2.6999999999999998e171 < y.re < 2.80000000000000004e171 or 2.89999999999999997e207 < y.re < 2.99999999999999983e207Initial program 65.1%
Taylor expanded in y.im around inf 98.5%
associate-/l*98.6%
Simplified98.6%
if -1.5999999999999999e-76 < y.re < -1.99999999999999992e-80 or -4.99999999999999981e-81 < y.re < -3.3999999999999999e-81 or -1.54999999999999993e-170 < y.re < -1.50000000000000007e-170 or 1.2999999999999999e-210 < y.re < 7.4999999999999997e-210 or 8.4999999999999995e-123 < y.re < 8.99999999999999986e-123 or 3.0499999999999999e-102 < y.re < 1.15e-98 or 2.60000000000000011e-85 < y.re < 3.1999999999999999e-84 or 5.99999999999999991e-24 < y.re < 1.75e11 or 5.79999999999999974e101 < y.re < 3.49999999999999983e117 or 2.02000000000000002e136 < y.re < 2.1e163 or 2.1500000000000001e163 < y.re < 2.6999999999999998e171 or 2.80000000000000004e171 < y.re < 2.2e198 or 2.99999999999999983e207 < y.re < 2.3500000000000001e224Initial program 70.1%
Taylor expanded in y.re around inf 100.0%
if -1.99999999999999992e-80 < y.re < -4.99999999999999981e-81Initial program 98.4%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
clear-num100.0%
inv-pow100.0%
+-commutative100.0%
fma-define100.0%
Applied egg-rr100.0%
unpow-1100.0%
Simplified100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
associate-/l*100.0%
Simplified100.0%
if -3.3999999999999999e-81 < y.re < -2.7999999999999999e-95 or 1.15e-98 < y.re < 2.60000000000000011e-85 or 1.75e11 < y.re < 5.2e19 or 1.08e35 < y.re < 3.9500000000000001e37 or 1.20000000000000002e57 < y.re < 1.24999999999999993e57 or 1.55e78 < y.re < 1.6199999999999999e78 or 5.50000000000000018e101 < y.re < 5.79999999999999974e101 or 2.1e163 < y.re < 2.1500000000000001e163 or 2.2e198 < y.re < 2.3000000000000001e198 or 2.3500000000000001e224 < y.re < 2.40000000000000001e224Initial program 32.9%
Taylor expanded in y.re around 0 100.0%
if -2.7999999999999999e-95 < y.re < -1.70000000000000001e-103Initial program 100.0%
Taylor expanded in x.re around 0 100.0%
if -1.70000000000000001e-103 < y.re < -1.59999999999999991e-105Initial program 99.2%
Taylor expanded in y.re around inf 100.0%
associate-/l*99.2%
Simplified99.2%
clear-num99.2%
un-div-inv100.0%
Applied egg-rr100.0%
if -7.0000000000000006e-194 < y.re < -1.45e-198 or 2.2499999999999999e-263 < y.re < 4e-263 or 5.2e19 < y.re < 1.08e35 or 3.9500000000000001e37 < y.re < 1.20000000000000002e57 or 1.24999999999999993e57 < y.re < 1.55e78 or 3.60000000000000013e117 < y.re < 2.00000000000000012e136 or 2.40000000000000001e224 < y.re Initial program 55.2%
Taylor expanded in y.re around inf 92.2%
associate-/l*100.0%
Simplified100.0%
if -2.99999999999999995e-297 < y.re < 2.2499999999999999e-263 or 7.0000000000000003e-207 < y.re < 4.1000000000000002e-165Initial program 91.2%
Taylor expanded in y.im around inf 100.0%
if 4e-263 < y.re < 2.1e-262 or 7.4999999999999997e-210 < y.re < 7.0000000000000003e-207Initial program 99.2%
Taylor expanded in y.im around inf 98.4%
associate-/l*98.4%
Simplified98.4%
Taylor expanded in x.im around 0 99.2%
associate-/l*100.0%
Simplified100.0%
*-un-lft-identity100.0%
unpow2100.0%
times-frac100.0%
Applied egg-rr100.0%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
if 3.1999999999999999e-84 < y.re < 5.99999999999999991e-24Initial program 100.0%
Taylor expanded in x.re around inf 100.0%
*-commutative100.0%
Simplified100.0%
if 3.49999999999999983e117 < y.re < 3.60000000000000013e117 or 2.00000000000000012e136 < y.re < 2.02000000000000002e136Initial program 1.9%
Taylor expanded in y.im around inf 2.7%
associate-/l*99.2%
Simplified99.2%
Taylor expanded in x.im around 0 1.9%
associate-/l*54.5%
Simplified54.5%
*-un-lft-identity54.5%
unpow254.5%
times-frac53.7%
Applied egg-rr53.7%
*-commutative53.7%
associate-*l/53.7%
*-un-lft-identity53.7%
associate-*l/99.2%
Applied egg-rr99.2%
Final simplification94.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (/ (- x.im) y.re)))
(if (<= x.im 7e-57)
(/ x.re y.re)
(if (<= x.im 3.5e-25)
(/ x.im y.im)
(if (<= x.im 8.1e-25)
(/ x.im (- y.im))
(if (<= x.im 1.4e-13)
(/ x.im y.re)
(if (<= x.im 3.2e+28)
(/ x.re y.re)
(if (<= x.im 1.7e+35)
(/ x.im y.im)
(if (<= x.im 9e+46)
(/ x.re y.re)
(if (<= x.im 9.5e+46)
(/ x.im y.re)
(if (<= x.im 2.35e+78)
(/ x.re y.re)
(if (<= x.im 3.7e+117)
(/ x.im y.im)
(if (<= x.im 3.8e+117)
t_0
(if (<= x.im 7.8e+134)
(/ x.re y.re)
(if (<= x.im 6.7e+136)
(/ x.im y.im)
(if (<= x.im 5.8e+170)
(/ x.re y.re)
(if (<= x.im 6e+170)
(/ x.im y.re)
(if (<= x.im 2.55e+185)
(/ x.re y.re)
(if (<= x.im 5.8e+188)
(/ x.im y.im)
(if (<= x.im 6e+188)
(/ x.im y.re)
(if (<= x.im 1.35e+244)
(/ x.im y.im)
(if (<= x.im 1.4e+244)
(/ x.im y.re)
(if (<= x.im 1.4e+263)
(/ x.im y.im)
(if (<= x.im 2.6e+271)
(/ x.re y.re)
(if (<= x.im 1.7e+276)
(/ x.im y.im)
(if (<= x.im 1.26e+277)
t_0
(if (and (not
(<= x.im 2e+299))
(<= x.im 2.1e+299))
(/ x.re y.re)
(/
x.im
y.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_re;
double tmp;
if (x_46_im <= 7e-57) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 8.1e-25) {
tmp = x_46_im / -y_46_im;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.2e+28) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+35) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.35e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_0;
} else if (x_46_im <= 7.8e+134) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.7e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.55e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.4e+263) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.6e+271) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_0;
} else if (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)) {
tmp = x_46_re / y_46_re;
} else {
tmp = x_46_im / 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) :: t_0
real(8) :: tmp
t_0 = -x_46im / y_46re
if (x_46im <= 7d-57) then
tmp = x_46re / y_46re
else if (x_46im <= 3.5d-25) then
tmp = x_46im / y_46im
else if (x_46im <= 8.1d-25) then
tmp = x_46im / -y_46im
else if (x_46im <= 1.4d-13) then
tmp = x_46im / y_46re
else if (x_46im <= 3.2d+28) then
tmp = x_46re / y_46re
else if (x_46im <= 1.7d+35) then
tmp = x_46im / y_46im
else if (x_46im <= 9d+46) then
tmp = x_46re / y_46re
else if (x_46im <= 9.5d+46) then
tmp = x_46im / y_46re
else if (x_46im <= 2.35d+78) then
tmp = x_46re / y_46re
else if (x_46im <= 3.7d+117) then
tmp = x_46im / y_46im
else if (x_46im <= 3.8d+117) then
tmp = t_0
else if (x_46im <= 7.8d+134) then
tmp = x_46re / y_46re
else if (x_46im <= 6.7d+136) then
tmp = x_46im / y_46im
else if (x_46im <= 5.8d+170) then
tmp = x_46re / y_46re
else if (x_46im <= 6d+170) then
tmp = x_46im / y_46re
else if (x_46im <= 2.55d+185) then
tmp = x_46re / y_46re
else if (x_46im <= 5.8d+188) then
tmp = x_46im / y_46im
else if (x_46im <= 6d+188) then
tmp = x_46im / y_46re
else if (x_46im <= 1.35d+244) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d+244) then
tmp = x_46im / y_46re
else if (x_46im <= 1.4d+263) then
tmp = x_46im / y_46im
else if (x_46im <= 2.6d+271) then
tmp = x_46re / y_46re
else if (x_46im <= 1.7d+276) then
tmp = x_46im / y_46im
else if (x_46im <= 1.26d+277) then
tmp = t_0
else if ((.not. (x_46im <= 2d+299)) .and. (x_46im <= 2.1d+299)) then
tmp = x_46re / y_46re
else
tmp = x_46im / 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 t_0 = -x_46_im / y_46_re;
double tmp;
if (x_46_im <= 7e-57) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 8.1e-25) {
tmp = x_46_im / -y_46_im;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.2e+28) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+35) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.35e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.7e+117) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.8e+117) {
tmp = t_0;
} else if (x_46_im <= 7.8e+134) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.7e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.55e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.4e+263) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.6e+271) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.7e+276) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.26e+277) {
tmp = t_0;
} else if (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)) {
tmp = x_46_re / y_46_re;
} else {
tmp = x_46_im / y_46_im;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = -x_46_im / y_46_re tmp = 0 if x_46_im <= 7e-57: tmp = x_46_re / y_46_re elif x_46_im <= 3.5e-25: tmp = x_46_im / y_46_im elif x_46_im <= 8.1e-25: tmp = x_46_im / -y_46_im elif x_46_im <= 1.4e-13: tmp = x_46_im / y_46_re elif x_46_im <= 3.2e+28: tmp = x_46_re / y_46_re elif x_46_im <= 1.7e+35: tmp = x_46_im / y_46_im elif x_46_im <= 9e+46: tmp = x_46_re / y_46_re elif x_46_im <= 9.5e+46: tmp = x_46_im / y_46_re elif x_46_im <= 2.35e+78: tmp = x_46_re / y_46_re elif x_46_im <= 3.7e+117: tmp = x_46_im / y_46_im elif x_46_im <= 3.8e+117: tmp = t_0 elif x_46_im <= 7.8e+134: tmp = x_46_re / y_46_re elif x_46_im <= 6.7e+136: tmp = x_46_im / y_46_im elif x_46_im <= 5.8e+170: tmp = x_46_re / y_46_re elif x_46_im <= 6e+170: tmp = x_46_im / y_46_re elif x_46_im <= 2.55e+185: tmp = x_46_re / y_46_re elif x_46_im <= 5.8e+188: tmp = x_46_im / y_46_im elif x_46_im <= 6e+188: tmp = x_46_im / y_46_re elif x_46_im <= 1.35e+244: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e+244: tmp = x_46_im / y_46_re elif x_46_im <= 1.4e+263: tmp = x_46_im / y_46_im elif x_46_im <= 2.6e+271: tmp = x_46_re / y_46_re elif x_46_im <= 1.7e+276: tmp = x_46_im / y_46_im elif x_46_im <= 1.26e+277: tmp = t_0 elif not (x_46_im <= 2e+299) and (x_46_im <= 2.1e+299): tmp = x_46_re / y_46_re else: tmp = x_46_im / y_46_im return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(Float64(-x_46_im) / y_46_re) tmp = 0.0 if (x_46_im <= 7e-57) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.5e-25) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 8.1e-25) tmp = Float64(x_46_im / Float64(-y_46_im)); elseif (x_46_im <= 1.4e-13) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 3.2e+28) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.7e+35) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 9e+46) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.5e+46) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 2.35e+78) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.7e+117) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 3.8e+117) tmp = t_0; elseif (x_46_im <= 7.8e+134) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6.7e+136) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.8e+170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6e+170) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 2.55e+185) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.8e+188) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6e+188) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.35e+244) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e+244) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.4e+263) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2.6e+271) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.7e+276) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.26e+277) tmp = t_0; elseif (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)) tmp = Float64(x_46_re / y_46_re); else tmp = Float64(x_46_im / y_46_im); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = -x_46_im / y_46_re; tmp = 0.0; if (x_46_im <= 7e-57) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.5e-25) tmp = x_46_im / y_46_im; elseif (x_46_im <= 8.1e-25) tmp = x_46_im / -y_46_im; elseif (x_46_im <= 1.4e-13) tmp = x_46_im / y_46_re; elseif (x_46_im <= 3.2e+28) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.7e+35) tmp = x_46_im / y_46_im; elseif (x_46_im <= 9e+46) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.5e+46) tmp = x_46_im / y_46_re; elseif (x_46_im <= 2.35e+78) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.7e+117) tmp = x_46_im / y_46_im; elseif (x_46_im <= 3.8e+117) tmp = t_0; elseif (x_46_im <= 7.8e+134) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6.7e+136) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.8e+170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6e+170) tmp = x_46_im / y_46_re; elseif (x_46_im <= 2.55e+185) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.8e+188) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6e+188) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.35e+244) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e+244) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.4e+263) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2.6e+271) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.7e+276) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.26e+277) tmp = t_0; elseif (~((x_46_im <= 2e+299)) && (x_46_im <= 2.1e+299)) tmp = x_46_re / y_46_re; else tmp = x_46_im / y_46_im; 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$im) / y$46$re), $MachinePrecision]}, If[LessEqual[x$46$im, 7e-57], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.5e-25], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 8.1e-25], N[(x$46$im / (-y$46$im)), $MachinePrecision], If[LessEqual[x$46$im, 1.4e-13], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.2e+28], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.7e+35], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9e+46], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.5e+46], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.35e+78], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.7e+117], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 3.8e+117], t$95$0, If[LessEqual[x$46$im, 7.8e+134], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6.7e+136], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6e+170], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.55e+185], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+188], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6e+188], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e+244], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+244], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+263], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2.6e+271], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.7e+276], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.26e+277], t$95$0, If[And[N[Not[LessEqual[x$46$im, 2e+299]], $MachinePrecision], LessEqual[x$46$im, 2.1e+299]], N[(x$46$re / y$46$re), $MachinePrecision], N[(x$46$im / y$46$im), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{-x.im}{y.re}\\
\mathbf{if}\;x.im \leq 7 \cdot 10^{-57}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.5 \cdot 10^{-25}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 8.1 \cdot 10^{-25}:\\
\;\;\;\;\frac{x.im}{-y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-13}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 3.2 \cdot 10^{+28}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{+35}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 9 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 2.35 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.7 \cdot 10^{+117}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 3.8 \cdot 10^{+117}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x.im \leq 7.8 \cdot 10^{+134}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6.7 \cdot 10^{+136}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 2.55 \cdot 10^{+185}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+263}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2.6 \cdot 10^{+271}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.7 \cdot 10^{+276}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.26 \cdot 10^{+277}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;\neg \left(x.im \leq 2 \cdot 10^{+299}\right) \land x.im \leq 2.1 \cdot 10^{+299}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\end{array}
\end{array}
if x.im < 6.99999999999999983e-57 or 1.4000000000000001e-13 < x.im < 3.2e28 or 1.7000000000000001e35 < x.im < 9.00000000000000019e46 or 9.5000000000000008e46 < x.im < 2.35000000000000003e78 or 3.8000000000000002e117 < x.im < 7.79999999999999967e134 or 6.7e136 < x.im < 5.8000000000000001e170 or 5.99999999999999994e170 < x.im < 2.54999999999999998e185 or 1.3999999999999999e263 < x.im < 2.5999999999999998e271 or 2.0000000000000001e299 < x.im < 2.1e299Initial program 65.6%
Taylor expanded in y.re around inf 57.0%
if 6.99999999999999983e-57 < x.im < 3.5000000000000002e-25 or 3.2e28 < x.im < 1.7000000000000001e35 or 2.35000000000000003e78 < x.im < 3.6999999999999999e117 or 7.79999999999999967e134 < x.im < 6.7e136 or 2.54999999999999998e185 < x.im < 5.7999999999999999e188 or 6.0000000000000001e188 < x.im < 1.34999999999999999e244 or 1.39999999999999995e244 < x.im < 1.3999999999999999e263 or 2.5999999999999998e271 < x.im < 1.69999999999999992e276 or 1.25999999999999995e277 < x.im < 2.0000000000000001e299 or 2.1e299 < x.im Initial program 37.7%
Taylor expanded in y.re around 0 94.2%
if 3.5000000000000002e-25 < x.im < 8.10000000000000002e-25Initial program 100.0%
*-un-lft-identity100.0%
add-sqr-sqrt100.0%
times-frac100.0%
hypot-define100.0%
fma-define100.0%
hypot-define100.0%
Applied egg-rr100.0%
Taylor expanded in y.im around -inf 5.7%
mul-1-neg5.7%
Simplified5.7%
Taylor expanded in y.re around 0 5.7%
neg-mul-15.7%
distribute-neg-frac25.7%
Simplified5.7%
if 8.10000000000000002e-25 < x.im < 1.4000000000000001e-13 or 9.00000000000000019e46 < x.im < 9.5000000000000008e46 or 5.8000000000000001e170 < x.im < 5.99999999999999994e170 or 5.7999999999999999e188 < x.im < 6.0000000000000001e188 or 1.34999999999999999e244 < x.im < 1.39999999999999995e244Initial program 80.2%
*-un-lft-identity80.2%
add-sqr-sqrt80.2%
times-frac80.5%
hypot-define80.5%
fma-define80.5%
hypot-define80.5%
Applied egg-rr80.5%
Taylor expanded in y.im around -inf 4.1%
mul-1-neg4.1%
Simplified4.1%
Taylor expanded in y.re around -inf 7.3%
if 3.6999999999999999e117 < x.im < 3.8000000000000002e117 or 1.69999999999999992e276 < x.im < 1.25999999999999995e277Initial program 32.8%
*-un-lft-identity32.8%
add-sqr-sqrt32.8%
times-frac32.8%
hypot-define32.8%
fma-define32.8%
hypot-define34.5%
Applied egg-rr34.5%
Taylor expanded in y.im around -inf 3.4%
mul-1-neg3.4%
Simplified3.4%
Taylor expanded in y.re around inf 7.6%
associate-*r/7.6%
mul-1-neg7.6%
Simplified7.6%
Final simplification59.3%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (<= x.im 8.5e-58)
(/ x.re y.re)
(if (<= x.im 3.5e-25)
(/ x.im y.im)
(if (<= x.im 1.45e-23)
(/ x.im (- y.im))
(if (<= x.im 1.4e-13)
(/ x.im y.re)
(if (<= x.im 6.5e+25)
(/ x.re y.re)
(if (<= x.im 1.55e+37)
(/ x.im y.im)
(if (<= x.im 9e+46)
(/ x.re y.re)
(if (<= x.im 9.5e+46)
(/ x.im y.re)
(if (<= x.im 3.55e+78)
(/ x.re y.re)
(if (<= x.im 3.9e+121)
(/ x.im y.im)
(if (<= x.im 3.9e+134)
(/ x.re y.re)
(if (<= x.im 6.2e+136)
(/ x.im y.im)
(if (<= x.im 5.8e+170)
(/ x.re y.re)
(if (<= x.im 6e+170)
(/ x.im y.re)
(if (<= x.im 2.5e+185)
(/ x.re y.re)
(if (<= x.im 5.8e+188)
(/ x.im y.im)
(if (<= x.im 6e+188)
(/ x.im y.re)
(if (<= x.im 1.35e+244)
(/ x.im y.im)
(if (<= x.im 1.4e+244)
(/ x.im y.re)
(if (or (<= x.im 5.6e+262)
(not
(or (<= x.im 3.1e+271)
(and (not (<= x.im 2e+299))
(<= x.im 2.1e+299)))))
(/ x.im y.im)
(/ x.re y.re))))))))))))))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if (x_46_im <= 8.5e-58) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-23) {
tmp = x_46_im / -y_46_im;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 6.5e+25) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.55e+37) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.55e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.9e+121) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.9e+134) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.2e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.5e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if ((x_46_im <= 5.6e+262) || !((x_46_im <= 3.1e+271) || (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)))) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / 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 (x_46im <= 8.5d-58) then
tmp = x_46re / y_46re
else if (x_46im <= 3.5d-25) then
tmp = x_46im / y_46im
else if (x_46im <= 1.45d-23) then
tmp = x_46im / -y_46im
else if (x_46im <= 1.4d-13) then
tmp = x_46im / y_46re
else if (x_46im <= 6.5d+25) then
tmp = x_46re / y_46re
else if (x_46im <= 1.55d+37) then
tmp = x_46im / y_46im
else if (x_46im <= 9d+46) then
tmp = x_46re / y_46re
else if (x_46im <= 9.5d+46) then
tmp = x_46im / y_46re
else if (x_46im <= 3.55d+78) then
tmp = x_46re / y_46re
else if (x_46im <= 3.9d+121) then
tmp = x_46im / y_46im
else if (x_46im <= 3.9d+134) then
tmp = x_46re / y_46re
else if (x_46im <= 6.2d+136) then
tmp = x_46im / y_46im
else if (x_46im <= 5.8d+170) then
tmp = x_46re / y_46re
else if (x_46im <= 6d+170) then
tmp = x_46im / y_46re
else if (x_46im <= 2.5d+185) then
tmp = x_46re / y_46re
else if (x_46im <= 5.8d+188) then
tmp = x_46im / y_46im
else if (x_46im <= 6d+188) then
tmp = x_46im / y_46re
else if (x_46im <= 1.35d+244) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d+244) then
tmp = x_46im / y_46re
else if ((x_46im <= 5.6d+262) .or. (.not. (x_46im <= 3.1d+271) .or. (.not. (x_46im <= 2d+299)) .and. (x_46im <= 2.1d+299))) then
tmp = x_46im / y_46im
else
tmp = x_46re / 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 (x_46_im <= 8.5e-58) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.45e-23) {
tmp = x_46_im / -y_46_im;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 6.5e+25) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.55e+37) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.55e+78) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.9e+121) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 3.9e+134) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6.2e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 2.5e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if ((x_46_im <= 5.6e+262) || !((x_46_im <= 3.1e+271) || (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)))) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / y_46_re;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if x_46_im <= 8.5e-58: tmp = x_46_re / y_46_re elif x_46_im <= 3.5e-25: tmp = x_46_im / y_46_im elif x_46_im <= 1.45e-23: tmp = x_46_im / -y_46_im elif x_46_im <= 1.4e-13: tmp = x_46_im / y_46_re elif x_46_im <= 6.5e+25: tmp = x_46_re / y_46_re elif x_46_im <= 1.55e+37: tmp = x_46_im / y_46_im elif x_46_im <= 9e+46: tmp = x_46_re / y_46_re elif x_46_im <= 9.5e+46: tmp = x_46_im / y_46_re elif x_46_im <= 3.55e+78: tmp = x_46_re / y_46_re elif x_46_im <= 3.9e+121: tmp = x_46_im / y_46_im elif x_46_im <= 3.9e+134: tmp = x_46_re / y_46_re elif x_46_im <= 6.2e+136: tmp = x_46_im / y_46_im elif x_46_im <= 5.8e+170: tmp = x_46_re / y_46_re elif x_46_im <= 6e+170: tmp = x_46_im / y_46_re elif x_46_im <= 2.5e+185: tmp = x_46_re / y_46_re elif x_46_im <= 5.8e+188: tmp = x_46_im / y_46_im elif x_46_im <= 6e+188: tmp = x_46_im / y_46_re elif x_46_im <= 1.35e+244: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e+244: tmp = x_46_im / y_46_re elif (x_46_im <= 5.6e+262) or not ((x_46_im <= 3.1e+271) or (not (x_46_im <= 2e+299) and (x_46_im <= 2.1e+299))): tmp = x_46_im / y_46_im else: tmp = x_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 (x_46_im <= 8.5e-58) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.5e-25) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.45e-23) tmp = Float64(x_46_im / Float64(-y_46_im)); elseif (x_46_im <= 1.4e-13) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 6.5e+25) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.55e+37) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 9e+46) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.5e+46) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 3.55e+78) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.9e+121) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 3.9e+134) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6.2e+136) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.8e+170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6e+170) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 2.5e+185) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.8e+188) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6e+188) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.35e+244) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e+244) tmp = Float64(x_46_im / y_46_re); elseif ((x_46_im <= 5.6e+262) || !((x_46_im <= 3.1e+271) || (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)))) tmp = Float64(x_46_im / y_46_im); else tmp = Float64(x_46_re / 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 (x_46_im <= 8.5e-58) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.5e-25) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.45e-23) tmp = x_46_im / -y_46_im; elseif (x_46_im <= 1.4e-13) tmp = x_46_im / y_46_re; elseif (x_46_im <= 6.5e+25) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.55e+37) tmp = x_46_im / y_46_im; elseif (x_46_im <= 9e+46) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.5e+46) tmp = x_46_im / y_46_re; elseif (x_46_im <= 3.55e+78) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.9e+121) tmp = x_46_im / y_46_im; elseif (x_46_im <= 3.9e+134) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6.2e+136) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.8e+170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6e+170) tmp = x_46_im / y_46_re; elseif (x_46_im <= 2.5e+185) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.8e+188) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6e+188) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.35e+244) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e+244) tmp = x_46_im / y_46_re; elseif ((x_46_im <= 5.6e+262) || ~(((x_46_im <= 3.1e+271) || (~((x_46_im <= 2e+299)) && (x_46_im <= 2.1e+299))))) tmp = x_46_im / y_46_im; else tmp = x_46_re / y_46_re; end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[x$46$im, 8.5e-58], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.5e-25], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.45e-23], N[(x$46$im / (-y$46$im)), $MachinePrecision], If[LessEqual[x$46$im, 1.4e-13], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6.5e+25], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.55e+37], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9e+46], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.5e+46], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.55e+78], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.9e+121], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 3.9e+134], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6.2e+136], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6e+170], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 2.5e+185], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+188], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6e+188], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e+244], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+244], N[(x$46$im / y$46$re), $MachinePrecision], If[Or[LessEqual[x$46$im, 5.6e+262], N[Not[Or[LessEqual[x$46$im, 3.1e+271], And[N[Not[LessEqual[x$46$im, 2e+299]], $MachinePrecision], LessEqual[x$46$im, 2.1e+299]]]], $MachinePrecision]], N[(x$46$im / y$46$im), $MachinePrecision], N[(x$46$re / y$46$re), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x.im \leq 8.5 \cdot 10^{-58}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.5 \cdot 10^{-25}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.45 \cdot 10^{-23}:\\
\;\;\;\;\frac{x.im}{-y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-13}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 6.5 \cdot 10^{+25}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.55 \cdot 10^{+37}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 9 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 3.55 \cdot 10^{+78}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.9 \cdot 10^{+121}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 3.9 \cdot 10^{+134}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6.2 \cdot 10^{+136}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 2.5 \cdot 10^{+185}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 5.6 \cdot 10^{+262} \lor \neg \left(x.im \leq 3.1 \cdot 10^{+271} \lor \neg \left(x.im \leq 2 \cdot 10^{+299}\right) \land x.im \leq 2.1 \cdot 10^{+299}\right):\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\end{array}
\end{array}
if x.im < 8.5000000000000004e-58 or 1.4000000000000001e-13 < x.im < 6.50000000000000005e25 or 1.5500000000000001e37 < x.im < 9.00000000000000019e46 or 9.5000000000000008e46 < x.im < 3.54999999999999996e78 or 3.89999999999999984e121 < x.im < 3.89999999999999983e134 or 6.19999999999999967e136 < x.im < 5.8000000000000001e170 or 5.99999999999999994e170 < x.im < 2.49999999999999995e185 or 5.59999999999999995e262 < x.im < 3.1000000000000001e271 or 2.0000000000000001e299 < x.im < 2.1e299Initial program 65.6%
Taylor expanded in y.re around inf 57.0%
if 8.5000000000000004e-58 < x.im < 3.5000000000000002e-25 or 6.50000000000000005e25 < x.im < 1.5500000000000001e37 or 3.54999999999999996e78 < x.im < 3.89999999999999984e121 or 3.89999999999999983e134 < x.im < 6.19999999999999967e136 or 2.49999999999999995e185 < x.im < 5.7999999999999999e188 or 6.0000000000000001e188 < x.im < 1.34999999999999999e244 or 1.39999999999999995e244 < x.im < 5.59999999999999995e262 or 3.1000000000000001e271 < x.im < 2.0000000000000001e299 or 2.1e299 < x.im Initial program 37.3%
Taylor expanded in y.re around 0 85.7%
if 3.5000000000000002e-25 < x.im < 1.4500000000000001e-23Initial program 100.0%
*-un-lft-identity100.0%
add-sqr-sqrt100.0%
times-frac100.0%
hypot-define100.0%
fma-define100.0%
hypot-define100.0%
Applied egg-rr100.0%
Taylor expanded in y.im around -inf 5.7%
mul-1-neg5.7%
Simplified5.7%
Taylor expanded in y.re around 0 5.7%
neg-mul-15.7%
distribute-neg-frac25.7%
Simplified5.7%
if 1.4500000000000001e-23 < x.im < 1.4000000000000001e-13 or 9.00000000000000019e46 < x.im < 9.5000000000000008e46 or 5.8000000000000001e170 < x.im < 5.99999999999999994e170 or 5.7999999999999999e188 < x.im < 6.0000000000000001e188 or 1.34999999999999999e244 < x.im < 1.39999999999999995e244Initial program 80.2%
*-un-lft-identity80.2%
add-sqr-sqrt80.2%
times-frac80.5%
hypot-define80.5%
fma-define80.5%
hypot-define80.5%
Applied egg-rr80.5%
Taylor expanded in y.im around -inf 4.1%
mul-1-neg4.1%
Simplified4.1%
Taylor expanded in y.re around -inf 7.3%
Final simplification59.3%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (<= x.im 3.3e-56)
(/ x.re y.re)
(if (<= x.im 3.5e-25)
(/ x.im y.im)
(if (<= x.im 1.4e-13)
(/ x.im y.re)
(if (<= x.im 1.2e+26)
(/ x.re y.re)
(if (<= x.im 5.1e+36)
(/ x.im y.im)
(if (<= x.im 9e+46)
(/ x.re y.re)
(if (<= x.im 9.5e+46)
(/ x.im y.re)
(if (<= x.im 5.7e+75)
(/ x.re y.re)
(if (<= x.im 1.45e+119)
(/ x.im y.im)
(if (<= x.im 2.5e+132)
(/ x.re y.re)
(if (<= x.im 7.5e+136)
(/ x.im y.im)
(if (<= x.im 5.8e+170)
(/ x.re y.re)
(if (<= x.im 6e+170)
(/ x.im y.re)
(if (<= x.im 3.4e+185)
(/ x.re y.re)
(if (<= x.im 5.8e+188)
(/ x.im y.im)
(if (<= x.im 6e+188)
(/ x.im y.re)
(if (<= x.im 1.35e+244)
(/ x.im y.im)
(if (<= x.im 1.4e+244)
(/ x.im y.re)
(if (or (<= x.im 1.3e+263)
(not
(or (<= x.im 2.65e+271)
(and (not (<= x.im 2e+299))
(<= x.im 2.1e+299)))))
(/ x.im y.im)
(/ x.re y.re)))))))))))))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if (x_46_im <= 3.3e-56) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.2e+26) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.1e+36) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 5.7e+75) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.45e+119) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.5e+132) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.5e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.4e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if ((x_46_im <= 1.3e+263) || !((x_46_im <= 2.65e+271) || (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)))) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / 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 (x_46im <= 3.3d-56) then
tmp = x_46re / y_46re
else if (x_46im <= 3.5d-25) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d-13) then
tmp = x_46im / y_46re
else if (x_46im <= 1.2d+26) then
tmp = x_46re / y_46re
else if (x_46im <= 5.1d+36) then
tmp = x_46im / y_46im
else if (x_46im <= 9d+46) then
tmp = x_46re / y_46re
else if (x_46im <= 9.5d+46) then
tmp = x_46im / y_46re
else if (x_46im <= 5.7d+75) then
tmp = x_46re / y_46re
else if (x_46im <= 1.45d+119) then
tmp = x_46im / y_46im
else if (x_46im <= 2.5d+132) then
tmp = x_46re / y_46re
else if (x_46im <= 7.5d+136) then
tmp = x_46im / y_46im
else if (x_46im <= 5.8d+170) then
tmp = x_46re / y_46re
else if (x_46im <= 6d+170) then
tmp = x_46im / y_46re
else if (x_46im <= 3.4d+185) then
tmp = x_46re / y_46re
else if (x_46im <= 5.8d+188) then
tmp = x_46im / y_46im
else if (x_46im <= 6d+188) then
tmp = x_46im / y_46re
else if (x_46im <= 1.35d+244) then
tmp = x_46im / y_46im
else if (x_46im <= 1.4d+244) then
tmp = x_46im / y_46re
else if ((x_46im <= 1.3d+263) .or. (.not. (x_46im <= 2.65d+271) .or. (.not. (x_46im <= 2d+299)) .and. (x_46im <= 2.1d+299))) then
tmp = x_46im / y_46im
else
tmp = x_46re / 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 (x_46_im <= 3.3e-56) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 3.5e-25) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e-13) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.2e+26) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.1e+36) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 9e+46) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 9.5e+46) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 5.7e+75) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 1.45e+119) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 2.5e+132) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 7.5e+136) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 5.8e+170) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 6e+170) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 3.4e+185) {
tmp = x_46_re / y_46_re;
} else if (x_46_im <= 5.8e+188) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 6e+188) {
tmp = x_46_im / y_46_re;
} else if (x_46_im <= 1.35e+244) {
tmp = x_46_im / y_46_im;
} else if (x_46_im <= 1.4e+244) {
tmp = x_46_im / y_46_re;
} else if ((x_46_im <= 1.3e+263) || !((x_46_im <= 2.65e+271) || (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)))) {
tmp = x_46_im / y_46_im;
} else {
tmp = x_46_re / y_46_re;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if x_46_im <= 3.3e-56: tmp = x_46_re / y_46_re elif x_46_im <= 3.5e-25: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e-13: tmp = x_46_im / y_46_re elif x_46_im <= 1.2e+26: tmp = x_46_re / y_46_re elif x_46_im <= 5.1e+36: tmp = x_46_im / y_46_im elif x_46_im <= 9e+46: tmp = x_46_re / y_46_re elif x_46_im <= 9.5e+46: tmp = x_46_im / y_46_re elif x_46_im <= 5.7e+75: tmp = x_46_re / y_46_re elif x_46_im <= 1.45e+119: tmp = x_46_im / y_46_im elif x_46_im <= 2.5e+132: tmp = x_46_re / y_46_re elif x_46_im <= 7.5e+136: tmp = x_46_im / y_46_im elif x_46_im <= 5.8e+170: tmp = x_46_re / y_46_re elif x_46_im <= 6e+170: tmp = x_46_im / y_46_re elif x_46_im <= 3.4e+185: tmp = x_46_re / y_46_re elif x_46_im <= 5.8e+188: tmp = x_46_im / y_46_im elif x_46_im <= 6e+188: tmp = x_46_im / y_46_re elif x_46_im <= 1.35e+244: tmp = x_46_im / y_46_im elif x_46_im <= 1.4e+244: tmp = x_46_im / y_46_re elif (x_46_im <= 1.3e+263) or not ((x_46_im <= 2.65e+271) or (not (x_46_im <= 2e+299) and (x_46_im <= 2.1e+299))): tmp = x_46_im / y_46_im else: tmp = x_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 (x_46_im <= 3.3e-56) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 3.5e-25) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e-13) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.2e+26) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.1e+36) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 9e+46) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 9.5e+46) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 5.7e+75) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 1.45e+119) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 2.5e+132) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 7.5e+136) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 5.8e+170) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 6e+170) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 3.4e+185) tmp = Float64(x_46_re / y_46_re); elseif (x_46_im <= 5.8e+188) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 6e+188) tmp = Float64(x_46_im / y_46_re); elseif (x_46_im <= 1.35e+244) tmp = Float64(x_46_im / y_46_im); elseif (x_46_im <= 1.4e+244) tmp = Float64(x_46_im / y_46_re); elseif ((x_46_im <= 1.3e+263) || !((x_46_im <= 2.65e+271) || (!(x_46_im <= 2e+299) && (x_46_im <= 2.1e+299)))) tmp = Float64(x_46_im / y_46_im); else tmp = Float64(x_46_re / 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 (x_46_im <= 3.3e-56) tmp = x_46_re / y_46_re; elseif (x_46_im <= 3.5e-25) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e-13) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.2e+26) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.1e+36) tmp = x_46_im / y_46_im; elseif (x_46_im <= 9e+46) tmp = x_46_re / y_46_re; elseif (x_46_im <= 9.5e+46) tmp = x_46_im / y_46_re; elseif (x_46_im <= 5.7e+75) tmp = x_46_re / y_46_re; elseif (x_46_im <= 1.45e+119) tmp = x_46_im / y_46_im; elseif (x_46_im <= 2.5e+132) tmp = x_46_re / y_46_re; elseif (x_46_im <= 7.5e+136) tmp = x_46_im / y_46_im; elseif (x_46_im <= 5.8e+170) tmp = x_46_re / y_46_re; elseif (x_46_im <= 6e+170) tmp = x_46_im / y_46_re; elseif (x_46_im <= 3.4e+185) tmp = x_46_re / y_46_re; elseif (x_46_im <= 5.8e+188) tmp = x_46_im / y_46_im; elseif (x_46_im <= 6e+188) tmp = x_46_im / y_46_re; elseif (x_46_im <= 1.35e+244) tmp = x_46_im / y_46_im; elseif (x_46_im <= 1.4e+244) tmp = x_46_im / y_46_re; elseif ((x_46_im <= 1.3e+263) || ~(((x_46_im <= 2.65e+271) || (~((x_46_im <= 2e+299)) && (x_46_im <= 2.1e+299))))) tmp = x_46_im / y_46_im; else tmp = x_46_re / y_46_re; end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[x$46$im, 3.3e-56], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.5e-25], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e-13], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.2e+26], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.1e+36], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 9e+46], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 9.5e+46], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.7e+75], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.45e+119], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 2.5e+132], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 7.5e+136], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+170], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 6e+170], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 3.4e+185], N[(x$46$re / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 5.8e+188], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 6e+188], N[(x$46$im / y$46$re), $MachinePrecision], If[LessEqual[x$46$im, 1.35e+244], N[(x$46$im / y$46$im), $MachinePrecision], If[LessEqual[x$46$im, 1.4e+244], N[(x$46$im / y$46$re), $MachinePrecision], If[Or[LessEqual[x$46$im, 1.3e+263], N[Not[Or[LessEqual[x$46$im, 2.65e+271], And[N[Not[LessEqual[x$46$im, 2e+299]], $MachinePrecision], LessEqual[x$46$im, 2.1e+299]]]], $MachinePrecision]], N[(x$46$im / y$46$im), $MachinePrecision], N[(x$46$re / y$46$re), $MachinePrecision]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x.im \leq 3.3 \cdot 10^{-56}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 3.5 \cdot 10^{-25}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{-13}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.2 \cdot 10^{+26}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.1 \cdot 10^{+36}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 9 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 9.5 \cdot 10^{+46}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 5.7 \cdot 10^{+75}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 1.45 \cdot 10^{+119}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 2.5 \cdot 10^{+132}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 7.5 \cdot 10^{+136}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+170}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 3.4 \cdot 10^{+185}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\mathbf{elif}\;x.im \leq 5.8 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 6 \cdot 10^{+188}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.35 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{elif}\;x.im \leq 1.4 \cdot 10^{+244}:\\
\;\;\;\;\frac{x.im}{y.re}\\
\mathbf{elif}\;x.im \leq 1.3 \cdot 10^{+263} \lor \neg \left(x.im \leq 2.65 \cdot 10^{+271} \lor \neg \left(x.im \leq 2 \cdot 10^{+299}\right) \land x.im \leq 2.1 \cdot 10^{+299}\right):\\
\;\;\;\;\frac{x.im}{y.im}\\
\mathbf{else}:\\
\;\;\;\;\frac{x.re}{y.re}\\
\end{array}
\end{array}
if x.im < 3.29999999999999984e-56 or 1.4000000000000001e-13 < x.im < 1.20000000000000002e26 or 5.09999999999999973e36 < x.im < 9.00000000000000019e46 or 9.5000000000000008e46 < x.im < 5.7000000000000004e75 or 1.45000000000000004e119 < x.im < 2.5000000000000001e132 or 7.5000000000000002e136 < x.im < 5.8000000000000001e170 or 5.99999999999999994e170 < x.im < 3.40000000000000017e185 or 1.3000000000000001e263 < x.im < 2.6500000000000001e271 or 2.0000000000000001e299 < x.im < 2.1e299Initial program 65.6%
Taylor expanded in y.re around inf 57.0%
if 3.29999999999999984e-56 < x.im < 3.5000000000000002e-25 or 1.20000000000000002e26 < x.im < 5.09999999999999973e36 or 5.7000000000000004e75 < x.im < 1.45000000000000004e119 or 2.5000000000000001e132 < x.im < 7.5000000000000002e136 or 3.40000000000000017e185 < x.im < 5.7999999999999999e188 or 6.0000000000000001e188 < x.im < 1.34999999999999999e244 or 1.39999999999999995e244 < x.im < 1.3000000000000001e263 or 2.6500000000000001e271 < x.im < 2.0000000000000001e299 or 2.1e299 < x.im Initial program 37.3%
Taylor expanded in y.re around 0 85.7%
if 3.5000000000000002e-25 < x.im < 1.4000000000000001e-13 or 9.00000000000000019e46 < x.im < 9.5000000000000008e46 or 5.8000000000000001e170 < x.im < 5.99999999999999994e170 or 5.7999999999999999e188 < x.im < 6.0000000000000001e188 or 1.34999999999999999e244 < x.im < 1.39999999999999995e244Initial program 83.5%
*-un-lft-identity83.5%
add-sqr-sqrt83.5%
times-frac83.7%
hypot-define83.7%
fma-define83.7%
hypot-define83.7%
Applied egg-rr83.7%
Taylor expanded in y.im around -inf 4.4%
mul-1-neg4.4%
Simplified4.4%
Taylor expanded in y.re around -inf 6.9%
Final simplification59.3%
(FPCore (x.re x.im y.re y.im) :precision binary64 (/ x.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_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_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_im;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): return x_46_im / y_46_im
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(x_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_im; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(x$46$im / y$46$im), $MachinePrecision]
\begin{array}{l}
\\
\frac{x.im}{y.im}
\end{array}
Initial program 62.6%
Taylor expanded in y.re around 0 36.9%
herbie shell --seed 2024096
(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))))