
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (log (sqrt (+ (* x.re x.re) (* x.im x.im))))))
(*
(exp (- (* t_0 y.re) (* (atan2 x.im x.re) y.im)))
(sin (+ (* t_0 y.im) (* (atan2 x.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 = log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))));
return exp(((t_0 * y_46_re) - (atan2(x_46_im, x_46_re) * y_46_im))) * sin(((t_0 * y_46_im) + (atan2(x_46_im, x_46_re) * y_46_re)));
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
real(8) :: t_0
t_0 = log(sqrt(((x_46re * x_46re) + (x_46im * x_46im))))
code = exp(((t_0 * y_46re) - (atan2(x_46im, x_46re) * y_46im))) * sin(((t_0 * y_46im) + (atan2(x_46im, x_46re) * y_46re)))
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 = Math.log(Math.sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))));
return Math.exp(((t_0 * y_46_re) - (Math.atan2(x_46_im, x_46_re) * y_46_im))) * Math.sin(((t_0 * y_46_im) + (Math.atan2(x_46_im, x_46_re) * y_46_re)));
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.log(math.sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im)))) return math.exp(((t_0 * y_46_re) - (math.atan2(x_46_im, x_46_re) * y_46_im))) * math.sin(((t_0 * y_46_im) + (math.atan2(x_46_im, x_46_re) * y_46_re)))
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(sqrt(Float64(Float64(x_46_re * x_46_re) + Float64(x_46_im * x_46_im)))) return Float64(exp(Float64(Float64(t_0 * y_46_re) - Float64(atan(x_46_im, x_46_re) * y_46_im))) * sin(Float64(Float64(t_0 * y_46_im) + Float64(atan(x_46_im, x_46_re) * y_46_re)))) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im)))); tmp = exp(((t_0 * y_46_re) - (atan2(x_46_im, x_46_re) * y_46_im))) * sin(((t_0 * y_46_im) + (atan2(x_46_im, x_46_re) * y_46_re))); end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[Log[N[Sqrt[N[(N[(x$46$re * x$46$re), $MachinePrecision] + N[(x$46$im * x$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]}, N[(N[Exp[N[(N[(t$95$0 * y$46$re), $MachinePrecision] - N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(N[(t$95$0 * y$46$im), $MachinePrecision] + N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$re), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log \left(\sqrt{x.re \cdot x.re + x.im \cdot x.im}\right)\\
e^{t\_0 \cdot y.re - \tan^{-1}_* \frac{x.im}{x.re} \cdot y.im} \cdot \sin \left(t\_0 \cdot y.im + \tan^{-1}_* \frac{x.im}{x.re} \cdot y.re\right)
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 27 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (log (sqrt (+ (* x.re x.re) (* x.im x.im))))))
(*
(exp (- (* t_0 y.re) (* (atan2 x.im x.re) y.im)))
(sin (+ (* t_0 y.im) (* (atan2 x.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 = log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))));
return exp(((t_0 * y_46_re) - (atan2(x_46_im, x_46_re) * y_46_im))) * sin(((t_0 * y_46_im) + (atan2(x_46_im, x_46_re) * y_46_re)));
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
real(8) :: t_0
t_0 = log(sqrt(((x_46re * x_46re) + (x_46im * x_46im))))
code = exp(((t_0 * y_46re) - (atan2(x_46im, x_46re) * y_46im))) * sin(((t_0 * y_46im) + (atan2(x_46im, x_46re) * y_46re)))
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 = Math.log(Math.sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))));
return Math.exp(((t_0 * y_46_re) - (Math.atan2(x_46_im, x_46_re) * y_46_im))) * Math.sin(((t_0 * y_46_im) + (Math.atan2(x_46_im, x_46_re) * y_46_re)));
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.log(math.sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im)))) return math.exp(((t_0 * y_46_re) - (math.atan2(x_46_im, x_46_re) * y_46_im))) * math.sin(((t_0 * y_46_im) + (math.atan2(x_46_im, x_46_re) * y_46_re)))
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(sqrt(Float64(Float64(x_46_re * x_46_re) + Float64(x_46_im * x_46_im)))) return Float64(exp(Float64(Float64(t_0 * y_46_re) - Float64(atan(x_46_im, x_46_re) * y_46_im))) * sin(Float64(Float64(t_0 * y_46_im) + Float64(atan(x_46_im, x_46_re) * y_46_re)))) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im)))); tmp = exp(((t_0 * y_46_re) - (atan2(x_46_im, x_46_re) * y_46_im))) * sin(((t_0 * y_46_im) + (atan2(x_46_im, x_46_re) * y_46_re))); end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[Log[N[Sqrt[N[(N[(x$46$re * x$46$re), $MachinePrecision] + N[(x$46$im * x$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]}, N[(N[Exp[N[(N[(t$95$0 * y$46$re), $MachinePrecision] - N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(N[(t$95$0 * y$46$im), $MachinePrecision] + N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$re), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log \left(\sqrt{x.re \cdot x.re + x.im \cdot x.im}\right)\\
e^{t\_0 \cdot y.re - \tan^{-1}_* \frac{x.im}{x.re} \cdot y.im} \cdot \sin \left(t\_0 \cdot y.im + \tan^{-1}_* \frac{x.im}{x.re} \cdot y.re\right)
\end{array}
\end{array}
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (log (hypot x.re x.im)))
(t_1 (exp (fma t_0 y.re (* (atan2 x.im x.re) (- y.im)))))
(t_2 (cbrt (fma (atan2 x.im x.re) y.re (* t_0 y.im)))))
(if (<= y.re 8.5e-86)
(* t_1 (sin (fma t_0 y.im (* y.re (atan2 x.im x.re)))))
(* t_1 (sin (* t_2 (pow (cbrt (pow t_2 2.0)) 3.0)))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = log(hypot(x_46_re, x_46_im));
double t_1 = exp(fma(t_0, y_46_re, (atan2(x_46_im, x_46_re) * -y_46_im)));
double t_2 = cbrt(fma(atan2(x_46_im, x_46_re), y_46_re, (t_0 * y_46_im)));
double tmp;
if (y_46_re <= 8.5e-86) {
tmp = t_1 * sin(fma(t_0, y_46_im, (y_46_re * atan2(x_46_im, x_46_re))));
} else {
tmp = t_1 * sin((t_2 * pow(cbrt(pow(t_2, 2.0)), 3.0)));
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(hypot(x_46_re, x_46_im)) t_1 = exp(fma(t_0, y_46_re, Float64(atan(x_46_im, x_46_re) * Float64(-y_46_im)))) t_2 = cbrt(fma(atan(x_46_im, x_46_re), y_46_re, Float64(t_0 * y_46_im))) tmp = 0.0 if (y_46_re <= 8.5e-86) tmp = Float64(t_1 * sin(fma(t_0, y_46_im, Float64(y_46_re * atan(x_46_im, x_46_re))))); else tmp = Float64(t_1 * sin(Float64(t_2 * (cbrt((t_2 ^ 2.0)) ^ 3.0)))); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[Log[N[Sqrt[x$46$re ^ 2 + x$46$im ^ 2], $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Exp[N[(t$95$0 * y$46$re + N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * (-y$46$im)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[Power[N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$re + N[(t$95$0 * y$46$im), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]}, If[LessEqual[y$46$re, 8.5e-86], N[(t$95$1 * N[Sin[N[(t$95$0 * y$46$im + N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(t$95$1 * N[Sin[N[(t$95$2 * N[Power[N[Power[N[Power[t$95$2, 2.0], $MachinePrecision], 1/3], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log \left(\mathsf{hypot}\left(x.re, x.im\right)\right)\\
t_1 := e^{\mathsf{fma}\left(t\_0, y.re, \tan^{-1}_* \frac{x.im}{x.re} \cdot \left(-y.im\right)\right)}\\
t_2 := \sqrt[3]{\mathsf{fma}\left(\tan^{-1}_* \frac{x.im}{x.re}, y.re, t\_0 \cdot y.im\right)}\\
\mathbf{if}\;y.re \leq 8.5 \cdot 10^{-86}:\\
\;\;\;\;t\_1 \cdot \sin \left(\mathsf{fma}\left(t\_0, y.im, y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1 \cdot \sin \left(t\_2 \cdot {\left(\sqrt[3]{{t\_2}^{2}}\right)}^{3}\right)\\
\end{array}
\end{array}
if y.re < 8.499999999999999e-86Initial program 47.8%
fmm-def47.8%
hypot-define47.8%
distribute-rgt-neg-out47.8%
fma-define47.8%
hypot-define85.0%
*-commutative85.0%
Simplified85.0%
if 8.499999999999999e-86 < y.re Initial program 35.0%
fmm-def35.0%
hypot-define35.0%
distribute-rgt-neg-out35.0%
fma-define35.0%
hypot-define68.7%
*-commutative68.7%
Simplified68.7%
add-cube-cbrt67.5%
pow368.8%
fma-undefine68.8%
*-commutative68.8%
*-commutative68.8%
fma-define68.8%
Applied egg-rr68.8%
Applied egg-rr75.9%
Final simplification82.2%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (log (sqrt (+ (* x.re x.re) (* x.im x.im)))))
(t_1 (exp (- (* y.re t_0) (* (atan2 x.im x.re) y.im))))
(t_2 (* y.re (atan2 x.im x.re)))
(t_3 (* t_1 (sin (+ t_2 (* y.im t_0)))))
(t_4 (sin t_2)))
(if (<= t_3 (- INFINITY))
(* t_1 t_4)
(if (<= t_3 INFINITY)
t_3
(*
(exp (fma (log (hypot x.re x.im)) y.re (* (atan2 x.im x.re) (- 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 = log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))));
double t_1 = exp(((y_46_re * t_0) - (atan2(x_46_im, x_46_re) * y_46_im)));
double t_2 = y_46_re * atan2(x_46_im, x_46_re);
double t_3 = t_1 * sin((t_2 + (y_46_im * t_0)));
double t_4 = sin(t_2);
double tmp;
if (t_3 <= -((double) INFINITY)) {
tmp = t_1 * t_4;
} else if (t_3 <= ((double) INFINITY)) {
tmp = t_3;
} else {
tmp = exp(fma(log(hypot(x_46_re, x_46_im)), y_46_re, (atan2(x_46_im, x_46_re) * -y_46_im))) * t_4;
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(sqrt(Float64(Float64(x_46_re * x_46_re) + Float64(x_46_im * x_46_im)))) t_1 = exp(Float64(Float64(y_46_re * t_0) - Float64(atan(x_46_im, x_46_re) * y_46_im))) t_2 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_3 = Float64(t_1 * sin(Float64(t_2 + Float64(y_46_im * t_0)))) t_4 = sin(t_2) tmp = 0.0 if (t_3 <= Float64(-Inf)) tmp = Float64(t_1 * t_4); elseif (t_3 <= Inf) tmp = t_3; else tmp = Float64(exp(fma(log(hypot(x_46_re, x_46_im)), y_46_re, Float64(atan(x_46_im, x_46_re) * Float64(-y_46_im)))) * t_4); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[Log[N[Sqrt[N[(N[(x$46$re * x$46$re), $MachinePrecision] + N[(x$46$im * x$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Exp[N[(N[(y$46$re * t$95$0), $MachinePrecision] - N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$1 * N[Sin[N[(t$95$2 + N[(y$46$im * t$95$0), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[Sin[t$95$2], $MachinePrecision]}, If[LessEqual[t$95$3, (-Infinity)], N[(t$95$1 * t$95$4), $MachinePrecision], If[LessEqual[t$95$3, Infinity], t$95$3, N[(N[Exp[N[(N[Log[N[Sqrt[x$46$re ^ 2 + x$46$im ^ 2], $MachinePrecision]], $MachinePrecision] * y$46$re + N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * (-y$46$im)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * t$95$4), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log \left(\sqrt{x.re \cdot x.re + x.im \cdot x.im}\right)\\
t_1 := e^{y.re \cdot t\_0 - \tan^{-1}_* \frac{x.im}{x.re} \cdot y.im}\\
t_2 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_3 := t\_1 \cdot \sin \left(t\_2 + y.im \cdot t\_0\right)\\
t_4 := \sin t\_2\\
\mathbf{if}\;t\_3 \leq -\infty:\\
\;\;\;\;t\_1 \cdot t\_4\\
\mathbf{elif}\;t\_3 \leq \infty:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;e^{\mathsf{fma}\left(\log \left(\mathsf{hypot}\left(x.re, x.im\right)\right), y.re, \tan^{-1}_* \frac{x.im}{x.re} \cdot \left(-y.im\right)\right)} \cdot t\_4\\
\end{array}
\end{array}
if (*.f64 (exp.f64 (-.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.re) (*.f64 (atan2.f64 x.im x.re) y.im))) (sin.f64 (+.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.im) (*.f64 (atan2.f64 x.im x.re) y.re)))) < -inf.0Initial program 47.6%
Taylor expanded in y.im around 0 71.4%
if -inf.0 < (*.f64 (exp.f64 (-.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.re) (*.f64 (atan2.f64 x.im x.re) y.im))) (sin.f64 (+.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.im) (*.f64 (atan2.f64 x.im x.re) y.re)))) < +inf.0Initial program 87.3%
if +inf.0 < (*.f64 (exp.f64 (-.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.re) (*.f64 (atan2.f64 x.im x.re) y.im))) (sin.f64 (+.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.im) (*.f64 (atan2.f64 x.im x.re) y.re)))) Initial program 0.0%
fmm-def0.0%
hypot-define0.0%
distribute-rgt-neg-out0.0%
fma-define0.0%
hypot-define78.2%
*-commutative78.2%
Simplified78.2%
add-cube-cbrt76.4%
pow375.5%
fma-undefine75.5%
*-commutative75.5%
*-commutative75.5%
fma-define75.5%
Applied egg-rr75.5%
Taylor expanded in y.im around 0 64.6%
Final simplification75.5%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (log (hypot x.re x.im)))
(t_1 (log (sqrt (+ (* x.re x.re) (* x.im x.im)))))
(t_2 (exp (- (* y.re t_1) (* (atan2 x.im x.re) y.im))))
(t_3 (* y.re (atan2 x.im x.re))))
(if (<= (* t_2 (sin (+ t_3 (* y.im t_1)))) (- INFINITY))
(* t_2 (sin t_3))
(*
(exp (fma t_0 y.re (* (atan2 x.im x.re) (- y.im))))
(sin (fma t_0 y.im t_3))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = log(hypot(x_46_re, x_46_im));
double t_1 = log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))));
double t_2 = exp(((y_46_re * t_1) - (atan2(x_46_im, x_46_re) * y_46_im)));
double t_3 = y_46_re * atan2(x_46_im, x_46_re);
double tmp;
if ((t_2 * sin((t_3 + (y_46_im * t_1)))) <= -((double) INFINITY)) {
tmp = t_2 * sin(t_3);
} else {
tmp = exp(fma(t_0, y_46_re, (atan2(x_46_im, x_46_re) * -y_46_im))) * sin(fma(t_0, y_46_im, t_3));
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(hypot(x_46_re, x_46_im)) t_1 = log(sqrt(Float64(Float64(x_46_re * x_46_re) + Float64(x_46_im * x_46_im)))) t_2 = exp(Float64(Float64(y_46_re * t_1) - Float64(atan(x_46_im, x_46_re) * y_46_im))) t_3 = Float64(y_46_re * atan(x_46_im, x_46_re)) tmp = 0.0 if (Float64(t_2 * sin(Float64(t_3 + Float64(y_46_im * t_1)))) <= Float64(-Inf)) tmp = Float64(t_2 * sin(t_3)); else tmp = Float64(exp(fma(t_0, y_46_re, Float64(atan(x_46_im, x_46_re) * Float64(-y_46_im)))) * sin(fma(t_0, y_46_im, t_3))); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[Log[N[Sqrt[x$46$re ^ 2 + x$46$im ^ 2], $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Log[N[Sqrt[N[(N[(x$46$re * x$46$re), $MachinePrecision] + N[(x$46$im * x$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[Exp[N[(N[(y$46$re * t$95$1), $MachinePrecision] - N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(t$95$2 * N[Sin[N[(t$95$3 + N[(y$46$im * t$95$1), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], (-Infinity)], N[(t$95$2 * N[Sin[t$95$3], $MachinePrecision]), $MachinePrecision], N[(N[Exp[N[(t$95$0 * y$46$re + N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * (-y$46$im)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(t$95$0 * y$46$im + t$95$3), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log \left(\mathsf{hypot}\left(x.re, x.im\right)\right)\\
t_1 := \log \left(\sqrt{x.re \cdot x.re + x.im \cdot x.im}\right)\\
t_2 := e^{y.re \cdot t\_1 - \tan^{-1}_* \frac{x.im}{x.re} \cdot y.im}\\
t_3 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
\mathbf{if}\;t\_2 \cdot \sin \left(t\_3 + y.im \cdot t\_1\right) \leq -\infty:\\
\;\;\;\;t\_2 \cdot \sin t\_3\\
\mathbf{else}:\\
\;\;\;\;e^{\mathsf{fma}\left(t\_0, y.re, \tan^{-1}_* \frac{x.im}{x.re} \cdot \left(-y.im\right)\right)} \cdot \sin \left(\mathsf{fma}\left(t\_0, y.im, t\_3\right)\right)\\
\end{array}
\end{array}
if (*.f64 (exp.f64 (-.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.re) (*.f64 (atan2.f64 x.im x.re) y.im))) (sin.f64 (+.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.im) (*.f64 (atan2.f64 x.im x.re) y.re)))) < -inf.0Initial program 47.6%
Taylor expanded in y.im around 0 71.4%
if -inf.0 < (*.f64 (exp.f64 (-.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.re) (*.f64 (atan2.f64 x.im x.re) y.im))) (sin.f64 (+.f64 (*.f64 (log.f64 (sqrt.f64 (+.f64 (*.f64 x.re x.re) (*.f64 x.im x.im)))) y.im) (*.f64 (atan2.f64 x.im x.re) y.re)))) Initial program 43.5%
fmm-def43.5%
hypot-define43.5%
distribute-rgt-neg-out43.5%
fma-define43.5%
hypot-define82.8%
*-commutative82.8%
Simplified82.8%
Final simplification81.9%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (log (hypot x.im x.re))))
(if (<= y.re -1.05e+41)
(*
(exp
(-
(* y.re (log (sqrt (+ (* x.re x.re) (* x.im x.im)))))
(* (atan2 x.im x.re) y.im)))
(sin (* y.im t_0)))
(if (<= y.re 2.3e-94)
(*
(/ (pow (hypot x.re x.im) y.re) (pow (exp y.im) (atan2 x.im x.re)))
(sin (* y.im (+ t_0 (* y.re (/ (atan2 x.im x.re) y.im))))))
(*
(exp (fma (log (hypot x.re x.im)) y.re (* (atan2 x.im x.re) (- y.im))))
(sin (* y.re (+ (atan2 x.im x.re) (* y.im (/ t_0 y.re))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = log(hypot(x_46_im, x_46_re));
double tmp;
if (y_46_re <= -1.05e+41) {
tmp = exp(((y_46_re * log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))))) - (atan2(x_46_im, x_46_re) * y_46_im))) * sin((y_46_im * t_0));
} else if (y_46_re <= 2.3e-94) {
tmp = (pow(hypot(x_46_re, x_46_im), y_46_re) / pow(exp(y_46_im), atan2(x_46_im, x_46_re))) * sin((y_46_im * (t_0 + (y_46_re * (atan2(x_46_im, x_46_re) / y_46_im)))));
} else {
tmp = exp(fma(log(hypot(x_46_re, x_46_im)), y_46_re, (atan2(x_46_im, x_46_re) * -y_46_im))) * sin((y_46_re * (atan2(x_46_im, x_46_re) + (y_46_im * (t_0 / y_46_re)))));
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(hypot(x_46_im, x_46_re)) tmp = 0.0 if (y_46_re <= -1.05e+41) tmp = Float64(exp(Float64(Float64(y_46_re * log(sqrt(Float64(Float64(x_46_re * x_46_re) + Float64(x_46_im * x_46_im))))) - Float64(atan(x_46_im, x_46_re) * y_46_im))) * sin(Float64(y_46_im * t_0))); elseif (y_46_re <= 2.3e-94) tmp = Float64(Float64((hypot(x_46_re, x_46_im) ^ y_46_re) / (exp(y_46_im) ^ atan(x_46_im, x_46_re))) * sin(Float64(y_46_im * Float64(t_0 + Float64(y_46_re * Float64(atan(x_46_im, x_46_re) / y_46_im)))))); else tmp = Float64(exp(fma(log(hypot(x_46_re, x_46_im)), y_46_re, Float64(atan(x_46_im, x_46_re) * Float64(-y_46_im)))) * sin(Float64(y_46_re * Float64(atan(x_46_im, x_46_re) + Float64(y_46_im * Float64(t_0 / y_46_re)))))); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]}, If[LessEqual[y$46$re, -1.05e+41], N[(N[Exp[N[(N[(y$46$re * N[Log[N[Sqrt[N[(N[(x$46$re * x$46$re), $MachinePrecision] + N[(x$46$im * x$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision] - N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(y$46$im * t$95$0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, 2.3e-94], N[(N[(N[Power[N[Sqrt[x$46$re ^ 2 + x$46$im ^ 2], $MachinePrecision], y$46$re], $MachinePrecision] / N[Power[N[Exp[y$46$im], $MachinePrecision], N[ArcTan[x$46$im / x$46$re], $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[Sin[N[(y$46$im * N[(t$95$0 + N[(y$46$re * N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(N[Exp[N[(N[Log[N[Sqrt[x$46$re ^ 2 + x$46$im ^ 2], $MachinePrecision]], $MachinePrecision] * y$46$re + N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * (-y$46$im)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(y$46$re * N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] + N[(y$46$im * N[(t$95$0 / y$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\\
\mathbf{if}\;y.re \leq -1.05 \cdot 10^{+41}:\\
\;\;\;\;e^{y.re \cdot \log \left(\sqrt{x.re \cdot x.re + x.im \cdot x.im}\right) - \tan^{-1}_* \frac{x.im}{x.re} \cdot y.im} \cdot \sin \left(y.im \cdot t\_0\right)\\
\mathbf{elif}\;y.re \leq 2.3 \cdot 10^{-94}:\\
\;\;\;\;\frac{{\left(\mathsf{hypot}\left(x.re, x.im\right)\right)}^{y.re}}{{\left(e^{y.im}\right)}^{\tan^{-1}_* \frac{x.im}{x.re}}} \cdot \sin \left(y.im \cdot \left(t\_0 + y.re \cdot \frac{\tan^{-1}_* \frac{x.im}{x.re}}{y.im}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;e^{\mathsf{fma}\left(\log \left(\mathsf{hypot}\left(x.re, x.im\right)\right), y.re, \tan^{-1}_* \frac{x.im}{x.re} \cdot \left(-y.im\right)\right)} \cdot \sin \left(y.re \cdot \left(\tan^{-1}_* \frac{x.im}{x.re} + y.im \cdot \frac{t\_0}{y.re}\right)\right)\\
\end{array}
\end{array}
if y.re < -1.05e41Initial program 45.0%
Taylor expanded in y.re around 0 47.5%
unpow247.5%
unpow247.5%
hypot-undefine85.1%
Simplified85.1%
if -1.05e41 < y.re < 2.2999999999999999e-94Initial program 48.4%
exp-diff48.4%
exp-to-pow48.4%
hypot-define48.4%
*-commutative48.4%
exp-prod48.4%
fma-define48.4%
hypot-define85.8%
*-commutative85.8%
Simplified85.8%
Taylor expanded in y.im around inf 48.4%
unpow248.4%
unpow248.4%
hypot-undefine85.8%
associate-/l*85.8%
Simplified85.8%
if 2.2999999999999999e-94 < y.re Initial program 36.0%
fmm-def36.0%
hypot-define36.0%
distribute-rgt-neg-out36.0%
fma-define36.0%
hypot-define68.1%
*-commutative68.1%
Simplified68.1%
Taylor expanded in y.re around inf 37.2%
+-commutative37.2%
associate-/l*38.3%
unpow238.3%
unpow238.3%
hypot-undefine71.7%
Simplified71.7%
Final simplification81.1%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (log (hypot x.im x.re))))
(if (<= y.re -1.05e+41)
(*
(exp
(-
(* y.re (log (sqrt (+ (* x.re x.re) (* x.im x.im)))))
(* (atan2 x.im x.re) y.im)))
(sin (* y.im t_0)))
(if (<= y.re 3.3e-20)
(*
(/ (pow (hypot x.re x.im) y.re) (pow (exp y.im) (atan2 x.im x.re)))
(sin (* y.im (+ t_0 (* y.re (/ (atan2 x.im x.re) y.im))))))
(*
(exp (fma (log (hypot x.re x.im)) y.re (* (atan2 x.im x.re) (- y.im))))
(sin (* y.re (atan2 x.im x.re))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = log(hypot(x_46_im, x_46_re));
double tmp;
if (y_46_re <= -1.05e+41) {
tmp = exp(((y_46_re * log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))))) - (atan2(x_46_im, x_46_re) * y_46_im))) * sin((y_46_im * t_0));
} else if (y_46_re <= 3.3e-20) {
tmp = (pow(hypot(x_46_re, x_46_im), y_46_re) / pow(exp(y_46_im), atan2(x_46_im, x_46_re))) * sin((y_46_im * (t_0 + (y_46_re * (atan2(x_46_im, x_46_re) / y_46_im)))));
} else {
tmp = exp(fma(log(hypot(x_46_re, x_46_im)), y_46_re, (atan2(x_46_im, x_46_re) * -y_46_im))) * sin((y_46_re * atan2(x_46_im, x_46_re)));
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = log(hypot(x_46_im, x_46_re)) tmp = 0.0 if (y_46_re <= -1.05e+41) tmp = Float64(exp(Float64(Float64(y_46_re * log(sqrt(Float64(Float64(x_46_re * x_46_re) + Float64(x_46_im * x_46_im))))) - Float64(atan(x_46_im, x_46_re) * y_46_im))) * sin(Float64(y_46_im * t_0))); elseif (y_46_re <= 3.3e-20) tmp = Float64(Float64((hypot(x_46_re, x_46_im) ^ y_46_re) / (exp(y_46_im) ^ atan(x_46_im, x_46_re))) * sin(Float64(y_46_im * Float64(t_0 + Float64(y_46_re * Float64(atan(x_46_im, x_46_re) / y_46_im)))))); else tmp = Float64(exp(fma(log(hypot(x_46_re, x_46_im)), y_46_re, Float64(atan(x_46_im, x_46_re) * Float64(-y_46_im)))) * sin(Float64(y_46_re * atan(x_46_im, x_46_re)))); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]}, If[LessEqual[y$46$re, -1.05e+41], N[(N[Exp[N[(N[(y$46$re * N[Log[N[Sqrt[N[(N[(x$46$re * x$46$re), $MachinePrecision] + N[(x$46$im * x$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision] - N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(y$46$im * t$95$0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, 3.3e-20], N[(N[(N[Power[N[Sqrt[x$46$re ^ 2 + x$46$im ^ 2], $MachinePrecision], y$46$re], $MachinePrecision] / N[Power[N[Exp[y$46$im], $MachinePrecision], N[ArcTan[x$46$im / x$46$re], $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[Sin[N[(y$46$im * N[(t$95$0 + N[(y$46$re * N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] / y$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(N[Exp[N[(N[Log[N[Sqrt[x$46$re ^ 2 + x$46$im ^ 2], $MachinePrecision]], $MachinePrecision] * y$46$re + N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * (-y$46$im)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\\
\mathbf{if}\;y.re \leq -1.05 \cdot 10^{+41}:\\
\;\;\;\;e^{y.re \cdot \log \left(\sqrt{x.re \cdot x.re + x.im \cdot x.im}\right) - \tan^{-1}_* \frac{x.im}{x.re} \cdot y.im} \cdot \sin \left(y.im \cdot t\_0\right)\\
\mathbf{elif}\;y.re \leq 3.3 \cdot 10^{-20}:\\
\;\;\;\;\frac{{\left(\mathsf{hypot}\left(x.re, x.im\right)\right)}^{y.re}}{{\left(e^{y.im}\right)}^{\tan^{-1}_* \frac{x.im}{x.re}}} \cdot \sin \left(y.im \cdot \left(t\_0 + y.re \cdot \frac{\tan^{-1}_* \frac{x.im}{x.re}}{y.im}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;e^{\mathsf{fma}\left(\log \left(\mathsf{hypot}\left(x.re, x.im\right)\right), y.re, \tan^{-1}_* \frac{x.im}{x.re} \cdot \left(-y.im\right)\right)} \cdot \sin \left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right)\\
\end{array}
\end{array}
if y.re < -1.05e41Initial program 45.0%
Taylor expanded in y.re around 0 47.5%
unpow247.5%
unpow247.5%
hypot-undefine85.1%
Simplified85.1%
if -1.05e41 < y.re < 3.3e-20Initial program 47.1%
exp-diff47.1%
exp-to-pow47.1%
hypot-define47.1%
*-commutative47.1%
exp-prod47.0%
fma-define47.0%
hypot-define83.8%
*-commutative83.8%
Simplified83.8%
Taylor expanded in y.im around inf 47.0%
unpow247.0%
unpow247.0%
hypot-undefine83.8%
associate-/l*83.8%
Simplified83.8%
if 3.3e-20 < y.re Initial program 34.9%
fmm-def34.9%
hypot-define34.9%
distribute-rgt-neg-out34.9%
fma-define34.9%
hypot-define66.7%
*-commutative66.7%
Simplified66.7%
add-cube-cbrt61.9%
pow365.1%
fma-undefine65.1%
*-commutative65.1%
*-commutative65.1%
fma-define65.1%
Applied egg-rr65.1%
Taylor expanded in y.im around 0 71.4%
Final simplification81.0%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (or (<= y.re -3.2e-165) (not (<= y.re 2e-129)))
(*
(exp (fma (log (hypot x.re x.im)) y.re (* (atan2 x.im x.re) (- y.im))))
(sin (* y.re (atan2 x.im x.re))))
(/
(sin (* y.im (log (hypot x.im x.re))))
(exp (* (atan2 x.im x.re) y.im)))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_re <= -3.2e-165) || !(y_46_re <= 2e-129)) {
tmp = exp(fma(log(hypot(x_46_re, x_46_im)), y_46_re, (atan2(x_46_im, x_46_re) * -y_46_im))) * sin((y_46_re * atan2(x_46_im, x_46_re)));
} else {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp((atan2(x_46_im, x_46_re) * y_46_im));
}
return tmp;
}
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if ((y_46_re <= -3.2e-165) || !(y_46_re <= 2e-129)) tmp = Float64(exp(fma(log(hypot(x_46_re, x_46_im)), y_46_re, Float64(atan(x_46_im, x_46_re) * Float64(-y_46_im)))) * sin(Float64(y_46_re * atan(x_46_im, x_46_re)))); else tmp = Float64(sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) / exp(Float64(atan(x_46_im, x_46_re) * y_46_im))); end return tmp end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -3.2e-165], N[Not[LessEqual[y$46$re, 2e-129]], $MachinePrecision]], N[(N[Exp[N[(N[Log[N[Sqrt[x$46$re ^ 2 + x$46$im ^ 2], $MachinePrecision]], $MachinePrecision] * y$46$re + N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * (-y$46$im)), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Exp[N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -3.2 \cdot 10^{-165} \lor \neg \left(y.re \leq 2 \cdot 10^{-129}\right):\\
\;\;\;\;e^{\mathsf{fma}\left(\log \left(\mathsf{hypot}\left(x.re, x.im\right)\right), y.re, \tan^{-1}_* \frac{x.im}{x.re} \cdot \left(-y.im\right)\right)} \cdot \sin \left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)}{e^{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im}}\\
\end{array}
\end{array}
if y.re < -3.20000000000000013e-165 or 1.9999999999999999e-129 < y.re Initial program 41.8%
fmm-def41.8%
hypot-define41.8%
distribute-rgt-neg-out41.8%
fma-define41.8%
hypot-define76.8%
*-commutative76.8%
Simplified76.8%
add-cube-cbrt75.2%
pow375.8%
fma-undefine75.8%
*-commutative75.8%
*-commutative75.8%
fma-define75.8%
Applied egg-rr75.8%
Taylor expanded in y.im around 0 72.9%
if -3.20000000000000013e-165 < y.re < 1.9999999999999999e-129Initial program 47.5%
exp-diff47.5%
exp-to-pow47.5%
hypot-define47.5%
*-commutative47.5%
exp-prod47.5%
fma-define47.5%
hypot-define85.5%
*-commutative85.5%
Simplified85.5%
Taylor expanded in y.re around 0 40.6%
unpow240.6%
unpow240.6%
hypot-undefine74.6%
*-commutative74.6%
exp-prod69.2%
Simplified69.2%
Taylor expanded in x.im around 0 74.6%
Final simplification73.5%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.re (atan2 x.im x.re))))
(t_1
(/
(sin (* y.im (log (hypot x.im x.re))))
(exp (* (atan2 x.im x.re) y.im)))))
(if (<= y.im -2.05e-91)
t_1
(if (<= y.im 3.9e-109)
(* t_0 (pow (hypot x.im x.re) y.re))
(if (or (<= y.im 21000000000000.0)
(not
(or (<= y.im 1.35e+69)
(and (not (<= y.im 5.1e+97)) (<= y.im 1.12e+181)))))
t_1
(* t_0 (pow (log (exp (hypot x.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 = sin((y_46_re * atan2(x_46_im, x_46_re)));
double t_1 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp((atan2(x_46_im, x_46_re) * y_46_im));
double tmp;
if (y_46_im <= -2.05e-91) {
tmp = t_1;
} else if (y_46_im <= 3.9e-109) {
tmp = t_0 * pow(hypot(x_46_im, x_46_re), y_46_re);
} else if ((y_46_im <= 21000000000000.0) || !((y_46_im <= 1.35e+69) || (!(y_46_im <= 5.1e+97) && (y_46_im <= 1.12e+181)))) {
tmp = t_1;
} else {
tmp = t_0 * pow(log(exp(hypot(x_46_im, x_46_re))), y_46_re);
}
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 = Math.sin((y_46_re * Math.atan2(x_46_im, x_46_re)));
double t_1 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re)))) / Math.exp((Math.atan2(x_46_im, x_46_re) * y_46_im));
double tmp;
if (y_46_im <= -2.05e-91) {
tmp = t_1;
} else if (y_46_im <= 3.9e-109) {
tmp = t_0 * Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
} else if ((y_46_im <= 21000000000000.0) || !((y_46_im <= 1.35e+69) || (!(y_46_im <= 5.1e+97) && (y_46_im <= 1.12e+181)))) {
tmp = t_1;
} else {
tmp = t_0 * Math.pow(Math.log(Math.exp(Math.hypot(x_46_im, x_46_re))), y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_re * math.atan2(x_46_im, x_46_re))) t_1 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) / math.exp((math.atan2(x_46_im, x_46_re) * y_46_im)) tmp = 0 if y_46_im <= -2.05e-91: tmp = t_1 elif y_46_im <= 3.9e-109: tmp = t_0 * math.pow(math.hypot(x_46_im, x_46_re), y_46_re) elif (y_46_im <= 21000000000000.0) or not ((y_46_im <= 1.35e+69) or (not (y_46_im <= 5.1e+97) and (y_46_im <= 1.12e+181))): tmp = t_1 else: tmp = t_0 * math.pow(math.log(math.exp(math.hypot(x_46_im, x_46_re))), y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_re * atan(x_46_im, x_46_re))) t_1 = Float64(sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) / exp(Float64(atan(x_46_im, x_46_re) * y_46_im))) tmp = 0.0 if (y_46_im <= -2.05e-91) tmp = t_1; elseif (y_46_im <= 3.9e-109) tmp = Float64(t_0 * (hypot(x_46_im, x_46_re) ^ y_46_re)); elseif ((y_46_im <= 21000000000000.0) || !((y_46_im <= 1.35e+69) || (!(y_46_im <= 5.1e+97) && (y_46_im <= 1.12e+181)))) tmp = t_1; else tmp = Float64(t_0 * (log(exp(hypot(x_46_im, 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 = sin((y_46_re * atan2(x_46_im, x_46_re))); t_1 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp((atan2(x_46_im, x_46_re) * y_46_im)); tmp = 0.0; if (y_46_im <= -2.05e-91) tmp = t_1; elseif (y_46_im <= 3.9e-109) tmp = t_0 * (hypot(x_46_im, x_46_re) ^ y_46_re); elseif ((y_46_im <= 21000000000000.0) || ~(((y_46_im <= 1.35e+69) || (~((y_46_im <= 5.1e+97)) && (y_46_im <= 1.12e+181))))) tmp = t_1; else tmp = t_0 * (log(exp(hypot(x_46_im, 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[Sin[N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Exp[N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y$46$im, -2.05e-91], t$95$1, If[LessEqual[y$46$im, 3.9e-109], N[(t$95$0 * N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y$46$im, 21000000000000.0], N[Not[Or[LessEqual[y$46$im, 1.35e+69], And[N[Not[LessEqual[y$46$im, 5.1e+97]], $MachinePrecision], LessEqual[y$46$im, 1.12e+181]]]], $MachinePrecision]], t$95$1, N[(t$95$0 * N[Power[N[Log[N[Exp[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]], $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right)\\
t_1 := \frac{\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)}{e^{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im}}\\
\mathbf{if}\;y.im \leq -2.05 \cdot 10^{-91}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq 3.9 \cdot 10^{-109}:\\
\;\;\;\;t\_0 \cdot {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{elif}\;y.im \leq 21000000000000 \lor \neg \left(y.im \leq 1.35 \cdot 10^{+69} \lor \neg \left(y.im \leq 5.1 \cdot 10^{+97}\right) \land y.im \leq 1.12 \cdot 10^{+181}\right):\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_0 \cdot {\log \left(e^{\mathsf{hypot}\left(x.im, x.re\right)}\right)}^{y.re}\\
\end{array}
\end{array}
if y.im < -2.05000000000000012e-91 or 3.90000000000000023e-109 < y.im < 2.1e13 or 1.3499999999999999e69 < y.im < 5.10000000000000034e97 or 1.12000000000000005e181 < y.im Initial program 41.5%
exp-diff35.8%
exp-to-pow35.8%
hypot-define35.8%
*-commutative35.8%
exp-prod35.7%
fma-define35.7%
hypot-define66.6%
*-commutative66.6%
Simplified66.6%
Taylor expanded in y.re around 0 37.3%
unpow237.3%
unpow237.3%
hypot-undefine70.6%
*-commutative70.6%
exp-prod66.4%
Simplified66.4%
Taylor expanded in x.im around 0 70.6%
if -2.05000000000000012e-91 < y.im < 3.90000000000000023e-109Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 2.1e13 < y.im < 1.3499999999999999e69 or 5.10000000000000034e97 < y.im < 1.12000000000000005e181Initial program 34.4%
exp-diff28.2%
exp-to-pow28.2%
hypot-define28.2%
*-commutative28.2%
exp-prod28.2%
fma-define28.2%
hypot-define41.0%
*-commutative41.0%
Simplified41.0%
Taylor expanded in y.im around 0 54.3%
unpow254.3%
unpow254.3%
hypot-undefine48.3%
add-log-exp69.2%
Applied egg-rr69.2%
Final simplification72.0%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (* y.re (atan2 x.im x.re)))
(t_1 (sin t_0))
(t_2
(/
(sin (* y.im (log (hypot x.im x.re))))
(exp (* (atan2 x.im x.re) y.im))))
(t_3 (pow (hypot x.im x.re) y.re)))
(if (<= y.im -3.5e-91)
t_2
(if (<= y.im 1.65e-105)
(* t_1 t_3)
(if (<= y.im 1.15e+22)
t_2
(if (<= y.im 2.7e+65)
(* t_0 t_3)
(if (or (<= y.im 3.3e+97) (not (<= y.im 9.8e+179)))
t_2
(* t_3 (log (exp t_1))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = y_46_re * atan2(x_46_im, x_46_re);
double t_1 = sin(t_0);
double t_2 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp((atan2(x_46_im, x_46_re) * y_46_im));
double t_3 = pow(hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -3.5e-91) {
tmp = t_2;
} else if (y_46_im <= 1.65e-105) {
tmp = t_1 * t_3;
} else if (y_46_im <= 1.15e+22) {
tmp = t_2;
} else if (y_46_im <= 2.7e+65) {
tmp = t_0 * t_3;
} else if ((y_46_im <= 3.3e+97) || !(y_46_im <= 9.8e+179)) {
tmp = t_2;
} else {
tmp = t_3 * log(exp(t_1));
}
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 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_1 = Math.sin(t_0);
double t_2 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re)))) / Math.exp((Math.atan2(x_46_im, x_46_re) * y_46_im));
double t_3 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -3.5e-91) {
tmp = t_2;
} else if (y_46_im <= 1.65e-105) {
tmp = t_1 * t_3;
} else if (y_46_im <= 1.15e+22) {
tmp = t_2;
} else if (y_46_im <= 2.7e+65) {
tmp = t_0 * t_3;
} else if ((y_46_im <= 3.3e+97) || !(y_46_im <= 9.8e+179)) {
tmp = t_2;
} else {
tmp = t_3 * Math.log(Math.exp(t_1));
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = y_46_re * math.atan2(x_46_im, x_46_re) t_1 = math.sin(t_0) t_2 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) / math.exp((math.atan2(x_46_im, x_46_re) * y_46_im)) t_3 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) tmp = 0 if y_46_im <= -3.5e-91: tmp = t_2 elif y_46_im <= 1.65e-105: tmp = t_1 * t_3 elif y_46_im <= 1.15e+22: tmp = t_2 elif y_46_im <= 2.7e+65: tmp = t_0 * t_3 elif (y_46_im <= 3.3e+97) or not (y_46_im <= 9.8e+179): tmp = t_2 else: tmp = t_3 * math.log(math.exp(t_1)) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_1 = sin(t_0) t_2 = Float64(sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) / exp(Float64(atan(x_46_im, x_46_re) * y_46_im))) t_3 = hypot(x_46_im, x_46_re) ^ y_46_re tmp = 0.0 if (y_46_im <= -3.5e-91) tmp = t_2; elseif (y_46_im <= 1.65e-105) tmp = Float64(t_1 * t_3); elseif (y_46_im <= 1.15e+22) tmp = t_2; elseif (y_46_im <= 2.7e+65) tmp = Float64(t_0 * t_3); elseif ((y_46_im <= 3.3e+97) || !(y_46_im <= 9.8e+179)) tmp = t_2; else tmp = Float64(t_3 * log(exp(t_1))); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = y_46_re * atan2(x_46_im, x_46_re); t_1 = sin(t_0); t_2 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp((atan2(x_46_im, x_46_re) * y_46_im)); t_3 = hypot(x_46_im, x_46_re) ^ y_46_re; tmp = 0.0; if (y_46_im <= -3.5e-91) tmp = t_2; elseif (y_46_im <= 1.65e-105) tmp = t_1 * t_3; elseif (y_46_im <= 1.15e+22) tmp = t_2; elseif (y_46_im <= 2.7e+65) tmp = t_0 * t_3; elseif ((y_46_im <= 3.3e+97) || ~((y_46_im <= 9.8e+179))) tmp = t_2; else tmp = t_3 * log(exp(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[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sin[t$95$0], $MachinePrecision]}, Block[{t$95$2 = N[(N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Exp[N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, If[LessEqual[y$46$im, -3.5e-91], t$95$2, If[LessEqual[y$46$im, 1.65e-105], N[(t$95$1 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, 1.15e+22], t$95$2, If[LessEqual[y$46$im, 2.7e+65], N[(t$95$0 * t$95$3), $MachinePrecision], If[Or[LessEqual[y$46$im, 3.3e+97], N[Not[LessEqual[y$46$im, 9.8e+179]], $MachinePrecision]], t$95$2, N[(t$95$3 * N[Log[N[Exp[t$95$1], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_1 := \sin t\_0\\
t_2 := \frac{\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)}{e^{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im}}\\
t_3 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{if}\;y.im \leq -3.5 \cdot 10^{-91}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 1.65 \cdot 10^{-105}:\\
\;\;\;\;t\_1 \cdot t\_3\\
\mathbf{elif}\;y.im \leq 1.15 \cdot 10^{+22}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 2.7 \cdot 10^{+65}:\\
\;\;\;\;t\_0 \cdot t\_3\\
\mathbf{elif}\;y.im \leq 3.3 \cdot 10^{+97} \lor \neg \left(y.im \leq 9.8 \cdot 10^{+179}\right):\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_3 \cdot \log \left(e^{t\_1}\right)\\
\end{array}
\end{array}
if y.im < -3.4999999999999999e-91 or 1.6499999999999999e-105 < y.im < 1.1500000000000001e22 or 2.70000000000000019e65 < y.im < 3.3000000000000001e97 or 9.7999999999999997e179 < y.im Initial program 41.5%
exp-diff35.8%
exp-to-pow35.8%
hypot-define35.8%
*-commutative35.8%
exp-prod35.7%
fma-define35.7%
hypot-define66.6%
*-commutative66.6%
Simplified66.6%
Taylor expanded in y.re around 0 37.3%
unpow237.3%
unpow237.3%
hypot-undefine70.6%
*-commutative70.6%
exp-prod66.4%
Simplified66.4%
Taylor expanded in x.im around 0 70.6%
if -3.4999999999999999e-91 < y.im < 1.6499999999999999e-105Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 1.1500000000000001e22 < y.im < 2.70000000000000019e65Initial program 8.5%
exp-diff0.1%
exp-to-pow0.1%
hypot-define0.1%
*-commutative0.1%
exp-prod0.3%
fma-define0.3%
hypot-define33.6%
*-commutative33.6%
Simplified33.6%
Taylor expanded in y.im around 0 58.8%
unpow258.8%
unpow258.8%
hypot-undefine50.7%
Simplified50.7%
add-log-exp50.5%
*-commutative50.5%
Applied egg-rr50.5%
Taylor expanded in y.re around 0 59.0%
if 3.3000000000000001e97 < y.im < 9.7999999999999997e179Initial program 50.0%
exp-diff45.0%
exp-to-pow45.0%
hypot-define45.0%
*-commutative45.0%
exp-prod45.0%
fma-define45.0%
hypot-define45.4%
*-commutative45.4%
Simplified45.4%
Taylor expanded in y.im around 0 51.6%
unpow251.6%
unpow251.6%
hypot-undefine46.9%
Simplified46.9%
add-log-exp65.9%
*-commutative65.9%
Applied egg-rr65.9%
Final simplification71.3%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.re (atan2 x.im x.re))))
(t_1 (sin (* y.im (log (hypot x.im x.re)))))
(t_2 (/ t_1 (pow (exp y.im) (atan2 x.im x.re)))))
(if (<= y.im -4.3e-92)
t_2
(if (<= y.im 1.3e-111)
(* t_0 (pow (hypot x.im x.re) y.re))
(if (<= y.im 3e+14)
t_2
(if (or (<= y.im 1.02e+67)
(and (not (<= y.im 3.2e+97)) (<= y.im 3.4e+180)))
(* t_0 (pow (log (exp (hypot x.im x.re))) y.re))
(/ t_1 (exp (* (atan2 x.im x.re) y.im)))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = sin((y_46_re * atan2(x_46_im, x_46_re)));
double t_1 = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
double t_2 = t_1 / pow(exp(y_46_im), atan2(x_46_im, x_46_re));
double tmp;
if (y_46_im <= -4.3e-92) {
tmp = t_2;
} else if (y_46_im <= 1.3e-111) {
tmp = t_0 * pow(hypot(x_46_im, x_46_re), y_46_re);
} else if (y_46_im <= 3e+14) {
tmp = t_2;
} else if ((y_46_im <= 1.02e+67) || (!(y_46_im <= 3.2e+97) && (y_46_im <= 3.4e+180))) {
tmp = t_0 * pow(log(exp(hypot(x_46_im, x_46_re))), y_46_re);
} else {
tmp = t_1 / exp((atan2(x_46_im, x_46_re) * y_46_im));
}
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 = Math.sin((y_46_re * Math.atan2(x_46_im, x_46_re)));
double t_1 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
double t_2 = t_1 / Math.pow(Math.exp(y_46_im), Math.atan2(x_46_im, x_46_re));
double tmp;
if (y_46_im <= -4.3e-92) {
tmp = t_2;
} else if (y_46_im <= 1.3e-111) {
tmp = t_0 * Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
} else if (y_46_im <= 3e+14) {
tmp = t_2;
} else if ((y_46_im <= 1.02e+67) || (!(y_46_im <= 3.2e+97) && (y_46_im <= 3.4e+180))) {
tmp = t_0 * Math.pow(Math.log(Math.exp(Math.hypot(x_46_im, x_46_re))), y_46_re);
} else {
tmp = t_1 / Math.exp((Math.atan2(x_46_im, x_46_re) * y_46_im));
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_re * math.atan2(x_46_im, x_46_re))) t_1 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) t_2 = t_1 / math.pow(math.exp(y_46_im), math.atan2(x_46_im, x_46_re)) tmp = 0 if y_46_im <= -4.3e-92: tmp = t_2 elif y_46_im <= 1.3e-111: tmp = t_0 * math.pow(math.hypot(x_46_im, x_46_re), y_46_re) elif y_46_im <= 3e+14: tmp = t_2 elif (y_46_im <= 1.02e+67) or (not (y_46_im <= 3.2e+97) and (y_46_im <= 3.4e+180)): tmp = t_0 * math.pow(math.log(math.exp(math.hypot(x_46_im, x_46_re))), y_46_re) else: tmp = t_1 / math.exp((math.atan2(x_46_im, x_46_re) * y_46_im)) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_re * atan(x_46_im, x_46_re))) t_1 = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) t_2 = Float64(t_1 / (exp(y_46_im) ^ atan(x_46_im, x_46_re))) tmp = 0.0 if (y_46_im <= -4.3e-92) tmp = t_2; elseif (y_46_im <= 1.3e-111) tmp = Float64(t_0 * (hypot(x_46_im, x_46_re) ^ y_46_re)); elseif (y_46_im <= 3e+14) tmp = t_2; elseif ((y_46_im <= 1.02e+67) || (!(y_46_im <= 3.2e+97) && (y_46_im <= 3.4e+180))) tmp = Float64(t_0 * (log(exp(hypot(x_46_im, x_46_re))) ^ y_46_re)); else tmp = Float64(t_1 / exp(Float64(atan(x_46_im, x_46_re) * 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 = sin((y_46_re * atan2(x_46_im, x_46_re))); t_1 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); t_2 = t_1 / (exp(y_46_im) ^ atan2(x_46_im, x_46_re)); tmp = 0.0; if (y_46_im <= -4.3e-92) tmp = t_2; elseif (y_46_im <= 1.3e-111) tmp = t_0 * (hypot(x_46_im, x_46_re) ^ y_46_re); elseif (y_46_im <= 3e+14) tmp = t_2; elseif ((y_46_im <= 1.02e+67) || (~((y_46_im <= 3.2e+97)) && (y_46_im <= 3.4e+180))) tmp = t_0 * (log(exp(hypot(x_46_im, x_46_re))) ^ y_46_re); else tmp = t_1 / exp((atan2(x_46_im, x_46_re) * 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[Sin[N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 / N[Power[N[Exp[y$46$im], $MachinePrecision], N[ArcTan[x$46$im / x$46$re], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y$46$im, -4.3e-92], t$95$2, If[LessEqual[y$46$im, 1.3e-111], N[(t$95$0 * N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 3e+14], t$95$2, If[Or[LessEqual[y$46$im, 1.02e+67], And[N[Not[LessEqual[y$46$im, 3.2e+97]], $MachinePrecision], LessEqual[y$46$im, 3.4e+180]]], N[(t$95$0 * N[Power[N[Log[N[Exp[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]], $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], N[(t$95$1 / N[Exp[N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right)\\
t_1 := \sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
t_2 := \frac{t\_1}{{\left(e^{y.im}\right)}^{\tan^{-1}_* \frac{x.im}{x.re}}}\\
\mathbf{if}\;y.im \leq -4.3 \cdot 10^{-92}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 1.3 \cdot 10^{-111}:\\
\;\;\;\;t\_0 \cdot {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{elif}\;y.im \leq 3 \cdot 10^{+14}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y.im \leq 1.02 \cdot 10^{+67} \lor \neg \left(y.im \leq 3.2 \cdot 10^{+97}\right) \land y.im \leq 3.4 \cdot 10^{+180}:\\
\;\;\;\;t\_0 \cdot {\log \left(e^{\mathsf{hypot}\left(x.im, x.re\right)}\right)}^{y.re}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_1}{e^{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im}}\\
\end{array}
\end{array}
if y.im < -4.30000000000000014e-92 or 1.29999999999999991e-111 < y.im < 3e14Initial program 39.7%
exp-diff35.9%
exp-to-pow35.9%
hypot-define35.9%
*-commutative35.9%
exp-prod35.9%
fma-define35.9%
hypot-define68.4%
*-commutative68.4%
Simplified68.4%
Taylor expanded in y.re around 0 34.0%
unpow234.0%
unpow234.0%
hypot-undefine66.9%
exp-prod67.6%
Simplified67.6%
if -4.30000000000000014e-92 < y.im < 1.29999999999999991e-111Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 3e14 < y.im < 1.02000000000000002e67 or 3.20000000000000016e97 < y.im < 3.39999999999999985e180Initial program 34.4%
exp-diff28.2%
exp-to-pow28.2%
hypot-define28.2%
*-commutative28.2%
exp-prod28.2%
fma-define28.2%
hypot-define41.0%
*-commutative41.0%
Simplified41.0%
Taylor expanded in y.im around 0 54.3%
unpow254.3%
unpow254.3%
hypot-undefine48.3%
add-log-exp69.2%
Applied egg-rr69.2%
if 1.02000000000000002e67 < y.im < 3.20000000000000016e97 or 3.39999999999999985e180 < y.im Initial program 47.0%
exp-diff35.5%
exp-to-pow35.5%
hypot-define35.5%
*-commutative35.5%
exp-prod35.0%
fma-define35.0%
hypot-define61.3%
*-commutative61.3%
Simplified61.3%
Taylor expanded in y.re around 0 47.0%
unpow247.0%
unpow247.0%
hypot-undefine81.8%
*-commutative81.8%
exp-prod67.8%
Simplified67.8%
Taylor expanded in x.im around 0 81.8%
Final simplification72.3%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (* (atan2 x.im x.re) y.im)))
(if (or (<= y.re -2.2e-8) (not (<= y.re 4.2e-56)))
(*
(exp (- (* y.re (log (sqrt (+ (* x.re x.re) (* x.im x.im))))) t_0))
(sin (* y.re (atan2 x.im x.re))))
(/ (sin (* y.im (log (hypot x.im x.re)))) (exp t_0)))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = atan2(x_46_im, x_46_re) * y_46_im;
double tmp;
if ((y_46_re <= -2.2e-8) || !(y_46_re <= 4.2e-56)) {
tmp = exp(((y_46_re * log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))))) - t_0)) * sin((y_46_re * atan2(x_46_im, x_46_re)));
} else {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp(t_0);
}
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 = Math.atan2(x_46_im, x_46_re) * y_46_im;
double tmp;
if ((y_46_re <= -2.2e-8) || !(y_46_re <= 4.2e-56)) {
tmp = Math.exp(((y_46_re * Math.log(Math.sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))))) - t_0)) * Math.sin((y_46_re * Math.atan2(x_46_im, x_46_re)));
} else {
tmp = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re)))) / Math.exp(t_0);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.atan2(x_46_im, x_46_re) * y_46_im tmp = 0 if (y_46_re <= -2.2e-8) or not (y_46_re <= 4.2e-56): tmp = math.exp(((y_46_re * math.log(math.sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))))) - t_0)) * math.sin((y_46_re * math.atan2(x_46_im, x_46_re))) else: tmp = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) / math.exp(t_0) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(atan(x_46_im, x_46_re) * y_46_im) tmp = 0.0 if ((y_46_re <= -2.2e-8) || !(y_46_re <= 4.2e-56)) tmp = Float64(exp(Float64(Float64(y_46_re * log(sqrt(Float64(Float64(x_46_re * x_46_re) + Float64(x_46_im * x_46_im))))) - t_0)) * sin(Float64(y_46_re * atan(x_46_im, x_46_re)))); else tmp = Float64(sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) / exp(t_0)); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = atan2(x_46_im, x_46_re) * y_46_im; tmp = 0.0; if ((y_46_re <= -2.2e-8) || ~((y_46_re <= 4.2e-56))) tmp = exp(((y_46_re * log(sqrt(((x_46_re * x_46_re) + (x_46_im * x_46_im))))) - t_0)) * sin((y_46_re * atan2(x_46_im, x_46_re))); else tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp(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[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]}, If[Or[LessEqual[y$46$re, -2.2e-8], N[Not[LessEqual[y$46$re, 4.2e-56]], $MachinePrecision]], N[(N[Exp[N[(N[(y$46$re * N[Log[N[Sqrt[N[(N[(x$46$re * x$46$re), $MachinePrecision] + N[(x$46$im * x$46$im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision] - t$95$0), $MachinePrecision]], $MachinePrecision] * N[Sin[N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Exp[t$95$0], $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \tan^{-1}_* \frac{x.im}{x.re} \cdot y.im\\
\mathbf{if}\;y.re \leq -2.2 \cdot 10^{-8} \lor \neg \left(y.re \leq 4.2 \cdot 10^{-56}\right):\\
\;\;\;\;e^{y.re \cdot \log \left(\sqrt{x.re \cdot x.re + x.im \cdot x.im}\right) - t\_0} \cdot \sin \left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)}{e^{t\_0}}\\
\end{array}
\end{array}
if y.re < -2.1999999999999998e-8 or 4.20000000000000012e-56 < y.re Initial program 40.7%
Taylor expanded in y.im around 0 70.6%
if -2.1999999999999998e-8 < y.re < 4.20000000000000012e-56Initial program 46.7%
exp-diff46.7%
exp-to-pow46.7%
hypot-define46.7%
*-commutative46.7%
exp-prod46.6%
fma-define46.6%
hypot-define85.2%
*-commutative85.2%
Simplified85.2%
Taylor expanded in y.re around 0 36.2%
unpow236.2%
unpow236.2%
hypot-undefine67.1%
*-commutative67.1%
exp-prod63.4%
Simplified63.4%
Taylor expanded in x.im around 0 67.1%
Final simplification68.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (pow (exp (atan2 x.im x.re)) y.im))
(t_1
(/
(sin (* y.im (log (hypot x.im x.re))))
(+ (* (atan2 x.im x.re) y.im) 1.0)))
(t_2 (* y.re (atan2 x.im x.re)))
(t_3 (sin t_2))
(t_4 (pow (hypot x.im x.re) y.re)))
(if (<= y.im -1.02e+201)
(* t_2 t_4)
(if (<= y.im -7e+122)
(/ (sin (* y.im (log x.re))) t_0)
(if (<= y.im -1.9e-10)
(* t_3 (pow (+ x.im (* 0.5 (/ (pow x.re 2.0) x.im))) y.re))
(if (<= y.im -2.4e-91)
t_1
(if (<= y.im 1e-112)
(* t_3 t_4)
(if (<= y.im 0.118)
t_1
(if (<= y.im 2.7e+180)
(* t_3 (pow (+ x.re (* 0.5 (/ (pow x.im 2.0) x.re))) y.re))
(if (<= y.im 4.1e+262)
(/ (sin (* y.im (log x.im))) t_0)
(* (log (exp t_3)) (pow x.im y.re))))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = pow(exp(atan2(x_46_im, x_46_re)), y_46_im);
double t_1 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
double t_2 = y_46_re * atan2(x_46_im, x_46_re);
double t_3 = sin(t_2);
double t_4 = pow(hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.02e+201) {
tmp = t_2 * t_4;
} else if (y_46_im <= -7e+122) {
tmp = sin((y_46_im * log(x_46_re))) / t_0;
} else if (y_46_im <= -1.9e-10) {
tmp = t_3 * pow((x_46_im + (0.5 * (pow(x_46_re, 2.0) / x_46_im))), y_46_re);
} else if (y_46_im <= -2.4e-91) {
tmp = t_1;
} else if (y_46_im <= 1e-112) {
tmp = t_3 * t_4;
} else if (y_46_im <= 0.118) {
tmp = t_1;
} else if (y_46_im <= 2.7e+180) {
tmp = t_3 * pow((x_46_re + (0.5 * (pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 4.1e+262) {
tmp = sin((y_46_im * log(x_46_im))) / t_0;
} else {
tmp = log(exp(t_3)) * pow(x_46_im, y_46_re);
}
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 = Math.pow(Math.exp(Math.atan2(x_46_im, x_46_re)), y_46_im);
double t_1 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re)))) / ((Math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
double t_2 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_3 = Math.sin(t_2);
double t_4 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.02e+201) {
tmp = t_2 * t_4;
} else if (y_46_im <= -7e+122) {
tmp = Math.sin((y_46_im * Math.log(x_46_re))) / t_0;
} else if (y_46_im <= -1.9e-10) {
tmp = t_3 * Math.pow((x_46_im + (0.5 * (Math.pow(x_46_re, 2.0) / x_46_im))), y_46_re);
} else if (y_46_im <= -2.4e-91) {
tmp = t_1;
} else if (y_46_im <= 1e-112) {
tmp = t_3 * t_4;
} else if (y_46_im <= 0.118) {
tmp = t_1;
} else if (y_46_im <= 2.7e+180) {
tmp = t_3 * Math.pow((x_46_re + (0.5 * (Math.pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 4.1e+262) {
tmp = Math.sin((y_46_im * Math.log(x_46_im))) / t_0;
} else {
tmp = Math.log(Math.exp(t_3)) * Math.pow(x_46_im, y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.pow(math.exp(math.atan2(x_46_im, x_46_re)), y_46_im) t_1 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) / ((math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0) t_2 = y_46_re * math.atan2(x_46_im, x_46_re) t_3 = math.sin(t_2) t_4 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) tmp = 0 if y_46_im <= -1.02e+201: tmp = t_2 * t_4 elif y_46_im <= -7e+122: tmp = math.sin((y_46_im * math.log(x_46_re))) / t_0 elif y_46_im <= -1.9e-10: tmp = t_3 * math.pow((x_46_im + (0.5 * (math.pow(x_46_re, 2.0) / x_46_im))), y_46_re) elif y_46_im <= -2.4e-91: tmp = t_1 elif y_46_im <= 1e-112: tmp = t_3 * t_4 elif y_46_im <= 0.118: tmp = t_1 elif y_46_im <= 2.7e+180: tmp = t_3 * math.pow((x_46_re + (0.5 * (math.pow(x_46_im, 2.0) / x_46_re))), y_46_re) elif y_46_im <= 4.1e+262: tmp = math.sin((y_46_im * math.log(x_46_im))) / t_0 else: tmp = math.log(math.exp(t_3)) * math.pow(x_46_im, y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = exp(atan(x_46_im, x_46_re)) ^ y_46_im t_1 = Float64(sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) / Float64(Float64(atan(x_46_im, x_46_re) * y_46_im) + 1.0)) t_2 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_3 = sin(t_2) t_4 = hypot(x_46_im, x_46_re) ^ y_46_re tmp = 0.0 if (y_46_im <= -1.02e+201) tmp = Float64(t_2 * t_4); elseif (y_46_im <= -7e+122) tmp = Float64(sin(Float64(y_46_im * log(x_46_re))) / t_0); elseif (y_46_im <= -1.9e-10) tmp = Float64(t_3 * (Float64(x_46_im + Float64(0.5 * Float64((x_46_re ^ 2.0) / x_46_im))) ^ y_46_re)); elseif (y_46_im <= -2.4e-91) tmp = t_1; elseif (y_46_im <= 1e-112) tmp = Float64(t_3 * t_4); elseif (y_46_im <= 0.118) tmp = t_1; elseif (y_46_im <= 2.7e+180) tmp = Float64(t_3 * (Float64(x_46_re + Float64(0.5 * Float64((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re)); elseif (y_46_im <= 4.1e+262) tmp = Float64(sin(Float64(y_46_im * log(x_46_im))) / t_0); else tmp = Float64(log(exp(t_3)) * (x_46_im ^ 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 = exp(atan2(x_46_im, x_46_re)) ^ y_46_im; t_1 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0); t_2 = y_46_re * atan2(x_46_im, x_46_re); t_3 = sin(t_2); t_4 = hypot(x_46_im, x_46_re) ^ y_46_re; tmp = 0.0; if (y_46_im <= -1.02e+201) tmp = t_2 * t_4; elseif (y_46_im <= -7e+122) tmp = sin((y_46_im * log(x_46_re))) / t_0; elseif (y_46_im <= -1.9e-10) tmp = t_3 * ((x_46_im + (0.5 * ((x_46_re ^ 2.0) / x_46_im))) ^ y_46_re); elseif (y_46_im <= -2.4e-91) tmp = t_1; elseif (y_46_im <= 1e-112) tmp = t_3 * t_4; elseif (y_46_im <= 0.118) tmp = t_1; elseif (y_46_im <= 2.7e+180) tmp = t_3 * ((x_46_re + (0.5 * ((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re); elseif (y_46_im <= 4.1e+262) tmp = sin((y_46_im * log(x_46_im))) / t_0; else tmp = log(exp(t_3)) * (x_46_im ^ 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[Power[N[Exp[N[ArcTan[x$46$im / x$46$re], $MachinePrecision]], $MachinePrecision], y$46$im], $MachinePrecision]}, Block[{t$95$1 = N[(N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[(N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[Sin[t$95$2], $MachinePrecision]}, Block[{t$95$4 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, If[LessEqual[y$46$im, -1.02e+201], N[(t$95$2 * t$95$4), $MachinePrecision], If[LessEqual[y$46$im, -7e+122], N[(N[Sin[N[(y$46$im * N[Log[x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / t$95$0), $MachinePrecision], If[LessEqual[y$46$im, -1.9e-10], N[(t$95$3 * N[Power[N[(x$46$im + N[(0.5 * N[(N[Power[x$46$re, 2.0], $MachinePrecision] / x$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, -2.4e-91], t$95$1, If[LessEqual[y$46$im, 1e-112], N[(t$95$3 * t$95$4), $MachinePrecision], If[LessEqual[y$46$im, 0.118], t$95$1, If[LessEqual[y$46$im, 2.7e+180], N[(t$95$3 * N[Power[N[(x$46$re + N[(0.5 * N[(N[Power[x$46$im, 2.0], $MachinePrecision] / x$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 4.1e+262], N[(N[Sin[N[(y$46$im * N[Log[x$46$im], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / t$95$0), $MachinePrecision], N[(N[Log[N[Exp[t$95$3], $MachinePrecision]], $MachinePrecision] * N[Power[x$46$im, y$46$re], $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\left(e^{\tan^{-1}_* \frac{x.im}{x.re}}\right)}^{y.im}\\
t_1 := \frac{\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)}{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im + 1}\\
t_2 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_3 := \sin t\_2\\
t_4 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{if}\;y.im \leq -1.02 \cdot 10^{+201}:\\
\;\;\;\;t\_2 \cdot t\_4\\
\mathbf{elif}\;y.im \leq -7 \cdot 10^{+122}:\\
\;\;\;\;\frac{\sin \left(y.im \cdot \log x.re\right)}{t\_0}\\
\mathbf{elif}\;y.im \leq -1.9 \cdot 10^{-10}:\\
\;\;\;\;t\_3 \cdot {\left(x.im + 0.5 \cdot \frac{{x.re}^{2}}{x.im}\right)}^{y.re}\\
\mathbf{elif}\;y.im \leq -2.4 \cdot 10^{-91}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq 10^{-112}:\\
\;\;\;\;t\_3 \cdot t\_4\\
\mathbf{elif}\;y.im \leq 0.118:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y.im \leq 2.7 \cdot 10^{+180}:\\
\;\;\;\;t\_3 \cdot {\left(x.re + 0.5 \cdot \frac{{x.im}^{2}}{x.re}\right)}^{y.re}\\
\mathbf{elif}\;y.im \leq 4.1 \cdot 10^{+262}:\\
\;\;\;\;\frac{\sin \left(y.im \cdot \log x.im\right)}{t\_0}\\
\mathbf{else}:\\
\;\;\;\;\log \left(e^{t\_3}\right) \cdot {x.im}^{y.re}\\
\end{array}
\end{array}
if y.im < -1.02e201Initial program 31.3%
exp-diff18.8%
exp-to-pow18.8%
hypot-define18.8%
*-commutative18.8%
exp-prod18.8%
fma-define18.8%
hypot-define62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in y.im around 0 30.7%
unpow230.7%
unpow230.7%
hypot-undefine25.6%
Simplified25.6%
add-log-exp38.2%
*-commutative38.2%
Applied egg-rr38.2%
Taylor expanded in y.re around 0 38.1%
if -1.02e201 < y.im < -7.00000000000000028e122Initial program 42.1%
exp-diff31.6%
exp-to-pow31.6%
hypot-define31.6%
*-commutative31.6%
exp-prod31.6%
fma-define31.6%
hypot-define58.1%
*-commutative58.1%
Simplified58.1%
Taylor expanded in y.re around 0 42.1%
unpow242.1%
unpow242.1%
hypot-undefine73.8%
*-commutative73.8%
exp-prod73.8%
Simplified73.8%
Taylor expanded in x.im around 0 42.2%
if -7.00000000000000028e122 < y.im < -1.8999999999999999e-10Initial program 17.3%
exp-diff17.3%
exp-to-pow17.3%
hypot-define17.3%
*-commutative17.3%
exp-prod17.3%
fma-define17.3%
hypot-define48.4%
*-commutative48.4%
Simplified48.4%
Taylor expanded in y.im around 0 42.4%
Taylor expanded in x.re around 0 31.7%
if -1.8999999999999999e-10 < y.im < -2.40000000000000011e-91 or 9.9999999999999995e-113 < y.im < 0.11799999999999999Initial program 64.0%
exp-diff64.0%
exp-to-pow64.0%
hypot-define64.0%
*-commutative64.0%
exp-prod64.0%
fma-define64.0%
hypot-define91.3%
*-commutative91.3%
Simplified91.3%
Taylor expanded in y.re around 0 53.2%
unpow253.2%
unpow253.2%
hypot-undefine75.3%
*-commutative75.3%
exp-prod75.3%
Simplified75.3%
Taylor expanded in y.im around 0 75.3%
*-commutative75.3%
Simplified75.3%
if -2.40000000000000011e-91 < y.im < 9.9999999999999995e-113Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 0.11799999999999999 < y.im < 2.70000000000000016e180Initial program 32.6%
exp-diff25.6%
exp-to-pow25.6%
hypot-define25.6%
*-commutative25.6%
exp-prod25.7%
fma-define25.7%
hypot-define49.1%
*-commutative49.1%
Simplified49.1%
Taylor expanded in y.im around 0 47.7%
Taylor expanded in x.im around 0 49.4%
if 2.70000000000000016e180 < y.im < 4.10000000000000028e262Initial program 40.3%
exp-diff27.8%
exp-to-pow27.8%
hypot-define27.8%
*-commutative27.8%
exp-prod26.6%
fma-define26.6%
hypot-define52.8%
*-commutative52.8%
Simplified52.8%
Taylor expanded in y.re around 0 40.3%
unpow240.3%
unpow240.3%
hypot-undefine78.9%
*-commutative78.9%
exp-prod72.4%
Simplified72.4%
Taylor expanded in x.re around 0 45.3%
if 4.10000000000000028e262 < y.im Initial program 58.3%
exp-diff50.0%
exp-to-pow50.0%
hypot-define50.0%
*-commutative50.0%
exp-prod50.0%
fma-define50.0%
hypot-define66.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in y.im around 0 66.0%
unpow266.0%
unpow266.0%
hypot-undefine58.6%
Simplified58.6%
add-log-exp67.2%
*-commutative67.2%
Applied egg-rr67.2%
Taylor expanded in x.re around 0 50.0%
add-log-exp67.2%
*-commutative67.2%
Applied egg-rr58.7%
Final simplification58.6%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.im (log (hypot x.im x.re)))))
(t_1 (pow (exp (atan2 x.im x.re)) y.im))
(t_2 (* y.re (atan2 x.im x.re)))
(t_3 (pow (hypot x.im x.re) y.re))
(t_4 (sin t_2)))
(if (<= y.im -8e+200)
(* t_2 t_3)
(if (<= y.im -6e+122)
(/ (sin (* y.im (log x.re))) t_1)
(if (<= y.im -2.7e-12)
(* t_3 (fabs t_4))
(if (<= y.im -1.1e-91)
t_0
(if (<= y.im 4.4e-115)
(* t_4 t_3)
(if (<= y.im 0.00045)
(/ t_0 (+ (* (atan2 x.im x.re) y.im) 1.0))
(if (<= y.im 2.8e+180)
(* t_4 (pow (+ x.re (* 0.5 (/ (pow x.im 2.0) x.re))) y.re))
(if (<= y.im 1.75e+261)
(/ (sin (* y.im (log x.im))) t_1)
(* (log (exp t_4)) (pow x.im y.re))))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
double t_1 = pow(exp(atan2(x_46_im, x_46_re)), y_46_im);
double t_2 = y_46_re * atan2(x_46_im, x_46_re);
double t_3 = pow(hypot(x_46_im, x_46_re), y_46_re);
double t_4 = sin(t_2);
double tmp;
if (y_46_im <= -8e+200) {
tmp = t_2 * t_3;
} else if (y_46_im <= -6e+122) {
tmp = sin((y_46_im * log(x_46_re))) / t_1;
} else if (y_46_im <= -2.7e-12) {
tmp = t_3 * fabs(t_4);
} else if (y_46_im <= -1.1e-91) {
tmp = t_0;
} else if (y_46_im <= 4.4e-115) {
tmp = t_4 * t_3;
} else if (y_46_im <= 0.00045) {
tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else if (y_46_im <= 2.8e+180) {
tmp = t_4 * pow((x_46_re + (0.5 * (pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 1.75e+261) {
tmp = sin((y_46_im * log(x_46_im))) / t_1;
} else {
tmp = log(exp(t_4)) * pow(x_46_im, y_46_re);
}
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 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
double t_1 = Math.pow(Math.exp(Math.atan2(x_46_im, x_46_re)), y_46_im);
double t_2 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_3 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double t_4 = Math.sin(t_2);
double tmp;
if (y_46_im <= -8e+200) {
tmp = t_2 * t_3;
} else if (y_46_im <= -6e+122) {
tmp = Math.sin((y_46_im * Math.log(x_46_re))) / t_1;
} else if (y_46_im <= -2.7e-12) {
tmp = t_3 * Math.abs(t_4);
} else if (y_46_im <= -1.1e-91) {
tmp = t_0;
} else if (y_46_im <= 4.4e-115) {
tmp = t_4 * t_3;
} else if (y_46_im <= 0.00045) {
tmp = t_0 / ((Math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else if (y_46_im <= 2.8e+180) {
tmp = t_4 * Math.pow((x_46_re + (0.5 * (Math.pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 1.75e+261) {
tmp = Math.sin((y_46_im * Math.log(x_46_im))) / t_1;
} else {
tmp = Math.log(Math.exp(t_4)) * Math.pow(x_46_im, y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) t_1 = math.pow(math.exp(math.atan2(x_46_im, x_46_re)), y_46_im) t_2 = y_46_re * math.atan2(x_46_im, x_46_re) t_3 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) t_4 = math.sin(t_2) tmp = 0 if y_46_im <= -8e+200: tmp = t_2 * t_3 elif y_46_im <= -6e+122: tmp = math.sin((y_46_im * math.log(x_46_re))) / t_1 elif y_46_im <= -2.7e-12: tmp = t_3 * math.fabs(t_4) elif y_46_im <= -1.1e-91: tmp = t_0 elif y_46_im <= 4.4e-115: tmp = t_4 * t_3 elif y_46_im <= 0.00045: tmp = t_0 / ((math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0) elif y_46_im <= 2.8e+180: tmp = t_4 * math.pow((x_46_re + (0.5 * (math.pow(x_46_im, 2.0) / x_46_re))), y_46_re) elif y_46_im <= 1.75e+261: tmp = math.sin((y_46_im * math.log(x_46_im))) / t_1 else: tmp = math.log(math.exp(t_4)) * math.pow(x_46_im, y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) t_1 = exp(atan(x_46_im, x_46_re)) ^ y_46_im t_2 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_3 = hypot(x_46_im, x_46_re) ^ y_46_re t_4 = sin(t_2) tmp = 0.0 if (y_46_im <= -8e+200) tmp = Float64(t_2 * t_3); elseif (y_46_im <= -6e+122) tmp = Float64(sin(Float64(y_46_im * log(x_46_re))) / t_1); elseif (y_46_im <= -2.7e-12) tmp = Float64(t_3 * abs(t_4)); elseif (y_46_im <= -1.1e-91) tmp = t_0; elseif (y_46_im <= 4.4e-115) tmp = Float64(t_4 * t_3); elseif (y_46_im <= 0.00045) tmp = Float64(t_0 / Float64(Float64(atan(x_46_im, x_46_re) * y_46_im) + 1.0)); elseif (y_46_im <= 2.8e+180) tmp = Float64(t_4 * (Float64(x_46_re + Float64(0.5 * Float64((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re)); elseif (y_46_im <= 1.75e+261) tmp = Float64(sin(Float64(y_46_im * log(x_46_im))) / t_1); else tmp = Float64(log(exp(t_4)) * (x_46_im ^ 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 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); t_1 = exp(atan2(x_46_im, x_46_re)) ^ y_46_im; t_2 = y_46_re * atan2(x_46_im, x_46_re); t_3 = hypot(x_46_im, x_46_re) ^ y_46_re; t_4 = sin(t_2); tmp = 0.0; if (y_46_im <= -8e+200) tmp = t_2 * t_3; elseif (y_46_im <= -6e+122) tmp = sin((y_46_im * log(x_46_re))) / t_1; elseif (y_46_im <= -2.7e-12) tmp = t_3 * abs(t_4); elseif (y_46_im <= -1.1e-91) tmp = t_0; elseif (y_46_im <= 4.4e-115) tmp = t_4 * t_3; elseif (y_46_im <= 0.00045) tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0); elseif (y_46_im <= 2.8e+180) tmp = t_4 * ((x_46_re + (0.5 * ((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re); elseif (y_46_im <= 1.75e+261) tmp = sin((y_46_im * log(x_46_im))) / t_1; else tmp = log(exp(t_4)) * (x_46_im ^ 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[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[Power[N[Exp[N[ArcTan[x$46$im / x$46$re], $MachinePrecision]], $MachinePrecision], y$46$im], $MachinePrecision]}, Block[{t$95$2 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, Block[{t$95$4 = N[Sin[t$95$2], $MachinePrecision]}, If[LessEqual[y$46$im, -8e+200], N[(t$95$2 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, -6e+122], N[(N[Sin[N[(y$46$im * N[Log[x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / t$95$1), $MachinePrecision], If[LessEqual[y$46$im, -2.7e-12], N[(t$95$3 * N[Abs[t$95$4], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, -1.1e-91], t$95$0, If[LessEqual[y$46$im, 4.4e-115], N[(t$95$4 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, 0.00045], N[(t$95$0 / N[(N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 2.8e+180], N[(t$95$4 * N[Power[N[(x$46$re + N[(0.5 * N[(N[Power[x$46$im, 2.0], $MachinePrecision] / x$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 1.75e+261], N[(N[Sin[N[(y$46$im * N[Log[x$46$im], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / t$95$1), $MachinePrecision], N[(N[Log[N[Exp[t$95$4], $MachinePrecision]], $MachinePrecision] * N[Power[x$46$im, y$46$re], $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
t_1 := {\left(e^{\tan^{-1}_* \frac{x.im}{x.re}}\right)}^{y.im}\\
t_2 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_3 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
t_4 := \sin t\_2\\
\mathbf{if}\;y.im \leq -8 \cdot 10^{+200}:\\
\;\;\;\;t\_2 \cdot t\_3\\
\mathbf{elif}\;y.im \leq -6 \cdot 10^{+122}:\\
\;\;\;\;\frac{\sin \left(y.im \cdot \log x.re\right)}{t\_1}\\
\mathbf{elif}\;y.im \leq -2.7 \cdot 10^{-12}:\\
\;\;\;\;t\_3 \cdot \left|t\_4\right|\\
\mathbf{elif}\;y.im \leq -1.1 \cdot 10^{-91}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 4.4 \cdot 10^{-115}:\\
\;\;\;\;t\_4 \cdot t\_3\\
\mathbf{elif}\;y.im \leq 0.00045:\\
\;\;\;\;\frac{t\_0}{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im + 1}\\
\mathbf{elif}\;y.im \leq 2.8 \cdot 10^{+180}:\\
\;\;\;\;t\_4 \cdot {\left(x.re + 0.5 \cdot \frac{{x.im}^{2}}{x.re}\right)}^{y.re}\\
\mathbf{elif}\;y.im \leq 1.75 \cdot 10^{+261}:\\
\;\;\;\;\frac{\sin \left(y.im \cdot \log x.im\right)}{t\_1}\\
\mathbf{else}:\\
\;\;\;\;\log \left(e^{t\_4}\right) \cdot {x.im}^{y.re}\\
\end{array}
\end{array}
if y.im < -7.9999999999999998e200Initial program 31.3%
exp-diff18.8%
exp-to-pow18.8%
hypot-define18.8%
*-commutative18.8%
exp-prod18.8%
fma-define18.8%
hypot-define62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in y.im around 0 30.7%
unpow230.7%
unpow230.7%
hypot-undefine25.6%
Simplified25.6%
add-log-exp38.2%
*-commutative38.2%
Applied egg-rr38.2%
Taylor expanded in y.re around 0 38.1%
if -7.9999999999999998e200 < y.im < -5.99999999999999972e122Initial program 42.1%
exp-diff31.6%
exp-to-pow31.6%
hypot-define31.6%
*-commutative31.6%
exp-prod31.6%
fma-define31.6%
hypot-define58.1%
*-commutative58.1%
Simplified58.1%
Taylor expanded in y.re around 0 42.1%
unpow242.1%
unpow242.1%
hypot-undefine73.8%
*-commutative73.8%
exp-prod73.8%
Simplified73.8%
Taylor expanded in x.im around 0 42.2%
if -5.99999999999999972e122 < y.im < -2.6999999999999998e-12Initial program 22.6%
exp-diff22.6%
exp-to-pow22.6%
hypot-define22.6%
*-commutative22.6%
exp-prod22.6%
fma-define22.6%
hypot-define51.7%
*-commutative51.7%
Simplified51.7%
Taylor expanded in y.im around 0 43.0%
unpow243.0%
unpow243.0%
hypot-undefine27.8%
Simplified27.8%
add-log-exp36.5%
*-commutative36.5%
Applied egg-rr36.5%
rem-log-exp27.8%
add-sqr-sqrt23.8%
sqrt-unprod46.2%
pow246.2%
Applied egg-rr46.2%
*-commutative46.2%
unpow246.2%
rem-sqrt-square34.3%
Simplified34.3%
if -2.6999999999999998e-12 < y.im < -1.1e-91Initial program 68.5%
exp-diff68.5%
exp-to-pow68.5%
hypot-define68.5%
*-commutative68.5%
exp-prod68.5%
fma-define68.5%
hypot-define99.4%
*-commutative99.4%
Simplified99.4%
Taylor expanded in y.re around 0 56.2%
unpow256.2%
unpow256.2%
hypot-undefine87.2%
*-commutative87.2%
exp-prod87.2%
Simplified87.2%
Taylor expanded in y.im around 0 87.2%
if -1.1e-91 < y.im < 4.3999999999999999e-115Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 4.3999999999999999e-115 < y.im < 4.4999999999999999e-4Initial program 56.6%
exp-diff56.6%
exp-to-pow56.6%
hypot-define56.6%
*-commutative56.6%
exp-prod56.6%
fma-define56.6%
hypot-define83.6%
*-commutative83.6%
Simplified83.6%
Taylor expanded in y.re around 0 51.0%
unpow251.0%
unpow251.0%
hypot-undefine67.9%
*-commutative67.9%
exp-prod67.9%
Simplified67.9%
Taylor expanded in y.im around 0 67.9%
*-commutative67.9%
Simplified67.9%
if 4.4999999999999999e-4 < y.im < 2.80000000000000012e180Initial program 32.6%
exp-diff25.6%
exp-to-pow25.6%
hypot-define25.6%
*-commutative25.6%
exp-prod25.7%
fma-define25.7%
hypot-define49.1%
*-commutative49.1%
Simplified49.1%
Taylor expanded in y.im around 0 47.7%
Taylor expanded in x.im around 0 49.4%
if 2.80000000000000012e180 < y.im < 1.74999999999999998e261Initial program 40.3%
exp-diff27.8%
exp-to-pow27.8%
hypot-define27.8%
*-commutative27.8%
exp-prod26.6%
fma-define26.6%
hypot-define52.8%
*-commutative52.8%
Simplified52.8%
Taylor expanded in y.re around 0 40.3%
unpow240.3%
unpow240.3%
hypot-undefine78.9%
*-commutative78.9%
exp-prod72.4%
Simplified72.4%
Taylor expanded in x.re around 0 45.3%
if 1.74999999999999998e261 < y.im Initial program 58.3%
exp-diff50.0%
exp-to-pow50.0%
hypot-define50.0%
*-commutative50.0%
exp-prod50.0%
fma-define50.0%
hypot-define66.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in y.im around 0 66.0%
unpow266.0%
unpow266.0%
hypot-undefine58.6%
Simplified58.6%
add-log-exp67.2%
*-commutative67.2%
Applied egg-rr67.2%
Taylor expanded in x.re around 0 50.0%
add-log-exp67.2%
*-commutative67.2%
Applied egg-rr58.7%
Final simplification58.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.im (log (hypot x.im x.re)))))
(t_1 (* y.re (atan2 x.im x.re)))
(t_2 (sin t_1))
(t_3 (pow (hypot x.im x.re) y.re)))
(if (<= y.im -1.7e-11)
(* t_1 t_3)
(if (<= y.im -4.6e-92)
t_0
(if (<= y.im 4.2e-107)
(* t_2 t_3)
(if (<= y.im 0.43)
(/ t_0 (+ (* (atan2 x.im x.re) y.im) 1.0))
(if (<= y.im 2.6e+139)
(* t_2 (pow (+ x.re (* 0.5 (/ (pow x.im 2.0) x.re))) y.re))
(if (<= y.im 4.6e+257)
(* t_2 (pow (- x.re) y.re))
(* (log (exp t_2)) (pow x.im y.re))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * atan2(x_46_im, x_46_re);
double t_2 = sin(t_1);
double t_3 = pow(hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.7e-11) {
tmp = t_1 * t_3;
} else if (y_46_im <= -4.6e-92) {
tmp = t_0;
} else if (y_46_im <= 4.2e-107) {
tmp = t_2 * t_3;
} else if (y_46_im <= 0.43) {
tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else if (y_46_im <= 2.6e+139) {
tmp = t_2 * pow((x_46_re + (0.5 * (pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 4.6e+257) {
tmp = t_2 * pow(-x_46_re, y_46_re);
} else {
tmp = log(exp(t_2)) * pow(x_46_im, y_46_re);
}
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 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_2 = Math.sin(t_1);
double t_3 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.7e-11) {
tmp = t_1 * t_3;
} else if (y_46_im <= -4.6e-92) {
tmp = t_0;
} else if (y_46_im <= 4.2e-107) {
tmp = t_2 * t_3;
} else if (y_46_im <= 0.43) {
tmp = t_0 / ((Math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else if (y_46_im <= 2.6e+139) {
tmp = t_2 * Math.pow((x_46_re + (0.5 * (Math.pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 4.6e+257) {
tmp = t_2 * Math.pow(-x_46_re, y_46_re);
} else {
tmp = Math.log(Math.exp(t_2)) * Math.pow(x_46_im, y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) t_1 = y_46_re * math.atan2(x_46_im, x_46_re) t_2 = math.sin(t_1) t_3 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) tmp = 0 if y_46_im <= -1.7e-11: tmp = t_1 * t_3 elif y_46_im <= -4.6e-92: tmp = t_0 elif y_46_im <= 4.2e-107: tmp = t_2 * t_3 elif y_46_im <= 0.43: tmp = t_0 / ((math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0) elif y_46_im <= 2.6e+139: tmp = t_2 * math.pow((x_46_re + (0.5 * (math.pow(x_46_im, 2.0) / x_46_re))), y_46_re) elif y_46_im <= 4.6e+257: tmp = t_2 * math.pow(-x_46_re, y_46_re) else: tmp = math.log(math.exp(t_2)) * math.pow(x_46_im, y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) t_1 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_2 = sin(t_1) t_3 = hypot(x_46_im, x_46_re) ^ y_46_re tmp = 0.0 if (y_46_im <= -1.7e-11) tmp = Float64(t_1 * t_3); elseif (y_46_im <= -4.6e-92) tmp = t_0; elseif (y_46_im <= 4.2e-107) tmp = Float64(t_2 * t_3); elseif (y_46_im <= 0.43) tmp = Float64(t_0 / Float64(Float64(atan(x_46_im, x_46_re) * y_46_im) + 1.0)); elseif (y_46_im <= 2.6e+139) tmp = Float64(t_2 * (Float64(x_46_re + Float64(0.5 * Float64((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re)); elseif (y_46_im <= 4.6e+257) tmp = Float64(t_2 * (Float64(-x_46_re) ^ y_46_re)); else tmp = Float64(log(exp(t_2)) * (x_46_im ^ 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 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); t_1 = y_46_re * atan2(x_46_im, x_46_re); t_2 = sin(t_1); t_3 = hypot(x_46_im, x_46_re) ^ y_46_re; tmp = 0.0; if (y_46_im <= -1.7e-11) tmp = t_1 * t_3; elseif (y_46_im <= -4.6e-92) tmp = t_0; elseif (y_46_im <= 4.2e-107) tmp = t_2 * t_3; elseif (y_46_im <= 0.43) tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0); elseif (y_46_im <= 2.6e+139) tmp = t_2 * ((x_46_re + (0.5 * ((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re); elseif (y_46_im <= 4.6e+257) tmp = t_2 * (-x_46_re ^ y_46_re); else tmp = log(exp(t_2)) * (x_46_im ^ 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[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sin[t$95$1], $MachinePrecision]}, Block[{t$95$3 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, If[LessEqual[y$46$im, -1.7e-11], N[(t$95$1 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, -4.6e-92], t$95$0, If[LessEqual[y$46$im, 4.2e-107], N[(t$95$2 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, 0.43], N[(t$95$0 / N[(N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 2.6e+139], N[(t$95$2 * N[Power[N[(x$46$re + N[(0.5 * N[(N[Power[x$46$im, 2.0], $MachinePrecision] / x$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 4.6e+257], N[(t$95$2 * N[Power[(-x$46$re), y$46$re], $MachinePrecision]), $MachinePrecision], N[(N[Log[N[Exp[t$95$2], $MachinePrecision]], $MachinePrecision] * N[Power[x$46$im, y$46$re], $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
t_1 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_2 := \sin t\_1\\
t_3 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{if}\;y.im \leq -1.7 \cdot 10^{-11}:\\
\;\;\;\;t\_1 \cdot t\_3\\
\mathbf{elif}\;y.im \leq -4.6 \cdot 10^{-92}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 4.2 \cdot 10^{-107}:\\
\;\;\;\;t\_2 \cdot t\_3\\
\mathbf{elif}\;y.im \leq 0.43:\\
\;\;\;\;\frac{t\_0}{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im + 1}\\
\mathbf{elif}\;y.im \leq 2.6 \cdot 10^{+139}:\\
\;\;\;\;t\_2 \cdot {\left(x.re + 0.5 \cdot \frac{{x.im}^{2}}{x.re}\right)}^{y.re}\\
\mathbf{elif}\;y.im \leq 4.6 \cdot 10^{+257}:\\
\;\;\;\;t\_2 \cdot {\left(-x.re\right)}^{y.re}\\
\mathbf{else}:\\
\;\;\;\;\log \left(e^{t\_2}\right) \cdot {x.im}^{y.re}\\
\end{array}
\end{array}
if y.im < -1.6999999999999999e-11Initial program 30.3%
exp-diff24.2%
exp-to-pow24.2%
hypot-define24.2%
*-commutative24.2%
exp-prod24.2%
fma-define24.2%
hypot-define56.2%
*-commutative56.2%
Simplified56.2%
Taylor expanded in y.im around 0 32.8%
unpow232.8%
unpow232.8%
hypot-undefine23.2%
Simplified23.2%
add-log-exp38.8%
*-commutative38.8%
Applied egg-rr38.8%
Taylor expanded in y.re around 0 29.2%
if -1.6999999999999999e-11 < y.im < -4.60000000000000032e-92Initial program 68.5%
exp-diff68.5%
exp-to-pow68.5%
hypot-define68.5%
*-commutative68.5%
exp-prod68.5%
fma-define68.5%
hypot-define99.4%
*-commutative99.4%
Simplified99.4%
Taylor expanded in y.re around 0 56.2%
unpow256.2%
unpow256.2%
hypot-undefine87.2%
*-commutative87.2%
exp-prod87.2%
Simplified87.2%
Taylor expanded in y.im around 0 87.2%
if -4.60000000000000032e-92 < y.im < 4.1999999999999998e-107Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 4.1999999999999998e-107 < y.im < 0.429999999999999993Initial program 56.6%
exp-diff56.6%
exp-to-pow56.6%
hypot-define56.6%
*-commutative56.6%
exp-prod56.6%
fma-define56.6%
hypot-define83.6%
*-commutative83.6%
Simplified83.6%
Taylor expanded in y.re around 0 51.0%
unpow251.0%
unpow251.0%
hypot-undefine67.9%
*-commutative67.9%
exp-prod67.9%
Simplified67.9%
Taylor expanded in y.im around 0 67.9%
*-commutative67.9%
Simplified67.9%
if 0.429999999999999993 < y.im < 2.60000000000000022e139Initial program 30.4%
exp-diff24.3%
exp-to-pow24.3%
hypot-define24.3%
*-commutative24.3%
exp-prod24.3%
fma-define24.3%
hypot-define54.8%
*-commutative54.8%
Simplified54.8%
Taylor expanded in y.im around 0 43.7%
Taylor expanded in x.im around 0 48.9%
if 2.60000000000000022e139 < y.im < 4.6e257Initial program 40.2%
exp-diff28.6%
exp-to-pow28.6%
hypot-define28.6%
*-commutative28.6%
exp-prod27.9%
fma-define27.9%
hypot-define44.1%
*-commutative44.1%
Simplified44.1%
Taylor expanded in y.im around 0 32.2%
Taylor expanded in x.re around -inf 39.4%
mul-1-neg39.4%
Simplified39.4%
if 4.6e257 < y.im Initial program 58.3%
exp-diff50.0%
exp-to-pow50.0%
hypot-define50.0%
*-commutative50.0%
exp-prod50.0%
fma-define50.0%
hypot-define66.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in y.im around 0 66.0%
unpow266.0%
unpow266.0%
hypot-undefine58.6%
Simplified58.6%
add-log-exp67.2%
*-commutative67.2%
Applied egg-rr67.2%
Taylor expanded in x.re around 0 50.0%
add-log-exp67.2%
*-commutative67.2%
Applied egg-rr58.7%
Final simplification55.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.im (log (hypot x.im x.re)))))
(t_1 (* y.re (atan2 x.im x.re)))
(t_2 (sin t_1))
(t_3 (pow (hypot x.im x.re) y.re)))
(if (<= y.im -1.55e-14)
(* t_1 t_3)
(if (<= y.im -2.6e-91)
t_0
(if (<= y.im 4.2e-105)
(* t_2 t_3)
(if (<= y.im 7e-5)
(/ t_0 (+ (* (atan2 x.im x.re) y.im) 1.0))
(if (<= y.im 1.4e+180)
(* t_2 (pow (+ x.re (* 0.5 (/ (pow x.im 2.0) x.re))) y.re))
(if (<= y.im 1.05e+264)
(/ (sin (* y.im (log x.im))) (pow (exp (atan2 x.im x.re)) y.im))
(* (log (exp t_2)) (pow x.im y.re))))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * atan2(x_46_im, x_46_re);
double t_2 = sin(t_1);
double t_3 = pow(hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.55e-14) {
tmp = t_1 * t_3;
} else if (y_46_im <= -2.6e-91) {
tmp = t_0;
} else if (y_46_im <= 4.2e-105) {
tmp = t_2 * t_3;
} else if (y_46_im <= 7e-5) {
tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else if (y_46_im <= 1.4e+180) {
tmp = t_2 * pow((x_46_re + (0.5 * (pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 1.05e+264) {
tmp = sin((y_46_im * log(x_46_im))) / pow(exp(atan2(x_46_im, x_46_re)), y_46_im);
} else {
tmp = log(exp(t_2)) * pow(x_46_im, y_46_re);
}
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 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_2 = Math.sin(t_1);
double t_3 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.55e-14) {
tmp = t_1 * t_3;
} else if (y_46_im <= -2.6e-91) {
tmp = t_0;
} else if (y_46_im <= 4.2e-105) {
tmp = t_2 * t_3;
} else if (y_46_im <= 7e-5) {
tmp = t_0 / ((Math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else if (y_46_im <= 1.4e+180) {
tmp = t_2 * Math.pow((x_46_re + (0.5 * (Math.pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 1.05e+264) {
tmp = Math.sin((y_46_im * Math.log(x_46_im))) / Math.pow(Math.exp(Math.atan2(x_46_im, x_46_re)), y_46_im);
} else {
tmp = Math.log(Math.exp(t_2)) * Math.pow(x_46_im, y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) t_1 = y_46_re * math.atan2(x_46_im, x_46_re) t_2 = math.sin(t_1) t_3 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) tmp = 0 if y_46_im <= -1.55e-14: tmp = t_1 * t_3 elif y_46_im <= -2.6e-91: tmp = t_0 elif y_46_im <= 4.2e-105: tmp = t_2 * t_3 elif y_46_im <= 7e-5: tmp = t_0 / ((math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0) elif y_46_im <= 1.4e+180: tmp = t_2 * math.pow((x_46_re + (0.5 * (math.pow(x_46_im, 2.0) / x_46_re))), y_46_re) elif y_46_im <= 1.05e+264: tmp = math.sin((y_46_im * math.log(x_46_im))) / math.pow(math.exp(math.atan2(x_46_im, x_46_re)), y_46_im) else: tmp = math.log(math.exp(t_2)) * math.pow(x_46_im, y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) t_1 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_2 = sin(t_1) t_3 = hypot(x_46_im, x_46_re) ^ y_46_re tmp = 0.0 if (y_46_im <= -1.55e-14) tmp = Float64(t_1 * t_3); elseif (y_46_im <= -2.6e-91) tmp = t_0; elseif (y_46_im <= 4.2e-105) tmp = Float64(t_2 * t_3); elseif (y_46_im <= 7e-5) tmp = Float64(t_0 / Float64(Float64(atan(x_46_im, x_46_re) * y_46_im) + 1.0)); elseif (y_46_im <= 1.4e+180) tmp = Float64(t_2 * (Float64(x_46_re + Float64(0.5 * Float64((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re)); elseif (y_46_im <= 1.05e+264) tmp = Float64(sin(Float64(y_46_im * log(x_46_im))) / (exp(atan(x_46_im, x_46_re)) ^ y_46_im)); else tmp = Float64(log(exp(t_2)) * (x_46_im ^ 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 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); t_1 = y_46_re * atan2(x_46_im, x_46_re); t_2 = sin(t_1); t_3 = hypot(x_46_im, x_46_re) ^ y_46_re; tmp = 0.0; if (y_46_im <= -1.55e-14) tmp = t_1 * t_3; elseif (y_46_im <= -2.6e-91) tmp = t_0; elseif (y_46_im <= 4.2e-105) tmp = t_2 * t_3; elseif (y_46_im <= 7e-5) tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0); elseif (y_46_im <= 1.4e+180) tmp = t_2 * ((x_46_re + (0.5 * ((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re); elseif (y_46_im <= 1.05e+264) tmp = sin((y_46_im * log(x_46_im))) / (exp(atan2(x_46_im, x_46_re)) ^ y_46_im); else tmp = log(exp(t_2)) * (x_46_im ^ 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[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sin[t$95$1], $MachinePrecision]}, Block[{t$95$3 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, If[LessEqual[y$46$im, -1.55e-14], N[(t$95$1 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, -2.6e-91], t$95$0, If[LessEqual[y$46$im, 4.2e-105], N[(t$95$2 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, 7e-5], N[(t$95$0 / N[(N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 1.4e+180], N[(t$95$2 * N[Power[N[(x$46$re + N[(0.5 * N[(N[Power[x$46$im, 2.0], $MachinePrecision] / x$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 1.05e+264], N[(N[Sin[N[(y$46$im * N[Log[x$46$im], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Power[N[Exp[N[ArcTan[x$46$im / x$46$re], $MachinePrecision]], $MachinePrecision], y$46$im], $MachinePrecision]), $MachinePrecision], N[(N[Log[N[Exp[t$95$2], $MachinePrecision]], $MachinePrecision] * N[Power[x$46$im, y$46$re], $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
t_1 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_2 := \sin t\_1\\
t_3 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{if}\;y.im \leq -1.55 \cdot 10^{-14}:\\
\;\;\;\;t\_1 \cdot t\_3\\
\mathbf{elif}\;y.im \leq -2.6 \cdot 10^{-91}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 4.2 \cdot 10^{-105}:\\
\;\;\;\;t\_2 \cdot t\_3\\
\mathbf{elif}\;y.im \leq 7 \cdot 10^{-5}:\\
\;\;\;\;\frac{t\_0}{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im + 1}\\
\mathbf{elif}\;y.im \leq 1.4 \cdot 10^{+180}:\\
\;\;\;\;t\_2 \cdot {\left(x.re + 0.5 \cdot \frac{{x.im}^{2}}{x.re}\right)}^{y.re}\\
\mathbf{elif}\;y.im \leq 1.05 \cdot 10^{+264}:\\
\;\;\;\;\frac{\sin \left(y.im \cdot \log x.im\right)}{{\left(e^{\tan^{-1}_* \frac{x.im}{x.re}}\right)}^{y.im}}\\
\mathbf{else}:\\
\;\;\;\;\log \left(e^{t\_2}\right) \cdot {x.im}^{y.re}\\
\end{array}
\end{array}
if y.im < -1.55000000000000002e-14Initial program 30.3%
exp-diff24.2%
exp-to-pow24.2%
hypot-define24.2%
*-commutative24.2%
exp-prod24.2%
fma-define24.2%
hypot-define56.2%
*-commutative56.2%
Simplified56.2%
Taylor expanded in y.im around 0 32.8%
unpow232.8%
unpow232.8%
hypot-undefine23.2%
Simplified23.2%
add-log-exp38.8%
*-commutative38.8%
Applied egg-rr38.8%
Taylor expanded in y.re around 0 29.2%
if -1.55000000000000002e-14 < y.im < -2.60000000000000014e-91Initial program 68.5%
exp-diff68.5%
exp-to-pow68.5%
hypot-define68.5%
*-commutative68.5%
exp-prod68.5%
fma-define68.5%
hypot-define99.4%
*-commutative99.4%
Simplified99.4%
Taylor expanded in y.re around 0 56.2%
unpow256.2%
unpow256.2%
hypot-undefine87.2%
*-commutative87.2%
exp-prod87.2%
Simplified87.2%
Taylor expanded in y.im around 0 87.2%
if -2.60000000000000014e-91 < y.im < 4.2e-105Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 4.2e-105 < y.im < 6.9999999999999994e-5Initial program 56.6%
exp-diff56.6%
exp-to-pow56.6%
hypot-define56.6%
*-commutative56.6%
exp-prod56.6%
fma-define56.6%
hypot-define83.6%
*-commutative83.6%
Simplified83.6%
Taylor expanded in y.re around 0 51.0%
unpow251.0%
unpow251.0%
hypot-undefine67.9%
*-commutative67.9%
exp-prod67.9%
Simplified67.9%
Taylor expanded in y.im around 0 67.9%
*-commutative67.9%
Simplified67.9%
if 6.9999999999999994e-5 < y.im < 1.40000000000000006e180Initial program 32.6%
exp-diff25.6%
exp-to-pow25.6%
hypot-define25.6%
*-commutative25.6%
exp-prod25.7%
fma-define25.7%
hypot-define49.1%
*-commutative49.1%
Simplified49.1%
Taylor expanded in y.im around 0 47.7%
Taylor expanded in x.im around 0 49.4%
if 1.40000000000000006e180 < y.im < 1.05000000000000005e264Initial program 40.3%
exp-diff27.8%
exp-to-pow27.8%
hypot-define27.8%
*-commutative27.8%
exp-prod26.6%
fma-define26.6%
hypot-define52.8%
*-commutative52.8%
Simplified52.8%
Taylor expanded in y.re around 0 40.3%
unpow240.3%
unpow240.3%
hypot-undefine78.9%
*-commutative78.9%
exp-prod72.4%
Simplified72.4%
Taylor expanded in x.re around 0 45.3%
if 1.05000000000000005e264 < y.im Initial program 58.3%
exp-diff50.0%
exp-to-pow50.0%
hypot-define50.0%
*-commutative50.0%
exp-prod50.0%
fma-define50.0%
hypot-define66.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in y.im around 0 66.0%
unpow266.0%
unpow266.0%
hypot-undefine58.6%
Simplified58.6%
add-log-exp67.2%
*-commutative67.2%
Applied egg-rr67.2%
Taylor expanded in x.re around 0 50.0%
add-log-exp67.2%
*-commutative67.2%
Applied egg-rr58.7%
Final simplification56.6%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (pow (hypot x.im x.re) y.re))
(t_1 (* y.re (atan2 x.im x.re)))
(t_2 (sin t_1)))
(if (<= y.re -40.0)
(* t_0 (fabs t_2))
(if (<= y.re 8.5e-84)
(/
(sin (* y.im (log (hypot x.im x.re))))
(exp (* (atan2 x.im x.re) y.im)))
(if (or (<= y.re 1.25e+76) (not (<= y.re 2.2e+241)))
(* t_1 t_0)
(* t_2 (pow 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 = pow(hypot(x_46_im, x_46_re), y_46_re);
double t_1 = y_46_re * atan2(x_46_im, x_46_re);
double t_2 = sin(t_1);
double tmp;
if (y_46_re <= -40.0) {
tmp = t_0 * fabs(t_2);
} else if (y_46_re <= 8.5e-84) {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp((atan2(x_46_im, x_46_re) * y_46_im));
} else if ((y_46_re <= 1.25e+76) || !(y_46_re <= 2.2e+241)) {
tmp = t_1 * t_0;
} else {
tmp = t_2 * pow(x_46_re, y_46_re);
}
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 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double t_1 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_2 = Math.sin(t_1);
double tmp;
if (y_46_re <= -40.0) {
tmp = t_0 * Math.abs(t_2);
} else if (y_46_re <= 8.5e-84) {
tmp = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re)))) / Math.exp((Math.atan2(x_46_im, x_46_re) * y_46_im));
} else if ((y_46_re <= 1.25e+76) || !(y_46_re <= 2.2e+241)) {
tmp = t_1 * t_0;
} else {
tmp = t_2 * Math.pow(x_46_re, y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) t_1 = y_46_re * math.atan2(x_46_im, x_46_re) t_2 = math.sin(t_1) tmp = 0 if y_46_re <= -40.0: tmp = t_0 * math.fabs(t_2) elif y_46_re <= 8.5e-84: tmp = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) / math.exp((math.atan2(x_46_im, x_46_re) * y_46_im)) elif (y_46_re <= 1.25e+76) or not (y_46_re <= 2.2e+241): tmp = t_1 * t_0 else: tmp = t_2 * math.pow(x_46_re, y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = hypot(x_46_im, x_46_re) ^ y_46_re t_1 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_2 = sin(t_1) tmp = 0.0 if (y_46_re <= -40.0) tmp = Float64(t_0 * abs(t_2)); elseif (y_46_re <= 8.5e-84) tmp = Float64(sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) / exp(Float64(atan(x_46_im, x_46_re) * y_46_im))); elseif ((y_46_re <= 1.25e+76) || !(y_46_re <= 2.2e+241)) tmp = Float64(t_1 * t_0); else tmp = Float64(t_2 * (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 = hypot(x_46_im, x_46_re) ^ y_46_re; t_1 = y_46_re * atan2(x_46_im, x_46_re); t_2 = sin(t_1); tmp = 0.0; if (y_46_re <= -40.0) tmp = t_0 * abs(t_2); elseif (y_46_re <= 8.5e-84) tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))) / exp((atan2(x_46_im, x_46_re) * y_46_im)); elseif ((y_46_re <= 1.25e+76) || ~((y_46_re <= 2.2e+241))) tmp = t_1 * t_0; else tmp = t_2 * (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[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, Block[{t$95$1 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sin[t$95$1], $MachinePrecision]}, If[LessEqual[y$46$re, -40.0], N[(t$95$0 * N[Abs[t$95$2], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, 8.5e-84], N[(N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / N[Exp[N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y$46$re, 1.25e+76], N[Not[LessEqual[y$46$re, 2.2e+241]], $MachinePrecision]], N[(t$95$1 * t$95$0), $MachinePrecision], N[(t$95$2 * N[Power[x$46$re, y$46$re], $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
t_1 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_2 := \sin t\_1\\
\mathbf{if}\;y.re \leq -40:\\
\;\;\;\;t\_0 \cdot \left|t\_2\right|\\
\mathbf{elif}\;y.re \leq 8.5 \cdot 10^{-84}:\\
\;\;\;\;\frac{\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)}{e^{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im}}\\
\mathbf{elif}\;y.re \leq 1.25 \cdot 10^{+76} \lor \neg \left(y.re \leq 2.2 \cdot 10^{+241}\right):\\
\;\;\;\;t\_1 \cdot t\_0\\
\mathbf{else}:\\
\;\;\;\;t\_2 \cdot {x.re}^{y.re}\\
\end{array}
\end{array}
if y.re < -40Initial program 47.1%
exp-diff35.3%
exp-to-pow35.3%
hypot-define35.3%
*-commutative35.3%
exp-prod35.3%
fma-define35.3%
hypot-define58.8%
*-commutative58.8%
Simplified58.8%
Taylor expanded in y.im around 0 72.8%
unpow272.8%
unpow272.8%
hypot-undefine72.8%
Simplified72.8%
add-log-exp72.8%
*-commutative72.8%
Applied egg-rr72.8%
rem-log-exp72.8%
add-sqr-sqrt53.0%
sqrt-unprod74.7%
pow274.7%
Applied egg-rr74.7%
*-commutative74.7%
unpow274.7%
rem-sqrt-square74.7%
Simplified74.7%
if -40 < y.re < 8.4999999999999994e-84Initial program 47.3%
exp-diff47.3%
exp-to-pow47.3%
hypot-define47.3%
*-commutative47.3%
exp-prod47.2%
fma-define47.2%
hypot-define85.3%
*-commutative85.3%
Simplified85.3%
Taylor expanded in y.re around 0 37.9%
unpow237.9%
unpow237.9%
hypot-undefine68.6%
*-commutative68.6%
exp-prod64.7%
Simplified64.7%
Taylor expanded in x.im around 0 68.6%
if 8.4999999999999994e-84 < y.re < 1.24999999999999998e76 or 2.2e241 < y.re Initial program 36.8%
exp-diff34.2%
exp-to-pow34.2%
hypot-define34.2%
*-commutative34.2%
exp-prod34.2%
fma-define34.2%
hypot-define55.2%
*-commutative55.2%
Simplified55.2%
Taylor expanded in y.im around 0 44.3%
unpow244.3%
unpow244.3%
hypot-undefine47.3%
Simplified47.3%
add-log-exp30.5%
*-commutative30.5%
Applied egg-rr30.5%
Taylor expanded in y.re around 0 55.1%
if 1.24999999999999998e76 < y.re < 2.2e241Initial program 35.0%
exp-diff27.5%
exp-to-pow27.5%
hypot-define27.5%
*-commutative27.5%
exp-prod27.5%
fma-define27.5%
hypot-define60.0%
*-commutative60.0%
Simplified60.0%
Taylor expanded in y.im around 0 62.7%
unpow262.7%
unpow262.7%
hypot-undefine62.7%
Simplified62.7%
add-log-exp57.7%
*-commutative57.7%
Applied egg-rr57.7%
Taylor expanded in x.im around 0 70.2%
Final simplification68.1%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (pow (hypot x.im x.re) y.re))
(t_1 (* y.re (atan2 x.im x.re)))
(t_2 (sin t_1)))
(if (<= y.re -3.3)
(* t_0 (fabs t_2))
(if (<= y.re 2.9e-83)
(/ (* y.im (log (hypot x.im x.re))) (pow (exp (atan2 x.im x.re)) y.im))
(if (or (<= y.re 4.2e+81) (not (<= y.re 9e+238)))
(* t_1 t_0)
(* t_2 (pow 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 = pow(hypot(x_46_im, x_46_re), y_46_re);
double t_1 = y_46_re * atan2(x_46_im, x_46_re);
double t_2 = sin(t_1);
double tmp;
if (y_46_re <= -3.3) {
tmp = t_0 * fabs(t_2);
} else if (y_46_re <= 2.9e-83) {
tmp = (y_46_im * log(hypot(x_46_im, x_46_re))) / pow(exp(atan2(x_46_im, x_46_re)), y_46_im);
} else if ((y_46_re <= 4.2e+81) || !(y_46_re <= 9e+238)) {
tmp = t_1 * t_0;
} else {
tmp = t_2 * pow(x_46_re, y_46_re);
}
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 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double t_1 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_2 = Math.sin(t_1);
double tmp;
if (y_46_re <= -3.3) {
tmp = t_0 * Math.abs(t_2);
} else if (y_46_re <= 2.9e-83) {
tmp = (y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))) / Math.pow(Math.exp(Math.atan2(x_46_im, x_46_re)), y_46_im);
} else if ((y_46_re <= 4.2e+81) || !(y_46_re <= 9e+238)) {
tmp = t_1 * t_0;
} else {
tmp = t_2 * Math.pow(x_46_re, y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) t_1 = y_46_re * math.atan2(x_46_im, x_46_re) t_2 = math.sin(t_1) tmp = 0 if y_46_re <= -3.3: tmp = t_0 * math.fabs(t_2) elif y_46_re <= 2.9e-83: tmp = (y_46_im * math.log(math.hypot(x_46_im, x_46_re))) / math.pow(math.exp(math.atan2(x_46_im, x_46_re)), y_46_im) elif (y_46_re <= 4.2e+81) or not (y_46_re <= 9e+238): tmp = t_1 * t_0 else: tmp = t_2 * math.pow(x_46_re, y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = hypot(x_46_im, x_46_re) ^ y_46_re t_1 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_2 = sin(t_1) tmp = 0.0 if (y_46_re <= -3.3) tmp = Float64(t_0 * abs(t_2)); elseif (y_46_re <= 2.9e-83) tmp = Float64(Float64(y_46_im * log(hypot(x_46_im, x_46_re))) / (exp(atan(x_46_im, x_46_re)) ^ y_46_im)); elseif ((y_46_re <= 4.2e+81) || !(y_46_re <= 9e+238)) tmp = Float64(t_1 * t_0); else tmp = Float64(t_2 * (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 = hypot(x_46_im, x_46_re) ^ y_46_re; t_1 = y_46_re * atan2(x_46_im, x_46_re); t_2 = sin(t_1); tmp = 0.0; if (y_46_re <= -3.3) tmp = t_0 * abs(t_2); elseif (y_46_re <= 2.9e-83) tmp = (y_46_im * log(hypot(x_46_im, x_46_re))) / (exp(atan2(x_46_im, x_46_re)) ^ y_46_im); elseif ((y_46_re <= 4.2e+81) || ~((y_46_re <= 9e+238))) tmp = t_1 * t_0; else tmp = t_2 * (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[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, Block[{t$95$1 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sin[t$95$1], $MachinePrecision]}, If[LessEqual[y$46$re, -3.3], N[(t$95$0 * N[Abs[t$95$2], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, 2.9e-83], N[(N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[Power[N[Exp[N[ArcTan[x$46$im / x$46$re], $MachinePrecision]], $MachinePrecision], y$46$im], $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y$46$re, 4.2e+81], N[Not[LessEqual[y$46$re, 9e+238]], $MachinePrecision]], N[(t$95$1 * t$95$0), $MachinePrecision], N[(t$95$2 * N[Power[x$46$re, y$46$re], $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
t_1 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_2 := \sin t\_1\\
\mathbf{if}\;y.re \leq -3.3:\\
\;\;\;\;t\_0 \cdot \left|t\_2\right|\\
\mathbf{elif}\;y.re \leq 2.9 \cdot 10^{-83}:\\
\;\;\;\;\frac{y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)}{{\left(e^{\tan^{-1}_* \frac{x.im}{x.re}}\right)}^{y.im}}\\
\mathbf{elif}\;y.re \leq 4.2 \cdot 10^{+81} \lor \neg \left(y.re \leq 9 \cdot 10^{+238}\right):\\
\;\;\;\;t\_1 \cdot t\_0\\
\mathbf{else}:\\
\;\;\;\;t\_2 \cdot {x.re}^{y.re}\\
\end{array}
\end{array}
if y.re < -3.2999999999999998Initial program 47.1%
exp-diff35.3%
exp-to-pow35.3%
hypot-define35.3%
*-commutative35.3%
exp-prod35.3%
fma-define35.3%
hypot-define58.8%
*-commutative58.8%
Simplified58.8%
Taylor expanded in y.im around 0 72.8%
unpow272.8%
unpow272.8%
hypot-undefine72.8%
Simplified72.8%
add-log-exp72.8%
*-commutative72.8%
Applied egg-rr72.8%
rem-log-exp72.8%
add-sqr-sqrt53.0%
sqrt-unprod74.7%
pow274.7%
Applied egg-rr74.7%
*-commutative74.7%
unpow274.7%
rem-sqrt-square74.7%
Simplified74.7%
if -3.2999999999999998 < y.re < 2.8999999999999999e-83Initial program 47.0%
exp-diff47.0%
exp-to-pow47.0%
hypot-define47.0%
*-commutative47.0%
exp-prod46.8%
fma-define46.8%
hypot-define84.6%
*-commutative84.6%
Simplified84.6%
Taylor expanded in y.re around 0 37.6%
unpow237.6%
unpow237.6%
hypot-undefine68.1%
*-commutative68.1%
exp-prod64.2%
Simplified64.2%
Taylor expanded in y.im around 0 40.9%
unpow240.9%
unpow240.9%
hypot-undefine59.0%
Simplified59.0%
if 2.8999999999999999e-83 < y.re < 4.1999999999999997e81 or 9e238 < y.re Initial program 35.9%
exp-diff33.3%
exp-to-pow33.3%
hypot-define33.3%
*-commutative33.3%
exp-prod33.3%
fma-define33.3%
hypot-define56.3%
*-commutative56.3%
Simplified56.3%
Taylor expanded in y.im around 0 45.8%
unpow245.8%
unpow245.8%
hypot-undefine48.6%
Simplified48.6%
add-log-exp32.3%
*-commutative32.3%
Applied egg-rr32.3%
Taylor expanded in y.re around 0 56.3%
if 4.1999999999999997e81 < y.re < 9e238Initial program 36.8%
exp-diff28.9%
exp-to-pow28.9%
hypot-define28.9%
*-commutative28.9%
exp-prod28.9%
fma-define28.9%
hypot-define60.5%
*-commutative60.5%
Simplified60.5%
Taylor expanded in y.im around 0 63.4%
unpow263.4%
unpow263.4%
hypot-undefine63.4%
Simplified63.4%
add-log-exp58.1%
*-commutative58.1%
Applied egg-rr58.1%
Taylor expanded in x.im around 0 71.2%
Final simplification63.6%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.im (log (hypot x.im x.re)))))
(t_1 (* y.re (atan2 x.im x.re)))
(t_2 (sin t_1))
(t_3 (pow (hypot x.im x.re) y.re))
(t_4 (* t_1 t_3)))
(if (<= y.im -3e-14)
t_4
(if (<= y.im -2.8e-92)
t_0
(if (<= y.im 7e-105)
(* t_2 t_3)
(if (<= y.im 0.24)
(/ t_0 (+ (* (atan2 x.im x.re) y.im) 1.0))
(if (<= y.im 2.4e+139)
(* t_2 (pow (+ x.re (* 0.5 (/ (pow x.im 2.0) x.re))) y.re))
(if (<= y.im 1.05e+258) (* t_2 (pow (- x.re) y.re)) t_4))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * atan2(x_46_im, x_46_re);
double t_2 = sin(t_1);
double t_3 = pow(hypot(x_46_im, x_46_re), y_46_re);
double t_4 = t_1 * t_3;
double tmp;
if (y_46_im <= -3e-14) {
tmp = t_4;
} else if (y_46_im <= -2.8e-92) {
tmp = t_0;
} else if (y_46_im <= 7e-105) {
tmp = t_2 * t_3;
} else if (y_46_im <= 0.24) {
tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else if (y_46_im <= 2.4e+139) {
tmp = t_2 * pow((x_46_re + (0.5 * (pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 1.05e+258) {
tmp = t_2 * pow(-x_46_re, y_46_re);
} else {
tmp = t_4;
}
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 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_2 = Math.sin(t_1);
double t_3 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double t_4 = t_1 * t_3;
double tmp;
if (y_46_im <= -3e-14) {
tmp = t_4;
} else if (y_46_im <= -2.8e-92) {
tmp = t_0;
} else if (y_46_im <= 7e-105) {
tmp = t_2 * t_3;
} else if (y_46_im <= 0.24) {
tmp = t_0 / ((Math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else if (y_46_im <= 2.4e+139) {
tmp = t_2 * Math.pow((x_46_re + (0.5 * (Math.pow(x_46_im, 2.0) / x_46_re))), y_46_re);
} else if (y_46_im <= 1.05e+258) {
tmp = t_2 * Math.pow(-x_46_re, y_46_re);
} else {
tmp = t_4;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) t_1 = y_46_re * math.atan2(x_46_im, x_46_re) t_2 = math.sin(t_1) t_3 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) t_4 = t_1 * t_3 tmp = 0 if y_46_im <= -3e-14: tmp = t_4 elif y_46_im <= -2.8e-92: tmp = t_0 elif y_46_im <= 7e-105: tmp = t_2 * t_3 elif y_46_im <= 0.24: tmp = t_0 / ((math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0) elif y_46_im <= 2.4e+139: tmp = t_2 * math.pow((x_46_re + (0.5 * (math.pow(x_46_im, 2.0) / x_46_re))), y_46_re) elif y_46_im <= 1.05e+258: tmp = t_2 * math.pow(-x_46_re, y_46_re) else: tmp = t_4 return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) t_1 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_2 = sin(t_1) t_3 = hypot(x_46_im, x_46_re) ^ y_46_re t_4 = Float64(t_1 * t_3) tmp = 0.0 if (y_46_im <= -3e-14) tmp = t_4; elseif (y_46_im <= -2.8e-92) tmp = t_0; elseif (y_46_im <= 7e-105) tmp = Float64(t_2 * t_3); elseif (y_46_im <= 0.24) tmp = Float64(t_0 / Float64(Float64(atan(x_46_im, x_46_re) * y_46_im) + 1.0)); elseif (y_46_im <= 2.4e+139) tmp = Float64(t_2 * (Float64(x_46_re + Float64(0.5 * Float64((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re)); elseif (y_46_im <= 1.05e+258) tmp = Float64(t_2 * (Float64(-x_46_re) ^ y_46_re)); 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 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); t_1 = y_46_re * atan2(x_46_im, x_46_re); t_2 = sin(t_1); t_3 = hypot(x_46_im, x_46_re) ^ y_46_re; t_4 = t_1 * t_3; tmp = 0.0; if (y_46_im <= -3e-14) tmp = t_4; elseif (y_46_im <= -2.8e-92) tmp = t_0; elseif (y_46_im <= 7e-105) tmp = t_2 * t_3; elseif (y_46_im <= 0.24) tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0); elseif (y_46_im <= 2.4e+139) tmp = t_2 * ((x_46_re + (0.5 * ((x_46_im ^ 2.0) / x_46_re))) ^ y_46_re); elseif (y_46_im <= 1.05e+258) tmp = t_2 * (-x_46_re ^ y_46_re); 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[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sin[t$95$1], $MachinePrecision]}, Block[{t$95$3 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, Block[{t$95$4 = N[(t$95$1 * t$95$3), $MachinePrecision]}, If[LessEqual[y$46$im, -3e-14], t$95$4, If[LessEqual[y$46$im, -2.8e-92], t$95$0, If[LessEqual[y$46$im, 7e-105], N[(t$95$2 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, 0.24], N[(t$95$0 / N[(N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 2.4e+139], N[(t$95$2 * N[Power[N[(x$46$re + N[(0.5 * N[(N[Power[x$46$im, 2.0], $MachinePrecision] / x$46$re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$im, 1.05e+258], N[(t$95$2 * N[Power[(-x$46$re), y$46$re], $MachinePrecision]), $MachinePrecision], t$95$4]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
t_1 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_2 := \sin t\_1\\
t_3 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
t_4 := t\_1 \cdot t\_3\\
\mathbf{if}\;y.im \leq -3 \cdot 10^{-14}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y.im \leq -2.8 \cdot 10^{-92}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 7 \cdot 10^{-105}:\\
\;\;\;\;t\_2 \cdot t\_3\\
\mathbf{elif}\;y.im \leq 0.24:\\
\;\;\;\;\frac{t\_0}{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im + 1}\\
\mathbf{elif}\;y.im \leq 2.4 \cdot 10^{+139}:\\
\;\;\;\;t\_2 \cdot {\left(x.re + 0.5 \cdot \frac{{x.im}^{2}}{x.re}\right)}^{y.re}\\
\mathbf{elif}\;y.im \leq 1.05 \cdot 10^{+258}:\\
\;\;\;\;t\_2 \cdot {\left(-x.re\right)}^{y.re}\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if y.im < -2.9999999999999998e-14 or 1.04999999999999998e258 < y.im Initial program 34.6%
exp-diff28.2%
exp-to-pow28.2%
hypot-define28.2%
*-commutative28.2%
exp-prod28.2%
fma-define28.2%
hypot-define57.8%
*-commutative57.8%
Simplified57.8%
Taylor expanded in y.im around 0 38.0%
unpow238.0%
unpow238.0%
hypot-undefine28.6%
Simplified28.6%
add-log-exp43.2%
*-commutative43.2%
Applied egg-rr43.2%
Taylor expanded in y.re around 0 33.7%
if -2.9999999999999998e-14 < y.im < -2.8e-92Initial program 68.5%
exp-diff68.5%
exp-to-pow68.5%
hypot-define68.5%
*-commutative68.5%
exp-prod68.5%
fma-define68.5%
hypot-define99.4%
*-commutative99.4%
Simplified99.4%
Taylor expanded in y.re around 0 56.2%
unpow256.2%
unpow256.2%
hypot-undefine87.2%
*-commutative87.2%
exp-prod87.2%
Simplified87.2%
Taylor expanded in y.im around 0 87.2%
if -2.8e-92 < y.im < 7e-105Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 7e-105 < y.im < 0.23999999999999999Initial program 56.6%
exp-diff56.6%
exp-to-pow56.6%
hypot-define56.6%
*-commutative56.6%
exp-prod56.6%
fma-define56.6%
hypot-define83.6%
*-commutative83.6%
Simplified83.6%
Taylor expanded in y.re around 0 51.0%
unpow251.0%
unpow251.0%
hypot-undefine67.9%
*-commutative67.9%
exp-prod67.9%
Simplified67.9%
Taylor expanded in y.im around 0 67.9%
*-commutative67.9%
Simplified67.9%
if 0.23999999999999999 < y.im < 2.40000000000000008e139Initial program 30.4%
exp-diff24.3%
exp-to-pow24.3%
hypot-define24.3%
*-commutative24.3%
exp-prod24.3%
fma-define24.3%
hypot-define54.8%
*-commutative54.8%
Simplified54.8%
Taylor expanded in y.im around 0 43.7%
Taylor expanded in x.im around 0 48.9%
if 2.40000000000000008e139 < y.im < 1.04999999999999998e258Initial program 40.2%
exp-diff28.6%
exp-to-pow28.6%
hypot-define28.6%
*-commutative28.6%
exp-prod27.9%
fma-define27.9%
hypot-define44.1%
*-commutative44.1%
Simplified44.1%
Taylor expanded in y.im around 0 32.2%
Taylor expanded in x.re around -inf 39.4%
mul-1-neg39.4%
Simplified39.4%
Final simplification55.8%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.im (log (hypot x.im x.re)))))
(t_1 (* y.re (atan2 x.im x.re)))
(t_2 (sin t_1))
(t_3 (pow (hypot x.im x.re) y.re)))
(if (<= y.im -1.15e-12)
(* t_1 t_3)
(if (<= y.im -1.55e-91)
t_0
(if (<= y.im 6.5e-113)
(* t_2 t_3)
(if (<= y.im 11000000000000.0)
(/ t_0 (+ (* (atan2 x.im x.re) y.im) 1.0))
(* t_2 (pow (+ x.im (* 0.5 (/ (pow x.re 2.0) x.im))) y.re))))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * atan2(x_46_im, x_46_re);
double t_2 = sin(t_1);
double t_3 = pow(hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.15e-12) {
tmp = t_1 * t_3;
} else if (y_46_im <= -1.55e-91) {
tmp = t_0;
} else if (y_46_im <= 6.5e-113) {
tmp = t_2 * t_3;
} else if (y_46_im <= 11000000000000.0) {
tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else {
tmp = t_2 * pow((x_46_im + (0.5 * (pow(x_46_re, 2.0) / x_46_im))), y_46_re);
}
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 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_2 = Math.sin(t_1);
double t_3 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.15e-12) {
tmp = t_1 * t_3;
} else if (y_46_im <= -1.55e-91) {
tmp = t_0;
} else if (y_46_im <= 6.5e-113) {
tmp = t_2 * t_3;
} else if (y_46_im <= 11000000000000.0) {
tmp = t_0 / ((Math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
} else {
tmp = t_2 * Math.pow((x_46_im + (0.5 * (Math.pow(x_46_re, 2.0) / x_46_im))), y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) t_1 = y_46_re * math.atan2(x_46_im, x_46_re) t_2 = math.sin(t_1) t_3 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) tmp = 0 if y_46_im <= -1.15e-12: tmp = t_1 * t_3 elif y_46_im <= -1.55e-91: tmp = t_0 elif y_46_im <= 6.5e-113: tmp = t_2 * t_3 elif y_46_im <= 11000000000000.0: tmp = t_0 / ((math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0) else: tmp = t_2 * math.pow((x_46_im + (0.5 * (math.pow(x_46_re, 2.0) / x_46_im))), y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) t_1 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_2 = sin(t_1) t_3 = hypot(x_46_im, x_46_re) ^ y_46_re tmp = 0.0 if (y_46_im <= -1.15e-12) tmp = Float64(t_1 * t_3); elseif (y_46_im <= -1.55e-91) tmp = t_0; elseif (y_46_im <= 6.5e-113) tmp = Float64(t_2 * t_3); elseif (y_46_im <= 11000000000000.0) tmp = Float64(t_0 / Float64(Float64(atan(x_46_im, x_46_re) * y_46_im) + 1.0)); else tmp = Float64(t_2 * (Float64(x_46_im + Float64(0.5 * Float64((x_46_re ^ 2.0) / x_46_im))) ^ 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 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); t_1 = y_46_re * atan2(x_46_im, x_46_re); t_2 = sin(t_1); t_3 = hypot(x_46_im, x_46_re) ^ y_46_re; tmp = 0.0; if (y_46_im <= -1.15e-12) tmp = t_1 * t_3; elseif (y_46_im <= -1.55e-91) tmp = t_0; elseif (y_46_im <= 6.5e-113) tmp = t_2 * t_3; elseif (y_46_im <= 11000000000000.0) tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0); else tmp = t_2 * ((x_46_im + (0.5 * ((x_46_re ^ 2.0) / x_46_im))) ^ 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[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sin[t$95$1], $MachinePrecision]}, Block[{t$95$3 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, If[LessEqual[y$46$im, -1.15e-12], N[(t$95$1 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, -1.55e-91], t$95$0, If[LessEqual[y$46$im, 6.5e-113], N[(t$95$2 * t$95$3), $MachinePrecision], If[LessEqual[y$46$im, 11000000000000.0], N[(t$95$0 / N[(N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision], N[(t$95$2 * N[Power[N[(x$46$im + N[(0.5 * N[(N[Power[x$46$re, 2.0], $MachinePrecision] / x$46$im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
t_1 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_2 := \sin t\_1\\
t_3 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{if}\;y.im \leq -1.15 \cdot 10^{-12}:\\
\;\;\;\;t\_1 \cdot t\_3\\
\mathbf{elif}\;y.im \leq -1.55 \cdot 10^{-91}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 6.5 \cdot 10^{-113}:\\
\;\;\;\;t\_2 \cdot t\_3\\
\mathbf{elif}\;y.im \leq 11000000000000:\\
\;\;\;\;\frac{t\_0}{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im + 1}\\
\mathbf{else}:\\
\;\;\;\;t\_2 \cdot {\left(x.im + 0.5 \cdot \frac{{x.re}^{2}}{x.im}\right)}^{y.re}\\
\end{array}
\end{array}
if y.im < -1.14999999999999995e-12Initial program 30.3%
exp-diff24.2%
exp-to-pow24.2%
hypot-define24.2%
*-commutative24.2%
exp-prod24.2%
fma-define24.2%
hypot-define56.2%
*-commutative56.2%
Simplified56.2%
Taylor expanded in y.im around 0 32.8%
unpow232.8%
unpow232.8%
hypot-undefine23.2%
Simplified23.2%
add-log-exp38.8%
*-commutative38.8%
Applied egg-rr38.8%
Taylor expanded in y.re around 0 29.2%
if -1.14999999999999995e-12 < y.im < -1.5499999999999999e-91Initial program 68.5%
exp-diff68.5%
exp-to-pow68.5%
hypot-define68.5%
*-commutative68.5%
exp-prod68.5%
fma-define68.5%
hypot-define99.4%
*-commutative99.4%
Simplified99.4%
Taylor expanded in y.re around 0 56.2%
unpow256.2%
unpow256.2%
hypot-undefine87.2%
*-commutative87.2%
exp-prod87.2%
Simplified87.2%
Taylor expanded in y.im around 0 87.2%
if -1.5499999999999999e-91 < y.im < 6.49999999999999979e-113Initial program 51.1%
exp-diff51.1%
exp-to-pow51.1%
hypot-define51.1%
*-commutative51.1%
exp-prod51.1%
fma-define51.1%
hypot-define91.5%
*-commutative91.5%
Simplified91.5%
Taylor expanded in y.im around 0 62.2%
unpow262.2%
unpow262.2%
hypot-undefine75.4%
Simplified75.4%
if 6.49999999999999979e-113 < y.im < 1.1e13Initial program 46.7%
exp-diff46.7%
exp-to-pow46.7%
hypot-define46.7%
*-commutative46.7%
exp-prod46.7%
fma-define46.7%
hypot-define82.1%
*-commutative82.1%
Simplified82.1%
Taylor expanded in y.re around 0 42.1%
unpow242.1%
unpow242.1%
hypot-undefine69.1%
*-commutative69.1%
exp-prod69.1%
Simplified69.1%
Taylor expanded in y.im around 0 56.3%
*-commutative56.3%
Simplified56.3%
if 1.1e13 < y.im Initial program 41.0%
exp-diff32.0%
exp-to-pow32.0%
hypot-define32.0%
*-commutative32.0%
exp-prod31.8%
fma-define31.8%
hypot-define51.6%
*-commutative51.6%
Simplified51.6%
Taylor expanded in y.im around 0 42.8%
Taylor expanded in x.re around 0 36.9%
Final simplification52.4%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.im (log (hypot x.im x.re)))))
(t_1 (* y.re (atan2 x.im x.re)))
(t_2 (pow (hypot x.im x.re) y.re)))
(if (<= y.im -1.26e-14)
(* t_1 t_2)
(if (<= y.im -6.2e-93)
t_0
(if (or (<= y.im 4.6e-114) (not (<= y.im 4e-5)))
(* (sin t_1) t_2)
(/ t_0 (+ (* (atan2 x.im x.re) y.im) 1.0)))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * atan2(x_46_im, x_46_re);
double t_2 = pow(hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.26e-14) {
tmp = t_1 * t_2;
} else if (y_46_im <= -6.2e-93) {
tmp = t_0;
} else if ((y_46_im <= 4.6e-114) || !(y_46_im <= 4e-5)) {
tmp = sin(t_1) * t_2;
} else {
tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
}
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 = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
double t_1 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_2 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -1.26e-14) {
tmp = t_1 * t_2;
} else if (y_46_im <= -6.2e-93) {
tmp = t_0;
} else if ((y_46_im <= 4.6e-114) || !(y_46_im <= 4e-5)) {
tmp = Math.sin(t_1) * t_2;
} else {
tmp = t_0 / ((Math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) t_1 = y_46_re * math.atan2(x_46_im, x_46_re) t_2 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) tmp = 0 if y_46_im <= -1.26e-14: tmp = t_1 * t_2 elif y_46_im <= -6.2e-93: tmp = t_0 elif (y_46_im <= 4.6e-114) or not (y_46_im <= 4e-5): tmp = math.sin(t_1) * t_2 else: tmp = t_0 / ((math.atan2(x_46_im, x_46_re) * y_46_im) + 1.0) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))) t_1 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_2 = hypot(x_46_im, x_46_re) ^ y_46_re tmp = 0.0 if (y_46_im <= -1.26e-14) tmp = Float64(t_1 * t_2); elseif (y_46_im <= -6.2e-93) tmp = t_0; elseif ((y_46_im <= 4.6e-114) || !(y_46_im <= 4e-5)) tmp = Float64(sin(t_1) * t_2); else tmp = Float64(t_0 / Float64(Float64(atan(x_46_im, x_46_re) * y_46_im) + 1.0)); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); t_1 = y_46_re * atan2(x_46_im, x_46_re); t_2 = hypot(x_46_im, x_46_re) ^ y_46_re; tmp = 0.0; if (y_46_im <= -1.26e-14) tmp = t_1 * t_2; elseif (y_46_im <= -6.2e-93) tmp = t_0; elseif ((y_46_im <= 4.6e-114) || ~((y_46_im <= 4e-5))) tmp = sin(t_1) * t_2; else tmp = t_0 / ((atan2(x_46_im, x_46_re) * y_46_im) + 1.0); end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := Block[{t$95$0 = N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, If[LessEqual[y$46$im, -1.26e-14], N[(t$95$1 * t$95$2), $MachinePrecision], If[LessEqual[y$46$im, -6.2e-93], t$95$0, If[Or[LessEqual[y$46$im, 4.6e-114], N[Not[LessEqual[y$46$im, 4e-5]], $MachinePrecision]], N[(N[Sin[t$95$1], $MachinePrecision] * t$95$2), $MachinePrecision], N[(t$95$0 / N[(N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * y$46$im), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
t_1 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_2 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{if}\;y.im \leq -1.26 \cdot 10^{-14}:\\
\;\;\;\;t\_1 \cdot t\_2\\
\mathbf{elif}\;y.im \leq -6.2 \cdot 10^{-93}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y.im \leq 4.6 \cdot 10^{-114} \lor \neg \left(y.im \leq 4 \cdot 10^{-5}\right):\\
\;\;\;\;\sin t\_1 \cdot t\_2\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_0}{\tan^{-1}_* \frac{x.im}{x.re} \cdot y.im + 1}\\
\end{array}
\end{array}
if y.im < -1.25999999999999996e-14Initial program 30.3%
exp-diff24.2%
exp-to-pow24.2%
hypot-define24.2%
*-commutative24.2%
exp-prod24.2%
fma-define24.2%
hypot-define56.2%
*-commutative56.2%
Simplified56.2%
Taylor expanded in y.im around 0 32.8%
unpow232.8%
unpow232.8%
hypot-undefine23.2%
Simplified23.2%
add-log-exp38.8%
*-commutative38.8%
Applied egg-rr38.8%
Taylor expanded in y.re around 0 29.2%
if -1.25999999999999996e-14 < y.im < -6.19999999999999999e-93Initial program 68.5%
exp-diff68.5%
exp-to-pow68.5%
hypot-define68.5%
*-commutative68.5%
exp-prod68.5%
fma-define68.5%
hypot-define99.4%
*-commutative99.4%
Simplified99.4%
Taylor expanded in y.re around 0 56.2%
unpow256.2%
unpow256.2%
hypot-undefine87.2%
*-commutative87.2%
exp-prod87.2%
Simplified87.2%
Taylor expanded in y.im around 0 87.2%
if -6.19999999999999999e-93 < y.im < 4.5999999999999999e-114 or 4.00000000000000033e-5 < y.im Initial program 45.4%
exp-diff41.6%
exp-to-pow41.6%
hypot-define41.6%
*-commutative41.6%
exp-prod41.4%
fma-define41.4%
hypot-define73.8%
*-commutative73.8%
Simplified73.8%
Taylor expanded in y.im around 0 53.5%
unpow253.5%
unpow253.5%
hypot-undefine56.4%
Simplified56.4%
if 4.5999999999999999e-114 < y.im < 4.00000000000000033e-5Initial program 56.6%
exp-diff56.6%
exp-to-pow56.6%
hypot-define56.6%
*-commutative56.6%
exp-prod56.6%
fma-define56.6%
hypot-define83.6%
*-commutative83.6%
Simplified83.6%
Taylor expanded in y.re around 0 51.0%
unpow251.0%
unpow251.0%
hypot-undefine67.9%
*-commutative67.9%
exp-prod67.9%
Simplified67.9%
Taylor expanded in y.im around 0 67.9%
*-commutative67.9%
Simplified67.9%
Final simplification52.2%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (* y.re (atan2 x.im x.re))) (t_1 (pow (hypot x.im x.re) y.re)))
(if (<= y.im -2.05e-12)
(* t_0 t_1)
(if (or (<= y.im -1.6e-92)
(and (not (<= y.im 3.2e-118)) (<= y.im 200000000.0)))
(sin (* y.im (log (hypot x.im x.re))))
(* (sin t_0) t_1)))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double t_0 = y_46_re * atan2(x_46_im, x_46_re);
double t_1 = pow(hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -2.05e-12) {
tmp = t_0 * t_1;
} else if ((y_46_im <= -1.6e-92) || (!(y_46_im <= 3.2e-118) && (y_46_im <= 200000000.0))) {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
} else {
tmp = sin(t_0) * t_1;
}
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 = y_46_re * Math.atan2(x_46_im, x_46_re);
double t_1 = Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
double tmp;
if (y_46_im <= -2.05e-12) {
tmp = t_0 * t_1;
} else if ((y_46_im <= -1.6e-92) || (!(y_46_im <= 3.2e-118) && (y_46_im <= 200000000.0))) {
tmp = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
} else {
tmp = Math.sin(t_0) * t_1;
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = y_46_re * math.atan2(x_46_im, x_46_re) t_1 = math.pow(math.hypot(x_46_im, x_46_re), y_46_re) tmp = 0 if y_46_im <= -2.05e-12: tmp = t_0 * t_1 elif (y_46_im <= -1.6e-92) or (not (y_46_im <= 3.2e-118) and (y_46_im <= 200000000.0)): tmp = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) else: tmp = math.sin(t_0) * t_1 return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = Float64(y_46_re * atan(x_46_im, x_46_re)) t_1 = hypot(x_46_im, x_46_re) ^ y_46_re tmp = 0.0 if (y_46_im <= -2.05e-12) tmp = Float64(t_0 * t_1); elseif ((y_46_im <= -1.6e-92) || (!(y_46_im <= 3.2e-118) && (y_46_im <= 200000000.0))) tmp = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))); else tmp = Float64(sin(t_0) * t_1); end return tmp end
function tmp_2 = code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = y_46_re * atan2(x_46_im, x_46_re); t_1 = hypot(x_46_im, x_46_re) ^ y_46_re; tmp = 0.0; if (y_46_im <= -2.05e-12) tmp = t_0 * t_1; elseif ((y_46_im <= -1.6e-92) || (~((y_46_im <= 3.2e-118)) && (y_46_im <= 200000000.0))) tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); else tmp = sin(t_0) * 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[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]}, If[LessEqual[y$46$im, -2.05e-12], N[(t$95$0 * t$95$1), $MachinePrecision], If[Or[LessEqual[y$46$im, -1.6e-92], And[N[Not[LessEqual[y$46$im, 3.2e-118]], $MachinePrecision], LessEqual[y$46$im, 200000000.0]]], N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[(N[Sin[t$95$0], $MachinePrecision] * t$95$1), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
t_1 := {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{if}\;y.im \leq -2.05 \cdot 10^{-12}:\\
\;\;\;\;t\_0 \cdot t\_1\\
\mathbf{elif}\;y.im \leq -1.6 \cdot 10^{-92} \lor \neg \left(y.im \leq 3.2 \cdot 10^{-118}\right) \land y.im \leq 200000000:\\
\;\;\;\;\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\sin t\_0 \cdot t\_1\\
\end{array}
\end{array}
if y.im < -2.04999999999999995e-12Initial program 30.3%
exp-diff24.2%
exp-to-pow24.2%
hypot-define24.2%
*-commutative24.2%
exp-prod24.2%
fma-define24.2%
hypot-define56.2%
*-commutative56.2%
Simplified56.2%
Taylor expanded in y.im around 0 32.8%
unpow232.8%
unpow232.8%
hypot-undefine23.2%
Simplified23.2%
add-log-exp38.8%
*-commutative38.8%
Applied egg-rr38.8%
Taylor expanded in y.re around 0 29.2%
if -2.04999999999999995e-12 < y.im < -1.5999999999999998e-92 or 3.20000000000000004e-118 < y.im < 2e8Initial program 58.7%
exp-diff58.7%
exp-to-pow58.7%
hypot-define58.7%
*-commutative58.7%
exp-prod58.7%
fma-define58.7%
hypot-define91.3%
*-commutative91.3%
Simplified91.3%
Taylor expanded in y.re around 0 50.5%
unpow250.5%
unpow250.5%
hypot-undefine78.0%
*-commutative78.0%
exp-prod78.0%
Simplified78.0%
Taylor expanded in y.im around 0 71.7%
if -1.5999999999999998e-92 < y.im < 3.20000000000000004e-118 or 2e8 < y.im Initial program 46.0%
exp-diff42.1%
exp-to-pow42.1%
hypot-define42.1%
*-commutative42.1%
exp-prod42.0%
fma-define42.0%
hypot-define73.5%
*-commutative73.5%
Simplified73.5%
Taylor expanded in y.im around 0 52.9%
unpow252.9%
unpow252.9%
hypot-undefine57.1%
Simplified57.1%
Final simplification52.0%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (or (<= y.im -2e-14)
(and (not (<= y.im -8.5e-98))
(or (<= y.im 5.5e-101) (not (<= y.im 360000000.0)))))
(* (* y.re (atan2 x.im x.re)) (pow (hypot x.im x.re) y.re))
(sin (* y.im (log (hypot x.im x.re))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_im <= -2e-14) || (!(y_46_im <= -8.5e-98) && ((y_46_im <= 5.5e-101) || !(y_46_im <= 360000000.0)))) {
tmp = (y_46_re * atan2(x_46_im, x_46_re)) * pow(hypot(x_46_im, x_46_re), y_46_re);
} else {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
}
return tmp;
}
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_im <= -2e-14) || (!(y_46_im <= -8.5e-98) && ((y_46_im <= 5.5e-101) || !(y_46_im <= 360000000.0)))) {
tmp = (y_46_re * Math.atan2(x_46_im, x_46_re)) * Math.pow(Math.hypot(x_46_im, x_46_re), y_46_re);
} else {
tmp = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if (y_46_im <= -2e-14) or (not (y_46_im <= -8.5e-98) and ((y_46_im <= 5.5e-101) or not (y_46_im <= 360000000.0))): tmp = (y_46_re * math.atan2(x_46_im, x_46_re)) * math.pow(math.hypot(x_46_im, x_46_re), y_46_re) else: tmp = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if ((y_46_im <= -2e-14) || (!(y_46_im <= -8.5e-98) && ((y_46_im <= 5.5e-101) || !(y_46_im <= 360000000.0)))) tmp = Float64(Float64(y_46_re * atan(x_46_im, x_46_re)) * (hypot(x_46_im, x_46_re) ^ y_46_re)); else tmp = sin(Float64(y_46_im * log(hypot(x_46_im, x_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 ((y_46_im <= -2e-14) || (~((y_46_im <= -8.5e-98)) && ((y_46_im <= 5.5e-101) || ~((y_46_im <= 360000000.0))))) tmp = (y_46_re * atan2(x_46_im, x_46_re)) * (hypot(x_46_im, x_46_re) ^ y_46_re); else tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$im, -2e-14], And[N[Not[LessEqual[y$46$im, -8.5e-98]], $MachinePrecision], Or[LessEqual[y$46$im, 5.5e-101], N[Not[LessEqual[y$46$im, 360000000.0]], $MachinePrecision]]]], N[(N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision] * N[Power[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision], y$46$re], $MachinePrecision]), $MachinePrecision], N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.im \leq -2 \cdot 10^{-14} \lor \neg \left(y.im \leq -8.5 \cdot 10^{-98}\right) \land \left(y.im \leq 5.5 \cdot 10^{-101} \lor \neg \left(y.im \leq 360000000\right)\right):\\
\;\;\;\;\left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right) \cdot {\left(\mathsf{hypot}\left(x.im, x.re\right)\right)}^{y.re}\\
\mathbf{else}:\\
\;\;\;\;\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
\end{array}
\end{array}
if y.im < -2e-14 or -8.4999999999999997e-98 < y.im < 5.49999999999999973e-101 or 3.6e8 < y.im Initial program 41.0%
exp-diff36.4%
exp-to-pow36.4%
hypot-define36.4%
*-commutative36.4%
exp-prod36.3%
fma-define36.3%
hypot-define67.6%
*-commutative67.6%
Simplified67.6%
Taylor expanded in y.im around 0 46.6%
unpow246.6%
unpow246.6%
hypot-undefine46.6%
Simplified46.6%
add-log-exp42.4%
*-commutative42.4%
Applied egg-rr42.4%
Taylor expanded in y.re around 0 46.6%
if -2e-14 < y.im < -8.4999999999999997e-98 or 5.49999999999999973e-101 < y.im < 3.6e8Initial program 59.7%
exp-diff59.7%
exp-to-pow59.7%
hypot-define59.7%
*-commutative59.7%
exp-prod59.7%
fma-define59.7%
hypot-define94.2%
*-commutative94.2%
Simplified94.2%
Taylor expanded in y.re around 0 51.8%
unpow251.8%
unpow251.8%
hypot-undefine78.5%
*-commutative78.5%
exp-prod78.5%
Simplified78.5%
Taylor expanded in y.im around 0 72.4%
Final simplification50.4%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(if (or (<= y.im -7.8e-98)
(and (not (<= y.im 1.15e-140)) (<= y.im 850000000000.0)))
(sin (* y.im (log (hypot x.im x.re))))
(* y.re (atan2 x.im x.re))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_im <= -7.8e-98) || (!(y_46_im <= 1.15e-140) && (y_46_im <= 850000000000.0))) {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
} else {
tmp = y_46_re * atan2(x_46_im, x_46_re);
}
return tmp;
}
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_im <= -7.8e-98) || (!(y_46_im <= 1.15e-140) && (y_46_im <= 850000000000.0))) {
tmp = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
} else {
tmp = y_46_re * Math.atan2(x_46_im, x_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if (y_46_im <= -7.8e-98) or (not (y_46_im <= 1.15e-140) and (y_46_im <= 850000000000.0)): tmp = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) else: tmp = y_46_re * math.atan2(x_46_im, x_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if ((y_46_im <= -7.8e-98) || (!(y_46_im <= 1.15e-140) && (y_46_im <= 850000000000.0))) tmp = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))); else tmp = Float64(y_46_re * atan(x_46_im, x_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 ((y_46_im <= -7.8e-98) || (~((y_46_im <= 1.15e-140)) && (y_46_im <= 850000000000.0))) tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); else tmp = y_46_re * atan2(x_46_im, x_46_re); end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$im, -7.8e-98], And[N[Not[LessEqual[y$46$im, 1.15e-140]], $MachinePrecision], LessEqual[y$46$im, 850000000000.0]]], N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.im \leq -7.8 \cdot 10^{-98} \lor \neg \left(y.im \leq 1.15 \cdot 10^{-140}\right) \land y.im \leq 850000000000:\\
\;\;\;\;\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
\end{array}
\end{array}
if y.im < -7.79999999999999943e-98 or 1.1500000000000001e-140 < y.im < 8.5e11Initial program 40.3%
exp-diff36.7%
exp-to-pow36.7%
hypot-define36.7%
*-commutative36.7%
exp-prod36.7%
fma-define36.7%
hypot-define70.1%
*-commutative70.1%
Simplified70.1%
Taylor expanded in y.re around 0 33.2%
unpow233.2%
unpow233.2%
hypot-undefine65.2%
*-commutative65.2%
exp-prod64.3%
Simplified64.3%
Taylor expanded in y.im around 0 28.9%
if -7.79999999999999943e-98 < y.im < 1.1500000000000001e-140 or 8.5e11 < y.im Initial program 46.5%
exp-diff42.4%
exp-to-pow42.4%
hypot-define42.4%
*-commutative42.4%
exp-prod42.2%
fma-define42.2%
hypot-define72.7%
*-commutative72.7%
Simplified72.7%
Taylor expanded in y.im around 0 53.0%
unpow253.0%
unpow253.0%
hypot-undefine57.4%
Simplified57.4%
add-log-exp43.9%
*-commutative43.9%
Applied egg-rr43.9%
Taylor expanded in x.re around 0 33.9%
Taylor expanded in y.re around 0 26.0%
Final simplification27.2%
(FPCore (x.re x.im y.re y.im) :precision binary64 (if (or (<= y.re -1.3e-10) (not (<= y.re 3.2e-131))) (* (sin (* y.re (atan2 x.im x.re))) (pow x.im y.re)) (sin (* y.im (log (hypot x.im x.re))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_re <= -1.3e-10) || !(y_46_re <= 3.2e-131)) {
tmp = sin((y_46_re * atan2(x_46_im, x_46_re))) * pow(x_46_im, y_46_re);
} else {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
}
return tmp;
}
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_re <= -1.3e-10) || !(y_46_re <= 3.2e-131)) {
tmp = Math.sin((y_46_re * Math.atan2(x_46_im, x_46_re))) * Math.pow(x_46_im, y_46_re);
} else {
tmp = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if (y_46_re <= -1.3e-10) or not (y_46_re <= 3.2e-131): tmp = math.sin((y_46_re * math.atan2(x_46_im, x_46_re))) * math.pow(x_46_im, y_46_re) else: tmp = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if ((y_46_re <= -1.3e-10) || !(y_46_re <= 3.2e-131)) tmp = Float64(sin(Float64(y_46_re * atan(x_46_im, x_46_re))) * (x_46_im ^ y_46_re)); else tmp = sin(Float64(y_46_im * log(hypot(x_46_im, x_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 ((y_46_re <= -1.3e-10) || ~((y_46_re <= 3.2e-131))) tmp = sin((y_46_re * atan2(x_46_im, x_46_re))) * (x_46_im ^ y_46_re); else tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -1.3e-10], N[Not[LessEqual[y$46$re, 3.2e-131]], $MachinePrecision]], N[(N[Sin[N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Power[x$46$im, y$46$re], $MachinePrecision]), $MachinePrecision], N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -1.3 \cdot 10^{-10} \lor \neg \left(y.re \leq 3.2 \cdot 10^{-131}\right):\\
\;\;\;\;\sin \left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right) \cdot {x.im}^{y.re}\\
\mathbf{else}:\\
\;\;\;\;\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
\end{array}
\end{array}
if y.re < -1.29999999999999991e-10 or 3.2e-131 < y.re Initial program 40.7%
exp-diff33.5%
exp-to-pow33.5%
hypot-define33.5%
*-commutative33.5%
exp-prod33.4%
fma-define33.4%
hypot-define59.4%
*-commutative59.4%
Simplified59.4%
Taylor expanded in y.im around 0 59.6%
unpow259.6%
unpow259.6%
hypot-undefine59.7%
Simplified59.7%
add-log-exp52.9%
*-commutative52.9%
Applied egg-rr52.9%
Taylor expanded in x.re around 0 40.5%
if -1.29999999999999991e-10 < y.re < 3.2e-131Initial program 47.4%
exp-diff47.4%
exp-to-pow47.4%
hypot-define47.4%
*-commutative47.4%
exp-prod47.4%
fma-define47.4%
hypot-define85.8%
*-commutative85.8%
Simplified85.8%
Taylor expanded in y.re around 0 38.0%
unpow238.0%
unpow238.0%
hypot-undefine69.4%
*-commutative69.4%
exp-prod65.3%
Simplified65.3%
Taylor expanded in y.im around 0 33.5%
Final simplification37.3%
(FPCore (x.re x.im y.re y.im) :precision binary64 (if (or (<= y.re -265000.0) (not (<= y.re 3e-63))) (* (sin (* y.re (atan2 x.im x.re))) (pow x.re y.re)) (sin (* y.im (log (hypot x.im x.re))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_re <= -265000.0) || !(y_46_re <= 3e-63)) {
tmp = sin((y_46_re * atan2(x_46_im, x_46_re))) * pow(x_46_re, y_46_re);
} else {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
}
return tmp;
}
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if ((y_46_re <= -265000.0) || !(y_46_re <= 3e-63)) {
tmp = Math.sin((y_46_re * Math.atan2(x_46_im, x_46_re))) * Math.pow(x_46_re, y_46_re);
} else {
tmp = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if (y_46_re <= -265000.0) or not (y_46_re <= 3e-63): tmp = math.sin((y_46_re * math.atan2(x_46_im, x_46_re))) * math.pow(x_46_re, y_46_re) else: tmp = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if ((y_46_re <= -265000.0) || !(y_46_re <= 3e-63)) tmp = Float64(sin(Float64(y_46_re * atan(x_46_im, x_46_re))) * (x_46_re ^ y_46_re)); else tmp = sin(Float64(y_46_im * log(hypot(x_46_im, x_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 ((y_46_re <= -265000.0) || ~((y_46_re <= 3e-63))) tmp = sin((y_46_re * atan2(x_46_im, x_46_re))) * (x_46_re ^ y_46_re); else tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[Or[LessEqual[y$46$re, -265000.0], N[Not[LessEqual[y$46$re, 3e-63]], $MachinePrecision]], N[(N[Sin[N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Power[x$46$re, y$46$re], $MachinePrecision]), $MachinePrecision], N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y.re \leq -265000 \lor \neg \left(y.re \leq 3 \cdot 10^{-63}\right):\\
\;\;\;\;\sin \left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right) \cdot {x.re}^{y.re}\\
\mathbf{else}:\\
\;\;\;\;\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
\end{array}
\end{array}
if y.re < -265000 or 2.99999999999999979e-63 < y.re Initial program 39.5%
exp-diff31.5%
exp-to-pow31.5%
hypot-define31.5%
*-commutative31.5%
exp-prod31.5%
fma-define31.5%
hypot-define57.3%
*-commutative57.3%
Simplified57.3%
Taylor expanded in y.im around 0 61.3%
unpow261.3%
unpow261.3%
hypot-undefine62.2%
Simplified62.2%
add-log-exp57.0%
*-commutative57.0%
Applied egg-rr57.0%
Taylor expanded in x.im around 0 55.7%
if -265000 < y.re < 2.99999999999999979e-63Initial program 47.8%
exp-diff47.8%
exp-to-pow47.8%
hypot-define47.8%
*-commutative47.8%
exp-prod47.7%
fma-define47.7%
hypot-define85.1%
*-commutative85.1%
Simplified85.1%
Taylor expanded in y.re around 0 36.5%
unpow236.5%
unpow236.5%
hypot-undefine66.8%
*-commutative66.8%
exp-prod63.1%
Simplified63.1%
Taylor expanded in y.im around 0 31.8%
Final simplification43.4%
(FPCore (x.re x.im y.re y.im)
:precision binary64
(let* ((t_0 (sin (* y.re (atan2 x.im x.re)))))
(if (<= y.re -8.6e-16)
(* t_0 (pow (- x.re) y.re))
(if (<= y.re 1.55e-61)
(sin (* y.im (log (hypot x.im x.re))))
(* t_0 (pow 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 = sin((y_46_re * atan2(x_46_im, x_46_re)));
double tmp;
if (y_46_re <= -8.6e-16) {
tmp = t_0 * pow(-x_46_re, y_46_re);
} else if (y_46_re <= 1.55e-61) {
tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re))));
} else {
tmp = t_0 * pow(x_46_re, y_46_re);
}
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 = Math.sin((y_46_re * Math.atan2(x_46_im, x_46_re)));
double tmp;
if (y_46_re <= -8.6e-16) {
tmp = t_0 * Math.pow(-x_46_re, y_46_re);
} else if (y_46_re <= 1.55e-61) {
tmp = Math.sin((y_46_im * Math.log(Math.hypot(x_46_im, x_46_re))));
} else {
tmp = t_0 * Math.pow(x_46_re, y_46_re);
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): t_0 = math.sin((y_46_re * math.atan2(x_46_im, x_46_re))) tmp = 0 if y_46_re <= -8.6e-16: tmp = t_0 * math.pow(-x_46_re, y_46_re) elif y_46_re <= 1.55e-61: tmp = math.sin((y_46_im * math.log(math.hypot(x_46_im, x_46_re)))) else: tmp = t_0 * math.pow(x_46_re, y_46_re) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) t_0 = sin(Float64(y_46_re * atan(x_46_im, x_46_re))) tmp = 0.0 if (y_46_re <= -8.6e-16) tmp = Float64(t_0 * (Float64(-x_46_re) ^ y_46_re)); elseif (y_46_re <= 1.55e-61) tmp = sin(Float64(y_46_im * log(hypot(x_46_im, x_46_re)))); else tmp = Float64(t_0 * (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 = sin((y_46_re * atan2(x_46_im, x_46_re))); tmp = 0.0; if (y_46_re <= -8.6e-16) tmp = t_0 * (-x_46_re ^ y_46_re); elseif (y_46_re <= 1.55e-61) tmp = sin((y_46_im * log(hypot(x_46_im, x_46_re)))); else tmp = t_0 * (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[Sin[N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[y$46$re, -8.6e-16], N[(t$95$0 * N[Power[(-x$46$re), y$46$re], $MachinePrecision]), $MachinePrecision], If[LessEqual[y$46$re, 1.55e-61], N[Sin[N[(y$46$im * N[Log[N[Sqrt[x$46$im ^ 2 + x$46$re ^ 2], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[(t$95$0 * N[Power[x$46$re, y$46$re], $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin \left(y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\right)\\
\mathbf{if}\;y.re \leq -8.6 \cdot 10^{-16}:\\
\;\;\;\;t\_0 \cdot {\left(-x.re\right)}^{y.re}\\
\mathbf{elif}\;y.re \leq 1.55 \cdot 10^{-61}:\\
\;\;\;\;\sin \left(y.im \cdot \log \left(\mathsf{hypot}\left(x.im, x.re\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_0 \cdot {x.re}^{y.re}\\
\end{array}
\end{array}
if y.re < -8.5999999999999997e-16Initial program 45.3%
exp-diff34.0%
exp-to-pow34.0%
hypot-define34.0%
*-commutative34.0%
exp-prod34.0%
fma-define34.0%
hypot-define60.4%
*-commutative60.4%
Simplified60.4%
Taylor expanded in y.im around 0 73.8%
Taylor expanded in x.re around -inf 59.0%
mul-1-neg59.0%
Simplified59.0%
if -8.5999999999999997e-16 < y.re < 1.54999999999999997e-61Initial program 48.1%
exp-diff48.1%
exp-to-pow48.1%
hypot-define48.1%
*-commutative48.1%
exp-prod48.0%
fma-define48.0%
hypot-define84.7%
*-commutative84.7%
Simplified84.7%
Taylor expanded in y.re around 0 37.4%
unpow237.4%
unpow237.4%
hypot-undefine66.8%
*-commutative66.8%
exp-prod63.0%
Simplified63.0%
Taylor expanded in y.im around 0 32.5%
if 1.54999999999999997e-61 < y.re Initial program 35.1%
exp-diff29.7%
exp-to-pow29.7%
hypot-define29.7%
*-commutative29.7%
exp-prod29.7%
fma-define29.7%
hypot-define56.8%
*-commutative56.8%
Simplified56.8%
Taylor expanded in y.im around 0 53.9%
unpow253.9%
unpow253.9%
hypot-undefine55.4%
Simplified55.4%
add-log-exp46.7%
*-commutative46.7%
Applied egg-rr46.7%
Taylor expanded in x.im around 0 53.9%
Final simplification44.2%
(FPCore (x.re x.im y.re y.im) :precision binary64 (if (<= x.im 1.8e+69) (* y.re (atan2 x.im x.re)) (* y.re (* (atan2 x.im x.re) (+ 1.0 (* y.re (log x.im)))))))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
double tmp;
if (x_46_im <= 1.8e+69) {
tmp = y_46_re * atan2(x_46_im, x_46_re);
} else {
tmp = y_46_re * (atan2(x_46_im, x_46_re) * (1.0 + (y_46_re * log(x_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) :: tmp
if (x_46im <= 1.8d+69) then
tmp = y_46re * atan2(x_46im, x_46re)
else
tmp = y_46re * (atan2(x_46im, x_46re) * (1.0d0 + (y_46re * log(x_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 tmp;
if (x_46_im <= 1.8e+69) {
tmp = y_46_re * Math.atan2(x_46_im, x_46_re);
} else {
tmp = y_46_re * (Math.atan2(x_46_im, x_46_re) * (1.0 + (y_46_re * Math.log(x_46_im))));
}
return tmp;
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): tmp = 0 if x_46_im <= 1.8e+69: tmp = y_46_re * math.atan2(x_46_im, x_46_re) else: tmp = y_46_re * (math.atan2(x_46_im, x_46_re) * (1.0 + (y_46_re * math.log(x_46_im)))) return tmp
function code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = 0.0 if (x_46_im <= 1.8e+69) tmp = Float64(y_46_re * atan(x_46_im, x_46_re)); else tmp = Float64(y_46_re * Float64(atan(x_46_im, x_46_re) * Float64(1.0 + Float64(y_46_re * log(x_46_im))))); 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 <= 1.8e+69) tmp = y_46_re * atan2(x_46_im, x_46_re); else tmp = y_46_re * (atan2(x_46_im, x_46_re) * (1.0 + (y_46_re * log(x_46_im)))); end tmp_2 = tmp; end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := If[LessEqual[x$46$im, 1.8e+69], N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision], N[(y$46$re * N[(N[ArcTan[x$46$im / x$46$re], $MachinePrecision] * N[(1.0 + N[(y$46$re * N[Log[x$46$im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x.im \leq 1.8 \cdot 10^{+69}:\\
\;\;\;\;y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}\\
\mathbf{else}:\\
\;\;\;\;y.re \cdot \left(\tan^{-1}_* \frac{x.im}{x.re} \cdot \left(1 + y.re \cdot \log x.im\right)\right)\\
\end{array}
\end{array}
if x.im < 1.8000000000000001e69Initial program 49.1%
exp-diff44.3%
exp-to-pow44.3%
hypot-define44.3%
*-commutative44.3%
exp-prod44.2%
fma-define44.2%
hypot-define74.2%
*-commutative74.2%
Simplified74.2%
Taylor expanded in y.im around 0 44.8%
unpow244.8%
unpow244.8%
hypot-undefine43.0%
Simplified43.0%
add-log-exp40.7%
*-commutative40.7%
Applied egg-rr40.7%
Taylor expanded in x.re around 0 23.9%
Taylor expanded in y.re around 0 16.9%
if 1.8000000000000001e69 < x.im Initial program 20.8%
exp-diff20.8%
exp-to-pow20.8%
hypot-define20.8%
*-commutative20.8%
exp-prod20.8%
fma-define20.8%
hypot-define60.3%
*-commutative60.3%
Simplified60.3%
Taylor expanded in y.im around 0 36.3%
unpow236.3%
unpow236.3%
hypot-undefine40.5%
Simplified40.5%
add-log-exp30.8%
*-commutative30.8%
Applied egg-rr30.8%
Taylor expanded in x.re around 0 40.5%
Taylor expanded in y.re around 0 25.0%
associate-*r*25.0%
distribute-lft1-in25.0%
Simplified25.0%
Final simplification18.4%
(FPCore (x.re x.im y.re y.im) :precision binary64 (* y.re (atan2 x.im x.re)))
double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return y_46_re * atan2(x_46_im, x_46_re);
}
real(8) function code(x_46re, x_46im, y_46re, y_46im)
real(8), intent (in) :: x_46re
real(8), intent (in) :: x_46im
real(8), intent (in) :: y_46re
real(8), intent (in) :: y_46im
code = y_46re * atan2(x_46im, x_46re)
end function
public static double code(double x_46_re, double x_46_im, double y_46_re, double y_46_im) {
return y_46_re * Math.atan2(x_46_im, x_46_re);
}
def code(x_46_re, x_46_im, y_46_re, y_46_im): return y_46_re * math.atan2(x_46_im, x_46_re)
function code(x_46_re, x_46_im, y_46_re, y_46_im) return Float64(y_46_re * atan(x_46_im, x_46_re)) end
function tmp = code(x_46_re, x_46_im, y_46_re, y_46_im) tmp = y_46_re * atan2(x_46_im, x_46_re); end
code[x$46$re_, x$46$im_, y$46$re_, y$46$im_] := N[(y$46$re * N[ArcTan[x$46$im / x$46$re], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
y.re \cdot \tan^{-1}_* \frac{x.im}{x.re}
\end{array}
Initial program 43.8%
exp-diff39.9%
exp-to-pow39.9%
hypot-define39.9%
*-commutative39.9%
exp-prod39.8%
fma-define39.8%
hypot-define71.6%
*-commutative71.6%
Simplified71.6%
Taylor expanded in y.im around 0 43.2%
unpow243.2%
unpow243.2%
hypot-undefine42.5%
Simplified42.5%
add-log-exp38.8%
*-commutative38.8%
Applied egg-rr38.8%
Taylor expanded in x.re around 0 27.0%
Taylor expanded in y.re around 0 16.5%
Final simplification16.5%
herbie shell --seed 2024095
(FPCore (x.re x.im y.re y.im)
:name "powComplex, imaginary part"
:precision binary64
(* (exp (- (* (log (sqrt (+ (* x.re x.re) (* x.im x.im)))) y.re) (* (atan2 x.im x.re) y.im))) (sin (+ (* (log (sqrt (+ (* x.re x.re) (* x.im x.im)))) y.im) (* (atan2 x.im x.re) y.re)))))