
(FPCore (x y z t) :precision binary64 (/ x (* (- y z) (- t z))))
double code(double x, double y, double z, double t) {
return x / ((y - z) * (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 - z) * (t - z))
end function
public static double code(double x, double y, double z, double t) {
return x / ((y - z) * (t - z));
}
def code(x, y, z, t): return x / ((y - z) * (t - z))
function code(x, y, z, t) return Float64(x / Float64(Float64(y - z) * Float64(t - z))) end
function tmp = code(x, y, z, t) tmp = x / ((y - z) * (t - z)); end
code[x_, y_, z_, t_] := N[(x / N[(N[(y - z), $MachinePrecision] * N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{\left(y - z\right) \cdot \left(t - z\right)}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 24 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t) :precision binary64 (/ x (* (- y z) (- t z))))
double code(double x, double y, double z, double t) {
return x / ((y - z) * (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 - z) * (t - z))
end function
public static double code(double x, double y, double z, double t) {
return x / ((y - z) * (t - z));
}
def code(x, y, z, t): return x / ((y - z) * (t - z))
function code(x, y, z, t) return Float64(x / Float64(Float64(y - z) * Float64(t - z))) end
function tmp = code(x, y, z, t) tmp = x / ((y - z) * (t - z)); end
code[x_, y_, z_, t_] := N[(x / N[(N[(y - z), $MachinePrecision] * N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{x}{\left(y - z\right) \cdot \left(t - z\right)}
\end{array}
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z t) :precision binary64 (* x_s (* (/ (sqrt x_m) (- y z)) (/ (sqrt x_m) (- t z)))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
return x_s * ((sqrt(x_m) / (y - z)) * (sqrt(x_m) / (t - z)));
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x_s * ((sqrt(x_m) / (y - z)) * (sqrt(x_m) / (t - z)))
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
return x_s * ((Math.sqrt(x_m) / (y - z)) * (Math.sqrt(x_m) / (t - z)));
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): return x_s * ((math.sqrt(x_m) / (y - z)) * (math.sqrt(x_m) / (t - z)))
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) return Float64(x_s * Float64(Float64(sqrt(x_m) / Float64(y - z)) * Float64(sqrt(x_m) / Float64(t - z)))) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp = code(x_s, x_m, y, z, t) tmp = x_s * ((sqrt(x_m) / (y - z)) * (sqrt(x_m) / (t - z))); end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * N[(N[(N[Sqrt[x$95$m], $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[x$95$m], $MachinePrecision] / N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \left(\frac{\sqrt{x\_m}}{y - z} \cdot \frac{\sqrt{x\_m}}{t - z}\right)
\end{array}
Initial program 86.6%
add-sqr-sqrt43.0%
times-frac49.4%
Applied egg-rr49.4%
Final simplification49.4%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(let* ((t_1 (/ x_m (* y t))) (t_2 (/ (/ x_m y) t)))
(*
x_s
(if (<= y -5.5e+284)
t_2
(if (<= y -3.1e+249)
t_1
(if (<= y -6.2e+32)
t_2
(if (<= y -6600000000.0)
(/ (- x_m) (* y z))
(if (<= y -8.2e-8)
t_1
(if (<= y 3.5e+16) (/ (/ (- x_m) t) z) (/ (/ x_m t) y))))))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = x_m / (y * t);
double t_2 = (x_m / y) / t;
double tmp;
if (y <= -5.5e+284) {
tmp = t_2;
} else if (y <= -3.1e+249) {
tmp = t_1;
} else if (y <= -6.2e+32) {
tmp = t_2;
} else if (y <= -6600000000.0) {
tmp = -x_m / (y * z);
} else if (y <= -8.2e-8) {
tmp = t_1;
} else if (y <= 3.5e+16) {
tmp = (-x_m / t) / z;
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
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 = x_m / (y * t)
t_2 = (x_m / y) / t
if (y <= (-5.5d+284)) then
tmp = t_2
else if (y <= (-3.1d+249)) then
tmp = t_1
else if (y <= (-6.2d+32)) then
tmp = t_2
else if (y <= (-6600000000.0d0)) then
tmp = -x_m / (y * z)
else if (y <= (-8.2d-8)) then
tmp = t_1
else if (y <= 3.5d+16) then
tmp = (-x_m / t) / z
else
tmp = (x_m / t) / y
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = x_m / (y * t);
double t_2 = (x_m / y) / t;
double tmp;
if (y <= -5.5e+284) {
tmp = t_2;
} else if (y <= -3.1e+249) {
tmp = t_1;
} else if (y <= -6.2e+32) {
tmp = t_2;
} else if (y <= -6600000000.0) {
tmp = -x_m / (y * z);
} else if (y <= -8.2e-8) {
tmp = t_1;
} else if (y <= 3.5e+16) {
tmp = (-x_m / t) / z;
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): t_1 = x_m / (y * t) t_2 = (x_m / y) / t tmp = 0 if y <= -5.5e+284: tmp = t_2 elif y <= -3.1e+249: tmp = t_1 elif y <= -6.2e+32: tmp = t_2 elif y <= -6600000000.0: tmp = -x_m / (y * z) elif y <= -8.2e-8: tmp = t_1 elif y <= 3.5e+16: tmp = (-x_m / t) / z else: tmp = (x_m / t) / y return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) t_1 = Float64(x_m / Float64(y * t)) t_2 = Float64(Float64(x_m / y) / t) tmp = 0.0 if (y <= -5.5e+284) tmp = t_2; elseif (y <= -3.1e+249) tmp = t_1; elseif (y <= -6.2e+32) tmp = t_2; elseif (y <= -6600000000.0) tmp = Float64(Float64(-x_m) / Float64(y * z)); elseif (y <= -8.2e-8) tmp = t_1; elseif (y <= 3.5e+16) tmp = Float64(Float64(Float64(-x_m) / t) / z); else tmp = Float64(Float64(x_m / t) / y); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) t_1 = x_m / (y * t); t_2 = (x_m / y) / t; tmp = 0.0; if (y <= -5.5e+284) tmp = t_2; elseif (y <= -3.1e+249) tmp = t_1; elseif (y <= -6.2e+32) tmp = t_2; elseif (y <= -6600000000.0) tmp = -x_m / (y * z); elseif (y <= -8.2e-8) tmp = t_1; elseif (y <= 3.5e+16) tmp = (-x_m / t) / z; else tmp = (x_m / t) / y; end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := Block[{t$95$1 = N[(x$95$m / N[(y * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$95$m / y), $MachinePrecision] / t), $MachinePrecision]}, N[(x$95$s * If[LessEqual[y, -5.5e+284], t$95$2, If[LessEqual[y, -3.1e+249], t$95$1, If[LessEqual[y, -6.2e+32], t$95$2, If[LessEqual[y, -6600000000.0], N[((-x$95$m) / N[(y * z), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -8.2e-8], t$95$1, If[LessEqual[y, 3.5e+16], N[(N[((-x$95$m) / t), $MachinePrecision] / z), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / y), $MachinePrecision]]]]]]]), $MachinePrecision]]]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
\begin{array}{l}
t_1 := \frac{x\_m}{y \cdot t}\\
t_2 := \frac{\frac{x\_m}{y}}{t}\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -5.5 \cdot 10^{+284}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -3.1 \cdot 10^{+249}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -6.2 \cdot 10^{+32}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -6600000000:\\
\;\;\;\;\frac{-x\_m}{y \cdot z}\\
\mathbf{elif}\;y \leq -8.2 \cdot 10^{-8}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 3.5 \cdot 10^{+16}:\\
\;\;\;\;\frac{\frac{-x\_m}{t}}{z}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y}\\
\end{array}
\end{array}
\end{array}
if y < -5.5e284 or -3.10000000000000015e249 < y < -6.19999999999999986e32Initial program 81.1%
Taylor expanded in y around inf 76.3%
*-commutative76.3%
associate-/r*85.1%
Simplified85.1%
Taylor expanded in t around inf 63.1%
associate-/l/52.6%
clear-num52.6%
associate-*l/70.1%
associate-/r*70.1%
div-inv70.1%
clear-num71.2%
Applied egg-rr71.2%
un-div-inv71.2%
Applied egg-rr71.2%
if -5.5e284 < y < -3.10000000000000015e249 or -6.6e9 < y < -8.20000000000000063e-8Initial program 81.6%
Taylor expanded in z around 0 61.5%
if -6.19999999999999986e32 < y < -6.6e9Initial program 100.0%
Taylor expanded in y around inf 55.4%
*-commutative55.4%
associate-/r*55.4%
Simplified55.4%
Taylor expanded in t around 0 55.4%
associate-*r/55.4%
neg-mul-155.4%
*-commutative55.4%
Simplified55.4%
if -8.20000000000000063e-8 < y < 3.5e16Initial program 88.8%
Taylor expanded in y around 0 69.7%
associate-*r/69.7%
neg-mul-169.7%
Simplified69.7%
Taylor expanded in z around 0 42.8%
associate-*r/42.8%
neg-mul-142.8%
*-commutative42.8%
Simplified42.8%
distribute-frac-neg42.8%
*-commutative42.8%
associate-/r*45.6%
Applied egg-rr45.6%
if 3.5e16 < y Initial program 87.3%
Taylor expanded in y around inf 84.8%
*-commutative84.8%
associate-/r*87.5%
Simplified87.5%
Taylor expanded in t around inf 51.5%
Final simplification53.2%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (<= y -5.5e+284)
(/ (/ x_m y) t)
(if (<= y -1.6e+245)
(/ x_m (* y t))
(if (<= y -6.1e+85)
(/ 1.0 (* t (/ y x_m)))
(if (<= y -62000000.0)
(/ (/ (- x_m) y) z)
(if (<= y 1.42e+17) (* (/ x_m z) (/ -1.0 t)) (/ (/ x_m t) y))))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -5.5e+284) {
tmp = (x_m / y) / t;
} else if (y <= -1.6e+245) {
tmp = x_m / (y * t);
} else if (y <= -6.1e+85) {
tmp = 1.0 / (t * (y / x_m));
} else if (y <= -62000000.0) {
tmp = (-x_m / y) / z;
} else if (y <= 1.42e+17) {
tmp = (x_m / z) * (-1.0 / t);
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-5.5d+284)) then
tmp = (x_m / y) / t
else if (y <= (-1.6d+245)) then
tmp = x_m / (y * t)
else if (y <= (-6.1d+85)) then
tmp = 1.0d0 / (t * (y / x_m))
else if (y <= (-62000000.0d0)) then
tmp = (-x_m / y) / z
else if (y <= 1.42d+17) then
tmp = (x_m / z) * ((-1.0d0) / t)
else
tmp = (x_m / t) / y
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -5.5e+284) {
tmp = (x_m / y) / t;
} else if (y <= -1.6e+245) {
tmp = x_m / (y * t);
} else if (y <= -6.1e+85) {
tmp = 1.0 / (t * (y / x_m));
} else if (y <= -62000000.0) {
tmp = (-x_m / y) / z;
} else if (y <= 1.42e+17) {
tmp = (x_m / z) * (-1.0 / t);
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if y <= -5.5e+284: tmp = (x_m / y) / t elif y <= -1.6e+245: tmp = x_m / (y * t) elif y <= -6.1e+85: tmp = 1.0 / (t * (y / x_m)) elif y <= -62000000.0: tmp = (-x_m / y) / z elif y <= 1.42e+17: tmp = (x_m / z) * (-1.0 / t) else: tmp = (x_m / t) / y return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (y <= -5.5e+284) tmp = Float64(Float64(x_m / y) / t); elseif (y <= -1.6e+245) tmp = Float64(x_m / Float64(y * t)); elseif (y <= -6.1e+85) tmp = Float64(1.0 / Float64(t * Float64(y / x_m))); elseif (y <= -62000000.0) tmp = Float64(Float64(Float64(-x_m) / y) / z); elseif (y <= 1.42e+17) tmp = Float64(Float64(x_m / z) * Float64(-1.0 / t)); else tmp = Float64(Float64(x_m / t) / y); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (y <= -5.5e+284) tmp = (x_m / y) / t; elseif (y <= -1.6e+245) tmp = x_m / (y * t); elseif (y <= -6.1e+85) tmp = 1.0 / (t * (y / x_m)); elseif (y <= -62000000.0) tmp = (-x_m / y) / z; elseif (y <= 1.42e+17) tmp = (x_m / z) * (-1.0 / t); else tmp = (x_m / t) / y; end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[y, -5.5e+284], N[(N[(x$95$m / y), $MachinePrecision] / t), $MachinePrecision], If[LessEqual[y, -1.6e+245], N[(x$95$m / N[(y * t), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -6.1e+85], N[(1.0 / N[(t * N[(y / x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -62000000.0], N[(N[((-x$95$m) / y), $MachinePrecision] / z), $MachinePrecision], If[LessEqual[y, 1.42e+17], N[(N[(x$95$m / z), $MachinePrecision] * N[(-1.0 / t), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / y), $MachinePrecision]]]]]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -5.5 \cdot 10^{+284}:\\
\;\;\;\;\frac{\frac{x\_m}{y}}{t}\\
\mathbf{elif}\;y \leq -1.6 \cdot 10^{+245}:\\
\;\;\;\;\frac{x\_m}{y \cdot t}\\
\mathbf{elif}\;y \leq -6.1 \cdot 10^{+85}:\\
\;\;\;\;\frac{1}{t \cdot \frac{y}{x\_m}}\\
\mathbf{elif}\;y \leq -62000000:\\
\;\;\;\;\frac{\frac{-x\_m}{y}}{z}\\
\mathbf{elif}\;y \leq 1.42 \cdot 10^{+17}:\\
\;\;\;\;\frac{x\_m}{z} \cdot \frac{-1}{t}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y}\\
\end{array}
\end{array}
if y < -5.5e284Initial program 69.0%
Taylor expanded in y around inf 69.0%
*-commutative69.0%
associate-/r*100.0%
Simplified100.0%
Taylor expanded in t around inf 69.3%
associate-/l/38.4%
clear-num38.4%
associate-*l/99.7%
associate-/r*100.0%
div-inv100.0%
clear-num100.0%
Applied egg-rr100.0%
un-div-inv100.0%
Applied egg-rr100.0%
if -5.5e284 < y < -1.60000000000000012e245Initial program 83.9%
Taylor expanded in z around 0 69.4%
if -1.60000000000000012e245 < y < -6.09999999999999981e85Initial program 77.5%
Taylor expanded in z around 0 52.5%
clear-num52.5%
inv-pow52.5%
*-commutative52.5%
associate-/l*66.8%
Applied egg-rr66.8%
unpow-166.8%
associate-/r/72.5%
Simplified72.5%
if -6.09999999999999981e85 < y < -6.2e7Initial program 94.8%
add-sqr-sqrt47.7%
times-frac52.8%
Applied egg-rr52.8%
associate-*r/52.7%
clear-num52.7%
associate-*l/52.7%
add-sqr-sqrt99.7%
Applied egg-rr99.7%
Taylor expanded in y around inf 74.6%
Taylor expanded in t around 0 38.9%
mul-1-neg38.9%
associate-/r*38.8%
distribute-neg-frac38.8%
mul-1-neg38.8%
*-commutative38.8%
associate-*l/38.8%
*-commutative38.8%
neg-mul-138.8%
Simplified38.8%
if -6.2e7 < y < 1.42e17Initial program 88.5%
Taylor expanded in y around 0 69.9%
associate-*r/69.9%
neg-mul-169.9%
Simplified69.9%
Taylor expanded in z around 0 43.1%
associate-*r/43.1%
neg-mul-143.1%
*-commutative43.1%
Simplified43.1%
neg-mul-143.1%
*-commutative43.1%
times-frac47.3%
Applied egg-rr47.3%
if 1.42e17 < y Initial program 87.3%
Taylor expanded in y around inf 84.8%
*-commutative84.8%
associate-/r*87.5%
Simplified87.5%
Taylor expanded in t around inf 51.5%
Final simplification52.9%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(let* ((t_1 (/ (/ x_m y) t)))
(*
x_s
(if (<= y -5.5e+284)
t_1
(if (<= y -3e+249)
(/ x_m (* y t))
(if (<= y -2.7e+85)
t_1
(if (<= y -240000.0)
(/ (/ (- x_m) y) z)
(if (<= y 3.1e+16) (/ (/ (- x_m) t) z) (/ (/ x_m t) y)))))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = (x_m / y) / t;
double tmp;
if (y <= -5.5e+284) {
tmp = t_1;
} else if (y <= -3e+249) {
tmp = x_m / (y * t);
} else if (y <= -2.7e+85) {
tmp = t_1;
} else if (y <= -240000.0) {
tmp = (-x_m / y) / z;
} else if (y <= 3.1e+16) {
tmp = (-x_m / t) / z;
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
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_m / y) / t
if (y <= (-5.5d+284)) then
tmp = t_1
else if (y <= (-3d+249)) then
tmp = x_m / (y * t)
else if (y <= (-2.7d+85)) then
tmp = t_1
else if (y <= (-240000.0d0)) then
tmp = (-x_m / y) / z
else if (y <= 3.1d+16) then
tmp = (-x_m / t) / z
else
tmp = (x_m / t) / y
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = (x_m / y) / t;
double tmp;
if (y <= -5.5e+284) {
tmp = t_1;
} else if (y <= -3e+249) {
tmp = x_m / (y * t);
} else if (y <= -2.7e+85) {
tmp = t_1;
} else if (y <= -240000.0) {
tmp = (-x_m / y) / z;
} else if (y <= 3.1e+16) {
tmp = (-x_m / t) / z;
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): t_1 = (x_m / y) / t tmp = 0 if y <= -5.5e+284: tmp = t_1 elif y <= -3e+249: tmp = x_m / (y * t) elif y <= -2.7e+85: tmp = t_1 elif y <= -240000.0: tmp = (-x_m / y) / z elif y <= 3.1e+16: tmp = (-x_m / t) / z else: tmp = (x_m / t) / y return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) t_1 = Float64(Float64(x_m / y) / t) tmp = 0.0 if (y <= -5.5e+284) tmp = t_1; elseif (y <= -3e+249) tmp = Float64(x_m / Float64(y * t)); elseif (y <= -2.7e+85) tmp = t_1; elseif (y <= -240000.0) tmp = Float64(Float64(Float64(-x_m) / y) / z); elseif (y <= 3.1e+16) tmp = Float64(Float64(Float64(-x_m) / t) / z); else tmp = Float64(Float64(x_m / t) / y); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) t_1 = (x_m / y) / t; tmp = 0.0; if (y <= -5.5e+284) tmp = t_1; elseif (y <= -3e+249) tmp = x_m / (y * t); elseif (y <= -2.7e+85) tmp = t_1; elseif (y <= -240000.0) tmp = (-x_m / y) / z; elseif (y <= 3.1e+16) tmp = (-x_m / t) / z; else tmp = (x_m / t) / y; end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x$95$m / y), $MachinePrecision] / t), $MachinePrecision]}, N[(x$95$s * If[LessEqual[y, -5.5e+284], t$95$1, If[LessEqual[y, -3e+249], N[(x$95$m / N[(y * t), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.7e+85], t$95$1, If[LessEqual[y, -240000.0], N[(N[((-x$95$m) / y), $MachinePrecision] / z), $MachinePrecision], If[LessEqual[y, 3.1e+16], N[(N[((-x$95$m) / t), $MachinePrecision] / z), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / y), $MachinePrecision]]]]]]), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
\begin{array}{l}
t_1 := \frac{\frac{x\_m}{y}}{t}\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -5.5 \cdot 10^{+284}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -3 \cdot 10^{+249}:\\
\;\;\;\;\frac{x\_m}{y \cdot t}\\
\mathbf{elif}\;y \leq -2.7 \cdot 10^{+85}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -240000:\\
\;\;\;\;\frac{\frac{-x\_m}{y}}{z}\\
\mathbf{elif}\;y \leq 3.1 \cdot 10^{+16}:\\
\;\;\;\;\frac{\frac{-x\_m}{t}}{z}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y}\\
\end{array}
\end{array}
\end{array}
if y < -5.5e284 or -3.00000000000000016e249 < y < -2.69999999999999983e85Initial program 76.8%
Taylor expanded in y around inf 74.4%
*-commutative74.4%
associate-/r*90.4%
Simplified90.4%
Taylor expanded in t around inf 65.6%
associate-/l/49.4%
clear-num49.5%
associate-*l/75.0%
associate-/r*75.1%
div-inv75.0%
clear-num76.5%
Applied egg-rr76.5%
un-div-inv76.5%
Applied egg-rr76.5%
if -5.5e284 < y < -3.00000000000000016e249Initial program 81.0%
Taylor expanded in z around 0 81.0%
if -2.69999999999999983e85 < y < -2.4e5Initial program 94.8%
add-sqr-sqrt47.7%
times-frac52.8%
Applied egg-rr52.8%
associate-*r/52.7%
clear-num52.7%
associate-*l/52.7%
add-sqr-sqrt99.7%
Applied egg-rr99.7%
Taylor expanded in y around inf 74.6%
Taylor expanded in t around 0 38.9%
mul-1-neg38.9%
associate-/r*38.8%
distribute-neg-frac38.8%
mul-1-neg38.8%
*-commutative38.8%
associate-*l/38.8%
*-commutative38.8%
neg-mul-138.8%
Simplified38.8%
if -2.4e5 < y < 3.1e16Initial program 88.5%
Taylor expanded in y around 0 69.9%
associate-*r/69.9%
neg-mul-169.9%
Simplified69.9%
Taylor expanded in z around 0 43.1%
associate-*r/43.1%
neg-mul-143.1%
*-commutative43.1%
Simplified43.1%
distribute-frac-neg43.1%
*-commutative43.1%
associate-/r*45.8%
Applied egg-rr45.8%
if 3.1e16 < y Initial program 87.3%
Taylor expanded in y around inf 84.8%
*-commutative84.8%
associate-/r*87.5%
Simplified87.5%
Taylor expanded in t around inf 51.5%
Final simplification52.3%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(let* ((t_1 (/ x_m (- t z))) (t_2 (* (- y z) (- t z))))
(*
x_s
(if (<= t_2 (- INFINITY))
(/ t_1 y)
(if (<= t_2 2e+303) (/ x_m t_2) (* t_1 (/ -1.0 z)))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = x_m / (t - z);
double t_2 = (y - z) * (t - z);
double tmp;
if (t_2 <= -((double) INFINITY)) {
tmp = t_1 / y;
} else if (t_2 <= 2e+303) {
tmp = x_m / t_2;
} else {
tmp = t_1 * (-1.0 / z);
}
return x_s * tmp;
}
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = x_m / (t - z);
double t_2 = (y - z) * (t - z);
double tmp;
if (t_2 <= -Double.POSITIVE_INFINITY) {
tmp = t_1 / y;
} else if (t_2 <= 2e+303) {
tmp = x_m / t_2;
} else {
tmp = t_1 * (-1.0 / z);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): t_1 = x_m / (t - z) t_2 = (y - z) * (t - z) tmp = 0 if t_2 <= -math.inf: tmp = t_1 / y elif t_2 <= 2e+303: tmp = x_m / t_2 else: tmp = t_1 * (-1.0 / z) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) t_1 = Float64(x_m / Float64(t - z)) t_2 = Float64(Float64(y - z) * Float64(t - z)) tmp = 0.0 if (t_2 <= Float64(-Inf)) tmp = Float64(t_1 / y); elseif (t_2 <= 2e+303) tmp = Float64(x_m / t_2); else tmp = Float64(t_1 * Float64(-1.0 / z)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) t_1 = x_m / (t - z); t_2 = (y - z) * (t - z); tmp = 0.0; if (t_2 <= -Inf) tmp = t_1 / y; elseif (t_2 <= 2e+303) tmp = x_m / t_2; else tmp = t_1 * (-1.0 / z); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := Block[{t$95$1 = N[(x$95$m / N[(t - z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(y - z), $MachinePrecision] * N[(t - z), $MachinePrecision]), $MachinePrecision]}, N[(x$95$s * If[LessEqual[t$95$2, (-Infinity)], N[(t$95$1 / y), $MachinePrecision], If[LessEqual[t$95$2, 2e+303], N[(x$95$m / t$95$2), $MachinePrecision], N[(t$95$1 * N[(-1.0 / z), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]]]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
\begin{array}{l}
t_1 := \frac{x\_m}{t - z}\\
t_2 := \left(y - z\right) \cdot \left(t - z\right)\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_2 \leq -\infty:\\
\;\;\;\;\frac{t\_1}{y}\\
\mathbf{elif}\;t\_2 \leq 2 \cdot 10^{+303}:\\
\;\;\;\;\frac{x\_m}{t\_2}\\
\mathbf{else}:\\
\;\;\;\;t\_1 \cdot \frac{-1}{z}\\
\end{array}
\end{array}
\end{array}
if (*.f64 (-.f64 y z) (-.f64 t z)) < -inf.0Initial program 56.3%
Taylor expanded in y around inf 40.3%
*-commutative40.3%
associate-/r*80.0%
Simplified80.0%
if -inf.0 < (*.f64 (-.f64 y z) (-.f64 t z)) < 2e303Initial program 96.6%
if 2e303 < (*.f64 (-.f64 y z) (-.f64 t z)) Initial program 76.3%
*-un-lft-identity76.3%
times-frac99.9%
Applied egg-rr99.9%
Taylor expanded in y around 0 89.8%
Final simplification93.0%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(let* ((t_1 (* (- y z) (- t z))))
(*
x_s
(if (<= t_1 (- INFINITY))
(/ (/ x_m (- t z)) y)
(if (<= t_1 2e+303) (/ x_m t_1) (/ (/ -1.0 z) (/ (- t z) x_m)))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = (y - z) * (t - z);
double tmp;
if (t_1 <= -((double) INFINITY)) {
tmp = (x_m / (t - z)) / y;
} else if (t_1 <= 2e+303) {
tmp = x_m / t_1;
} else {
tmp = (-1.0 / z) / ((t - z) / x_m);
}
return x_s * tmp;
}
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = (y - z) * (t - z);
double tmp;
if (t_1 <= -Double.POSITIVE_INFINITY) {
tmp = (x_m / (t - z)) / y;
} else if (t_1 <= 2e+303) {
tmp = x_m / t_1;
} else {
tmp = (-1.0 / z) / ((t - z) / x_m);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): t_1 = (y - z) * (t - z) tmp = 0 if t_1 <= -math.inf: tmp = (x_m / (t - z)) / y elif t_1 <= 2e+303: tmp = x_m / t_1 else: tmp = (-1.0 / z) / ((t - z) / x_m) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) t_1 = Float64(Float64(y - z) * Float64(t - z)) tmp = 0.0 if (t_1 <= Float64(-Inf)) tmp = Float64(Float64(x_m / Float64(t - z)) / y); elseif (t_1 <= 2e+303) tmp = Float64(x_m / t_1); else tmp = Float64(Float64(-1.0 / z) / Float64(Float64(t - z) / x_m)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) t_1 = (y - z) * (t - z); tmp = 0.0; if (t_1 <= -Inf) tmp = (x_m / (t - z)) / y; elseif (t_1 <= 2e+303) tmp = x_m / t_1; else tmp = (-1.0 / z) / ((t - z) / x_m); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := Block[{t$95$1 = N[(N[(y - z), $MachinePrecision] * N[(t - z), $MachinePrecision]), $MachinePrecision]}, N[(x$95$s * If[LessEqual[t$95$1, (-Infinity)], N[(N[(x$95$m / N[(t - z), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision], If[LessEqual[t$95$1, 2e+303], N[(x$95$m / t$95$1), $MachinePrecision], N[(N[(-1.0 / z), $MachinePrecision] / N[(N[(t - z), $MachinePrecision] / x$95$m), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
\begin{array}{l}
t_1 := \left(y - z\right) \cdot \left(t - z\right)\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;t\_1 \leq -\infty:\\
\;\;\;\;\frac{\frac{x\_m}{t - z}}{y}\\
\mathbf{elif}\;t\_1 \leq 2 \cdot 10^{+303}:\\
\;\;\;\;\frac{x\_m}{t\_1}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{-1}{z}}{\frac{t - z}{x\_m}}\\
\end{array}
\end{array}
\end{array}
if (*.f64 (-.f64 y z) (-.f64 t z)) < -inf.0Initial program 56.3%
Taylor expanded in y around inf 40.3%
*-commutative40.3%
associate-/r*80.0%
Simplified80.0%
if -inf.0 < (*.f64 (-.f64 y z) (-.f64 t z)) < 2e303Initial program 96.6%
if 2e303 < (*.f64 (-.f64 y z) (-.f64 t z)) Initial program 76.3%
add-sqr-sqrt38.9%
times-frac51.8%
Applied egg-rr51.8%
frac-times38.9%
add-sqr-sqrt76.3%
*-un-lft-identity76.3%
frac-times99.9%
clear-num99.9%
un-div-inv99.9%
Applied egg-rr99.9%
Taylor expanded in y around 0 89.9%
Final simplification93.0%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(let* ((t_1 (/ (/ x_m y) t)) (t_2 (* (/ x_m z) (/ -1.0 t))))
(*
x_s
(if (<= z -8.5e-21)
t_2
(if (<= z -5.2e-120)
t_1
(if (<= z -1.55e-177)
(- (/ x_m (* z t)))
(if (<= z 1000000000000.0) t_1 t_2)))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = (x_m / y) / t;
double t_2 = (x_m / z) * (-1.0 / t);
double tmp;
if (z <= -8.5e-21) {
tmp = t_2;
} else if (z <= -5.2e-120) {
tmp = t_1;
} else if (z <= -1.55e-177) {
tmp = -(x_m / (z * t));
} else if (z <= 1000000000000.0) {
tmp = t_1;
} else {
tmp = t_2;
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
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 = (x_m / y) / t
t_2 = (x_m / z) * ((-1.0d0) / t)
if (z <= (-8.5d-21)) then
tmp = t_2
else if (z <= (-5.2d-120)) then
tmp = t_1
else if (z <= (-1.55d-177)) then
tmp = -(x_m / (z * t))
else if (z <= 1000000000000.0d0) then
tmp = t_1
else
tmp = t_2
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = (x_m / y) / t;
double t_2 = (x_m / z) * (-1.0 / t);
double tmp;
if (z <= -8.5e-21) {
tmp = t_2;
} else if (z <= -5.2e-120) {
tmp = t_1;
} else if (z <= -1.55e-177) {
tmp = -(x_m / (z * t));
} else if (z <= 1000000000000.0) {
tmp = t_1;
} else {
tmp = t_2;
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): t_1 = (x_m / y) / t t_2 = (x_m / z) * (-1.0 / t) tmp = 0 if z <= -8.5e-21: tmp = t_2 elif z <= -5.2e-120: tmp = t_1 elif z <= -1.55e-177: tmp = -(x_m / (z * t)) elif z <= 1000000000000.0: tmp = t_1 else: tmp = t_2 return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) t_1 = Float64(Float64(x_m / y) / t) t_2 = Float64(Float64(x_m / z) * Float64(-1.0 / t)) tmp = 0.0 if (z <= -8.5e-21) tmp = t_2; elseif (z <= -5.2e-120) tmp = t_1; elseif (z <= -1.55e-177) tmp = Float64(-Float64(x_m / Float64(z * t))); elseif (z <= 1000000000000.0) tmp = t_1; else tmp = t_2; end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) t_1 = (x_m / y) / t; t_2 = (x_m / z) * (-1.0 / t); tmp = 0.0; if (z <= -8.5e-21) tmp = t_2; elseif (z <= -5.2e-120) tmp = t_1; elseif (z <= -1.55e-177) tmp = -(x_m / (z * t)); elseif (z <= 1000000000000.0) tmp = t_1; else tmp = t_2; end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x$95$m / y), $MachinePrecision] / t), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x$95$m / z), $MachinePrecision] * N[(-1.0 / t), $MachinePrecision]), $MachinePrecision]}, N[(x$95$s * If[LessEqual[z, -8.5e-21], t$95$2, If[LessEqual[z, -5.2e-120], t$95$1, If[LessEqual[z, -1.55e-177], (-N[(x$95$m / N[(z * t), $MachinePrecision]), $MachinePrecision]), If[LessEqual[z, 1000000000000.0], t$95$1, t$95$2]]]]), $MachinePrecision]]]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
\begin{array}{l}
t_1 := \frac{\frac{x\_m}{y}}{t}\\
t_2 := \frac{x\_m}{z} \cdot \frac{-1}{t}\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;z \leq -8.5 \cdot 10^{-21}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;z \leq -5.2 \cdot 10^{-120}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -1.55 \cdot 10^{-177}:\\
\;\;\;\;-\frac{x\_m}{z \cdot t}\\
\mathbf{elif}\;z \leq 1000000000000:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
\end{array}
if z < -8.4999999999999993e-21 or 1e12 < z Initial program 86.0%
Taylor expanded in y around 0 74.8%
associate-*r/74.8%
neg-mul-174.8%
Simplified74.8%
Taylor expanded in z around 0 44.7%
associate-*r/44.7%
neg-mul-144.7%
*-commutative44.7%
Simplified44.7%
neg-mul-144.7%
*-commutative44.7%
times-frac49.8%
Applied egg-rr49.8%
if -8.4999999999999993e-21 < z < -5.2000000000000002e-120 or -1.55000000000000009e-177 < z < 1e12Initial program 85.4%
Taylor expanded in y around inf 74.5%
*-commutative74.5%
associate-/r*82.3%
Simplified82.3%
Taylor expanded in t around inf 71.1%
associate-/l/62.6%
clear-num62.5%
associate-*l/74.7%
associate-/r*75.3%
div-inv75.2%
clear-num75.7%
Applied egg-rr75.7%
un-div-inv75.9%
Applied egg-rr75.9%
if -5.2000000000000002e-120 < z < -1.55000000000000009e-177Initial program 99.6%
Taylor expanded in y around 0 69.4%
associate-*r/69.4%
neg-mul-169.4%
Simplified69.4%
Taylor expanded in z around 0 50.8%
associate-*r/50.8%
neg-mul-150.8%
*-commutative50.8%
Simplified50.8%
Final simplification60.8%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(let* ((t_1 (/ (/ x_m y) t)))
(*
x_s
(if (<= y -5.5e+284)
t_1
(if (<= y -3.1e+249)
(/ x_m (* y t))
(if (<= y -1.9e+45)
t_1
(if (<= y 5.1e+16) (/ (/ (- x_m) t) z) (/ (/ x_m t) y))))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = (x_m / y) / t;
double tmp;
if (y <= -5.5e+284) {
tmp = t_1;
} else if (y <= -3.1e+249) {
tmp = x_m / (y * t);
} else if (y <= -1.9e+45) {
tmp = t_1;
} else if (y <= 5.1e+16) {
tmp = (-x_m / t) / z;
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
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_m / y) / t
if (y <= (-5.5d+284)) then
tmp = t_1
else if (y <= (-3.1d+249)) then
tmp = x_m / (y * t)
else if (y <= (-1.9d+45)) then
tmp = t_1
else if (y <= 5.1d+16) then
tmp = (-x_m / t) / z
else
tmp = (x_m / t) / y
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double t_1 = (x_m / y) / t;
double tmp;
if (y <= -5.5e+284) {
tmp = t_1;
} else if (y <= -3.1e+249) {
tmp = x_m / (y * t);
} else if (y <= -1.9e+45) {
tmp = t_1;
} else if (y <= 5.1e+16) {
tmp = (-x_m / t) / z;
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): t_1 = (x_m / y) / t tmp = 0 if y <= -5.5e+284: tmp = t_1 elif y <= -3.1e+249: tmp = x_m / (y * t) elif y <= -1.9e+45: tmp = t_1 elif y <= 5.1e+16: tmp = (-x_m / t) / z else: tmp = (x_m / t) / y return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) t_1 = Float64(Float64(x_m / y) / t) tmp = 0.0 if (y <= -5.5e+284) tmp = t_1; elseif (y <= -3.1e+249) tmp = Float64(x_m / Float64(y * t)); elseif (y <= -1.9e+45) tmp = t_1; elseif (y <= 5.1e+16) tmp = Float64(Float64(Float64(-x_m) / t) / z); else tmp = Float64(Float64(x_m / t) / y); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) t_1 = (x_m / y) / t; tmp = 0.0; if (y <= -5.5e+284) tmp = t_1; elseif (y <= -3.1e+249) tmp = x_m / (y * t); elseif (y <= -1.9e+45) tmp = t_1; elseif (y <= 5.1e+16) tmp = (-x_m / t) / z; else tmp = (x_m / t) / y; end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := Block[{t$95$1 = N[(N[(x$95$m / y), $MachinePrecision] / t), $MachinePrecision]}, N[(x$95$s * If[LessEqual[y, -5.5e+284], t$95$1, If[LessEqual[y, -3.1e+249], N[(x$95$m / N[(y * t), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.9e+45], t$95$1, If[LessEqual[y, 5.1e+16], N[(N[((-x$95$m) / t), $MachinePrecision] / z), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / y), $MachinePrecision]]]]]), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
\begin{array}{l}
t_1 := \frac{\frac{x\_m}{y}}{t}\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -5.5 \cdot 10^{+284}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -3.1 \cdot 10^{+249}:\\
\;\;\;\;\frac{x\_m}{y \cdot t}\\
\mathbf{elif}\;y \leq -1.9 \cdot 10^{+45}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 5.1 \cdot 10^{+16}:\\
\;\;\;\;\frac{\frac{-x\_m}{t}}{z}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y}\\
\end{array}
\end{array}
\end{array}
if y < -5.5e284 or -3.10000000000000015e249 < y < -1.9000000000000001e45Initial program 82.0%
Taylor expanded in y around inf 77.2%
*-commutative77.2%
associate-/r*86.3%
Simplified86.3%
Taylor expanded in t around inf 63.6%
associate-/l/52.6%
clear-num52.6%
associate-*l/70.8%
associate-/r*70.9%
div-inv70.8%
clear-num72.0%
Applied egg-rr72.0%
un-div-inv72.0%
Applied egg-rr72.0%
if -5.5e284 < y < -3.10000000000000015e249Initial program 81.0%
Taylor expanded in z around 0 81.0%
if -1.9000000000000001e45 < y < 5.1e16Initial program 88.3%
Taylor expanded in y around 0 68.3%
associate-*r/68.3%
neg-mul-168.3%
Simplified68.3%
Taylor expanded in z around 0 41.6%
associate-*r/41.6%
neg-mul-141.6%
*-commutative41.6%
Simplified41.6%
distribute-frac-neg41.6%
*-commutative41.6%
associate-/r*44.2%
Applied egg-rr44.2%
if 5.1e16 < y Initial program 87.3%
Taylor expanded in y around inf 84.8%
*-commutative84.8%
associate-/r*87.5%
Simplified87.5%
Taylor expanded in t around inf 51.5%
Final simplification52.4%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (<= y -6.8e+18)
(/ (/ x_m y) (- t z))
(if (<= y 9.5e-201)
(* (/ x_m (- t z)) (/ -1.0 z))
(/ (/ x_m t) (- y z))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -6.8e+18) {
tmp = (x_m / y) / (t - z);
} else if (y <= 9.5e-201) {
tmp = (x_m / (t - z)) * (-1.0 / z);
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-6.8d+18)) then
tmp = (x_m / y) / (t - z)
else if (y <= 9.5d-201) then
tmp = (x_m / (t - z)) * ((-1.0d0) / z)
else
tmp = (x_m / t) / (y - z)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -6.8e+18) {
tmp = (x_m / y) / (t - z);
} else if (y <= 9.5e-201) {
tmp = (x_m / (t - z)) * (-1.0 / z);
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if y <= -6.8e+18: tmp = (x_m / y) / (t - z) elif y <= 9.5e-201: tmp = (x_m / (t - z)) * (-1.0 / z) else: tmp = (x_m / t) / (y - z) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (y <= -6.8e+18) tmp = Float64(Float64(x_m / y) / Float64(t - z)); elseif (y <= 9.5e-201) tmp = Float64(Float64(x_m / Float64(t - z)) * Float64(-1.0 / z)); else tmp = Float64(Float64(x_m / t) / Float64(y - z)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (y <= -6.8e+18) tmp = (x_m / y) / (t - z); elseif (y <= 9.5e-201) tmp = (x_m / (t - z)) * (-1.0 / z); else tmp = (x_m / t) / (y - z); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[y, -6.8e+18], N[(N[(x$95$m / y), $MachinePrecision] / N[(t - z), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9.5e-201], N[(N[(x$95$m / N[(t - z), $MachinePrecision]), $MachinePrecision] * N[(-1.0 / z), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -6.8 \cdot 10^{+18}:\\
\;\;\;\;\frac{\frac{x\_m}{y}}{t - z}\\
\mathbf{elif}\;y \leq 9.5 \cdot 10^{-201}:\\
\;\;\;\;\frac{x\_m}{t - z} \cdot \frac{-1}{z}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y - z}\\
\end{array}
\end{array}
if y < -6.8e18Initial program 81.4%
add-sqr-sqrt44.8%
times-frac55.5%
Applied egg-rr55.5%
Taylor expanded in y around inf 77.1%
associate-/r*89.1%
Simplified89.1%
if -6.8e18 < y < 9.5000000000000001e-201Initial program 87.9%
*-un-lft-identity87.9%
times-frac96.5%
Applied egg-rr96.5%
Taylor expanded in y around 0 88.1%
if 9.5000000000000001e-201 < y Initial program 88.5%
Taylor expanded in x around 0 88.5%
associate-/r*98.1%
Simplified98.1%
Taylor expanded in t around inf 62.1%
Final simplification77.1%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (<= y -2.05e+16)
(/ (/ x_m y) (- t z))
(if (<= y 6.8e-202) (/ (- x_m) (* z (- t z))) (/ (/ x_m t) (- y z))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -2.05e+16) {
tmp = (x_m / y) / (t - z);
} else if (y <= 6.8e-202) {
tmp = -x_m / (z * (t - z));
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-2.05d+16)) then
tmp = (x_m / y) / (t - z)
else if (y <= 6.8d-202) then
tmp = -x_m / (z * (t - z))
else
tmp = (x_m / t) / (y - z)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -2.05e+16) {
tmp = (x_m / y) / (t - z);
} else if (y <= 6.8e-202) {
tmp = -x_m / (z * (t - z));
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if y <= -2.05e+16: tmp = (x_m / y) / (t - z) elif y <= 6.8e-202: tmp = -x_m / (z * (t - z)) else: tmp = (x_m / t) / (y - z) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (y <= -2.05e+16) tmp = Float64(Float64(x_m / y) / Float64(t - z)); elseif (y <= 6.8e-202) tmp = Float64(Float64(-x_m) / Float64(z * Float64(t - z))); else tmp = Float64(Float64(x_m / t) / Float64(y - z)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (y <= -2.05e+16) tmp = (x_m / y) / (t - z); elseif (y <= 6.8e-202) tmp = -x_m / (z * (t - z)); else tmp = (x_m / t) / (y - z); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[y, -2.05e+16], N[(N[(x$95$m / y), $MachinePrecision] / N[(t - z), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 6.8e-202], N[((-x$95$m) / N[(z * N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -2.05 \cdot 10^{+16}:\\
\;\;\;\;\frac{\frac{x\_m}{y}}{t - z}\\
\mathbf{elif}\;y \leq 6.8 \cdot 10^{-202}:\\
\;\;\;\;\frac{-x\_m}{z \cdot \left(t - z\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y - z}\\
\end{array}
\end{array}
if y < -2.05e16Initial program 81.4%
add-sqr-sqrt44.8%
times-frac55.5%
Applied egg-rr55.5%
Taylor expanded in y around inf 77.1%
associate-/r*89.1%
Simplified89.1%
if -2.05e16 < y < 6.80000000000000025e-202Initial program 87.7%
Taylor expanded in y around 0 77.3%
associate-*r/77.3%
neg-mul-177.3%
Simplified77.3%
if 6.80000000000000025e-202 < y Initial program 88.6%
Taylor expanded in x around 0 88.6%
associate-/r*98.1%
Simplified98.1%
Taylor expanded in t around inf 61.5%
Final simplification73.3%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (<= t -1.95e-125)
(/ (/ x_m (- t z)) y)
(if (<= t 4.5e-22) (/ (/ (- x_m) z) (- y z)) (/ (/ x_m t) (- y z))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (t <= -1.95e-125) {
tmp = (x_m / (t - z)) / y;
} else if (t <= 4.5e-22) {
tmp = (-x_m / z) / (y - z);
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (t <= (-1.95d-125)) then
tmp = (x_m / (t - z)) / y
else if (t <= 4.5d-22) then
tmp = (-x_m / z) / (y - z)
else
tmp = (x_m / t) / (y - z)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (t <= -1.95e-125) {
tmp = (x_m / (t - z)) / y;
} else if (t <= 4.5e-22) {
tmp = (-x_m / z) / (y - z);
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if t <= -1.95e-125: tmp = (x_m / (t - z)) / y elif t <= 4.5e-22: tmp = (-x_m / z) / (y - z) else: tmp = (x_m / t) / (y - z) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (t <= -1.95e-125) tmp = Float64(Float64(x_m / Float64(t - z)) / y); elseif (t <= 4.5e-22) tmp = Float64(Float64(Float64(-x_m) / z) / Float64(y - z)); else tmp = Float64(Float64(x_m / t) / Float64(y - z)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (t <= -1.95e-125) tmp = (x_m / (t - z)) / y; elseif (t <= 4.5e-22) tmp = (-x_m / z) / (y - z); else tmp = (x_m / t) / (y - z); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[t, -1.95e-125], N[(N[(x$95$m / N[(t - z), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision], If[LessEqual[t, 4.5e-22], N[(N[((-x$95$m) / z), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;t \leq -1.95 \cdot 10^{-125}:\\
\;\;\;\;\frac{\frac{x\_m}{t - z}}{y}\\
\mathbf{elif}\;t \leq 4.5 \cdot 10^{-22}:\\
\;\;\;\;\frac{\frac{-x\_m}{z}}{y - z}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y - z}\\
\end{array}
\end{array}
if t < -1.94999999999999991e-125Initial program 89.3%
Taylor expanded in y around inf 62.0%
*-commutative62.0%
associate-/r*68.3%
Simplified68.3%
if -1.94999999999999991e-125 < t < 4.49999999999999987e-22Initial program 85.6%
Taylor expanded in t around 0 72.8%
mul-1-neg72.8%
associate-/r*82.6%
distribute-neg-frac82.6%
Simplified82.6%
if 4.49999999999999987e-22 < t Initial program 84.2%
Taylor expanded in x around 0 84.2%
associate-/r*96.8%
Simplified96.8%
Taylor expanded in t around inf 88.5%
Final simplification78.8%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (<= y -4.2e+15)
(/ (/ x_m y) (- t z))
(if (<= y 1e-200) (/ (/ (- x_m) z) (- t z)) (/ (/ x_m t) (- y z))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -4.2e+15) {
tmp = (x_m / y) / (t - z);
} else if (y <= 1e-200) {
tmp = (-x_m / z) / (t - z);
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-4.2d+15)) then
tmp = (x_m / y) / (t - z)
else if (y <= 1d-200) then
tmp = (-x_m / z) / (t - z)
else
tmp = (x_m / t) / (y - z)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -4.2e+15) {
tmp = (x_m / y) / (t - z);
} else if (y <= 1e-200) {
tmp = (-x_m / z) / (t - z);
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if y <= -4.2e+15: tmp = (x_m / y) / (t - z) elif y <= 1e-200: tmp = (-x_m / z) / (t - z) else: tmp = (x_m / t) / (y - z) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (y <= -4.2e+15) tmp = Float64(Float64(x_m / y) / Float64(t - z)); elseif (y <= 1e-200) tmp = Float64(Float64(Float64(-x_m) / z) / Float64(t - z)); else tmp = Float64(Float64(x_m / t) / Float64(y - z)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (y <= -4.2e+15) tmp = (x_m / y) / (t - z); elseif (y <= 1e-200) tmp = (-x_m / z) / (t - z); else tmp = (x_m / t) / (y - z); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[y, -4.2e+15], N[(N[(x$95$m / y), $MachinePrecision] / N[(t - z), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1e-200], N[(N[((-x$95$m) / z), $MachinePrecision] / N[(t - z), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -4.2 \cdot 10^{+15}:\\
\;\;\;\;\frac{\frac{x\_m}{y}}{t - z}\\
\mathbf{elif}\;y \leq 10^{-200}:\\
\;\;\;\;\frac{\frac{-x\_m}{z}}{t - z}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y - z}\\
\end{array}
\end{array}
if y < -4.2e15Initial program 81.4%
add-sqr-sqrt44.8%
times-frac55.5%
Applied egg-rr55.5%
Taylor expanded in y around inf 77.1%
associate-/r*89.1%
Simplified89.1%
if -4.2e15 < y < 9.9999999999999998e-201Initial program 87.9%
add-sqr-sqrt35.4%
times-frac39.9%
Applied egg-rr39.9%
frac-times35.4%
add-sqr-sqrt87.9%
*-un-lft-identity87.9%
frac-times96.5%
clear-num96.4%
un-div-inv96.5%
Applied egg-rr96.5%
Taylor expanded in y around 0 77.6%
associate-/r*85.2%
associate-*r/85.2%
associate-*r/85.2%
neg-mul-185.2%
Simplified85.2%
if 9.9999999999999998e-201 < y Initial program 88.5%
Taylor expanded in x around 0 88.5%
associate-/r*98.1%
Simplified98.1%
Taylor expanded in t around inf 62.1%
Final simplification76.2%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (or (<= z -1.4e+155) (not (<= z 1.15e+95)))
(/ x_m (* z (- t z)))
(/ x_m (* (- y z) t)))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if ((z <= -1.4e+155) || !(z <= 1.15e+95)) {
tmp = x_m / (z * (t - z));
} else {
tmp = x_m / ((y - z) * t);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((z <= (-1.4d+155)) .or. (.not. (z <= 1.15d+95))) then
tmp = x_m / (z * (t - z))
else
tmp = x_m / ((y - z) * t)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if ((z <= -1.4e+155) || !(z <= 1.15e+95)) {
tmp = x_m / (z * (t - z));
} else {
tmp = x_m / ((y - z) * t);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if (z <= -1.4e+155) or not (z <= 1.15e+95): tmp = x_m / (z * (t - z)) else: tmp = x_m / ((y - z) * t) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if ((z <= -1.4e+155) || !(z <= 1.15e+95)) tmp = Float64(x_m / Float64(z * Float64(t - z))); else tmp = Float64(x_m / Float64(Float64(y - z) * t)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if ((z <= -1.4e+155) || ~((z <= 1.15e+95))) tmp = x_m / (z * (t - z)); else tmp = x_m / ((y - z) * t); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[Or[LessEqual[z, -1.4e+155], N[Not[LessEqual[z, 1.15e+95]], $MachinePrecision]], N[(x$95$m / N[(z * N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x$95$m / N[(N[(y - z), $MachinePrecision] * t), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;z \leq -1.4 \cdot 10^{+155} \lor \neg \left(z \leq 1.15 \cdot 10^{+95}\right):\\
\;\;\;\;\frac{x\_m}{z \cdot \left(t - z\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m}{\left(y - z\right) \cdot t}\\
\end{array}
\end{array}
if z < -1.40000000000000008e155 or 1.14999999999999999e95 < z Initial program 79.7%
Taylor expanded in y around 0 78.9%
associate-*r/78.9%
neg-mul-178.9%
Simplified78.9%
associate-/r*94.4%
add094.4%
add-sqr-sqrt48.5%
sqrt-unprod68.1%
sqr-neg68.1%
sqrt-unprod35.2%
add-sqr-sqrt74.2%
Applied egg-rr74.2%
associate-/r*74.4%
add074.4%
Simplified74.4%
if -1.40000000000000008e155 < z < 1.14999999999999999e95Initial program 89.5%
Taylor expanded in t around inf 62.5%
Final simplification66.0%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (<= t -1.6e-40)
(/ (/ x_m t) y)
(if (<= t 1.3e-166) (/ (/ (- x_m) z) y) (/ x_m (* (- y z) t))))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (t <= -1.6e-40) {
tmp = (x_m / t) / y;
} else if (t <= 1.3e-166) {
tmp = (-x_m / z) / y;
} else {
tmp = x_m / ((y - z) * t);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (t <= (-1.6d-40)) then
tmp = (x_m / t) / y
else if (t <= 1.3d-166) then
tmp = (-x_m / z) / y
else
tmp = x_m / ((y - z) * t)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (t <= -1.6e-40) {
tmp = (x_m / t) / y;
} else if (t <= 1.3e-166) {
tmp = (-x_m / z) / y;
} else {
tmp = x_m / ((y - z) * t);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if t <= -1.6e-40: tmp = (x_m / t) / y elif t <= 1.3e-166: tmp = (-x_m / z) / y else: tmp = x_m / ((y - z) * t) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (t <= -1.6e-40) tmp = Float64(Float64(x_m / t) / y); elseif (t <= 1.3e-166) tmp = Float64(Float64(Float64(-x_m) / z) / y); else tmp = Float64(x_m / Float64(Float64(y - z) * t)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (t <= -1.6e-40) tmp = (x_m / t) / y; elseif (t <= 1.3e-166) tmp = (-x_m / z) / y; else tmp = x_m / ((y - z) * t); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[t, -1.6e-40], N[(N[(x$95$m / t), $MachinePrecision] / y), $MachinePrecision], If[LessEqual[t, 1.3e-166], N[(N[((-x$95$m) / z), $MachinePrecision] / y), $MachinePrecision], N[(x$95$m / N[(N[(y - z), $MachinePrecision] * t), $MachinePrecision]), $MachinePrecision]]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;t \leq -1.6 \cdot 10^{-40}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y}\\
\mathbf{elif}\;t \leq 1.3 \cdot 10^{-166}:\\
\;\;\;\;\frac{\frac{-x\_m}{z}}{y}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m}{\left(y - z\right) \cdot t}\\
\end{array}
\end{array}
if t < -1.60000000000000001e-40Initial program 91.0%
Taylor expanded in y around inf 65.1%
*-commutative65.1%
associate-/r*71.3%
Simplified71.3%
Taylor expanded in t around inf 58.8%
if -1.60000000000000001e-40 < t < 1.29999999999999995e-166Initial program 84.6%
Taylor expanded in y around inf 52.9%
*-commutative52.9%
associate-/r*60.2%
Simplified60.2%
Taylor expanded in t around 0 49.5%
associate-*r/49.5%
neg-mul-149.5%
Simplified49.5%
if 1.29999999999999995e-166 < t Initial program 84.5%
Taylor expanded in t around inf 68.9%
Final simplification59.7%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (or (<= z -5.9e+100) (not (<= z 6.7e+100)))
(/ x_m (* z t))
(/ x_m (* y t)))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if ((z <= -5.9e+100) || !(z <= 6.7e+100)) {
tmp = x_m / (z * t);
} else {
tmp = x_m / (y * t);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((z <= (-5.9d+100)) .or. (.not. (z <= 6.7d+100))) then
tmp = x_m / (z * t)
else
tmp = x_m / (y * t)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if ((z <= -5.9e+100) || !(z <= 6.7e+100)) {
tmp = x_m / (z * t);
} else {
tmp = x_m / (y * t);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if (z <= -5.9e+100) or not (z <= 6.7e+100): tmp = x_m / (z * t) else: tmp = x_m / (y * t) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if ((z <= -5.9e+100) || !(z <= 6.7e+100)) tmp = Float64(x_m / Float64(z * t)); else tmp = Float64(x_m / Float64(y * t)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if ((z <= -5.9e+100) || ~((z <= 6.7e+100))) tmp = x_m / (z * t); else tmp = x_m / (y * t); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[Or[LessEqual[z, -5.9e+100], N[Not[LessEqual[z, 6.7e+100]], $MachinePrecision]], N[(x$95$m / N[(z * t), $MachinePrecision]), $MachinePrecision], N[(x$95$m / N[(y * t), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;z \leq -5.9 \cdot 10^{+100} \lor \neg \left(z \leq 6.7 \cdot 10^{+100}\right):\\
\;\;\;\;\frac{x\_m}{z \cdot t}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m}{y \cdot t}\\
\end{array}
\end{array}
if z < -5.90000000000000027e100 or 6.6999999999999997e100 < z Initial program 79.7%
Taylor expanded in y around 0 78.0%
associate-*r/78.0%
neg-mul-178.0%
Simplified78.0%
associate-/r*93.9%
add093.9%
add-sqr-sqrt46.4%
sqrt-unprod65.1%
sqr-neg65.1%
sqrt-unprod33.6%
add-sqr-sqrt71.6%
Applied egg-rr71.6%
add071.6%
Simplified71.6%
Taylor expanded in z around 0 46.5%
if -5.90000000000000027e100 < z < 6.6999999999999997e100Initial program 90.1%
Taylor expanded in z around 0 48.6%
Final simplification47.9%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (or (<= z -2.3e+97) (not (<= z 6.8e+108)))
(/ x_m (* z t))
(/ (/ x_m t) y))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if ((z <= -2.3e+97) || !(z <= 6.8e+108)) {
tmp = x_m / (z * t);
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((z <= (-2.3d+97)) .or. (.not. (z <= 6.8d+108))) then
tmp = x_m / (z * t)
else
tmp = (x_m / t) / y
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if ((z <= -2.3e+97) || !(z <= 6.8e+108)) {
tmp = x_m / (z * t);
} else {
tmp = (x_m / t) / y;
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if (z <= -2.3e+97) or not (z <= 6.8e+108): tmp = x_m / (z * t) else: tmp = (x_m / t) / y return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if ((z <= -2.3e+97) || !(z <= 6.8e+108)) tmp = Float64(x_m / Float64(z * t)); else tmp = Float64(Float64(x_m / t) / y); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if ((z <= -2.3e+97) || ~((z <= 6.8e+108))) tmp = x_m / (z * t); else tmp = (x_m / t) / y; end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[Or[LessEqual[z, -2.3e+97], N[Not[LessEqual[z, 6.8e+108]], $MachinePrecision]], N[(x$95$m / N[(z * t), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / y), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;z \leq -2.3 \cdot 10^{+97} \lor \neg \left(z \leq 6.8 \cdot 10^{+108}\right):\\
\;\;\;\;\frac{x\_m}{z \cdot t}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y}\\
\end{array}
\end{array}
if z < -2.30000000000000006e97 or 6.79999999999999992e108 < z Initial program 80.4%
Taylor expanded in y around 0 78.6%
associate-*r/78.6%
neg-mul-178.6%
Simplified78.6%
associate-/r*94.9%
add094.9%
add-sqr-sqrt47.5%
sqrt-unprod65.5%
sqr-neg65.5%
sqrt-unprod33.2%
add-sqr-sqrt72.0%
Applied egg-rr72.0%
add072.0%
Simplified72.0%
Taylor expanded in z around 0 47.5%
if -2.30000000000000006e97 < z < 6.79999999999999992e108Initial program 89.6%
Taylor expanded in y around inf 62.7%
*-commutative62.7%
associate-/r*69.2%
Simplified69.2%
Taylor expanded in t around inf 54.5%
Final simplification52.2%
x_m = (fabs.f64 x)
x_s = (copysign.f64 1 x)
(FPCore (x_s x_m y z t)
:precision binary64
(*
x_s
(if (or (<= z -3.3e+95) (not (<= z 1.15e+107)))
(/ x_m (* z t))
(/ (/ x_m y) t))))x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if ((z <= -3.3e+95) || !(z <= 1.15e+107)) {
tmp = x_m / (z * t);
} else {
tmp = (x_m / y) / t;
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if ((z <= (-3.3d+95)) .or. (.not. (z <= 1.15d+107))) then
tmp = x_m / (z * t)
else
tmp = (x_m / y) / t
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if ((z <= -3.3e+95) || !(z <= 1.15e+107)) {
tmp = x_m / (z * t);
} else {
tmp = (x_m / y) / t;
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if (z <= -3.3e+95) or not (z <= 1.15e+107): tmp = x_m / (z * t) else: tmp = (x_m / y) / t return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if ((z <= -3.3e+95) || !(z <= 1.15e+107)) tmp = Float64(x_m / Float64(z * t)); else tmp = Float64(Float64(x_m / y) / t); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if ((z <= -3.3e+95) || ~((z <= 1.15e+107))) tmp = x_m / (z * t); else tmp = (x_m / y) / t; end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[Or[LessEqual[z, -3.3e+95], N[Not[LessEqual[z, 1.15e+107]], $MachinePrecision]], N[(x$95$m / N[(z * t), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / y), $MachinePrecision] / t), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;z \leq -3.3 \cdot 10^{+95} \lor \neg \left(z \leq 1.15 \cdot 10^{+107}\right):\\
\;\;\;\;\frac{x\_m}{z \cdot t}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{y}}{t}\\
\end{array}
\end{array}
if z < -3.2999999999999998e95 or 1.15e107 < z Initial program 80.4%
Taylor expanded in y around 0 78.6%
associate-*r/78.6%
neg-mul-178.6%
Simplified78.6%
associate-/r*94.9%
add094.9%
add-sqr-sqrt47.5%
sqrt-unprod65.5%
sqr-neg65.5%
sqrt-unprod33.2%
add-sqr-sqrt72.0%
Applied egg-rr72.0%
add072.0%
Simplified72.0%
Taylor expanded in z around 0 47.5%
if -3.2999999999999998e95 < z < 1.15e107Initial program 89.6%
Taylor expanded in y around inf 62.7%
*-commutative62.7%
associate-/r*69.2%
Simplified69.2%
Taylor expanded in t around inf 54.5%
associate-/l/48.0%
clear-num48.0%
associate-*l/57.9%
associate-/r*58.2%
div-inv58.1%
clear-num58.0%
Applied egg-rr58.0%
un-div-inv58.0%
Applied egg-rr58.0%
Final simplification54.6%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z t) :precision binary64 (* x_s (if (<= y -4.7e-5) (/ x_m (* y (- t z))) (/ x_m (* (- y z) t)))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -4.7e-5) {
tmp = x_m / (y * (t - z));
} else {
tmp = x_m / ((y - z) * t);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-4.7d-5)) then
tmp = x_m / (y * (t - z))
else
tmp = x_m / ((y - z) * t)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -4.7e-5) {
tmp = x_m / (y * (t - z));
} else {
tmp = x_m / ((y - z) * t);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if y <= -4.7e-5: tmp = x_m / (y * (t - z)) else: tmp = x_m / ((y - z) * t) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (y <= -4.7e-5) tmp = Float64(x_m / Float64(y * Float64(t - z))); else tmp = Float64(x_m / Float64(Float64(y - z) * t)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (y <= -4.7e-5) tmp = x_m / (y * (t - z)); else tmp = x_m / ((y - z) * t); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[y, -4.7e-5], N[(x$95$m / N[(y * N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x$95$m / N[(N[(y - z), $MachinePrecision] * t), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -4.7 \cdot 10^{-5}:\\
\;\;\;\;\frac{x\_m}{y \cdot \left(t - z\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{x\_m}{\left(y - z\right) \cdot t}\\
\end{array}
\end{array}
if y < -4.69999999999999972e-5Initial program 81.4%
Taylor expanded in y around inf 74.5%
*-commutative74.5%
Simplified74.5%
if -4.69999999999999972e-5 < y Initial program 88.4%
Taylor expanded in t around inf 58.3%
Final simplification62.4%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z t) :precision binary64 (* x_s (if (<= y -0.000185) (/ x_m (* y (- t z))) (/ (/ x_m t) (- y z)))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -0.000185) {
tmp = x_m / (y * (t - z));
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-0.000185d0)) then
tmp = x_m / (y * (t - z))
else
tmp = (x_m / t) / (y - z)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -0.000185) {
tmp = x_m / (y * (t - z));
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if y <= -0.000185: tmp = x_m / (y * (t - z)) else: tmp = (x_m / t) / (y - z) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (y <= -0.000185) tmp = Float64(x_m / Float64(y * Float64(t - z))); else tmp = Float64(Float64(x_m / t) / Float64(y - z)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (y <= -0.000185) tmp = x_m / (y * (t - z)); else tmp = (x_m / t) / (y - z); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[y, -0.000185], N[(x$95$m / N[(y * N[(t - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -0.000185:\\
\;\;\;\;\frac{x\_m}{y \cdot \left(t - z\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y - z}\\
\end{array}
\end{array}
if y < -1.85e-4Initial program 81.4%
Taylor expanded in y around inf 74.5%
*-commutative74.5%
Simplified74.5%
if -1.85e-4 < y Initial program 88.4%
Taylor expanded in x around 0 88.4%
associate-/r*97.4%
Simplified97.4%
Taylor expanded in t around inf 59.1%
Final simplification63.1%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z t) :precision binary64 (* x_s (if (<= y -0.0002) (/ (/ x_m y) (- t z)) (/ (/ x_m t) (- y z)))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -0.0002) {
tmp = (x_m / y) / (t - z);
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (y <= (-0.0002d0)) then
tmp = (x_m / y) / (t - z)
else
tmp = (x_m / t) / (y - z)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (y <= -0.0002) {
tmp = (x_m / y) / (t - z);
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if y <= -0.0002: tmp = (x_m / y) / (t - z) else: tmp = (x_m / t) / (y - z) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (y <= -0.0002) tmp = Float64(Float64(x_m / y) / Float64(t - z)); else tmp = Float64(Float64(x_m / t) / Float64(y - z)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (y <= -0.0002) tmp = (x_m / y) / (t - z); else tmp = (x_m / t) / (y - z); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[y, -0.0002], N[(N[(x$95$m / y), $MachinePrecision] / N[(t - z), $MachinePrecision]), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;y \leq -0.0002:\\
\;\;\;\;\frac{\frac{x\_m}{y}}{t - z}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y - z}\\
\end{array}
\end{array}
if y < -2.0000000000000001e-4Initial program 81.4%
add-sqr-sqrt46.0%
times-frac55.9%
Applied egg-rr55.9%
Taylor expanded in y around inf 74.5%
associate-/r*85.6%
Simplified85.6%
if -2.0000000000000001e-4 < y Initial program 88.4%
Taylor expanded in x around 0 88.4%
associate-/r*97.4%
Simplified97.4%
Taylor expanded in t around inf 59.1%
Final simplification65.9%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z t) :precision binary64 (* x_s (if (<= t 2.9e-19) (/ (/ x_m (- t z)) y) (/ (/ x_m t) (- y z)))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (t <= 2.9e-19) {
tmp = (x_m / (t - z)) / y;
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (t <= 2.9d-19) then
tmp = (x_m / (t - z)) / y
else
tmp = (x_m / t) / (y - z)
end if
code = x_s * tmp
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
double tmp;
if (t <= 2.9e-19) {
tmp = (x_m / (t - z)) / y;
} else {
tmp = (x_m / t) / (y - z);
}
return x_s * tmp;
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): tmp = 0 if t <= 2.9e-19: tmp = (x_m / (t - z)) / y else: tmp = (x_m / t) / (y - z) return x_s * tmp
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) tmp = 0.0 if (t <= 2.9e-19) tmp = Float64(Float64(x_m / Float64(t - z)) / y); else tmp = Float64(Float64(x_m / t) / Float64(y - z)); end return Float64(x_s * tmp) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp_2 = code(x_s, x_m, y, z, t) tmp = 0.0; if (t <= 2.9e-19) tmp = (x_m / (t - z)) / y; else tmp = (x_m / t) / (y - z); end tmp_2 = x_s * tmp; end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * If[LessEqual[t, 2.9e-19], N[(N[(x$95$m / N[(t - z), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision], N[(N[(x$95$m / t), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \begin{array}{l}
\mathbf{if}\;t \leq 2.9 \cdot 10^{-19}:\\
\;\;\;\;\frac{\frac{x\_m}{t - z}}{y}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{x\_m}{t}}{y - z}\\
\end{array}
\end{array}
if t < 2.9e-19Initial program 87.4%
Taylor expanded in y around inf 57.4%
*-commutative57.4%
associate-/r*63.8%
Simplified63.8%
if 2.9e-19 < t Initial program 84.2%
Taylor expanded in x around 0 84.2%
associate-/r*96.8%
Simplified96.8%
Taylor expanded in t around inf 88.5%
Final simplification70.2%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z t) :precision binary64 (* x_s (/ (/ 1.0 (- y z)) (/ (- t z) x_m))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
return x_s * ((1.0 / (y - z)) / ((t - z) / x_m));
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x_s * ((1.0d0 / (y - z)) / ((t - z) / x_m))
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
return x_s * ((1.0 / (y - z)) / ((t - z) / x_m));
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): return x_s * ((1.0 / (y - z)) / ((t - z) / x_m))
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) return Float64(x_s * Float64(Float64(1.0 / Float64(y - z)) / Float64(Float64(t - z) / x_m))) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp = code(x_s, x_m, y, z, t) tmp = x_s * ((1.0 / (y - z)) / ((t - z) / x_m)); end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * N[(N[(1.0 / N[(y - z), $MachinePrecision]), $MachinePrecision] / N[(N[(t - z), $MachinePrecision] / x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \frac{\frac{1}{y - z}}{\frac{t - z}{x\_m}}
\end{array}
Initial program 86.6%
add-sqr-sqrt43.0%
times-frac49.4%
Applied egg-rr49.4%
frac-times43.0%
add-sqr-sqrt86.6%
*-un-lft-identity86.6%
frac-times97.2%
clear-num97.1%
un-div-inv97.2%
Applied egg-rr97.2%
Final simplification97.2%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z t) :precision binary64 (* x_s (/ (/ x_m (- t z)) (- y z))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
return x_s * ((x_m / (t - z)) / (y - z));
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x_s * ((x_m / (t - z)) / (y - z))
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
return x_s * ((x_m / (t - z)) / (y - z));
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): return x_s * ((x_m / (t - z)) / (y - z))
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) return Float64(x_s * Float64(Float64(x_m / Float64(t - z)) / Float64(y - z))) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp = code(x_s, x_m, y, z, t) tmp = x_s * ((x_m / (t - z)) / (y - z)); end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * N[(N[(x$95$m / N[(t - z), $MachinePrecision]), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \frac{\frac{x\_m}{t - z}}{y - z}
\end{array}
Initial program 86.6%
Taylor expanded in x around 0 86.6%
associate-/r*97.3%
Simplified97.3%
Final simplification97.3%
x_m = (fabs.f64 x) x_s = (copysign.f64 1 x) (FPCore (x_s x_m y z t) :precision binary64 (* x_s (/ x_m (* y t))))
x_m = fabs(x);
x_s = copysign(1.0, x);
double code(double x_s, double x_m, double y, double z, double t) {
return x_s * (x_m / (y * t));
}
x_m = abs(x)
x_s = copysign(1.0d0, x)
real(8) function code(x_s, x_m, y, z, t)
real(8), intent (in) :: x_s
real(8), intent (in) :: x_m
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x_s * (x_m / (y * t))
end function
x_m = Math.abs(x);
x_s = Math.copySign(1.0, x);
public static double code(double x_s, double x_m, double y, double z, double t) {
return x_s * (x_m / (y * t));
}
x_m = math.fabs(x) x_s = math.copysign(1.0, x) def code(x_s, x_m, y, z, t): return x_s * (x_m / (y * t))
x_m = abs(x) x_s = copysign(1.0, x) function code(x_s, x_m, y, z, t) return Float64(x_s * Float64(x_m / Float64(y * t))) end
x_m = abs(x); x_s = sign(x) * abs(1.0); function tmp = code(x_s, x_m, y, z, t) tmp = x_s * (x_m / (y * t)); end
x_m = N[Abs[x], $MachinePrecision]
x_s = N[With[{TMP1 = Abs[1.0], TMP2 = Sign[x]}, TMP1 * If[TMP2 == 0, 1, TMP2]], $MachinePrecision]
code[x$95$s_, x$95$m_, y_, z_, t_] := N[(x$95$s * N[(x$95$m / N[(y * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
x_s = \mathsf{copysign}\left(1, x\right)
\\
x\_s \cdot \frac{x\_m}{y \cdot t}
\end{array}
Initial program 86.6%
Taylor expanded in z around 0 38.5%
Final simplification38.5%
(FPCore (x y z t) :precision binary64 (let* ((t_1 (* (- y z) (- t z)))) (if (< (/ x t_1) 0.0) (/ (/ x (- y z)) (- t z)) (* x (/ 1.0 t_1)))))
double code(double x, double y, double z, double t) {
double t_1 = (y - z) * (t - z);
double tmp;
if ((x / t_1) < 0.0) {
tmp = (x / (y - z)) / (t - z);
} else {
tmp = x * (1.0 / 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) * (t - z)
if ((x / t_1) < 0.0d0) then
tmp = (x / (y - z)) / (t - z)
else
tmp = x * (1.0d0 / 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) * (t - z);
double tmp;
if ((x / t_1) < 0.0) {
tmp = (x / (y - z)) / (t - z);
} else {
tmp = x * (1.0 / t_1);
}
return tmp;
}
def code(x, y, z, t): t_1 = (y - z) * (t - z) tmp = 0 if (x / t_1) < 0.0: tmp = (x / (y - z)) / (t - z) else: tmp = x * (1.0 / t_1) return tmp
function code(x, y, z, t) t_1 = Float64(Float64(y - z) * Float64(t - z)) tmp = 0.0 if (Float64(x / t_1) < 0.0) tmp = Float64(Float64(x / Float64(y - z)) / Float64(t - z)); else tmp = Float64(x * Float64(1.0 / t_1)); end return tmp end
function tmp_2 = code(x, y, z, t) t_1 = (y - z) * (t - z); tmp = 0.0; if ((x / t_1) < 0.0) tmp = (x / (y - z)) / (t - z); else tmp = x * (1.0 / t_1); end tmp_2 = tmp; end
code[x_, y_, z_, t_] := Block[{t$95$1 = N[(N[(y - z), $MachinePrecision] * N[(t - z), $MachinePrecision]), $MachinePrecision]}, If[Less[N[(x / t$95$1), $MachinePrecision], 0.0], N[(N[(x / N[(y - z), $MachinePrecision]), $MachinePrecision] / N[(t - z), $MachinePrecision]), $MachinePrecision], N[(x * N[(1.0 / t$95$1), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(y - z\right) \cdot \left(t - z\right)\\
\mathbf{if}\;\frac{x}{t\_1} < 0:\\
\;\;\;\;\frac{\frac{x}{y - z}}{t - z}\\
\mathbf{else}:\\
\;\;\;\;x \cdot \frac{1}{t\_1}\\
\end{array}
\end{array}
herbie shell --seed 2024034
(FPCore (x y z t)
:name "Data.Random.Distribution.Triangular:triangularCDF from random-fu-0.2.6.2, B"
:precision binary64
:herbie-target
(if (< (/ x (* (- y z) (- t z))) 0.0) (/ (/ x (- y z)) (- t z)) (* x (/ 1.0 (* (- y z) (- t z)))))
(/ x (* (- y z) (- t z))))