
(FPCore (x y z t) :precision binary64 (+ (- x (/ y (* z 3.0))) (/ t (* (* z 3.0) y))))
double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * 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 = (x - (y / (z * 3.0d0))) + (t / ((z * 3.0d0) * y))
end function
public static double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
}
def code(x, y, z, t): return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y))
function code(x, y, z, t) return Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(t / Float64(Float64(z * 3.0) * y))) end
function tmp = code(x, y, z, t) tmp = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y)); end
code[x_, y_, z_, t_] := N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t / N[(N[(z * 3.0), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x - \frac{y}{z \cdot 3}\right) + \frac{t}{\left(z \cdot 3\right) \cdot y}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 19 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (+ (- x (/ y (* z 3.0))) (/ t (* (* z 3.0) y))))
double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * 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 = (x - (y / (z * 3.0d0))) + (t / ((z * 3.0d0) * y))
end function
public static double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
}
def code(x, y, z, t): return (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y))
function code(x, y, z, t) return Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(t / Float64(Float64(z * 3.0) * y))) end
function tmp = code(x, y, z, t) tmp = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y)); end
code[x_, y_, z_, t_] := N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t / N[(N[(z * 3.0), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x - \frac{y}{z \cdot 3}\right) + \frac{t}{\left(z \cdot 3\right) \cdot y}
\end{array}
(FPCore (x y z t) :precision binary64 (if (or (<= (* z 3.0) -4e+87) (not (<= (* z 3.0) 5e-49))) (+ (- x (/ y (* z 3.0))) (/ t (* (* z 3.0) y))) (+ x (/ (- (/ t y) y) (* z 3.0)))))
double code(double x, double y, double z, double t) {
double tmp;
if (((z * 3.0) <= -4e+87) || !((z * 3.0) <= 5e-49)) {
tmp = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
} else {
tmp = x + (((t / y) - y) / (z * 3.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 (((z * 3.0d0) <= (-4d+87)) .or. (.not. ((z * 3.0d0) <= 5d-49))) then
tmp = (x - (y / (z * 3.0d0))) + (t / ((z * 3.0d0) * y))
else
tmp = x + (((t / y) - y) / (z * 3.0d0))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (((z * 3.0) <= -4e+87) || !((z * 3.0) <= 5e-49)) {
tmp = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y));
} else {
tmp = x + (((t / y) - y) / (z * 3.0));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if ((z * 3.0) <= -4e+87) or not ((z * 3.0) <= 5e-49): tmp = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y)) else: tmp = x + (((t / y) - y) / (z * 3.0)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((Float64(z * 3.0) <= -4e+87) || !(Float64(z * 3.0) <= 5e-49)) tmp = Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(t / Float64(Float64(z * 3.0) * y))); else tmp = Float64(x + Float64(Float64(Float64(t / y) - y) / Float64(z * 3.0))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (((z * 3.0) <= -4e+87) || ~(((z * 3.0) <= 5e-49))) tmp = (x - (y / (z * 3.0))) + (t / ((z * 3.0) * y)); else tmp = x + (((t / y) - y) / (z * 3.0)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[N[(z * 3.0), $MachinePrecision], -4e+87], N[Not[LessEqual[N[(z * 3.0), $MachinePrecision], 5e-49]], $MachinePrecision]], N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t / N[(N[(z * 3.0), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision] / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \cdot 3 \leq -4 \cdot 10^{+87} \lor \neg \left(z \cdot 3 \leq 5 \cdot 10^{-49}\right):\\
\;\;\;\;\left(x - \frac{y}{z \cdot 3}\right) + \frac{t}{\left(z \cdot 3\right) \cdot y}\\
\mathbf{else}:\\
\;\;\;\;x + \frac{\frac{t}{y} - y}{z \cdot 3}\\
\end{array}
\end{array}
if (*.f64 z 3) < -3.9999999999999998e87 or 4.9999999999999999e-49 < (*.f64 z 3) Initial program 99.8%
if -3.9999999999999998e87 < (*.f64 z 3) < 4.9999999999999999e-49Initial program 93.3%
associate-*l*93.3%
*-commutative93.3%
Simplified93.3%
*-commutative93.3%
associate-*l*93.3%
associate-+l-93.3%
*-commutative93.3%
associate-/r*99.2%
sub-div99.9%
Applied egg-rr99.9%
Final simplification99.9%
(FPCore (x y z t) :precision binary64 (if (or (<= (* z 3.0) -1e-14) (not (<= (* z 3.0) 2e-43))) (+ (- x (/ y (* z 3.0))) (/ t (* z (* 3.0 y)))) (+ x (/ (- (/ t y) y) (* z 3.0)))))
double code(double x, double y, double z, double t) {
double tmp;
if (((z * 3.0) <= -1e-14) || !((z * 3.0) <= 2e-43)) {
tmp = (x - (y / (z * 3.0))) + (t / (z * (3.0 * y)));
} else {
tmp = x + (((t / y) - y) / (z * 3.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 (((z * 3.0d0) <= (-1d-14)) .or. (.not. ((z * 3.0d0) <= 2d-43))) then
tmp = (x - (y / (z * 3.0d0))) + (t / (z * (3.0d0 * y)))
else
tmp = x + (((t / y) - y) / (z * 3.0d0))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (((z * 3.0) <= -1e-14) || !((z * 3.0) <= 2e-43)) {
tmp = (x - (y / (z * 3.0))) + (t / (z * (3.0 * y)));
} else {
tmp = x + (((t / y) - y) / (z * 3.0));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if ((z * 3.0) <= -1e-14) or not ((z * 3.0) <= 2e-43): tmp = (x - (y / (z * 3.0))) + (t / (z * (3.0 * y))) else: tmp = x + (((t / y) - y) / (z * 3.0)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((Float64(z * 3.0) <= -1e-14) || !(Float64(z * 3.0) <= 2e-43)) tmp = Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(t / Float64(z * Float64(3.0 * y)))); else tmp = Float64(x + Float64(Float64(Float64(t / y) - y) / Float64(z * 3.0))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (((z * 3.0) <= -1e-14) || ~(((z * 3.0) <= 2e-43))) tmp = (x - (y / (z * 3.0))) + (t / (z * (3.0 * y))); else tmp = x + (((t / y) - y) / (z * 3.0)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[N[(z * 3.0), $MachinePrecision], -1e-14], N[Not[LessEqual[N[(z * 3.0), $MachinePrecision], 2e-43]], $MachinePrecision]], N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t / N[(z * N[(3.0 * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision] / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \cdot 3 \leq -1 \cdot 10^{-14} \lor \neg \left(z \cdot 3 \leq 2 \cdot 10^{-43}\right):\\
\;\;\;\;\left(x - \frac{y}{z \cdot 3}\right) + \frac{t}{z \cdot \left(3 \cdot y\right)}\\
\mathbf{else}:\\
\;\;\;\;x + \frac{\frac{t}{y} - y}{z \cdot 3}\\
\end{array}
\end{array}
if (*.f64 z 3) < -9.99999999999999999e-15 or 2.00000000000000015e-43 < (*.f64 z 3) Initial program 99.8%
associate-*l*99.8%
*-commutative99.8%
Simplified99.8%
if -9.99999999999999999e-15 < (*.f64 z 3) < 2.00000000000000015e-43Initial program 92.1%
associate-*l*92.0%
*-commutative92.0%
Simplified92.0%
*-commutative92.0%
associate-*l*92.1%
associate-+l-92.1%
*-commutative92.1%
associate-/r*99.1%
sub-div99.9%
Applied egg-rr99.9%
Final simplification99.8%
(FPCore (x y z t) :precision binary64 (if (or (<= (* z 3.0) -2e+46) (not (<= (* z 3.0) 5e+37))) (- x (/ y (* z 3.0))) (* -0.3333333333333333 (/ (- y (/ t y)) z))))
double code(double x, double y, double z, double t) {
double tmp;
if (((z * 3.0) <= -2e+46) || !((z * 3.0) <= 5e+37)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = -0.3333333333333333 * ((y - (t / y)) / z);
}
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 * 3.0d0) <= (-2d+46)) .or. (.not. ((z * 3.0d0) <= 5d+37))) then
tmp = x - (y / (z * 3.0d0))
else
tmp = (-0.3333333333333333d0) * ((y - (t / y)) / z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (((z * 3.0) <= -2e+46) || !((z * 3.0) <= 5e+37)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = -0.3333333333333333 * ((y - (t / y)) / z);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if ((z * 3.0) <= -2e+46) or not ((z * 3.0) <= 5e+37): tmp = x - (y / (z * 3.0)) else: tmp = -0.3333333333333333 * ((y - (t / y)) / z) return tmp
function code(x, y, z, t) tmp = 0.0 if ((Float64(z * 3.0) <= -2e+46) || !(Float64(z * 3.0) <= 5e+37)) tmp = Float64(x - Float64(y / Float64(z * 3.0))); else tmp = Float64(-0.3333333333333333 * Float64(Float64(y - Float64(t / y)) / z)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (((z * 3.0) <= -2e+46) || ~(((z * 3.0) <= 5e+37))) tmp = x - (y / (z * 3.0)); else tmp = -0.3333333333333333 * ((y - (t / y)) / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[N[(z * 3.0), $MachinePrecision], -2e+46], N[Not[LessEqual[N[(z * 3.0), $MachinePrecision], 5e+37]], $MachinePrecision]], N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(-0.3333333333333333 * N[(N[(y - N[(t / y), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \cdot 3 \leq -2 \cdot 10^{+46} \lor \neg \left(z \cdot 3 \leq 5 \cdot 10^{+37}\right):\\
\;\;\;\;x - \frac{y}{z \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y - \frac{t}{y}}{z}\\
\end{array}
\end{array}
if (*.f64 z 3) < -2e46 or 4.99999999999999989e37 < (*.f64 z 3) Initial program 99.8%
associate-*l*99.8%
*-commutative99.8%
Simplified99.8%
*-commutative99.8%
associate-*l*99.8%
associate-+l-99.8%
*-commutative99.8%
associate-/r*87.7%
sub-div87.7%
Applied egg-rr87.7%
Taylor expanded in y around inf 70.9%
if -2e46 < (*.f64 z 3) < 4.99999999999999989e37Initial program 93.8%
associate-*l*93.8%
*-commutative93.8%
Simplified93.8%
*-commutative93.8%
associate-*l*93.8%
associate-+l-93.8%
*-commutative93.8%
associate-/r*99.2%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in x around 0 90.7%
Final simplification83.0%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (/ y (* z -3.0))))
(if (<= y -2.4e+46)
t_1
(if (<= y -8e-16)
x
(if (<= y 1.06e+19) (* 0.3333333333333333 (/ t (* z y))) t_1)))))
double code(double x, double y, double z, double t) {
double t_1 = y / (z * -3.0);
double tmp;
if (y <= -2.4e+46) {
tmp = t_1;
} else if (y <= -8e-16) {
tmp = x;
} else if (y <= 1.06e+19) {
tmp = 0.3333333333333333 * (t / (z * y));
} 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 = y / (z * (-3.0d0))
if (y <= (-2.4d+46)) then
tmp = t_1
else if (y <= (-8d-16)) then
tmp = x
else if (y <= 1.06d+19) then
tmp = 0.3333333333333333d0 * (t / (z * y))
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 = y / (z * -3.0);
double tmp;
if (y <= -2.4e+46) {
tmp = t_1;
} else if (y <= -8e-16) {
tmp = x;
} else if (y <= 1.06e+19) {
tmp = 0.3333333333333333 * (t / (z * y));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t): t_1 = y / (z * -3.0) tmp = 0 if y <= -2.4e+46: tmp = t_1 elif y <= -8e-16: tmp = x elif y <= 1.06e+19: tmp = 0.3333333333333333 * (t / (z * y)) else: tmp = t_1 return tmp
function code(x, y, z, t) t_1 = Float64(y / Float64(z * -3.0)) tmp = 0.0 if (y <= -2.4e+46) tmp = t_1; elseif (y <= -8e-16) tmp = x; elseif (y <= 1.06e+19) tmp = Float64(0.3333333333333333 * Float64(t / Float64(z * y))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = y / (z * -3.0); tmp = 0.0; if (y <= -2.4e+46) tmp = t_1; elseif (y <= -8e-16) tmp = x; elseif (y <= 1.06e+19) tmp = 0.3333333333333333 * (t / (z * y)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(y / N[(z * -3.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2.4e+46], t$95$1, If[LessEqual[y, -8e-16], x, If[LessEqual[y, 1.06e+19], N[(0.3333333333333333 * N[(t / N[(z * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{y}{z \cdot -3}\\
\mathbf{if}\;y \leq -2.4 \cdot 10^{+46}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;y \leq -8 \cdot 10^{-16}:\\
\;\;\;\;x\\
\mathbf{elif}\;y \leq 1.06 \cdot 10^{+19}:\\
\;\;\;\;0.3333333333333333 \cdot \frac{t}{z \cdot y}\\
\mathbf{else}:\\
\;\;\;\;t_1\\
\end{array}
\end{array}
if y < -2.40000000000000008e46 or 1.06e19 < y Initial program 99.0%
associate-*l*99.0%
*-commutative99.0%
Simplified99.0%
*-commutative99.0%
associate-*l*99.0%
associate-+l-99.0%
*-commutative99.0%
associate-/r*99.0%
sub-div99.9%
Applied egg-rr99.9%
div-inv99.7%
Applied egg-rr99.7%
Taylor expanded in x around 0 79.7%
metadata-eval79.7%
distribute-lft-neg-in79.7%
associate-*r/79.7%
associate-*l/79.7%
metadata-eval79.7%
associate-*r/79.7%
distribute-lft-neg-out79.7%
associate-*r/79.7%
metadata-eval79.7%
distribute-neg-frac79.7%
metadata-eval79.7%
Simplified79.7%
Taylor expanded in y around inf 71.8%
metadata-eval71.8%
times-frac71.9%
*-commutative71.9%
associate-*l/71.8%
associate-/r*71.8%
associate-*l/71.8%
metadata-eval71.8%
associate-/r*71.8%
neg-mul-171.8%
associate-*l/71.8%
*-commutative71.8%
*-rgt-identity71.8%
associate-/r*71.9%
distribute-lft-neg-in71.9%
distribute-rgt-neg-in71.9%
metadata-eval71.9%
Simplified71.9%
if -2.40000000000000008e46 < y < -7.9999999999999998e-16Initial program 100.0%
Simplified99.8%
Taylor expanded in x around inf 72.1%
if -7.9999999999999998e-16 < y < 1.06e19Initial program 93.5%
associate-*l*93.4%
*-commutative93.4%
Simplified93.4%
*-commutative93.4%
associate-*l*93.5%
associate-+l-93.5%
*-commutative93.5%
associate-/r*90.7%
sub-div90.7%
Applied egg-rr90.7%
Taylor expanded in y around 0 64.9%
*-commutative64.9%
Simplified64.9%
Final simplification68.3%
(FPCore (x y z t) :precision binary64 (if (or (<= y -5e-135) (not (<= y 1.55e-65))) (+ x (* (/ 0.3333333333333333 z) (- (/ t y) y))) (+ x (/ (/ (/ t z) 3.0) y))))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -5e-135) || !(y <= 1.55e-65)) {
tmp = x + ((0.3333333333333333 / z) * ((t / y) - y));
} else {
tmp = x + (((t / z) / 3.0) / 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 ((y <= (-5d-135)) .or. (.not. (y <= 1.55d-65))) then
tmp = x + ((0.3333333333333333d0 / z) * ((t / y) - y))
else
tmp = x + (((t / z) / 3.0d0) / y)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -5e-135) || !(y <= 1.55e-65)) {
tmp = x + ((0.3333333333333333 / z) * ((t / y) - y));
} else {
tmp = x + (((t / z) / 3.0) / y);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -5e-135) or not (y <= 1.55e-65): tmp = x + ((0.3333333333333333 / z) * ((t / y) - y)) else: tmp = x + (((t / z) / 3.0) / y) return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -5e-135) || !(y <= 1.55e-65)) tmp = Float64(x + Float64(Float64(0.3333333333333333 / z) * Float64(Float64(t / y) - y))); else tmp = Float64(x + Float64(Float64(Float64(t / z) / 3.0) / y)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -5e-135) || ~((y <= 1.55e-65))) tmp = x + ((0.3333333333333333 / z) * ((t / y) - y)); else tmp = x + (((t / z) / 3.0) / y); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -5e-135], N[Not[LessEqual[y, 1.55e-65]], $MachinePrecision]], N[(x + N[(N[(0.3333333333333333 / z), $MachinePrecision] * N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(N[(N[(t / z), $MachinePrecision] / 3.0), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -5 \cdot 10^{-135} \lor \neg \left(y \leq 1.55 \cdot 10^{-65}\right):\\
\;\;\;\;x + \frac{0.3333333333333333}{z} \cdot \left(\frac{t}{y} - y\right)\\
\mathbf{else}:\\
\;\;\;\;x + \frac{\frac{\frac{t}{z}}{3}}{y}\\
\end{array}
\end{array}
if y < -5.0000000000000002e-135 or 1.55000000000000008e-65 < y Initial program 98.2%
Simplified99.2%
if -5.0000000000000002e-135 < y < 1.55000000000000008e-65Initial program 92.2%
Simplified86.8%
Taylor expanded in t around inf 91.3%
associate-*r/91.3%
times-frac97.5%
metadata-eval97.5%
associate-/r*97.5%
associate-/l/97.5%
associate-/r*97.5%
associate-*l/97.6%
*-commutative97.6%
*-lft-identity97.6%
associate-/r*97.6%
Simplified97.6%
Final simplification98.6%
(FPCore (x y z t) :precision binary64 (if (or (<= y -2.45e-136) (not (<= y 2.8e-94))) (+ x (/ (- (/ t y) y) (* z 3.0))) (+ x (/ (/ (/ t z) 3.0) y))))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -2.45e-136) || !(y <= 2.8e-94)) {
tmp = x + (((t / y) - y) / (z * 3.0));
} else {
tmp = x + (((t / z) / 3.0) / 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 ((y <= (-2.45d-136)) .or. (.not. (y <= 2.8d-94))) then
tmp = x + (((t / y) - y) / (z * 3.0d0))
else
tmp = x + (((t / z) / 3.0d0) / y)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -2.45e-136) || !(y <= 2.8e-94)) {
tmp = x + (((t / y) - y) / (z * 3.0));
} else {
tmp = x + (((t / z) / 3.0) / y);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -2.45e-136) or not (y <= 2.8e-94): tmp = x + (((t / y) - y) / (z * 3.0)) else: tmp = x + (((t / z) / 3.0) / y) return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -2.45e-136) || !(y <= 2.8e-94)) tmp = Float64(x + Float64(Float64(Float64(t / y) - y) / Float64(z * 3.0))); else tmp = Float64(x + Float64(Float64(Float64(t / z) / 3.0) / y)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -2.45e-136) || ~((y <= 2.8e-94))) tmp = x + (((t / y) - y) / (z * 3.0)); else tmp = x + (((t / z) / 3.0) / y); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -2.45e-136], N[Not[LessEqual[y, 2.8e-94]], $MachinePrecision]], N[(x + N[(N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision] / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(N[(N[(t / z), $MachinePrecision] / 3.0), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.45 \cdot 10^{-136} \lor \neg \left(y \leq 2.8 \cdot 10^{-94}\right):\\
\;\;\;\;x + \frac{\frac{t}{y} - y}{z \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;x + \frac{\frac{\frac{t}{z}}{3}}{y}\\
\end{array}
\end{array}
if y < -2.45e-136 or 2.7999999999999998e-94 < y Initial program 98.2%
associate-*l*98.2%
*-commutative98.2%
Simplified98.2%
*-commutative98.2%
associate-*l*98.2%
associate-+l-98.2%
*-commutative98.2%
associate-/r*98.8%
sub-div99.3%
Applied egg-rr99.3%
if -2.45e-136 < y < 2.7999999999999998e-94Initial program 92.0%
Simplified86.4%
Taylor expanded in t around inf 91.0%
associate-*r/91.0%
times-frac97.4%
metadata-eval97.4%
associate-/r*97.5%
associate-/l/97.5%
associate-/r*97.5%
associate-*l/97.5%
*-commutative97.5%
*-lft-identity97.5%
associate-/r*97.6%
Simplified97.6%
Final simplification98.8%
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (- (/ t y) y)))
(if (<= y -6e-135)
(+ x (* (/ 0.3333333333333333 z) t_1))
(if (<= y 3.7e-66)
(+ x (/ (/ (/ t z) 3.0) y))
(+ x (/ (* 0.3333333333333333 t_1) z))))))
double code(double x, double y, double z, double t) {
double t_1 = (t / y) - y;
double tmp;
if (y <= -6e-135) {
tmp = x + ((0.3333333333333333 / z) * t_1);
} else if (y <= 3.7e-66) {
tmp = x + (((t / z) / 3.0) / y);
} else {
tmp = x + ((0.3333333333333333 * t_1) / z);
}
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 = (t / y) - y
if (y <= (-6d-135)) then
tmp = x + ((0.3333333333333333d0 / z) * t_1)
else if (y <= 3.7d-66) then
tmp = x + (((t / z) / 3.0d0) / y)
else
tmp = x + ((0.3333333333333333d0 * t_1) / z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double t_1 = (t / y) - y;
double tmp;
if (y <= -6e-135) {
tmp = x + ((0.3333333333333333 / z) * t_1);
} else if (y <= 3.7e-66) {
tmp = x + (((t / z) / 3.0) / y);
} else {
tmp = x + ((0.3333333333333333 * t_1) / z);
}
return tmp;
}
def code(x, y, z, t): t_1 = (t / y) - y tmp = 0 if y <= -6e-135: tmp = x + ((0.3333333333333333 / z) * t_1) elif y <= 3.7e-66: tmp = x + (((t / z) / 3.0) / y) else: tmp = x + ((0.3333333333333333 * t_1) / z) return tmp
function code(x, y, z, t) t_1 = Float64(Float64(t / y) - y) tmp = 0.0 if (y <= -6e-135) tmp = Float64(x + Float64(Float64(0.3333333333333333 / z) * t_1)); elseif (y <= 3.7e-66) tmp = Float64(x + Float64(Float64(Float64(t / z) / 3.0) / y)); else tmp = Float64(x + Float64(Float64(0.3333333333333333 * t_1) / z)); end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (t / y) - y; tmp = 0.0; if (y <= -6e-135) tmp = x + ((0.3333333333333333 / z) * t_1); elseif (y <= 3.7e-66) tmp = x + (((t / z) / 3.0) / y); else tmp = x + ((0.3333333333333333 * t_1) / z); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(t / y), $MachinePrecision] - y), $MachinePrecision]}, If[LessEqual[y, -6e-135], N[(x + N[(N[(0.3333333333333333 / z), $MachinePrecision] * t$95$1), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.7e-66], N[(x + N[(N[(N[(t / z), $MachinePrecision] / 3.0), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision], N[(x + N[(N[(0.3333333333333333 * t$95$1), $MachinePrecision] / z), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{t}{y} - y\\
\mathbf{if}\;y \leq -6 \cdot 10^{-135}:\\
\;\;\;\;x + \frac{0.3333333333333333}{z} \cdot t_1\\
\mathbf{elif}\;y \leq 3.7 \cdot 10^{-66}:\\
\;\;\;\;x + \frac{\frac{\frac{t}{z}}{3}}{y}\\
\mathbf{else}:\\
\;\;\;\;x + \frac{0.3333333333333333 \cdot t_1}{z}\\
\end{array}
\end{array}
if y < -6.00000000000000024e-135Initial program 96.6%
Simplified99.7%
if -6.00000000000000024e-135 < y < 3.7000000000000002e-66Initial program 92.2%
Simplified86.8%
Taylor expanded in t around inf 91.3%
associate-*r/91.3%
times-frac97.5%
metadata-eval97.5%
associate-/r*97.5%
associate-/l/97.5%
associate-/r*97.5%
associate-*l/97.6%
*-commutative97.6%
*-lft-identity97.6%
associate-/r*97.6%
Simplified97.6%
if 3.7000000000000002e-66 < y Initial program 99.9%
Simplified98.5%
*-commutative98.5%
associate-*r/98.6%
Applied egg-rr98.6%
Final simplification98.7%
(FPCore (x y z t) :precision binary64 (if (or (<= y -2.6e-47) (not (<= y 3.5e+49))) (- x (/ y (* z 3.0))) (+ x (* 0.3333333333333333 (/ t (* z y))))))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -2.6e-47) || !(y <= 3.5e+49)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = x + (0.3333333333333333 * (t / (z * 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 ((y <= (-2.6d-47)) .or. (.not. (y <= 3.5d+49))) then
tmp = x - (y / (z * 3.0d0))
else
tmp = x + (0.3333333333333333d0 * (t / (z * y)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -2.6e-47) || !(y <= 3.5e+49)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = x + (0.3333333333333333 * (t / (z * y)));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -2.6e-47) or not (y <= 3.5e+49): tmp = x - (y / (z * 3.0)) else: tmp = x + (0.3333333333333333 * (t / (z * y))) return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -2.6e-47) || !(y <= 3.5e+49)) tmp = Float64(x - Float64(y / Float64(z * 3.0))); else tmp = Float64(x + Float64(0.3333333333333333 * Float64(t / Float64(z * y)))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -2.6e-47) || ~((y <= 3.5e+49))) tmp = x - (y / (z * 3.0)); else tmp = x + (0.3333333333333333 * (t / (z * y))); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -2.6e-47], N[Not[LessEqual[y, 3.5e+49]], $MachinePrecision]], N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(0.3333333333333333 * N[(t / N[(z * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.6 \cdot 10^{-47} \lor \neg \left(y \leq 3.5 \cdot 10^{+49}\right):\\
\;\;\;\;x - \frac{y}{z \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;x + 0.3333333333333333 \cdot \frac{t}{z \cdot y}\\
\end{array}
\end{array}
if y < -2.6e-47 or 3.49999999999999975e49 < y Initial program 98.2%
associate-*l*98.2%
*-commutative98.2%
Simplified98.2%
*-commutative98.2%
associate-*l*98.2%
associate-+l-98.2%
*-commutative98.2%
associate-/r*99.1%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 92.7%
if -2.6e-47 < y < 3.49999999999999975e49Initial program 94.4%
Simplified90.9%
Taylor expanded in t around inf 88.3%
Final simplification90.4%
(FPCore (x y z t) :precision binary64 (if (or (<= y -1.2e+69) (not (<= y 3.4e+49))) (- x (/ y (* z 3.0))) (+ x (/ (/ (* t 0.3333333333333333) z) y))))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.2e+69) || !(y <= 3.4e+49)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = x + (((t * 0.3333333333333333) / z) / 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 ((y <= (-1.2d+69)) .or. (.not. (y <= 3.4d+49))) then
tmp = x - (y / (z * 3.0d0))
else
tmp = x + (((t * 0.3333333333333333d0) / z) / y)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.2e+69) || !(y <= 3.4e+49)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = x + (((t * 0.3333333333333333) / z) / y);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -1.2e+69) or not (y <= 3.4e+49): tmp = x - (y / (z * 3.0)) else: tmp = x + (((t * 0.3333333333333333) / z) / y) return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -1.2e+69) || !(y <= 3.4e+49)) tmp = Float64(x - Float64(y / Float64(z * 3.0))); else tmp = Float64(x + Float64(Float64(Float64(t * 0.3333333333333333) / z) / y)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -1.2e+69) || ~((y <= 3.4e+49))) tmp = x - (y / (z * 3.0)); else tmp = x + (((t * 0.3333333333333333) / z) / y); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -1.2e+69], N[Not[LessEqual[y, 3.4e+49]], $MachinePrecision]], N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(N[(N[(t * 0.3333333333333333), $MachinePrecision] / z), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.2 \cdot 10^{+69} \lor \neg \left(y \leq 3.4 \cdot 10^{+49}\right):\\
\;\;\;\;x - \frac{y}{z \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;x + \frac{\frac{t \cdot 0.3333333333333333}{z}}{y}\\
\end{array}
\end{array}
if y < -1.2000000000000001e69 or 3.4000000000000001e49 < y Initial program 99.9%
associate-*l*99.9%
*-commutative99.9%
Simplified99.9%
*-commutative99.9%
associate-*l*99.9%
associate-+l-99.9%
*-commutative99.9%
associate-/r*99.9%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 97.0%
if -1.2000000000000001e69 < y < 3.4000000000000001e49Initial program 93.8%
Simplified92.0%
Taylor expanded in t around inf 85.6%
associate-*r/85.6%
times-frac90.2%
metadata-eval90.2%
associate-/r*90.2%
associate-/l/90.2%
associate-/r*90.2%
associate-*l/90.2%
*-commutative90.2%
*-lft-identity90.2%
associate-/r*90.3%
Simplified90.3%
Taylor expanded in t around 0 90.2%
*-commutative90.2%
associate-*l/90.2%
Simplified90.2%
Final simplification92.8%
(FPCore (x y z t) :precision binary64 (if (or (<= y -2.05e+67) (not (<= y 3.8e+49))) (- x (/ y (* z 3.0))) (+ x (/ (/ (/ t z) 3.0) y))))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -2.05e+67) || !(y <= 3.8e+49)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = x + (((t / z) / 3.0) / 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 ((y <= (-2.05d+67)) .or. (.not. (y <= 3.8d+49))) then
tmp = x - (y / (z * 3.0d0))
else
tmp = x + (((t / z) / 3.0d0) / y)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -2.05e+67) || !(y <= 3.8e+49)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = x + (((t / z) / 3.0) / y);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -2.05e+67) or not (y <= 3.8e+49): tmp = x - (y / (z * 3.0)) else: tmp = x + (((t / z) / 3.0) / y) return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -2.05e+67) || !(y <= 3.8e+49)) tmp = Float64(x - Float64(y / Float64(z * 3.0))); else tmp = Float64(x + Float64(Float64(Float64(t / z) / 3.0) / y)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -2.05e+67) || ~((y <= 3.8e+49))) tmp = x - (y / (z * 3.0)); else tmp = x + (((t / z) / 3.0) / y); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -2.05e+67], N[Not[LessEqual[y, 3.8e+49]], $MachinePrecision]], N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(N[(N[(t / z), $MachinePrecision] / 3.0), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.05 \cdot 10^{+67} \lor \neg \left(y \leq 3.8 \cdot 10^{+49}\right):\\
\;\;\;\;x - \frac{y}{z \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;x + \frac{\frac{\frac{t}{z}}{3}}{y}\\
\end{array}
\end{array}
if y < -2.0499999999999999e67 or 3.7999999999999999e49 < y Initial program 99.9%
associate-*l*99.9%
*-commutative99.9%
Simplified99.9%
*-commutative99.9%
associate-*l*99.9%
associate-+l-99.9%
*-commutative99.9%
associate-/r*99.9%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 97.0%
if -2.0499999999999999e67 < y < 3.7999999999999999e49Initial program 93.8%
Simplified92.0%
Taylor expanded in t around inf 85.6%
associate-*r/85.6%
times-frac90.2%
metadata-eval90.2%
associate-/r*90.2%
associate-/l/90.2%
associate-/r*90.2%
associate-*l/90.2%
*-commutative90.2%
*-lft-identity90.2%
associate-/r*90.3%
Simplified90.3%
Final simplification92.9%
(FPCore (x y z t) :precision binary64 (if (or (<= y -1.18e-48) (not (<= y 1.05e-22))) (+ x (* y (/ -0.3333333333333333 z))) (* 0.3333333333333333 (/ t (* z y)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.18e-48) || !(y <= 1.05e-22)) {
tmp = x + (y * (-0.3333333333333333 / z));
} else {
tmp = 0.3333333333333333 * (t / (z * 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 ((y <= (-1.18d-48)) .or. (.not. (y <= 1.05d-22))) then
tmp = x + (y * ((-0.3333333333333333d0) / z))
else
tmp = 0.3333333333333333d0 * (t / (z * y))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.18e-48) || !(y <= 1.05e-22)) {
tmp = x + (y * (-0.3333333333333333 / z));
} else {
tmp = 0.3333333333333333 * (t / (z * y));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -1.18e-48) or not (y <= 1.05e-22): tmp = x + (y * (-0.3333333333333333 / z)) else: tmp = 0.3333333333333333 * (t / (z * y)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -1.18e-48) || !(y <= 1.05e-22)) tmp = Float64(x + Float64(y * Float64(-0.3333333333333333 / z))); else tmp = Float64(0.3333333333333333 * Float64(t / Float64(z * y))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -1.18e-48) || ~((y <= 1.05e-22))) tmp = x + (y * (-0.3333333333333333 / z)); else tmp = 0.3333333333333333 * (t / (z * y)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -1.18e-48], N[Not[LessEqual[y, 1.05e-22]], $MachinePrecision]], N[(x + N[(y * N[(-0.3333333333333333 / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(0.3333333333333333 * N[(t / N[(z * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.18 \cdot 10^{-48} \lor \neg \left(y \leq 1.05 \cdot 10^{-22}\right):\\
\;\;\;\;x + y \cdot \frac{-0.3333333333333333}{z}\\
\mathbf{else}:\\
\;\;\;\;0.3333333333333333 \cdot \frac{t}{z \cdot y}\\
\end{array}
\end{array}
if y < -1.18000000000000007e-48 or 1.05000000000000004e-22 < y Initial program 98.5%
Simplified99.7%
Taylor expanded in t around 0 88.1%
*-commutative88.1%
associate-*l/88.1%
associate-*r/88.1%
Simplified88.1%
if -1.18000000000000007e-48 < y < 1.05000000000000004e-22Initial program 93.5%
associate-*l*93.5%
*-commutative93.5%
Simplified93.5%
*-commutative93.5%
associate-*l*93.5%
associate-+l-93.5%
*-commutative93.5%
associate-/r*89.5%
sub-div89.5%
Applied egg-rr89.5%
Taylor expanded in y around 0 67.8%
*-commutative67.8%
Simplified67.8%
Final simplification78.7%
(FPCore (x y z t) :precision binary64 (if (or (<= y -1.02e-48) (not (<= y 6.5e-23))) (- x (/ y (* z 3.0))) (* 0.3333333333333333 (/ t (* z y)))))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.02e-48) || !(y <= 6.5e-23)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = 0.3333333333333333 * (t / (z * 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 ((y <= (-1.02d-48)) .or. (.not. (y <= 6.5d-23))) then
tmp = x - (y / (z * 3.0d0))
else
tmp = 0.3333333333333333d0 * (t / (z * y))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.02e-48) || !(y <= 6.5e-23)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = 0.3333333333333333 * (t / (z * y));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -1.02e-48) or not (y <= 6.5e-23): tmp = x - (y / (z * 3.0)) else: tmp = 0.3333333333333333 * (t / (z * y)) return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -1.02e-48) || !(y <= 6.5e-23)) tmp = Float64(x - Float64(y / Float64(z * 3.0))); else tmp = Float64(0.3333333333333333 * Float64(t / Float64(z * y))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -1.02e-48) || ~((y <= 6.5e-23))) tmp = x - (y / (z * 3.0)); else tmp = 0.3333333333333333 * (t / (z * y)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -1.02e-48], N[Not[LessEqual[y, 6.5e-23]], $MachinePrecision]], N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(0.3333333333333333 * N[(t / N[(z * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.02 \cdot 10^{-48} \lor \neg \left(y \leq 6.5 \cdot 10^{-23}\right):\\
\;\;\;\;x - \frac{y}{z \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;0.3333333333333333 \cdot \frac{t}{z \cdot y}\\
\end{array}
\end{array}
if y < -1.02000000000000005e-48 or 6.5e-23 < y Initial program 98.5%
associate-*l*98.4%
*-commutative98.4%
Simplified98.4%
*-commutative98.4%
associate-*l*98.5%
associate-+l-98.5%
*-commutative98.5%
associate-/r*99.2%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 88.2%
if -1.02000000000000005e-48 < y < 6.5e-23Initial program 93.5%
associate-*l*93.5%
*-commutative93.5%
Simplified93.5%
*-commutative93.5%
associate-*l*93.5%
associate-+l-93.5%
*-commutative93.5%
associate-/r*89.5%
sub-div89.5%
Applied egg-rr89.5%
Taylor expanded in y around 0 67.8%
*-commutative67.8%
Simplified67.8%
Final simplification78.8%
(FPCore (x y z t) :precision binary64 (if (or (<= y -1.26e-48) (not (<= y 1.45e-22))) (- x (/ y (* z 3.0))) (/ (* t 0.3333333333333333) (* z y))))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.26e-48) || !(y <= 1.45e-22)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = (t * 0.3333333333333333) / (z * 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 ((y <= (-1.26d-48)) .or. (.not. (y <= 1.45d-22))) then
tmp = x - (y / (z * 3.0d0))
else
tmp = (t * 0.3333333333333333d0) / (z * y)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.26e-48) || !(y <= 1.45e-22)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = (t * 0.3333333333333333) / (z * y);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -1.26e-48) or not (y <= 1.45e-22): tmp = x - (y / (z * 3.0)) else: tmp = (t * 0.3333333333333333) / (z * y) return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -1.26e-48) || !(y <= 1.45e-22)) tmp = Float64(x - Float64(y / Float64(z * 3.0))); else tmp = Float64(Float64(t * 0.3333333333333333) / Float64(z * y)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -1.26e-48) || ~((y <= 1.45e-22))) tmp = x - (y / (z * 3.0)); else tmp = (t * 0.3333333333333333) / (z * y); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -1.26e-48], N[Not[LessEqual[y, 1.45e-22]], $MachinePrecision]], N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t * 0.3333333333333333), $MachinePrecision] / N[(z * y), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.26 \cdot 10^{-48} \lor \neg \left(y \leq 1.45 \cdot 10^{-22}\right):\\
\;\;\;\;x - \frac{y}{z \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;\frac{t \cdot 0.3333333333333333}{z \cdot y}\\
\end{array}
\end{array}
if y < -1.2599999999999999e-48 or 1.4500000000000001e-22 < y Initial program 98.5%
associate-*l*98.4%
*-commutative98.4%
Simplified98.4%
*-commutative98.4%
associate-*l*98.5%
associate-+l-98.5%
*-commutative98.5%
associate-/r*99.2%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 88.2%
if -1.2599999999999999e-48 < y < 1.4500000000000001e-22Initial program 93.5%
associate-*l*93.5%
*-commutative93.5%
Simplified93.5%
*-commutative93.5%
associate-*l*93.5%
associate-+l-93.5%
*-commutative93.5%
associate-/r*89.5%
sub-div89.5%
Applied egg-rr89.5%
Taylor expanded in y around 0 67.8%
*-commutative67.8%
associate-/r*64.6%
Simplified64.6%
*-commutative64.6%
associate-/l/67.8%
associate-*r/67.8%
*-commutative67.8%
Applied egg-rr67.8%
Final simplification78.8%
(FPCore (x y z t) :precision binary64 (if (or (<= y -9.5e-45) (not (<= y 9.5e-23))) (- x (/ y (* z 3.0))) (/ (* (/ t z) 0.3333333333333333) y)))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -9.5e-45) || !(y <= 9.5e-23)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = ((t / z) * 0.3333333333333333) / 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 ((y <= (-9.5d-45)) .or. (.not. (y <= 9.5d-23))) then
tmp = x - (y / (z * 3.0d0))
else
tmp = ((t / z) * 0.3333333333333333d0) / y
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -9.5e-45) || !(y <= 9.5e-23)) {
tmp = x - (y / (z * 3.0));
} else {
tmp = ((t / z) * 0.3333333333333333) / y;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -9.5e-45) or not (y <= 9.5e-23): tmp = x - (y / (z * 3.0)) else: tmp = ((t / z) * 0.3333333333333333) / y return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -9.5e-45) || !(y <= 9.5e-23)) tmp = Float64(x - Float64(y / Float64(z * 3.0))); else tmp = Float64(Float64(Float64(t / z) * 0.3333333333333333) / y); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -9.5e-45) || ~((y <= 9.5e-23))) tmp = x - (y / (z * 3.0)); else tmp = ((t / z) * 0.3333333333333333) / y; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -9.5e-45], N[Not[LessEqual[y, 9.5e-23]], $MachinePrecision]], N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(t / z), $MachinePrecision] * 0.3333333333333333), $MachinePrecision] / y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -9.5 \cdot 10^{-45} \lor \neg \left(y \leq 9.5 \cdot 10^{-23}\right):\\
\;\;\;\;x - \frac{y}{z \cdot 3}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{t}{z} \cdot 0.3333333333333333}{y}\\
\end{array}
\end{array}
if y < -9.5000000000000002e-45 or 9.50000000000000058e-23 < y Initial program 99.2%
associate-*l*99.1%
*-commutative99.1%
Simplified99.1%
*-commutative99.1%
associate-*l*99.2%
associate-+l-99.2%
*-commutative99.2%
associate-/r*99.2%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 88.8%
if -9.5000000000000002e-45 < y < 9.50000000000000058e-23Initial program 92.7%
associate-*l*92.7%
*-commutative92.7%
Simplified92.7%
*-commutative92.7%
associate-*l*92.7%
associate-+l-92.7%
*-commutative92.7%
associate-/r*89.7%
sub-div89.7%
Applied egg-rr89.7%
Taylor expanded in y around 0 67.5%
*-commutative67.5%
Simplified67.5%
associate-*l/67.5%
*-commutative67.5%
times-frac71.0%
associate-*r/71.1%
Applied egg-rr71.1%
Final simplification80.5%
(FPCore (x y z t)
:precision binary64
(if (<= y -1.8e-49)
(+ x (* y (/ -0.3333333333333333 z)))
(if (<= y 7.5e-23)
(* 0.3333333333333333 (/ t (* z y)))
(- x (* 0.3333333333333333 (/ y z))))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= -1.8e-49) {
tmp = x + (y * (-0.3333333333333333 / z));
} else if (y <= 7.5e-23) {
tmp = 0.3333333333333333 * (t / (z * y));
} else {
tmp = x - (0.3333333333333333 * (y / z));
}
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 (y <= (-1.8d-49)) then
tmp = x + (y * ((-0.3333333333333333d0) / z))
else if (y <= 7.5d-23) then
tmp = 0.3333333333333333d0 * (t / (z * y))
else
tmp = x - (0.3333333333333333d0 * (y / z))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (y <= -1.8e-49) {
tmp = x + (y * (-0.3333333333333333 / z));
} else if (y <= 7.5e-23) {
tmp = 0.3333333333333333 * (t / (z * y));
} else {
tmp = x - (0.3333333333333333 * (y / z));
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if y <= -1.8e-49: tmp = x + (y * (-0.3333333333333333 / z)) elif y <= 7.5e-23: tmp = 0.3333333333333333 * (t / (z * y)) else: tmp = x - (0.3333333333333333 * (y / z)) return tmp
function code(x, y, z, t) tmp = 0.0 if (y <= -1.8e-49) tmp = Float64(x + Float64(y * Float64(-0.3333333333333333 / z))); elseif (y <= 7.5e-23) tmp = Float64(0.3333333333333333 * Float64(t / Float64(z * y))); else tmp = Float64(x - Float64(0.3333333333333333 * Float64(y / z))); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (y <= -1.8e-49) tmp = x + (y * (-0.3333333333333333 / z)); elseif (y <= 7.5e-23) tmp = 0.3333333333333333 * (t / (z * y)); else tmp = x - (0.3333333333333333 * (y / z)); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[y, -1.8e-49], N[(x + N[(y * N[(-0.3333333333333333 / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 7.5e-23], N[(0.3333333333333333 * N[(t / N[(z * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x - N[(0.3333333333333333 * N[(y / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.8 \cdot 10^{-49}:\\
\;\;\;\;x + y \cdot \frac{-0.3333333333333333}{z}\\
\mathbf{elif}\;y \leq 7.5 \cdot 10^{-23}:\\
\;\;\;\;0.3333333333333333 \cdot \frac{t}{z \cdot y}\\
\mathbf{else}:\\
\;\;\;\;x - 0.3333333333333333 \cdot \frac{y}{z}\\
\end{array}
\end{array}
if y < -1.79999999999999985e-49Initial program 97.0%
Simplified99.8%
Taylor expanded in t around 0 90.0%
*-commutative90.0%
associate-*l/89.9%
associate-*r/90.0%
Simplified90.0%
if -1.79999999999999985e-49 < y < 7.4999999999999998e-23Initial program 93.5%
associate-*l*93.5%
*-commutative93.5%
Simplified93.5%
*-commutative93.5%
associate-*l*93.5%
associate-+l-93.5%
*-commutative93.5%
associate-/r*89.5%
sub-div89.5%
Applied egg-rr89.5%
Taylor expanded in y around 0 67.8%
*-commutative67.8%
Simplified67.8%
if 7.4999999999999998e-23 < y Initial program 99.9%
associate-*l*99.9%
*-commutative99.9%
Simplified99.9%
Taylor expanded in t around 0 86.2%
Final simplification78.7%
(FPCore (x y z t) :precision binary64 (if (or (<= y -1.35e+47) (not (<= y 3.9e+29))) (* -0.3333333333333333 (/ y z)) x))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.35e+47) || !(y <= 3.9e+29)) {
tmp = -0.3333333333333333 * (y / z);
} else {
tmp = 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 ((y <= (-1.35d+47)) .or. (.not. (y <= 3.9d+29))) then
tmp = (-0.3333333333333333d0) * (y / z)
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -1.35e+47) || !(y <= 3.9e+29)) {
tmp = -0.3333333333333333 * (y / z);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -1.35e+47) or not (y <= 3.9e+29): tmp = -0.3333333333333333 * (y / z) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -1.35e+47) || !(y <= 3.9e+29)) tmp = Float64(-0.3333333333333333 * Float64(y / z)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -1.35e+47) || ~((y <= 3.9e+29))) tmp = -0.3333333333333333 * (y / z); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -1.35e+47], N[Not[LessEqual[y, 3.9e+29]], $MachinePrecision]], N[(-0.3333333333333333 * N[(y / z), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.35 \cdot 10^{+47} \lor \neg \left(y \leq 3.9 \cdot 10^{+29}\right):\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y}{z}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if y < -1.34999999999999998e47 or 3.89999999999999968e29 < y Initial program 99.0%
associate-*l*99.0%
*-commutative99.0%
Simplified99.0%
*-commutative99.0%
associate-*l*99.0%
associate-+l-99.0%
*-commutative99.0%
associate-/r*99.0%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 73.0%
if -1.34999999999999998e47 < y < 3.89999999999999968e29Initial program 94.0%
Simplified91.4%
Taylor expanded in x around inf 30.5%
Final simplification48.9%
(FPCore (x y z t) :precision binary64 (if (or (<= y -7.5e+47) (not (<= y 7e+29))) (/ y (* z -3.0)) x))
double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -7.5e+47) || !(y <= 7e+29)) {
tmp = y / (z * -3.0);
} else {
tmp = 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 ((y <= (-7.5d+47)) .or. (.not. (y <= 7d+29))) then
tmp = y / (z * (-3.0d0))
else
tmp = x
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if ((y <= -7.5e+47) || !(y <= 7e+29)) {
tmp = y / (z * -3.0);
} else {
tmp = x;
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if (y <= -7.5e+47) or not (y <= 7e+29): tmp = y / (z * -3.0) else: tmp = x return tmp
function code(x, y, z, t) tmp = 0.0 if ((y <= -7.5e+47) || !(y <= 7e+29)) tmp = Float64(y / Float64(z * -3.0)); else tmp = x; end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if ((y <= -7.5e+47) || ~((y <= 7e+29))) tmp = y / (z * -3.0); else tmp = x; end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[Or[LessEqual[y, -7.5e+47], N[Not[LessEqual[y, 7e+29]], $MachinePrecision]], N[(y / N[(z * -3.0), $MachinePrecision]), $MachinePrecision], x]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -7.5 \cdot 10^{+47} \lor \neg \left(y \leq 7 \cdot 10^{+29}\right):\\
\;\;\;\;\frac{y}{z \cdot -3}\\
\mathbf{else}:\\
\;\;\;\;x\\
\end{array}
\end{array}
if y < -7.4999999999999999e47 or 6.99999999999999958e29 < y Initial program 99.0%
associate-*l*99.0%
*-commutative99.0%
Simplified99.0%
*-commutative99.0%
associate-*l*99.0%
associate-+l-99.0%
*-commutative99.0%
associate-/r*99.0%
sub-div99.9%
Applied egg-rr99.9%
div-inv99.7%
Applied egg-rr99.7%
Taylor expanded in x around 0 81.1%
metadata-eval81.1%
distribute-lft-neg-in81.1%
associate-*r/81.1%
associate-*l/81.1%
metadata-eval81.1%
associate-*r/81.1%
distribute-lft-neg-out81.1%
associate-*r/81.1%
metadata-eval81.1%
distribute-neg-frac81.1%
metadata-eval81.1%
Simplified81.1%
Taylor expanded in y around inf 73.0%
metadata-eval73.0%
times-frac73.2%
*-commutative73.2%
associate-*l/73.0%
associate-/r*73.1%
associate-*l/73.1%
metadata-eval73.1%
associate-/r*73.1%
neg-mul-173.1%
associate-*l/73.1%
*-commutative73.1%
*-rgt-identity73.1%
associate-/r*73.2%
distribute-lft-neg-in73.2%
distribute-rgt-neg-in73.2%
metadata-eval73.2%
Simplified73.2%
if -7.4999999999999999e47 < y < 6.99999999999999958e29Initial program 94.0%
Simplified91.4%
Taylor expanded in x around inf 30.5%
Final simplification49.0%
(FPCore (x y z t) :precision binary64 (if (<= y -2.3e+47) (* -0.3333333333333333 (/ y z)) (if (<= y 2.95e+29) x (/ -0.3333333333333333 (/ z y)))))
double code(double x, double y, double z, double t) {
double tmp;
if (y <= -2.3e+47) {
tmp = -0.3333333333333333 * (y / z);
} else if (y <= 2.95e+29) {
tmp = x;
} else {
tmp = -0.3333333333333333 / (z / 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 (y <= (-2.3d+47)) then
tmp = (-0.3333333333333333d0) * (y / z)
else if (y <= 2.95d+29) then
tmp = x
else
tmp = (-0.3333333333333333d0) / (z / y)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
double tmp;
if (y <= -2.3e+47) {
tmp = -0.3333333333333333 * (y / z);
} else if (y <= 2.95e+29) {
tmp = x;
} else {
tmp = -0.3333333333333333 / (z / y);
}
return tmp;
}
def code(x, y, z, t): tmp = 0 if y <= -2.3e+47: tmp = -0.3333333333333333 * (y / z) elif y <= 2.95e+29: tmp = x else: tmp = -0.3333333333333333 / (z / y) return tmp
function code(x, y, z, t) tmp = 0.0 if (y <= -2.3e+47) tmp = Float64(-0.3333333333333333 * Float64(y / z)); elseif (y <= 2.95e+29) tmp = x; else tmp = Float64(-0.3333333333333333 / Float64(z / y)); end return tmp end
function tmp_2 = code(x, y, z, t) tmp = 0.0; if (y <= -2.3e+47) tmp = -0.3333333333333333 * (y / z); elseif (y <= 2.95e+29) tmp = x; else tmp = -0.3333333333333333 / (z / y); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := If[LessEqual[y, -2.3e+47], N[(-0.3333333333333333 * N[(y / z), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.95e+29], x, N[(-0.3333333333333333 / N[(z / y), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -2.3 \cdot 10^{+47}:\\
\;\;\;\;-0.3333333333333333 \cdot \frac{y}{z}\\
\mathbf{elif}\;y \leq 2.95 \cdot 10^{+29}:\\
\;\;\;\;x\\
\mathbf{else}:\\
\;\;\;\;\frac{-0.3333333333333333}{\frac{z}{y}}\\
\end{array}
\end{array}
if y < -2.2999999999999999e47Initial program 98.0%
associate-*l*98.0%
*-commutative98.0%
Simplified98.0%
*-commutative98.0%
associate-*l*98.0%
associate-+l-98.0%
*-commutative98.0%
associate-/r*98.0%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 68.4%
if -2.2999999999999999e47 < y < 2.9499999999999999e29Initial program 94.0%
Simplified91.4%
Taylor expanded in x around inf 30.5%
if 2.9499999999999999e29 < y Initial program 99.9%
associate-*l*99.9%
*-commutative99.9%
Simplified99.9%
*-commutative99.9%
associate-*l*99.9%
associate-+l-99.9%
*-commutative99.9%
associate-/r*99.9%
sub-div99.9%
Applied egg-rr99.9%
Taylor expanded in y around inf 77.2%
clear-num77.2%
un-div-inv77.3%
Applied egg-rr77.3%
Final simplification48.9%
(FPCore (x y z t) :precision binary64 x)
double code(double x, double y, double z, double t) {
return x;
}
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
end function
public static double code(double x, double y, double z, double t) {
return x;
}
def code(x, y, z, t): return x
function code(x, y, z, t) return x end
function tmp = code(x, y, z, t) tmp = x; end
code[x_, y_, z_, t_] := x
\begin{array}{l}
\\
x
\end{array}
Initial program 96.2%
Simplified95.0%
Taylor expanded in x around inf 25.5%
Final simplification25.5%
(FPCore (x y z t) :precision binary64 (+ (- x (/ y (* z 3.0))) (/ (/ t (* z 3.0)) y)))
double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + ((t / (z * 3.0)) / 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 = (x - (y / (z * 3.0d0))) + ((t / (z * 3.0d0)) / y)
end function
public static double code(double x, double y, double z, double t) {
return (x - (y / (z * 3.0))) + ((t / (z * 3.0)) / y);
}
def code(x, y, z, t): return (x - (y / (z * 3.0))) + ((t / (z * 3.0)) / y)
function code(x, y, z, t) return Float64(Float64(x - Float64(y / Float64(z * 3.0))) + Float64(Float64(t / Float64(z * 3.0)) / y)) end
function tmp = code(x, y, z, t) tmp = (x - (y / (z * 3.0))) + ((t / (z * 3.0)) / y); end
code[x_, y_, z_, t_] := N[(N[(x - N[(y / N[(z * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(t / N[(z * 3.0), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x - \frac{y}{z \cdot 3}\right) + \frac{\frac{t}{z \cdot 3}}{y}
\end{array}
herbie shell --seed 2024018
(FPCore (x y z t)
:name "Diagrams.Solve.Polynomial:cubForm from diagrams-solve-0.1, H"
:precision binary64
:herbie-target
(+ (- x (/ y (* z 3.0))) (/ (/ t (* z 3.0)) y))
(+ (- x (/ y (* z 3.0))) (/ t (* (* z 3.0) y))))