
(FPCore (x y z t) :precision binary64 (/ (+ x (/ (- (* y z) x) (- (* t z) x))) (+ x 1.0)))
double code(double x, double y, double z, double t) {
return (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.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 = (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.0d0)
end function
public static double code(double x, double y, double z, double t) {
return (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.0);
}
def code(x, y, z, t): return (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.0)
function code(x, y, z, t) return Float64(Float64(x + Float64(Float64(Float64(y * z) - x) / Float64(Float64(t * z) - x))) / Float64(x + 1.0)) end
function tmp = code(x, y, z, t) tmp = (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.0); end
code[x_, y_, z_, t_] := N[(N[(x + N[(N[(N[(y * z), $MachinePrecision] - x), $MachinePrecision] / N[(N[(t * z), $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x + \frac{y \cdot z - x}{t \cdot z - x}}{x + 1}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 9 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (/ (+ x (/ (- (* y z) x) (- (* t z) x))) (+ x 1.0)))
double code(double x, double y, double z, double t) {
return (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.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 = (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.0d0)
end function
public static double code(double x, double y, double z, double t) {
return (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.0);
}
def code(x, y, z, t): return (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.0)
function code(x, y, z, t) return Float64(Float64(x + Float64(Float64(Float64(y * z) - x) / Float64(Float64(t * z) - x))) / Float64(x + 1.0)) end
function tmp = code(x, y, z, t) tmp = (x + (((y * z) - x) / ((t * z) - x))) / (x + 1.0); end
code[x_, y_, z_, t_] := N[(N[(x + N[(N[(N[(y * z), $MachinePrecision] - x), $MachinePrecision] / N[(N[(t * z), $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x + \frac{y \cdot z - x}{t \cdot z - x}}{x + 1}
\end{array}
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (* z t) x)) (t_2 (/ (+ x (/ (- (* y z) x) t_1)) (+ x 1.0))))
(if (or (<= t_2 -0.2) (not (<= t_2 5e+94)))
(/ (* y (+ (+ (/ z t_1) (/ x y)) (/ (/ x y) (- x (* z t))))) (+ x 1.0))
t_2)))
double code(double x, double y, double z, double t) {
double t_1 = (z * t) - x;
double t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0);
double tmp;
if ((t_2 <= -0.2) || !(t_2 <= 5e+94)) {
tmp = (y * (((z / t_1) + (x / y)) + ((x / y) / (x - (z * t))))) / (x + 1.0);
} else {
tmp = t_2;
}
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) :: t_2
real(8) :: tmp
t_1 = (z * t) - x
t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0d0)
if ((t_2 <= (-0.2d0)) .or. (.not. (t_2 <= 5d+94))) then
tmp = (y * (((z / t_1) + (x / y)) + ((x / y) / (x - (z * t))))) / (x + 1.0d0)
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = (z * t) - x;
double t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0);
double tmp;
if ((t_2 <= -0.2) || !(t_2 <= 5e+94)) {
tmp = (y * (((z / t_1) + (x / y)) + ((x / y) / (x - (z * t))))) / (x + 1.0);
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t): t_1 = (z * t) - x t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0) tmp = 0 if (t_2 <= -0.2) or not (t_2 <= 5e+94): tmp = (y * (((z / t_1) + (x / y)) + ((x / y) / (x - (z * t))))) / (x + 1.0) else: tmp = t_2 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(z * t) - x) t_2 = Float64(Float64(x + Float64(Float64(Float64(y * z) - x) / t_1)) / Float64(x + 1.0)) tmp = 0.0 if ((t_2 <= -0.2) || !(t_2 <= 5e+94)) tmp = Float64(Float64(y * Float64(Float64(Float64(z / t_1) + Float64(x / y)) + Float64(Float64(x / y) / Float64(x - Float64(z * t))))) / Float64(x + 1.0)); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (z * t) - x; t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0); tmp = 0.0; if ((t_2 <= -0.2) || ~((t_2 <= 5e+94))) tmp = (y * (((z / t_1) + (x / y)) + ((x / y) / (x - (z * t))))) / (x + 1.0); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z * t), $MachinePrecision] - x), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x + N[(N[(N[(y * z), $MachinePrecision] - x), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]}, If[Or[LessEqual[t$95$2, -0.2], N[Not[LessEqual[t$95$2, 5e+94]], $MachinePrecision]], N[(N[(y * N[(N[(N[(z / t$95$1), $MachinePrecision] + N[(x / y), $MachinePrecision]), $MachinePrecision] + N[(N[(x / y), $MachinePrecision] / N[(x - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision], t$95$2]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot t - x\\
t_2 := \frac{x + \frac{y \cdot z - x}{t\_1}}{x + 1}\\
\mathbf{if}\;t\_2 \leq -0.2 \lor \neg \left(t\_2 \leq 5 \cdot 10^{+94}\right):\\
\;\;\;\;\frac{y \cdot \left(\left(\frac{z}{t\_1} + \frac{x}{y}\right) + \frac{\frac{x}{y}}{x - z \cdot t}\right)}{x + 1}\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) < -0.20000000000000001 or 5.0000000000000001e94 < (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) Initial program 69.9%
*-commutative69.9%
Simplified69.9%
Taylor expanded in y around inf 92.3%
+-commutative92.3%
associate-/r*93.6%
Simplified93.6%
if -0.20000000000000001 < (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) < 5.0000000000000001e94Initial program 99.9%
Final simplification97.9%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (* z t) x)) (t_2 (/ (+ x (/ (- (* y z) x) t_1)) (+ x 1.0))))
(if (<= t_2 -5e+150)
(* y (/ (/ z (+ x 1.0)) t_1))
(if (<= t_2 2e+265)
t_2
(+ (/ x (+ x 1.0)) (/ (+ (/ y (+ x 1.0)) (/ x (* z (- -1.0 x)))) t))))))
double code(double x, double y, double z, double t) {
double t_1 = (z * t) - x;
double t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0);
double tmp;
if (t_2 <= -5e+150) {
tmp = y * ((z / (x + 1.0)) / t_1);
} else if (t_2 <= 2e+265) {
tmp = t_2;
} else {
tmp = (x / (x + 1.0)) + (((y / (x + 1.0)) + (x / (z * (-1.0 - x)))) / t);
}
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) :: t_2
real(8) :: tmp
t_1 = (z * t) - x
t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0d0)
if (t_2 <= (-5d+150)) then
tmp = y * ((z / (x + 1.0d0)) / t_1)
else if (t_2 <= 2d+265) then
tmp = t_2
else
tmp = (x / (x + 1.0d0)) + (((y / (x + 1.0d0)) + (x / (z * ((-1.0d0) - x)))) / t)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = (z * t) - x;
double t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0);
double tmp;
if (t_2 <= -5e+150) {
tmp = y * ((z / (x + 1.0)) / t_1);
} else if (t_2 <= 2e+265) {
tmp = t_2;
} else {
tmp = (x / (x + 1.0)) + (((y / (x + 1.0)) + (x / (z * (-1.0 - x)))) / t);
}
return tmp;
}
def code(x, y, z, t): t_1 = (z * t) - x t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0) tmp = 0 if t_2 <= -5e+150: tmp = y * ((z / (x + 1.0)) / t_1) elif t_2 <= 2e+265: tmp = t_2 else: tmp = (x / (x + 1.0)) + (((y / (x + 1.0)) + (x / (z * (-1.0 - x)))) / t) return tmp
function code(x, y, z, t) t_1 = Float64(Float64(z * t) - x) t_2 = Float64(Float64(x + Float64(Float64(Float64(y * z) - x) / t_1)) / Float64(x + 1.0)) tmp = 0.0 if (t_2 <= -5e+150) tmp = Float64(y * Float64(Float64(z / Float64(x + 1.0)) / t_1)); elseif (t_2 <= 2e+265) tmp = t_2; else tmp = Float64(Float64(x / Float64(x + 1.0)) + Float64(Float64(Float64(y / Float64(x + 1.0)) + Float64(x / Float64(z * Float64(-1.0 - x)))) / t)); end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (z * t) - x; t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0); tmp = 0.0; if (t_2 <= -5e+150) tmp = y * ((z / (x + 1.0)) / t_1); elseif (t_2 <= 2e+265) tmp = t_2; else tmp = (x / (x + 1.0)) + (((y / (x + 1.0)) + (x / (z * (-1.0 - x)))) / t); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z * t), $MachinePrecision] - x), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x + N[(N[(N[(y * z), $MachinePrecision] - x), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, -5e+150], N[(y * N[(N[(z / N[(x + 1.0), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, 2e+265], t$95$2, N[(N[(x / N[(x + 1.0), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(y / N[(x + 1.0), $MachinePrecision]), $MachinePrecision] + N[(x / N[(z * N[(-1.0 - x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot t - x\\
t_2 := \frac{x + \frac{y \cdot z - x}{t\_1}}{x + 1}\\
\mathbf{if}\;t\_2 \leq -5 \cdot 10^{+150}:\\
\;\;\;\;y \cdot \frac{\frac{z}{x + 1}}{t\_1}\\
\mathbf{elif}\;t\_2 \leq 2 \cdot 10^{+265}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{x + 1} + \frac{\frac{y}{x + 1} + \frac{x}{z \cdot \left(-1 - x\right)}}{t}\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) < -5.00000000000000009e150Initial program 71.5%
*-commutative71.5%
Simplified71.5%
Taylor expanded in y around inf 95.7%
+-commutative95.7%
associate-/r*95.7%
Simplified95.7%
Taylor expanded in y around inf 71.0%
associate-/l*83.5%
associate-/r*93.9%
+-commutative93.9%
Simplified93.9%
if -5.00000000000000009e150 < (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) < 2.00000000000000013e265Initial program 99.8%
if 2.00000000000000013e265 < (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) Initial program 35.6%
*-commutative35.6%
Simplified35.6%
Taylor expanded in t around -inf 84.7%
+-commutative84.7%
mul-1-neg84.7%
unsub-neg84.7%
+-commutative84.7%
Simplified84.7%
Final simplification97.7%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (* z t) x)) (t_2 (/ (+ x (/ (- (* y z) x) t_1)) (+ x 1.0))))
(if (<= t_2 -5e+150)
(* y (/ (/ z (+ x 1.0)) t_1))
(if (<= t_2 2e+265) t_2 (/ (+ x (/ y t)) (+ x 1.0))))))
double code(double x, double y, double z, double t) {
double t_1 = (z * t) - x;
double t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0);
double tmp;
if (t_2 <= -5e+150) {
tmp = y * ((z / (x + 1.0)) / t_1);
} else if (t_2 <= 2e+265) {
tmp = t_2;
} else {
tmp = (x + (y / t)) / (x + 1.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) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (z * t) - x
t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0d0)
if (t_2 <= (-5d+150)) then
tmp = y * ((z / (x + 1.0d0)) / t_1)
else if (t_2 <= 2d+265) then
tmp = t_2
else
tmp = (x + (y / t)) / (x + 1.0d0)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = (z * t) - x;
double t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0);
double tmp;
if (t_2 <= -5e+150) {
tmp = y * ((z / (x + 1.0)) / t_1);
} else if (t_2 <= 2e+265) {
tmp = t_2;
} else {
tmp = (x + (y / t)) / (x + 1.0);
}
return tmp;
}
def code(x, y, z, t): t_1 = (z * t) - x t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0) tmp = 0 if t_2 <= -5e+150: tmp = y * ((z / (x + 1.0)) / t_1) elif t_2 <= 2e+265: tmp = t_2 else: tmp = (x + (y / t)) / (x + 1.0) return tmp
function code(x, y, z, t) t_1 = Float64(Float64(z * t) - x) t_2 = Float64(Float64(x + Float64(Float64(Float64(y * z) - x) / t_1)) / Float64(x + 1.0)) tmp = 0.0 if (t_2 <= -5e+150) tmp = Float64(y * Float64(Float64(z / Float64(x + 1.0)) / t_1)); elseif (t_2 <= 2e+265) tmp = t_2; else tmp = Float64(Float64(x + Float64(y / t)) / Float64(x + 1.0)); end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (z * t) - x; t_2 = (x + (((y * z) - x) / t_1)) / (x + 1.0); tmp = 0.0; if (t_2 <= -5e+150) tmp = y * ((z / (x + 1.0)) / t_1); elseif (t_2 <= 2e+265) tmp = t_2; else tmp = (x + (y / t)) / (x + 1.0); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(z * t), $MachinePrecision] - x), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x + N[(N[(N[(y * z), $MachinePrecision] - x), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$2, -5e+150], N[(y * N[(N[(z / N[(x + 1.0), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$2, 2e+265], t$95$2, N[(N[(x + N[(y / t), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot t - x\\
t_2 := \frac{x + \frac{y \cdot z - x}{t\_1}}{x + 1}\\
\mathbf{if}\;t\_2 \leq -5 \cdot 10^{+150}:\\
\;\;\;\;y \cdot \frac{\frac{z}{x + 1}}{t\_1}\\
\mathbf{elif}\;t\_2 \leq 2 \cdot 10^{+265}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;\frac{x + \frac{y}{t}}{x + 1}\\
\end{array}
\end{array}
if (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) < -5.00000000000000009e150Initial program 71.5%
*-commutative71.5%
Simplified71.5%
Taylor expanded in y around inf 95.7%
+-commutative95.7%
associate-/r*95.7%
Simplified95.7%
Taylor expanded in y around inf 71.0%
associate-/l*83.5%
associate-/r*93.9%
+-commutative93.9%
Simplified93.9%
if -5.00000000000000009e150 < (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) < 2.00000000000000013e265Initial program 99.8%
if 2.00000000000000013e265 < (/.f64 (+.f64 x (/.f64 (-.f64 (*.f64 y z) x) (-.f64 (*.f64 t z) x))) (+.f64 x #s(literal 1 binary64))) Initial program 35.6%
*-commutative35.6%
Simplified35.6%
Taylor expanded in z around inf 84.7%
Final simplification97.7%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (/ (+ x (/ x (- x (* z t)))) (+ x 1.0))))
(if (<= x -1.4e-120)
t_1
(if (<= x 5.2e-176)
(/ (+ x (/ (- y (/ x z)) t)) (+ x 1.0))
(if (<= x 6.5e-71) (* y (/ z (* (- (* z t) x) (+ x 1.0)))) t_1)))))
double code(double x, double y, double z, double t) {
double t_1 = (x + (x / (x - (z * t)))) / (x + 1.0);
double tmp;
if (x <= -1.4e-120) {
tmp = t_1;
} else if (x <= 5.2e-176) {
tmp = (x + ((y - (x / z)) / t)) / (x + 1.0);
} else if (x <= 6.5e-71) {
tmp = y * (z / (((z * t) - x) * (x + 1.0)));
} 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 + (x / (x - (z * t)))) / (x + 1.0d0)
if (x <= (-1.4d-120)) then
tmp = t_1
else if (x <= 5.2d-176) then
tmp = (x + ((y - (x / z)) / t)) / (x + 1.0d0)
else if (x <= 6.5d-71) then
tmp = y * (z / (((z * t) - x) * (x + 1.0d0)))
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 + (x / (x - (z * t)))) / (x + 1.0);
double tmp;
if (x <= -1.4e-120) {
tmp = t_1;
} else if (x <= 5.2e-176) {
tmp = (x + ((y - (x / z)) / t)) / (x + 1.0);
} else if (x <= 6.5e-71) {
tmp = y * (z / (((z * t) - x) * (x + 1.0)));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = (x + (x / (x - (z * t)))) / (x + 1.0) tmp = 0 if x <= -1.4e-120: tmp = t_1 elif x <= 5.2e-176: tmp = (x + ((y - (x / z)) / t)) / (x + 1.0) elif x <= 6.5e-71: tmp = y * (z / (((z * t) - x) * (x + 1.0))) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(Float64(x + Float64(x / Float64(x - Float64(z * t)))) / Float64(x + 1.0)) tmp = 0.0 if (x <= -1.4e-120) tmp = t_1; elseif (x <= 5.2e-176) tmp = Float64(Float64(x + Float64(Float64(y - Float64(x / z)) / t)) / Float64(x + 1.0)); elseif (x <= 6.5e-71) tmp = Float64(y * Float64(z / Float64(Float64(Float64(z * t) - x) * Float64(x + 1.0)))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (x + (x / (x - (z * t)))) / (x + 1.0); tmp = 0.0; if (x <= -1.4e-120) tmp = t_1; elseif (x <= 5.2e-176) tmp = (x + ((y - (x / z)) / t)) / (x + 1.0); elseif (x <= 6.5e-71) tmp = y * (z / (((z * t) - x) * (x + 1.0))); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x + N[(x / N[(x - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.4e-120], t$95$1, If[LessEqual[x, 5.2e-176], N[(N[(x + N[(N[(y - N[(x / z), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.5e-71], N[(y * N[(z / N[(N[(N[(z * t), $MachinePrecision] - x), $MachinePrecision] * N[(x + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{x + \frac{x}{x - z \cdot t}}{x + 1}\\
\mathbf{if}\;x \leq -1.4 \cdot 10^{-120}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-176}:\\
\;\;\;\;\frac{x + \frac{y - \frac{x}{z}}{t}}{x + 1}\\
\mathbf{elif}\;x \leq 6.5 \cdot 10^{-71}:\\
\;\;\;\;y \cdot \frac{z}{\left(z \cdot t - x\right) \cdot \left(x + 1\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -1.39999999999999997e-120 or 6.50000000000000005e-71 < x Initial program 89.1%
*-commutative89.1%
Simplified89.1%
Taylor expanded in y around 0 83.9%
+-commutative83.9%
Simplified83.9%
if -1.39999999999999997e-120 < x < 5.19999999999999984e-176Initial program 93.0%
*-commutative93.0%
Simplified93.0%
Taylor expanded in t around -inf 83.3%
mul-1-neg83.3%
unsub-neg83.3%
cancel-sign-sub-inv83.3%
metadata-eval83.3%
*-lft-identity83.3%
+-commutative83.3%
mul-1-neg83.3%
unsub-neg83.3%
Simplified83.3%
if 5.19999999999999984e-176 < x < 6.50000000000000005e-71Initial program 94.3%
*-commutative94.3%
Simplified94.3%
Taylor expanded in y around inf 72.8%
associate-/l*78.3%
+-commutative78.3%
Simplified78.3%
Final simplification83.3%
(FPCore (x y z t) :precision binary64 (if (or (<= z -6.4e+66) (not (<= z 7.5e+20))) (/ (+ x (/ y t)) (+ x 1.0)) (+ 1.0 (/ (* y (/ z x)) (- -1.0 x)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -6.4e+66) || !(z <= 7.5e+20)) {
tmp = (x + (y / t)) / (x + 1.0);
} else {
tmp = 1.0 + ((y * (z / x)) / (-1.0 - x));
}
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 ((z <= (-6.4d+66)) .or. (.not. (z <= 7.5d+20))) then
tmp = (x + (y / t)) / (x + 1.0d0)
else
tmp = 1.0d0 + ((y * (z / x)) / ((-1.0d0) - x))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((z <= -6.4e+66) || !(z <= 7.5e+20)) {
tmp = (x + (y / t)) / (x + 1.0);
} else {
tmp = 1.0 + ((y * (z / x)) / (-1.0 - x));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (z <= -6.4e+66) or not (z <= 7.5e+20): tmp = (x + (y / t)) / (x + 1.0) else: tmp = 1.0 + ((y * (z / x)) / (-1.0 - x)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((z <= -6.4e+66) || !(z <= 7.5e+20)) tmp = Float64(Float64(x + Float64(y / t)) / Float64(x + 1.0)); else tmp = Float64(1.0 + Float64(Float64(y * Float64(z / x)) / Float64(-1.0 - x))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((z <= -6.4e+66) || ~((z <= 7.5e+20))) tmp = (x + (y / t)) / (x + 1.0); else tmp = 1.0 + ((y * (z / x)) / (-1.0 - x)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[z, -6.4e+66], N[Not[LessEqual[z, 7.5e+20]], $MachinePrecision]], N[(N[(x + N[(y / t), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(N[(y * N[(z / x), $MachinePrecision]), $MachinePrecision] / N[(-1.0 - x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -6.4 \cdot 10^{+66} \lor \neg \left(z \leq 7.5 \cdot 10^{+20}\right):\\
\;\;\;\;\frac{x + \frac{y}{t}}{x + 1}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{y \cdot \frac{z}{x}}{-1 - x}\\
\end{array}
\end{array}
if z < -6.3999999999999999e66 or 7.5e20 < z Initial program 81.4%
*-commutative81.4%
Simplified81.4%
Taylor expanded in z around inf 83.4%
if -6.3999999999999999e66 < z < 7.5e20Initial program 99.8%
*-commutative99.8%
Simplified99.8%
Taylor expanded in t around 0 79.4%
associate-+r+79.4%
mul-1-neg79.4%
unsub-neg79.4%
+-commutative79.4%
associate-/l*79.5%
+-commutative79.5%
Simplified79.5%
div-sub79.5%
pow179.5%
pow179.5%
pow-div79.5%
metadata-eval79.5%
metadata-eval79.5%
Applied egg-rr79.5%
Final simplification81.4%
(FPCore (x y z t)
:precision binary64
(if (<= x -1.15e-118)
1.0
(if (<= x 36000000000000.0)
(/ (+ x (/ y t)) (+ x 1.0))
(+ 1.0 (/ -1.0 x)))))
double code(double x, double y, double z, double t) {
double tmp;
if (x <= -1.15e-118) {
tmp = 1.0;
} else if (x <= 36000000000000.0) {
tmp = (x + (y / t)) / (x + 1.0);
} else {
tmp = 1.0 + (-1.0 / x);
}
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 <= (-1.15d-118)) then
tmp = 1.0d0
else if (x <= 36000000000000.0d0) then
tmp = (x + (y / t)) / (x + 1.0d0)
else
tmp = 1.0d0 + ((-1.0d0) / x)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (x <= -1.15e-118) {
tmp = 1.0;
} else if (x <= 36000000000000.0) {
tmp = (x + (y / t)) / (x + 1.0);
} else {
tmp = 1.0 + (-1.0 / x);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if x <= -1.15e-118: tmp = 1.0 elif x <= 36000000000000.0: tmp = (x + (y / t)) / (x + 1.0) else: tmp = 1.0 + (-1.0 / x) return tmp
function code(x, y, z, t) tmp = 0.0 if (x <= -1.15e-118) tmp = 1.0; elseif (x <= 36000000000000.0) tmp = Float64(Float64(x + Float64(y / t)) / Float64(x + 1.0)); else tmp = Float64(1.0 + Float64(-1.0 / x)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (x <= -1.15e-118) tmp = 1.0; elseif (x <= 36000000000000.0) tmp = (x + (y / t)) / (x + 1.0); else tmp = 1.0 + (-1.0 / x); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[x, -1.15e-118], 1.0, If[LessEqual[x, 36000000000000.0], N[(N[(x + N[(y / t), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision], N[(1.0 + N[(-1.0 / x), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -1.15 \cdot 10^{-118}:\\
\;\;\;\;1\\
\mathbf{elif}\;x \leq 36000000000000:\\
\;\;\;\;\frac{x + \frac{y}{t}}{x + 1}\\
\mathbf{else}:\\
\;\;\;\;1 + \frac{-1}{x}\\
\end{array}
\end{array}
if x < -1.1500000000000001e-118Initial program 92.6%
*-commutative92.6%
Simplified92.6%
Taylor expanded in y around inf 87.7%
+-commutative87.7%
associate-/r*87.3%
Simplified87.3%
Taylor expanded in x around inf 75.9%
if -1.1500000000000001e-118 < x < 3.6e13Initial program 92.8%
*-commutative92.8%
Simplified92.8%
Taylor expanded in z around inf 71.5%
if 3.6e13 < x Initial program 83.9%
*-commutative83.9%
Simplified83.9%
Taylor expanded in t around inf 87.4%
+-commutative87.4%
Simplified87.4%
Taylor expanded in x around inf 87.4%
Final simplification76.7%
(FPCore (x y z t) :precision binary64 (if (<= x -1.15e-118) 1.0 (if (<= x 6e-81) (/ y t) (/ x (+ x 1.0)))))
double code(double x, double y, double z, double t) {
double tmp;
if (x <= -1.15e-118) {
tmp = 1.0;
} else if (x <= 6e-81) {
tmp = y / t;
} else {
tmp = x / (x + 1.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 (x <= (-1.15d-118)) then
tmp = 1.0d0
else if (x <= 6d-81) then
tmp = y / t
else
tmp = x / (x + 1.0d0)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (x <= -1.15e-118) {
tmp = 1.0;
} else if (x <= 6e-81) {
tmp = y / t;
} else {
tmp = x / (x + 1.0);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if x <= -1.15e-118: tmp = 1.0 elif x <= 6e-81: tmp = y / t else: tmp = x / (x + 1.0) return tmp
function code(x, y, z, t) tmp = 0.0 if (x <= -1.15e-118) tmp = 1.0; elseif (x <= 6e-81) tmp = Float64(y / t); else tmp = Float64(x / Float64(x + 1.0)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (x <= -1.15e-118) tmp = 1.0; elseif (x <= 6e-81) tmp = y / t; else tmp = x / (x + 1.0); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[x, -1.15e-118], 1.0, If[LessEqual[x, 6e-81], N[(y / t), $MachinePrecision], N[(x / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -1.15 \cdot 10^{-118}:\\
\;\;\;\;1\\
\mathbf{elif}\;x \leq 6 \cdot 10^{-81}:\\
\;\;\;\;\frac{y}{t}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{x + 1}\\
\end{array}
\end{array}
if x < -1.1500000000000001e-118Initial program 92.6%
*-commutative92.6%
Simplified92.6%
Taylor expanded in y around inf 87.7%
+-commutative87.7%
associate-/r*87.3%
Simplified87.3%
Taylor expanded in x around inf 75.9%
if -1.1500000000000001e-118 < x < 5.9999999999999998e-81Initial program 93.1%
*-commutative93.1%
Simplified93.1%
Taylor expanded in z around inf 74.8%
Taylor expanded in x around 0 63.8%
if 5.9999999999999998e-81 < x Initial program 86.1%
*-commutative86.1%
Simplified86.1%
Taylor expanded in t around inf 74.8%
+-commutative74.8%
Simplified74.8%
Final simplification71.3%
(FPCore (x y z t) :precision binary64 (if (<= x -1.15e-118) 1.0 (if (<= x 8.2e-81) (/ y t) 1.0)))
double code(double x, double y, double z, double t) {
double tmp;
if (x <= -1.15e-118) {
tmp = 1.0;
} else if (x <= 8.2e-81) {
tmp = y / t;
} else {
tmp = 1.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 (x <= (-1.15d-118)) then
tmp = 1.0d0
else if (x <= 8.2d-81) then
tmp = y / t
else
tmp = 1.0d0
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (x <= -1.15e-118) {
tmp = 1.0;
} else if (x <= 8.2e-81) {
tmp = y / t;
} else {
tmp = 1.0;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if x <= -1.15e-118: tmp = 1.0 elif x <= 8.2e-81: tmp = y / t else: tmp = 1.0 return tmp
function code(x, y, z, t) tmp = 0.0 if (x <= -1.15e-118) tmp = 1.0; elseif (x <= 8.2e-81) tmp = Float64(y / t); else tmp = 1.0; end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (x <= -1.15e-118) tmp = 1.0; elseif (x <= 8.2e-81) tmp = y / t; else tmp = 1.0; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[x, -1.15e-118], 1.0, If[LessEqual[x, 8.2e-81], N[(y / t), $MachinePrecision], 1.0]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -1.15 \cdot 10^{-118}:\\
\;\;\;\;1\\
\mathbf{elif}\;x \leq 8.2 \cdot 10^{-81}:\\
\;\;\;\;\frac{y}{t}\\
\mathbf{else}:\\
\;\;\;\;1\\
\end{array}
\end{array}
if x < -1.1500000000000001e-118 or 8.19999999999999968e-81 < x Initial program 89.3%
*-commutative89.3%
Simplified89.3%
Taylor expanded in y around inf 88.0%
+-commutative88.0%
associate-/r*87.7%
Simplified87.7%
Taylor expanded in x around inf 74.5%
if -1.1500000000000001e-118 < x < 8.19999999999999968e-81Initial program 93.1%
*-commutative93.1%
Simplified93.1%
Taylor expanded in z around inf 74.8%
Taylor expanded in x around 0 63.8%
Final simplification70.7%
(FPCore (x y z t) :precision binary64 1.0)
double code(double x, double y, double z, double t) {
return 1.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 = 1.0d0
end function
public static double code(double x, double y, double z, double t) {
return 1.0;
}
def code(x, y, z, t): return 1.0
function code(x, y, z, t) return 1.0 end
function tmp = code(x, y, z, t) tmp = 1.0; end
code[x_, y_, z_, t_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 90.6%
*-commutative90.6%
Simplified90.6%
Taylor expanded in y around inf 87.2%
+-commutative87.2%
associate-/r*90.5%
Simplified90.5%
Taylor expanded in x around inf 52.1%
Final simplification52.1%
(FPCore (x y z t) :precision binary64 (/ (+ x (- (/ y (- t (/ x z))) (/ x (- (* t z) x)))) (+ x 1.0)))
double code(double x, double y, double z, double t) {
return (x + ((y / (t - (x / z))) - (x / ((t * z) - x)))) / (x + 1.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 = (x + ((y / (t - (x / z))) - (x / ((t * z) - x)))) / (x + 1.0d0)
end function
public static double code(double x, double y, double z, double t) {
return (x + ((y / (t - (x / z))) - (x / ((t * z) - x)))) / (x + 1.0);
}
def code(x, y, z, t): return (x + ((y / (t - (x / z))) - (x / ((t * z) - x)))) / (x + 1.0)
function code(x, y, z, t) return Float64(Float64(x + Float64(Float64(y / Float64(t - Float64(x / z))) - Float64(x / Float64(Float64(t * z) - x)))) / Float64(x + 1.0)) end
function tmp = code(x, y, z, t) tmp = (x + ((y / (t - (x / z))) - (x / ((t * z) - x)))) / (x + 1.0); end
code[x_, y_, z_, t_] := N[(N[(x + N[(N[(y / N[(t - N[(x / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x / N[(N[(t * z), $MachinePrecision] - x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(x + 1.0), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x + \left(\frac{y}{t - \frac{x}{z}} - \frac{x}{t \cdot z - x}\right)}{x + 1}
\end{array}
herbie shell --seed 2024060
(FPCore (x y z t)
:name "Diagrams.Trail:splitAtParam from diagrams-lib-1.3.0.3, A"
:precision binary64
:alt
(/ (+ x (- (/ y (- t (/ x z))) (/ x (- (* t z) x)))) (+ x 1.0))
(/ (+ x (/ (- (* y z) x) (- (* t z) x))) (+ x 1.0)))