
(FPCore (re im) :precision binary64 (* (exp re) (sin im)))
double code(double re, double im) {
return exp(re) * sin(im);
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = exp(re) * sin(im)
end function
public static double code(double re, double im) {
return Math.exp(re) * Math.sin(im);
}
def code(re, im): return math.exp(re) * math.sin(im)
function code(re, im) return Float64(exp(re) * sin(im)) end
function tmp = code(re, im) tmp = exp(re) * sin(im); end
code[re_, im_] := N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
e^{re} \cdot \sin im
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 24 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (re im) :precision binary64 (* (exp re) (sin im)))
double code(double re, double im) {
return exp(re) * sin(im);
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = exp(re) * sin(im)
end function
public static double code(double re, double im) {
return Math.exp(re) * Math.sin(im);
}
def code(re, im): return math.exp(re) * math.sin(im)
function code(re, im) return Float64(exp(re) * sin(im)) end
function tmp = code(re, im) tmp = exp(re) * sin(im); end
code[re_, im_] := N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
e^{re} \cdot \sin im
\end{array}
(FPCore (re im) :precision binary64 (* (sin im) (exp re)))
double code(double re, double im) {
return sin(im) * exp(re);
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = sin(im) * exp(re)
end function
public static double code(double re, double im) {
return Math.sin(im) * Math.exp(re);
}
def code(re, im): return math.sin(im) * math.exp(re)
function code(re, im) return Float64(sin(im) * exp(re)) end
function tmp = code(re, im) tmp = sin(im) * exp(re); end
code[re_, im_] := N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sin im \cdot e^{re}
\end{array}
Initial program 100.0%
Final simplification100.0%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* im (exp re)))
(t_1 (* (sin im) (exp re)))
(t_2 (* (+ 1.0 re) (sin im))))
(if (<= t_1 (- INFINITY))
(fma
(fma
(fma
(fma
(* (fma -0.0001984126984126984 re -0.0001984126984126984) im)
im
(fma 0.008333333333333333 re 0.008333333333333333))
(* im im)
(fma -0.16666666666666666 re -0.16666666666666666))
(* im im)
re)
im
im)
(if (<= t_1 -0.002)
t_2
(if (<= t_1 2e-121) t_0 (if (<= t_1 1.0) t_2 t_0))))))
double code(double re, double im) {
double t_0 = im * exp(re);
double t_1 = sin(im) * exp(re);
double t_2 = (1.0 + re) * sin(im);
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = fma(fma(fma(fma((fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), (im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), (im * im), re), im, im);
} else if (t_1 <= -0.002) {
tmp = t_2;
} else if (t_1 <= 2e-121) {
tmp = t_0;
} else if (t_1 <= 1.0) {
tmp = t_2;
} else {
tmp = t_0;
}
return tmp;
}
function code(re, im) t_0 = Float64(im * exp(re)) t_1 = Float64(sin(im) * exp(re)) t_2 = Float64(Float64(1.0 + re) * sin(im)) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = fma(fma(fma(fma(Float64(fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), Float64(im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), Float64(im * im), re), im, im); elseif (t_1 <= -0.002) tmp = t_2; elseif (t_1 <= 2e-121) tmp = t_0; elseif (t_1 <= 1.0) tmp = t_2; else tmp = t_0; end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(im * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(1.0 + re), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(N[(N[(N[(N[(N[(-0.0001984126984126984 * re + -0.0001984126984126984), $MachinePrecision] * im), $MachinePrecision] * im + N[(0.008333333333333333 * re + 0.008333333333333333), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], If[LessEqual[t$95$1, -0.002], t$95$2, If[LessEqual[t$95$1, 2e-121], t$95$0, If[LessEqual[t$95$1, 1.0], t$95$2, t$95$0]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := im \cdot e^{re}\\
t_1 := \sin im \cdot e^{re}\\
t_2 := \left(1 + re\right) \cdot \sin im\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.0001984126984126984, re, -0.0001984126984126984\right) \cdot im, im, \mathsf{fma}\left(0.008333333333333333, re, 0.008333333333333333\right)\right), im \cdot im, \mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right)\right), im \cdot im, re\right), im, im\right)\\
\mathbf{elif}\;t\_1 \leq -0.002:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{-121}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;t\_1 \leq 1:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -inf.0Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f644.7
Applied rewrites4.7%
Taylor expanded in im around 0
Applied rewrites17.9%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3 or 2e-121 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 99.9%
Taylor expanded in re around 0
lower-+.f6498.6
Applied rewrites98.6%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 2e-121 or 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6493.4
Applied rewrites93.4%
Final simplification83.9%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (sin im) (exp re))) (t_1 (* im (exp re))))
(if (<= t_0 (- INFINITY))
(fma
(fma
(fma
(fma
(* (fma -0.0001984126984126984 re -0.0001984126984126984) im)
im
(fma 0.008333333333333333 re 0.008333333333333333))
(* im im)
(fma -0.16666666666666666 re -0.16666666666666666))
(* im im)
re)
im
im)
(if (<= t_0 -0.002)
(sin im)
(if (<= t_0 2e-121) t_1 (if (<= t_0 1.0) (sin im) t_1))))))
double code(double re, double im) {
double t_0 = sin(im) * exp(re);
double t_1 = im * exp(re);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(fma(fma(fma((fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), (im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), (im * im), re), im, im);
} else if (t_0 <= -0.002) {
tmp = sin(im);
} else if (t_0 <= 2e-121) {
tmp = t_1;
} else if (t_0 <= 1.0) {
tmp = sin(im);
} else {
tmp = t_1;
}
return tmp;
}
function code(re, im) t_0 = Float64(sin(im) * exp(re)) t_1 = Float64(im * exp(re)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = fma(fma(fma(fma(Float64(fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), Float64(im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), Float64(im * im), re), im, im); elseif (t_0 <= -0.002) tmp = sin(im); elseif (t_0 <= 2e-121) tmp = t_1; elseif (t_0 <= 1.0) tmp = sin(im); else tmp = t_1; end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(im * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(N[(N[(-0.0001984126984126984 * re + -0.0001984126984126984), $MachinePrecision] * im), $MachinePrecision] * im + N[(0.008333333333333333 * re + 0.008333333333333333), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], If[LessEqual[t$95$0, -0.002], N[Sin[im], $MachinePrecision], If[LessEqual[t$95$0, 2e-121], t$95$1, If[LessEqual[t$95$0, 1.0], N[Sin[im], $MachinePrecision], t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin im \cdot e^{re}\\
t_1 := im \cdot e^{re}\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.0001984126984126984, re, -0.0001984126984126984\right) \cdot im, im, \mathsf{fma}\left(0.008333333333333333, re, 0.008333333333333333\right)\right), im \cdot im, \mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right)\right), im \cdot im, re\right), im, im\right)\\
\mathbf{elif}\;t\_0 \leq -0.002:\\
\;\;\;\;\sin im\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-121}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\sin im\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -inf.0Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f644.7
Applied rewrites4.7%
Taylor expanded in im around 0
Applied rewrites17.9%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3 or 2e-121 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 99.9%
Taylor expanded in re around 0
lower-sin.f6496.9
Applied rewrites96.9%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 2e-121 or 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6493.4
Applied rewrites93.4%
Final simplification83.3%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (sin im) (exp re))))
(if (<= t_0 (- INFINITY))
(fma
(fma
(fma
(fma
(* (fma -0.0001984126984126984 re -0.0001984126984126984) im)
im
(fma 0.008333333333333333 re 0.008333333333333333))
(* im im)
(fma -0.16666666666666666 re -0.16666666666666666))
(* im im)
re)
im
im)
(if (<= t_0 -0.002)
(sin im)
(if (<= t_0 1e-244)
(/
1.0
(fma
(fma (fma (* (/ re im) re) -0.25 (/ 0.5 im)) re (/ -1.0 im))
re
(/ 1.0 im)))
(if (<= t_0 1.0)
(sin im)
(* (* (* (* 0.16666666666666666 re) re) re) im)))))))
double code(double re, double im) {
double t_0 = sin(im) * exp(re);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(fma(fma(fma((fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), (im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), (im * im), re), im, im);
} else if (t_0 <= -0.002) {
tmp = sin(im);
} else if (t_0 <= 1e-244) {
tmp = 1.0 / fma(fma(fma(((re / im) * re), -0.25, (0.5 / im)), re, (-1.0 / im)), re, (1.0 / im));
} else if (t_0 <= 1.0) {
tmp = sin(im);
} else {
tmp = (((0.16666666666666666 * re) * re) * re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(sin(im) * exp(re)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = fma(fma(fma(fma(Float64(fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), Float64(im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), Float64(im * im), re), im, im); elseif (t_0 <= -0.002) tmp = sin(im); elseif (t_0 <= 1e-244) tmp = Float64(1.0 / fma(fma(fma(Float64(Float64(re / im) * re), -0.25, Float64(0.5 / im)), re, Float64(-1.0 / im)), re, Float64(1.0 / im))); elseif (t_0 <= 1.0) tmp = sin(im); else tmp = Float64(Float64(Float64(Float64(0.16666666666666666 * re) * re) * re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(N[(N[(-0.0001984126984126984 * re + -0.0001984126984126984), $MachinePrecision] * im), $MachinePrecision] * im + N[(0.008333333333333333 * re + 0.008333333333333333), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], If[LessEqual[t$95$0, -0.002], N[Sin[im], $MachinePrecision], If[LessEqual[t$95$0, 1e-244], N[(1.0 / N[(N[(N[(N[(N[(re / im), $MachinePrecision] * re), $MachinePrecision] * -0.25 + N[(0.5 / im), $MachinePrecision]), $MachinePrecision] * re + N[(-1.0 / im), $MachinePrecision]), $MachinePrecision] * re + N[(1.0 / im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 1.0], N[Sin[im], $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re), $MachinePrecision] * re), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin im \cdot e^{re}\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.0001984126984126984, re, -0.0001984126984126984\right) \cdot im, im, \mathsf{fma}\left(0.008333333333333333, re, 0.008333333333333333\right)\right), im \cdot im, \mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right)\right), im \cdot im, re\right), im, im\right)\\
\mathbf{elif}\;t\_0 \leq -0.002:\\
\;\;\;\;\sin im\\
\mathbf{elif}\;t\_0 \leq 10^{-244}:\\
\;\;\;\;\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\frac{re}{im} \cdot re, -0.25, \frac{0.5}{im}\right), re, \frac{-1}{im}\right), re, \frac{1}{im}\right)}\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\sin im\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\left(0.16666666666666666 \cdot re\right) \cdot re\right) \cdot re\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -inf.0Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f644.7
Applied rewrites4.7%
Taylor expanded in im around 0
Applied rewrites17.9%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3 or 9.9999999999999993e-245 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 99.9%
Taylor expanded in re around 0
lower-sin.f6496.4
Applied rewrites96.4%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 9.9999999999999993e-245Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f64100.0
Applied rewrites100.0%
Taylor expanded in re around 0
Applied rewrites50.5%
Applied rewrites50.3%
Taylor expanded in re around 0
Applied rewrites94.3%
if 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6476.3
Applied rewrites76.3%
Taylor expanded in re around 0
Applied rewrites63.6%
Taylor expanded in re around inf
Applied rewrites63.6%
Taylor expanded in re around inf
Applied rewrites63.6%
Final simplification79.2%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (sin im) (exp re))) (t_1 (* im (exp re))))
(if (<= t_0 -0.002)
(* (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0) (sin im))
(if (<= t_0 2e-121) t_1 (if (<= t_0 1.0) (* (+ 1.0 re) (sin im)) t_1)))))
double code(double re, double im) {
double t_0 = sin(im) * exp(re);
double t_1 = im * exp(re);
double tmp;
if (t_0 <= -0.002) {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * sin(im);
} else if (t_0 <= 2e-121) {
tmp = t_1;
} else if (t_0 <= 1.0) {
tmp = (1.0 + re) * sin(im);
} else {
tmp = t_1;
}
return tmp;
}
function code(re, im) t_0 = Float64(sin(im) * exp(re)) t_1 = Float64(im * exp(re)) tmp = 0.0 if (t_0 <= -0.002) tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * sin(im)); elseif (t_0 <= 2e-121) tmp = t_1; elseif (t_0 <= 1.0) tmp = Float64(Float64(1.0 + re) * sin(im)); else tmp = t_1; end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(im * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.002], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 2e-121], t$95$1, If[LessEqual[t$95$0, 1.0], N[(N[(1.0 + re), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin im \cdot e^{re}\\
t_1 := im \cdot e^{re}\\
\mathbf{if}\;t\_0 \leq -0.002:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot \sin im\\
\mathbf{elif}\;t\_0 \leq 2 \cdot 10^{-121}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\left(1 + re\right) \cdot \sin im\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3Initial program 99.9%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6481.4
Applied rewrites81.4%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 2e-121 or 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6493.4
Applied rewrites93.4%
if 2e-121 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
Taylor expanded in re around 0
lower-+.f64100.0
Applied rewrites100.0%
Final simplification91.3%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* im (exp re))) (t_1 (* (sin im) (exp re))))
(if (<= t_1 -0.002)
(* (fma (fma 0.5 re 1.0) re 1.0) (sin im))
(if (<= t_1 2e-121) t_0 (if (<= t_1 1.0) (* (+ 1.0 re) (sin im)) t_0)))))
double code(double re, double im) {
double t_0 = im * exp(re);
double t_1 = sin(im) * exp(re);
double tmp;
if (t_1 <= -0.002) {
tmp = fma(fma(0.5, re, 1.0), re, 1.0) * sin(im);
} else if (t_1 <= 2e-121) {
tmp = t_0;
} else if (t_1 <= 1.0) {
tmp = (1.0 + re) * sin(im);
} else {
tmp = t_0;
}
return tmp;
}
function code(re, im) t_0 = Float64(im * exp(re)) t_1 = Float64(sin(im) * exp(re)) tmp = 0.0 if (t_1 <= -0.002) tmp = Float64(fma(fma(0.5, re, 1.0), re, 1.0) * sin(im)); elseif (t_1 <= 2e-121) tmp = t_0; elseif (t_1 <= 1.0) tmp = Float64(Float64(1.0 + re) * sin(im)); else tmp = t_0; end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(im * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -0.002], N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, 2e-121], t$95$0, If[LessEqual[t$95$1, 1.0], N[(N[(1.0 + re), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], t$95$0]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := im \cdot e^{re}\\
t_1 := \sin im \cdot e^{re}\\
\mathbf{if}\;t\_1 \leq -0.002:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5, re, 1\right), re, 1\right) \cdot \sin im\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{-121}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;t\_1 \leq 1:\\
\;\;\;\;\left(1 + re\right) \cdot \sin im\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3Initial program 99.9%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6474.8
Applied rewrites74.8%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 2e-121 or 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6493.4
Applied rewrites93.4%
if 2e-121 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
Taylor expanded in re around 0
lower-+.f64100.0
Applied rewrites100.0%
Final simplification89.4%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (sin im) (exp re))))
(if (<= t_0 -0.002)
(fma
(fma
(fma
(fma
(* (fma -0.0001984126984126984 re -0.0001984126984126984) im)
im
(fma 0.008333333333333333 re 0.008333333333333333))
(* im im)
(fma -0.16666666666666666 re -0.16666666666666666))
(* im im)
re)
im
im)
(if (<= t_0 0.0)
(/
1.0
(fma
(fma (fma (* (/ re im) re) -0.25 (/ 0.5 im)) re (/ -1.0 im))
re
(/ 1.0 im)))
(* (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0) im)))))
double code(double re, double im) {
double t_0 = sin(im) * exp(re);
double tmp;
if (t_0 <= -0.002) {
tmp = fma(fma(fma(fma((fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), (im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), (im * im), re), im, im);
} else if (t_0 <= 0.0) {
tmp = 1.0 / fma(fma(fma(((re / im) * re), -0.25, (0.5 / im)), re, (-1.0 / im)), re, (1.0 / im));
} else {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(sin(im) * exp(re)) tmp = 0.0 if (t_0 <= -0.002) tmp = fma(fma(fma(fma(Float64(fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), Float64(im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), Float64(im * im), re), im, im); elseif (t_0 <= 0.0) tmp = Float64(1.0 / fma(fma(fma(Float64(Float64(re / im) * re), -0.25, Float64(0.5 / im)), re, Float64(-1.0 / im)), re, Float64(1.0 / im))); else tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.002], N[(N[(N[(N[(N[(N[(-0.0001984126984126984 * re + -0.0001984126984126984), $MachinePrecision] * im), $MachinePrecision] * im + N[(0.008333333333333333 * re + 0.008333333333333333), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], If[LessEqual[t$95$0, 0.0], N[(1.0 / N[(N[(N[(N[(N[(re / im), $MachinePrecision] * re), $MachinePrecision] * -0.25 + N[(0.5 / im), $MachinePrecision]), $MachinePrecision] * re + N[(-1.0 / im), $MachinePrecision]), $MachinePrecision] * re + N[(1.0 / im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin im \cdot e^{re}\\
\mathbf{if}\;t\_0 \leq -0.002:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.0001984126984126984, re, -0.0001984126984126984\right) \cdot im, im, \mathsf{fma}\left(0.008333333333333333, re, 0.008333333333333333\right)\right), im \cdot im, \mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right)\right), im \cdot im, re\right), im, im\right)\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\frac{re}{im} \cdot re, -0.25, \frac{0.5}{im}\right), re, \frac{-1}{im}\right), re, \frac{1}{im}\right)}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3Initial program 99.9%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6448.2
Applied rewrites48.2%
Taylor expanded in im around 0
Applied rewrites10.5%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f64100.0
Applied rewrites100.0%
Taylor expanded in re around 0
Applied rewrites46.7%
Applied rewrites46.6%
Taylor expanded in re around 0
Applied rewrites93.9%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6459.1
Applied rewrites59.1%
Taylor expanded in re around 0
Applied rewrites53.6%
Final simplification53.9%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (sin im) (exp re))))
(if (<= t_0 -0.002)
(fma
(fma
(fma
(fma
(* (fma -0.0001984126984126984 re -0.0001984126984126984) im)
im
(fma 0.008333333333333333 re 0.008333333333333333))
(* im im)
(fma -0.16666666666666666 re -0.16666666666666666))
(* im im)
re)
im
im)
(if (<= t_0 0.44)
(/ 1.0 (fma (fma (/ 0.5 im) re (/ -1.0 im)) re (/ 1.0 im)))
(* (* (* (fma 0.16666666666666666 re 0.5) re) re) im)))))
double code(double re, double im) {
double t_0 = sin(im) * exp(re);
double tmp;
if (t_0 <= -0.002) {
tmp = fma(fma(fma(fma((fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), (im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), (im * im), re), im, im);
} else if (t_0 <= 0.44) {
tmp = 1.0 / fma(fma((0.5 / im), re, (-1.0 / im)), re, (1.0 / im));
} else {
tmp = ((fma(0.16666666666666666, re, 0.5) * re) * re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(sin(im) * exp(re)) tmp = 0.0 if (t_0 <= -0.002) tmp = fma(fma(fma(fma(Float64(fma(-0.0001984126984126984, re, -0.0001984126984126984) * im), im, fma(0.008333333333333333, re, 0.008333333333333333)), Float64(im * im), fma(-0.16666666666666666, re, -0.16666666666666666)), Float64(im * im), re), im, im); elseif (t_0 <= 0.44) tmp = Float64(1.0 / fma(fma(Float64(0.5 / im), re, Float64(-1.0 / im)), re, Float64(1.0 / im))); else tmp = Float64(Float64(Float64(fma(0.16666666666666666, re, 0.5) * re) * re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.002], N[(N[(N[(N[(N[(N[(-0.0001984126984126984 * re + -0.0001984126984126984), $MachinePrecision] * im), $MachinePrecision] * im + N[(0.008333333333333333 * re + 0.008333333333333333), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], If[LessEqual[t$95$0, 0.44], N[(1.0 / N[(N[(N[(0.5 / im), $MachinePrecision] * re + N[(-1.0 / im), $MachinePrecision]), $MachinePrecision] * re + N[(1.0 / im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin im \cdot e^{re}\\
\mathbf{if}\;t\_0 \leq -0.002:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.0001984126984126984, re, -0.0001984126984126984\right) \cdot im, im, \mathsf{fma}\left(0.008333333333333333, re, 0.008333333333333333\right)\right), im \cdot im, \mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right)\right), im \cdot im, re\right), im, im\right)\\
\mathbf{elif}\;t\_0 \leq 0.44:\\
\;\;\;\;\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\frac{0.5}{im}, re, \frac{-1}{im}\right), re, \frac{1}{im}\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right) \cdot re\right) \cdot re\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3Initial program 99.9%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6448.2
Applied rewrites48.2%
Taylor expanded in im around 0
Applied rewrites10.5%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.440000000000000002Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6492.1
Applied rewrites92.1%
Taylor expanded in re around 0
Applied rewrites56.5%
Applied rewrites56.4%
Taylor expanded in re around 0
Applied rewrites77.2%
if 0.440000000000000002 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6447.0
Applied rewrites47.0%
Taylor expanded in re around 0
Applied rewrites39.4%
Taylor expanded in re around inf
Applied rewrites39.7%
Final simplification49.2%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (sin im) (exp re))))
(if (<= t_0 -0.002)
(fma
(fma (fma -0.16666666666666666 re -0.16666666666666666) (* im im) re)
im
im)
(if (<= t_0 0.44)
(/ 1.0 (fma (fma (/ 0.5 im) re (/ -1.0 im)) re (/ 1.0 im)))
(* (* (* (fma 0.16666666666666666 re 0.5) re) re) im)))))
double code(double re, double im) {
double t_0 = sin(im) * exp(re);
double tmp;
if (t_0 <= -0.002) {
tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), (im * im), re), im, im);
} else if (t_0 <= 0.44) {
tmp = 1.0 / fma(fma((0.5 / im), re, (-1.0 / im)), re, (1.0 / im));
} else {
tmp = ((fma(0.16666666666666666, re, 0.5) * re) * re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(sin(im) * exp(re)) tmp = 0.0 if (t_0 <= -0.002) tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), Float64(im * im), re), im, im); elseif (t_0 <= 0.44) tmp = Float64(1.0 / fma(fma(Float64(0.5 / im), re, Float64(-1.0 / im)), re, Float64(1.0 / im))); else tmp = Float64(Float64(Float64(fma(0.16666666666666666, re, 0.5) * re) * re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.002], N[(N[(N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], If[LessEqual[t$95$0, 0.44], N[(1.0 / N[(N[(N[(0.5 / im), $MachinePrecision] * re + N[(-1.0 / im), $MachinePrecision]), $MachinePrecision] * re + N[(1.0 / im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin im \cdot e^{re}\\
\mathbf{if}\;t\_0 \leq -0.002:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right), im \cdot im, re\right), im, im\right)\\
\mathbf{elif}\;t\_0 \leq 0.44:\\
\;\;\;\;\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\frac{0.5}{im}, re, \frac{-1}{im}\right), re, \frac{1}{im}\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right) \cdot re\right) \cdot re\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3Initial program 99.9%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6448.2
Applied rewrites48.2%
Taylor expanded in im around 0
Applied rewrites9.3%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.440000000000000002Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6492.1
Applied rewrites92.1%
Taylor expanded in re around 0
Applied rewrites56.5%
Applied rewrites56.4%
Taylor expanded in re around 0
Applied rewrites77.2%
if 0.440000000000000002 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6447.0
Applied rewrites47.0%
Taylor expanded in re around 0
Applied rewrites39.4%
Taylor expanded in re around inf
Applied rewrites39.7%
Final simplification48.9%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (sin im) (exp re))))
(if (<= t_0 -0.002)
(fma
(fma (fma -0.16666666666666666 re -0.16666666666666666) (* im im) re)
im
im)
(if (<= t_0 0.0)
(/ 1.0 (- (/ 1.0 im) (/ re im)))
(* (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0) im)))))
double code(double re, double im) {
double t_0 = sin(im) * exp(re);
double tmp;
if (t_0 <= -0.002) {
tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), (im * im), re), im, im);
} else if (t_0 <= 0.0) {
tmp = 1.0 / ((1.0 / im) - (re / im));
} else {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(sin(im) * exp(re)) tmp = 0.0 if (t_0 <= -0.002) tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), Float64(im * im), re), im, im); elseif (t_0 <= 0.0) tmp = Float64(1.0 / Float64(Float64(1.0 / im) - Float64(re / im))); else tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.002], N[(N[(N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], If[LessEqual[t$95$0, 0.0], N[(1.0 / N[(N[(1.0 / im), $MachinePrecision] - N[(re / im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin im \cdot e^{re}\\
\mathbf{if}\;t\_0 \leq -0.002:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right), im \cdot im, re\right), im, im\right)\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;\frac{1}{\frac{1}{im} - \frac{re}{im}}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3Initial program 99.9%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6448.2
Applied rewrites48.2%
Taylor expanded in im around 0
Applied rewrites9.3%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f64100.0
Applied rewrites100.0%
Taylor expanded in re around 0
Applied rewrites46.7%
Applied rewrites46.6%
Taylor expanded in re around 0
Applied rewrites63.4%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6459.1
Applied rewrites59.1%
Taylor expanded in re around 0
Applied rewrites53.6%
Final simplification44.2%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (sin im) (exp re))))
(if (<= t_0 -0.002)
(fma
(fma (fma -0.16666666666666666 re -0.16666666666666666) (* im im) re)
im
im)
(if (<= t_0 0.0)
(* (/ im (- 1.0 re)) (- 1.0 (* re re)))
(* (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0) im)))))
double code(double re, double im) {
double t_0 = sin(im) * exp(re);
double tmp;
if (t_0 <= -0.002) {
tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), (im * im), re), im, im);
} else if (t_0 <= 0.0) {
tmp = (im / (1.0 - re)) * (1.0 - (re * re));
} else {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(sin(im) * exp(re)) tmp = 0.0 if (t_0 <= -0.002) tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), Float64(im * im), re), im, im); elseif (t_0 <= 0.0) tmp = Float64(Float64(im / Float64(1.0 - re)) * Float64(1.0 - Float64(re * re))); else tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.002], N[(N[(N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], If[LessEqual[t$95$0, 0.0], N[(N[(im / N[(1.0 - re), $MachinePrecision]), $MachinePrecision] * N[(1.0 - N[(re * re), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin im \cdot e^{re}\\
\mathbf{if}\;t\_0 \leq -0.002:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right), im \cdot im, re\right), im, im\right)\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;\frac{im}{1 - re} \cdot \left(1 - re \cdot re\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -2e-3Initial program 99.9%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6448.2
Applied rewrites48.2%
Taylor expanded in im around 0
Applied rewrites9.3%
if -2e-3 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6446.8
Applied rewrites46.8%
Applied rewrites25.1%
Taylor expanded in im around 0
Applied rewrites52.4%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6459.1
Applied rewrites59.1%
Taylor expanded in re around 0
Applied rewrites53.6%
Final simplification40.8%
(FPCore (re im)
:precision binary64
(if (<= (* (sin im) (exp re)) 0.0)
(fma
(fma (fma -0.16666666666666666 re -0.16666666666666666) (* im im) re)
im
im)
(* (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0) im)))
double code(double re, double im) {
double tmp;
if ((sin(im) * exp(re)) <= 0.0) {
tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), (im * im), re), im, im);
} else {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * im;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(sin(im) * exp(re)) <= 0.0) tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), Float64(im * im), re), im, im); else tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * im); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision], 0.0], N[(N[(N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\sin im \cdot e^{re} \leq 0:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right), im \cdot im, re\right), im, im\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6447.4
Applied rewrites47.4%
Taylor expanded in im around 0
Applied rewrites28.9%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6459.1
Applied rewrites59.1%
Taylor expanded in re around 0
Applied rewrites53.6%
Final simplification39.0%
(FPCore (re im)
:precision binary64
(if (<= (* (sin im) (exp re)) 2e-121)
(fma
(fma (fma -0.16666666666666666 re -0.16666666666666666) (* im im) re)
im
im)
(* (fma (* (* re re) 0.16666666666666666) re 1.0) im)))
double code(double re, double im) {
double tmp;
if ((sin(im) * exp(re)) <= 2e-121) {
tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), (im * im), re), im, im);
} else {
tmp = fma(((re * re) * 0.16666666666666666), re, 1.0) * im;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(sin(im) * exp(re)) <= 2e-121) tmp = fma(fma(fma(-0.16666666666666666, re, -0.16666666666666666), Float64(im * im), re), im, im); else tmp = Float64(fma(Float64(Float64(re * re) * 0.16666666666666666), re, 1.0) * im); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision], 2e-121], N[(N[(N[(-0.16666666666666666 * re + -0.16666666666666666), $MachinePrecision] * N[(im * im), $MachinePrecision] + re), $MachinePrecision] * im + im), $MachinePrecision], N[(N[(N[(N[(re * re), $MachinePrecision] * 0.16666666666666666), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\sin im \cdot e^{re} \leq 2 \cdot 10^{-121}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, re, -0.16666666666666666\right), im \cdot im, re\right), im, im\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\left(re \cdot re\right) \cdot 0.16666666666666666, re, 1\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 2e-121Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6452.7
Applied rewrites52.7%
Taylor expanded in im around 0
Applied rewrites36.2%
if 2e-121 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6450.0
Applied rewrites50.0%
Taylor expanded in re around 0
Applied rewrites44.4%
Taylor expanded in re around inf
Applied rewrites44.4%
Final simplification39.0%
(FPCore (re im) :precision binary64 (if (<= (* (sin im) (exp re)) 0.44) (fma (* (fma 0.5 re 1.0) im) re im) (* (* (* (fma 0.16666666666666666 re 0.5) re) re) im)))
double code(double re, double im) {
double tmp;
if ((sin(im) * exp(re)) <= 0.44) {
tmp = fma((fma(0.5, re, 1.0) * im), re, im);
} else {
tmp = ((fma(0.16666666666666666, re, 0.5) * re) * re) * im;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(sin(im) * exp(re)) <= 0.44) tmp = fma(Float64(fma(0.5, re, 1.0) * im), re, im); else tmp = Float64(Float64(Float64(fma(0.16666666666666666, re, 0.5) * re) * re) * im); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision], 0.44], N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * im), $MachinePrecision] * re + im), $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\sin im \cdot e^{re} \leq 0.44:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5, re, 1\right) \cdot im, re, im\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right) \cdot re\right) \cdot re\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 0.440000000000000002Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6474.8
Applied rewrites74.8%
Taylor expanded in re around 0
Applied rewrites46.1%
if 0.440000000000000002 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6447.0
Applied rewrites47.0%
Taylor expanded in re around 0
Applied rewrites39.4%
Taylor expanded in re around inf
Applied rewrites39.7%
Final simplification44.5%
(FPCore (re im) :precision binary64 (if (<= (* (sin im) (exp re)) 1.0) (fma (* (fma 0.5 re 1.0) im) re im) (* (* (* (* 0.16666666666666666 re) re) re) im)))
double code(double re, double im) {
double tmp;
if ((sin(im) * exp(re)) <= 1.0) {
tmp = fma((fma(0.5, re, 1.0) * im), re, im);
} else {
tmp = (((0.16666666666666666 * re) * re) * re) * im;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(sin(im) * exp(re)) <= 1.0) tmp = fma(Float64(fma(0.5, re, 1.0) * im), re, im); else tmp = Float64(Float64(Float64(Float64(0.16666666666666666 * re) * re) * re) * im); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision], 1.0], N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * im), $MachinePrecision] * re + im), $MachinePrecision], N[(N[(N[(N[(0.16666666666666666 * re), $MachinePrecision] * re), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\sin im \cdot e^{re} \leq 1:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5, re, 1\right) \cdot im, re, im\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\left(0.16666666666666666 \cdot re\right) \cdot re\right) \cdot re\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6466.5
Applied rewrites66.5%
Taylor expanded in re around 0
Applied rewrites41.1%
if 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6476.3
Applied rewrites76.3%
Taylor expanded in re around 0
Applied rewrites63.6%
Taylor expanded in re around inf
Applied rewrites63.6%
Taylor expanded in re around inf
Applied rewrites63.6%
Final simplification44.4%
(FPCore (re im) :precision binary64 (if (<= (* (sin im) (exp re)) 0.44) (fma (* (fma 0.5 re 1.0) im) re im) (* (* (* 0.5 re) re) im)))
double code(double re, double im) {
double tmp;
if ((sin(im) * exp(re)) <= 0.44) {
tmp = fma((fma(0.5, re, 1.0) * im), re, im);
} else {
tmp = ((0.5 * re) * re) * im;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(sin(im) * exp(re)) <= 0.44) tmp = fma(Float64(fma(0.5, re, 1.0) * im), re, im); else tmp = Float64(Float64(Float64(0.5 * re) * re) * im); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision], 0.44], N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * im), $MachinePrecision] * re + im), $MachinePrecision], N[(N[(N[(0.5 * re), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\sin im \cdot e^{re} \leq 0.44:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5, re, 1\right) \cdot im, re, im\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\left(0.5 \cdot re\right) \cdot re\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 0.440000000000000002Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6474.8
Applied rewrites74.8%
Taylor expanded in re around 0
Applied rewrites46.1%
if 0.440000000000000002 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6447.0
Applied rewrites47.0%
Taylor expanded in re around 0
Applied rewrites39.4%
Taylor expanded in re around inf
Applied rewrites39.7%
Taylor expanded in re around 0
Applied rewrites29.1%
Final simplification41.9%
(FPCore (re im) :precision binary64 (if (<= (* (sin im) (exp re)) 0.44) (* 1.0 im) (* (* (* 0.5 re) re) im)))
double code(double re, double im) {
double tmp;
if ((sin(im) * exp(re)) <= 0.44) {
tmp = 1.0 * im;
} else {
tmp = ((0.5 * re) * re) * im;
}
return tmp;
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
real(8) :: tmp
if ((sin(im) * exp(re)) <= 0.44d0) then
tmp = 1.0d0 * im
else
tmp = ((0.5d0 * re) * re) * im
end if
code = tmp
end function
public static double code(double re, double im) {
double tmp;
if ((Math.sin(im) * Math.exp(re)) <= 0.44) {
tmp = 1.0 * im;
} else {
tmp = ((0.5 * re) * re) * im;
}
return tmp;
}
def code(re, im): tmp = 0 if (math.sin(im) * math.exp(re)) <= 0.44: tmp = 1.0 * im else: tmp = ((0.5 * re) * re) * im return tmp
function code(re, im) tmp = 0.0 if (Float64(sin(im) * exp(re)) <= 0.44) tmp = Float64(1.0 * im); else tmp = Float64(Float64(Float64(0.5 * re) * re) * im); end return tmp end
function tmp_2 = code(re, im) tmp = 0.0; if ((sin(im) * exp(re)) <= 0.44) tmp = 1.0 * im; else tmp = ((0.5 * re) * re) * im; end tmp_2 = tmp; end
code[re_, im_] := If[LessEqual[N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision], 0.44], N[(1.0 * im), $MachinePrecision], N[(N[(N[(0.5 * re), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\sin im \cdot e^{re} \leq 0.44:\\
\;\;\;\;1 \cdot im\\
\mathbf{else}:\\
\;\;\;\;\left(\left(0.5 \cdot re\right) \cdot re\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 0.440000000000000002Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6474.8
Applied rewrites74.8%
Taylor expanded in re around 0
Applied rewrites36.5%
if 0.440000000000000002 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6447.0
Applied rewrites47.0%
Taylor expanded in re around 0
Applied rewrites39.4%
Taylor expanded in re around inf
Applied rewrites39.7%
Taylor expanded in re around 0
Applied rewrites29.1%
Final simplification34.7%
(FPCore (re im) :precision binary64 (if (<= (* (sin im) (exp re)) 0.44) (* 1.0 im) (* (* (* re re) 0.5) im)))
double code(double re, double im) {
double tmp;
if ((sin(im) * exp(re)) <= 0.44) {
tmp = 1.0 * im;
} else {
tmp = ((re * re) * 0.5) * im;
}
return tmp;
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
real(8) :: tmp
if ((sin(im) * exp(re)) <= 0.44d0) then
tmp = 1.0d0 * im
else
tmp = ((re * re) * 0.5d0) * im
end if
code = tmp
end function
public static double code(double re, double im) {
double tmp;
if ((Math.sin(im) * Math.exp(re)) <= 0.44) {
tmp = 1.0 * im;
} else {
tmp = ((re * re) * 0.5) * im;
}
return tmp;
}
def code(re, im): tmp = 0 if (math.sin(im) * math.exp(re)) <= 0.44: tmp = 1.0 * im else: tmp = ((re * re) * 0.5) * im return tmp
function code(re, im) tmp = 0.0 if (Float64(sin(im) * exp(re)) <= 0.44) tmp = Float64(1.0 * im); else tmp = Float64(Float64(Float64(re * re) * 0.5) * im); end return tmp end
function tmp_2 = code(re, im) tmp = 0.0; if ((sin(im) * exp(re)) <= 0.44) tmp = 1.0 * im; else tmp = ((re * re) * 0.5) * im; end tmp_2 = tmp; end
code[re_, im_] := If[LessEqual[N[(N[Sin[im], $MachinePrecision] * N[Exp[re], $MachinePrecision]), $MachinePrecision], 0.44], N[(1.0 * im), $MachinePrecision], N[(N[(N[(re * re), $MachinePrecision] * 0.5), $MachinePrecision] * im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\sin im \cdot e^{re} \leq 0.44:\\
\;\;\;\;1 \cdot im\\
\mathbf{else}:\\
\;\;\;\;\left(\left(re \cdot re\right) \cdot 0.5\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 0.440000000000000002Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6474.8
Applied rewrites74.8%
Taylor expanded in re around 0
Applied rewrites36.5%
if 0.440000000000000002 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6447.0
Applied rewrites47.0%
Taylor expanded in re around 0
Applied rewrites24.3%
Taylor expanded in re around inf
Applied rewrites29.1%
Final simplification34.7%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* im (exp re))))
(if (<= re -0.0055)
t_0
(if (<= re 60000.0)
(* (fma (fma 0.5 re 1.0) re 1.0) (sin im))
(if (<= re 1.05e+103)
t_0
(* (* (* (fma 0.16666666666666666 re 0.5) re) re) (sin im)))))))
double code(double re, double im) {
double t_0 = im * exp(re);
double tmp;
if (re <= -0.0055) {
tmp = t_0;
} else if (re <= 60000.0) {
tmp = fma(fma(0.5, re, 1.0), re, 1.0) * sin(im);
} else if (re <= 1.05e+103) {
tmp = t_0;
} else {
tmp = ((fma(0.16666666666666666, re, 0.5) * re) * re) * sin(im);
}
return tmp;
}
function code(re, im) t_0 = Float64(im * exp(re)) tmp = 0.0 if (re <= -0.0055) tmp = t_0; elseif (re <= 60000.0) tmp = Float64(fma(fma(0.5, re, 1.0), re, 1.0) * sin(im)); elseif (re <= 1.05e+103) tmp = t_0; else tmp = Float64(Float64(Float64(fma(0.16666666666666666, re, 0.5) * re) * re) * sin(im)); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(im * N[Exp[re], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[re, -0.0055], t$95$0, If[LessEqual[re, 60000.0], N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], If[LessEqual[re, 1.05e+103], t$95$0, N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re), $MachinePrecision] * re), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := im \cdot e^{re}\\
\mathbf{if}\;re \leq -0.0055:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;re \leq 60000:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5, re, 1\right), re, 1\right) \cdot \sin im\\
\mathbf{elif}\;re \leq 1.05 \cdot 10^{+103}:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right) \cdot re\right) \cdot re\right) \cdot \sin im\\
\end{array}
\end{array}
if re < -0.0054999999999999997 or 6e4 < re < 1.0500000000000001e103Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6495.3
Applied rewrites95.3%
if -0.0054999999999999997 < re < 6e4Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6498.6
Applied rewrites98.6%
if 1.0500000000000001e103 < re Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64100.0
Applied rewrites100.0%
Taylor expanded in re around inf
Applied rewrites100.0%
Final simplification98.1%
(FPCore (re im) :precision binary64 (* (fma (* (* re re) 0.16666666666666666) re 1.0) im))
double code(double re, double im) {
return fma(((re * re) * 0.16666666666666666), re, 1.0) * im;
}
function code(re, im) return Float64(fma(Float64(Float64(re * re) * 0.16666666666666666), re, 1.0) * im) end
code[re_, im_] := N[(N[(N[(N[(re * re), $MachinePrecision] * 0.16666666666666666), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\left(re \cdot re\right) \cdot 0.16666666666666666, re, 1\right) \cdot im
\end{array}
Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6468.0
Applied rewrites68.0%
Taylor expanded in re around 0
Applied rewrites46.5%
Taylor expanded in re around inf
Applied rewrites46.2%
(FPCore (re im) :precision binary64 (* (fma (fma 0.5 re 1.0) re 1.0) im))
double code(double re, double im) {
return fma(fma(0.5, re, 1.0), re, 1.0) * im;
}
function code(re, im) return Float64(fma(fma(0.5, re, 1.0), re, 1.0) * im) end
code[re_, im_] := N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(0.5, re, 1\right), re, 1\right) \cdot im
\end{array}
Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6468.0
Applied rewrites68.0%
Taylor expanded in re around 0
Applied rewrites42.5%
(FPCore (re im) :precision binary64 (if (<= im 490000.0) (* 1.0 im) (* im re)))
double code(double re, double im) {
double tmp;
if (im <= 490000.0) {
tmp = 1.0 * im;
} else {
tmp = im * re;
}
return tmp;
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
real(8) :: tmp
if (im <= 490000.0d0) then
tmp = 1.0d0 * im
else
tmp = im * re
end if
code = tmp
end function
public static double code(double re, double im) {
double tmp;
if (im <= 490000.0) {
tmp = 1.0 * im;
} else {
tmp = im * re;
}
return tmp;
}
def code(re, im): tmp = 0 if im <= 490000.0: tmp = 1.0 * im else: tmp = im * re return tmp
function code(re, im) tmp = 0.0 if (im <= 490000.0) tmp = Float64(1.0 * im); else tmp = Float64(im * re); end return tmp end
function tmp_2 = code(re, im) tmp = 0.0; if (im <= 490000.0) tmp = 1.0 * im; else tmp = im * re; end tmp_2 = tmp; end
code[re_, im_] := If[LessEqual[im, 490000.0], N[(1.0 * im), $MachinePrecision], N[(im * re), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;im \leq 490000:\\
\;\;\;\;1 \cdot im\\
\mathbf{else}:\\
\;\;\;\;im \cdot re\\
\end{array}
\end{array}
if im < 4.9e5Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6477.6
Applied rewrites77.6%
Taylor expanded in re around 0
Applied rewrites35.9%
if 4.9e5 < im Initial program 99.9%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6454.8
Applied rewrites54.8%
Taylor expanded in im around 0
Applied rewrites13.6%
Taylor expanded in re around inf
Applied rewrites14.6%
Final simplification30.9%
(FPCore (re im) :precision binary64 (fma im re im))
double code(double re, double im) {
return fma(im, re, im);
}
function code(re, im) return fma(im, re, im) end
code[re_, im_] := N[(im * re + im), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(im, re, im\right)
\end{array}
Initial program 100.0%
Taylor expanded in im around 0
*-commutativeN/A
lower-*.f64N/A
lower-exp.f6468.0
Applied rewrites68.0%
Taylor expanded in re around 0
Applied rewrites32.9%
(FPCore (re im) :precision binary64 (* im re))
double code(double re, double im) {
return im * re;
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = im * re
end function
public static double code(double re, double im) {
return im * re;
}
def code(re, im): return im * re
function code(re, im) return Float64(im * re) end
function tmp = code(re, im) tmp = im * re; end
code[re_, im_] := N[(im * re), $MachinePrecision]
\begin{array}{l}
\\
im \cdot re
\end{array}
Initial program 100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower-sin.f64N/A
lower-sin.f6454.5
Applied rewrites54.5%
Taylor expanded in im around 0
Applied rewrites32.9%
Taylor expanded in re around inf
Applied rewrites8.7%
Final simplification8.7%
herbie shell --seed 2024276
(FPCore (re im)
:name "math.exp on complex, imaginary part"
:precision binary64
(* (exp re) (sin im)))