
(FPCore (re im) :precision binary64 (* (exp re) (sin im)))
double code(double re, double im) {
return exp(re) * sin(im);
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(re, im)
use fmin_fmax_functions
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 21 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (re im) :precision binary64 (* (exp re) (sin im)))
double code(double re, double im) {
return exp(re) * sin(im);
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(re, im)
use fmin_fmax_functions
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);
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(re, im)
use fmin_fmax_functions
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(Float64(-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}
\\
\frac{\sin im}{e^{-re}}
\end{array}
Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im)))
(t_1 (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0)))
(if (<= t_0 (- INFINITY))
(*
t_1
(fma
(pow im 3.0)
(-
(*
(* (fma -0.0001984126984126984 (* im im) 0.008333333333333333) im)
im)
0.16666666666666666)
im))
(if (<= t_0 -0.1)
(* t_1 (sin im))
(if (<= t_0 0.0)
0.0
(if (<= t_0 1.0)
(/
(sin im)
(fma (- (* (fma -0.16666666666666666 re 0.5) re) 1.0) re 1.0))
(* (exp re) im)))))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = t_1 * fma(pow(im, 3.0), (((fma(-0.0001984126984126984, (im * im), 0.008333333333333333) * im) * im) - 0.16666666666666666), im);
} else if (t_0 <= -0.1) {
tmp = t_1 * sin(im);
} else if (t_0 <= 0.0) {
tmp = 0.0;
} else if (t_0 <= 1.0) {
tmp = sin(im) / fma(((fma(-0.16666666666666666, re, 0.5) * re) - 1.0), re, 1.0);
} else {
tmp = exp(re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(t_1 * fma((im ^ 3.0), Float64(Float64(Float64(fma(-0.0001984126984126984, Float64(im * im), 0.008333333333333333) * im) * im) - 0.16666666666666666), im)); elseif (t_0 <= -0.1) tmp = Float64(t_1 * sin(im)); elseif (t_0 <= 0.0) tmp = 0.0; elseif (t_0 <= 1.0) tmp = Float64(sin(im) / fma(Float64(Float64(fma(-0.16666666666666666, re, 0.5) * re) - 1.0), re, 1.0)); else tmp = Float64(exp(re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(t$95$1 * N[(N[Power[im, 3.0], $MachinePrecision] * N[(N[(N[(N[(-0.0001984126984126984 * N[(im * im), $MachinePrecision] + 0.008333333333333333), $MachinePrecision] * im), $MachinePrecision] * im), $MachinePrecision] - 0.16666666666666666), $MachinePrecision] + im), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, -0.1], N[(t$95$1 * N[Sin[im], $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 0.0], 0.0, If[LessEqual[t$95$0, 1.0], N[(N[Sin[im], $MachinePrecision] / N[(N[(N[(N[(-0.16666666666666666 * re + 0.5), $MachinePrecision] * re), $MachinePrecision] - 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[Exp[re], $MachinePrecision] * im), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
t_1 := \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right)\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;t\_1 \cdot \mathsf{fma}\left({im}^{3}, \left(\mathsf{fma}\left(-0.0001984126984126984, im \cdot im, 0.008333333333333333\right) \cdot im\right) \cdot im - 0.16666666666666666, im\right)\\
\mathbf{elif}\;t\_0 \leq -0.1:\\
\;\;\;\;t\_1 \cdot \sin im\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\frac{\sin im}{\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, re, 0.5\right) \cdot re - 1, re, 1\right)}\\
\mathbf{else}:\\
\;\;\;\;e^{re} \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
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6457.6
Applied rewrites57.6%
Taylor expanded in im around 0
+-commutativeN/A
distribute-lft-inN/A
associate-*r*N/A
*-rgt-identityN/A
lower-fma.f64N/A
Applied rewrites47.8%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -0.10000000000000001Initial program 100.0%
Taylor expanded in re around 0
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6496.6
Applied rewrites96.6%
if -0.10000000000000001 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6436.2
Applied rewrites36.2%
Applied rewrites5.2%
Taylor expanded in im around 0
Applied rewrites67.1%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64100.0
Applied rewrites100.0%
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.f6469.4
Applied rewrites69.4%
Final simplification75.1%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im)))
(t_1 (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0)))
(if (<= t_0 (- INFINITY))
(* t_1 (fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0))
(if (<= t_0 -0.1)
(* t_1 (sin im))
(if (<= t_0 0.0)
0.0
(if (<= t_0 1.0)
(/
(sin im)
(fma (- (* (fma -0.16666666666666666 re 0.5) re) 1.0) re 1.0))
(* (exp re) im)))))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = t_1 * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if (t_0 <= -0.1) {
tmp = t_1 * sin(im);
} else if (t_0 <= 0.0) {
tmp = 0.0;
} else if (t_0 <= 1.0) {
tmp = sin(im) / fma(((fma(-0.16666666666666666, re, 0.5) * re) - 1.0), re, 1.0);
} else {
tmp = exp(re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(t_1 * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0)); elseif (t_0 <= -0.1) tmp = Float64(t_1 * sin(im)); elseif (t_0 <= 0.0) tmp = 0.0; elseif (t_0 <= 1.0) tmp = Float64(sin(im) / fma(Float64(Float64(fma(-0.16666666666666666, re, 0.5) * re) - 1.0), re, 1.0)); else tmp = Float64(exp(re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(t$95$1 * N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, -0.1], N[(t$95$1 * N[Sin[im], $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 0.0], 0.0, If[LessEqual[t$95$0, 1.0], N[(N[Sin[im], $MachinePrecision] / N[(N[(N[(N[(-0.16666666666666666 * re + 0.5), $MachinePrecision] * re), $MachinePrecision] - 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[Exp[re], $MachinePrecision] * im), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
t_1 := \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right)\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;t\_1 \cdot \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq -0.1:\\
\;\;\;\;t\_1 \cdot \sin im\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\frac{\sin im}{\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, re, 0.5\right) \cdot re - 1, re, 1\right)}\\
\mathbf{else}:\\
\;\;\;\;e^{re} \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
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6457.6
Applied rewrites57.6%
remove-double-negN/A
lift-sin.f64N/A
sin-+PI-revN/A
sin-neg-revN/A
lower-sin.f64N/A
lower-neg.f64N/A
lower-+.f64N/A
lower-PI.f6426.2
Applied rewrites26.2%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites47.8%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -0.10000000000000001Initial program 100.0%
Taylor expanded in re around 0
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6496.6
Applied rewrites96.6%
if -0.10000000000000001 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6436.2
Applied rewrites36.2%
Applied rewrites5.2%
Taylor expanded in im around 0
Applied rewrites67.1%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in re around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
lower--.f64N/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64100.0
Applied rewrites100.0%
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.f6469.4
Applied rewrites69.4%
Final simplification75.1%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im)))
(t_1 (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0))
(t_2 (* t_1 (sin im))))
(if (<= t_0 (- INFINITY))
(* t_1 (fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0))
(if (<= t_0 -0.1)
t_2
(if (<= t_0 0.0) 0.0 (if (<= t_0 1.0) t_2 (* (exp re) im)))))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0);
double t_2 = t_1 * sin(im);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = t_1 * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if (t_0 <= -0.1) {
tmp = t_2;
} else if (t_0 <= 0.0) {
tmp = 0.0;
} else if (t_0 <= 1.0) {
tmp = t_2;
} else {
tmp = exp(re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) t_2 = Float64(t_1 * sin(im)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(t_1 * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0)); elseif (t_0 <= -0.1) tmp = t_2; elseif (t_0 <= 0.0) tmp = 0.0; elseif (t_0 <= 1.0) tmp = t_2; else tmp = Float64(exp(re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(t$95$1 * N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, -0.1], t$95$2, If[LessEqual[t$95$0, 0.0], 0.0, If[LessEqual[t$95$0, 1.0], t$95$2, N[(N[Exp[re], $MachinePrecision] * im), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
t_1 := \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right)\\
t_2 := t\_1 \cdot \sin im\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;t\_1 \cdot \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq -0.1:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;e^{re} \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
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6457.6
Applied rewrites57.6%
remove-double-negN/A
lift-sin.f64N/A
sin-+PI-revN/A
sin-neg-revN/A
lower-sin.f64N/A
lower-neg.f64N/A
lower-+.f64N/A
lower-PI.f6426.2
Applied rewrites26.2%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites47.8%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -0.10000000000000001 or 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
Taylor expanded in re around 0
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6499.0
Applied rewrites99.0%
if -0.10000000000000001 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6436.2
Applied rewrites36.2%
Applied rewrites5.2%
Taylor expanded in im around 0
Applied rewrites67.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.f6469.4
Applied rewrites69.4%
Final simplification75.1%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 (- INFINITY))
(*
(fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0)
(fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0))
(if (or (<= t_0 -0.1) (not (or (<= t_0 5e-87) (not (<= t_0 1.0)))))
(* (fma (fma 0.5 re 1.0) re 1.0) (sin im))
(* (exp re) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if ((t_0 <= -0.1) || !((t_0 <= 5e-87) || !(t_0 <= 1.0))) {
tmp = fma(fma(0.5, re, 1.0), re, 1.0) * sin(im);
} else {
tmp = exp(re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0)); elseif ((t_0 <= -0.1) || !((t_0 <= 5e-87) || !(t_0 <= 1.0))) tmp = Float64(fma(fma(0.5, re, 1.0), re, 1.0) * sin(im)); else tmp = Float64(exp(re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[t$95$0, -0.1], N[Not[Or[LessEqual[t$95$0, 5e-87], N[Not[LessEqual[t$95$0, 1.0]], $MachinePrecision]]], $MachinePrecision]], N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], N[(N[Exp[re], $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq -0.1 \lor \neg \left(t\_0 \leq 5 \cdot 10^{-87} \lor \neg \left(t\_0 \leq 1\right)\right):\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5, re, 1\right), re, 1\right) \cdot \sin im\\
\mathbf{else}:\\
\;\;\;\;e^{re} \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
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6457.6
Applied rewrites57.6%
remove-double-negN/A
lift-sin.f64N/A
sin-+PI-revN/A
sin-neg-revN/A
lower-sin.f64N/A
lower-neg.f64N/A
lower-+.f64N/A
lower-PI.f6426.2
Applied rewrites26.2%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites47.8%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -0.10000000000000001 or 5.00000000000000042e-87 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
Taylor expanded in re around 0
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6498.3
Applied rewrites98.3%
if -0.10000000000000001 < (*.f64 (exp.f64 re) (sin.f64 im)) < 5.00000000000000042e-87 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.f6491.9
Applied rewrites91.9%
Final simplification87.2%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 (- INFINITY))
(*
(fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0)
(fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0))
(if (<= t_0 -0.1)
(* (+ 1.0 re) (sin im))
(if (or (<= t_0 5e-87) (not (<= t_0 1.0)))
(* (exp re) im)
(/ (sin im) (- 1.0 re)))))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if (t_0 <= -0.1) {
tmp = (1.0 + re) * sin(im);
} else if ((t_0 <= 5e-87) || !(t_0 <= 1.0)) {
tmp = exp(re) * im;
} else {
tmp = sin(im) / (1.0 - re);
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0)); elseif (t_0 <= -0.1) tmp = Float64(Float64(1.0 + re) * sin(im)); elseif ((t_0 <= 5e-87) || !(t_0 <= 1.0)) tmp = Float64(exp(re) * im); else tmp = Float64(sin(im) / Float64(1.0 - re)); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, -0.1], N[(N[(1.0 + re), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[t$95$0, 5e-87], N[Not[LessEqual[t$95$0, 1.0]], $MachinePrecision]], N[(N[Exp[re], $MachinePrecision] * im), $MachinePrecision], N[(N[Sin[im], $MachinePrecision] / N[(1.0 - re), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq -0.1:\\
\;\;\;\;\left(1 + re\right) \cdot \sin im\\
\mathbf{elif}\;t\_0 \leq 5 \cdot 10^{-87} \lor \neg \left(t\_0 \leq 1\right):\\
\;\;\;\;e^{re} \cdot im\\
\mathbf{else}:\\
\;\;\;\;\frac{\sin im}{1 - re}\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -inf.0Initial program 100.0%
Taylor expanded in re around 0
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6457.6
Applied rewrites57.6%
remove-double-negN/A
lift-sin.f64N/A
sin-+PI-revN/A
sin-neg-revN/A
lower-sin.f64N/A
lower-neg.f64N/A
lower-+.f64N/A
lower-PI.f6426.2
Applied rewrites26.2%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites47.8%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -0.10000000000000001Initial program 100.0%
Taylor expanded in re around 0
lower-+.f6494.7
Applied rewrites94.7%
if -0.10000000000000001 < (*.f64 (exp.f64 re) (sin.f64 im)) < 5.00000000000000042e-87 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.f6491.9
Applied rewrites91.9%
if 5.00000000000000042e-87 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in re around 0
fp-cancel-sign-sub-invN/A
metadata-evalN/A
*-lft-identityN/A
lower--.f6498.9
Applied rewrites98.9%
Final simplification87.0%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 (- INFINITY))
(*
(fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0)
(fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0))
(if (or (<= t_0 -0.1) (not (or (<= t_0 5e-87) (not (<= t_0 1.0)))))
(* (+ 1.0 re) (sin im))
(* (exp re) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if ((t_0 <= -0.1) || !((t_0 <= 5e-87) || !(t_0 <= 1.0))) {
tmp = (1.0 + re) * sin(im);
} else {
tmp = exp(re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0)); elseif ((t_0 <= -0.1) || !((t_0 <= 5e-87) || !(t_0 <= 1.0))) tmp = Float64(Float64(1.0 + re) * sin(im)); else tmp = Float64(exp(re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[t$95$0, -0.1], N[Not[Or[LessEqual[t$95$0, 5e-87], N[Not[LessEqual[t$95$0, 1.0]], $MachinePrecision]]], $MachinePrecision]], N[(N[(1.0 + re), $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], N[(N[Exp[re], $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq -0.1 \lor \neg \left(t\_0 \leq 5 \cdot 10^{-87} \lor \neg \left(t\_0 \leq 1\right)\right):\\
\;\;\;\;\left(1 + re\right) \cdot \sin im\\
\mathbf{else}:\\
\;\;\;\;e^{re} \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
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6457.6
Applied rewrites57.6%
remove-double-negN/A
lift-sin.f64N/A
sin-+PI-revN/A
sin-neg-revN/A
lower-sin.f64N/A
lower-neg.f64N/A
lower-+.f64N/A
lower-PI.f6426.2
Applied rewrites26.2%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites47.8%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -0.10000000000000001 or 5.00000000000000042e-87 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
Taylor expanded in re around 0
lower-+.f6497.3
Applied rewrites97.3%
if -0.10000000000000001 < (*.f64 (exp.f64 re) (sin.f64 im)) < 5.00000000000000042e-87 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.f6491.9
Applied rewrites91.9%
Final simplification87.0%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 (- INFINITY))
(*
(fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0)
(fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0))
(if (or (<= t_0 -0.1) (not (or (<= t_0 5e-87) (not (<= t_0 1.0)))))
(sin im)
(* (exp re) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if ((t_0 <= -0.1) || !((t_0 <= 5e-87) || !(t_0 <= 1.0))) {
tmp = sin(im);
} else {
tmp = exp(re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0)); elseif ((t_0 <= -0.1) || !((t_0 <= 5e-87) || !(t_0 <= 1.0))) tmp = sin(im); else tmp = Float64(exp(re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[t$95$0, -0.1], N[Not[Or[LessEqual[t$95$0, 5e-87], N[Not[LessEqual[t$95$0, 1.0]], $MachinePrecision]]], $MachinePrecision]], N[Sin[im], $MachinePrecision], N[(N[Exp[re], $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right) \cdot \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq -0.1 \lor \neg \left(t\_0 \leq 5 \cdot 10^{-87} \lor \neg \left(t\_0 \leq 1\right)\right):\\
\;\;\;\;\sin im\\
\mathbf{else}:\\
\;\;\;\;e^{re} \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
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6457.6
Applied rewrites57.6%
remove-double-negN/A
lift-sin.f64N/A
sin-+PI-revN/A
sin-neg-revN/A
lower-sin.f64N/A
lower-neg.f64N/A
lower-+.f64N/A
lower-PI.f6426.2
Applied rewrites26.2%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites47.8%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -0.10000000000000001 or 5.00000000000000042e-87 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6495.2
Applied rewrites95.2%
if -0.10000000000000001 < (*.f64 (exp.f64 re) (sin.f64 im)) < 5.00000000000000042e-87 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.f6491.9
Applied rewrites91.9%
Final simplification86.5%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im)))
(t_1 (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0)))
(if (<= t_0 (- INFINITY))
(* t_1 (fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0))
(if (<= t_0 -0.1)
(sin im)
(if (<= t_0 0.0) 0.0 (if (<= t_0 1.0) (sin im) (* t_1 im)))))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0);
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = t_1 * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if (t_0 <= -0.1) {
tmp = sin(im);
} else if (t_0 <= 0.0) {
tmp = 0.0;
} else if (t_0 <= 1.0) {
tmp = sin(im);
} else {
tmp = t_1 * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = Float64(t_1 * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0)); elseif (t_0 <= -0.1) tmp = sin(im); elseif (t_0 <= 0.0) tmp = 0.0; elseif (t_0 <= 1.0) tmp = sin(im); else tmp = Float64(t_1 * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(t$95$1 * N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, -0.1], N[Sin[im], $MachinePrecision], If[LessEqual[t$95$0, 0.0], 0.0, If[LessEqual[t$95$0, 1.0], N[Sin[im], $MachinePrecision], N[(t$95$1 * im), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
t_1 := \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right)\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;t\_1 \cdot \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq -0.1:\\
\;\;\;\;\sin im\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\sin im\\
\mathbf{else}:\\
\;\;\;\;t\_1 \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
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6457.6
Applied rewrites57.6%
remove-double-negN/A
lift-sin.f64N/A
sin-+PI-revN/A
sin-neg-revN/A
lower-sin.f64N/A
lower-neg.f64N/A
lower-+.f64N/A
lower-PI.f6426.2
Applied rewrites26.2%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites47.8%
if -inf.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < -0.10000000000000001 or 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6496.3
Applied rewrites96.3%
if -0.10000000000000001 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6436.2
Applied rewrites36.2%
Applied rewrites5.2%
Taylor expanded in im around 0
Applied rewrites67.1%
if 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6469.4
Applied rewrites69.4%
Taylor expanded in re around 0
Applied rewrites56.2%
Final simplification72.3%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im)))
(t_1 (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0)))
(if (<= t_0 -0.45)
(* t_1 (fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0))
(if (<= t_0 0.0) 0.0 (* t_1 im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0);
double tmp;
if (t_0 <= -0.45) {
tmp = t_1 * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if (t_0 <= 0.0) {
tmp = 0.0;
} else {
tmp = t_1 * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) t_1 = fma(fma(fma(0.16666666666666666, re, 0.5), re, 1.0), re, 1.0) tmp = 0.0 if (t_0 <= -0.45) tmp = Float64(t_1 * fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0)); elseif (t_0 <= 0.0) tmp = 0.0; else tmp = Float64(t_1 * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[(0.16666666666666666 * re + 0.5), $MachinePrecision] * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision]}, If[LessEqual[t$95$0, -0.45], N[(t$95$1 * N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 0.0], 0.0, N[(t$95$1 * im), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
t_1 := \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, re, 0.5\right), re, 1\right), re, 1\right)\\
\mathbf{if}\;t\_0 \leq -0.45:\\
\;\;\;\;t\_1 \cdot \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;t\_1 \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -0.450000000000000011Initial program 100.0%
Taylor expanded in re around 0
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
fp-cancel-sign-sub-invN/A
fp-cancel-sub-sign-invN/A
+-commutativeN/A
remove-double-negN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f6471.3
Applied rewrites71.3%
remove-double-negN/A
lift-sin.f64N/A
sin-+PI-revN/A
sin-neg-revN/A
lower-sin.f64N/A
lower-neg.f64N/A
lower-+.f64N/A
lower-PI.f6418.0
Applied rewrites18.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
Applied rewrites31.7%
if -0.450000000000000011 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6438.7
Applied rewrites38.7%
Applied rewrites5.1%
Taylor expanded in im around 0
Applied rewrites64.7%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6457.1
Applied rewrites57.1%
Taylor expanded in re around 0
Applied rewrites52.0%
Final simplification52.8%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 -0.45)
(* (+ 1.0 re) (fma (* -0.16666666666666666 (* im im)) im im))
(if (<= t_0 0.0)
0.0
(* (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= -0.45) {
tmp = (1.0 + re) * fma((-0.16666666666666666 * (im * im)), im, im);
} else if (t_0 <= 0.0) {
tmp = 0.0;
} 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(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= -0.45) tmp = Float64(Float64(1.0 + re) * fma(Float64(-0.16666666666666666 * Float64(im * im)), im, im)); elseif (t_0 <= 0.0) tmp = 0.0; 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[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.45], N[(N[(1.0 + re), $MachinePrecision] * N[(N[(-0.16666666666666666 * N[(im * im), $MachinePrecision]), $MachinePrecision] * im + im), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, 0.0], 0.0, 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 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq -0.45:\\
\;\;\;\;\left(1 + re\right) \cdot \mathsf{fma}\left(-0.16666666666666666 \cdot \left(im \cdot im\right), im, im\right)\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\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.450000000000000011Initial program 100.0%
Taylor expanded in re around 0
lower-+.f6436.1
Applied rewrites36.1%
Taylor expanded in im around 0
+-commutativeN/A
distribute-lft-inN/A
*-rgt-identityN/A
/-rgt-identityN/A
*-commutativeN/A
associate-*r*N/A
/-rgt-identityN/A
lower-fma.f64N/A
unpow2N/A
cube-unmultN/A
lower-pow.f6416.1
Applied rewrites16.1%
Applied rewrites16.1%
if -0.450000000000000011 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6438.7
Applied rewrites38.7%
Applied rewrites5.1%
Taylor expanded in im around 0
Applied rewrites64.7%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6457.1
Applied rewrites57.1%
Taylor expanded in re around 0
Applied rewrites52.0%
Final simplification49.4%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 -0.45)
(fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0)
(if (<= t_0 0.0)
0.0
(* (fma (fma (fma 0.16666666666666666 re 0.5) re 1.0) re 1.0) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= -0.45) {
tmp = fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if (t_0 <= 0.0) {
tmp = 0.0;
} 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(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= -0.45) tmp = fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0); elseif (t_0 <= 0.0) tmp = 0.0; 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[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.45], N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision], If[LessEqual[t$95$0, 0.0], 0.0, 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 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq -0.45:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\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.450000000000000011Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6434.8
Applied rewrites34.8%
Applied rewrites2.3%
Taylor expanded in im around 0
Applied rewrites14.2%
if -0.450000000000000011 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6438.7
Applied rewrites38.7%
Applied rewrites5.1%
Taylor expanded in im around 0
Applied rewrites64.7%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6457.1
Applied rewrites57.1%
Taylor expanded in re around 0
Applied rewrites52.0%
Final simplification48.9%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 -0.45)
(fma (fma (fma -0.16666666666666666 im 0.0) im 1.0) im 0.0)
(if (<= t_0 0.0) 0.0 (* (fma (fma 0.5 re 1.0) re 1.0) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= -0.45) {
tmp = fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0);
} else if (t_0 <= 0.0) {
tmp = 0.0;
} else {
tmp = fma(fma(0.5, re, 1.0), re, 1.0) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= -0.45) tmp = fma(fma(fma(-0.16666666666666666, im, 0.0), im, 1.0), im, 0.0); elseif (t_0 <= 0.0) tmp = 0.0; else tmp = Float64(fma(fma(0.5, re, 1.0), re, 1.0) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, -0.45], N[(N[(N[(-0.16666666666666666 * im + 0.0), $MachinePrecision] * im + 1.0), $MachinePrecision] * im + 0.0), $MachinePrecision], If[LessEqual[t$95$0, 0.0], 0.0, N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq -0.45:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(-0.16666666666666666, im, 0\right), im, 1\right), im, 0\right)\\
\mathbf{elif}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5, re, 1\right), re, 1\right) \cdot im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < -0.450000000000000011Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6434.8
Applied rewrites34.8%
Applied rewrites2.3%
Taylor expanded in im around 0
Applied rewrites14.2%
if -0.450000000000000011 < (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6438.7
Applied rewrites38.7%
Applied rewrites5.1%
Taylor expanded in im around 0
Applied rewrites64.7%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6457.1
Applied rewrites57.1%
Taylor expanded in re around 0
Applied rewrites50.0%
Final simplification48.2%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 0.0)
0.0
(if (<= t_0 1.0)
(fma (fma (* re im) 0.5 im) re im)
(* (* (fma 0.5 re 1.0) re) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= 0.0) {
tmp = 0.0;
} else if (t_0 <= 1.0) {
tmp = fma(fma((re * im), 0.5, im), re, im);
} else {
tmp = (fma(0.5, re, 1.0) * re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= 0.0) tmp = 0.0; elseif (t_0 <= 1.0) tmp = fma(fma(Float64(re * im), 0.5, im), re, im); else tmp = Float64(Float64(fma(0.5, re, 1.0) * re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, 0.0], 0.0, If[LessEqual[t$95$0, 1.0], N[(N[(N[(re * im), $MachinePrecision] * 0.5 + im), $MachinePrecision] * re + im), $MachinePrecision], N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(re \cdot im, 0.5, im\right), re, im\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\mathsf{fma}\left(0.5, re, 1\right) \cdot re\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
lower-sin.f6437.3
Applied rewrites37.3%
Applied rewrites4.1%
Taylor expanded in im around 0
Applied rewrites42.9%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6449.5
Applied rewrites49.5%
Taylor expanded in re around 0
Applied rewrites49.5%
if 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6469.4
Applied rewrites69.4%
Taylor expanded in re around 0
Applied rewrites50.8%
Taylor expanded in re around inf
Applied rewrites50.8%
Final simplification45.5%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 0.0)
0.0
(if (<= t_0 1.0) (fma re im im) (* (* (fma 0.5 re 1.0) re) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= 0.0) {
tmp = 0.0;
} else if (t_0 <= 1.0) {
tmp = fma(re, im, im);
} else {
tmp = (fma(0.5, re, 1.0) * re) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= 0.0) tmp = 0.0; elseif (t_0 <= 1.0) tmp = fma(re, im, im); else tmp = Float64(Float64(fma(0.5, re, 1.0) * re) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, 0.0], 0.0, If[LessEqual[t$95$0, 1.0], N[(re * im + im), $MachinePrecision], N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * re), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\mathsf{fma}\left(re, im, im\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\mathsf{fma}\left(0.5, re, 1\right) \cdot re\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
lower-sin.f6437.3
Applied rewrites37.3%
Applied rewrites4.1%
Taylor expanded in im around 0
Applied rewrites42.9%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6449.5
Applied rewrites49.5%
Taylor expanded in re around 0
Applied rewrites49.5%
if 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6469.4
Applied rewrites69.4%
Taylor expanded in re around 0
Applied rewrites50.8%
Taylor expanded in re around inf
Applied rewrites50.8%
Final simplification45.5%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (exp re) (sin im))))
(if (<= t_0 0.0)
0.0
(if (<= t_0 1.0) (fma re im im) (* (* (* re re) 0.5) im)))))
double code(double re, double im) {
double t_0 = exp(re) * sin(im);
double tmp;
if (t_0 <= 0.0) {
tmp = 0.0;
} else if (t_0 <= 1.0) {
tmp = fma(re, im, im);
} else {
tmp = ((re * re) * 0.5) * im;
}
return tmp;
}
function code(re, im) t_0 = Float64(exp(re) * sin(im)) tmp = 0.0 if (t_0 <= 0.0) tmp = 0.0; elseif (t_0 <= 1.0) tmp = fma(re, im, im); else tmp = Float64(Float64(Float64(re * re) * 0.5) * im); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, 0.0], 0.0, If[LessEqual[t$95$0, 1.0], N[(re * im + im), $MachinePrecision], N[(N[(N[(re * re), $MachinePrecision] * 0.5), $MachinePrecision] * im), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := e^{re} \cdot \sin im\\
\mathbf{if}\;t\_0 \leq 0:\\
\;\;\;\;0\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\mathsf{fma}\left(re, im, im\right)\\
\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.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6437.3
Applied rewrites37.3%
Applied rewrites4.1%
Taylor expanded in im around 0
Applied rewrites42.9%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) < 1Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6449.5
Applied rewrites49.5%
Taylor expanded in re around 0
Applied rewrites49.5%
if 1 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6469.4
Applied rewrites69.4%
Taylor expanded in re around 0
Applied rewrites50.8%
Taylor expanded in re around inf
Applied rewrites50.8%
Final simplification45.5%
(FPCore (re im) :precision binary64 (if (<= (* (exp re) (sin im)) 0.0) 0.0 (* (fma (fma 0.5 re 1.0) re 1.0) im)))
double code(double re, double im) {
double tmp;
if ((exp(re) * sin(im)) <= 0.0) {
tmp = 0.0;
} else {
tmp = fma(fma(0.5, re, 1.0), re, 1.0) * im;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(exp(re) * sin(im)) <= 0.0) tmp = 0.0; else tmp = Float64(fma(fma(0.5, re, 1.0), re, 1.0) * im); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], 0.0], 0.0, N[(N[(N[(0.5 * re + 1.0), $MachinePrecision] * re + 1.0), $MachinePrecision] * im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;e^{re} \cdot \sin im \leq 0:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.5, 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
lower-sin.f6437.3
Applied rewrites37.3%
Applied rewrites4.1%
Taylor expanded in im around 0
Applied rewrites42.9%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6457.1
Applied rewrites57.1%
Taylor expanded in re around 0
Applied rewrites50.0%
Final simplification45.5%
(FPCore (re im) :precision binary64 (if (<= (* (exp re) (sin im)) 0.0) 0.0 (fma re im im)))
double code(double re, double im) {
double tmp;
if ((exp(re) * sin(im)) <= 0.0) {
tmp = 0.0;
} else {
tmp = fma(re, im, im);
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(exp(re) * sin(im)) <= 0.0) tmp = 0.0; else tmp = fma(re, im, im); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], 0.0], 0.0, N[(re * im + im), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;e^{re} \cdot \sin im \leq 0:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(re, im, im\right)\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6437.3
Applied rewrites37.3%
Applied rewrites4.1%
Taylor expanded in im around 0
Applied rewrites42.9%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
lift-*.f64N/A
lift-exp.f64N/A
sinh-+-cosh-revN/A
flip-+N/A
sinh---cosh-revN/A
associate-*l/N/A
sinh-coshN/A
*-lft-identityN/A
lower-/.f64N/A
lower-exp.f64N/A
lower-neg.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
*-lft-identityN/A
associate-*l/N/A
rec-expN/A
remove-double-divN/A
lower-*.f64N/A
lower-exp.f6457.1
Applied rewrites57.1%
Taylor expanded in re around 0
Applied rewrites38.0%
Final simplification41.1%
(FPCore (re im) :precision binary64 (if (<= (* (exp re) (sin im)) 0.0) 0.0 im))
double code(double re, double im) {
double tmp;
if ((exp(re) * sin(im)) <= 0.0) {
tmp = 0.0;
} else {
tmp = im;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(re, im)
use fmin_fmax_functions
real(8), intent (in) :: re
real(8), intent (in) :: im
real(8) :: tmp
if ((exp(re) * sin(im)) <= 0.0d0) then
tmp = 0.0d0
else
tmp = im
end if
code = tmp
end function
public static double code(double re, double im) {
double tmp;
if ((Math.exp(re) * Math.sin(im)) <= 0.0) {
tmp = 0.0;
} else {
tmp = im;
}
return tmp;
}
def code(re, im): tmp = 0 if (math.exp(re) * math.sin(im)) <= 0.0: tmp = 0.0 else: tmp = im return tmp
function code(re, im) tmp = 0.0 if (Float64(exp(re) * sin(im)) <= 0.0) tmp = 0.0; else tmp = im; end return tmp end
function tmp_2 = code(re, im) tmp = 0.0; if ((exp(re) * sin(im)) <= 0.0) tmp = 0.0; else tmp = im; end tmp_2 = tmp; end
code[re_, im_] := If[LessEqual[N[(N[Exp[re], $MachinePrecision] * N[Sin[im], $MachinePrecision]), $MachinePrecision], 0.0], 0.0, im]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;e^{re} \cdot \sin im \leq 0:\\
\;\;\;\;0\\
\mathbf{else}:\\
\;\;\;\;im\\
\end{array}
\end{array}
if (*.f64 (exp.f64 re) (sin.f64 im)) < 0.0Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6437.3
Applied rewrites37.3%
Applied rewrites4.1%
Taylor expanded in im around 0
Applied rewrites42.9%
if 0.0 < (*.f64 (exp.f64 re) (sin.f64 im)) Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6461.5
Applied rewrites61.5%
Applied rewrites4.1%
Taylor expanded in im around 0
Applied rewrites3.2%
Taylor expanded in im around 0
Applied rewrites31.8%
Final simplification38.8%
(FPCore (re im) :precision binary64 (* (exp re) (sin im)))
double code(double re, double im) {
return exp(re) * sin(im);
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(re, im)
use fmin_fmax_functions
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}
Initial program 100.0%
(FPCore (re im) :precision binary64 0.0)
double code(double re, double im) {
return 0.0;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(re, im)
use fmin_fmax_functions
real(8), intent (in) :: re
real(8), intent (in) :: im
code = 0.0d0
end function
public static double code(double re, double im) {
return 0.0;
}
def code(re, im): return 0.0
function code(re, im) return 0.0 end
function tmp = code(re, im) tmp = 0.0; end
code[re_, im_] := 0.0
\begin{array}{l}
\\
0
\end{array}
Initial program 100.0%
Taylor expanded in re around 0
lower-sin.f6446.3
Applied rewrites46.3%
Applied rewrites4.1%
Taylor expanded in im around 0
Applied rewrites28.2%
Final simplification28.2%
herbie shell --seed 2024346
(FPCore (re im)
:name "math.exp on complex, imaginary part"
:precision binary64
(* (exp re) (sin im)))