
(FPCore (re im) :precision binary64 (* (* 0.5 (sin re)) (+ (exp (- 0.0 im)) (exp im))))
double code(double re, double im) {
return (0.5 * sin(re)) * (exp((0.0 - im)) + exp(im));
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = (0.5d0 * sin(re)) * (exp((0.0d0 - im)) + exp(im))
end function
public static double code(double re, double im) {
return (0.5 * Math.sin(re)) * (Math.exp((0.0 - im)) + Math.exp(im));
}
def code(re, im): return (0.5 * math.sin(re)) * (math.exp((0.0 - im)) + math.exp(im))
function code(re, im) return Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(0.0 - im)) + exp(im))) end
function tmp = code(re, im) tmp = (0.5 * sin(re)) * (exp((0.0 - im)) + exp(im)); end
code[re_, im_] := N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[N[(0.0 - im), $MachinePrecision]], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(0.5 \cdot \sin re\right) \cdot \left(e^{0 - im} + e^{im}\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 15 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (re im) :precision binary64 (* (* 0.5 (sin re)) (+ (exp (- 0.0 im)) (exp im))))
double code(double re, double im) {
return (0.5 * sin(re)) * (exp((0.0 - im)) + exp(im));
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = (0.5d0 * sin(re)) * (exp((0.0d0 - im)) + exp(im))
end function
public static double code(double re, double im) {
return (0.5 * Math.sin(re)) * (Math.exp((0.0 - im)) + Math.exp(im));
}
def code(re, im): return (0.5 * math.sin(re)) * (math.exp((0.0 - im)) + math.exp(im))
function code(re, im) return Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(0.0 - im)) + exp(im))) end
function tmp = code(re, im) tmp = (0.5 * sin(re)) * (exp((0.0 - im)) + exp(im)); end
code[re_, im_] := N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[N[(0.0 - im), $MachinePrecision]], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(0.5 \cdot \sin re\right) \cdot \left(e^{0 - im} + e^{im}\right)
\end{array}
(FPCore (re im) :precision binary64 (* (sin re) (cosh im)))
double code(double re, double im) {
return sin(re) * cosh(im);
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = sin(re) * cosh(im)
end function
public static double code(double re, double im) {
return Math.sin(re) * Math.cosh(im);
}
def code(re, im): return math.sin(re) * math.cosh(im)
function code(re, im) return Float64(sin(re) * cosh(im)) end
function tmp = code(re, im) tmp = sin(re) * cosh(im); end
code[re_, im_] := N[(N[Sin[re], $MachinePrecision] * N[Cosh[im], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sin re \cdot \cosh im
\end{array}
Initial program 100.0%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-+.f64N/A
+-commutativeN/A
lift-exp.f64N/A
lift-exp.f64N/A
lift--.f64N/A
sub0-negN/A
cosh-undefN/A
associate-*r*N/A
metadata-evalN/A
cosh-0N/A
*-commutativeN/A
lower-*.f64N/A
cosh-0N/A
exp-0N/A
lower-*.f64N/A
exp-0N/A
lower-cosh.f64100.0
Applied rewrites100.0%
lift-*.f64N/A
lift-*.f64N/A
*-lft-identityN/A
*-commutativeN/A
lower-*.f64100.0
Applied rewrites100.0%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im)))))
(if (<= t_0 (- INFINITY))
(fma
(*
(-
(*
(* (- (* -0.006944444444444444 (* im im)) 0.08333333333333333) im)
im)
0.16666666666666666)
(* re re))
re
re)
(if (<= t_0 1.0)
(*
(fma (fma 0.041666666666666664 (* im im) 0.5) (* im im) 1.0)
(sin re))
(*
(* 0.5 re)
(fma
im
im
(fma
(pow im 4.0)
(fma 0.002777777777777778 (* im im) 0.08333333333333333)
2.0)))))))
double code(double re, double im) {
double t_0 = (0.5 * sin(re)) * (exp(-im) + exp(im));
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(((((((-0.006944444444444444 * (im * im)) - 0.08333333333333333) * im) * im) - 0.16666666666666666) * (re * re)), re, re);
} else if (t_0 <= 1.0) {
tmp = fma(fma(0.041666666666666664, (im * im), 0.5), (im * im), 1.0) * sin(re);
} else {
tmp = (0.5 * re) * fma(im, im, fma(pow(im, 4.0), fma(0.002777777777777778, (im * im), 0.08333333333333333), 2.0));
}
return tmp;
}
function code(re, im) t_0 = Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = fma(Float64(Float64(Float64(Float64(Float64(Float64(-0.006944444444444444 * Float64(im * im)) - 0.08333333333333333) * im) * im) - 0.16666666666666666) * Float64(re * re)), re, re); elseif (t_0 <= 1.0) tmp = Float64(fma(fma(0.041666666666666664, Float64(im * im), 0.5), Float64(im * im), 1.0) * sin(re)); else tmp = Float64(Float64(0.5 * re) * fma(im, im, fma((im ^ 4.0), fma(0.002777777777777778, Float64(im * im), 0.08333333333333333), 2.0))); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(N[(N[(N[(-0.006944444444444444 * N[(im * im), $MachinePrecision]), $MachinePrecision] - 0.08333333333333333), $MachinePrecision] * im), $MachinePrecision] * im), $MachinePrecision] - 0.16666666666666666), $MachinePrecision] * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision], If[LessEqual[t$95$0, 1.0], N[(N[(N[(0.041666666666666664 * N[(im * im), $MachinePrecision] + 0.5), $MachinePrecision] * N[(im * im), $MachinePrecision] + 1.0), $MachinePrecision] * N[Sin[re], $MachinePrecision]), $MachinePrecision], N[(N[(0.5 * re), $MachinePrecision] * N[(im * im + N[(N[Power[im, 4.0], $MachinePrecision] * N[(0.002777777777777778 * N[(im * im), $MachinePrecision] + 0.08333333333333333), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right)\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\left(\left(\left(-0.006944444444444444 \cdot \left(im \cdot im\right) - 0.08333333333333333\right) \cdot im\right) \cdot im - 0.16666666666666666\right) \cdot \left(re \cdot re\right), re, re\right)\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, im \cdot im, 0.5\right), im \cdot im, 1\right) \cdot \sin re\\
\mathbf{else}:\\
\;\;\;\;\left(0.5 \cdot re\right) \cdot \mathsf{fma}\left(im, im, \mathsf{fma}\left({im}^{4}, \mathsf{fma}\left(0.002777777777777778, im \cdot im, 0.08333333333333333\right), 2\right)\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < -inf.0Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6472.0
Applied rewrites72.0%
Taylor expanded in re around 0
Applied rewrites5.6%
Taylor expanded in re around inf
Applied rewrites29.6%
if -inf.0 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < 1Initial program 100.0%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-+.f64N/A
+-commutativeN/A
lift-exp.f64N/A
lift-exp.f64N/A
lift--.f64N/A
sub0-negN/A
cosh-undefN/A
associate-*r*N/A
metadata-evalN/A
cosh-0N/A
*-commutativeN/A
lower-*.f64N/A
cosh-0N/A
exp-0N/A
lower-*.f64N/A
exp-0N/A
lower-cosh.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6499.0
Applied rewrites99.0%
if 1 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
Applied rewrites2.7%
Taylor expanded in re around 0
lower-*.f642.8
Applied rewrites2.8%
Taylor expanded in im around 0
+-commutativeN/A
distribute-lft-inN/A
*-rgt-identityN/A
associate-+l+N/A
unpow2N/A
lower-fma.f64N/A
associate-*r*N/A
pow-sqrN/A
metadata-evalN/A
lower-fma.f64N/A
lower-pow.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6470.8
Applied rewrites70.8%
Final simplification75.5%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im)))))
(if (<= t_0 (- INFINITY))
(fma
(*
(-
(*
(* (- (* -0.006944444444444444 (* im im)) 0.08333333333333333) im)
im)
0.16666666666666666)
(* re re))
re
re)
(if (<= t_0 1.0)
(*
(fma (fma 0.041666666666666664 (* im im) 0.5) (* im im) 1.0)
(sin re))
(* (fma (* (fma (* 0.041666666666666664 im) im 0.5) im) im 1.0) re)))))
double code(double re, double im) {
double t_0 = (0.5 * sin(re)) * (exp(-im) + exp(im));
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(((((((-0.006944444444444444 * (im * im)) - 0.08333333333333333) * im) * im) - 0.16666666666666666) * (re * re)), re, re);
} else if (t_0 <= 1.0) {
tmp = fma(fma(0.041666666666666664, (im * im), 0.5), (im * im), 1.0) * sin(re);
} else {
tmp = fma((fma((0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re;
}
return tmp;
}
function code(re, im) t_0 = Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = fma(Float64(Float64(Float64(Float64(Float64(Float64(-0.006944444444444444 * Float64(im * im)) - 0.08333333333333333) * im) * im) - 0.16666666666666666) * Float64(re * re)), re, re); elseif (t_0 <= 1.0) tmp = Float64(fma(fma(0.041666666666666664, Float64(im * im), 0.5), Float64(im * im), 1.0) * sin(re)); else tmp = Float64(fma(Float64(fma(Float64(0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(N[(N[(N[(-0.006944444444444444 * N[(im * im), $MachinePrecision]), $MachinePrecision] - 0.08333333333333333), $MachinePrecision] * im), $MachinePrecision] * im), $MachinePrecision] - 0.16666666666666666), $MachinePrecision] * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision], If[LessEqual[t$95$0, 1.0], N[(N[(N[(0.041666666666666664 * N[(im * im), $MachinePrecision] + 0.5), $MachinePrecision] * N[(im * im), $MachinePrecision] + 1.0), $MachinePrecision] * N[Sin[re], $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(N[(0.041666666666666664 * im), $MachinePrecision] * im + 0.5), $MachinePrecision] * im), $MachinePrecision] * im + 1.0), $MachinePrecision] * re), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right)\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\left(\left(\left(-0.006944444444444444 \cdot \left(im \cdot im\right) - 0.08333333333333333\right) \cdot im\right) \cdot im - 0.16666666666666666\right) \cdot \left(re \cdot re\right), re, re\right)\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, im \cdot im, 0.5\right), im \cdot im, 1\right) \cdot \sin re\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664 \cdot im, im, 0.5\right) \cdot im, im, 1\right) \cdot re\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < -inf.0Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6472.0
Applied rewrites72.0%
Taylor expanded in re around 0
Applied rewrites5.6%
Taylor expanded in re around inf
Applied rewrites29.6%
if -inf.0 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < 1Initial program 100.0%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-+.f64N/A
+-commutativeN/A
lift-exp.f64N/A
lift-exp.f64N/A
lift--.f64N/A
sub0-negN/A
cosh-undefN/A
associate-*r*N/A
metadata-evalN/A
cosh-0N/A
*-commutativeN/A
lower-*.f64N/A
cosh-0N/A
exp-0N/A
lower-*.f64N/A
exp-0N/A
lower-cosh.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6499.0
Applied rewrites99.0%
if 1 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6473.0
Applied rewrites73.0%
Taylor expanded in re around 0
Applied rewrites62.6%
Applied rewrites62.6%
Applied rewrites62.6%
Final simplification73.2%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* 0.5 (sin re))) (t_1 (* t_0 (+ (exp (- im)) (exp im)))))
(if (<= t_1 (- INFINITY))
(fma
(*
(-
(*
(* (- (* -0.006944444444444444 (* im im)) 0.08333333333333333) im)
im)
0.16666666666666666)
(* re re))
re
re)
(if (<= t_1 1.0)
(* t_0 (fma im im 2.0))
(* (fma (* (fma (* 0.041666666666666664 im) im 0.5) im) im 1.0) re)))))
double code(double re, double im) {
double t_0 = 0.5 * sin(re);
double t_1 = t_0 * (exp(-im) + exp(im));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = fma(((((((-0.006944444444444444 * (im * im)) - 0.08333333333333333) * im) * im) - 0.16666666666666666) * (re * re)), re, re);
} else if (t_1 <= 1.0) {
tmp = t_0 * fma(im, im, 2.0);
} else {
tmp = fma((fma((0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re;
}
return tmp;
}
function code(re, im) t_0 = Float64(0.5 * sin(re)) t_1 = Float64(t_0 * Float64(exp(Float64(-im)) + exp(im))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = fma(Float64(Float64(Float64(Float64(Float64(Float64(-0.006944444444444444 * Float64(im * im)) - 0.08333333333333333) * im) * im) - 0.16666666666666666) * Float64(re * re)), re, re); elseif (t_1 <= 1.0) tmp = Float64(t_0 * fma(im, im, 2.0)); else tmp = Float64(fma(Float64(fma(Float64(0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(t$95$0 * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(N[(N[(N[(N[(N[(N[(-0.006944444444444444 * N[(im * im), $MachinePrecision]), $MachinePrecision] - 0.08333333333333333), $MachinePrecision] * im), $MachinePrecision] * im), $MachinePrecision] - 0.16666666666666666), $MachinePrecision] * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision], If[LessEqual[t$95$1, 1.0], N[(t$95$0 * N[(im * im + 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(N[(0.041666666666666664 * im), $MachinePrecision] * im + 0.5), $MachinePrecision] * im), $MachinePrecision] * im + 1.0), $MachinePrecision] * re), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 0.5 \cdot \sin re\\
t_1 := t\_0 \cdot \left(e^{-im} + e^{im}\right)\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\left(\left(\left(-0.006944444444444444 \cdot \left(im \cdot im\right) - 0.08333333333333333\right) \cdot im\right) \cdot im - 0.16666666666666666\right) \cdot \left(re \cdot re\right), re, re\right)\\
\mathbf{elif}\;t\_1 \leq 1:\\
\;\;\;\;t\_0 \cdot \mathsf{fma}\left(im, im, 2\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664 \cdot im, im, 0.5\right) \cdot im, im, 1\right) \cdot re\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < -inf.0Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6472.0
Applied rewrites72.0%
Taylor expanded in re around 0
Applied rewrites5.6%
Taylor expanded in re around inf
Applied rewrites29.6%
if -inf.0 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < 1Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
unpow2N/A
lower-fma.f6498.9
Applied rewrites98.9%
if 1 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6473.0
Applied rewrites73.0%
Taylor expanded in re around 0
Applied rewrites62.6%
Applied rewrites62.6%
Applied rewrites62.6%
Final simplification73.1%
(FPCore (re im)
:precision binary64
(let* ((t_0 (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im)))))
(if (<= t_0 (- INFINITY))
(fma
(*
(-
(*
(* (- (* -0.006944444444444444 (* im im)) 0.08333333333333333) im)
im)
0.16666666666666666)
(* re re))
re
re)
(if (<= t_0 1.0)
(* 1.0 (sin re))
(* (fma (* (fma (* 0.041666666666666664 im) im 0.5) im) im 1.0) re)))))
double code(double re, double im) {
double t_0 = (0.5 * sin(re)) * (exp(-im) + exp(im));
double tmp;
if (t_0 <= -((double) INFINITY)) {
tmp = fma(((((((-0.006944444444444444 * (im * im)) - 0.08333333333333333) * im) * im) - 0.16666666666666666) * (re * re)), re, re);
} else if (t_0 <= 1.0) {
tmp = 1.0 * sin(re);
} else {
tmp = fma((fma((0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re;
}
return tmp;
}
function code(re, im) t_0 = Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) tmp = 0.0 if (t_0 <= Float64(-Inf)) tmp = fma(Float64(Float64(Float64(Float64(Float64(Float64(-0.006944444444444444 * Float64(im * im)) - 0.08333333333333333) * im) * im) - 0.16666666666666666) * Float64(re * re)), re, re); elseif (t_0 <= 1.0) tmp = Float64(1.0 * sin(re)); else tmp = Float64(fma(Float64(fma(Float64(0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, (-Infinity)], N[(N[(N[(N[(N[(N[(N[(-0.006944444444444444 * N[(im * im), $MachinePrecision]), $MachinePrecision] - 0.08333333333333333), $MachinePrecision] * im), $MachinePrecision] * im), $MachinePrecision] - 0.16666666666666666), $MachinePrecision] * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision], If[LessEqual[t$95$0, 1.0], N[(1.0 * N[Sin[re], $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(N[(0.041666666666666664 * im), $MachinePrecision] * im + 0.5), $MachinePrecision] * im), $MachinePrecision] * im + 1.0), $MachinePrecision] * re), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right)\\
\mathbf{if}\;t\_0 \leq -\infty:\\
\;\;\;\;\mathsf{fma}\left(\left(\left(\left(-0.006944444444444444 \cdot \left(im \cdot im\right) - 0.08333333333333333\right) \cdot im\right) \cdot im - 0.16666666666666666\right) \cdot \left(re \cdot re\right), re, re\right)\\
\mathbf{elif}\;t\_0 \leq 1:\\
\;\;\;\;1 \cdot \sin re\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664 \cdot im, im, 0.5\right) \cdot im, im, 1\right) \cdot re\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < -inf.0Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6472.0
Applied rewrites72.0%
Taylor expanded in re around 0
Applied rewrites5.6%
Taylor expanded in re around inf
Applied rewrites29.6%
if -inf.0 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < 1Initial program 100.0%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-+.f64N/A
+-commutativeN/A
lift-exp.f64N/A
lift-exp.f64N/A
lift--.f64N/A
sub0-negN/A
cosh-undefN/A
associate-*r*N/A
metadata-evalN/A
cosh-0N/A
*-commutativeN/A
lower-*.f64N/A
cosh-0N/A
exp-0N/A
lower-*.f64N/A
exp-0N/A
lower-cosh.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
Applied rewrites98.4%
if 1 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6473.0
Applied rewrites73.0%
Taylor expanded in re around 0
Applied rewrites62.6%
Applied rewrites62.6%
Applied rewrites62.6%
Final simplification72.9%
(FPCore (re im)
:precision binary64
(let* ((t_0
(fma
(fma
(fma 0.001388888888888889 (* im im) 0.041666666666666664)
(* im im)
0.5)
(* im im)
1.0)))
(if (<= (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im))) 1.0)
(* t_0 (sin re))
(*
(fma
(pow re 3.0)
(- (* 0.008333333333333333 (* re re)) 0.16666666666666666)
re)
t_0))))
double code(double re, double im) {
double t_0 = fma(fma(fma(0.001388888888888889, (im * im), 0.041666666666666664), (im * im), 0.5), (im * im), 1.0);
double tmp;
if (((0.5 * sin(re)) * (exp(-im) + exp(im))) <= 1.0) {
tmp = t_0 * sin(re);
} else {
tmp = fma(pow(re, 3.0), ((0.008333333333333333 * (re * re)) - 0.16666666666666666), re) * t_0;
}
return tmp;
}
function code(re, im) t_0 = fma(fma(fma(0.001388888888888889, Float64(im * im), 0.041666666666666664), Float64(im * im), 0.5), Float64(im * im), 1.0) tmp = 0.0 if (Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) <= 1.0) tmp = Float64(t_0 * sin(re)); else tmp = Float64(fma((re ^ 3.0), Float64(Float64(0.008333333333333333 * Float64(re * re)) - 0.16666666666666666), re) * t_0); end return tmp end
code[re_, im_] := Block[{t$95$0 = N[(N[(N[(0.001388888888888889 * N[(im * im), $MachinePrecision] + 0.041666666666666664), $MachinePrecision] * N[(im * im), $MachinePrecision] + 0.5), $MachinePrecision] * N[(im * im), $MachinePrecision] + 1.0), $MachinePrecision]}, If[LessEqual[N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1.0], N[(t$95$0 * N[Sin[re], $MachinePrecision]), $MachinePrecision], N[(N[(N[Power[re, 3.0], $MachinePrecision] * N[(N[(0.008333333333333333 * N[(re * re), $MachinePrecision]), $MachinePrecision] - 0.16666666666666666), $MachinePrecision] + re), $MachinePrecision] * t$95$0), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.001388888888888889, im \cdot im, 0.041666666666666664\right), im \cdot im, 0.5\right), im \cdot im, 1\right)\\
\mathbf{if}\;\left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right) \leq 1:\\
\;\;\;\;t\_0 \cdot \sin re\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left({re}^{3}, 0.008333333333333333 \cdot \left(re \cdot re\right) - 0.16666666666666666, re\right) \cdot t\_0\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < 1Initial program 100.0%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-+.f64N/A
+-commutativeN/A
lift-exp.f64N/A
lift-exp.f64N/A
lift--.f64N/A
sub0-negN/A
cosh-undefN/A
associate-*r*N/A
metadata-evalN/A
cosh-0N/A
*-commutativeN/A
lower-*.f64N/A
cosh-0N/A
exp-0N/A
lower-*.f64N/A
exp-0N/A
lower-cosh.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6492.8
Applied rewrites92.8%
if 1 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-+.f64N/A
+-commutativeN/A
lift-exp.f64N/A
lift-exp.f64N/A
lift--.f64N/A
sub0-negN/A
cosh-undefN/A
associate-*r*N/A
metadata-evalN/A
cosh-0N/A
*-commutativeN/A
lower-*.f64N/A
cosh-0N/A
exp-0N/A
lower-*.f64N/A
exp-0N/A
lower-cosh.f64100.0
Applied rewrites100.0%
lift-*.f64N/A
lift-*.f64N/A
*-lft-identityN/A
*-commutativeN/A
lower-*.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6487.8
Applied rewrites87.8%
Taylor expanded in re around 0
+-commutativeN/A
distribute-lft-inN/A
associate-*r*N/A
unpow2N/A
cube-multN/A
*-rgt-identityN/A
lower-fma.f64N/A
lower-pow.f64N/A
lower--.f64N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6472.0
Applied rewrites72.0%
Final simplification87.0%
(FPCore (re im) :precision binary64 (if (<= (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im))) 0.24) (* (* (fma -0.08333333333333333 (* re re) 0.5) re) (fma im im 2.0)) (* (fma (* (fma (* 0.041666666666666664 im) im 0.5) im) im 1.0) re)))
double code(double re, double im) {
double tmp;
if (((0.5 * sin(re)) * (exp(-im) + exp(im))) <= 0.24) {
tmp = (fma(-0.08333333333333333, (re * re), 0.5) * re) * fma(im, im, 2.0);
} else {
tmp = fma((fma((0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) <= 0.24) tmp = Float64(Float64(fma(-0.08333333333333333, Float64(re * re), 0.5) * re) * fma(im, im, 2.0)); else tmp = Float64(fma(Float64(fma(Float64(0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.24], N[(N[(N[(-0.08333333333333333 * N[(re * re), $MachinePrecision] + 0.5), $MachinePrecision] * re), $MachinePrecision] * N[(im * im + 2.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(N[(0.041666666666666664 * im), $MachinePrecision] * im + 0.5), $MachinePrecision] * im), $MachinePrecision] * im + 1.0), $MachinePrecision] * re), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right) \leq 0.24:\\
\;\;\;\;\left(\mathsf{fma}\left(-0.08333333333333333, re \cdot re, 0.5\right) \cdot re\right) \cdot \mathsf{fma}\left(im, im, 2\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664 \cdot im, im, 0.5\right) \cdot im, im, 1\right) \cdot re\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < 0.23999999999999999Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
unpow2N/A
lower-fma.f6480.1
Applied rewrites80.1%
Taylor expanded in re around 0
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f6455.5
Applied rewrites55.5%
if 0.23999999999999999 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6479.3
Applied rewrites79.3%
Taylor expanded in re around 0
Applied rewrites48.4%
Applied rewrites48.4%
Applied rewrites48.4%
Final simplification52.9%
(FPCore (re im) :precision binary64 (if (<= (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im))) -0.02) (fma (* -0.16666666666666666 (* re re)) re re) (fma (* (* (fma (* im im) 0.041666666666666664 0.5) im) im) re re)))
double code(double re, double im) {
double tmp;
if (((0.5 * sin(re)) * (exp(-im) + exp(im))) <= -0.02) {
tmp = fma((-0.16666666666666666 * (re * re)), re, re);
} else {
tmp = fma(((fma((im * im), 0.041666666666666664, 0.5) * im) * im), re, re);
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) <= -0.02) tmp = fma(Float64(-0.16666666666666666 * Float64(re * re)), re, re); else tmp = fma(Float64(Float64(fma(Float64(im * im), 0.041666666666666664, 0.5) * im) * im), re, re); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -0.02], N[(N[(-0.16666666666666666 * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision], N[(N[(N[(N[(N[(im * im), $MachinePrecision] * 0.041666666666666664 + 0.5), $MachinePrecision] * im), $MachinePrecision] * im), $MachinePrecision] * re + re), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right) \leq -0.02:\\
\;\;\;\;\mathsf{fma}\left(-0.16666666666666666 \cdot \left(re \cdot re\right), re, re\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\left(\mathsf{fma}\left(im \cdot im, 0.041666666666666664, 0.5\right) \cdot im\right) \cdot im, re, re\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < -0.0200000000000000004Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6483.1
Applied rewrites83.1%
Taylor expanded in re around 0
Applied rewrites4.7%
Taylor expanded in im around 0
Applied rewrites12.7%
if -0.0200000000000000004 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6487.3
Applied rewrites87.3%
Taylor expanded in re around 0
Applied rewrites40.3%
Taylor expanded in re around 0
Applied rewrites66.5%
Final simplification46.4%
(FPCore (re im) :precision binary64 (if (<= (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im))) -0.02) (fma (* -0.16666666666666666 (* re re)) re re) (* (fma (* (fma (* 0.041666666666666664 im) im 0.5) im) im 1.0) re)))
double code(double re, double im) {
double tmp;
if (((0.5 * sin(re)) * (exp(-im) + exp(im))) <= -0.02) {
tmp = fma((-0.16666666666666666 * (re * re)), re, re);
} else {
tmp = fma((fma((0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) <= -0.02) tmp = fma(Float64(-0.16666666666666666 * Float64(re * re)), re, re); else tmp = Float64(fma(Float64(fma(Float64(0.041666666666666664 * im), im, 0.5) * im), im, 1.0) * re); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -0.02], N[(N[(-0.16666666666666666 * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision], N[(N[(N[(N[(N[(0.041666666666666664 * im), $MachinePrecision] * im + 0.5), $MachinePrecision] * im), $MachinePrecision] * im + 1.0), $MachinePrecision] * re), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right) \leq -0.02:\\
\;\;\;\;\mathsf{fma}\left(-0.16666666666666666 \cdot \left(re \cdot re\right), re, re\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664 \cdot im, im, 0.5\right) \cdot im, im, 1\right) \cdot re\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < -0.0200000000000000004Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6483.1
Applied rewrites83.1%
Taylor expanded in re around 0
Applied rewrites4.7%
Taylor expanded in im around 0
Applied rewrites12.7%
if -0.0200000000000000004 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6487.3
Applied rewrites87.3%
Taylor expanded in re around 0
Applied rewrites66.5%
Applied rewrites66.5%
Applied rewrites66.5%
Final simplification46.3%
(FPCore (re im) :precision binary64 (if (<= (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im))) 0.24) (fma (* -0.16666666666666666 (* re re)) re re) (* (fma (* (* im im) 0.041666666666666664) (* im im) 1.0) re)))
double code(double re, double im) {
double tmp;
if (((0.5 * sin(re)) * (exp(-im) + exp(im))) <= 0.24) {
tmp = fma((-0.16666666666666666 * (re * re)), re, re);
} else {
tmp = fma(((im * im) * 0.041666666666666664), (im * im), 1.0) * re;
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) <= 0.24) tmp = fma(Float64(-0.16666666666666666 * Float64(re * re)), re, re); else tmp = Float64(fma(Float64(Float64(im * im) * 0.041666666666666664), Float64(im * im), 1.0) * re); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.24], N[(N[(-0.16666666666666666 * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision], N[(N[(N[(N[(im * im), $MachinePrecision] * 0.041666666666666664), $MachinePrecision] * N[(im * im), $MachinePrecision] + 1.0), $MachinePrecision] * re), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right) \leq 0.24:\\
\;\;\;\;\mathsf{fma}\left(-0.16666666666666666 \cdot \left(re \cdot re\right), re, re\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\left(im \cdot im\right) \cdot 0.041666666666666664, im \cdot im, 1\right) \cdot re\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < 0.23999999999999999Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6489.4
Applied rewrites89.4%
Taylor expanded in re around 0
Applied rewrites40.6%
Taylor expanded in im around 0
Applied rewrites45.1%
if 0.23999999999999999 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6479.3
Applied rewrites79.3%
Taylor expanded in re around 0
Applied rewrites48.4%
Taylor expanded in im around inf
Applied rewrites48.4%
Final simplification46.3%
(FPCore (re im) :precision binary64 (if (<= (* (* 0.5 (sin re)) (+ (exp (- im)) (exp im))) -0.02) (fma (* -0.16666666666666666 (* re re)) re re) (* (* 0.5 re) (fma im im 2.0))))
double code(double re, double im) {
double tmp;
if (((0.5 * sin(re)) * (exp(-im) + exp(im))) <= -0.02) {
tmp = fma((-0.16666666666666666 * (re * re)), re, re);
} else {
tmp = (0.5 * re) * fma(im, im, 2.0);
}
return tmp;
}
function code(re, im) tmp = 0.0 if (Float64(Float64(0.5 * sin(re)) * Float64(exp(Float64(-im)) + exp(im))) <= -0.02) tmp = fma(Float64(-0.16666666666666666 * Float64(re * re)), re, re); else tmp = Float64(Float64(0.5 * re) * fma(im, im, 2.0)); end return tmp end
code[re_, im_] := If[LessEqual[N[(N[(0.5 * N[Sin[re], $MachinePrecision]), $MachinePrecision] * N[(N[Exp[(-im)], $MachinePrecision] + N[Exp[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -0.02], N[(N[(-0.16666666666666666 * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision], N[(N[(0.5 * re), $MachinePrecision] * N[(im * im + 2.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\left(0.5 \cdot \sin re\right) \cdot \left(e^{-im} + e^{im}\right) \leq -0.02:\\
\;\;\;\;\mathsf{fma}\left(-0.16666666666666666 \cdot \left(re \cdot re\right), re, re\right)\\
\mathbf{else}:\\
\;\;\;\;\left(0.5 \cdot re\right) \cdot \mathsf{fma}\left(im, im, 2\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) < -0.0200000000000000004Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6483.1
Applied rewrites83.1%
Taylor expanded in re around 0
Applied rewrites4.7%
Taylor expanded in im around 0
Applied rewrites12.7%
if -0.0200000000000000004 < (*.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 re)) (+.f64 (exp.f64 (-.f64 #s(literal 0 binary64) im)) (exp.f64 im))) Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
unpow2N/A
lower-fma.f6479.4
Applied rewrites79.4%
Taylor expanded in re around 0
lower-*.f6459.4
Applied rewrites59.4%
Final simplification41.9%
(FPCore (re im)
:precision binary64
(*
(fma
(fma
(fma 0.001388888888888889 (* im im) 0.041666666666666664)
(* im im)
0.5)
(* im im)
1.0)
(sin re)))
double code(double re, double im) {
return fma(fma(fma(0.001388888888888889, (im * im), 0.041666666666666664), (im * im), 0.5), (im * im), 1.0) * sin(re);
}
function code(re, im) return Float64(fma(fma(fma(0.001388888888888889, Float64(im * im), 0.041666666666666664), Float64(im * im), 0.5), Float64(im * im), 1.0) * sin(re)) end
code[re_, im_] := N[(N[(N[(N[(0.001388888888888889 * N[(im * im), $MachinePrecision] + 0.041666666666666664), $MachinePrecision] * N[(im * im), $MachinePrecision] + 0.5), $MachinePrecision] * N[(im * im), $MachinePrecision] + 1.0), $MachinePrecision] * N[Sin[re], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.001388888888888889, im \cdot im, 0.041666666666666664\right), im \cdot im, 0.5\right), im \cdot im, 1\right) \cdot \sin re
\end{array}
Initial program 100.0%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-+.f64N/A
+-commutativeN/A
lift-exp.f64N/A
lift-exp.f64N/A
lift--.f64N/A
sub0-negN/A
cosh-undefN/A
associate-*r*N/A
metadata-evalN/A
cosh-0N/A
*-commutativeN/A
lower-*.f64N/A
cosh-0N/A
exp-0N/A
lower-*.f64N/A
exp-0N/A
lower-cosh.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6491.4
Applied rewrites91.4%
Final simplification91.4%
(FPCore (re im) :precision binary64 (* (sin re) (fma (fma (* 0.001388888888888889 (* im im)) (* im im) 0.5) (* im im) 1.0)))
double code(double re, double im) {
return sin(re) * fma(fma((0.001388888888888889 * (im * im)), (im * im), 0.5), (im * im), 1.0);
}
function code(re, im) return Float64(sin(re) * fma(fma(Float64(0.001388888888888889 * Float64(im * im)), Float64(im * im), 0.5), Float64(im * im), 1.0)) end
code[re_, im_] := N[(N[Sin[re], $MachinePrecision] * N[(N[(N[(0.001388888888888889 * N[(im * im), $MachinePrecision]), $MachinePrecision] * N[(im * im), $MachinePrecision] + 0.5), $MachinePrecision] * N[(im * im), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\sin re \cdot \mathsf{fma}\left(\mathsf{fma}\left(0.001388888888888889 \cdot \left(im \cdot im\right), im \cdot im, 0.5\right), im \cdot im, 1\right)
\end{array}
Initial program 100.0%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-+.f64N/A
+-commutativeN/A
lift-exp.f64N/A
lift-exp.f64N/A
lift--.f64N/A
sub0-negN/A
cosh-undefN/A
associate-*r*N/A
metadata-evalN/A
cosh-0N/A
*-commutativeN/A
lower-*.f64N/A
cosh-0N/A
exp-0N/A
lower-*.f64N/A
exp-0N/A
lower-cosh.f64100.0
Applied rewrites100.0%
lift-*.f64N/A
lift-*.f64N/A
*-lft-identityN/A
*-commutativeN/A
lower-*.f64100.0
Applied rewrites100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f64N/A
unpow2N/A
lower-*.f6491.4
Applied rewrites91.4%
Taylor expanded in im around inf
Applied rewrites91.2%
(FPCore (re im) :precision binary64 (fma (* -0.16666666666666666 (* re re)) re re))
double code(double re, double im) {
return fma((-0.16666666666666666 * (re * re)), re, re);
}
function code(re, im) return fma(Float64(-0.16666666666666666 * Float64(re * re)), re, re) end
code[re_, im_] := N[(N[(-0.16666666666666666 * N[(re * re), $MachinePrecision]), $MachinePrecision] * re + re), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(-0.16666666666666666 \cdot \left(re \cdot re\right), re, re\right)
\end{array}
Initial program 100.0%
Taylor expanded in im around 0
+-commutativeN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-*.f64N/A
+-commutativeN/A
lower-fma.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f64N/A
unpow2N/A
lower-*.f64N/A
lower-sin.f6485.7
Applied rewrites85.7%
Taylor expanded in re around 0
Applied rewrites26.9%
Taylor expanded in im around 0
Applied rewrites33.6%
(FPCore (re im) :precision binary64 (* (* 0.5 re) 2.0))
double code(double re, double im) {
return (0.5 * re) * 2.0;
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = (0.5d0 * re) * 2.0d0
end function
public static double code(double re, double im) {
return (0.5 * re) * 2.0;
}
def code(re, im): return (0.5 * re) * 2.0
function code(re, im) return Float64(Float64(0.5 * re) * 2.0) end
function tmp = code(re, im) tmp = (0.5 * re) * 2.0; end
code[re_, im_] := N[(N[(0.5 * re), $MachinePrecision] * 2.0), $MachinePrecision]
\begin{array}{l}
\\
\left(0.5 \cdot re\right) \cdot 2
\end{array}
Initial program 100.0%
Taylor expanded in im around 0
Applied rewrites50.2%
Taylor expanded in re around 0
lower-*.f6426.0
Applied rewrites26.0%
herbie shell --seed 2024337
(FPCore (re im)
:name "math.sin on complex, real part"
:precision binary64
(* (* 0.5 (sin re)) (+ (exp (- 0.0 im)) (exp im))))