
(FPCore (x y z t) :precision binary64 (+ (/ x y) (/ (+ 2.0 (* (* z 2.0) (- 1.0 t))) (* t z))))
double code(double x, double y, double z, double t) {
return (x / y) + ((2.0 + ((z * 2.0) * (1.0 - t))) / (t * z));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (x / y) + ((2.0d0 + ((z * 2.0d0) * (1.0d0 - t))) / (t * z))
end function
public static double code(double x, double y, double z, double t) {
return (x / y) + ((2.0 + ((z * 2.0) * (1.0 - t))) / (t * z));
}
def code(x, y, z, t): return (x / y) + ((2.0 + ((z * 2.0) * (1.0 - t))) / (t * z))
function code(x, y, z, t) return Float64(Float64(x / y) + Float64(Float64(2.0 + Float64(Float64(z * 2.0) * Float64(1.0 - t))) / Float64(t * z))) end
function tmp = code(x, y, z, t) tmp = (x / y) + ((2.0 + ((z * 2.0) * (1.0 - t))) / (t * z)); end
code[x_, y_, z_, t_] := N[(N[(x / y), $MachinePrecision] + N[(N[(2.0 + N[(N[(z * 2.0), $MachinePrecision] * N[(1.0 - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{y} + \frac{2 + \left(z \cdot 2\right) \cdot \left(1 - t\right)}{t \cdot z}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 14 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (+ (/ x y) (/ (+ 2.0 (* (* z 2.0) (- 1.0 t))) (* t z))))
double code(double x, double y, double z, double t) {
return (x / y) + ((2.0 + ((z * 2.0) * (1.0 - t))) / (t * z));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (x / y) + ((2.0d0 + ((z * 2.0d0) * (1.0d0 - t))) / (t * z))
end function
public static double code(double x, double y, double z, double t) {
return (x / y) + ((2.0 + ((z * 2.0) * (1.0 - t))) / (t * z));
}
def code(x, y, z, t): return (x / y) + ((2.0 + ((z * 2.0) * (1.0 - t))) / (t * z))
function code(x, y, z, t) return Float64(Float64(x / y) + Float64(Float64(2.0 + Float64(Float64(z * 2.0) * Float64(1.0 - t))) / Float64(t * z))) end
function tmp = code(x, y, z, t) tmp = (x / y) + ((2.0 + ((z * 2.0) * (1.0 - t))) / (t * z)); end
code[x_, y_, z_, t_] := N[(N[(x / y), $MachinePrecision] + N[(N[(2.0 + N[(N[(z * 2.0), $MachinePrecision] * N[(1.0 - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{y} + \frac{2 + \left(z \cdot 2\right) \cdot \left(1 - t\right)}{t \cdot z}
\end{array}
(FPCore (x y z t) :precision binary64 (fma (/ 1.0 y) x (fma (/ 2.0 (* z t)) (+ 1.0 z) -2.0)))
double code(double x, double y, double z, double t) {
return fma((1.0 / y), x, fma((2.0 / (z * t)), (1.0 + z), -2.0));
}
function code(x, y, z, t) return fma(Float64(1.0 / y), x, fma(Float64(2.0 / Float64(z * t)), Float64(1.0 + z), -2.0)) end
code[x_, y_, z_, t_] := N[(N[(1.0 / y), $MachinePrecision] * x + N[(N[(2.0 / N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(1.0 + z), $MachinePrecision] + -2.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{1}{y}, x, \mathsf{fma}\left(\frac{2}{z \cdot t}, 1 + z, -2\right)\right)
\end{array}
Initial program 89.7%
Taylor expanded in z around 0
Applied rewrites99.0%
lift-+.f64N/A
lift-/.f64N/A
clear-numN/A
associate-/r/N/A
lower-fma.f64N/A
lower-/.f6499.3
Applied rewrites99.3%
Final simplification99.3%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (/ (fma 2.0 z 2.0) (* z t)))
(t_2 (/ (+ 2.0 (* (* 2.0 z) (- 1.0 t))) (* z t))))
(if (<= t_2 -5e+44)
t_1
(if (<= t_2 4e+23)
(/ (fma y -2.0 x) y)
(if (<= t_2 INFINITY) t_1 (+ (/ x y) -2.0))))))
double code(double x, double y, double z, double t) {
double t_1 = fma(2.0, z, 2.0) / (z * t);
double t_2 = (2.0 + ((2.0 * z) * (1.0 - t))) / (z * t);
double tmp;
if (t_2 <= -5e+44) {
tmp = t_1;
} else if (t_2 <= 4e+23) {
tmp = fma(y, -2.0, x) / y;
} else if (t_2 <= ((double) INFINITY)) {
tmp = t_1;
} else {
tmp = (x / y) + -2.0;
}
return tmp;
}
function code(x, y, z, t) t_1 = Float64(fma(2.0, z, 2.0) / Float64(z * t)) t_2 = Float64(Float64(2.0 + Float64(Float64(2.0 * z) * Float64(1.0 - t))) / Float64(z * t)) tmp = 0.0 if (t_2 <= -5e+44) tmp = t_1; elseif (t_2 <= 4e+23) tmp = Float64(fma(y, -2.0, x) / y); elseif (t_2 <= Inf) tmp = t_1; else tmp = Float64(Float64(x / y) + -2.0); end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(2.0 * z + 2.0), $MachinePrecision] / N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(2.0 + N[(N[(2.0 * z), $MachinePrecision] * N[(1.0 - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(z * t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, -5e+44], t$95$1, If[LessEqual[t$95$2, 4e+23], N[(N[(y * -2.0 + x), $MachinePrecision] / y), $MachinePrecision], If[LessEqual[t$95$2, Infinity], t$95$1, N[(N[(x / y), $MachinePrecision] + -2.0), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\mathsf{fma}\left(2, z, 2\right)}{z \cdot t}\\
t_2 := \frac{2 + \left(2 \cdot z\right) \cdot \left(1 - t\right)}{z \cdot t}\\
\mathbf{if}\;t\_2 \leq -5 \cdot 10^{+44}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t\_2 \leq 4 \cdot 10^{+23}:\\
\;\;\;\;\frac{\mathsf{fma}\left(y, -2, x\right)}{y}\\
\mathbf{elif}\;t\_2 \leq \infty:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{y} + -2\\
\end{array}
\end{array}
if (/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (*.f64 z #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) t))) (*.f64 t z)) < -4.9999999999999996e44 or 3.9999999999999997e23 < (/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (*.f64 z #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) t))) (*.f64 t z)) < +inf.0Initial program 98.3%
Taylor expanded in t around 0
Applied rewrites80.9%
if -4.9999999999999996e44 < (/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (*.f64 z #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) t))) (*.f64 t z)) < 3.9999999999999997e23Initial program 99.9%
lift-+.f64N/A
+-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lift-/.f64N/A
frac-addN/A
div-invN/A
lower-*.f64N/A
Applied rewrites81.5%
Taylor expanded in t around inf
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
times-fracN/A
*-inversesN/A
lower-*.f64N/A
lower-/.f64N/A
*-commutativeN/A
lower-fma.f6492.5
Applied rewrites92.5%
if +inf.0 < (/.f64 (+.f64 #s(literal 2 binary64) (*.f64 (*.f64 z #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) t))) (*.f64 t z)) Initial program 0.0%
Taylor expanded in t around inf
Applied rewrites100.0%
Final simplification86.9%
(FPCore (x y z t)
:precision binary64
(if (<= (/ x y) -110000000000.0)
(/ x y)
(if (<= (/ x y) 3.4e-176)
-2.0
(if (<= (/ x y) 8200000.0) (/ 2.0 t) (/ x y)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((x / y) <= -110000000000.0) {
tmp = x / y;
} else if ((x / y) <= 3.4e-176) {
tmp = -2.0;
} else if ((x / y) <= 8200000.0) {
tmp = 2.0 / t;
} else {
tmp = x / y;
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((x / y) <= (-110000000000.0d0)) then
tmp = x / y
else if ((x / y) <= 3.4d-176) then
tmp = -2.0d0
else if ((x / y) <= 8200000.0d0) then
tmp = 2.0d0 / t
else
tmp = x / y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((x / y) <= -110000000000.0) {
tmp = x / y;
} else if ((x / y) <= 3.4e-176) {
tmp = -2.0;
} else if ((x / y) <= 8200000.0) {
tmp = 2.0 / t;
} else {
tmp = x / y;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (x / y) <= -110000000000.0: tmp = x / y elif (x / y) <= 3.4e-176: tmp = -2.0 elif (x / y) <= 8200000.0: tmp = 2.0 / t else: tmp = x / y return tmp
function code(x, y, z, t) tmp = 0.0 if (Float64(x / y) <= -110000000000.0) tmp = Float64(x / y); elseif (Float64(x / y) <= 3.4e-176) tmp = -2.0; elseif (Float64(x / y) <= 8200000.0) tmp = Float64(2.0 / t); else tmp = Float64(x / y); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((x / y) <= -110000000000.0) tmp = x / y; elseif ((x / y) <= 3.4e-176) tmp = -2.0; elseif ((x / y) <= 8200000.0) tmp = 2.0 / t; else tmp = x / y; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[N[(x / y), $MachinePrecision], -110000000000.0], N[(x / y), $MachinePrecision], If[LessEqual[N[(x / y), $MachinePrecision], 3.4e-176], -2.0, If[LessEqual[N[(x / y), $MachinePrecision], 8200000.0], N[(2.0 / t), $MachinePrecision], N[(x / y), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x}{y} \leq -110000000000:\\
\;\;\;\;\frac{x}{y}\\
\mathbf{elif}\;\frac{x}{y} \leq 3.4 \cdot 10^{-176}:\\
\;\;\;\;-2\\
\mathbf{elif}\;\frac{x}{y} \leq 8200000:\\
\;\;\;\;\frac{2}{t}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{y}\\
\end{array}
\end{array}
if (/.f64 x y) < -1.1e11 or 8.2e6 < (/.f64 x y) Initial program 85.7%
Taylor expanded in x around inf
lower-/.f6474.3
Applied rewrites74.3%
if -1.1e11 < (/.f64 x y) < 3.3999999999999997e-176Initial program 93.9%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites85.9%
Taylor expanded in x around 0
sub-negN/A
distribute-lft-outN/A
lft-mult-inverseN/A
associate-*l/N/A
associate-/l/N/A
*-commutativeN/A
distribute-rgt-outN/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
Applied rewrites98.6%
Taylor expanded in t around inf
Applied rewrites35.8%
if 3.3999999999999997e-176 < (/.f64 x y) < 8.2e6Initial program 90.9%
Taylor expanded in t around 0
Applied rewrites68.8%
Taylor expanded in z around inf
Applied rewrites46.1%
(FPCore (x y z t)
:precision binary64
(if (<= (/ x y) -5e+81)
(+ (/ x y) (/ 2.0 t))
(if (<= (/ x y) 200.0)
(fma (/ 2.0 (* z t)) (+ 1.0 z) -2.0)
(+ (/ x y) (+ -2.0 (/ 2.0 t))))))
double code(double x, double y, double z, double t) {
double tmp;
if ((x / y) <= -5e+81) {
tmp = (x / y) + (2.0 / t);
} else if ((x / y) <= 200.0) {
tmp = fma((2.0 / (z * t)), (1.0 + z), -2.0);
} else {
tmp = (x / y) + (-2.0 + (2.0 / t));
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (Float64(x / y) <= -5e+81) tmp = Float64(Float64(x / y) + Float64(2.0 / t)); elseif (Float64(x / y) <= 200.0) tmp = fma(Float64(2.0 / Float64(z * t)), Float64(1.0 + z), -2.0); else tmp = Float64(Float64(x / y) + Float64(-2.0 + Float64(2.0 / t))); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[N[(x / y), $MachinePrecision], -5e+81], N[(N[(x / y), $MachinePrecision] + N[(2.0 / t), $MachinePrecision]), $MachinePrecision], If[LessEqual[N[(x / y), $MachinePrecision], 200.0], N[(N[(2.0 / N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(1.0 + z), $MachinePrecision] + -2.0), $MachinePrecision], N[(N[(x / y), $MachinePrecision] + N[(-2.0 + N[(2.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x}{y} \leq -5 \cdot 10^{+81}:\\
\;\;\;\;\frac{x}{y} + \frac{2}{t}\\
\mathbf{elif}\;\frac{x}{y} \leq 200:\\
\;\;\;\;\mathsf{fma}\left(\frac{2}{z \cdot t}, 1 + z, -2\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{y} + \left(-2 + \frac{2}{t}\right)\\
\end{array}
\end{array}
if (/.f64 x y) < -4.9999999999999998e81Initial program 81.2%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites80.1%
Taylor expanded in z around inf
metadata-evalN/A
metadata-evalN/A
associate-*r*N/A
neg-mul-1N/A
distribute-lft-inN/A
sub-negN/A
associate-*r/N/A
div-subN/A
sub-negN/A
*-inversesN/A
metadata-evalN/A
distribute-lft-inN/A
metadata-evalN/A
lower-+.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6486.8
Applied rewrites86.8%
Taylor expanded in t around 0
Applied rewrites86.8%
if -4.9999999999999998e81 < (/.f64 x y) < 200Initial program 93.0%
Taylor expanded in x around 0
Applied rewrites95.9%
if 200 < (/.f64 x y) Initial program 88.2%
Taylor expanded in z around inf
div-subN/A
sub-negN/A
*-inversesN/A
metadata-evalN/A
distribute-lft-inN/A
metadata-evalN/A
lower-+.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6493.1
Applied rewrites93.1%
Final simplification93.5%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (+ (/ x y) (/ 2.0 t))))
(if (<= (/ x y) -5e+81)
t_1
(if (<= (/ x y) 200.0) (fma (/ 2.0 (* z t)) (+ 1.0 z) -2.0) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = (x / y) + (2.0 / t);
double tmp;
if ((x / y) <= -5e+81) {
tmp = t_1;
} else if ((x / y) <= 200.0) {
tmp = fma((2.0 / (z * t)), (1.0 + z), -2.0);
} else {
tmp = t_1;
}
return tmp;
}
function code(x, y, z, t) t_1 = Float64(Float64(x / y) + Float64(2.0 / t)) tmp = 0.0 if (Float64(x / y) <= -5e+81) tmp = t_1; elseif (Float64(x / y) <= 200.0) tmp = fma(Float64(2.0 / Float64(z * t)), Float64(1.0 + z), -2.0); else tmp = t_1; end return tmp end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x / y), $MachinePrecision] + N[(2.0 / t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(x / y), $MachinePrecision], -5e+81], t$95$1, If[LessEqual[N[(x / y), $MachinePrecision], 200.0], N[(N[(2.0 / N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(1.0 + z), $MachinePrecision] + -2.0), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x}{y} + \frac{2}{t}\\
\mathbf{if}\;\frac{x}{y} \leq -5 \cdot 10^{+81}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\frac{x}{y} \leq 200:\\
\;\;\;\;\mathsf{fma}\left(\frac{2}{z \cdot t}, 1 + z, -2\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 x y) < -4.9999999999999998e81 or 200 < (/.f64 x y) Initial program 85.1%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites74.0%
Taylor expanded in z around inf
metadata-evalN/A
metadata-evalN/A
associate-*r*N/A
neg-mul-1N/A
distribute-lft-inN/A
sub-negN/A
associate-*r/N/A
div-subN/A
sub-negN/A
*-inversesN/A
metadata-evalN/A
distribute-lft-inN/A
metadata-evalN/A
lower-+.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6490.3
Applied rewrites90.3%
Taylor expanded in t around 0
Applied rewrites89.6%
if -4.9999999999999998e81 < (/.f64 x y) < 200Initial program 93.0%
Taylor expanded in x around 0
Applied rewrites95.9%
Final simplification93.3%
(FPCore (x y z t)
:precision binary64
(if (<= (/ x y) -4e+159)
(/ x y)
(if (<= (/ x y) 40000.0)
(fma (/ 2.0 (* z t)) (+ 1.0 z) -2.0)
(/ (fma y -2.0 x) y))))
double code(double x, double y, double z, double t) {
double tmp;
if ((x / y) <= -4e+159) {
tmp = x / y;
} else if ((x / y) <= 40000.0) {
tmp = fma((2.0 / (z * t)), (1.0 + z), -2.0);
} else {
tmp = fma(y, -2.0, x) / y;
}
return tmp;
}
function code(x, y, z, t) tmp = 0.0 if (Float64(x / y) <= -4e+159) tmp = Float64(x / y); elseif (Float64(x / y) <= 40000.0) tmp = fma(Float64(2.0 / Float64(z * t)), Float64(1.0 + z), -2.0); else tmp = Float64(fma(y, -2.0, x) / y); end return tmp end
code[x_, y_, z_, t_] := If[LessEqual[N[(x / y), $MachinePrecision], -4e+159], N[(x / y), $MachinePrecision], If[LessEqual[N[(x / y), $MachinePrecision], 40000.0], N[(N[(2.0 / N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(1.0 + z), $MachinePrecision] + -2.0), $MachinePrecision], N[(N[(y * -2.0 + x), $MachinePrecision] / y), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x}{y} \leq -4 \cdot 10^{+159}:\\
\;\;\;\;\frac{x}{y}\\
\mathbf{elif}\;\frac{x}{y} \leq 40000:\\
\;\;\;\;\mathsf{fma}\left(\frac{2}{z \cdot t}, 1 + z, -2\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\mathsf{fma}\left(y, -2, x\right)}{y}\\
\end{array}
\end{array}
if (/.f64 x y) < -3.9999999999999997e159Initial program 78.7%
Taylor expanded in x around inf
lower-/.f6491.3
Applied rewrites91.3%
if -3.9999999999999997e159 < (/.f64 x y) < 4e4Initial program 92.5%
Taylor expanded in x around 0
Applied rewrites92.2%
if 4e4 < (/.f64 x y) Initial program 87.8%
lift-+.f64N/A
+-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lift-/.f64N/A
frac-addN/A
div-invN/A
lower-*.f64N/A
Applied rewrites71.0%
Taylor expanded in t around inf
associate-*r*N/A
distribute-rgt-outN/A
*-commutativeN/A
times-fracN/A
*-inversesN/A
lower-*.f64N/A
lower-/.f64N/A
*-commutativeN/A
lower-fma.f6483.3
Applied rewrites83.3%
Final simplification90.1%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (+ (/ x y) -2.0)))
(if (<= (/ x y) -4e-14)
t_1
(if (<= (/ x y) 40000.0) (+ -2.0 (/ 2.0 t)) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = (x / y) + -2.0;
double tmp;
if ((x / y) <= -4e-14) {
tmp = t_1;
} else if ((x / y) <= 40000.0) {
tmp = -2.0 + (2.0 / t);
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: t_1
real(8) :: tmp
t_1 = (x / y) + (-2.0d0)
if ((x / y) <= (-4d-14)) then
tmp = t_1
else if ((x / y) <= 40000.0d0) then
tmp = (-2.0d0) + (2.0d0 / t)
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = (x / y) + -2.0;
double tmp;
if ((x / y) <= -4e-14) {
tmp = t_1;
} else if ((x / y) <= 40000.0) {
tmp = -2.0 + (2.0 / t);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = (x / y) + -2.0 tmp = 0 if (x / y) <= -4e-14: tmp = t_1 elif (x / y) <= 40000.0: tmp = -2.0 + (2.0 / t) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(x / y) + -2.0) tmp = 0.0 if (Float64(x / y) <= -4e-14) tmp = t_1; elseif (Float64(x / y) <= 40000.0) tmp = Float64(-2.0 + Float64(2.0 / t)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (x / y) + -2.0; tmp = 0.0; if ((x / y) <= -4e-14) tmp = t_1; elseif ((x / y) <= 40000.0) tmp = -2.0 + (2.0 / t); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x / y), $MachinePrecision] + -2.0), $MachinePrecision]}, If[LessEqual[N[(x / y), $MachinePrecision], -4e-14], t$95$1, If[LessEqual[N[(x / y), $MachinePrecision], 40000.0], N[(-2.0 + N[(2.0 / t), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x}{y} + -2\\
\mathbf{if}\;\frac{x}{y} \leq -4 \cdot 10^{-14}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;\frac{x}{y} \leq 40000:\\
\;\;\;\;-2 + \frac{2}{t}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if (/.f64 x y) < -4e-14 or 4e4 < (/.f64 x y) Initial program 86.4%
Taylor expanded in t around inf
Applied rewrites73.7%
if -4e-14 < (/.f64 x y) < 4e4Initial program 92.9%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites80.1%
Taylor expanded in x around 0
sub-negN/A
distribute-lft-outN/A
lft-mult-inverseN/A
associate-*l/N/A
associate-/l/N/A
*-commutativeN/A
distribute-rgt-outN/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
Applied rewrites99.1%
Taylor expanded in z around inf
Applied rewrites61.1%
Final simplification67.3%
(FPCore (x y z t) :precision binary64 (if (<= (/ x y) -1.02e+27) (/ x y) (if (<= (/ x y) 8200000.0) (+ -2.0 (/ 2.0 t)) (/ x y))))
double code(double x, double y, double z, double t) {
double tmp;
if ((x / y) <= -1.02e+27) {
tmp = x / y;
} else if ((x / y) <= 8200000.0) {
tmp = -2.0 + (2.0 / t);
} else {
tmp = x / y;
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((x / y) <= (-1.02d+27)) then
tmp = x / y
else if ((x / y) <= 8200000.0d0) then
tmp = (-2.0d0) + (2.0d0 / t)
else
tmp = x / y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((x / y) <= -1.02e+27) {
tmp = x / y;
} else if ((x / y) <= 8200000.0) {
tmp = -2.0 + (2.0 / t);
} else {
tmp = x / y;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (x / y) <= -1.02e+27: tmp = x / y elif (x / y) <= 8200000.0: tmp = -2.0 + (2.0 / t) else: tmp = x / y return tmp
function code(x, y, z, t) tmp = 0.0 if (Float64(x / y) <= -1.02e+27) tmp = Float64(x / y); elseif (Float64(x / y) <= 8200000.0) tmp = Float64(-2.0 + Float64(2.0 / t)); else tmp = Float64(x / y); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((x / y) <= -1.02e+27) tmp = x / y; elseif ((x / y) <= 8200000.0) tmp = -2.0 + (2.0 / t); else tmp = x / y; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[N[(x / y), $MachinePrecision], -1.02e+27], N[(x / y), $MachinePrecision], If[LessEqual[N[(x / y), $MachinePrecision], 8200000.0], N[(-2.0 + N[(2.0 / t), $MachinePrecision]), $MachinePrecision], N[(x / y), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{x}{y} \leq -1.02 \cdot 10^{+27}:\\
\;\;\;\;\frac{x}{y}\\
\mathbf{elif}\;\frac{x}{y} \leq 8200000:\\
\;\;\;\;-2 + \frac{2}{t}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{y}\\
\end{array}
\end{array}
if (/.f64 x y) < -1.0199999999999999e27 or 8.2e6 < (/.f64 x y) Initial program 85.2%
Taylor expanded in x around inf
lower-/.f6476.8
Applied rewrites76.8%
if -1.0199999999999999e27 < (/.f64 x y) < 8.2e6Initial program 93.4%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites80.9%
Taylor expanded in x around 0
sub-negN/A
distribute-lft-outN/A
lft-mult-inverseN/A
associate-*l/N/A
associate-/l/N/A
*-commutativeN/A
distribute-rgt-outN/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
Applied rewrites98.3%
Taylor expanded in z around inf
Applied rewrites58.8%
Final simplification66.9%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (+ (/ x y) (+ -2.0 (/ 2.0 t)))))
(if (<= z -9.2e-7)
t_1
(if (<= z 7.2e-70) (+ (/ x y) (/ 2.0 (* z t))) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = (x / y) + (-2.0 + (2.0 / t));
double tmp;
if (z <= -9.2e-7) {
tmp = t_1;
} else if (z <= 7.2e-70) {
tmp = (x / y) + (2.0 / (z * t));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: t_1
real(8) :: tmp
t_1 = (x / y) + ((-2.0d0) + (2.0d0 / t))
if (z <= (-9.2d-7)) then
tmp = t_1
else if (z <= 7.2d-70) then
tmp = (x / y) + (2.0d0 / (z * t))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = (x / y) + (-2.0 + (2.0 / t));
double tmp;
if (z <= -9.2e-7) {
tmp = t_1;
} else if (z <= 7.2e-70) {
tmp = (x / y) + (2.0 / (z * t));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = (x / y) + (-2.0 + (2.0 / t)) tmp = 0 if z <= -9.2e-7: tmp = t_1 elif z <= 7.2e-70: tmp = (x / y) + (2.0 / (z * t)) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(x / y) + Float64(-2.0 + Float64(2.0 / t))) tmp = 0.0 if (z <= -9.2e-7) tmp = t_1; elseif (z <= 7.2e-70) tmp = Float64(Float64(x / y) + Float64(2.0 / Float64(z * t))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (x / y) + (-2.0 + (2.0 / t)); tmp = 0.0; if (z <= -9.2e-7) tmp = t_1; elseif (z <= 7.2e-70) tmp = (x / y) + (2.0 / (z * t)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x / y), $MachinePrecision] + N[(-2.0 + N[(2.0 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -9.2e-7], t$95$1, If[LessEqual[z, 7.2e-70], N[(N[(x / y), $MachinePrecision] + N[(2.0 / N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x}{y} + \left(-2 + \frac{2}{t}\right)\\
\mathbf{if}\;z \leq -9.2 \cdot 10^{-7}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 7.2 \cdot 10^{-70}:\\
\;\;\;\;\frac{x}{y} + \frac{2}{z \cdot t}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -9.1999999999999998e-7 or 7.2000000000000004e-70 < z Initial program 84.3%
Taylor expanded in z around inf
div-subN/A
sub-negN/A
*-inversesN/A
metadata-evalN/A
distribute-lft-inN/A
metadata-evalN/A
lower-+.f64N/A
associate-*r/N/A
metadata-evalN/A
lower-/.f6498.4
Applied rewrites98.4%
if -9.1999999999999998e-7 < z < 7.2000000000000004e-70Initial program 97.8%
Taylor expanded in z around 0
Applied rewrites89.2%
Final simplification94.7%
(FPCore (x y z t) :precision binary64 (+ (/ x y) (fma (/ 2.0 (* z t)) (+ 1.0 z) -2.0)))
double code(double x, double y, double z, double t) {
return (x / y) + fma((2.0 / (z * t)), (1.0 + z), -2.0);
}
function code(x, y, z, t) return Float64(Float64(x / y) + fma(Float64(2.0 / Float64(z * t)), Float64(1.0 + z), -2.0)) end
code[x_, y_, z_, t_] := N[(N[(x / y), $MachinePrecision] + N[(N[(2.0 / N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(1.0 + z), $MachinePrecision] + -2.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{y} + \mathsf{fma}\left(\frac{2}{z \cdot t}, 1 + z, -2\right)
\end{array}
Initial program 89.7%
Taylor expanded in z around 0
Applied rewrites99.0%
Final simplification99.0%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (+ (/ x y) -2.0)))
(if (<= z -1.85e+239)
(+ -2.0 (/ 2.0 t))
(if (<= z -1.32e-121) t_1 (if (<= z 1.9e-73) (/ 2.0 (* z t)) t_1)))))
double code(double x, double y, double z, double t) {
double t_1 = (x / y) + -2.0;
double tmp;
if (z <= -1.85e+239) {
tmp = -2.0 + (2.0 / t);
} else if (z <= -1.32e-121) {
tmp = t_1;
} else if (z <= 1.9e-73) {
tmp = 2.0 / (z * t);
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: t_1
real(8) :: tmp
t_1 = (x / y) + (-2.0d0)
if (z <= (-1.85d+239)) then
tmp = (-2.0d0) + (2.0d0 / t)
else if (z <= (-1.32d-121)) then
tmp = t_1
else if (z <= 1.9d-73) then
tmp = 2.0d0 / (z * t)
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = (x / y) + -2.0;
double tmp;
if (z <= -1.85e+239) {
tmp = -2.0 + (2.0 / t);
} else if (z <= -1.32e-121) {
tmp = t_1;
} else if (z <= 1.9e-73) {
tmp = 2.0 / (z * t);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = (x / y) + -2.0 tmp = 0 if z <= -1.85e+239: tmp = -2.0 + (2.0 / t) elif z <= -1.32e-121: tmp = t_1 elif z <= 1.9e-73: tmp = 2.0 / (z * t) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(x / y) + -2.0) tmp = 0.0 if (z <= -1.85e+239) tmp = Float64(-2.0 + Float64(2.0 / t)); elseif (z <= -1.32e-121) tmp = t_1; elseif (z <= 1.9e-73) tmp = Float64(2.0 / Float64(z * t)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (x / y) + -2.0; tmp = 0.0; if (z <= -1.85e+239) tmp = -2.0 + (2.0 / t); elseif (z <= -1.32e-121) tmp = t_1; elseif (z <= 1.9e-73) tmp = 2.0 / (z * t); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x / y), $MachinePrecision] + -2.0), $MachinePrecision]}, If[LessEqual[z, -1.85e+239], N[(-2.0 + N[(2.0 / t), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.32e-121], t$95$1, If[LessEqual[z, 1.9e-73], N[(2.0 / N[(z * t), $MachinePrecision]), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x}{y} + -2\\
\mathbf{if}\;z \leq -1.85 \cdot 10^{+239}:\\
\;\;\;\;-2 + \frac{2}{t}\\
\mathbf{elif}\;z \leq -1.32 \cdot 10^{-121}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 1.9 \cdot 10^{-73}:\\
\;\;\;\;\frac{2}{z \cdot t}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -1.84999999999999999e239Initial program 76.7%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites19.0%
Taylor expanded in x around 0
sub-negN/A
distribute-lft-outN/A
lft-mult-inverseN/A
associate-*l/N/A
associate-/l/N/A
*-commutativeN/A
distribute-rgt-outN/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
Applied rewrites77.5%
Taylor expanded in z around inf
Applied rewrites77.7%
if -1.84999999999999999e239 < z < -1.32e-121 or 1.9000000000000001e-73 < z Initial program 86.8%
Taylor expanded in t around inf
Applied rewrites69.1%
if -1.32e-121 < z < 1.9000000000000001e-73Initial program 97.3%
Taylor expanded in z around 0
lower-/.f64N/A
lower-*.f6473.4
Applied rewrites73.4%
Final simplification70.9%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (+ (/ x y) -2.0))) (if (<= t -4.15e-81) t_1 (if (<= t 3.2e-48) (/ (* 2.0 z) (* z t)) t_1))))
double code(double x, double y, double z, double t) {
double t_1 = (x / y) + -2.0;
double tmp;
if (t <= -4.15e-81) {
tmp = t_1;
} else if (t <= 3.2e-48) {
tmp = (2.0 * z) / (z * t);
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: t_1
real(8) :: tmp
t_1 = (x / y) + (-2.0d0)
if (t <= (-4.15d-81)) then
tmp = t_1
else if (t <= 3.2d-48) then
tmp = (2.0d0 * z) / (z * t)
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = (x / y) + -2.0;
double tmp;
if (t <= -4.15e-81) {
tmp = t_1;
} else if (t <= 3.2e-48) {
tmp = (2.0 * z) / (z * t);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = (x / y) + -2.0 tmp = 0 if t <= -4.15e-81: tmp = t_1 elif t <= 3.2e-48: tmp = (2.0 * z) / (z * t) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(x / y) + -2.0) tmp = 0.0 if (t <= -4.15e-81) tmp = t_1; elseif (t <= 3.2e-48) tmp = Float64(Float64(2.0 * z) / Float64(z * t)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (x / y) + -2.0; tmp = 0.0; if (t <= -4.15e-81) tmp = t_1; elseif (t <= 3.2e-48) tmp = (2.0 * z) / (z * t); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x / y), $MachinePrecision] + -2.0), $MachinePrecision]}, If[LessEqual[t, -4.15e-81], t$95$1, If[LessEqual[t, 3.2e-48], N[(N[(2.0 * z), $MachinePrecision] / N[(z * t), $MachinePrecision]), $MachinePrecision], t$95$1]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x}{y} + -2\\
\mathbf{if}\;t \leq -4.15 \cdot 10^{-81}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 3.2 \cdot 10^{-48}:\\
\;\;\;\;\frac{2 \cdot z}{z \cdot t}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if t < -4.15000000000000007e-81 or 3.1999999999999998e-48 < t Initial program 85.3%
Taylor expanded in t around inf
Applied rewrites75.3%
if -4.15000000000000007e-81 < t < 3.1999999999999998e-48Initial program 97.6%
Taylor expanded in t around 0
Applied rewrites85.7%
Taylor expanded in z around inf
Applied rewrites61.6%
Final simplification70.4%
(FPCore (x y z t) :precision binary64 (if (<= t -1.0) -2.0 (if (<= t 5.5e-12) (/ 2.0 t) -2.0)))
double code(double x, double y, double z, double t) {
double tmp;
if (t <= -1.0) {
tmp = -2.0;
} else if (t <= 5.5e-12) {
tmp = 2.0 / t;
} else {
tmp = -2.0;
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (t <= (-1.0d0)) then
tmp = -2.0d0
else if (t <= 5.5d-12) then
tmp = 2.0d0 / t
else
tmp = -2.0d0
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (t <= -1.0) {
tmp = -2.0;
} else if (t <= 5.5e-12) {
tmp = 2.0 / t;
} else {
tmp = -2.0;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if t <= -1.0: tmp = -2.0 elif t <= 5.5e-12: tmp = 2.0 / t else: tmp = -2.0 return tmp
function code(x, y, z, t) tmp = 0.0 if (t <= -1.0) tmp = -2.0; elseif (t <= 5.5e-12) tmp = Float64(2.0 / t); else tmp = -2.0; end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (t <= -1.0) tmp = -2.0; elseif (t <= 5.5e-12) tmp = 2.0 / t; else tmp = -2.0; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[t, -1.0], -2.0, If[LessEqual[t, 5.5e-12], N[(2.0 / t), $MachinePrecision], -2.0]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -1:\\
\;\;\;\;-2\\
\mathbf{elif}\;t \leq 5.5 \cdot 10^{-12}:\\
\;\;\;\;\frac{2}{t}\\
\mathbf{else}:\\
\;\;\;\;-2\\
\end{array}
\end{array}
if t < -1 or 5.5000000000000004e-12 < t Initial program 81.8%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites85.2%
Taylor expanded in x around 0
sub-negN/A
distribute-lft-outN/A
lft-mult-inverseN/A
associate-*l/N/A
associate-/l/N/A
*-commutativeN/A
distribute-rgt-outN/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
Applied rewrites54.4%
Taylor expanded in t around inf
Applied rewrites34.9%
if -1 < t < 5.5000000000000004e-12Initial program 98.2%
Taylor expanded in t around 0
Applied rewrites75.2%
Taylor expanded in z around inf
Applied rewrites38.9%
(FPCore (x y z t) :precision binary64 -2.0)
double code(double x, double y, double z, double t) {
return -2.0;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = -2.0d0
end function
public static double code(double x, double y, double z, double t) {
return -2.0;
}
def code(x, y, z, t): return -2.0
function code(x, y, z, t) return -2.0 end
function tmp = code(x, y, z, t) tmp = -2.0; end
code[x_, y_, z_, t_] := -2.0
\begin{array}{l}
\\
-2
\end{array}
Initial program 89.7%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
Applied rewrites78.2%
Taylor expanded in x around 0
sub-negN/A
distribute-lft-outN/A
lft-mult-inverseN/A
associate-*l/N/A
associate-/l/N/A
*-commutativeN/A
distribute-rgt-outN/A
associate-*r*N/A
*-commutativeN/A
*-commutativeN/A
distribute-lft1-inN/A
+-commutativeN/A
*-commutativeN/A
metadata-evalN/A
lower-fma.f64N/A
Applied rewrites64.7%
Taylor expanded in t around inf
Applied rewrites19.3%
(FPCore (x y z t) :precision binary64 (- (/ (+ (/ 2.0 z) 2.0) t) (- 2.0 (/ x y))))
double code(double x, double y, double z, double t) {
return (((2.0 / z) + 2.0) / t) - (2.0 - (x / y));
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = (((2.0d0 / z) + 2.0d0) / t) - (2.0d0 - (x / y))
end function
public static double code(double x, double y, double z, double t) {
return (((2.0 / z) + 2.0) / t) - (2.0 - (x / y));
}
def code(x, y, z, t): return (((2.0 / z) + 2.0) / t) - (2.0 - (x / y))
function code(x, y, z, t) return Float64(Float64(Float64(Float64(2.0 / z) + 2.0) / t) - Float64(2.0 - Float64(x / y))) end
function tmp = code(x, y, z, t) tmp = (((2.0 / z) + 2.0) / t) - (2.0 - (x / y)); end
code[x_, y_, z_, t_] := N[(N[(N[(N[(2.0 / z), $MachinePrecision] + 2.0), $MachinePrecision] / t), $MachinePrecision] - N[(2.0 - N[(x / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\frac{2}{z} + 2}{t} - \left(2 - \frac{x}{y}\right)
\end{array}
herbie shell --seed 2024238
(FPCore (x y z t)
:name "Data.HashTable.ST.Basic:computeOverhead from hashtables-1.2.0.2"
:precision binary64
:alt
(! :herbie-platform default (- (/ (+ (/ 2 z) 2) t) (- 2 (/ x y))))
(+ (/ x y) (/ (+ 2.0 (* (* z 2.0) (- 1.0 t))) (* t z))))