
(FPCore (x y z t a b) :precision binary64 (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))))
double code(double x, double y, double z, double t, double a, double b) {
return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(x, y, z, t, a, b)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (x + ((y * z) / t)) / ((a + 1.0d0) + ((y * b) / t))
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
}
def code(x, y, z, t, a, b): return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t))
function code(x, y, z, t, a, b) return Float64(Float64(x + Float64(Float64(y * z) / t)) / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) end
function tmp = code(x, y, z, t, a, b) tmp = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t)); end
code[x_, y_, z_, t_, a_, b_] := N[(N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision] / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y * b), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 16 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a b) :precision binary64 (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))))
double code(double x, double y, double z, double t, double a, double b) {
return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(x, y, z, t, a, b)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (x + ((y * z) / t)) / ((a + 1.0d0) + ((y * b) / t))
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
}
def code(x, y, z, t, a, b): return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t))
function code(x, y, z, t, a, b) return Float64(Float64(x + Float64(Float64(y * z) / t)) / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) end
function tmp = code(x, y, z, t, a, b) tmp = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t)); end
code[x_, y_, z_, t_, a_, b_] := N[(N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision] / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y * b), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}}
\end{array}
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (+ x (/ (* y z) t)))
(t_2 (/ t_1 (+ (+ a 1.0) (/ (* y b) t))))
(t_3 (fma (/ b t) y (+ a 1.0))))
(if (<= t_2 (- INFINITY))
(* (+ (/ y (* t_3 t)) (/ x (* t_3 z))) z)
(if (<= t_2 1e+265)
(/ t_1 (fma y (/ b t) (+ 1.0 a)))
(if (<= t_2 INFINITY)
(fma y (/ z (* y (+ b (/ (* t (+ 1.0 a)) y)))) (/ x t_3))
(/ z b))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x + ((y * z) / t);
double t_2 = t_1 / ((a + 1.0) + ((y * b) / t));
double t_3 = fma((b / t), y, (a + 1.0));
double tmp;
if (t_2 <= -((double) INFINITY)) {
tmp = ((y / (t_3 * t)) + (x / (t_3 * z))) * z;
} else if (t_2 <= 1e+265) {
tmp = t_1 / fma(y, (b / t), (1.0 + a));
} else if (t_2 <= ((double) INFINITY)) {
tmp = fma(y, (z / (y * (b + ((t * (1.0 + a)) / y)))), (x / t_3));
} else {
tmp = z / b;
}
return tmp;
}
function code(x, y, z, t, a, b) t_1 = Float64(x + Float64(Float64(y * z) / t)) t_2 = Float64(t_1 / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) t_3 = fma(Float64(b / t), y, Float64(a + 1.0)) tmp = 0.0 if (t_2 <= Float64(-Inf)) tmp = Float64(Float64(Float64(y / Float64(t_3 * t)) + Float64(x / Float64(t_3 * z))) * z); elseif (t_2 <= 1e+265) tmp = Float64(t_1 / fma(y, Float64(b / t), Float64(1.0 + a))); elseif (t_2 <= Inf) tmp = fma(y, Float64(z / Float64(y * Float64(b + Float64(Float64(t * Float64(1.0 + a)) / y)))), Float64(x / t_3)); else tmp = Float64(z / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y * b), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(b / t), $MachinePrecision] * y + N[(a + 1.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, (-Infinity)], N[(N[(N[(y / N[(t$95$3 * t), $MachinePrecision]), $MachinePrecision] + N[(x / N[(t$95$3 * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * z), $MachinePrecision], If[LessEqual[t$95$2, 1e+265], N[(t$95$1 / N[(y * N[(b / t), $MachinePrecision] + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, Infinity], N[(y * N[(z / N[(y * N[(b + N[(N[(t * N[(1.0 + a), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x / t$95$3), $MachinePrecision]), $MachinePrecision], N[(z / b), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{y \cdot z}{t}\\
t_2 := \frac{t\_1}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
t_3 := \mathsf{fma}\left(\frac{b}{t}, y, a + 1\right)\\
\mathbf{if}\;t\_2 \leq -\infty:\\
\;\;\;\;\left(\frac{y}{t\_3 \cdot t} + \frac{x}{t\_3 \cdot z}\right) \cdot z\\
\mathbf{elif}\;t\_2 \leq 10^{+265}:\\
\;\;\;\;\frac{t\_1}{\mathsf{fma}\left(y, \frac{b}{t}, 1 + a\right)}\\
\mathbf{elif}\;t\_2 \leq \infty:\\
\;\;\;\;\mathsf{fma}\left(y, \frac{z}{y \cdot \left(b + \frac{t \cdot \left(1 + a\right)}{y}\right)}, \frac{x}{t\_3}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{z}{b}\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -inf.0Initial program 39.1%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6438.8
Applied rewrites38.8%
Taylor expanded in z around inf
associate-*r/N/A
+-commutativeN/A
+-commutativeN/A
*-commutativeN/A
lower-*.f64N/A
Applied rewrites85.7%
if -inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.00000000000000007e265Initial program 92.1%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6493.0
Applied rewrites93.0%
if 1.00000000000000007e265 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < +inf.0Initial program 18.6%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6418.6
Applied rewrites18.6%
lift-/.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-/.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
div-addN/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
Applied rewrites94.9%
Taylor expanded in y around inf
lower-*.f64N/A
lower-+.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lift-+.f6495.1
Applied rewrites95.1%
if +inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 0.0%
Taylor expanded in y around inf
lower-/.f64100.0
Applied rewrites100.0%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (+ x (/ (* y z) t)))
(t_2 (/ t_1 (+ (+ a 1.0) (/ (* y b) t))))
(t_3
(fma
y
(/ z (* y (+ b (/ (* t (+ 1.0 a)) y))))
(/ x (fma (/ b t) y (+ a 1.0))))))
(if (<= t_2 (- INFINITY))
t_3
(if (<= t_2 1e+265)
(/ t_1 (fma y (/ b t) (+ 1.0 a)))
(if (<= t_2 INFINITY) t_3 (/ z b))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x + ((y * z) / t);
double t_2 = t_1 / ((a + 1.0) + ((y * b) / t));
double t_3 = fma(y, (z / (y * (b + ((t * (1.0 + a)) / y)))), (x / fma((b / t), y, (a + 1.0))));
double tmp;
if (t_2 <= -((double) INFINITY)) {
tmp = t_3;
} else if (t_2 <= 1e+265) {
tmp = t_1 / fma(y, (b / t), (1.0 + a));
} else if (t_2 <= ((double) INFINITY)) {
tmp = t_3;
} else {
tmp = z / b;
}
return tmp;
}
function code(x, y, z, t, a, b) t_1 = Float64(x + Float64(Float64(y * z) / t)) t_2 = Float64(t_1 / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) t_3 = fma(y, Float64(z / Float64(y * Float64(b + Float64(Float64(t * Float64(1.0 + a)) / y)))), Float64(x / fma(Float64(b / t), y, Float64(a + 1.0)))) tmp = 0.0 if (t_2 <= Float64(-Inf)) tmp = t_3; elseif (t_2 <= 1e+265) tmp = Float64(t_1 / fma(y, Float64(b / t), Float64(1.0 + a))); elseif (t_2 <= Inf) tmp = t_3; else tmp = Float64(z / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y * b), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y * N[(z / N[(y * N[(b + N[(N[(t * N[(1.0 + a), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x / N[(N[(b / t), $MachinePrecision] * y + N[(a + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, (-Infinity)], t$95$3, If[LessEqual[t$95$2, 1e+265], N[(t$95$1 / N[(y * N[(b / t), $MachinePrecision] + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, Infinity], t$95$3, N[(z / b), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{y \cdot z}{t}\\
t_2 := \frac{t\_1}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
t_3 := \mathsf{fma}\left(y, \frac{z}{y \cdot \left(b + \frac{t \cdot \left(1 + a\right)}{y}\right)}, \frac{x}{\mathsf{fma}\left(\frac{b}{t}, y, a + 1\right)}\right)\\
\mathbf{if}\;t\_2 \leq -\infty:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t\_2 \leq 10^{+265}:\\
\;\;\;\;\frac{t\_1}{\mathsf{fma}\left(y, \frac{b}{t}, 1 + a\right)}\\
\mathbf{elif}\;t\_2 \leq \infty:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;\frac{z}{b}\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -inf.0 or 1.00000000000000007e265 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < +inf.0Initial program 26.6%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6426.4
Applied rewrites26.4%
lift-/.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-/.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
div-addN/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
Applied rewrites88.8%
Taylor expanded in y around inf
lower-*.f64N/A
lower-+.f64N/A
lower-/.f64N/A
lower-*.f64N/A
lift-+.f6489.1
Applied rewrites89.1%
if -inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.00000000000000007e265Initial program 92.1%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6493.0
Applied rewrites93.0%
if +inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 0.0%
Taylor expanded in y around inf
lower-/.f64100.0
Applied rewrites100.0%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (fma (/ b t) y (+ a 1.0)))
(t_2 (+ x (/ (* y z) t)))
(t_3 (/ t_2 (+ (+ a 1.0) (/ (* y b) t))))
(t_4 (fma y (/ z (* t_1 t)) (/ x t_1))))
(if (<= t_3 (- INFINITY))
t_4
(if (<= t_3 1e+265)
(/ t_2 (fma y (/ b t) (+ 1.0 a)))
(if (<= t_3 INFINITY) t_4 (/ z b))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = fma((b / t), y, (a + 1.0));
double t_2 = x + ((y * z) / t);
double t_3 = t_2 / ((a + 1.0) + ((y * b) / t));
double t_4 = fma(y, (z / (t_1 * t)), (x / t_1));
double tmp;
if (t_3 <= -((double) INFINITY)) {
tmp = t_4;
} else if (t_3 <= 1e+265) {
tmp = t_2 / fma(y, (b / t), (1.0 + a));
} else if (t_3 <= ((double) INFINITY)) {
tmp = t_4;
} else {
tmp = z / b;
}
return tmp;
}
function code(x, y, z, t, a, b) t_1 = fma(Float64(b / t), y, Float64(a + 1.0)) t_2 = Float64(x + Float64(Float64(y * z) / t)) t_3 = Float64(t_2 / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) t_4 = fma(y, Float64(z / Float64(t_1 * t)), Float64(x / t_1)) tmp = 0.0 if (t_3 <= Float64(-Inf)) tmp = t_4; elseif (t_3 <= 1e+265) tmp = Float64(t_2 / fma(y, Float64(b / t), Float64(1.0 + a))); elseif (t_3 <= Inf) tmp = t_4; else tmp = Float64(z / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(N[(b / t), $MachinePrecision] * y + N[(a + 1.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$2 / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y * b), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(y * N[(z / N[(t$95$1 * t), $MachinePrecision]), $MachinePrecision] + N[(x / t$95$1), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$3, (-Infinity)], t$95$4, If[LessEqual[t$95$3, 1e+265], N[(t$95$2 / N[(y * N[(b / t), $MachinePrecision] + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$3, Infinity], t$95$4, N[(z / b), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \mathsf{fma}\left(\frac{b}{t}, y, a + 1\right)\\
t_2 := x + \frac{y \cdot z}{t}\\
t_3 := \frac{t\_2}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
t_4 := \mathsf{fma}\left(y, \frac{z}{t\_1 \cdot t}, \frac{x}{t\_1}\right)\\
\mathbf{if}\;t\_3 \leq -\infty:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t\_3 \leq 10^{+265}:\\
\;\;\;\;\frac{t\_2}{\mathsf{fma}\left(y, \frac{b}{t}, 1 + a\right)}\\
\mathbf{elif}\;t\_3 \leq \infty:\\
\;\;\;\;t\_4\\
\mathbf{else}:\\
\;\;\;\;\frac{z}{b}\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -inf.0 or 1.00000000000000007e265 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < +inf.0Initial program 26.6%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6426.4
Applied rewrites26.4%
lift-/.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-/.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
div-addN/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
Applied rewrites88.8%
if -inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.00000000000000007e265Initial program 92.1%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6493.0
Applied rewrites93.0%
if +inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 0.0%
Taylor expanded in y around inf
lower-/.f64100.0
Applied rewrites100.0%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (+ x (/ (* y z) t))) (t_2 (/ t_1 (+ (+ a 1.0) (/ (* y b) t)))))
(if (<= t_2 (- INFINITY))
(/ z b)
(if (<= t_2 2e+267)
(/ t_1 (fma y (/ b t) (+ 1.0 a)))
(if (<= t_2 INFINITY)
(fma y (/ z (* (fma (/ b t) y (+ a 1.0)) t)) (/ x a))
(/ z b))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x + ((y * z) / t);
double t_2 = t_1 / ((a + 1.0) + ((y * b) / t));
double tmp;
if (t_2 <= -((double) INFINITY)) {
tmp = z / b;
} else if (t_2 <= 2e+267) {
tmp = t_1 / fma(y, (b / t), (1.0 + a));
} else if (t_2 <= ((double) INFINITY)) {
tmp = fma(y, (z / (fma((b / t), y, (a + 1.0)) * t)), (x / a));
} else {
tmp = z / b;
}
return tmp;
}
function code(x, y, z, t, a, b) t_1 = Float64(x + Float64(Float64(y * z) / t)) t_2 = Float64(t_1 / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) tmp = 0.0 if (t_2 <= Float64(-Inf)) tmp = Float64(z / b); elseif (t_2 <= 2e+267) tmp = Float64(t_1 / fma(y, Float64(b / t), Float64(1.0 + a))); elseif (t_2 <= Inf) tmp = fma(y, Float64(z / Float64(fma(Float64(b / t), y, Float64(a + 1.0)) * t)), Float64(x / a)); else tmp = Float64(z / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y * b), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, (-Infinity)], N[(z / b), $MachinePrecision], If[LessEqual[t$95$2, 2e+267], N[(t$95$1 / N[(y * N[(b / t), $MachinePrecision] + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, Infinity], N[(y * N[(z / N[(N[(N[(b / t), $MachinePrecision] * y + N[(a + 1.0), $MachinePrecision]), $MachinePrecision] * t), $MachinePrecision]), $MachinePrecision] + N[(x / a), $MachinePrecision]), $MachinePrecision], N[(z / b), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{y \cdot z}{t}\\
t_2 := \frac{t\_1}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
\mathbf{if}\;t\_2 \leq -\infty:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{elif}\;t\_2 \leq 2 \cdot 10^{+267}:\\
\;\;\;\;\frac{t\_1}{\mathsf{fma}\left(y, \frac{b}{t}, 1 + a\right)}\\
\mathbf{elif}\;t\_2 \leq \infty:\\
\;\;\;\;\mathsf{fma}\left(y, \frac{z}{\mathsf{fma}\left(\frac{b}{t}, y, a + 1\right) \cdot t}, \frac{x}{a}\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{z}{b}\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -inf.0 or +inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 14.4%
Taylor expanded in y around inf
lower-/.f6492.4
Applied rewrites92.4%
if -inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.9999999999999999e267Initial program 92.1%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6493.1
Applied rewrites93.1%
if 1.9999999999999999e267 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < +inf.0Initial program 14.7%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6414.7
Applied rewrites14.7%
lift-/.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-/.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
div-addN/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
Applied rewrites94.6%
Taylor expanded in a around inf
Applied rewrites85.0%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (+ x (/ (* y z) t))) (t_2 (/ t_1 (+ (+ a 1.0) (/ (* y b) t)))))
(if (<= t_2 (- INFINITY))
(/ z b)
(if (<= t_2 2e+267)
(/ t_1 (fma y (/ b t) (+ 1.0 a)))
(if (<= t_2 INFINITY)
(* (/ y t) (/ z (fma (/ b t) y (+ a 1.0))))
(/ z b))))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = x + ((y * z) / t);
double t_2 = t_1 / ((a + 1.0) + ((y * b) / t));
double tmp;
if (t_2 <= -((double) INFINITY)) {
tmp = z / b;
} else if (t_2 <= 2e+267) {
tmp = t_1 / fma(y, (b / t), (1.0 + a));
} else if (t_2 <= ((double) INFINITY)) {
tmp = (y / t) * (z / fma((b / t), y, (a + 1.0)));
} else {
tmp = z / b;
}
return tmp;
}
function code(x, y, z, t, a, b) t_1 = Float64(x + Float64(Float64(y * z) / t)) t_2 = Float64(t_1 / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) tmp = 0.0 if (t_2 <= Float64(-Inf)) tmp = Float64(z / b); elseif (t_2 <= 2e+267) tmp = Float64(t_1 / fma(y, Float64(b / t), Float64(1.0 + a))); elseif (t_2 <= Inf) tmp = Float64(Float64(y / t) * Float64(z / fma(Float64(b / t), y, Float64(a + 1.0)))); else tmp = Float64(z / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y * b), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, (-Infinity)], N[(z / b), $MachinePrecision], If[LessEqual[t$95$2, 2e+267], N[(t$95$1 / N[(y * N[(b / t), $MachinePrecision] + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, Infinity], N[(N[(y / t), $MachinePrecision] * N[(z / N[(N[(b / t), $MachinePrecision] * y + N[(a + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(z / b), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x + \frac{y \cdot z}{t}\\
t_2 := \frac{t\_1}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
\mathbf{if}\;t\_2 \leq -\infty:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{elif}\;t\_2 \leq 2 \cdot 10^{+267}:\\
\;\;\;\;\frac{t\_1}{\mathsf{fma}\left(y, \frac{b}{t}, 1 + a\right)}\\
\mathbf{elif}\;t\_2 \leq \infty:\\
\;\;\;\;\frac{y}{t} \cdot \frac{z}{\mathsf{fma}\left(\frac{b}{t}, y, a + 1\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{z}{b}\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -inf.0 or +inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 14.4%
Taylor expanded in y around inf
lower-/.f6492.4
Applied rewrites92.4%
if -inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.9999999999999999e267Initial program 92.1%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6493.1
Applied rewrites93.1%
if 1.9999999999999999e267 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < +inf.0Initial program 14.7%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6414.7
Applied rewrites14.7%
Taylor expanded in x around 0
associate-*r/N/A
+-commutativeN/A
+-commutativeN/A
times-fracN/A
lower-*.f64N/A
lower-/.f64N/A
lower-/.f64N/A
associate-+r+N/A
*-commutativeN/A
+-commutativeN/A
associate-*r/N/A
*-commutativeN/A
lower-fma.f64N/A
lift-/.f64N/A
+-commutativeN/A
lift-+.f6464.0
Applied rewrites64.0%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t)))))
(if (<= t_1 (- INFINITY))
(/ z b)
(if (<= t_1 2e+267)
(/ x (fma b (/ y t) (+ 1.0 a)))
(/ (fma t (/ x y) z) b)))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = z / b;
} else if (t_1 <= 2e+267) {
tmp = x / fma(b, (y / t), (1.0 + a));
} else {
tmp = fma(t, (x / y), z) / b;
}
return tmp;
}
function code(x, y, z, t, a, b) t_1 = Float64(Float64(x + Float64(Float64(y * z) / t)) / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(z / b); elseif (t_1 <= 2e+267) tmp = Float64(x / fma(b, Float64(y / t), Float64(1.0 + a))); else tmp = Float64(fma(t, Float64(x / y), z) / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision] / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y * b), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], N[(z / b), $MachinePrecision], If[LessEqual[t$95$1, 2e+267], N[(x / N[(b * N[(y / t), $MachinePrecision] + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}}\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{+267}:\\
\;\;\;\;\frac{x}{\mathsf{fma}\left(b, \frac{y}{t}, 1 + a\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -inf.0Initial program 39.1%
Taylor expanded in y around inf
lower-/.f6479.3
Applied rewrites79.3%
if -inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.9999999999999999e267Initial program 92.1%
Taylor expanded in x around inf
lower-/.f64N/A
associate-+r+N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6465.4
Applied rewrites65.4%
if 1.9999999999999999e267 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 6.9%
Taylor expanded in y around inf
associate--l+N/A
lower-+.f64N/A
lower-/.f64N/A
associate-/r*N/A
associate-/r*N/A
sub-divN/A
lower-/.f64N/A
Applied rewrites46.8%
Taylor expanded in b around inf
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f6471.9
Applied rewrites71.9%
(FPCore (x y z t a b)
:precision binary64
(if (<= y -5e+58)
(/ (+ z (/ (* t x) y)) b)
(if (<= y 9.5e-47)
(/ x (+ 1.0 a))
(if (<= y 1.5e+112) (/ (fma y (/ z t) x) a) (/ (fma t (/ x y) z) b)))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (y <= -5e+58) {
tmp = (z + ((t * x) / y)) / b;
} else if (y <= 9.5e-47) {
tmp = x / (1.0 + a);
} else if (y <= 1.5e+112) {
tmp = fma(y, (z / t), x) / a;
} else {
tmp = fma(t, (x / y), z) / b;
}
return tmp;
}
function code(x, y, z, t, a, b) tmp = 0.0 if (y <= -5e+58) tmp = Float64(Float64(z + Float64(Float64(t * x) / y)) / b); elseif (y <= 9.5e-47) tmp = Float64(x / Float64(1.0 + a)); elseif (y <= 1.5e+112) tmp = Float64(fma(y, Float64(z / t), x) / a); else tmp = Float64(fma(t, Float64(x / y), z) / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := If[LessEqual[y, -5e+58], N[(N[(z + N[(N[(t * x), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision] / b), $MachinePrecision], If[LessEqual[y, 9.5e-47], N[(x / N[(1.0 + a), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.5e+112], N[(N[(y * N[(z / t), $MachinePrecision] + x), $MachinePrecision] / a), $MachinePrecision], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -5 \cdot 10^{+58}:\\
\;\;\;\;\frac{z + \frac{t \cdot x}{y}}{b}\\
\mathbf{elif}\;y \leq 9.5 \cdot 10^{-47}:\\
\;\;\;\;\frac{x}{1 + a}\\
\mathbf{elif}\;y \leq 1.5 \cdot 10^{+112}:\\
\;\;\;\;\frac{\mathsf{fma}\left(y, \frac{z}{t}, x\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\end{array}
\end{array}
if y < -4.99999999999999986e58Initial program 31.7%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6433.9
Applied rewrites33.9%
lift-/.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-/.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
div-addN/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
Applied rewrites53.9%
Taylor expanded in b around inf
lower-/.f64N/A
lower-+.f64N/A
lower-/.f64N/A
lower-*.f6473.9
Applied rewrites73.9%
if -4.99999999999999986e58 < y < 9.4999999999999991e-47Initial program 92.5%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6464.5
Applied rewrites64.5%
if 9.4999999999999991e-47 < y < 1.4999999999999999e112Initial program 82.3%
Taylor expanded in a around inf
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f6450.4
Applied rewrites50.4%
if 1.4999999999999999e112 < y Initial program 47.5%
Taylor expanded in y around inf
associate--l+N/A
lower-+.f64N/A
lower-/.f64N/A
associate-/r*N/A
associate-/r*N/A
sub-divN/A
lower-/.f64N/A
Applied rewrites38.7%
Taylor expanded in b around inf
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f6469.6
Applied rewrites69.6%
Final simplification65.1%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (/ (fma t (/ x y) z) b)))
(if (<= y -5e+58)
t_1
(if (<= y 9.5e-47)
(/ x (+ 1.0 a))
(if (<= y 1.5e+112) (/ (fma y (/ z t) x) a) t_1)))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = fma(t, (x / y), z) / b;
double tmp;
if (y <= -5e+58) {
tmp = t_1;
} else if (y <= 9.5e-47) {
tmp = x / (1.0 + a);
} else if (y <= 1.5e+112) {
tmp = fma(y, (z / t), x) / a;
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t, a, b) t_1 = Float64(fma(t, Float64(x / y), z) / b) tmp = 0.0 if (y <= -5e+58) tmp = t_1; elseif (y <= 9.5e-47) tmp = Float64(x / Float64(1.0 + a)); elseif (y <= 1.5e+112) tmp = Float64(fma(y, Float64(z / t), x) / a); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision]}, If[LessEqual[y, -5e+58], t$95$1, If[LessEqual[y, 9.5e-47], N[(x / N[(1.0 + a), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.5e+112], N[(N[(y * N[(z / t), $MachinePrecision] + x), $MachinePrecision] / a), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\mathbf{if}\;y \leq -5 \cdot 10^{+58}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 9.5 \cdot 10^{-47}:\\
\;\;\;\;\frac{x}{1 + a}\\
\mathbf{elif}\;y \leq 1.5 \cdot 10^{+112}:\\
\;\;\;\;\frac{\mathsf{fma}\left(y, \frac{z}{t}, x\right)}{a}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -4.99999999999999986e58 or 1.4999999999999999e112 < y Initial program 38.9%
Taylor expanded in y around inf
associate--l+N/A
lower-+.f64N/A
lower-/.f64N/A
associate-/r*N/A
associate-/r*N/A
sub-divN/A
lower-/.f64N/A
Applied rewrites45.1%
Taylor expanded in b around inf
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f6472.0
Applied rewrites72.0%
if -4.99999999999999986e58 < y < 9.4999999999999991e-47Initial program 92.5%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6464.5
Applied rewrites64.5%
if 9.4999999999999991e-47 < y < 1.4999999999999999e112Initial program 82.3%
Taylor expanded in a around inf
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f6450.4
Applied rewrites50.4%
(FPCore (x y z t a b)
:precision binary64
(if (<= y -8.6e+58)
(/ (+ z (/ (* t x) y)) b)
(if (<= y 1.5e+112)
(/ (+ x (/ (* y z) t)) (+ 1.0 a))
(/ (fma t (/ x y) z) b))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (y <= -8.6e+58) {
tmp = (z + ((t * x) / y)) / b;
} else if (y <= 1.5e+112) {
tmp = (x + ((y * z) / t)) / (1.0 + a);
} else {
tmp = fma(t, (x / y), z) / b;
}
return tmp;
}
function code(x, y, z, t, a, b) tmp = 0.0 if (y <= -8.6e+58) tmp = Float64(Float64(z + Float64(Float64(t * x) / y)) / b); elseif (y <= 1.5e+112) tmp = Float64(Float64(x + Float64(Float64(y * z) / t)) / Float64(1.0 + a)); else tmp = Float64(fma(t, Float64(x / y), z) / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := If[LessEqual[y, -8.6e+58], N[(N[(z + N[(N[(t * x), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision] / b), $MachinePrecision], If[LessEqual[y, 1.5e+112], N[(N[(x + N[(N[(y * z), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision] / N[(1.0 + a), $MachinePrecision]), $MachinePrecision], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -8.6 \cdot 10^{+58}:\\
\;\;\;\;\frac{z + \frac{t \cdot x}{y}}{b}\\
\mathbf{elif}\;y \leq 1.5 \cdot 10^{+112}:\\
\;\;\;\;\frac{x + \frac{y \cdot z}{t}}{1 + a}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\end{array}
\end{array}
if y < -8.59999999999999982e58Initial program 31.7%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6433.9
Applied rewrites33.9%
lift-/.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-/.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
div-addN/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
Applied rewrites53.9%
Taylor expanded in b around inf
lower-/.f64N/A
lower-+.f64N/A
lower-/.f64N/A
lower-*.f6473.9
Applied rewrites73.9%
if -8.59999999999999982e58 < y < 1.4999999999999999e112Initial program 90.6%
Taylor expanded in y around 0
lower-+.f6481.1
Applied rewrites81.1%
if 1.4999999999999999e112 < y Initial program 47.5%
Taylor expanded in y around inf
associate--l+N/A
lower-+.f64N/A
lower-/.f64N/A
associate-/r*N/A
associate-/r*N/A
sub-divN/A
lower-/.f64N/A
Applied rewrites38.7%
Taylor expanded in b around inf
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f6469.6
Applied rewrites69.6%
Final simplification78.2%
(FPCore (x y z t a b)
:precision binary64
(if (<= y -9.2e+58)
(/ (+ z (/ (* t x) y)) b)
(if (<= y 1.5e+112)
(/ (fma y (/ z t) x) (+ 1.0 a))
(/ (fma t (/ x y) z) b))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (y <= -9.2e+58) {
tmp = (z + ((t * x) / y)) / b;
} else if (y <= 1.5e+112) {
tmp = fma(y, (z / t), x) / (1.0 + a);
} else {
tmp = fma(t, (x / y), z) / b;
}
return tmp;
}
function code(x, y, z, t, a, b) tmp = 0.0 if (y <= -9.2e+58) tmp = Float64(Float64(z + Float64(Float64(t * x) / y)) / b); elseif (y <= 1.5e+112) tmp = Float64(fma(y, Float64(z / t), x) / Float64(1.0 + a)); else tmp = Float64(fma(t, Float64(x / y), z) / b); end return tmp end
code[x_, y_, z_, t_, a_, b_] := If[LessEqual[y, -9.2e+58], N[(N[(z + N[(N[(t * x), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision] / b), $MachinePrecision], If[LessEqual[y, 1.5e+112], N[(N[(y * N[(z / t), $MachinePrecision] + x), $MachinePrecision] / N[(1.0 + a), $MachinePrecision]), $MachinePrecision], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -9.2 \cdot 10^{+58}:\\
\;\;\;\;\frac{z + \frac{t \cdot x}{y}}{b}\\
\mathbf{elif}\;y \leq 1.5 \cdot 10^{+112}:\\
\;\;\;\;\frac{\mathsf{fma}\left(y, \frac{z}{t}, x\right)}{1 + a}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\end{array}
\end{array}
if y < -9.2000000000000001e58Initial program 31.7%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6433.9
Applied rewrites33.9%
lift-/.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-/.f64N/A
lift-/.f64N/A
lift-+.f64N/A
lift-fma.f64N/A
div-addN/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
associate-*r/N/A
+-commutativeN/A
*-commutativeN/A
associate-+r+N/A
Applied rewrites53.9%
Taylor expanded in b around inf
lower-/.f64N/A
lower-+.f64N/A
lower-/.f64N/A
lower-*.f6473.9
Applied rewrites73.9%
if -9.2000000000000001e58 < y < 1.4999999999999999e112Initial program 90.6%
Taylor expanded in b around 0
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6476.7
Applied rewrites76.7%
if 1.4999999999999999e112 < y Initial program 47.5%
Taylor expanded in y around inf
associate--l+N/A
lower-+.f64N/A
lower-/.f64N/A
associate-/r*N/A
associate-/r*N/A
sub-divN/A
lower-/.f64N/A
Applied rewrites38.7%
Taylor expanded in b around inf
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f6469.6
Applied rewrites69.6%
Final simplification75.2%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -5e+58) (not (<= y 9.2e+108))) (/ (fma t (/ x y) z) b) (/ x (+ 1.0 a))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -5e+58) || !(y <= 9.2e+108)) {
tmp = fma(t, (x / y), z) / b;
} else {
tmp = x / (1.0 + a);
}
return tmp;
}
function code(x, y, z, t, a, b) tmp = 0.0 if ((y <= -5e+58) || !(y <= 9.2e+108)) tmp = Float64(fma(t, Float64(x / y), z) / b); else tmp = Float64(x / Float64(1.0 + a)); end return tmp end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[y, -5e+58], N[Not[LessEqual[y, 9.2e+108]], $MachinePrecision]], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision], N[(x / N[(1.0 + a), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -5 \cdot 10^{+58} \lor \neg \left(y \leq 9.2 \cdot 10^{+108}\right):\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{1 + a}\\
\end{array}
\end{array}
if y < -4.99999999999999986e58 or 9.1999999999999996e108 < y Initial program 39.2%
Taylor expanded in y around inf
associate--l+N/A
lower-+.f64N/A
lower-/.f64N/A
associate-/r*N/A
associate-/r*N/A
sub-divN/A
lower-/.f64N/A
Applied rewrites45.2%
Taylor expanded in b around inf
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f6471.5
Applied rewrites71.5%
if -4.99999999999999986e58 < y < 9.1999999999999996e108Initial program 91.0%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6459.2
Applied rewrites59.2%
Final simplification63.1%
(FPCore (x y z t a b)
:precision binary64
(if (<= a -1.9e+45)
(/ x a)
(if (<= a 1.8e-268)
(/ z b)
(if (<= a 3.5) (- x (* a x)) (if (<= a 2.8e+43) (/ z b) (/ x a))))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (a <= -1.9e+45) {
tmp = x / a;
} else if (a <= 1.8e-268) {
tmp = z / b;
} else if (a <= 3.5) {
tmp = x - (a * x);
} else if (a <= 2.8e+43) {
tmp = z / b;
} else {
tmp = x / a;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(x, y, z, t, a, b)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if (a <= (-1.9d+45)) then
tmp = x / a
else if (a <= 1.8d-268) then
tmp = z / b
else if (a <= 3.5d0) then
tmp = x - (a * x)
else if (a <= 2.8d+43) then
tmp = z / b
else
tmp = x / a
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (a <= -1.9e+45) {
tmp = x / a;
} else if (a <= 1.8e-268) {
tmp = z / b;
} else if (a <= 3.5) {
tmp = x - (a * x);
} else if (a <= 2.8e+43) {
tmp = z / b;
} else {
tmp = x / a;
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if a <= -1.9e+45: tmp = x / a elif a <= 1.8e-268: tmp = z / b elif a <= 3.5: tmp = x - (a * x) elif a <= 2.8e+43: tmp = z / b else: tmp = x / a return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if (a <= -1.9e+45) tmp = Float64(x / a); elseif (a <= 1.8e-268) tmp = Float64(z / b); elseif (a <= 3.5) tmp = Float64(x - Float64(a * x)); elseif (a <= 2.8e+43) tmp = Float64(z / b); else tmp = Float64(x / a); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if (a <= -1.9e+45) tmp = x / a; elseif (a <= 1.8e-268) tmp = z / b; elseif (a <= 3.5) tmp = x - (a * x); elseif (a <= 2.8e+43) tmp = z / b; else tmp = x / a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[LessEqual[a, -1.9e+45], N[(x / a), $MachinePrecision], If[LessEqual[a, 1.8e-268], N[(z / b), $MachinePrecision], If[LessEqual[a, 3.5], N[(x - N[(a * x), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.8e+43], N[(z / b), $MachinePrecision], N[(x / a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -1.9 \cdot 10^{+45}:\\
\;\;\;\;\frac{x}{a}\\
\mathbf{elif}\;a \leq 1.8 \cdot 10^{-268}:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{elif}\;a \leq 3.5:\\
\;\;\;\;x - a \cdot x\\
\mathbf{elif}\;a \leq 2.8 \cdot 10^{+43}:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{a}\\
\end{array}
\end{array}
if a < -1.9000000000000001e45 or 2.80000000000000019e43 < a Initial program 75.2%
Taylor expanded in x around inf
lower-/.f64N/A
associate-+r+N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6458.6
Applied rewrites58.6%
Taylor expanded in a around inf
Applied rewrites53.3%
if -1.9000000000000001e45 < a < 1.8000000000000001e-268 or 3.5 < a < 2.80000000000000019e43Initial program 67.8%
Taylor expanded in y around inf
lower-/.f6449.1
Applied rewrites49.1%
if 1.8000000000000001e-268 < a < 3.5Initial program 80.6%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6480.6
Applied rewrites80.6%
Taylor expanded in y around 0
associate-*r/N/A
+-commutativeN/A
+-commutativeN/A
lower-/.f64N/A
+-commutativeN/A
lift-+.f6449.0
Applied rewrites49.0%
Taylor expanded in a around 0
lower-+.f64N/A
lower-*.f64N/A
lower-*.f6448.3
Applied rewrites48.3%
Final simplification50.9%
(FPCore (x y z t a b)
:precision binary64
(if (<= a -1.9e+45)
(/ x a)
(if (<= a 1.8e-268)
(/ z b)
(if (<= a 1.06e-17) x (if (<= a 2.8e+43) (/ z b) (/ x a))))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (a <= -1.9e+45) {
tmp = x / a;
} else if (a <= 1.8e-268) {
tmp = z / b;
} else if (a <= 1.06e-17) {
tmp = x;
} else if (a <= 2.8e+43) {
tmp = z / b;
} else {
tmp = x / a;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(x, y, z, t, a, b)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if (a <= (-1.9d+45)) then
tmp = x / a
else if (a <= 1.8d-268) then
tmp = z / b
else if (a <= 1.06d-17) then
tmp = x
else if (a <= 2.8d+43) then
tmp = z / b
else
tmp = x / a
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (a <= -1.9e+45) {
tmp = x / a;
} else if (a <= 1.8e-268) {
tmp = z / b;
} else if (a <= 1.06e-17) {
tmp = x;
} else if (a <= 2.8e+43) {
tmp = z / b;
} else {
tmp = x / a;
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if a <= -1.9e+45: tmp = x / a elif a <= 1.8e-268: tmp = z / b elif a <= 1.06e-17: tmp = x elif a <= 2.8e+43: tmp = z / b else: tmp = x / a return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if (a <= -1.9e+45) tmp = Float64(x / a); elseif (a <= 1.8e-268) tmp = Float64(z / b); elseif (a <= 1.06e-17) tmp = x; elseif (a <= 2.8e+43) tmp = Float64(z / b); else tmp = Float64(x / a); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if (a <= -1.9e+45) tmp = x / a; elseif (a <= 1.8e-268) tmp = z / b; elseif (a <= 1.06e-17) tmp = x; elseif (a <= 2.8e+43) tmp = z / b; else tmp = x / a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[LessEqual[a, -1.9e+45], N[(x / a), $MachinePrecision], If[LessEqual[a, 1.8e-268], N[(z / b), $MachinePrecision], If[LessEqual[a, 1.06e-17], x, If[LessEqual[a, 2.8e+43], N[(z / b), $MachinePrecision], N[(x / a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -1.9 \cdot 10^{+45}:\\
\;\;\;\;\frac{x}{a}\\
\mathbf{elif}\;a \leq 1.8 \cdot 10^{-268}:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{elif}\;a \leq 1.06 \cdot 10^{-17}:\\
\;\;\;\;x\\
\mathbf{elif}\;a \leq 2.8 \cdot 10^{+43}:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{a}\\
\end{array}
\end{array}
if a < -1.9000000000000001e45 or 2.80000000000000019e43 < a Initial program 75.2%
Taylor expanded in x around inf
lower-/.f64N/A
associate-+r+N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6458.6
Applied rewrites58.6%
Taylor expanded in a around inf
Applied rewrites53.3%
if -1.9000000000000001e45 < a < 1.8000000000000001e-268 or 1.06000000000000006e-17 < a < 2.80000000000000019e43Initial program 68.1%
Taylor expanded in y around inf
lower-/.f6448.0
Applied rewrites48.0%
if 1.8000000000000001e-268 < a < 1.06000000000000006e-17Initial program 81.0%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6481.0
Applied rewrites81.0%
Taylor expanded in a around 0
associate-*r/N/A
+-commutativeN/A
+-commutativeN/A
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
*-commutativeN/A
associate-*r/N/A
*-commutativeN/A
lower-fma.f64N/A
lift-/.f6477.5
Applied rewrites77.5%
Taylor expanded in y around 0
Applied rewrites48.8%
Final simplification50.6%
(FPCore (x y z t a b) :precision binary64 (if (or (<= (+ a 1.0) -100.0) (not (<= (+ a 1.0) 20000000.0))) (/ x a) x))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (((a + 1.0) <= -100.0) || !((a + 1.0) <= 20000000.0)) {
tmp = x / a;
} else {
tmp = x;
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(x, y, z, t, a, b)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if (((a + 1.0d0) <= (-100.0d0)) .or. (.not. ((a + 1.0d0) <= 20000000.0d0))) then
tmp = x / a
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (((a + 1.0) <= -100.0) || !((a + 1.0) <= 20000000.0)) {
tmp = x / a;
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if ((a + 1.0) <= -100.0) or not ((a + 1.0) <= 20000000.0): tmp = x / a else: tmp = x return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if ((Float64(a + 1.0) <= -100.0) || !(Float64(a + 1.0) <= 20000000.0)) tmp = Float64(x / a); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if (((a + 1.0) <= -100.0) || ~(((a + 1.0) <= 20000000.0))) tmp = x / a; else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[N[(a + 1.0), $MachinePrecision], -100.0], N[Not[LessEqual[N[(a + 1.0), $MachinePrecision], 20000000.0]], $MachinePrecision]], N[(x / a), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a + 1 \leq -100 \lor \neg \left(a + 1 \leq 20000000\right):\\
\;\;\;\;\frac{x}{a}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if (+.f64 a #s(literal 1 binary64)) < -100 or 2e7 < (+.f64 a #s(literal 1 binary64)) Initial program 72.8%
Taylor expanded in x around inf
lower-/.f64N/A
associate-+r+N/A
*-commutativeN/A
+-commutativeN/A
*-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6456.2
Applied rewrites56.2%
Taylor expanded in a around inf
Applied rewrites50.2%
if -100 < (+.f64 a #s(literal 1 binary64)) < 2e7Initial program 75.8%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6477.3
Applied rewrites77.3%
Taylor expanded in a around 0
associate-*r/N/A
+-commutativeN/A
+-commutativeN/A
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
*-commutativeN/A
associate-*r/N/A
*-commutativeN/A
lower-fma.f64N/A
lift-/.f6472.9
Applied rewrites72.9%
Taylor expanded in y around 0
Applied rewrites38.2%
Final simplification44.4%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -5e+58) (not (<= y 1.65e+108))) (/ z b) (/ x (+ 1.0 a))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -5e+58) || !(y <= 1.65e+108)) {
tmp = z / b;
} else {
tmp = x / (1.0 + a);
}
return tmp;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(x, y, z, t, a, b)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if ((y <= (-5d+58)) .or. (.not. (y <= 1.65d+108))) then
tmp = z / b
else
tmp = x / (1.0d0 + a)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -5e+58) || !(y <= 1.65e+108)) {
tmp = z / b;
} else {
tmp = x / (1.0 + a);
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if (y <= -5e+58) or not (y <= 1.65e+108): tmp = z / b else: tmp = x / (1.0 + a) return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if ((y <= -5e+58) || !(y <= 1.65e+108)) tmp = Float64(z / b); else tmp = Float64(x / Float64(1.0 + a)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if ((y <= -5e+58) || ~((y <= 1.65e+108))) tmp = z / b; else tmp = x / (1.0 + a); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[y, -5e+58], N[Not[LessEqual[y, 1.65e+108]], $MachinePrecision]], N[(z / b), $MachinePrecision], N[(x / N[(1.0 + a), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -5 \cdot 10^{+58} \lor \neg \left(y \leq 1.65 \cdot 10^{+108}\right):\\
\;\;\;\;\frac{z}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{1 + a}\\
\end{array}
\end{array}
if y < -4.99999999999999986e58 or 1.6500000000000001e108 < y Initial program 39.2%
Taylor expanded in y around inf
lower-/.f6465.6
Applied rewrites65.6%
if -4.99999999999999986e58 < y < 1.6500000000000001e108Initial program 91.0%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6459.2
Applied rewrites59.2%
Final simplification61.2%
(FPCore (x y z t a b) :precision binary64 x)
double code(double x, double y, double z, double t, double a, double b) {
return x;
}
module fmin_fmax_functions
implicit none
private
public fmax
public fmin
interface fmax
module procedure fmax88
module procedure fmax44
module procedure fmax84
module procedure fmax48
end interface
interface fmin
module procedure fmin88
module procedure fmin44
module procedure fmin84
module procedure fmin48
end interface
contains
real(8) function fmax88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(4) function fmax44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, max(x, y), y /= y), x /= x)
end function
real(8) function fmax84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmax48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
end function
real(8) function fmin88(x, y) result (res)
real(8), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(4) function fmin44(x, y) result (res)
real(4), intent (in) :: x
real(4), intent (in) :: y
res = merge(y, merge(x, min(x, y), y /= y), x /= x)
end function
real(8) function fmin84(x, y) result(res)
real(8), intent (in) :: x
real(4), intent (in) :: y
res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
end function
real(8) function fmin48(x, y) result(res)
real(4), intent (in) :: x
real(8), intent (in) :: y
res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
end function
end module
real(8) function code(x, y, z, t, a, b)
use fmin_fmax_functions
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
code = x
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return x;
}
def code(x, y, z, t, a, b): return x
function code(x, y, z, t, a, b) return x end
function tmp = code(x, y, z, t, a, b) tmp = x; end
code[x_, y_, z_, t_, a_, b_] := x
\begin{array}{l}
\\
x
\end{array}
Initial program 74.2%
lift-+.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6474.9
Applied rewrites74.9%
Taylor expanded in a around 0
associate-*r/N/A
+-commutativeN/A
+-commutativeN/A
lower-/.f64N/A
+-commutativeN/A
associate-/l*N/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
*-commutativeN/A
associate-*r/N/A
*-commutativeN/A
lower-fma.f64N/A
lift-/.f6440.8
Applied rewrites40.8%
Taylor expanded in y around 0
Applied rewrites20.6%
herbie shell --seed 2025084
(FPCore (x y z t a b)
:name "Diagrams.Solve.Tridiagonal:solveCyclicTriDiagonal from diagrams-solve-0.1, B"
:precision binary64
:alt
(! :herbie-platform default (if (< t -1707385670788761/12500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) (* 1 (* (+ x (* (/ y t) z)) (/ 1 (+ (+ a 1) (* (/ y t) b))))) (if (< t 1518483551868623/5000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) (/ z b) (* 1 (* (+ x (* (/ y t) z)) (/ 1 (+ (+ a 1) (* (/ y t) b))))))))
(/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))))