
(FPCore (x y z t) :precision binary64 (* (/ (- x y) (- z y)) t))
double code(double x, double y, double z, double t) {
return ((x - y) / (z - y)) * t;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = ((x - y) / (z - y)) * t
end function
public static double code(double x, double y, double z, double t) {
return ((x - y) / (z - y)) * t;
}
def code(x, y, z, t): return ((x - y) / (z - y)) * t
function code(x, y, z, t) return Float64(Float64(Float64(x - y) / Float64(z - y)) * t) end
function tmp = code(x, y, z, t) tmp = ((x - y) / (z - y)) * t; end
code[x_, y_, z_, t_] := N[(N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision] * t), $MachinePrecision]
\begin{array}{l}
\\
\frac{x - y}{z - y} \cdot t
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 18 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (* (/ (- x y) (- z y)) t))
double code(double x, double y, double z, double t) {
return ((x - y) / (z - y)) * t;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = ((x - y) / (z - y)) * t
end function
public static double code(double x, double y, double z, double t) {
return ((x - y) / (z - y)) * t;
}
def code(x, y, z, t): return ((x - y) / (z - y)) * t
function code(x, y, z, t) return Float64(Float64(Float64(x - y) / Float64(z - y)) * t) end
function tmp = code(x, y, z, t) tmp = ((x - y) / (z - y)) * t; end
code[x_, y_, z_, t_] := N[(N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision] * t), $MachinePrecision]
\begin{array}{l}
\\
\frac{x - y}{z - y} \cdot t
\end{array}
t\_m = (fabs.f64 t) t\_s = (copysign.f64 #s(literal 1 binary64) t) (FPCore (t_s x y z t_m) :precision binary64 (let* ((t_2 (* (/ (- x y) (- z y)) t_m))) (* t_s (if (<= t_2 1.5e+202) t_2 (* (/ t_m (- z y)) (- x y))))))
t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = ((x - y) / (z - y)) * t_m;
double tmp;
if (t_2 <= 1.5e+202) {
tmp = t_2;
} else {
tmp = (t_m / (z - y)) * (x - y);
}
return t_s * tmp;
}
t\_m = abs(t)
t\_s = copysign(1.0d0, t)
real(8) function code(t_s, x, y, z, t_m)
real(8), intent (in) :: t_s
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t_m
real(8) :: t_2
real(8) :: tmp
t_2 = ((x - y) / (z - y)) * t_m
if (t_2 <= 1.5d+202) then
tmp = t_2
else
tmp = (t_m / (z - y)) * (x - y)
end if
code = t_s * tmp
end function
t\_m = Math.abs(t);
t\_s = Math.copySign(1.0, t);
public static double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = ((x - y) / (z - y)) * t_m;
double tmp;
if (t_2 <= 1.5e+202) {
tmp = t_2;
} else {
tmp = (t_m / (z - y)) * (x - y);
}
return t_s * tmp;
}
t\_m = math.fabs(t) t\_s = math.copysign(1.0, t) def code(t_s, x, y, z, t_m): t_2 = ((x - y) / (z - y)) * t_m tmp = 0 if t_2 <= 1.5e+202: tmp = t_2 else: tmp = (t_m / (z - y)) * (x - y) return t_s * tmp
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(Float64(x - y) / Float64(z - y)) * t_m) tmp = 0.0 if (t_2 <= 1.5e+202) tmp = t_2; else tmp = Float64(Float64(t_m / Float64(z - y)) * Float64(x - y)); end return Float64(t_s * tmp) end
t\_m = abs(t); t\_s = sign(t) * abs(1.0); function tmp_2 = code(t_s, x, y, z, t_m) t_2 = ((x - y) / (z - y)) * t_m; tmp = 0.0; if (t_2 <= 1.5e+202) tmp = t_2; else tmp = (t_m / (z - y)) * (x - y); end tmp_2 = t_s * tmp; end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision] * t$95$m), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, 1.5e+202], t$95$2, N[(N[(t$95$m / N[(z - y), $MachinePrecision]), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y} \cdot t\_m\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq 1.5 \cdot 10^{+202}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m}{z - y} \cdot \left(x - y\right)\\
\end{array}
\end{array}
\end{array}
if (*.f64 (/.f64 (-.f64 x y) (-.f64 z y)) t) < 1.5000000000000001e202Initial program 98.8%
if 1.5000000000000001e202 < (*.f64 (/.f64 (-.f64 x y) (-.f64 z y)) t) Initial program 86.4%
lift-*.f64N/A
lift-/.f64N/A
associate-*l/N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6499.7
Applied rewrites99.7%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -5000000000.0)
(* (/ x (- z y)) t_m)
(if (<= t_2 0.4)
(* (/ (- x y) z) t_m)
(if (<= t_2 200.0)
(fma (- t_m) (/ (- x z) y) t_m)
(/ (* t_m x) (- z y))))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5000000000.0) {
tmp = (x / (z - y)) * t_m;
} else if (t_2 <= 0.4) {
tmp = ((x - y) / z) * t_m;
} else if (t_2 <= 200.0) {
tmp = fma(-t_m, ((x - z) / y), t_m);
} else {
tmp = (t_m * x) / (z - y);
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -5000000000.0) tmp = Float64(Float64(x / Float64(z - y)) * t_m); elseif (t_2 <= 0.4) tmp = Float64(Float64(Float64(x - y) / z) * t_m); elseif (t_2 <= 200.0) tmp = fma(Float64(-t_m), Float64(Float64(x - z) / y), t_m); else tmp = Float64(Float64(t_m * x) / Float64(z - y)); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -5000000000.0], N[(N[(x / N[(z - y), $MachinePrecision]), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 0.4], N[(N[(N[(x - y), $MachinePrecision] / z), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 200.0], N[((-t$95$m) * N[(N[(x - z), $MachinePrecision] / y), $MachinePrecision] + t$95$m), $MachinePrecision], N[(N[(t$95$m * x), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -5000000000:\\
\;\;\;\;\frac{x}{z - y} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 0.4:\\
\;\;\;\;\frac{x - y}{z} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 200:\\
\;\;\;\;\mathsf{fma}\left(-t\_m, \frac{x - z}{y}, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m \cdot x}{z - y}\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5e9Initial program 97.4%
Taylor expanded in x around inf
lower-/.f64N/A
lower--.f6496.3
Applied rewrites96.3%
if -5e9 < (/.f64 (-.f64 x y) (-.f64 z y)) < 0.40000000000000002Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
lower--.f6496.7
Applied rewrites96.7%
if 0.40000000000000002 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6498.9
Applied rewrites98.9%
if 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6497.6
Applied rewrites97.6%
Applied rewrites97.7%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -5000000000.0)
(* (/ x (- z y)) t_m)
(if (<= t_2 5e-8)
(* (/ (- x y) z) t_m)
(if (<= t_2 2.0) (* (/ (- y) (- z y)) t_m) (/ (* t_m x) (- z y))))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5000000000.0) {
tmp = (x / (z - y)) * t_m;
} else if (t_2 <= 5e-8) {
tmp = ((x - y) / z) * t_m;
} else if (t_2 <= 2.0) {
tmp = (-y / (z - y)) * t_m;
} else {
tmp = (t_m * x) / (z - y);
}
return t_s * tmp;
}
t\_m = abs(t)
t\_s = copysign(1.0d0, t)
real(8) function code(t_s, x, y, z, t_m)
real(8), intent (in) :: t_s
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t_m
real(8) :: t_2
real(8) :: tmp
t_2 = (x - y) / (z - y)
if (t_2 <= (-5000000000.0d0)) then
tmp = (x / (z - y)) * t_m
else if (t_2 <= 5d-8) then
tmp = ((x - y) / z) * t_m
else if (t_2 <= 2.0d0) then
tmp = (-y / (z - y)) * t_m
else
tmp = (t_m * x) / (z - y)
end if
code = t_s * tmp
end function
t\_m = Math.abs(t);
t\_s = Math.copySign(1.0, t);
public static double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5000000000.0) {
tmp = (x / (z - y)) * t_m;
} else if (t_2 <= 5e-8) {
tmp = ((x - y) / z) * t_m;
} else if (t_2 <= 2.0) {
tmp = (-y / (z - y)) * t_m;
} else {
tmp = (t_m * x) / (z - y);
}
return t_s * tmp;
}
t\_m = math.fabs(t) t\_s = math.copysign(1.0, t) def code(t_s, x, y, z, t_m): t_2 = (x - y) / (z - y) tmp = 0 if t_2 <= -5000000000.0: tmp = (x / (z - y)) * t_m elif t_2 <= 5e-8: tmp = ((x - y) / z) * t_m elif t_2 <= 2.0: tmp = (-y / (z - y)) * t_m else: tmp = (t_m * x) / (z - y) return t_s * tmp
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -5000000000.0) tmp = Float64(Float64(x / Float64(z - y)) * t_m); elseif (t_2 <= 5e-8) tmp = Float64(Float64(Float64(x - y) / z) * t_m); elseif (t_2 <= 2.0) tmp = Float64(Float64(Float64(-y) / Float64(z - y)) * t_m); else tmp = Float64(Float64(t_m * x) / Float64(z - y)); end return Float64(t_s * tmp) end
t\_m = abs(t); t\_s = sign(t) * abs(1.0); function tmp_2 = code(t_s, x, y, z, t_m) t_2 = (x - y) / (z - y); tmp = 0.0; if (t_2 <= -5000000000.0) tmp = (x / (z - y)) * t_m; elseif (t_2 <= 5e-8) tmp = ((x - y) / z) * t_m; elseif (t_2 <= 2.0) tmp = (-y / (z - y)) * t_m; else tmp = (t_m * x) / (z - y); end tmp_2 = t_s * tmp; end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -5000000000.0], N[(N[(x / N[(z - y), $MachinePrecision]), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 5e-8], N[(N[(N[(x - y), $MachinePrecision] / z), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 2.0], N[(N[((-y) / N[(z - y), $MachinePrecision]), $MachinePrecision] * t$95$m), $MachinePrecision], N[(N[(t$95$m * x), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -5000000000:\\
\;\;\;\;\frac{x}{z - y} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 5 \cdot 10^{-8}:\\
\;\;\;\;\frac{x - y}{z} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 2:\\
\;\;\;\;\frac{-y}{z - y} \cdot t\_m\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m \cdot x}{z - y}\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5e9Initial program 97.4%
Taylor expanded in x around inf
lower-/.f64N/A
lower--.f6496.3
Applied rewrites96.3%
if -5e9 < (/.f64 (-.f64 x y) (-.f64 z y)) < 4.9999999999999998e-8Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
lower--.f6499.1
Applied rewrites99.1%
if 4.9999999999999998e-8 < (/.f64 (-.f64 x y) (-.f64 z y)) < 2Initial program 99.9%
Taylor expanded in x around 0
mul-1-negN/A
lower-neg.f6497.1
Applied rewrites97.1%
if 2 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.6%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6495.6
Applied rewrites95.6%
Applied rewrites96.3%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -5000000000.0)
(* (/ x (- z y)) t_m)
(if (<= t_2 0.4)
(* (/ (- x y) z) t_m)
(if (<= t_2 200.0)
(fma (- t_m) (/ x y) t_m)
(/ (* t_m x) (- z y))))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5000000000.0) {
tmp = (x / (z - y)) * t_m;
} else if (t_2 <= 0.4) {
tmp = ((x - y) / z) * t_m;
} else if (t_2 <= 200.0) {
tmp = fma(-t_m, (x / y), t_m);
} else {
tmp = (t_m * x) / (z - y);
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -5000000000.0) tmp = Float64(Float64(x / Float64(z - y)) * t_m); elseif (t_2 <= 0.4) tmp = Float64(Float64(Float64(x - y) / z) * t_m); elseif (t_2 <= 200.0) tmp = fma(Float64(-t_m), Float64(x / y), t_m); else tmp = Float64(Float64(t_m * x) / Float64(z - y)); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -5000000000.0], N[(N[(x / N[(z - y), $MachinePrecision]), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 0.4], N[(N[(N[(x - y), $MachinePrecision] / z), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 200.0], N[((-t$95$m) * N[(x / y), $MachinePrecision] + t$95$m), $MachinePrecision], N[(N[(t$95$m * x), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -5000000000:\\
\;\;\;\;\frac{x}{z - y} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 0.4:\\
\;\;\;\;\frac{x - y}{z} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 200:\\
\;\;\;\;\mathsf{fma}\left(-t\_m, \frac{x}{y}, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m \cdot x}{z - y}\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5e9Initial program 97.4%
Taylor expanded in x around inf
lower-/.f64N/A
lower--.f6496.3
Applied rewrites96.3%
if -5e9 < (/.f64 (-.f64 x y) (-.f64 z y)) < 0.40000000000000002Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
lower--.f6496.7
Applied rewrites96.7%
if 0.40000000000000002 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6498.9
Applied rewrites98.9%
Taylor expanded in x around inf
Applied rewrites97.9%
if 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6497.6
Applied rewrites97.6%
Applied rewrites97.7%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -0.1)
(* (/ x (- z y)) t_m)
(if (<= t_2 0.4)
(/ (* (- x y) t_m) z)
(if (<= t_2 200.0)
(fma (- t_m) (/ x y) t_m)
(/ (* t_m x) (- z y))))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -0.1) {
tmp = (x / (z - y)) * t_m;
} else if (t_2 <= 0.4) {
tmp = ((x - y) * t_m) / z;
} else if (t_2 <= 200.0) {
tmp = fma(-t_m, (x / y), t_m);
} else {
tmp = (t_m * x) / (z - y);
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -0.1) tmp = Float64(Float64(x / Float64(z - y)) * t_m); elseif (t_2 <= 0.4) tmp = Float64(Float64(Float64(x - y) * t_m) / z); elseif (t_2 <= 200.0) tmp = fma(Float64(-t_m), Float64(x / y), t_m); else tmp = Float64(Float64(t_m * x) / Float64(z - y)); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -0.1], N[(N[(x / N[(z - y), $MachinePrecision]), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 0.4], N[(N[(N[(x - y), $MachinePrecision] * t$95$m), $MachinePrecision] / z), $MachinePrecision], If[LessEqual[t$95$2, 200.0], N[((-t$95$m) * N[(x / y), $MachinePrecision] + t$95$m), $MachinePrecision], N[(N[(t$95$m * x), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -0.1:\\
\;\;\;\;\frac{x}{z - y} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 0.4:\\
\;\;\;\;\frac{\left(x - y\right) \cdot t\_m}{z}\\
\mathbf{elif}\;t\_2 \leq 200:\\
\;\;\;\;\mathsf{fma}\left(-t\_m, \frac{x}{y}, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m \cdot x}{z - y}\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -0.10000000000000001Initial program 97.4%
Taylor expanded in x around inf
lower-/.f64N/A
lower--.f6496.4
Applied rewrites96.4%
if -0.10000000000000001 < (/.f64 (-.f64 x y) (-.f64 z y)) < 0.40000000000000002Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6490.5
Applied rewrites90.5%
if 0.40000000000000002 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6498.9
Applied rewrites98.9%
Taylor expanded in x around inf
Applied rewrites97.9%
if 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6497.6
Applied rewrites97.6%
Applied rewrites97.7%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -0.1)
(* (/ t_m (- z y)) x)
(if (<= t_2 0.4)
(/ (* (- x y) t_m) z)
(if (<= t_2 200.0)
(fma (- t_m) (/ x y) t_m)
(/ (* t_m x) (- z y))))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -0.1) {
tmp = (t_m / (z - y)) * x;
} else if (t_2 <= 0.4) {
tmp = ((x - y) * t_m) / z;
} else if (t_2 <= 200.0) {
tmp = fma(-t_m, (x / y), t_m);
} else {
tmp = (t_m * x) / (z - y);
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -0.1) tmp = Float64(Float64(t_m / Float64(z - y)) * x); elseif (t_2 <= 0.4) tmp = Float64(Float64(Float64(x - y) * t_m) / z); elseif (t_2 <= 200.0) tmp = fma(Float64(-t_m), Float64(x / y), t_m); else tmp = Float64(Float64(t_m * x) / Float64(z - y)); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -0.1], N[(N[(t$95$m / N[(z - y), $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision], If[LessEqual[t$95$2, 0.4], N[(N[(N[(x - y), $MachinePrecision] * t$95$m), $MachinePrecision] / z), $MachinePrecision], If[LessEqual[t$95$2, 200.0], N[((-t$95$m) * N[(x / y), $MachinePrecision] + t$95$m), $MachinePrecision], N[(N[(t$95$m * x), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -0.1:\\
\;\;\;\;\frac{t\_m}{z - y} \cdot x\\
\mathbf{elif}\;t\_2 \leq 0.4:\\
\;\;\;\;\frac{\left(x - y\right) \cdot t\_m}{z}\\
\mathbf{elif}\;t\_2 \leq 200:\\
\;\;\;\;\mathsf{fma}\left(-t\_m, \frac{x}{y}, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m \cdot x}{z - y}\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -0.10000000000000001Initial program 97.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6487.3
Applied rewrites87.3%
if -0.10000000000000001 < (/.f64 (-.f64 x y) (-.f64 z y)) < 0.40000000000000002Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6490.5
Applied rewrites90.5%
if 0.40000000000000002 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6498.9
Applied rewrites98.9%
Taylor expanded in x around inf
Applied rewrites97.9%
if 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6497.6
Applied rewrites97.6%
Applied rewrites97.7%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -0.1)
(* (/ t_m (- z y)) x)
(if (<= t_2 0.4)
(/ (* (- x y) t_m) z)
(if (<= t_2 2.0) (fma (/ (- t_m) y) x t_m) (/ (* t_m x) (- z y))))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -0.1) {
tmp = (t_m / (z - y)) * x;
} else if (t_2 <= 0.4) {
tmp = ((x - y) * t_m) / z;
} else if (t_2 <= 2.0) {
tmp = fma((-t_m / y), x, t_m);
} else {
tmp = (t_m * x) / (z - y);
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -0.1) tmp = Float64(Float64(t_m / Float64(z - y)) * x); elseif (t_2 <= 0.4) tmp = Float64(Float64(Float64(x - y) * t_m) / z); elseif (t_2 <= 2.0) tmp = fma(Float64(Float64(-t_m) / y), x, t_m); else tmp = Float64(Float64(t_m * x) / Float64(z - y)); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -0.1], N[(N[(t$95$m / N[(z - y), $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision], If[LessEqual[t$95$2, 0.4], N[(N[(N[(x - y), $MachinePrecision] * t$95$m), $MachinePrecision] / z), $MachinePrecision], If[LessEqual[t$95$2, 2.0], N[(N[((-t$95$m) / y), $MachinePrecision] * x + t$95$m), $MachinePrecision], N[(N[(t$95$m * x), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -0.1:\\
\;\;\;\;\frac{t\_m}{z - y} \cdot x\\
\mathbf{elif}\;t\_2 \leq 0.4:\\
\;\;\;\;\frac{\left(x - y\right) \cdot t\_m}{z}\\
\mathbf{elif}\;t\_2 \leq 2:\\
\;\;\;\;\mathsf{fma}\left(\frac{-t\_m}{y}, x, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m \cdot x}{z - y}\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -0.10000000000000001Initial program 97.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6487.3
Applied rewrites87.3%
if -0.10000000000000001 < (/.f64 (-.f64 x y) (-.f64 z y)) < 0.40000000000000002Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6490.5
Applied rewrites90.5%
if 0.40000000000000002 < (/.f64 (-.f64 x y) (-.f64 z y)) < 2Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6498.9
Applied rewrites98.9%
Taylor expanded in z around 0
Applied rewrites97.1%
if 2 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.6%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6495.6
Applied rewrites95.6%
Applied rewrites96.3%
Final simplification93.3%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -5000000000.0)
(* (/ t_m (- z y)) x)
(if (<= t_2 8e-5)
(* (/ t_m z) (- x y))
(if (<= t_2 2.0) (fma (/ (- t_m) y) x t_m) (/ (* t_m x) (- z y))))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5000000000.0) {
tmp = (t_m / (z - y)) * x;
} else if (t_2 <= 8e-5) {
tmp = (t_m / z) * (x - y);
} else if (t_2 <= 2.0) {
tmp = fma((-t_m / y), x, t_m);
} else {
tmp = (t_m * x) / (z - y);
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -5000000000.0) tmp = Float64(Float64(t_m / Float64(z - y)) * x); elseif (t_2 <= 8e-5) tmp = Float64(Float64(t_m / z) * Float64(x - y)); elseif (t_2 <= 2.0) tmp = fma(Float64(Float64(-t_m) / y), x, t_m); else tmp = Float64(Float64(t_m * x) / Float64(z - y)); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -5000000000.0], N[(N[(t$95$m / N[(z - y), $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision], If[LessEqual[t$95$2, 8e-5], N[(N[(t$95$m / z), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, 2.0], N[(N[((-t$95$m) / y), $MachinePrecision] * x + t$95$m), $MachinePrecision], N[(N[(t$95$m * x), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -5000000000:\\
\;\;\;\;\frac{t\_m}{z - y} \cdot x\\
\mathbf{elif}\;t\_2 \leq 8 \cdot 10^{-5}:\\
\;\;\;\;\frac{t\_m}{z} \cdot \left(x - y\right)\\
\mathbf{elif}\;t\_2 \leq 2:\\
\;\;\;\;\mathsf{fma}\left(\frac{-t\_m}{y}, x, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m \cdot x}{z - y}\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5e9Initial program 97.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6486.7
Applied rewrites86.7%
if -5e9 < (/.f64 (-.f64 x y) (-.f64 z y)) < 8.00000000000000065e-5Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6491.1
Applied rewrites91.1%
Applied rewrites91.2%
if 8.00000000000000065e-5 < (/.f64 (-.f64 x y) (-.f64 z y)) < 2Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6496.7
Applied rewrites96.7%
Taylor expanded in z around 0
Applied rewrites95.2%
if 2 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.6%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6495.6
Applied rewrites95.6%
Applied rewrites96.3%
Final simplification92.8%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (* (/ t_m (- z y)) x)) (t_3 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_3 -5000000000.0)
t_2
(if (<= t_3 8e-5)
(* (/ t_m z) (- x y))
(if (<= t_3 200.0) (fma (/ (- t_m) y) x t_m) t_2))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (t_m / (z - y)) * x;
double t_3 = (x - y) / (z - y);
double tmp;
if (t_3 <= -5000000000.0) {
tmp = t_2;
} else if (t_3 <= 8e-5) {
tmp = (t_m / z) * (x - y);
} else if (t_3 <= 200.0) {
tmp = fma((-t_m / y), x, t_m);
} else {
tmp = t_2;
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(t_m / Float64(z - y)) * x) t_3 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_3 <= -5000000000.0) tmp = t_2; elseif (t_3 <= 8e-5) tmp = Float64(Float64(t_m / z) * Float64(x - y)); elseif (t_3 <= 200.0) tmp = fma(Float64(Float64(-t_m) / y), x, t_m); else tmp = t_2; end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(t$95$m / N[(z - y), $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$3, -5000000000.0], t$95$2, If[LessEqual[t$95$3, 8e-5], N[(N[(t$95$m / z), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$3, 200.0], N[(N[((-t$95$m) / y), $MachinePrecision] * x + t$95$m), $MachinePrecision], t$95$2]]]), $MachinePrecision]]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{t\_m}{z - y} \cdot x\\
t_3 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_3 \leq -5000000000:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_3 \leq 8 \cdot 10^{-5}:\\
\;\;\;\;\frac{t\_m}{z} \cdot \left(x - y\right)\\
\mathbf{elif}\;t\_3 \leq 200:\\
\;\;\;\;\mathsf{fma}\left(\frac{-t\_m}{y}, x, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5e9 or 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 93.1%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6492.5
Applied rewrites92.5%
if -5e9 < (/.f64 (-.f64 x y) (-.f64 z y)) < 8.00000000000000065e-5Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6491.1
Applied rewrites91.1%
Applied rewrites91.2%
if 8.00000000000000065e-5 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6496.8
Applied rewrites96.8%
Taylor expanded in z around 0
Applied rewrites94.3%
Final simplification92.7%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -5e+43)
(* (- t_m) (/ x y))
(if (<= t_2 0.4)
(* (/ x z) t_m)
(if (<= t_2 2.0) (fma (/ z y) t_m t_m) (/ (* (- t_m) x) y)))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5e+43) {
tmp = -t_m * (x / y);
} else if (t_2 <= 0.4) {
tmp = (x / z) * t_m;
} else if (t_2 <= 2.0) {
tmp = fma((z / y), t_m, t_m);
} else {
tmp = (-t_m * x) / y;
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -5e+43) tmp = Float64(Float64(-t_m) * Float64(x / y)); elseif (t_2 <= 0.4) tmp = Float64(Float64(x / z) * t_m); elseif (t_2 <= 2.0) tmp = fma(Float64(z / y), t_m, t_m); else tmp = Float64(Float64(Float64(-t_m) * x) / y); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -5e+43], N[((-t$95$m) * N[(x / y), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, 0.4], N[(N[(x / z), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 2.0], N[(N[(z / y), $MachinePrecision] * t$95$m + t$95$m), $MachinePrecision], N[(N[((-t$95$m) * x), $MachinePrecision] / y), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -5 \cdot 10^{+43}:\\
\;\;\;\;\left(-t\_m\right) \cdot \frac{x}{y}\\
\mathbf{elif}\;t\_2 \leq 0.4:\\
\;\;\;\;\frac{x}{z} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 2:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{y}, t\_m, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\left(-t\_m\right) \cdot x}{y}\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5.0000000000000004e43Initial program 96.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6462.7
Applied rewrites62.7%
Taylor expanded in x around inf
Applied rewrites62.7%
if -5.0000000000000004e43 < (/.f64 (-.f64 x y) (-.f64 z y)) < 0.40000000000000002Initial program 99.4%
Taylor expanded in y around 0
lower-/.f6464.7
Applied rewrites64.7%
if 0.40000000000000002 < (/.f64 (-.f64 x y) (-.f64 z y)) < 2Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6498.9
Applied rewrites98.9%
Taylor expanded in x around 0
Applied rewrites96.0%
if 2 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.6%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6459.2
Applied rewrites59.2%
Taylor expanded in x around inf
Applied rewrites57.6%
Applied rewrites61.7%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -5e+43)
(* (- t_m) (/ x y))
(if (<= t_2 0.4)
(* (/ x z) t_m)
(if (<= t_2 200.0) (fma (/ z y) t_m t_m) (* (/ t_m z) x)))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5e+43) {
tmp = -t_m * (x / y);
} else if (t_2 <= 0.4) {
tmp = (x / z) * t_m;
} else if (t_2 <= 200.0) {
tmp = fma((z / y), t_m, t_m);
} else {
tmp = (t_m / z) * x;
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -5e+43) tmp = Float64(Float64(-t_m) * Float64(x / y)); elseif (t_2 <= 0.4) tmp = Float64(Float64(x / z) * t_m); elseif (t_2 <= 200.0) tmp = fma(Float64(z / y), t_m, t_m); else tmp = Float64(Float64(t_m / z) * x); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -5e+43], N[((-t$95$m) * N[(x / y), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, 0.4], N[(N[(x / z), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 200.0], N[(N[(z / y), $MachinePrecision] * t$95$m + t$95$m), $MachinePrecision], N[(N[(t$95$m / z), $MachinePrecision] * x), $MachinePrecision]]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -5 \cdot 10^{+43}:\\
\;\;\;\;\left(-t\_m\right) \cdot \frac{x}{y}\\
\mathbf{elif}\;t\_2 \leq 0.4:\\
\;\;\;\;\frac{x}{z} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 200:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{y}, t\_m, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m}{z} \cdot x\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5.0000000000000004e43Initial program 96.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6462.7
Applied rewrites62.7%
Taylor expanded in x around inf
Applied rewrites62.7%
if -5.0000000000000004e43 < (/.f64 (-.f64 x y) (-.f64 z y)) < 0.40000000000000002Initial program 99.4%
Taylor expanded in y around 0
lower-/.f6464.7
Applied rewrites64.7%
if 0.40000000000000002 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6498.9
Applied rewrites98.9%
Taylor expanded in x around 0
Applied rewrites95.1%
if 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6497.6
Applied rewrites97.6%
Taylor expanded in y around 0
Applied rewrites61.4%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (* (/ (- x y) (- z y)) t_m)))
(*
t_s
(if (or (<= t_2 0.0) (not (<= t_2 5e+306))) (* z (/ t_m y)) (* 1.0 t_m)))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = ((x - y) / (z - y)) * t_m;
double tmp;
if ((t_2 <= 0.0) || !(t_2 <= 5e+306)) {
tmp = z * (t_m / y);
} else {
tmp = 1.0 * t_m;
}
return t_s * tmp;
}
t\_m = abs(t)
t\_s = copysign(1.0d0, t)
real(8) function code(t_s, x, y, z, t_m)
real(8), intent (in) :: t_s
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t_m
real(8) :: t_2
real(8) :: tmp
t_2 = ((x - y) / (z - y)) * t_m
if ((t_2 <= 0.0d0) .or. (.not. (t_2 <= 5d+306))) then
tmp = z * (t_m / y)
else
tmp = 1.0d0 * t_m
end if
code = t_s * tmp
end function
t\_m = Math.abs(t);
t\_s = Math.copySign(1.0, t);
public static double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = ((x - y) / (z - y)) * t_m;
double tmp;
if ((t_2 <= 0.0) || !(t_2 <= 5e+306)) {
tmp = z * (t_m / y);
} else {
tmp = 1.0 * t_m;
}
return t_s * tmp;
}
t\_m = math.fabs(t) t\_s = math.copysign(1.0, t) def code(t_s, x, y, z, t_m): t_2 = ((x - y) / (z - y)) * t_m tmp = 0 if (t_2 <= 0.0) or not (t_2 <= 5e+306): tmp = z * (t_m / y) else: tmp = 1.0 * t_m return t_s * tmp
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(Float64(x - y) / Float64(z - y)) * t_m) tmp = 0.0 if ((t_2 <= 0.0) || !(t_2 <= 5e+306)) tmp = Float64(z * Float64(t_m / y)); else tmp = Float64(1.0 * t_m); end return Float64(t_s * tmp) end
t\_m = abs(t); t\_s = sign(t) * abs(1.0); function tmp_2 = code(t_s, x, y, z, t_m) t_2 = ((x - y) / (z - y)) * t_m; tmp = 0.0; if ((t_2 <= 0.0) || ~((t_2 <= 5e+306))) tmp = z * (t_m / y); else tmp = 1.0 * t_m; end tmp_2 = t_s * tmp; end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision] * t$95$m), $MachinePrecision]}, N[(t$95$s * If[Or[LessEqual[t$95$2, 0.0], N[Not[LessEqual[t$95$2, 5e+306]], $MachinePrecision]], N[(z * N[(t$95$m / y), $MachinePrecision]), $MachinePrecision], N[(1.0 * t$95$m), $MachinePrecision]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y} \cdot t\_m\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq 0 \lor \neg \left(t\_2 \leq 5 \cdot 10^{+306}\right):\\
\;\;\;\;z \cdot \frac{t\_m}{y}\\
\mathbf{else}:\\
\;\;\;\;1 \cdot t\_m\\
\end{array}
\end{array}
\end{array}
if (*.f64 (/.f64 (-.f64 x y) (-.f64 z y)) t) < -0.0 or 4.99999999999999993e306 < (*.f64 (/.f64 (-.f64 x y) (-.f64 z y)) t) Initial program 96.1%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6455.0
Applied rewrites55.0%
Taylor expanded in z around inf
Applied rewrites5.5%
Applied rewrites10.2%
if -0.0 < (*.f64 (/.f64 (-.f64 x y) (-.f64 z y)) t) < 4.99999999999999993e306Initial program 99.8%
Taylor expanded in y around inf
Applied rewrites39.3%
Final simplification21.2%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -5e+43)
(* (- t_m) (/ x y))
(if (<= t_2 8e-5) (* (/ t_m z) (- x y)) (fma (/ (- t_m) y) x t_m))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5e+43) {
tmp = -t_m * (x / y);
} else if (t_2 <= 8e-5) {
tmp = (t_m / z) * (x - y);
} else {
tmp = fma((-t_m / y), x, t_m);
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -5e+43) tmp = Float64(Float64(-t_m) * Float64(x / y)); elseif (t_2 <= 8e-5) tmp = Float64(Float64(t_m / z) * Float64(x - y)); else tmp = fma(Float64(Float64(-t_m) / y), x, t_m); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -5e+43], N[((-t$95$m) * N[(x / y), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, 8e-5], N[(N[(t$95$m / z), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision], N[(N[((-t$95$m) / y), $MachinePrecision] * x + t$95$m), $MachinePrecision]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -5 \cdot 10^{+43}:\\
\;\;\;\;\left(-t\_m\right) \cdot \frac{x}{y}\\
\mathbf{elif}\;t\_2 \leq 8 \cdot 10^{-5}:\\
\;\;\;\;\frac{t\_m}{z} \cdot \left(x - y\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{-t\_m}{y}, x, t\_m\right)\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5.0000000000000004e43Initial program 96.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6462.7
Applied rewrites62.7%
Taylor expanded in x around inf
Applied rewrites62.7%
if -5.0000000000000004e43 < (/.f64 (-.f64 x y) (-.f64 z y)) < 8.00000000000000065e-5Initial program 99.4%
Taylor expanded in z around inf
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
lower--.f6487.3
Applied rewrites87.3%
Applied rewrites88.5%
if 8.00000000000000065e-5 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 96.4%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6483.9
Applied rewrites83.9%
Taylor expanded in z around 0
Applied rewrites82.9%
Final simplification82.2%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 -5e+43)
(* (- t_m) (/ x y))
(if (<= t_2 5e-8) (* (/ x z) t_m) (fma (/ (- t_m) y) x t_m))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= -5e+43) {
tmp = -t_m * (x / y);
} else if (t_2 <= 5e-8) {
tmp = (x / z) * t_m;
} else {
tmp = fma((-t_m / y), x, t_m);
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= -5e+43) tmp = Float64(Float64(-t_m) * Float64(x / y)); elseif (t_2 <= 5e-8) tmp = Float64(Float64(x / z) * t_m); else tmp = fma(Float64(Float64(-t_m) / y), x, t_m); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, -5e+43], N[((-t$95$m) * N[(x / y), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, 5e-8], N[(N[(x / z), $MachinePrecision] * t$95$m), $MachinePrecision], N[(N[((-t$95$m) / y), $MachinePrecision] * x + t$95$m), $MachinePrecision]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -5 \cdot 10^{+43}:\\
\;\;\;\;\left(-t\_m\right) \cdot \frac{x}{y}\\
\mathbf{elif}\;t\_2 \leq 5 \cdot 10^{-8}:\\
\;\;\;\;\frac{x}{z} \cdot t\_m\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\frac{-t\_m}{y}, x, t\_m\right)\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < -5.0000000000000004e43Initial program 96.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6462.7
Applied rewrites62.7%
Taylor expanded in x around inf
Applied rewrites62.7%
if -5.0000000000000004e43 < (/.f64 (-.f64 x y) (-.f64 z y)) < 4.9999999999999998e-8Initial program 99.4%
Taylor expanded in y around 0
lower-/.f6466.8
Applied rewrites66.8%
if 4.9999999999999998e-8 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 96.4%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6483.2
Applied rewrites83.2%
Taylor expanded in z around 0
Applied rewrites82.4%
Final simplification74.7%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 0.4)
(* (/ x z) t_m)
(if (<= t_2 200.0) (fma (/ z y) t_m t_m) (* (/ t_m z) x))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= 0.4) {
tmp = (x / z) * t_m;
} else if (t_2 <= 200.0) {
tmp = fma((z / y), t_m, t_m);
} else {
tmp = (t_m / z) * x;
}
return t_s * tmp;
}
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= 0.4) tmp = Float64(Float64(x / z) * t_m); elseif (t_2 <= 200.0) tmp = fma(Float64(z / y), t_m, t_m); else tmp = Float64(Float64(t_m / z) * x); end return Float64(t_s * tmp) end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, 0.4], N[(N[(x / z), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 200.0], N[(N[(z / y), $MachinePrecision] * t$95$m + t$95$m), $MachinePrecision], N[(N[(t$95$m / z), $MachinePrecision] * x), $MachinePrecision]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq 0.4:\\
\;\;\;\;\frac{x}{z} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 200:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{y}, t\_m, t\_m\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m}{z} \cdot x\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < 0.40000000000000002Initial program 98.7%
Taylor expanded in y around 0
lower-/.f6459.1
Applied rewrites59.1%
if 0.40000000000000002 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
associate--l+N/A
distribute-lft-out--N/A
div-subN/A
+-commutativeN/A
mul-1-negN/A
distribute-lft-out--N/A
associate-/l*N/A
distribute-lft-neg-inN/A
lower-fma.f64N/A
lower-neg.f64N/A
lower-/.f64N/A
lower--.f6498.9
Applied rewrites98.9%
Taylor expanded in x around 0
Applied rewrites95.1%
if 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6497.6
Applied rewrites97.6%
Taylor expanded in y around 0
Applied rewrites61.4%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (or (<= t_2 5e-8) (not (<= t_2 200.0))) (* (/ t_m z) x) (* 1.0 t_m)))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if ((t_2 <= 5e-8) || !(t_2 <= 200.0)) {
tmp = (t_m / z) * x;
} else {
tmp = 1.0 * t_m;
}
return t_s * tmp;
}
t\_m = abs(t)
t\_s = copysign(1.0d0, t)
real(8) function code(t_s, x, y, z, t_m)
real(8), intent (in) :: t_s
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t_m
real(8) :: t_2
real(8) :: tmp
t_2 = (x - y) / (z - y)
if ((t_2 <= 5d-8) .or. (.not. (t_2 <= 200.0d0))) then
tmp = (t_m / z) * x
else
tmp = 1.0d0 * t_m
end if
code = t_s * tmp
end function
t\_m = Math.abs(t);
t\_s = Math.copySign(1.0, t);
public static double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if ((t_2 <= 5e-8) || !(t_2 <= 200.0)) {
tmp = (t_m / z) * x;
} else {
tmp = 1.0 * t_m;
}
return t_s * tmp;
}
t\_m = math.fabs(t) t\_s = math.copysign(1.0, t) def code(t_s, x, y, z, t_m): t_2 = (x - y) / (z - y) tmp = 0 if (t_2 <= 5e-8) or not (t_2 <= 200.0): tmp = (t_m / z) * x else: tmp = 1.0 * t_m return t_s * tmp
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if ((t_2 <= 5e-8) || !(t_2 <= 200.0)) tmp = Float64(Float64(t_m / z) * x); else tmp = Float64(1.0 * t_m); end return Float64(t_s * tmp) end
t\_m = abs(t); t\_s = sign(t) * abs(1.0); function tmp_2 = code(t_s, x, y, z, t_m) t_2 = (x - y) / (z - y); tmp = 0.0; if ((t_2 <= 5e-8) || ~((t_2 <= 200.0))) tmp = (t_m / z) * x; else tmp = 1.0 * t_m; end tmp_2 = t_s * tmp; end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[Or[LessEqual[t$95$2, 5e-8], N[Not[LessEqual[t$95$2, 200.0]], $MachinePrecision]], N[(N[(t$95$m / z), $MachinePrecision] * x), $MachinePrecision], N[(1.0 * t$95$m), $MachinePrecision]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq 5 \cdot 10^{-8} \lor \neg \left(t\_2 \leq 200\right):\\
\;\;\;\;\frac{t\_m}{z} \cdot x\\
\mathbf{else}:\\
\;\;\;\;1 \cdot t\_m\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < 4.9999999999999998e-8 or 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 96.1%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6478.1
Applied rewrites78.1%
Taylor expanded in y around 0
Applied rewrites58.2%
if 4.9999999999999998e-8 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
Applied rewrites91.5%
Final simplification70.2%
t\_m = (fabs.f64 t)
t\_s = (copysign.f64 #s(literal 1 binary64) t)
(FPCore (t_s x y z t_m)
:precision binary64
(let* ((t_2 (/ (- x y) (- z y))))
(*
t_s
(if (<= t_2 5e-8)
(* (/ x z) t_m)
(if (<= t_2 200.0) (* 1.0 t_m) (* (/ t_m z) x))))))t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= 5e-8) {
tmp = (x / z) * t_m;
} else if (t_2 <= 200.0) {
tmp = 1.0 * t_m;
} else {
tmp = (t_m / z) * x;
}
return t_s * tmp;
}
t\_m = abs(t)
t\_s = copysign(1.0d0, t)
real(8) function code(t_s, x, y, z, t_m)
real(8), intent (in) :: t_s
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t_m
real(8) :: t_2
real(8) :: tmp
t_2 = (x - y) / (z - y)
if (t_2 <= 5d-8) then
tmp = (x / z) * t_m
else if (t_2 <= 200.0d0) then
tmp = 1.0d0 * t_m
else
tmp = (t_m / z) * x
end if
code = t_s * tmp
end function
t\_m = Math.abs(t);
t\_s = Math.copySign(1.0, t);
public static double code(double t_s, double x, double y, double z, double t_m) {
double t_2 = (x - y) / (z - y);
double tmp;
if (t_2 <= 5e-8) {
tmp = (x / z) * t_m;
} else if (t_2 <= 200.0) {
tmp = 1.0 * t_m;
} else {
tmp = (t_m / z) * x;
}
return t_s * tmp;
}
t\_m = math.fabs(t) t\_s = math.copysign(1.0, t) def code(t_s, x, y, z, t_m): t_2 = (x - y) / (z - y) tmp = 0 if t_2 <= 5e-8: tmp = (x / z) * t_m elif t_2 <= 200.0: tmp = 1.0 * t_m else: tmp = (t_m / z) * x return t_s * tmp
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) t_2 = Float64(Float64(x - y) / Float64(z - y)) tmp = 0.0 if (t_2 <= 5e-8) tmp = Float64(Float64(x / z) * t_m); elseif (t_2 <= 200.0) tmp = Float64(1.0 * t_m); else tmp = Float64(Float64(t_m / z) * x); end return Float64(t_s * tmp) end
t\_m = abs(t); t\_s = sign(t) * abs(1.0); function tmp_2 = code(t_s, x, y, z, t_m) t_2 = (x - y) / (z - y); tmp = 0.0; if (t_2 <= 5e-8) tmp = (x / z) * t_m; elseif (t_2 <= 200.0) tmp = 1.0 * t_m; else tmp = (t_m / z) * x; end tmp_2 = t_s * tmp; end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := Block[{t$95$2 = N[(N[(x - y), $MachinePrecision] / N[(z - y), $MachinePrecision]), $MachinePrecision]}, N[(t$95$s * If[LessEqual[t$95$2, 5e-8], N[(N[(x / z), $MachinePrecision] * t$95$m), $MachinePrecision], If[LessEqual[t$95$2, 200.0], N[(1.0 * t$95$m), $MachinePrecision], N[(N[(t$95$m / z), $MachinePrecision] * x), $MachinePrecision]]]), $MachinePrecision]]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
\begin{array}{l}
t_2 := \frac{x - y}{z - y}\\
t\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq 5 \cdot 10^{-8}:\\
\;\;\;\;\frac{x}{z} \cdot t\_m\\
\mathbf{elif}\;t\_2 \leq 200:\\
\;\;\;\;1 \cdot t\_m\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_m}{z} \cdot x\\
\end{array}
\end{array}
\end{array}
if (/.f64 (-.f64 x y) (-.f64 z y)) < 4.9999999999999998e-8Initial program 98.7%
Taylor expanded in y around 0
lower-/.f6460.5
Applied rewrites60.5%
if 4.9999999999999998e-8 < (/.f64 (-.f64 x y) (-.f64 z y)) < 200Initial program 99.9%
Taylor expanded in y around inf
Applied rewrites91.5%
if 200 < (/.f64 (-.f64 x y) (-.f64 z y)) Initial program 89.4%
Taylor expanded in x around inf
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
lower--.f6497.6
Applied rewrites97.6%
Taylor expanded in y around 0
Applied rewrites61.4%
t\_m = (fabs.f64 t) t\_s = (copysign.f64 #s(literal 1 binary64) t) (FPCore (t_s x y z t_m) :precision binary64 (* t_s (* 1.0 t_m)))
t\_m = fabs(t);
t\_s = copysign(1.0, t);
double code(double t_s, double x, double y, double z, double t_m) {
return t_s * (1.0 * t_m);
}
t\_m = abs(t)
t\_s = copysign(1.0d0, t)
real(8) function code(t_s, x, y, z, t_m)
real(8), intent (in) :: t_s
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t_m
code = t_s * (1.0d0 * t_m)
end function
t\_m = Math.abs(t);
t\_s = Math.copySign(1.0, t);
public static double code(double t_s, double x, double y, double z, double t_m) {
return t_s * (1.0 * t_m);
}
t\_m = math.fabs(t) t\_s = math.copysign(1.0, t) def code(t_s, x, y, z, t_m): return t_s * (1.0 * t_m)
t\_m = abs(t) t\_s = copysign(1.0, t) function code(t_s, x, y, z, t_m) return Float64(t_s * Float64(1.0 * t_m)) end
t\_m = abs(t); t\_s = sign(t) * abs(1.0); function tmp = code(t_s, x, y, z, t_m) tmp = t_s * (1.0 * t_m); end
t\_m = N[Abs[t], $MachinePrecision]
t\_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[t]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[t$95$s_, x_, y_, z_, t$95$m_] := N[(t$95$s * N[(1.0 * t$95$m), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
t\_m = \left|t\right|
\\
t\_s = \mathsf{copysign}\left(1, t\right)
\\
t\_s \cdot \left(1 \cdot t\_m\right)
\end{array}
Initial program 97.5%
Taylor expanded in y around inf
Applied rewrites35.5%
(FPCore (x y z t) :precision binary64 (/ t (/ (- z y) (- x y))))
double code(double x, double y, double z, double t) {
return t / ((z - y) / (x - y));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = t / ((z - y) / (x - y))
end function
public static double code(double x, double y, double z, double t) {
return t / ((z - y) / (x - y));
}
def code(x, y, z, t): return t / ((z - y) / (x - y))
function code(x, y, z, t) return Float64(t / Float64(Float64(z - y) / Float64(x - y))) end
function tmp = code(x, y, z, t) tmp = t / ((z - y) / (x - y)); end
code[x_, y_, z_, t_] := N[(t / N[(N[(z - y), $MachinePrecision] / N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{t}{\frac{z - y}{x - y}}
\end{array}
herbie shell --seed 2024338
(FPCore (x y z t)
:name "Numeric.Signal.Multichannel:$cput from hsignal-0.2.7.1"
:precision binary64
:alt
(! :herbie-platform default (/ t (/ (- z y) (- x y))))
(* (/ (- x y) (- z y)) t))