
(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));
}
real(8) function code(x, y, z, t, a, b)
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 13 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));
}
real(8) function code(x, y, z, t, a, b)
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)) (+ (+ a 1.0) (/ (* y b) t)))))
(if (<= t_1 (- INFINITY))
(fma (/ z (fma b y (fma a t t))) y (/ x (+ 1.0 a)))
(if (or (<= t_1 -2e-302) (not (or (<= t_1 0.0) (not (<= t_1 1e+306)))))
t_1
(/ (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 = fma((z / fma(b, y, fma(a, t, t))), y, (x / (1.0 + a)));
} else if ((t_1 <= -2e-302) || !((t_1 <= 0.0) || !(t_1 <= 1e+306))) {
tmp = t_1;
} 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 = fma(Float64(z / fma(b, y, fma(a, t, t))), y, Float64(x / Float64(1.0 + a))); elseif ((t_1 <= -2e-302) || !((t_1 <= 0.0) || !(t_1 <= 1e+306))) tmp = t_1; 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[(N[(z / N[(b * y + N[(a * t + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * y + N[(x / N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[t$95$1, -2e-302], N[Not[Or[LessEqual[t$95$1, 0.0], N[Not[LessEqual[t$95$1, 1e+306]], $MachinePrecision]]], $MachinePrecision]], t$95$1, 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:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{\mathsf{fma}\left(b, y, \mathsf{fma}\left(a, t, t\right)\right)}, y, \frac{x}{1 + a}\right)\\
\mathbf{elif}\;t\_1 \leq -2 \cdot 10^{-302} \lor \neg \left(t\_1 \leq 0 \lor \neg \left(t\_1 \leq 10^{+306}\right)\right):\\
\;\;\;\;t\_1\\
\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 38.6%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites70.9%
Taylor expanded in y around 0
Applied rewrites94.2%
Taylor expanded in y around 0
Applied rewrites88.6%
if -inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -1.9999999999999999e-302 or -0.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.00000000000000002e306Initial program 99.5%
if -1.9999999999999999e-302 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -0.0 or 1.00000000000000002e306 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 31.9%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites46.2%
Taylor expanded in b around inf
Applied rewrites81.9%
Final simplification92.4%
(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))
(* y (/ z (fma b y t)))
(if (<= t_2 -2e-302)
(/ x (fma (/ y t) b (+ 1.0 a)))
(if (or (<= t_2 0.0) (not (<= t_2 1e+306)))
(/ (fma t (/ x y) z) b)
(/ t_1 (+ 1.0 a)))))))
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 = y * (z / fma(b, y, t));
} else if (t_2 <= -2e-302) {
tmp = x / fma((y / t), b, (1.0 + a));
} else if ((t_2 <= 0.0) || !(t_2 <= 1e+306)) {
tmp = fma(t, (x / y), z) / b;
} else {
tmp = t_1 / (1.0 + a);
}
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(y * Float64(z / fma(b, y, t))); elseif (t_2 <= -2e-302) tmp = Float64(x / fma(Float64(y / t), b, Float64(1.0 + a))); elseif ((t_2 <= 0.0) || !(t_2 <= 1e+306)) tmp = Float64(fma(t, Float64(x / y), z) / b); else tmp = Float64(t_1 / Float64(1.0 + a)); 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[(y * N[(z / N[(b * y + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, -2e-302], N[(x / N[(N[(y / t), $MachinePrecision] * b + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[t$95$2, 0.0], N[Not[LessEqual[t$95$2, 1e+306]], $MachinePrecision]], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision], N[(t$95$1 / N[(1.0 + a), $MachinePrecision]), $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:\\
\;\;\;\;y \cdot \frac{z}{\mathsf{fma}\left(b, y, t\right)}\\
\mathbf{elif}\;t\_2 \leq -2 \cdot 10^{-302}:\\
\;\;\;\;\frac{x}{\mathsf{fma}\left(\frac{y}{t}, b, 1 + a\right)}\\
\mathbf{elif}\;t\_2 \leq 0 \lor \neg \left(t\_2 \leq 10^{+306}\right):\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_1}{1 + a}\\
\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 38.6%
Taylor expanded in x around 0
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6465.1
Applied rewrites65.1%
Taylor expanded in a around 0
Applied rewrites65.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.9999999999999999e-302Initial program 99.7%
Taylor expanded in x around inf
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6474.3
Applied rewrites74.3%
if -1.9999999999999999e-302 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -0.0 or 1.00000000000000002e306 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 31.9%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites46.2%
Taylor expanded in b around inf
Applied rewrites81.9%
if -0.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.00000000000000002e306Initial program 99.3%
Taylor expanded in y around 0
lower-+.f6478.7
Applied rewrites78.7%
Final simplification77.9%
(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))
(* y (/ z (fma b y t)))
(if (<= t_1 -2e-302)
(/ x (fma (/ y t) b (+ 1.0 a)))
(if (or (<= t_1 0.0) (not (<= t_1 1e+306)))
(/ (fma t (/ x y) z) b)
(/ (fma (/ y t) z x) (+ 1.0 a)))))))
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 = y * (z / fma(b, y, t));
} else if (t_1 <= -2e-302) {
tmp = x / fma((y / t), b, (1.0 + a));
} else if ((t_1 <= 0.0) || !(t_1 <= 1e+306)) {
tmp = fma(t, (x / y), z) / b;
} else {
tmp = fma((y / t), z, x) / (1.0 + a);
}
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(y * Float64(z / fma(b, y, t))); elseif (t_1 <= -2e-302) tmp = Float64(x / fma(Float64(y / t), b, Float64(1.0 + a))); elseif ((t_1 <= 0.0) || !(t_1 <= 1e+306)) tmp = Float64(fma(t, Float64(x / y), z) / b); else tmp = Float64(fma(Float64(y / t), z, x) / Float64(1.0 + a)); 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[(y * N[(z / N[(b * y + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, -2e-302], N[(x / N[(N[(y / t), $MachinePrecision] * b + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[t$95$1, 0.0], N[Not[LessEqual[t$95$1, 1e+306]], $MachinePrecision]], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision], N[(N[(N[(y / t), $MachinePrecision] * z + x), $MachinePrecision] / N[(1.0 + a), $MachinePrecision]), $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:\\
\;\;\;\;y \cdot \frac{z}{\mathsf{fma}\left(b, y, t\right)}\\
\mathbf{elif}\;t\_1 \leq -2 \cdot 10^{-302}:\\
\;\;\;\;\frac{x}{\mathsf{fma}\left(\frac{y}{t}, b, 1 + a\right)}\\
\mathbf{elif}\;t\_1 \leq 0 \lor \neg \left(t\_1 \leq 10^{+306}\right):\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{y}{t}, z, x\right)}{1 + a}\\
\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 38.6%
Taylor expanded in x around 0
associate-*l/N/A
lower-*.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6465.1
Applied rewrites65.1%
Taylor expanded in a around 0
Applied rewrites65.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.9999999999999999e-302Initial program 99.7%
Taylor expanded in x around inf
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6474.3
Applied rewrites74.3%
if -1.9999999999999999e-302 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -0.0 or 1.00000000000000002e306 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) Initial program 31.9%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites46.2%
Taylor expanded in b around inf
Applied rewrites81.9%
if -0.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 1.00000000000000002e306Initial program 99.3%
Taylor expanded in b around 0
lower-/.f64N/A
+-commutativeN/A
associate-*l/N/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6478.1
Applied rewrites78.1%
Final simplification77.7%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t)))))
(if (or (<= t_1 -2e-302) (not (or (<= t_1 0.0) (not (<= t_1 INFINITY)))))
(fma (/ z (fma b y (fma a t t))) y (/ 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 t_1 = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
double tmp;
if ((t_1 <= -2e-302) || !((t_1 <= 0.0) || !(t_1 <= ((double) INFINITY)))) {
tmp = fma((z / fma(b, y, fma(a, t, t))), y, (x / (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 <= -2e-302) || !((t_1 <= 0.0) || !(t_1 <= Inf))) tmp = fma(Float64(z / fma(b, y, fma(a, t, t))), y, Float64(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_] := 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[Or[LessEqual[t$95$1, -2e-302], N[Not[Or[LessEqual[t$95$1, 0.0], N[Not[LessEqual[t$95$1, Infinity]], $MachinePrecision]]], $MachinePrecision]], N[(N[(z / N[(b * y + N[(a * t + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * y + N[(x / 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 -2 \cdot 10^{-302} \lor \neg \left(t\_1 \leq 0 \lor \neg \left(t\_1 \leq \infty\right)\right):\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{\mathsf{fma}\left(b, y, \mathsf{fma}\left(a, t, t\right)\right)}, y, \frac{x}{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))) < -1.9999999999999999e-302 or -0.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < +inf.0Initial program 87.8%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites88.1%
Taylor expanded in y around 0
Applied rewrites93.7%
Taylor expanded in y around 0
Applied rewrites79.0%
if -1.9999999999999999e-302 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < -0.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 33.2%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites45.4%
Taylor expanded in b around inf
Applied rewrites86.3%
Final simplification81.2%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))))
(t_2 (fma (/ z (fma b y (fma a t t))) y (/ x (+ 1.0 a)))))
(if (<= t_1 (- INFINITY))
t_2
(if (<= t_1 5e-142)
(/ (fma (/ z t) y x) (fma (/ b t) y (+ 1.0 a)))
(if (<= t_1 INFINITY) t_2 (/ (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 t_2 = fma((z / fma(b, y, fma(a, t, t))), y, (x / (1.0 + a)));
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = t_2;
} else if (t_1 <= 5e-142) {
tmp = fma((z / t), y, x) / fma((b / t), y, (1.0 + a));
} else if (t_1 <= ((double) INFINITY)) {
tmp = t_2;
} 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))) t_2 = fma(Float64(z / fma(b, y, fma(a, t, t))), y, Float64(x / Float64(1.0 + a))) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = t_2; elseif (t_1 <= 5e-142) tmp = Float64(fma(Float64(z / t), y, x) / fma(Float64(b / t), y, Float64(1.0 + a))); elseif (t_1 <= Inf) tmp = t_2; 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]}, Block[{t$95$2 = N[(N[(z / N[(b * y + N[(a * t + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * y + N[(x / N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, (-Infinity)], t$95$2, If[LessEqual[t$95$1, 5e-142], N[(N[(N[(z / t), $MachinePrecision] * y + x), $MachinePrecision] / N[(N[(b / t), $MachinePrecision] * y + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, Infinity], t$95$2, 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}}\\
t_2 := \mathsf{fma}\left(\frac{z}{\mathsf{fma}\left(b, y, \mathsf{fma}\left(a, t, t\right)\right)}, y, \frac{x}{1 + a}\right)\\
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t\_1 \leq 5 \cdot 10^{-142}:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{z}{t}, y, x\right)}{\mathsf{fma}\left(\frac{b}{t}, y, 1 + a\right)}\\
\mathbf{elif}\;t\_1 \leq \infty:\\
\;\;\;\;t\_2\\
\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.0 or 5.0000000000000002e-142 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < +inf.0Initial program 78.6%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites86.0%
Taylor expanded in y around 0
Applied rewrites95.9%
Taylor expanded in y around 0
Applied rewrites86.2%
if -inf.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a #s(literal 1 binary64)) (/.f64 (*.f64 y b) t))) < 5.0000000000000002e-142Initial program 81.5%
lift-+.f64N/A
+-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6478.8
lift-+.f64N/A
+-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f6480.2
lift-+.f64N/A
+-commutativeN/A
lower-+.f6480.2
Applied rewrites80.2%
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 x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites9.9%
Taylor expanded in b around inf
Applied rewrites100.0%
Final simplification84.8%
(FPCore (x y z t a b) :precision binary64 (if (<= (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))) INFINITY) (fma (/ z (fma b y (fma a t t))) y (/ x (fma (/ y t) b (+ 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 (((x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t))) <= ((double) INFINITY)) {
tmp = fma((z / fma(b, y, fma(a, t, t))), y, (x / fma((y / t), b, (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 (Float64(Float64(x + Float64(Float64(y * z) / t)) / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t))) <= Inf) tmp = fma(Float64(z / fma(b, y, fma(a, t, t))), y, Float64(x / fma(Float64(y / t), b, 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[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], Infinity], N[(N[(z / N[(b * y + N[(a * t + t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * y + N[(x / N[(N[(y / t), $MachinePrecision] * b + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x + \frac{y \cdot z}{t}}{\left(a + 1\right) + \frac{y \cdot b}{t}} \leq \infty:\\
\;\;\;\;\mathsf{fma}\left(\frac{z}{\mathsf{fma}\left(b, y, \mathsf{fma}\left(a, t, t\right)\right)}, y, \frac{x}{\mathsf{fma}\left(\frac{y}{t}, b, 1 + a\right)}\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 80.2%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites83.4%
Taylor expanded in y around 0
Applied rewrites89.2%
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 x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites9.9%
Taylor expanded in b around inf
Applied rewrites100.0%
Final simplification90.4%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -2.8e+45) (not (<= y 2.2e-15))) (/ (fma t (/ x y) z) b) (/ x (fma (/ y t) b (+ 1.0 a)))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -2.8e+45) || !(y <= 2.2e-15)) {
tmp = fma(t, (x / y), z) / b;
} else {
tmp = x / fma((y / t), b, (1.0 + a));
}
return tmp;
}
function code(x, y, z, t, a, b) tmp = 0.0 if ((y <= -2.8e+45) || !(y <= 2.2e-15)) tmp = Float64(fma(t, Float64(x / y), z) / b); else tmp = Float64(x / fma(Float64(y / t), b, Float64(1.0 + a))); end return tmp end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[y, -2.8e+45], N[Not[LessEqual[y, 2.2e-15]], $MachinePrecision]], N[(N[(t * N[(x / y), $MachinePrecision] + z), $MachinePrecision] / b), $MachinePrecision], N[(x / N[(N[(y / t), $MachinePrecision] * b + N[(1.0 + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.8 \cdot 10^{+45} \lor \neg \left(y \leq 2.2 \cdot 10^{-15}\right):\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{\mathsf{fma}\left(\frac{y}{t}, b, 1 + a\right)}\\
\end{array}
\end{array}
if y < -2.7999999999999999e45 or 2.19999999999999986e-15 < y Initial program 48.0%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites57.1%
Taylor expanded in b around inf
Applied rewrites70.4%
if -2.7999999999999999e45 < y < 2.19999999999999986e-15Initial program 94.7%
Taylor expanded in x around inf
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-+.f6474.1
Applied rewrites74.1%
Final simplification72.2%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -1.1e-68) (not (<= y 2.45e-26))) (/ (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 <= -1.1e-68) || !(y <= 2.45e-26)) {
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 <= -1.1e-68) || !(y <= 2.45e-26)) 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, -1.1e-68], N[Not[LessEqual[y, 2.45e-26]], $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 -1.1 \cdot 10^{-68} \lor \neg \left(y \leq 2.45 \cdot 10^{-26}\right):\\
\;\;\;\;\frac{\mathsf{fma}\left(t, \frac{x}{y}, z\right)}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{1 + a}\\
\end{array}
\end{array}
if y < -1.10000000000000001e-68 or 2.45e-26 < y Initial program 54.8%
Taylor expanded in x around 0
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
+-commutativeN/A
distribute-rgt-inN/A
*-lft-identityN/A
lower-fma.f64N/A
+-commutativeN/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
Applied rewrites62.3%
Taylor expanded in b around inf
Applied rewrites66.7%
if -1.10000000000000001e-68 < y < 2.45e-26Initial program 96.7%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6467.1
Applied rewrites67.1%
Final simplification66.9%
(FPCore (x y z t a b)
:precision binary64
(if (<= a -1.3e+113)
(/ x a)
(if (<= a -1.25e-65)
(/ z b)
(if (<= a -1.15e-159)
(* (- 1.0 a) x)
(if (<= a 1.15e+85) (/ z b) (/ x a))))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (a <= -1.3e+113) {
tmp = x / a;
} else if (a <= -1.25e-65) {
tmp = z / b;
} else if (a <= -1.15e-159) {
tmp = (1.0 - a) * x;
} else if (a <= 1.15e+85) {
tmp = z / b;
} else {
tmp = x / a;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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.3d+113)) then
tmp = x / a
else if (a <= (-1.25d-65)) then
tmp = z / b
else if (a <= (-1.15d-159)) then
tmp = (1.0d0 - a) * x
else if (a <= 1.15d+85) 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.3e+113) {
tmp = x / a;
} else if (a <= -1.25e-65) {
tmp = z / b;
} else if (a <= -1.15e-159) {
tmp = (1.0 - a) * x;
} else if (a <= 1.15e+85) {
tmp = z / b;
} else {
tmp = x / a;
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if a <= -1.3e+113: tmp = x / a elif a <= -1.25e-65: tmp = z / b elif a <= -1.15e-159: tmp = (1.0 - a) * x elif a <= 1.15e+85: tmp = z / b else: tmp = x / a return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if (a <= -1.3e+113) tmp = Float64(x / a); elseif (a <= -1.25e-65) tmp = Float64(z / b); elseif (a <= -1.15e-159) tmp = Float64(Float64(1.0 - a) * x); elseif (a <= 1.15e+85) 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.3e+113) tmp = x / a; elseif (a <= -1.25e-65) tmp = z / b; elseif (a <= -1.15e-159) tmp = (1.0 - a) * x; elseif (a <= 1.15e+85) tmp = z / b; else tmp = x / a; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[LessEqual[a, -1.3e+113], N[(x / a), $MachinePrecision], If[LessEqual[a, -1.25e-65], N[(z / b), $MachinePrecision], If[LessEqual[a, -1.15e-159], N[(N[(1.0 - a), $MachinePrecision] * x), $MachinePrecision], If[LessEqual[a, 1.15e+85], N[(z / b), $MachinePrecision], N[(x / a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -1.3 \cdot 10^{+113}:\\
\;\;\;\;\frac{x}{a}\\
\mathbf{elif}\;a \leq -1.25 \cdot 10^{-65}:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{elif}\;a \leq -1.15 \cdot 10^{-159}:\\
\;\;\;\;\left(1 - a\right) \cdot x\\
\mathbf{elif}\;a \leq 1.15 \cdot 10^{+85}:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{a}\\
\end{array}
\end{array}
if a < -1.3e113 or 1.1499999999999999e85 < a Initial program 68.0%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6454.3
Applied rewrites54.3%
Taylor expanded in a around inf
Applied rewrites54.3%
if -1.3e113 < a < -1.24999999999999996e-65 or -1.14999999999999989e-159 < a < 1.1499999999999999e85Initial program 70.8%
Taylor expanded in y around inf
lower-/.f6449.7
Applied rewrites49.7%
if -1.24999999999999996e-65 < a < -1.14999999999999989e-159Initial program 88.5%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6464.4
Applied rewrites64.4%
Taylor expanded in a around 0
Applied rewrites64.4%
Applied rewrites64.4%
Final simplification52.6%
(FPCore (x y z t a b) :precision binary64 (if (or (<= y -3.2e+68) (not (<= y 3.3e-13))) (/ z b) (/ x (+ 1.0 a))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((y <= -3.2e+68) || !(y <= 3.3e-13)) {
tmp = z / b;
} else {
tmp = x / (1.0 + a);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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 <= (-3.2d+68)) .or. (.not. (y <= 3.3d-13))) 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 <= -3.2e+68) || !(y <= 3.3e-13)) {
tmp = z / b;
} else {
tmp = x / (1.0 + a);
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if (y <= -3.2e+68) or not (y <= 3.3e-13): tmp = z / b else: tmp = x / (1.0 + a) return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if ((y <= -3.2e+68) || !(y <= 3.3e-13)) 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 <= -3.2e+68) || ~((y <= 3.3e-13))) 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, -3.2e+68], N[Not[LessEqual[y, 3.3e-13]], $MachinePrecision]], N[(z / b), $MachinePrecision], N[(x / N[(1.0 + a), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -3.2 \cdot 10^{+68} \lor \neg \left(y \leq 3.3 \cdot 10^{-13}\right):\\
\;\;\;\;\frac{z}{b}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{1 + a}\\
\end{array}
\end{array}
if y < -3.19999999999999994e68 or 3.3000000000000001e-13 < y Initial program 47.7%
Taylor expanded in y around inf
lower-/.f6459.3
Applied rewrites59.3%
if -3.19999999999999994e68 < y < 3.3000000000000001e-13Initial program 91.6%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6458.5
Applied rewrites58.5%
Final simplification58.9%
(FPCore (x y z t a b) :precision binary64 (if (or (<= a -1.0) (not (<= a 740000.0))) (/ x a) (* (- 1.0 a) x)))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if ((a <= -1.0) || !(a <= 740000.0)) {
tmp = x / a;
} else {
tmp = (1.0 - a) * x;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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)) .or. (.not. (a <= 740000.0d0))) then
tmp = x / a
else
tmp = (1.0d0 - a) * 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) || !(a <= 740000.0)) {
tmp = x / a;
} else {
tmp = (1.0 - a) * x;
}
return tmp;
}
def code(x, y, z, t, a, b): tmp = 0 if (a <= -1.0) or not (a <= 740000.0): tmp = x / a else: tmp = (1.0 - a) * x return tmp
function code(x, y, z, t, a, b) tmp = 0.0 if ((a <= -1.0) || !(a <= 740000.0)) tmp = Float64(x / a); else tmp = Float64(Float64(1.0 - a) * x); end return tmp end
function tmp_2 = code(x, y, z, t, a, b) tmp = 0.0; if ((a <= -1.0) || ~((a <= 740000.0))) tmp = x / a; else tmp = (1.0 - a) * x; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := If[Or[LessEqual[a, -1.0], N[Not[LessEqual[a, 740000.0]], $MachinePrecision]], N[(x / a), $MachinePrecision], N[(N[(1.0 - a), $MachinePrecision] * x), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -1 \lor \neg \left(a \leq 740000\right):\\
\;\;\;\;\frac{x}{a}\\
\mathbf{else}:\\
\;\;\;\;\left(1 - a\right) \cdot x\\
\end{array}
\end{array}
if a < -1 or 7.4e5 < a Initial program 66.3%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6448.0
Applied rewrites48.0%
Taylor expanded in a around inf
Applied rewrites47.2%
if -1 < a < 7.4e5Initial program 76.0%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6431.5
Applied rewrites31.5%
Taylor expanded in a around 0
Applied rewrites30.7%
Applied rewrites30.7%
Final simplification39.0%
(FPCore (x y z t a b) :precision binary64 (* (- 1.0 a) x))
double code(double x, double y, double z, double t, double a, double b) {
return (1.0 - a) * x;
}
real(8) function code(x, y, z, t, a, b)
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 = (1.0d0 - a) * x
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return (1.0 - a) * x;
}
def code(x, y, z, t, a, b): return (1.0 - a) * x
function code(x, y, z, t, a, b) return Float64(Float64(1.0 - a) * x) end
function tmp = code(x, y, z, t, a, b) tmp = (1.0 - a) * x; end
code[x_, y_, z_, t_, a_, b_] := N[(N[(1.0 - a), $MachinePrecision] * x), $MachinePrecision]
\begin{array}{l}
\\
\left(1 - a\right) \cdot x
\end{array}
Initial program 71.2%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6439.8
Applied rewrites39.8%
Taylor expanded in a around 0
Applied rewrites17.0%
Applied rewrites17.0%
Final simplification17.0%
(FPCore (x y z t a b) :precision binary64 (* (- a) x))
double code(double x, double y, double z, double t, double a, double b) {
return -a * x;
}
real(8) function code(x, y, z, t, a, b)
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 = -a * x
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return -a * x;
}
def code(x, y, z, t, a, b): return -a * x
function code(x, y, z, t, a, b) return Float64(Float64(-a) * x) end
function tmp = code(x, y, z, t, a, b) tmp = -a * x; end
code[x_, y_, z_, t_, a_, b_] := N[((-a) * x), $MachinePrecision]
\begin{array}{l}
\\
\left(-a\right) \cdot x
\end{array}
Initial program 71.2%
Taylor expanded in y around 0
lower-/.f64N/A
lower-+.f6439.8
Applied rewrites39.8%
Taylor expanded in a around 0
Applied rewrites17.0%
Taylor expanded in a around inf
Applied rewrites5.6%
Final simplification5.6%
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1
(* 1.0 (* (+ x (* (/ y t) z)) (/ 1.0 (+ (+ a 1.0) (* (/ y t) b)))))))
(if (< t -1.3659085366310088e-271)
t_1
(if (< t 3.036967103737246e-130) (/ z b) t_1))))
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = 1.0 * ((x + ((y / t) * z)) * (1.0 / ((a + 1.0) + ((y / t) * b))));
double tmp;
if (t < -1.3659085366310088e-271) {
tmp = t_1;
} else if (t < 3.036967103737246e-130) {
tmp = z / b;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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) :: t_1
real(8) :: tmp
t_1 = 1.0d0 * ((x + ((y / t) * z)) * (1.0d0 / ((a + 1.0d0) + ((y / t) * b))))
if (t < (-1.3659085366310088d-271)) then
tmp = t_1
else if (t < 3.036967103737246d-130) then
tmp = z / b
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = 1.0 * ((x + ((y / t) * z)) * (1.0 / ((a + 1.0) + ((y / t) * b))));
double tmp;
if (t < -1.3659085366310088e-271) {
tmp = t_1;
} else if (t < 3.036967103737246e-130) {
tmp = z / b;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b): t_1 = 1.0 * ((x + ((y / t) * z)) * (1.0 / ((a + 1.0) + ((y / t) * b)))) tmp = 0 if t < -1.3659085366310088e-271: tmp = t_1 elif t < 3.036967103737246e-130: tmp = z / b else: tmp = t_1 return tmp
function code(x, y, z, t, a, b) t_1 = Float64(1.0 * Float64(Float64(x + Float64(Float64(y / t) * z)) * Float64(1.0 / Float64(Float64(a + 1.0) + Float64(Float64(y / t) * b))))) tmp = 0.0 if (t < -1.3659085366310088e-271) tmp = t_1; elseif (t < 3.036967103737246e-130) tmp = Float64(z / b); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b) t_1 = 1.0 * ((x + ((y / t) * z)) * (1.0 / ((a + 1.0) + ((y / t) * b)))); tmp = 0.0; if (t < -1.3659085366310088e-271) tmp = t_1; elseif (t < 3.036967103737246e-130) tmp = z / b; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_] := Block[{t$95$1 = N[(1.0 * N[(N[(x + N[(N[(y / t), $MachinePrecision] * z), $MachinePrecision]), $MachinePrecision] * N[(1.0 / N[(N[(a + 1.0), $MachinePrecision] + N[(N[(y / t), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[Less[t, -1.3659085366310088e-271], t$95$1, If[Less[t, 3.036967103737246e-130], N[(z / b), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := 1 \cdot \left(\left(x + \frac{y}{t} \cdot z\right) \cdot \frac{1}{\left(a + 1\right) + \frac{y}{t} \cdot b}\right)\\
\mathbf{if}\;t < -1.3659085366310088 \cdot 10^{-271}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t < 3.036967103737246 \cdot 10^{-130}:\\
\;\;\;\;\frac{z}{b}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
herbie shell --seed 2024324
(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))))