
(FPCore (x y z t a b c i j) :precision binary64 (+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (* j (- (* c t) (* i y)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
code = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)))
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)));
}
def code(x, y, z, t, a, b, c, i, j): return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)))
function code(x, y, z, t, a, b, c, i, j) return Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) - Float64(b * Float64(Float64(c * z) - Float64(i * a)))) + Float64(j * Float64(Float64(c * t) - Float64(i * y)))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(b * N[(N[(c * z), $MachinePrecision] - N[(i * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(c * t), $MachinePrecision] - N[(i * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \left(y \cdot z - t \cdot a\right) - b \cdot \left(c \cdot z - i \cdot a\right)\right) + j \cdot \left(c \cdot t - i \cdot y\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 33 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a b c i j) :precision binary64 (+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (* j (- (* c t) (* i y)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
code = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)))
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)));
}
def code(x, y, z, t, a, b, c, i, j): return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)))
function code(x, y, z, t, a, b, c, i, j) return Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) - Float64(b * Float64(Float64(c * z) - Float64(i * a)))) + Float64(j * Float64(Float64(c * t) - Float64(i * y)))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(b * N[(N[(c * z), $MachinePrecision] - N[(i * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(c * t), $MachinePrecision] - N[(i * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \left(y \cdot z - t \cdot a\right) - b \cdot \left(c \cdot z - i \cdot a\right)\right) + j \cdot \left(c \cdot t - i \cdot y\right)
\end{array}
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (- (* a i) (* z c)))) (t_2 (- (* t c) (* y i))))
(if (<= (+ (+ (* x (- (* y z) (* t a))) t_1) (* j t_2)) INFINITY)
(fma j t_2 (+ (* x (fma y z (* t (- a)))) t_1))
(* i (* b (- a (* j (/ y b))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * ((a * i) - (z * c));
double t_2 = (t * c) - (y * i);
double tmp;
if ((((x * ((y * z) - (t * a))) + t_1) + (j * t_2)) <= ((double) INFINITY)) {
tmp = fma(j, t_2, ((x * fma(y, z, (t * -a))) + t_1));
} else {
tmp = i * (b * (a - (j * (y / b))));
}
return tmp;
}
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(Float64(a * i) - Float64(z * c))) t_2 = Float64(Float64(t * c) - Float64(y * i)) tmp = 0.0 if (Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) + t_1) + Float64(j * t_2)) <= Inf) tmp = fma(j, t_2, Float64(Float64(x * fma(y, z, Float64(t * Float64(-a)))) + t_1)); else tmp = Float64(i * Float64(b * Float64(a - Float64(j * Float64(y / b))))); end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + N[(j * t$95$2), $MachinePrecision]), $MachinePrecision], Infinity], N[(j * t$95$2 + N[(N[(x * N[(y * z + N[(t * (-a)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision], N[(i * N[(b * N[(a - N[(j * N[(y / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(a \cdot i - z \cdot c\right)\\
t_2 := t \cdot c - y \cdot i\\
\mathbf{if}\;\left(x \cdot \left(y \cdot z - t \cdot a\right) + t\_1\right) + j \cdot t\_2 \leq \infty:\\
\;\;\;\;\mathsf{fma}\left(j, t\_2, x \cdot \mathsf{fma}\left(y, z, t \cdot \left(-a\right)\right) + t\_1\right)\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(b \cdot \left(a - j \cdot \frac{y}{b}\right)\right)\\
\end{array}
\end{array}
if (+.f64 (-.f64 (*.f64 x (-.f64 (*.f64 y z) (*.f64 t a))) (*.f64 b (-.f64 (*.f64 c z) (*.f64 i a)))) (*.f64 j (-.f64 (*.f64 c t) (*.f64 i y)))) < +inf.0Initial program 93.9%
+-commutative93.9%
fma-define93.9%
*-commutative93.9%
*-commutative93.9%
cancel-sign-sub-inv93.9%
cancel-sign-sub93.9%
sub-neg93.9%
sub-neg93.9%
*-commutative93.9%
fma-neg93.9%
*-commutative93.9%
distribute-rgt-neg-out93.9%
remove-double-neg93.9%
*-commutative93.9%
*-commutative93.9%
Simplified93.9%
if +inf.0 < (+.f64 (-.f64 (*.f64 x (-.f64 (*.f64 y z) (*.f64 t a))) (*.f64 b (-.f64 (*.f64 c z) (*.f64 i a)))) (*.f64 j (-.f64 (*.f64 c t) (*.f64 i y)))) Initial program 0.0%
Taylor expanded in i around inf 55.4%
distribute-lft-out--55.4%
*-commutative55.4%
Simplified55.4%
Taylor expanded in b around inf 34.7%
+-commutative34.7%
*-commutative34.7%
mul-1-neg34.7%
unsub-neg34.7%
*-commutative34.7%
associate-/l*47.8%
*-commutative47.8%
Simplified47.8%
Taylor expanded in b around inf 34.7%
mul-1-neg34.7%
distribute-frac-neg34.7%
distribute-lft-neg-in34.7%
associate-*r/47.8%
*-commutative47.8%
associate-*r/47.9%
distribute-lft-neg-in47.9%
+-commutative47.9%
distribute-lft-in38.4%
*-commutative38.4%
associate-*r*45.7%
distribute-rgt-neg-in45.7%
associate-*r*32.7%
distribute-lft-in61.0%
associate-*r/60.9%
*-commutative60.9%
Simplified61.0%
Final simplification87.1%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* y (- (* x z) (* i j))))
(t_2 (* a (- (* b i) (* x t))))
(t_3 (* c (- (* t j) (* z b)))))
(if (<= c -4.3e+151)
t_3
(if (<= c -9.5e+104)
(* i (* y (- (* b (/ a y)) j)))
(if (<= c -1.52e+58)
(* (* z j) (/ (- (* x y) (* b c)) j))
(if (<= c -5.1e+48)
(* a (* t (- x)))
(if (<= c -2e-118)
(* x (- (* y z) (* i (* j (/ y x)))))
(if (<= c -1.7e-195)
(* b (* z (- (* a (/ i z)) c)))
(if (<= c 3.9e-196)
t_1
(if (<= c 3e-130)
t_2
(if (<= c 4.7e-61)
t_1
(if (<= c 1.16e+40)
t_2
(if (or (<= c 2.65e+48) (not (<= c 1.22e+119)))
t_3
(* c (- (* t j) (* a (* t (/ x c))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * ((x * z) - (i * j));
double t_2 = a * ((b * i) - (x * t));
double t_3 = c * ((t * j) - (z * b));
double tmp;
if (c <= -4.3e+151) {
tmp = t_3;
} else if (c <= -9.5e+104) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (c <= -1.52e+58) {
tmp = (z * j) * (((x * y) - (b * c)) / j);
} else if (c <= -5.1e+48) {
tmp = a * (t * -x);
} else if (c <= -2e-118) {
tmp = x * ((y * z) - (i * (j * (y / x))));
} else if (c <= -1.7e-195) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (c <= 3.9e-196) {
tmp = t_1;
} else if (c <= 3e-130) {
tmp = t_2;
} else if (c <= 4.7e-61) {
tmp = t_1;
} else if (c <= 1.16e+40) {
tmp = t_2;
} else if ((c <= 2.65e+48) || !(c <= 1.22e+119)) {
tmp = t_3;
} else {
tmp = c * ((t * j) - (a * (t * (x / c))));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = y * ((x * z) - (i * j))
t_2 = a * ((b * i) - (x * t))
t_3 = c * ((t * j) - (z * b))
if (c <= (-4.3d+151)) then
tmp = t_3
else if (c <= (-9.5d+104)) then
tmp = i * (y * ((b * (a / y)) - j))
else if (c <= (-1.52d+58)) then
tmp = (z * j) * (((x * y) - (b * c)) / j)
else if (c <= (-5.1d+48)) then
tmp = a * (t * -x)
else if (c <= (-2d-118)) then
tmp = x * ((y * z) - (i * (j * (y / x))))
else if (c <= (-1.7d-195)) then
tmp = b * (z * ((a * (i / z)) - c))
else if (c <= 3.9d-196) then
tmp = t_1
else if (c <= 3d-130) then
tmp = t_2
else if (c <= 4.7d-61) then
tmp = t_1
else if (c <= 1.16d+40) then
tmp = t_2
else if ((c <= 2.65d+48) .or. (.not. (c <= 1.22d+119))) then
tmp = t_3
else
tmp = c * ((t * j) - (a * (t * (x / c))))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * ((x * z) - (i * j));
double t_2 = a * ((b * i) - (x * t));
double t_3 = c * ((t * j) - (z * b));
double tmp;
if (c <= -4.3e+151) {
tmp = t_3;
} else if (c <= -9.5e+104) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (c <= -1.52e+58) {
tmp = (z * j) * (((x * y) - (b * c)) / j);
} else if (c <= -5.1e+48) {
tmp = a * (t * -x);
} else if (c <= -2e-118) {
tmp = x * ((y * z) - (i * (j * (y / x))));
} else if (c <= -1.7e-195) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (c <= 3.9e-196) {
tmp = t_1;
} else if (c <= 3e-130) {
tmp = t_2;
} else if (c <= 4.7e-61) {
tmp = t_1;
} else if (c <= 1.16e+40) {
tmp = t_2;
} else if ((c <= 2.65e+48) || !(c <= 1.22e+119)) {
tmp = t_3;
} else {
tmp = c * ((t * j) - (a * (t * (x / c))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = y * ((x * z) - (i * j)) t_2 = a * ((b * i) - (x * t)) t_3 = c * ((t * j) - (z * b)) tmp = 0 if c <= -4.3e+151: tmp = t_3 elif c <= -9.5e+104: tmp = i * (y * ((b * (a / y)) - j)) elif c <= -1.52e+58: tmp = (z * j) * (((x * y) - (b * c)) / j) elif c <= -5.1e+48: tmp = a * (t * -x) elif c <= -2e-118: tmp = x * ((y * z) - (i * (j * (y / x)))) elif c <= -1.7e-195: tmp = b * (z * ((a * (i / z)) - c)) elif c <= 3.9e-196: tmp = t_1 elif c <= 3e-130: tmp = t_2 elif c <= 4.7e-61: tmp = t_1 elif c <= 1.16e+40: tmp = t_2 elif (c <= 2.65e+48) or not (c <= 1.22e+119): tmp = t_3 else: tmp = c * ((t * j) - (a * (t * (x / c)))) return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(y * Float64(Float64(x * z) - Float64(i * j))) t_2 = Float64(a * Float64(Float64(b * i) - Float64(x * t))) t_3 = Float64(c * Float64(Float64(t * j) - Float64(z * b))) tmp = 0.0 if (c <= -4.3e+151) tmp = t_3; elseif (c <= -9.5e+104) tmp = Float64(i * Float64(y * Float64(Float64(b * Float64(a / y)) - j))); elseif (c <= -1.52e+58) tmp = Float64(Float64(z * j) * Float64(Float64(Float64(x * y) - Float64(b * c)) / j)); elseif (c <= -5.1e+48) tmp = Float64(a * Float64(t * Float64(-x))); elseif (c <= -2e-118) tmp = Float64(x * Float64(Float64(y * z) - Float64(i * Float64(j * Float64(y / x))))); elseif (c <= -1.7e-195) tmp = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))); elseif (c <= 3.9e-196) tmp = t_1; elseif (c <= 3e-130) tmp = t_2; elseif (c <= 4.7e-61) tmp = t_1; elseif (c <= 1.16e+40) tmp = t_2; elseif ((c <= 2.65e+48) || !(c <= 1.22e+119)) tmp = t_3; else tmp = Float64(c * Float64(Float64(t * j) - Float64(a * Float64(t * Float64(x / c))))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = y * ((x * z) - (i * j)); t_2 = a * ((b * i) - (x * t)); t_3 = c * ((t * j) - (z * b)); tmp = 0.0; if (c <= -4.3e+151) tmp = t_3; elseif (c <= -9.5e+104) tmp = i * (y * ((b * (a / y)) - j)); elseif (c <= -1.52e+58) tmp = (z * j) * (((x * y) - (b * c)) / j); elseif (c <= -5.1e+48) tmp = a * (t * -x); elseif (c <= -2e-118) tmp = x * ((y * z) - (i * (j * (y / x)))); elseif (c <= -1.7e-195) tmp = b * (z * ((a * (i / z)) - c)); elseif (c <= 3.9e-196) tmp = t_1; elseif (c <= 3e-130) tmp = t_2; elseif (c <= 4.7e-61) tmp = t_1; elseif (c <= 1.16e+40) tmp = t_2; elseif ((c <= 2.65e+48) || ~((c <= 1.22e+119))) tmp = t_3; else tmp = c * ((t * j) - (a * (t * (x / c)))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(c * N[(N[(t * j), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -4.3e+151], t$95$3, If[LessEqual[c, -9.5e+104], N[(i * N[(y * N[(N[(b * N[(a / y), $MachinePrecision]), $MachinePrecision] - j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -1.52e+58], N[(N[(z * j), $MachinePrecision] * N[(N[(N[(x * y), $MachinePrecision] - N[(b * c), $MachinePrecision]), $MachinePrecision] / j), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -5.1e+48], N[(a * N[(t * (-x)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -2e-118], N[(x * N[(N[(y * z), $MachinePrecision] - N[(i * N[(j * N[(y / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -1.7e-195], N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 3.9e-196], t$95$1, If[LessEqual[c, 3e-130], t$95$2, If[LessEqual[c, 4.7e-61], t$95$1, If[LessEqual[c, 1.16e+40], t$95$2, If[Or[LessEqual[c, 2.65e+48], N[Not[LessEqual[c, 1.22e+119]], $MachinePrecision]], t$95$3, N[(c * N[(N[(t * j), $MachinePrecision] - N[(a * N[(t * N[(x / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(x \cdot z - i \cdot j\right)\\
t_2 := a \cdot \left(b \cdot i - x \cdot t\right)\\
t_3 := c \cdot \left(t \cdot j - z \cdot b\right)\\
\mathbf{if}\;c \leq -4.3 \cdot 10^{+151}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq -9.5 \cdot 10^{+104}:\\
\;\;\;\;i \cdot \left(y \cdot \left(b \cdot \frac{a}{y} - j\right)\right)\\
\mathbf{elif}\;c \leq -1.52 \cdot 10^{+58}:\\
\;\;\;\;\left(z \cdot j\right) \cdot \frac{x \cdot y - b \cdot c}{j}\\
\mathbf{elif}\;c \leq -5.1 \cdot 10^{+48}:\\
\;\;\;\;a \cdot \left(t \cdot \left(-x\right)\right)\\
\mathbf{elif}\;c \leq -2 \cdot 10^{-118}:\\
\;\;\;\;x \cdot \left(y \cdot z - i \cdot \left(j \cdot \frac{y}{x}\right)\right)\\
\mathbf{elif}\;c \leq -1.7 \cdot 10^{-195}:\\
\;\;\;\;b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
\mathbf{elif}\;c \leq 3.9 \cdot 10^{-196}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 3 \cdot 10^{-130}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 4.7 \cdot 10^{-61}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 1.16 \cdot 10^{+40}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 2.65 \cdot 10^{+48} \lor \neg \left(c \leq 1.22 \cdot 10^{+119}\right):\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;c \cdot \left(t \cdot j - a \cdot \left(t \cdot \frac{x}{c}\right)\right)\\
\end{array}
\end{array}
if c < -4.29999999999999983e151 or 1.16000000000000012e40 < c < 2.65e48 or 1.2200000000000001e119 < c Initial program 59.8%
Taylor expanded in c around inf 75.6%
if -4.29999999999999983e151 < c < -9.5e104Initial program 58.3%
Taylor expanded in i around inf 67.6%
distribute-lft-out--67.6%
*-commutative67.6%
Simplified67.6%
Taylor expanded in b around inf 59.7%
+-commutative59.7%
*-commutative59.7%
mul-1-neg59.7%
unsub-neg59.7%
*-commutative59.7%
associate-/l*68.1%
*-commutative68.1%
Simplified68.1%
Taylor expanded in b around inf 59.7%
mul-1-neg59.7%
distribute-frac-neg59.7%
distribute-lft-neg-in59.7%
associate-*r/68.1%
*-commutative68.1%
associate-*r/60.2%
distribute-lft-neg-in60.2%
+-commutative60.2%
distribute-lft-in60.2%
*-commutative60.2%
associate-*r*60.2%
distribute-rgt-neg-in60.2%
associate-*r*35.2%
distribute-lft-in60.2%
associate-*r/68.1%
*-commutative68.1%
Simplified67.6%
Taylor expanded in y around inf 67.5%
neg-mul-167.5%
+-commutative67.5%
unsub-neg67.5%
*-commutative67.5%
associate-/l*75.6%
Simplified75.6%
if -9.5e104 < c < -1.5199999999999999e58Initial program 67.8%
Taylor expanded in j around inf 52.5%
associate--l+52.5%
sub-neg52.5%
mul-1-neg52.5%
+-commutative52.5%
+-commutative52.5%
associate--r+52.5%
Simplified60.8%
Taylor expanded in z around inf 52.8%
associate-*r*59.9%
*-commutative59.9%
div-sub68.3%
*-commutative68.3%
Simplified68.3%
if -1.5199999999999999e58 < c < -5.0999999999999998e48Initial program 100.0%
Taylor expanded in a around inf 80.1%
distribute-lft-out--80.1%
Simplified80.1%
Taylor expanded in t around inf 80.4%
mul-1-neg80.4%
distribute-rgt-neg-in80.4%
distribute-rgt-neg-in80.4%
Simplified80.4%
if -5.0999999999999998e48 < c < -1.99999999999999997e-118Initial program 79.6%
Taylor expanded in j around inf 73.7%
associate--l+73.7%
sub-neg73.7%
mul-1-neg73.7%
+-commutative73.7%
+-commutative73.7%
associate--r+73.7%
Simplified73.9%
Taylor expanded in y around inf 48.1%
associate-*r*53.5%
*-commutative53.5%
associate-/l*55.9%
Simplified55.9%
Taylor expanded in x around inf 62.1%
+-commutative62.1%
mul-1-neg62.1%
unsub-neg62.1%
associate-/l*62.0%
associate-/l*59.2%
Simplified59.2%
if -1.99999999999999997e-118 < c < -1.70000000000000001e-195Initial program 78.7%
Taylor expanded in b around inf 63.7%
Taylor expanded in z around inf 68.7%
associate-/l*68.6%
Simplified68.6%
if -1.70000000000000001e-195 < c < 3.90000000000000016e-196 or 2.99999999999999986e-130 < c < 4.6999999999999997e-61Initial program 79.7%
Taylor expanded in y around inf 66.5%
+-commutative66.5%
mul-1-neg66.5%
unsub-neg66.5%
*-commutative66.5%
Simplified66.5%
if 3.90000000000000016e-196 < c < 2.99999999999999986e-130 or 4.6999999999999997e-61 < c < 1.16000000000000012e40Initial program 93.2%
Taylor expanded in a around inf 73.7%
distribute-lft-out--73.7%
Simplified73.7%
Taylor expanded in t around 0 73.7%
+-commutative73.7%
mul-1-neg73.7%
distribute-rgt-neg-in73.7%
distribute-lft-out73.7%
unsub-neg73.7%
Simplified73.7%
if 2.65e48 < c < 1.2200000000000001e119Initial program 80.0%
Taylor expanded in t around inf 73.6%
+-commutative73.6%
mul-1-neg73.6%
unsub-neg73.6%
Simplified73.6%
Taylor expanded in c around inf 73.9%
+-commutative73.9%
mul-1-neg73.9%
unsub-neg73.9%
associate-/l*73.8%
associate-/l*73.8%
Simplified73.8%
Final simplification70.3%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* y (- (* x z) (* i j))))
(t_2 (* a (- (* b i) (* x t))))
(t_3 (* c (- (* t j) (* z b)))))
(if (<= c -2.45e+151)
t_3
(if (<= c -2.5e+105)
(* i (* y (- (* b (/ a y)) j)))
(if (<= c -2.8e+57)
(* (* z j) (/ (- (* x y) (* b c)) j))
(if (<= c -4.4e+48)
(* a (* t (- x)))
(if (<= c -2.4e-118)
(* x (- (* y z) (* i (* j (/ y x)))))
(if (<= c -9e-197)
(* b (* z (- (* a (/ i z)) c)))
(if (<= c 5.5e-196)
t_1
(if (<= c 9.6e-129)
t_2
(if (<= c 3.7e-62)
t_1
(if (<= c 6.4e+39)
t_2
(if (<= c 4.4e+47)
(* j (- (/ (* b (* z c)) (- j)) (* y i)))
(if (<= c 4.3e+73)
(* c (- (* t j) (* a (* t (/ x c)))))
t_3))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * ((x * z) - (i * j));
double t_2 = a * ((b * i) - (x * t));
double t_3 = c * ((t * j) - (z * b));
double tmp;
if (c <= -2.45e+151) {
tmp = t_3;
} else if (c <= -2.5e+105) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (c <= -2.8e+57) {
tmp = (z * j) * (((x * y) - (b * c)) / j);
} else if (c <= -4.4e+48) {
tmp = a * (t * -x);
} else if (c <= -2.4e-118) {
tmp = x * ((y * z) - (i * (j * (y / x))));
} else if (c <= -9e-197) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (c <= 5.5e-196) {
tmp = t_1;
} else if (c <= 9.6e-129) {
tmp = t_2;
} else if (c <= 3.7e-62) {
tmp = t_1;
} else if (c <= 6.4e+39) {
tmp = t_2;
} else if (c <= 4.4e+47) {
tmp = j * (((b * (z * c)) / -j) - (y * i));
} else if (c <= 4.3e+73) {
tmp = c * ((t * j) - (a * (t * (x / c))));
} else {
tmp = t_3;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = y * ((x * z) - (i * j))
t_2 = a * ((b * i) - (x * t))
t_3 = c * ((t * j) - (z * b))
if (c <= (-2.45d+151)) then
tmp = t_3
else if (c <= (-2.5d+105)) then
tmp = i * (y * ((b * (a / y)) - j))
else if (c <= (-2.8d+57)) then
tmp = (z * j) * (((x * y) - (b * c)) / j)
else if (c <= (-4.4d+48)) then
tmp = a * (t * -x)
else if (c <= (-2.4d-118)) then
tmp = x * ((y * z) - (i * (j * (y / x))))
else if (c <= (-9d-197)) then
tmp = b * (z * ((a * (i / z)) - c))
else if (c <= 5.5d-196) then
tmp = t_1
else if (c <= 9.6d-129) then
tmp = t_2
else if (c <= 3.7d-62) then
tmp = t_1
else if (c <= 6.4d+39) then
tmp = t_2
else if (c <= 4.4d+47) then
tmp = j * (((b * (z * c)) / -j) - (y * i))
else if (c <= 4.3d+73) then
tmp = c * ((t * j) - (a * (t * (x / c))))
else
tmp = t_3
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * ((x * z) - (i * j));
double t_2 = a * ((b * i) - (x * t));
double t_3 = c * ((t * j) - (z * b));
double tmp;
if (c <= -2.45e+151) {
tmp = t_3;
} else if (c <= -2.5e+105) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (c <= -2.8e+57) {
tmp = (z * j) * (((x * y) - (b * c)) / j);
} else if (c <= -4.4e+48) {
tmp = a * (t * -x);
} else if (c <= -2.4e-118) {
tmp = x * ((y * z) - (i * (j * (y / x))));
} else if (c <= -9e-197) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (c <= 5.5e-196) {
tmp = t_1;
} else if (c <= 9.6e-129) {
tmp = t_2;
} else if (c <= 3.7e-62) {
tmp = t_1;
} else if (c <= 6.4e+39) {
tmp = t_2;
} else if (c <= 4.4e+47) {
tmp = j * (((b * (z * c)) / -j) - (y * i));
} else if (c <= 4.3e+73) {
tmp = c * ((t * j) - (a * (t * (x / c))));
} else {
tmp = t_3;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = y * ((x * z) - (i * j)) t_2 = a * ((b * i) - (x * t)) t_3 = c * ((t * j) - (z * b)) tmp = 0 if c <= -2.45e+151: tmp = t_3 elif c <= -2.5e+105: tmp = i * (y * ((b * (a / y)) - j)) elif c <= -2.8e+57: tmp = (z * j) * (((x * y) - (b * c)) / j) elif c <= -4.4e+48: tmp = a * (t * -x) elif c <= -2.4e-118: tmp = x * ((y * z) - (i * (j * (y / x)))) elif c <= -9e-197: tmp = b * (z * ((a * (i / z)) - c)) elif c <= 5.5e-196: tmp = t_1 elif c <= 9.6e-129: tmp = t_2 elif c <= 3.7e-62: tmp = t_1 elif c <= 6.4e+39: tmp = t_2 elif c <= 4.4e+47: tmp = j * (((b * (z * c)) / -j) - (y * i)) elif c <= 4.3e+73: tmp = c * ((t * j) - (a * (t * (x / c)))) else: tmp = t_3 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(y * Float64(Float64(x * z) - Float64(i * j))) t_2 = Float64(a * Float64(Float64(b * i) - Float64(x * t))) t_3 = Float64(c * Float64(Float64(t * j) - Float64(z * b))) tmp = 0.0 if (c <= -2.45e+151) tmp = t_3; elseif (c <= -2.5e+105) tmp = Float64(i * Float64(y * Float64(Float64(b * Float64(a / y)) - j))); elseif (c <= -2.8e+57) tmp = Float64(Float64(z * j) * Float64(Float64(Float64(x * y) - Float64(b * c)) / j)); elseif (c <= -4.4e+48) tmp = Float64(a * Float64(t * Float64(-x))); elseif (c <= -2.4e-118) tmp = Float64(x * Float64(Float64(y * z) - Float64(i * Float64(j * Float64(y / x))))); elseif (c <= -9e-197) tmp = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))); elseif (c <= 5.5e-196) tmp = t_1; elseif (c <= 9.6e-129) tmp = t_2; elseif (c <= 3.7e-62) tmp = t_1; elseif (c <= 6.4e+39) tmp = t_2; elseif (c <= 4.4e+47) tmp = Float64(j * Float64(Float64(Float64(b * Float64(z * c)) / Float64(-j)) - Float64(y * i))); elseif (c <= 4.3e+73) tmp = Float64(c * Float64(Float64(t * j) - Float64(a * Float64(t * Float64(x / c))))); else tmp = t_3; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = y * ((x * z) - (i * j)); t_2 = a * ((b * i) - (x * t)); t_3 = c * ((t * j) - (z * b)); tmp = 0.0; if (c <= -2.45e+151) tmp = t_3; elseif (c <= -2.5e+105) tmp = i * (y * ((b * (a / y)) - j)); elseif (c <= -2.8e+57) tmp = (z * j) * (((x * y) - (b * c)) / j); elseif (c <= -4.4e+48) tmp = a * (t * -x); elseif (c <= -2.4e-118) tmp = x * ((y * z) - (i * (j * (y / x)))); elseif (c <= -9e-197) tmp = b * (z * ((a * (i / z)) - c)); elseif (c <= 5.5e-196) tmp = t_1; elseif (c <= 9.6e-129) tmp = t_2; elseif (c <= 3.7e-62) tmp = t_1; elseif (c <= 6.4e+39) tmp = t_2; elseif (c <= 4.4e+47) tmp = j * (((b * (z * c)) / -j) - (y * i)); elseif (c <= 4.3e+73) tmp = c * ((t * j) - (a * (t * (x / c)))); else tmp = t_3; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(c * N[(N[(t * j), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -2.45e+151], t$95$3, If[LessEqual[c, -2.5e+105], N[(i * N[(y * N[(N[(b * N[(a / y), $MachinePrecision]), $MachinePrecision] - j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -2.8e+57], N[(N[(z * j), $MachinePrecision] * N[(N[(N[(x * y), $MachinePrecision] - N[(b * c), $MachinePrecision]), $MachinePrecision] / j), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -4.4e+48], N[(a * N[(t * (-x)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -2.4e-118], N[(x * N[(N[(y * z), $MachinePrecision] - N[(i * N[(j * N[(y / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -9e-197], N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 5.5e-196], t$95$1, If[LessEqual[c, 9.6e-129], t$95$2, If[LessEqual[c, 3.7e-62], t$95$1, If[LessEqual[c, 6.4e+39], t$95$2, If[LessEqual[c, 4.4e+47], N[(j * N[(N[(N[(b * N[(z * c), $MachinePrecision]), $MachinePrecision] / (-j)), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 4.3e+73], N[(c * N[(N[(t * j), $MachinePrecision] - N[(a * N[(t * N[(x / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$3]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(x \cdot z - i \cdot j\right)\\
t_2 := a \cdot \left(b \cdot i - x \cdot t\right)\\
t_3 := c \cdot \left(t \cdot j - z \cdot b\right)\\
\mathbf{if}\;c \leq -2.45 \cdot 10^{+151}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq -2.5 \cdot 10^{+105}:\\
\;\;\;\;i \cdot \left(y \cdot \left(b \cdot \frac{a}{y} - j\right)\right)\\
\mathbf{elif}\;c \leq -2.8 \cdot 10^{+57}:\\
\;\;\;\;\left(z \cdot j\right) \cdot \frac{x \cdot y - b \cdot c}{j}\\
\mathbf{elif}\;c \leq -4.4 \cdot 10^{+48}:\\
\;\;\;\;a \cdot \left(t \cdot \left(-x\right)\right)\\
\mathbf{elif}\;c \leq -2.4 \cdot 10^{-118}:\\
\;\;\;\;x \cdot \left(y \cdot z - i \cdot \left(j \cdot \frac{y}{x}\right)\right)\\
\mathbf{elif}\;c \leq -9 \cdot 10^{-197}:\\
\;\;\;\;b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
\mathbf{elif}\;c \leq 5.5 \cdot 10^{-196}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 9.6 \cdot 10^{-129}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 3.7 \cdot 10^{-62}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 6.4 \cdot 10^{+39}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 4.4 \cdot 10^{+47}:\\
\;\;\;\;j \cdot \left(\frac{b \cdot \left(z \cdot c\right)}{-j} - y \cdot i\right)\\
\mathbf{elif}\;c \leq 4.3 \cdot 10^{+73}:\\
\;\;\;\;c \cdot \left(t \cdot j - a \cdot \left(t \cdot \frac{x}{c}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_3\\
\end{array}
\end{array}
if c < -2.45e151 or 4.30000000000000013e73 < c Initial program 61.4%
Taylor expanded in c around inf 73.9%
if -2.45e151 < c < -2.50000000000000023e105Initial program 58.3%
Taylor expanded in i around inf 67.6%
distribute-lft-out--67.6%
*-commutative67.6%
Simplified67.6%
Taylor expanded in b around inf 59.7%
+-commutative59.7%
*-commutative59.7%
mul-1-neg59.7%
unsub-neg59.7%
*-commutative59.7%
associate-/l*68.1%
*-commutative68.1%
Simplified68.1%
Taylor expanded in b around inf 59.7%
mul-1-neg59.7%
distribute-frac-neg59.7%
distribute-lft-neg-in59.7%
associate-*r/68.1%
*-commutative68.1%
associate-*r/60.2%
distribute-lft-neg-in60.2%
+-commutative60.2%
distribute-lft-in60.2%
*-commutative60.2%
associate-*r*60.2%
distribute-rgt-neg-in60.2%
associate-*r*35.2%
distribute-lft-in60.2%
associate-*r/68.1%
*-commutative68.1%
Simplified67.6%
Taylor expanded in y around inf 67.5%
neg-mul-167.5%
+-commutative67.5%
unsub-neg67.5%
*-commutative67.5%
associate-/l*75.6%
Simplified75.6%
if -2.50000000000000023e105 < c < -2.8e57Initial program 67.8%
Taylor expanded in j around inf 52.5%
associate--l+52.5%
sub-neg52.5%
mul-1-neg52.5%
+-commutative52.5%
+-commutative52.5%
associate--r+52.5%
Simplified60.8%
Taylor expanded in z around inf 52.8%
associate-*r*59.9%
*-commutative59.9%
div-sub68.3%
*-commutative68.3%
Simplified68.3%
if -2.8e57 < c < -4.3999999999999999e48Initial program 100.0%
Taylor expanded in a around inf 80.1%
distribute-lft-out--80.1%
Simplified80.1%
Taylor expanded in t around inf 80.4%
mul-1-neg80.4%
distribute-rgt-neg-in80.4%
distribute-rgt-neg-in80.4%
Simplified80.4%
if -4.3999999999999999e48 < c < -2.4000000000000001e-118Initial program 79.6%
Taylor expanded in j around inf 73.7%
associate--l+73.7%
sub-neg73.7%
mul-1-neg73.7%
+-commutative73.7%
+-commutative73.7%
associate--r+73.7%
Simplified73.9%
Taylor expanded in y around inf 48.1%
associate-*r*53.5%
*-commutative53.5%
associate-/l*55.9%
Simplified55.9%
Taylor expanded in x around inf 62.1%
+-commutative62.1%
mul-1-neg62.1%
unsub-neg62.1%
associate-/l*62.0%
associate-/l*59.2%
Simplified59.2%
if -2.4000000000000001e-118 < c < -9.0000000000000002e-197Initial program 78.7%
Taylor expanded in b around inf 63.7%
Taylor expanded in z around inf 68.7%
associate-/l*68.6%
Simplified68.6%
if -9.0000000000000002e-197 < c < 5.50000000000000014e-196 or 9.59999999999999954e-129 < c < 3.6999999999999998e-62Initial program 79.7%
Taylor expanded in y around inf 66.5%
+-commutative66.5%
mul-1-neg66.5%
unsub-neg66.5%
*-commutative66.5%
Simplified66.5%
if 5.50000000000000014e-196 < c < 9.59999999999999954e-129 or 3.6999999999999998e-62 < c < 6.39999999999999986e39Initial program 93.2%
Taylor expanded in a around inf 73.7%
distribute-lft-out--73.7%
Simplified73.7%
Taylor expanded in t around 0 73.7%
+-commutative73.7%
mul-1-neg73.7%
distribute-rgt-neg-in73.7%
distribute-lft-out73.7%
unsub-neg73.7%
Simplified73.7%
if 6.39999999999999986e39 < c < 4.3999999999999999e47Initial program 83.9%
Taylor expanded in j around inf 83.9%
associate--l+83.9%
sub-neg83.9%
mul-1-neg83.9%
+-commutative83.9%
+-commutative83.9%
associate--r+83.9%
Simplified83.9%
Taylor expanded in c around inf 83.9%
associate-*r/83.9%
associate-*r*83.9%
neg-mul-183.9%
*-commutative83.9%
Simplified83.9%
Taylor expanded in t around 0 83.9%
associate-*r/83.9%
neg-mul-183.9%
distribute-lft-neg-in83.9%
Simplified83.9%
if 4.3999999999999999e47 < c < 4.30000000000000013e73Initial program 66.7%
Taylor expanded in t around inf 83.4%
+-commutative83.4%
mul-1-neg83.4%
unsub-neg83.4%
Simplified83.4%
Taylor expanded in c around inf 99.7%
+-commutative99.7%
mul-1-neg99.7%
unsub-neg99.7%
associate-/l*99.5%
associate-/l*99.5%
Simplified99.5%
Final simplification70.7%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* j (- (* t c) (* y i)))) (t_2 (* a (- (* b i) (* x t)))))
(if (<= a -6.6e+25)
t_2
(if (<= a -3.95e-19)
t_1
(if (<= a -6.1e-50)
t_2
(if (<= a -2e-165)
(* c (- (* t j) (* z b)))
(if (<= a -4.4e-197)
(* x (* y z))
(if (<= a 42000000000.0)
t_1
(if (<= a 1.1e+49)
t_2
(if (<= a 1e+61)
(* b (- (* a i) (* z c)))
(if (or (<= a 1.05e+124)
(and (not (<= a 2.15e+186)) (<= a 1.3e+190)))
t_1
t_2)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = j * ((t * c) - (y * i));
double t_2 = a * ((b * i) - (x * t));
double tmp;
if (a <= -6.6e+25) {
tmp = t_2;
} else if (a <= -3.95e-19) {
tmp = t_1;
} else if (a <= -6.1e-50) {
tmp = t_2;
} else if (a <= -2e-165) {
tmp = c * ((t * j) - (z * b));
} else if (a <= -4.4e-197) {
tmp = x * (y * z);
} else if (a <= 42000000000.0) {
tmp = t_1;
} else if (a <= 1.1e+49) {
tmp = t_2;
} else if (a <= 1e+61) {
tmp = b * ((a * i) - (z * c));
} else if ((a <= 1.05e+124) || (!(a <= 2.15e+186) && (a <= 1.3e+190))) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = j * ((t * c) - (y * i))
t_2 = a * ((b * i) - (x * t))
if (a <= (-6.6d+25)) then
tmp = t_2
else if (a <= (-3.95d-19)) then
tmp = t_1
else if (a <= (-6.1d-50)) then
tmp = t_2
else if (a <= (-2d-165)) then
tmp = c * ((t * j) - (z * b))
else if (a <= (-4.4d-197)) then
tmp = x * (y * z)
else if (a <= 42000000000.0d0) then
tmp = t_1
else if (a <= 1.1d+49) then
tmp = t_2
else if (a <= 1d+61) then
tmp = b * ((a * i) - (z * c))
else if ((a <= 1.05d+124) .or. (.not. (a <= 2.15d+186)) .and. (a <= 1.3d+190)) then
tmp = t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = j * ((t * c) - (y * i));
double t_2 = a * ((b * i) - (x * t));
double tmp;
if (a <= -6.6e+25) {
tmp = t_2;
} else if (a <= -3.95e-19) {
tmp = t_1;
} else if (a <= -6.1e-50) {
tmp = t_2;
} else if (a <= -2e-165) {
tmp = c * ((t * j) - (z * b));
} else if (a <= -4.4e-197) {
tmp = x * (y * z);
} else if (a <= 42000000000.0) {
tmp = t_1;
} else if (a <= 1.1e+49) {
tmp = t_2;
} else if (a <= 1e+61) {
tmp = b * ((a * i) - (z * c));
} else if ((a <= 1.05e+124) || (!(a <= 2.15e+186) && (a <= 1.3e+190))) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = j * ((t * c) - (y * i)) t_2 = a * ((b * i) - (x * t)) tmp = 0 if a <= -6.6e+25: tmp = t_2 elif a <= -3.95e-19: tmp = t_1 elif a <= -6.1e-50: tmp = t_2 elif a <= -2e-165: tmp = c * ((t * j) - (z * b)) elif a <= -4.4e-197: tmp = x * (y * z) elif a <= 42000000000.0: tmp = t_1 elif a <= 1.1e+49: tmp = t_2 elif a <= 1e+61: tmp = b * ((a * i) - (z * c)) elif (a <= 1.05e+124) or (not (a <= 2.15e+186) and (a <= 1.3e+190)): tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(j * Float64(Float64(t * c) - Float64(y * i))) t_2 = Float64(a * Float64(Float64(b * i) - Float64(x * t))) tmp = 0.0 if (a <= -6.6e+25) tmp = t_2; elseif (a <= -3.95e-19) tmp = t_1; elseif (a <= -6.1e-50) tmp = t_2; elseif (a <= -2e-165) tmp = Float64(c * Float64(Float64(t * j) - Float64(z * b))); elseif (a <= -4.4e-197) tmp = Float64(x * Float64(y * z)); elseif (a <= 42000000000.0) tmp = t_1; elseif (a <= 1.1e+49) tmp = t_2; elseif (a <= 1e+61) tmp = Float64(b * Float64(Float64(a * i) - Float64(z * c))); elseif ((a <= 1.05e+124) || (!(a <= 2.15e+186) && (a <= 1.3e+190))) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = j * ((t * c) - (y * i)); t_2 = a * ((b * i) - (x * t)); tmp = 0.0; if (a <= -6.6e+25) tmp = t_2; elseif (a <= -3.95e-19) tmp = t_1; elseif (a <= -6.1e-50) tmp = t_2; elseif (a <= -2e-165) tmp = c * ((t * j) - (z * b)); elseif (a <= -4.4e-197) tmp = x * (y * z); elseif (a <= 42000000000.0) tmp = t_1; elseif (a <= 1.1e+49) tmp = t_2; elseif (a <= 1e+61) tmp = b * ((a * i) - (z * c)); elseif ((a <= 1.05e+124) || (~((a <= 2.15e+186)) && (a <= 1.3e+190))) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -6.6e+25], t$95$2, If[LessEqual[a, -3.95e-19], t$95$1, If[LessEqual[a, -6.1e-50], t$95$2, If[LessEqual[a, -2e-165], N[(c * N[(N[(t * j), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -4.4e-197], N[(x * N[(y * z), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 42000000000.0], t$95$1, If[LessEqual[a, 1.1e+49], t$95$2, If[LessEqual[a, 1e+61], N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[a, 1.05e+124], And[N[Not[LessEqual[a, 2.15e+186]], $MachinePrecision], LessEqual[a, 1.3e+190]]], t$95$1, t$95$2]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(t \cdot c - y \cdot i\right)\\
t_2 := a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{if}\;a \leq -6.6 \cdot 10^{+25}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq -3.95 \cdot 10^{-19}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -6.1 \cdot 10^{-50}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq -2 \cdot 10^{-165}:\\
\;\;\;\;c \cdot \left(t \cdot j - z \cdot b\right)\\
\mathbf{elif}\;a \leq -4.4 \cdot 10^{-197}:\\
\;\;\;\;x \cdot \left(y \cdot z\right)\\
\mathbf{elif}\;a \leq 42000000000:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 1.1 \cdot 10^{+49}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq 10^{+61}:\\
\;\;\;\;b \cdot \left(a \cdot i - z \cdot c\right)\\
\mathbf{elif}\;a \leq 1.05 \cdot 10^{+124} \lor \neg \left(a \leq 2.15 \cdot 10^{+186}\right) \land a \leq 1.3 \cdot 10^{+190}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if a < -6.6000000000000002e25 or -3.9500000000000002e-19 < a < -6.0999999999999996e-50 or 4.2e10 < a < 1.1e49 or 1.05000000000000006e124 < a < 2.15e186 or 1.30000000000000005e190 < a Initial program 68.6%
Taylor expanded in a around inf 66.6%
distribute-lft-out--66.6%
Simplified66.6%
Taylor expanded in t around 0 66.6%
+-commutative66.6%
mul-1-neg66.6%
distribute-rgt-neg-in66.6%
distribute-lft-out66.6%
unsub-neg66.6%
Simplified66.6%
if -6.6000000000000002e25 < a < -3.9500000000000002e-19 or -4.4000000000000001e-197 < a < 4.2e10 or 9.99999999999999949e60 < a < 1.05000000000000006e124 or 2.15e186 < a < 1.30000000000000005e190Initial program 77.4%
Taylor expanded in j around inf 60.7%
if -6.0999999999999996e-50 < a < -2e-165Initial program 83.5%
Taylor expanded in c around inf 63.7%
if -2e-165 < a < -4.4000000000000001e-197Initial program 71.2%
Taylor expanded in x around inf 71.3%
*-commutative71.3%
Simplified71.3%
Taylor expanded in z around inf 71.3%
if 1.1e49 < a < 9.99999999999999949e60Initial program 99.5%
Taylor expanded in b around inf 89.3%
Final simplification64.2%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (* z (- (* a (/ i z)) c))))
(t_2 (* x (- (* y z) (* t a))))
(t_3 (+ (* j (- (* t c) (* y i))) t_2)))
(if (<= b -3.1e+253)
t_2
(if (<= b -6.2e+119)
t_1
(if (<= b -2.7e+97)
t_3
(if (<= b -80000.0)
(* j (- (* t c) (+ (* y i) (/ (* b (* z c)) j))))
(if (<= b -7e-38)
t_3
(if (<= b -1.2e-99)
(* y (- (* x z) (* i j)))
(if (<= b 6.5e+38)
t_3
(if (<= b 5.6e+97)
(* c (- (/ (* i (* a b)) c) (* z b)))
(if (<= b 2.25e+204) t_3 t_1)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double t_2 = x * ((y * z) - (t * a));
double t_3 = (j * ((t * c) - (y * i))) + t_2;
double tmp;
if (b <= -3.1e+253) {
tmp = t_2;
} else if (b <= -6.2e+119) {
tmp = t_1;
} else if (b <= -2.7e+97) {
tmp = t_3;
} else if (b <= -80000.0) {
tmp = j * ((t * c) - ((y * i) + ((b * (z * c)) / j)));
} else if (b <= -7e-38) {
tmp = t_3;
} else if (b <= -1.2e-99) {
tmp = y * ((x * z) - (i * j));
} else if (b <= 6.5e+38) {
tmp = t_3;
} else if (b <= 5.6e+97) {
tmp = c * (((i * (a * b)) / c) - (z * b));
} else if (b <= 2.25e+204) {
tmp = t_3;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = b * (z * ((a * (i / z)) - c))
t_2 = x * ((y * z) - (t * a))
t_3 = (j * ((t * c) - (y * i))) + t_2
if (b <= (-3.1d+253)) then
tmp = t_2
else if (b <= (-6.2d+119)) then
tmp = t_1
else if (b <= (-2.7d+97)) then
tmp = t_3
else if (b <= (-80000.0d0)) then
tmp = j * ((t * c) - ((y * i) + ((b * (z * c)) / j)))
else if (b <= (-7d-38)) then
tmp = t_3
else if (b <= (-1.2d-99)) then
tmp = y * ((x * z) - (i * j))
else if (b <= 6.5d+38) then
tmp = t_3
else if (b <= 5.6d+97) then
tmp = c * (((i * (a * b)) / c) - (z * b))
else if (b <= 2.25d+204) then
tmp = t_3
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double t_2 = x * ((y * z) - (t * a));
double t_3 = (j * ((t * c) - (y * i))) + t_2;
double tmp;
if (b <= -3.1e+253) {
tmp = t_2;
} else if (b <= -6.2e+119) {
tmp = t_1;
} else if (b <= -2.7e+97) {
tmp = t_3;
} else if (b <= -80000.0) {
tmp = j * ((t * c) - ((y * i) + ((b * (z * c)) / j)));
} else if (b <= -7e-38) {
tmp = t_3;
} else if (b <= -1.2e-99) {
tmp = y * ((x * z) - (i * j));
} else if (b <= 6.5e+38) {
tmp = t_3;
} else if (b <= 5.6e+97) {
tmp = c * (((i * (a * b)) / c) - (z * b));
} else if (b <= 2.25e+204) {
tmp = t_3;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * (z * ((a * (i / z)) - c)) t_2 = x * ((y * z) - (t * a)) t_3 = (j * ((t * c) - (y * i))) + t_2 tmp = 0 if b <= -3.1e+253: tmp = t_2 elif b <= -6.2e+119: tmp = t_1 elif b <= -2.7e+97: tmp = t_3 elif b <= -80000.0: tmp = j * ((t * c) - ((y * i) + ((b * (z * c)) / j))) elif b <= -7e-38: tmp = t_3 elif b <= -1.2e-99: tmp = y * ((x * z) - (i * j)) elif b <= 6.5e+38: tmp = t_3 elif b <= 5.6e+97: tmp = c * (((i * (a * b)) / c) - (z * b)) elif b <= 2.25e+204: tmp = t_3 else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))) t_2 = Float64(x * Float64(Float64(y * z) - Float64(t * a))) t_3 = Float64(Float64(j * Float64(Float64(t * c) - Float64(y * i))) + t_2) tmp = 0.0 if (b <= -3.1e+253) tmp = t_2; elseif (b <= -6.2e+119) tmp = t_1; elseif (b <= -2.7e+97) tmp = t_3; elseif (b <= -80000.0) tmp = Float64(j * Float64(Float64(t * c) - Float64(Float64(y * i) + Float64(Float64(b * Float64(z * c)) / j)))); elseif (b <= -7e-38) tmp = t_3; elseif (b <= -1.2e-99) tmp = Float64(y * Float64(Float64(x * z) - Float64(i * j))); elseif (b <= 6.5e+38) tmp = t_3; elseif (b <= 5.6e+97) tmp = Float64(c * Float64(Float64(Float64(i * Float64(a * b)) / c) - Float64(z * b))); elseif (b <= 2.25e+204) tmp = t_3; else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * (z * ((a * (i / z)) - c)); t_2 = x * ((y * z) - (t * a)); t_3 = (j * ((t * c) - (y * i))) + t_2; tmp = 0.0; if (b <= -3.1e+253) tmp = t_2; elseif (b <= -6.2e+119) tmp = t_1; elseif (b <= -2.7e+97) tmp = t_3; elseif (b <= -80000.0) tmp = j * ((t * c) - ((y * i) + ((b * (z * c)) / j))); elseif (b <= -7e-38) tmp = t_3; elseif (b <= -1.2e-99) tmp = y * ((x * z) - (i * j)); elseif (b <= 6.5e+38) tmp = t_3; elseif (b <= 5.6e+97) tmp = c * (((i * (a * b)) / c) - (z * b)); elseif (b <= 2.25e+204) tmp = t_3; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision]}, If[LessEqual[b, -3.1e+253], t$95$2, If[LessEqual[b, -6.2e+119], t$95$1, If[LessEqual[b, -2.7e+97], t$95$3, If[LessEqual[b, -80000.0], N[(j * N[(N[(t * c), $MachinePrecision] - N[(N[(y * i), $MachinePrecision] + N[(N[(b * N[(z * c), $MachinePrecision]), $MachinePrecision] / j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -7e-38], t$95$3, If[LessEqual[b, -1.2e-99], N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 6.5e+38], t$95$3, If[LessEqual[b, 5.6e+97], N[(c * N[(N[(N[(i * N[(a * b), $MachinePrecision]), $MachinePrecision] / c), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.25e+204], t$95$3, t$95$1]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
t_2 := x \cdot \left(y \cdot z - t \cdot a\right)\\
t_3 := j \cdot \left(t \cdot c - y \cdot i\right) + t\_2\\
\mathbf{if}\;b \leq -3.1 \cdot 10^{+253}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;b \leq -6.2 \cdot 10^{+119}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;b \leq -2.7 \cdot 10^{+97}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;b \leq -80000:\\
\;\;\;\;j \cdot \left(t \cdot c - \left(y \cdot i + \frac{b \cdot \left(z \cdot c\right)}{j}\right)\right)\\
\mathbf{elif}\;b \leq -7 \cdot 10^{-38}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;b \leq -1.2 \cdot 10^{-99}:\\
\;\;\;\;y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{elif}\;b \leq 6.5 \cdot 10^{+38}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;b \leq 5.6 \cdot 10^{+97}:\\
\;\;\;\;c \cdot \left(\frac{i \cdot \left(a \cdot b\right)}{c} - z \cdot b\right)\\
\mathbf{elif}\;b \leq 2.25 \cdot 10^{+204}:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if b < -3.10000000000000006e253Initial program 57.1%
Taylor expanded in x around inf 85.7%
*-commutative85.7%
Simplified85.7%
if -3.10000000000000006e253 < b < -6.1999999999999999e119 or 2.25000000000000001e204 < b Initial program 66.6%
Taylor expanded in b around inf 80.7%
Taylor expanded in z around inf 82.7%
associate-/l*84.6%
Simplified84.6%
if -6.1999999999999999e119 < b < -2.69999999999999993e97 or -8e4 < b < -7.0000000000000003e-38 or -1.2e-99 < b < 6.5e38 or 5.5999999999999998e97 < b < 2.25000000000000001e204Initial program 78.3%
Taylor expanded in b around 0 76.3%
if -2.69999999999999993e97 < b < -8e4Initial program 93.9%
Taylor expanded in j around inf 82.8%
associate--l+82.8%
sub-neg82.8%
mul-1-neg82.8%
+-commutative82.8%
+-commutative82.8%
associate--r+82.8%
Simplified83.2%
Taylor expanded in c around inf 71.3%
associate-*r/71.3%
associate-*r*71.3%
neg-mul-171.3%
*-commutative71.3%
Simplified71.3%
if -7.0000000000000003e-38 < b < -1.2e-99Initial program 49.0%
Taylor expanded in y around inf 59.9%
+-commutative59.9%
mul-1-neg59.9%
unsub-neg59.9%
*-commutative59.9%
Simplified59.9%
if 6.5e38 < b < 5.5999999999999998e97Initial program 77.4%
Taylor expanded in b around inf 78.8%
Taylor expanded in c around inf 79.0%
mul-1-neg79.0%
+-commutative79.0%
unsub-neg79.0%
associate-*r*79.0%
*-commutative79.0%
Simplified79.0%
Final simplification76.9%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1
(+
(+ (* x (- (* y z) (* t a))) (* b (- (* a i) (* z c))))
(* j (- (* t c) (* y i))))))
(if (<= t_1 INFINITY) t_1 (* i (* b (- a (* j (/ y b))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = ((x * ((y * z) - (t * a))) + (b * ((a * i) - (z * c)))) + (j * ((t * c) - (y * i)));
double tmp;
if (t_1 <= ((double) INFINITY)) {
tmp = t_1;
} else {
tmp = i * (b * (a - (j * (y / b))));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = ((x * ((y * z) - (t * a))) + (b * ((a * i) - (z * c)))) + (j * ((t * c) - (y * i)));
double tmp;
if (t_1 <= Double.POSITIVE_INFINITY) {
tmp = t_1;
} else {
tmp = i * (b * (a - (j * (y / b))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = ((x * ((y * z) - (t * a))) + (b * ((a * i) - (z * c)))) + (j * ((t * c) - (y * i))) tmp = 0 if t_1 <= math.inf: tmp = t_1 else: tmp = i * (b * (a - (j * (y / b)))) return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) + Float64(b * Float64(Float64(a * i) - Float64(z * c)))) + Float64(j * Float64(Float64(t * c) - Float64(y * i)))) tmp = 0.0 if (t_1 <= Inf) tmp = t_1; else tmp = Float64(i * Float64(b * Float64(a - Float64(j * Float64(y / b))))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = ((x * ((y * z) - (t * a))) + (b * ((a * i) - (z * c)))) + (j * ((t * c) - (y * i))); tmp = 0.0; if (t_1 <= Inf) tmp = t_1; else tmp = i * (b * (a - (j * (y / b)))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, Infinity], t$95$1, N[(i * N[(b * N[(a - N[(j * N[(y / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(x \cdot \left(y \cdot z - t \cdot a\right) + b \cdot \left(a \cdot i - z \cdot c\right)\right) + j \cdot \left(t \cdot c - y \cdot i\right)\\
\mathbf{if}\;t\_1 \leq \infty:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(b \cdot \left(a - j \cdot \frac{y}{b}\right)\right)\\
\end{array}
\end{array}
if (+.f64 (-.f64 (*.f64 x (-.f64 (*.f64 y z) (*.f64 t a))) (*.f64 b (-.f64 (*.f64 c z) (*.f64 i a)))) (*.f64 j (-.f64 (*.f64 c t) (*.f64 i y)))) < +inf.0Initial program 93.9%
if +inf.0 < (+.f64 (-.f64 (*.f64 x (-.f64 (*.f64 y z) (*.f64 t a))) (*.f64 b (-.f64 (*.f64 c z) (*.f64 i a)))) (*.f64 j (-.f64 (*.f64 c t) (*.f64 i y)))) Initial program 0.0%
Taylor expanded in i around inf 55.4%
distribute-lft-out--55.4%
*-commutative55.4%
Simplified55.4%
Taylor expanded in b around inf 34.7%
+-commutative34.7%
*-commutative34.7%
mul-1-neg34.7%
unsub-neg34.7%
*-commutative34.7%
associate-/l*47.8%
*-commutative47.8%
Simplified47.8%
Taylor expanded in b around inf 34.7%
mul-1-neg34.7%
distribute-frac-neg34.7%
distribute-lft-neg-in34.7%
associate-*r/47.8%
*-commutative47.8%
associate-*r/47.9%
distribute-lft-neg-in47.9%
+-commutative47.9%
distribute-lft-in38.4%
*-commutative38.4%
associate-*r*45.7%
distribute-rgt-neg-in45.7%
associate-*r*32.7%
distribute-lft-in61.0%
associate-*r/60.9%
*-commutative60.9%
Simplified61.0%
Final simplification87.1%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* x (* y z))) (t_2 (* j (* t c))))
(if (<= c -7.5e+143)
t_2
(if (<= c -2.9e+90)
(* b (* z (- c)))
(if (<= c -1.35e+81)
t_1
(if (<= c -1.5e+46)
(* x (* t (- a)))
(if (<= c 2.2e-219)
(* i (* j (- y)))
(if (<= c 1.7e-194)
t_1
(if (<= c 2.45e-135)
(* a (* b i))
(if (<= c 3.6e-61)
(* z (* x y))
(if (<= c 1.1e+73)
(* a (* t (- x)))
(if (<= c 2.5e+142)
(* t (* c j))
(if (<= c 3.4e+232) (* z (* b (- c))) t_2)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = x * (y * z);
double t_2 = j * (t * c);
double tmp;
if (c <= -7.5e+143) {
tmp = t_2;
} else if (c <= -2.9e+90) {
tmp = b * (z * -c);
} else if (c <= -1.35e+81) {
tmp = t_1;
} else if (c <= -1.5e+46) {
tmp = x * (t * -a);
} else if (c <= 2.2e-219) {
tmp = i * (j * -y);
} else if (c <= 1.7e-194) {
tmp = t_1;
} else if (c <= 2.45e-135) {
tmp = a * (b * i);
} else if (c <= 3.6e-61) {
tmp = z * (x * y);
} else if (c <= 1.1e+73) {
tmp = a * (t * -x);
} else if (c <= 2.5e+142) {
tmp = t * (c * j);
} else if (c <= 3.4e+232) {
tmp = z * (b * -c);
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = x * (y * z)
t_2 = j * (t * c)
if (c <= (-7.5d+143)) then
tmp = t_2
else if (c <= (-2.9d+90)) then
tmp = b * (z * -c)
else if (c <= (-1.35d+81)) then
tmp = t_1
else if (c <= (-1.5d+46)) then
tmp = x * (t * -a)
else if (c <= 2.2d-219) then
tmp = i * (j * -y)
else if (c <= 1.7d-194) then
tmp = t_1
else if (c <= 2.45d-135) then
tmp = a * (b * i)
else if (c <= 3.6d-61) then
tmp = z * (x * y)
else if (c <= 1.1d+73) then
tmp = a * (t * -x)
else if (c <= 2.5d+142) then
tmp = t * (c * j)
else if (c <= 3.4d+232) then
tmp = z * (b * -c)
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = x * (y * z);
double t_2 = j * (t * c);
double tmp;
if (c <= -7.5e+143) {
tmp = t_2;
} else if (c <= -2.9e+90) {
tmp = b * (z * -c);
} else if (c <= -1.35e+81) {
tmp = t_1;
} else if (c <= -1.5e+46) {
tmp = x * (t * -a);
} else if (c <= 2.2e-219) {
tmp = i * (j * -y);
} else if (c <= 1.7e-194) {
tmp = t_1;
} else if (c <= 2.45e-135) {
tmp = a * (b * i);
} else if (c <= 3.6e-61) {
tmp = z * (x * y);
} else if (c <= 1.1e+73) {
tmp = a * (t * -x);
} else if (c <= 2.5e+142) {
tmp = t * (c * j);
} else if (c <= 3.4e+232) {
tmp = z * (b * -c);
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = x * (y * z) t_2 = j * (t * c) tmp = 0 if c <= -7.5e+143: tmp = t_2 elif c <= -2.9e+90: tmp = b * (z * -c) elif c <= -1.35e+81: tmp = t_1 elif c <= -1.5e+46: tmp = x * (t * -a) elif c <= 2.2e-219: tmp = i * (j * -y) elif c <= 1.7e-194: tmp = t_1 elif c <= 2.45e-135: tmp = a * (b * i) elif c <= 3.6e-61: tmp = z * (x * y) elif c <= 1.1e+73: tmp = a * (t * -x) elif c <= 2.5e+142: tmp = t * (c * j) elif c <= 3.4e+232: tmp = z * (b * -c) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(x * Float64(y * z)) t_2 = Float64(j * Float64(t * c)) tmp = 0.0 if (c <= -7.5e+143) tmp = t_2; elseif (c <= -2.9e+90) tmp = Float64(b * Float64(z * Float64(-c))); elseif (c <= -1.35e+81) tmp = t_1; elseif (c <= -1.5e+46) tmp = Float64(x * Float64(t * Float64(-a))); elseif (c <= 2.2e-219) tmp = Float64(i * Float64(j * Float64(-y))); elseif (c <= 1.7e-194) tmp = t_1; elseif (c <= 2.45e-135) tmp = Float64(a * Float64(b * i)); elseif (c <= 3.6e-61) tmp = Float64(z * Float64(x * y)); elseif (c <= 1.1e+73) tmp = Float64(a * Float64(t * Float64(-x))); elseif (c <= 2.5e+142) tmp = Float64(t * Float64(c * j)); elseif (c <= 3.4e+232) tmp = Float64(z * Float64(b * Float64(-c))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = x * (y * z); t_2 = j * (t * c); tmp = 0.0; if (c <= -7.5e+143) tmp = t_2; elseif (c <= -2.9e+90) tmp = b * (z * -c); elseif (c <= -1.35e+81) tmp = t_1; elseif (c <= -1.5e+46) tmp = x * (t * -a); elseif (c <= 2.2e-219) tmp = i * (j * -y); elseif (c <= 1.7e-194) tmp = t_1; elseif (c <= 2.45e-135) tmp = a * (b * i); elseif (c <= 3.6e-61) tmp = z * (x * y); elseif (c <= 1.1e+73) tmp = a * (t * -x); elseif (c <= 2.5e+142) tmp = t * (c * j); elseif (c <= 3.4e+232) tmp = z * (b * -c); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(x * N[(y * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -7.5e+143], t$95$2, If[LessEqual[c, -2.9e+90], N[(b * N[(z * (-c)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -1.35e+81], t$95$1, If[LessEqual[c, -1.5e+46], N[(x * N[(t * (-a)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 2.2e-219], N[(i * N[(j * (-y)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.7e-194], t$95$1, If[LessEqual[c, 2.45e-135], N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 3.6e-61], N[(z * N[(x * y), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.1e+73], N[(a * N[(t * (-x)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 2.5e+142], N[(t * N[(c * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 3.4e+232], N[(z * N[(b * (-c)), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(y \cdot z\right)\\
t_2 := j \cdot \left(t \cdot c\right)\\
\mathbf{if}\;c \leq -7.5 \cdot 10^{+143}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq -2.9 \cdot 10^{+90}:\\
\;\;\;\;b \cdot \left(z \cdot \left(-c\right)\right)\\
\mathbf{elif}\;c \leq -1.35 \cdot 10^{+81}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -1.5 \cdot 10^{+46}:\\
\;\;\;\;x \cdot \left(t \cdot \left(-a\right)\right)\\
\mathbf{elif}\;c \leq 2.2 \cdot 10^{-219}:\\
\;\;\;\;i \cdot \left(j \cdot \left(-y\right)\right)\\
\mathbf{elif}\;c \leq 1.7 \cdot 10^{-194}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 2.45 \cdot 10^{-135}:\\
\;\;\;\;a \cdot \left(b \cdot i\right)\\
\mathbf{elif}\;c \leq 3.6 \cdot 10^{-61}:\\
\;\;\;\;z \cdot \left(x \cdot y\right)\\
\mathbf{elif}\;c \leq 1.1 \cdot 10^{+73}:\\
\;\;\;\;a \cdot \left(t \cdot \left(-x\right)\right)\\
\mathbf{elif}\;c \leq 2.5 \cdot 10^{+142}:\\
\;\;\;\;t \cdot \left(c \cdot j\right)\\
\mathbf{elif}\;c \leq 3.4 \cdot 10^{+232}:\\
\;\;\;\;z \cdot \left(b \cdot \left(-c\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if c < -7.49999999999999974e143 or 3.3999999999999998e232 < c Initial program 53.1%
Taylor expanded in j around inf 47.3%
associate--l+47.3%
sub-neg47.3%
mul-1-neg47.3%
+-commutative47.3%
+-commutative47.3%
associate--r+47.3%
Simplified51.4%
Taylor expanded in i around inf 61.5%
associate-*r*61.5%
Simplified61.5%
Taylor expanded in c around inf 55.9%
associate-*r*54.1%
*-commutative54.1%
associate-*r*59.8%
Simplified59.8%
if -7.49999999999999974e143 < c < -2.9000000000000001e90Initial program 57.1%
Taylor expanded in b around inf 57.9%
Taylor expanded in a around 0 42.2%
mul-1-neg42.2%
distribute-lft-neg-out42.2%
*-commutative42.2%
Simplified42.2%
if -2.9000000000000001e90 < c < -1.35e81 or 2.1999999999999999e-219 < c < 1.70000000000000005e-194Initial program 74.7%
Taylor expanded in x around inf 68.9%
*-commutative68.9%
Simplified68.9%
Taylor expanded in z around inf 69.1%
if -1.35e81 < c < -1.50000000000000012e46Initial program 90.4%
Taylor expanded in x around inf 56.4%
*-commutative56.4%
Simplified56.4%
Taylor expanded in z around 0 45.9%
neg-mul-145.9%
distribute-lft-neg-in45.9%
*-commutative45.9%
Simplified45.9%
if -1.50000000000000012e46 < c < 2.1999999999999999e-219Initial program 81.0%
Taylor expanded in i around inf 58.7%
distribute-lft-out--58.7%
*-commutative58.7%
Simplified58.7%
Taylor expanded in j around inf 38.1%
associate-*r*38.1%
mul-1-neg38.1%
*-commutative38.1%
Simplified38.1%
if 1.70000000000000005e-194 < c < 2.4500000000000001e-135Initial program 100.0%
Taylor expanded in b around inf 46.0%
Taylor expanded in a around inf 46.0%
if 2.4500000000000001e-135 < c < 3.60000000000000014e-61Initial program 74.0%
Taylor expanded in j around inf 74.0%
associate--l+74.0%
sub-neg74.0%
mul-1-neg74.0%
+-commutative74.0%
+-commutative74.0%
associate--r+74.0%
Simplified74.0%
Taylor expanded in z around inf 39.9%
associate-*r*55.5%
*-commutative55.5%
div-sub64.6%
*-commutative64.6%
Simplified64.6%
Taylor expanded in x around inf 40.2%
*-commutative40.2%
*-commutative40.2%
associate-*l*57.3%
Simplified57.3%
if 3.60000000000000014e-61 < c < 1.1e73Initial program 83.8%
Taylor expanded in a around inf 65.2%
distribute-lft-out--65.2%
Simplified65.2%
Taylor expanded in t around inf 43.1%
mul-1-neg43.1%
distribute-rgt-neg-in43.1%
distribute-rgt-neg-in43.1%
Simplified43.1%
if 1.1e73 < c < 2.5000000000000001e142Initial program 92.3%
Taylor expanded in t around inf 61.9%
+-commutative61.9%
mul-1-neg61.9%
unsub-neg61.9%
Simplified61.9%
Taylor expanded in c around inf 54.4%
if 2.5000000000000001e142 < c < 3.3999999999999998e232Initial program 59.9%
Taylor expanded in j around inf 66.6%
associate--l+66.6%
sub-neg66.6%
mul-1-neg66.6%
+-commutative66.6%
+-commutative66.6%
associate--r+66.6%
Simplified66.6%
Taylor expanded in c around inf 66.7%
associate-*r/66.7%
associate-*r*66.7%
neg-mul-166.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in j around 0 66.9%
neg-mul-166.9%
*-commutative66.9%
associate-*r*66.9%
*-commutative66.9%
associate-*r*66.9%
distribute-rgt-neg-out66.9%
distribute-rgt-neg-in66.9%
Simplified66.9%
Final simplification48.4%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (* z (- (* a (/ i z)) c)))))
(if (<= y -4.5e+51)
(* y (- (* x z) (* i j)))
(if (<= y -1.8e-48)
(* c (- (* t j) (* a (* t (/ x c)))))
(if (<= y -3.5e-71)
t_1
(if (<= y -1.3e-91)
(* j (+ (* t c) (* a (* b (/ i j)))))
(if (<= y -6.8e-118)
(* t (- (* c j) (* x a)))
(if (<= y 2.6e-229)
t_1
(if (<= y 1.45e-164)
(* x (- (* y z) (* t a)))
(if (<= y 2.8e-164)
(* c (* t j))
(if (<= y 3.3e+121)
(* i (* y (- (* b (/ a y)) j)))
(if (<= y 1.75e+146)
(* z (- (* x y) (* b c)))
(* (* y j) (- (* x (/ z j)) i))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double tmp;
if (y <= -4.5e+51) {
tmp = y * ((x * z) - (i * j));
} else if (y <= -1.8e-48) {
tmp = c * ((t * j) - (a * (t * (x / c))));
} else if (y <= -3.5e-71) {
tmp = t_1;
} else if (y <= -1.3e-91) {
tmp = j * ((t * c) + (a * (b * (i / j))));
} else if (y <= -6.8e-118) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 2.6e-229) {
tmp = t_1;
} else if (y <= 1.45e-164) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 2.8e-164) {
tmp = c * (t * j);
} else if (y <= 3.3e+121) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (y <= 1.75e+146) {
tmp = z * ((x * y) - (b * c));
} else {
tmp = (y * j) * ((x * (z / j)) - i);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: tmp
t_1 = b * (z * ((a * (i / z)) - c))
if (y <= (-4.5d+51)) then
tmp = y * ((x * z) - (i * j))
else if (y <= (-1.8d-48)) then
tmp = c * ((t * j) - (a * (t * (x / c))))
else if (y <= (-3.5d-71)) then
tmp = t_1
else if (y <= (-1.3d-91)) then
tmp = j * ((t * c) + (a * (b * (i / j))))
else if (y <= (-6.8d-118)) then
tmp = t * ((c * j) - (x * a))
else if (y <= 2.6d-229) then
tmp = t_1
else if (y <= 1.45d-164) then
tmp = x * ((y * z) - (t * a))
else if (y <= 2.8d-164) then
tmp = c * (t * j)
else if (y <= 3.3d+121) then
tmp = i * (y * ((b * (a / y)) - j))
else if (y <= 1.75d+146) then
tmp = z * ((x * y) - (b * c))
else
tmp = (y * j) * ((x * (z / j)) - i)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double tmp;
if (y <= -4.5e+51) {
tmp = y * ((x * z) - (i * j));
} else if (y <= -1.8e-48) {
tmp = c * ((t * j) - (a * (t * (x / c))));
} else if (y <= -3.5e-71) {
tmp = t_1;
} else if (y <= -1.3e-91) {
tmp = j * ((t * c) + (a * (b * (i / j))));
} else if (y <= -6.8e-118) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 2.6e-229) {
tmp = t_1;
} else if (y <= 1.45e-164) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 2.8e-164) {
tmp = c * (t * j);
} else if (y <= 3.3e+121) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (y <= 1.75e+146) {
tmp = z * ((x * y) - (b * c));
} else {
tmp = (y * j) * ((x * (z / j)) - i);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * (z * ((a * (i / z)) - c)) tmp = 0 if y <= -4.5e+51: tmp = y * ((x * z) - (i * j)) elif y <= -1.8e-48: tmp = c * ((t * j) - (a * (t * (x / c)))) elif y <= -3.5e-71: tmp = t_1 elif y <= -1.3e-91: tmp = j * ((t * c) + (a * (b * (i / j)))) elif y <= -6.8e-118: tmp = t * ((c * j) - (x * a)) elif y <= 2.6e-229: tmp = t_1 elif y <= 1.45e-164: tmp = x * ((y * z) - (t * a)) elif y <= 2.8e-164: tmp = c * (t * j) elif y <= 3.3e+121: tmp = i * (y * ((b * (a / y)) - j)) elif y <= 1.75e+146: tmp = z * ((x * y) - (b * c)) else: tmp = (y * j) * ((x * (z / j)) - i) return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))) tmp = 0.0 if (y <= -4.5e+51) tmp = Float64(y * Float64(Float64(x * z) - Float64(i * j))); elseif (y <= -1.8e-48) tmp = Float64(c * Float64(Float64(t * j) - Float64(a * Float64(t * Float64(x / c))))); elseif (y <= -3.5e-71) tmp = t_1; elseif (y <= -1.3e-91) tmp = Float64(j * Float64(Float64(t * c) + Float64(a * Float64(b * Float64(i / j))))); elseif (y <= -6.8e-118) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); elseif (y <= 2.6e-229) tmp = t_1; elseif (y <= 1.45e-164) tmp = Float64(x * Float64(Float64(y * z) - Float64(t * a))); elseif (y <= 2.8e-164) tmp = Float64(c * Float64(t * j)); elseif (y <= 3.3e+121) tmp = Float64(i * Float64(y * Float64(Float64(b * Float64(a / y)) - j))); elseif (y <= 1.75e+146) tmp = Float64(z * Float64(Float64(x * y) - Float64(b * c))); else tmp = Float64(Float64(y * j) * Float64(Float64(x * Float64(z / j)) - i)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * (z * ((a * (i / z)) - c)); tmp = 0.0; if (y <= -4.5e+51) tmp = y * ((x * z) - (i * j)); elseif (y <= -1.8e-48) tmp = c * ((t * j) - (a * (t * (x / c)))); elseif (y <= -3.5e-71) tmp = t_1; elseif (y <= -1.3e-91) tmp = j * ((t * c) + (a * (b * (i / j)))); elseif (y <= -6.8e-118) tmp = t * ((c * j) - (x * a)); elseif (y <= 2.6e-229) tmp = t_1; elseif (y <= 1.45e-164) tmp = x * ((y * z) - (t * a)); elseif (y <= 2.8e-164) tmp = c * (t * j); elseif (y <= 3.3e+121) tmp = i * (y * ((b * (a / y)) - j)); elseif (y <= 1.75e+146) tmp = z * ((x * y) - (b * c)); else tmp = (y * j) * ((x * (z / j)) - i); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -4.5e+51], N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.8e-48], N[(c * N[(N[(t * j), $MachinePrecision] - N[(a * N[(t * N[(x / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -3.5e-71], t$95$1, If[LessEqual[y, -1.3e-91], N[(j * N[(N[(t * c), $MachinePrecision] + N[(a * N[(b * N[(i / j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -6.8e-118], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.6e-229], t$95$1, If[LessEqual[y, 1.45e-164], N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.8e-164], N[(c * N[(t * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.3e+121], N[(i * N[(y * N[(N[(b * N[(a / y), $MachinePrecision]), $MachinePrecision] - j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.75e+146], N[(z * N[(N[(x * y), $MachinePrecision] - N[(b * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(y * j), $MachinePrecision] * N[(N[(x * N[(z / j), $MachinePrecision]), $MachinePrecision] - i), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
\mathbf{if}\;y \leq -4.5 \cdot 10^{+51}:\\
\;\;\;\;y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{elif}\;y \leq -1.8 \cdot 10^{-48}:\\
\;\;\;\;c \cdot \left(t \cdot j - a \cdot \left(t \cdot \frac{x}{c}\right)\right)\\
\mathbf{elif}\;y \leq -3.5 \cdot 10^{-71}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -1.3 \cdot 10^{-91}:\\
\;\;\;\;j \cdot \left(t \cdot c + a \cdot \left(b \cdot \frac{i}{j}\right)\right)\\
\mathbf{elif}\;y \leq -6.8 \cdot 10^{-118}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{elif}\;y \leq 2.6 \cdot 10^{-229}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 1.45 \cdot 10^{-164}:\\
\;\;\;\;x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{elif}\;y \leq 2.8 \cdot 10^{-164}:\\
\;\;\;\;c \cdot \left(t \cdot j\right)\\
\mathbf{elif}\;y \leq 3.3 \cdot 10^{+121}:\\
\;\;\;\;i \cdot \left(y \cdot \left(b \cdot \frac{a}{y} - j\right)\right)\\
\mathbf{elif}\;y \leq 1.75 \cdot 10^{+146}:\\
\;\;\;\;z \cdot \left(x \cdot y - b \cdot c\right)\\
\mathbf{else}:\\
\;\;\;\;\left(y \cdot j\right) \cdot \left(x \cdot \frac{z}{j} - i\right)\\
\end{array}
\end{array}
if y < -4.5e51Initial program 64.9%
Taylor expanded in y around inf 72.7%
+-commutative72.7%
mul-1-neg72.7%
unsub-neg72.7%
*-commutative72.7%
Simplified72.7%
if -4.5e51 < y < -1.8000000000000001e-48Initial program 85.5%
Taylor expanded in t around inf 38.6%
+-commutative38.6%
mul-1-neg38.6%
unsub-neg38.6%
Simplified38.6%
Taylor expanded in c around inf 45.3%
+-commutative45.3%
mul-1-neg45.3%
unsub-neg45.3%
associate-/l*59.1%
associate-/l*66.0%
Simplified66.0%
if -1.8000000000000001e-48 < y < -3.4999999999999999e-71 or -6.79999999999999981e-118 < y < 2.6000000000000001e-229Initial program 82.3%
Taylor expanded in b around inf 62.1%
Taylor expanded in z around inf 63.7%
associate-/l*65.2%
Simplified65.2%
if -3.4999999999999999e-71 < y < -1.30000000000000007e-91Initial program 99.8%
Taylor expanded in j around inf 87.5%
associate--l+87.5%
sub-neg87.5%
mul-1-neg87.5%
+-commutative87.5%
+-commutative87.5%
associate--r+87.5%
Simplified100.0%
Taylor expanded in i around inf 70.1%
associate-*r*82.6%
Simplified82.6%
Taylor expanded in a around 0 70.1%
sub-neg70.1%
*-commutative70.1%
associate-*r*82.6%
*-commutative82.6%
associate-*r*82.6%
associate-*r/82.6%
distribute-rgt-neg-in82.6%
distribute-lft-in82.6%
sub-neg82.6%
associate-/l*82.6%
Simplified82.6%
Taylor expanded in a around inf 50.4%
associate-/l*50.4%
*-commutative50.4%
associate-/l*62.8%
Simplified62.8%
Taylor expanded in i around 0 50.4%
associate-/l*62.9%
Simplified62.9%
if -1.30000000000000007e-91 < y < -6.79999999999999981e-118Initial program 100.0%
Taylor expanded in t around inf 86.1%
+-commutative86.1%
mul-1-neg86.1%
unsub-neg86.1%
Simplified86.1%
if 2.6000000000000001e-229 < y < 1.45e-164Initial program 99.8%
Taylor expanded in x around inf 80.4%
*-commutative80.4%
Simplified80.4%
if 1.45e-164 < y < 2.8000000000000001e-164Initial program 100.0%
Taylor expanded in j around inf 100.0%
associate--l+100.0%
sub-neg100.0%
mul-1-neg100.0%
+-commutative100.0%
+-commutative100.0%
associate--r+100.0%
Simplified100.0%
Taylor expanded in i around inf 100.0%
associate-*r*100.0%
Simplified100.0%
Taylor expanded in c around inf 100.0%
if 2.8000000000000001e-164 < y < 3.29999999999999979e121Initial program 74.3%
Taylor expanded in i around inf 49.8%
distribute-lft-out--49.8%
*-commutative49.8%
Simplified49.8%
Taylor expanded in b around inf 41.7%
+-commutative41.7%
*-commutative41.7%
mul-1-neg41.7%
unsub-neg41.7%
*-commutative41.7%
associate-/l*45.7%
*-commutative45.7%
Simplified45.7%
Taylor expanded in b around inf 41.7%
mul-1-neg41.7%
distribute-frac-neg41.7%
distribute-lft-neg-in41.7%
associate-*r/45.7%
*-commutative45.7%
associate-*r/45.7%
distribute-lft-neg-in45.7%
+-commutative45.7%
distribute-lft-in41.7%
*-commutative41.7%
associate-*r*42.0%
distribute-rgt-neg-in42.0%
associate-*r*39.9%
distribute-lft-in47.9%
associate-*r/48.0%
*-commutative48.0%
Simplified47.9%
Taylor expanded in y around inf 49.8%
neg-mul-149.8%
+-commutative49.8%
unsub-neg49.8%
*-commutative49.8%
associate-/l*55.5%
Simplified55.5%
if 3.29999999999999979e121 < y < 1.7500000000000001e146Initial program 67.8%
Taylor expanded in z around inf 84.2%
*-commutative84.2%
Simplified84.2%
if 1.7500000000000001e146 < y Initial program 56.1%
Taylor expanded in j around inf 56.6%
associate--l+56.6%
sub-neg56.6%
mul-1-neg56.6%
+-commutative56.6%
+-commutative56.6%
associate--r+56.6%
Simplified56.6%
Taylor expanded in y around inf 73.8%
associate-*r*73.7%
*-commutative73.7%
associate-/l*73.7%
Simplified73.7%
Final simplification68.1%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* a (- (* b i) (* x t)))) (t_2 (* j (- (* t c) (* y i)))))
(if (<= a -4e+74)
t_1
(if (<= a -5.5e-51)
(* t (- (* c j) (* x a)))
(if (<= a -4.8e-160)
(* c (- (* t j) (* z b)))
(if (<= a -7.5e-198)
(* x (* y z))
(if (<= a 56000000000.0)
t_2
(if (<= a 7e+49)
t_1
(if (<= a 4.7e+60)
(* b (- (* a i) (* z c)))
(if (or (<= a 1.05e+124)
(and (not (<= a 1.65e+186)) (<= a 1.35e+190)))
t_2
t_1))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = a * ((b * i) - (x * t));
double t_2 = j * ((t * c) - (y * i));
double tmp;
if (a <= -4e+74) {
tmp = t_1;
} else if (a <= -5.5e-51) {
tmp = t * ((c * j) - (x * a));
} else if (a <= -4.8e-160) {
tmp = c * ((t * j) - (z * b));
} else if (a <= -7.5e-198) {
tmp = x * (y * z);
} else if (a <= 56000000000.0) {
tmp = t_2;
} else if (a <= 7e+49) {
tmp = t_1;
} else if (a <= 4.7e+60) {
tmp = b * ((a * i) - (z * c));
} else if ((a <= 1.05e+124) || (!(a <= 1.65e+186) && (a <= 1.35e+190))) {
tmp = t_2;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = a * ((b * i) - (x * t))
t_2 = j * ((t * c) - (y * i))
if (a <= (-4d+74)) then
tmp = t_1
else if (a <= (-5.5d-51)) then
tmp = t * ((c * j) - (x * a))
else if (a <= (-4.8d-160)) then
tmp = c * ((t * j) - (z * b))
else if (a <= (-7.5d-198)) then
tmp = x * (y * z)
else if (a <= 56000000000.0d0) then
tmp = t_2
else if (a <= 7d+49) then
tmp = t_1
else if (a <= 4.7d+60) then
tmp = b * ((a * i) - (z * c))
else if ((a <= 1.05d+124) .or. (.not. (a <= 1.65d+186)) .and. (a <= 1.35d+190)) then
tmp = t_2
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = a * ((b * i) - (x * t));
double t_2 = j * ((t * c) - (y * i));
double tmp;
if (a <= -4e+74) {
tmp = t_1;
} else if (a <= -5.5e-51) {
tmp = t * ((c * j) - (x * a));
} else if (a <= -4.8e-160) {
tmp = c * ((t * j) - (z * b));
} else if (a <= -7.5e-198) {
tmp = x * (y * z);
} else if (a <= 56000000000.0) {
tmp = t_2;
} else if (a <= 7e+49) {
tmp = t_1;
} else if (a <= 4.7e+60) {
tmp = b * ((a * i) - (z * c));
} else if ((a <= 1.05e+124) || (!(a <= 1.65e+186) && (a <= 1.35e+190))) {
tmp = t_2;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = a * ((b * i) - (x * t)) t_2 = j * ((t * c) - (y * i)) tmp = 0 if a <= -4e+74: tmp = t_1 elif a <= -5.5e-51: tmp = t * ((c * j) - (x * a)) elif a <= -4.8e-160: tmp = c * ((t * j) - (z * b)) elif a <= -7.5e-198: tmp = x * (y * z) elif a <= 56000000000.0: tmp = t_2 elif a <= 7e+49: tmp = t_1 elif a <= 4.7e+60: tmp = b * ((a * i) - (z * c)) elif (a <= 1.05e+124) or (not (a <= 1.65e+186) and (a <= 1.35e+190)): tmp = t_2 else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(a * Float64(Float64(b * i) - Float64(x * t))) t_2 = Float64(j * Float64(Float64(t * c) - Float64(y * i))) tmp = 0.0 if (a <= -4e+74) tmp = t_1; elseif (a <= -5.5e-51) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); elseif (a <= -4.8e-160) tmp = Float64(c * Float64(Float64(t * j) - Float64(z * b))); elseif (a <= -7.5e-198) tmp = Float64(x * Float64(y * z)); elseif (a <= 56000000000.0) tmp = t_2; elseif (a <= 7e+49) tmp = t_1; elseif (a <= 4.7e+60) tmp = Float64(b * Float64(Float64(a * i) - Float64(z * c))); elseif ((a <= 1.05e+124) || (!(a <= 1.65e+186) && (a <= 1.35e+190))) tmp = t_2; else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = a * ((b * i) - (x * t)); t_2 = j * ((t * c) - (y * i)); tmp = 0.0; if (a <= -4e+74) tmp = t_1; elseif (a <= -5.5e-51) tmp = t * ((c * j) - (x * a)); elseif (a <= -4.8e-160) tmp = c * ((t * j) - (z * b)); elseif (a <= -7.5e-198) tmp = x * (y * z); elseif (a <= 56000000000.0) tmp = t_2; elseif (a <= 7e+49) tmp = t_1; elseif (a <= 4.7e+60) tmp = b * ((a * i) - (z * c)); elseif ((a <= 1.05e+124) || (~((a <= 1.65e+186)) && (a <= 1.35e+190))) tmp = t_2; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -4e+74], t$95$1, If[LessEqual[a, -5.5e-51], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -4.8e-160], N[(c * N[(N[(t * j), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -7.5e-198], N[(x * N[(y * z), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 56000000000.0], t$95$2, If[LessEqual[a, 7e+49], t$95$1, If[LessEqual[a, 4.7e+60], N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[a, 1.05e+124], And[N[Not[LessEqual[a, 1.65e+186]], $MachinePrecision], LessEqual[a, 1.35e+190]]], t$95$2, t$95$1]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(b \cdot i - x \cdot t\right)\\
t_2 := j \cdot \left(t \cdot c - y \cdot i\right)\\
\mathbf{if}\;a \leq -4 \cdot 10^{+74}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -5.5 \cdot 10^{-51}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{elif}\;a \leq -4.8 \cdot 10^{-160}:\\
\;\;\;\;c \cdot \left(t \cdot j - z \cdot b\right)\\
\mathbf{elif}\;a \leq -7.5 \cdot 10^{-198}:\\
\;\;\;\;x \cdot \left(y \cdot z\right)\\
\mathbf{elif}\;a \leq 56000000000:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq 7 \cdot 10^{+49}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 4.7 \cdot 10^{+60}:\\
\;\;\;\;b \cdot \left(a \cdot i - z \cdot c\right)\\
\mathbf{elif}\;a \leq 1.05 \cdot 10^{+124} \lor \neg \left(a \leq 1.65 \cdot 10^{+186}\right) \land a \leq 1.35 \cdot 10^{+190}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if a < -3.99999999999999981e74 or 5.6e10 < a < 6.9999999999999995e49 or 1.05000000000000006e124 < a < 1.65000000000000012e186 or 1.35000000000000002e190 < a Initial program 66.8%
Taylor expanded in a around inf 68.6%
distribute-lft-out--68.6%
Simplified68.6%
Taylor expanded in t around 0 68.6%
+-commutative68.6%
mul-1-neg68.6%
distribute-rgt-neg-in68.6%
distribute-lft-out68.6%
unsub-neg68.6%
Simplified68.6%
if -3.99999999999999981e74 < a < -5.4999999999999997e-51Initial program 84.0%
Taylor expanded in t around inf 59.0%
+-commutative59.0%
mul-1-neg59.0%
unsub-neg59.0%
Simplified59.0%
if -5.4999999999999997e-51 < a < -4.79999999999999982e-160Initial program 83.5%
Taylor expanded in c around inf 63.7%
if -4.79999999999999982e-160 < a < -7.50000000000000064e-198Initial program 71.2%
Taylor expanded in x around inf 71.3%
*-commutative71.3%
Simplified71.3%
Taylor expanded in z around inf 71.3%
if -7.50000000000000064e-198 < a < 5.6e10 or 4.6999999999999998e60 < a < 1.05000000000000006e124 or 1.65000000000000012e186 < a < 1.35000000000000002e190Initial program 76.8%
Taylor expanded in j around inf 59.9%
if 6.9999999999999995e49 < a < 4.6999999999999998e60Initial program 99.5%
Taylor expanded in b around inf 89.3%
Final simplification64.2%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* y (- (* x z) (* i j))))
(t_2 (* a (- (* b i) (* x t))))
(t_3 (* c (- (* t j) (* z b)))))
(if (<= c -2.2e+85)
t_3
(if (<= c -9e-12)
(* x (- (* y z) (* t a)))
(if (<= c -2.4e-118)
t_1
(if (<= c -1.85e-191)
(* b (- (* a i) (* z c)))
(if (<= c 2.1e-195)
t_1
(if (<= c 9e-128)
t_2
(if (<= c 7.5e-63)
t_1
(if (<= c 1.1e+40)
t_2
(if (<= c 2e+40)
(* i (* j (- y)))
(if (<= c 2.2e+167)
(* t (- (* c j) (* x a)))
t_3))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * ((x * z) - (i * j));
double t_2 = a * ((b * i) - (x * t));
double t_3 = c * ((t * j) - (z * b));
double tmp;
if (c <= -2.2e+85) {
tmp = t_3;
} else if (c <= -9e-12) {
tmp = x * ((y * z) - (t * a));
} else if (c <= -2.4e-118) {
tmp = t_1;
} else if (c <= -1.85e-191) {
tmp = b * ((a * i) - (z * c));
} else if (c <= 2.1e-195) {
tmp = t_1;
} else if (c <= 9e-128) {
tmp = t_2;
} else if (c <= 7.5e-63) {
tmp = t_1;
} else if (c <= 1.1e+40) {
tmp = t_2;
} else if (c <= 2e+40) {
tmp = i * (j * -y);
} else if (c <= 2.2e+167) {
tmp = t * ((c * j) - (x * a));
} else {
tmp = t_3;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = y * ((x * z) - (i * j))
t_2 = a * ((b * i) - (x * t))
t_3 = c * ((t * j) - (z * b))
if (c <= (-2.2d+85)) then
tmp = t_3
else if (c <= (-9d-12)) then
tmp = x * ((y * z) - (t * a))
else if (c <= (-2.4d-118)) then
tmp = t_1
else if (c <= (-1.85d-191)) then
tmp = b * ((a * i) - (z * c))
else if (c <= 2.1d-195) then
tmp = t_1
else if (c <= 9d-128) then
tmp = t_2
else if (c <= 7.5d-63) then
tmp = t_1
else if (c <= 1.1d+40) then
tmp = t_2
else if (c <= 2d+40) then
tmp = i * (j * -y)
else if (c <= 2.2d+167) then
tmp = t * ((c * j) - (x * a))
else
tmp = t_3
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * ((x * z) - (i * j));
double t_2 = a * ((b * i) - (x * t));
double t_3 = c * ((t * j) - (z * b));
double tmp;
if (c <= -2.2e+85) {
tmp = t_3;
} else if (c <= -9e-12) {
tmp = x * ((y * z) - (t * a));
} else if (c <= -2.4e-118) {
tmp = t_1;
} else if (c <= -1.85e-191) {
tmp = b * ((a * i) - (z * c));
} else if (c <= 2.1e-195) {
tmp = t_1;
} else if (c <= 9e-128) {
tmp = t_2;
} else if (c <= 7.5e-63) {
tmp = t_1;
} else if (c <= 1.1e+40) {
tmp = t_2;
} else if (c <= 2e+40) {
tmp = i * (j * -y);
} else if (c <= 2.2e+167) {
tmp = t * ((c * j) - (x * a));
} else {
tmp = t_3;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = y * ((x * z) - (i * j)) t_2 = a * ((b * i) - (x * t)) t_3 = c * ((t * j) - (z * b)) tmp = 0 if c <= -2.2e+85: tmp = t_3 elif c <= -9e-12: tmp = x * ((y * z) - (t * a)) elif c <= -2.4e-118: tmp = t_1 elif c <= -1.85e-191: tmp = b * ((a * i) - (z * c)) elif c <= 2.1e-195: tmp = t_1 elif c <= 9e-128: tmp = t_2 elif c <= 7.5e-63: tmp = t_1 elif c <= 1.1e+40: tmp = t_2 elif c <= 2e+40: tmp = i * (j * -y) elif c <= 2.2e+167: tmp = t * ((c * j) - (x * a)) else: tmp = t_3 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(y * Float64(Float64(x * z) - Float64(i * j))) t_2 = Float64(a * Float64(Float64(b * i) - Float64(x * t))) t_3 = Float64(c * Float64(Float64(t * j) - Float64(z * b))) tmp = 0.0 if (c <= -2.2e+85) tmp = t_3; elseif (c <= -9e-12) tmp = Float64(x * Float64(Float64(y * z) - Float64(t * a))); elseif (c <= -2.4e-118) tmp = t_1; elseif (c <= -1.85e-191) tmp = Float64(b * Float64(Float64(a * i) - Float64(z * c))); elseif (c <= 2.1e-195) tmp = t_1; elseif (c <= 9e-128) tmp = t_2; elseif (c <= 7.5e-63) tmp = t_1; elseif (c <= 1.1e+40) tmp = t_2; elseif (c <= 2e+40) tmp = Float64(i * Float64(j * Float64(-y))); elseif (c <= 2.2e+167) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); else tmp = t_3; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = y * ((x * z) - (i * j)); t_2 = a * ((b * i) - (x * t)); t_3 = c * ((t * j) - (z * b)); tmp = 0.0; if (c <= -2.2e+85) tmp = t_3; elseif (c <= -9e-12) tmp = x * ((y * z) - (t * a)); elseif (c <= -2.4e-118) tmp = t_1; elseif (c <= -1.85e-191) tmp = b * ((a * i) - (z * c)); elseif (c <= 2.1e-195) tmp = t_1; elseif (c <= 9e-128) tmp = t_2; elseif (c <= 7.5e-63) tmp = t_1; elseif (c <= 1.1e+40) tmp = t_2; elseif (c <= 2e+40) tmp = i * (j * -y); elseif (c <= 2.2e+167) tmp = t * ((c * j) - (x * a)); else tmp = t_3; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(c * N[(N[(t * j), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -2.2e+85], t$95$3, If[LessEqual[c, -9e-12], N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -2.4e-118], t$95$1, If[LessEqual[c, -1.85e-191], N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 2.1e-195], t$95$1, If[LessEqual[c, 9e-128], t$95$2, If[LessEqual[c, 7.5e-63], t$95$1, If[LessEqual[c, 1.1e+40], t$95$2, If[LessEqual[c, 2e+40], N[(i * N[(j * (-y)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 2.2e+167], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$3]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(x \cdot z - i \cdot j\right)\\
t_2 := a \cdot \left(b \cdot i - x \cdot t\right)\\
t_3 := c \cdot \left(t \cdot j - z \cdot b\right)\\
\mathbf{if}\;c \leq -2.2 \cdot 10^{+85}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq -9 \cdot 10^{-12}:\\
\;\;\;\;x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{elif}\;c \leq -2.4 \cdot 10^{-118}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -1.85 \cdot 10^{-191}:\\
\;\;\;\;b \cdot \left(a \cdot i - z \cdot c\right)\\
\mathbf{elif}\;c \leq 2.1 \cdot 10^{-195}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 9 \cdot 10^{-128}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 7.5 \cdot 10^{-63}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 1.1 \cdot 10^{+40}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 2 \cdot 10^{+40}:\\
\;\;\;\;i \cdot \left(j \cdot \left(-y\right)\right)\\
\mathbf{elif}\;c \leq 2.2 \cdot 10^{+167}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;t\_3\\
\end{array}
\end{array}
if c < -2.2000000000000002e85 or 2.20000000000000003e167 < c Initial program 56.0%
Taylor expanded in c around inf 72.4%
if -2.2000000000000002e85 < c < -8.99999999999999962e-12Initial program 82.8%
Taylor expanded in x around inf 67.6%
*-commutative67.6%
Simplified67.6%
if -8.99999999999999962e-12 < c < -2.4000000000000001e-118 or -1.8499999999999998e-191 < c < 2.1e-195 or 8.9999999999999998e-128 < c < 7.5000000000000003e-63Initial program 79.8%
Taylor expanded in y around inf 65.6%
+-commutative65.6%
mul-1-neg65.6%
unsub-neg65.6%
*-commutative65.6%
Simplified65.6%
if -2.4000000000000001e-118 < c < -1.8499999999999998e-191Initial program 76.3%
Taylor expanded in b around inf 59.6%
if 2.1e-195 < c < 8.9999999999999998e-128 or 7.5000000000000003e-63 < c < 1.0999999999999999e40Initial program 93.2%
Taylor expanded in a around inf 73.7%
distribute-lft-out--73.7%
Simplified73.7%
Taylor expanded in t around 0 73.7%
+-commutative73.7%
mul-1-neg73.7%
distribute-rgt-neg-in73.7%
distribute-lft-out73.7%
unsub-neg73.7%
Simplified73.7%
if 1.0999999999999999e40 < c < 2.00000000000000006e40Initial program 98.4%
Taylor expanded in i around inf 100.0%
distribute-lft-out--100.0%
*-commutative100.0%
Simplified100.0%
Taylor expanded in j around inf 100.0%
associate-*r*100.0%
mul-1-neg100.0%
*-commutative100.0%
Simplified100.0%
if 2.00000000000000006e40 < c < 2.20000000000000003e167Initial program 79.5%
Taylor expanded in t around inf 66.0%
+-commutative66.0%
mul-1-neg66.0%
unsub-neg66.0%
Simplified66.0%
Final simplification68.5%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (* z (- c))))
(t_2 (* x (* y z)))
(t_3 (* j (* t c)))
(t_4 (* a (* b i))))
(if (<= c -1e+149)
t_3
(if (<= c -1.45e+90)
t_1
(if (<= c -4.4e+80)
t_2
(if (<= c -1.65e+48)
(* x (* t (- a)))
(if (<= c -3.3e-118)
t_2
(if (<= c 6.2e-257)
t_4
(if (<= c 2.8e-61)
(* z (* x y))
(if (<= c 1.25e+14)
t_4
(if (<= c 3.4e+120)
(* t (* c j))
(if (<= c 3.2e+238) t_1 t_3))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * -c);
double t_2 = x * (y * z);
double t_3 = j * (t * c);
double t_4 = a * (b * i);
double tmp;
if (c <= -1e+149) {
tmp = t_3;
} else if (c <= -1.45e+90) {
tmp = t_1;
} else if (c <= -4.4e+80) {
tmp = t_2;
} else if (c <= -1.65e+48) {
tmp = x * (t * -a);
} else if (c <= -3.3e-118) {
tmp = t_2;
} else if (c <= 6.2e-257) {
tmp = t_4;
} else if (c <= 2.8e-61) {
tmp = z * (x * y);
} else if (c <= 1.25e+14) {
tmp = t_4;
} else if (c <= 3.4e+120) {
tmp = t * (c * j);
} else if (c <= 3.2e+238) {
tmp = t_1;
} else {
tmp = t_3;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = b * (z * -c)
t_2 = x * (y * z)
t_3 = j * (t * c)
t_4 = a * (b * i)
if (c <= (-1d+149)) then
tmp = t_3
else if (c <= (-1.45d+90)) then
tmp = t_1
else if (c <= (-4.4d+80)) then
tmp = t_2
else if (c <= (-1.65d+48)) then
tmp = x * (t * -a)
else if (c <= (-3.3d-118)) then
tmp = t_2
else if (c <= 6.2d-257) then
tmp = t_4
else if (c <= 2.8d-61) then
tmp = z * (x * y)
else if (c <= 1.25d+14) then
tmp = t_4
else if (c <= 3.4d+120) then
tmp = t * (c * j)
else if (c <= 3.2d+238) then
tmp = t_1
else
tmp = t_3
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * -c);
double t_2 = x * (y * z);
double t_3 = j * (t * c);
double t_4 = a * (b * i);
double tmp;
if (c <= -1e+149) {
tmp = t_3;
} else if (c <= -1.45e+90) {
tmp = t_1;
} else if (c <= -4.4e+80) {
tmp = t_2;
} else if (c <= -1.65e+48) {
tmp = x * (t * -a);
} else if (c <= -3.3e-118) {
tmp = t_2;
} else if (c <= 6.2e-257) {
tmp = t_4;
} else if (c <= 2.8e-61) {
tmp = z * (x * y);
} else if (c <= 1.25e+14) {
tmp = t_4;
} else if (c <= 3.4e+120) {
tmp = t * (c * j);
} else if (c <= 3.2e+238) {
tmp = t_1;
} else {
tmp = t_3;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * (z * -c) t_2 = x * (y * z) t_3 = j * (t * c) t_4 = a * (b * i) tmp = 0 if c <= -1e+149: tmp = t_3 elif c <= -1.45e+90: tmp = t_1 elif c <= -4.4e+80: tmp = t_2 elif c <= -1.65e+48: tmp = x * (t * -a) elif c <= -3.3e-118: tmp = t_2 elif c <= 6.2e-257: tmp = t_4 elif c <= 2.8e-61: tmp = z * (x * y) elif c <= 1.25e+14: tmp = t_4 elif c <= 3.4e+120: tmp = t * (c * j) elif c <= 3.2e+238: tmp = t_1 else: tmp = t_3 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(z * Float64(-c))) t_2 = Float64(x * Float64(y * z)) t_3 = Float64(j * Float64(t * c)) t_4 = Float64(a * Float64(b * i)) tmp = 0.0 if (c <= -1e+149) tmp = t_3; elseif (c <= -1.45e+90) tmp = t_1; elseif (c <= -4.4e+80) tmp = t_2; elseif (c <= -1.65e+48) tmp = Float64(x * Float64(t * Float64(-a))); elseif (c <= -3.3e-118) tmp = t_2; elseif (c <= 6.2e-257) tmp = t_4; elseif (c <= 2.8e-61) tmp = Float64(z * Float64(x * y)); elseif (c <= 1.25e+14) tmp = t_4; elseif (c <= 3.4e+120) tmp = Float64(t * Float64(c * j)); elseif (c <= 3.2e+238) tmp = t_1; else tmp = t_3; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * (z * -c); t_2 = x * (y * z); t_3 = j * (t * c); t_4 = a * (b * i); tmp = 0.0; if (c <= -1e+149) tmp = t_3; elseif (c <= -1.45e+90) tmp = t_1; elseif (c <= -4.4e+80) tmp = t_2; elseif (c <= -1.65e+48) tmp = x * (t * -a); elseif (c <= -3.3e-118) tmp = t_2; elseif (c <= 6.2e-257) tmp = t_4; elseif (c <= 2.8e-61) tmp = z * (x * y); elseif (c <= 1.25e+14) tmp = t_4; elseif (c <= 3.4e+120) tmp = t * (c * j); elseif (c <= 3.2e+238) tmp = t_1; else tmp = t_3; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(z * (-c)), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x * N[(y * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -1e+149], t$95$3, If[LessEqual[c, -1.45e+90], t$95$1, If[LessEqual[c, -4.4e+80], t$95$2, If[LessEqual[c, -1.65e+48], N[(x * N[(t * (-a)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -3.3e-118], t$95$2, If[LessEqual[c, 6.2e-257], t$95$4, If[LessEqual[c, 2.8e-61], N[(z * N[(x * y), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.25e+14], t$95$4, If[LessEqual[c, 3.4e+120], N[(t * N[(c * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 3.2e+238], t$95$1, t$95$3]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(z \cdot \left(-c\right)\right)\\
t_2 := x \cdot \left(y \cdot z\right)\\
t_3 := j \cdot \left(t \cdot c\right)\\
t_4 := a \cdot \left(b \cdot i\right)\\
\mathbf{if}\;c \leq -1 \cdot 10^{+149}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq -1.45 \cdot 10^{+90}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -4.4 \cdot 10^{+80}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq -1.65 \cdot 10^{+48}:\\
\;\;\;\;x \cdot \left(t \cdot \left(-a\right)\right)\\
\mathbf{elif}\;c \leq -3.3 \cdot 10^{-118}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 6.2 \cdot 10^{-257}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;c \leq 2.8 \cdot 10^{-61}:\\
\;\;\;\;z \cdot \left(x \cdot y\right)\\
\mathbf{elif}\;c \leq 1.25 \cdot 10^{+14}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;c \leq 3.4 \cdot 10^{+120}:\\
\;\;\;\;t \cdot \left(c \cdot j\right)\\
\mathbf{elif}\;c \leq 3.2 \cdot 10^{+238}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_3\\
\end{array}
\end{array}
if c < -1.00000000000000005e149 or 3.19999999999999981e238 < c Initial program 54.2%
Taylor expanded in j around inf 46.2%
associate--l+46.2%
sub-neg46.2%
mul-1-neg46.2%
+-commutative46.2%
+-commutative46.2%
associate--r+46.2%
Simplified50.4%
Taylor expanded in i around inf 60.7%
associate-*r*60.7%
Simplified60.7%
Taylor expanded in c around inf 57.1%
associate-*r*55.2%
*-commutative55.2%
associate-*r*61.0%
Simplified61.0%
if -1.00000000000000005e149 < c < -1.4500000000000001e90 or 3.39999999999999999e120 < c < 3.19999999999999981e238Initial program 60.6%
Taylor expanded in b around inf 64.1%
Taylor expanded in a around 0 54.5%
mul-1-neg54.5%
distribute-lft-neg-out54.5%
*-commutative54.5%
Simplified54.5%
if -1.4500000000000001e90 < c < -4.40000000000000005e80 or -1.65000000000000011e48 < c < -3.3e-118Initial program 79.1%
Taylor expanded in x around inf 52.5%
*-commutative52.5%
Simplified52.5%
Taylor expanded in z around inf 42.9%
if -4.40000000000000005e80 < c < -1.65000000000000011e48Initial program 90.4%
Taylor expanded in x around inf 56.4%
*-commutative56.4%
Simplified56.4%
Taylor expanded in z around 0 45.9%
neg-mul-145.9%
distribute-lft-neg-in45.9%
*-commutative45.9%
Simplified45.9%
if -3.3e-118 < c < 6.20000000000000016e-257 or 2.8000000000000001e-61 < c < 1.25e14Initial program 84.9%
Taylor expanded in b around inf 40.2%
Taylor expanded in a around inf 35.0%
if 6.20000000000000016e-257 < c < 2.8000000000000001e-61Initial program 78.1%
Taylor expanded in j around inf 78.2%
associate--l+78.2%
sub-neg78.2%
mul-1-neg78.2%
+-commutative78.2%
+-commutative78.2%
associate--r+78.2%
Simplified78.2%
Taylor expanded in z around inf 42.3%
associate-*r*42.2%
*-commutative42.2%
div-sub45.0%
*-commutative45.0%
Simplified45.0%
Taylor expanded in x around inf 33.3%
*-commutative33.3%
*-commutative33.3%
associate-*l*37.3%
Simplified37.3%
if 1.25e14 < c < 3.39999999999999999e120Initial program 85.3%
Taylor expanded in t around inf 63.8%
+-commutative63.8%
mul-1-neg63.8%
unsub-neg63.8%
Simplified63.8%
Taylor expanded in c around inf 42.1%
Final simplification45.0%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (* z (- c))))
(t_2 (* x (* y z)))
(t_3 (* j (* t c)))
(t_4 (* a (* b i))))
(if (<= c -2.8e+145)
t_3
(if (<= c -8.2e+89)
t_1
(if (<= c -2.8e+82)
t_2
(if (<= c -4.2e+47)
(* a (* t (- x)))
(if (<= c -4e-118)
t_2
(if (<= c 1.25e-258)
t_4
(if (<= c 4.7e-61)
(* z (* x y))
(if (<= c 1.02e+24)
t_4
(if (<= c 5.5e+158)
(* t (* c j))
(if (<= c 6.6e+238) t_1 t_3))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * -c);
double t_2 = x * (y * z);
double t_3 = j * (t * c);
double t_4 = a * (b * i);
double tmp;
if (c <= -2.8e+145) {
tmp = t_3;
} else if (c <= -8.2e+89) {
tmp = t_1;
} else if (c <= -2.8e+82) {
tmp = t_2;
} else if (c <= -4.2e+47) {
tmp = a * (t * -x);
} else if (c <= -4e-118) {
tmp = t_2;
} else if (c <= 1.25e-258) {
tmp = t_4;
} else if (c <= 4.7e-61) {
tmp = z * (x * y);
} else if (c <= 1.02e+24) {
tmp = t_4;
} else if (c <= 5.5e+158) {
tmp = t * (c * j);
} else if (c <= 6.6e+238) {
tmp = t_1;
} else {
tmp = t_3;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = b * (z * -c)
t_2 = x * (y * z)
t_3 = j * (t * c)
t_4 = a * (b * i)
if (c <= (-2.8d+145)) then
tmp = t_3
else if (c <= (-8.2d+89)) then
tmp = t_1
else if (c <= (-2.8d+82)) then
tmp = t_2
else if (c <= (-4.2d+47)) then
tmp = a * (t * -x)
else if (c <= (-4d-118)) then
tmp = t_2
else if (c <= 1.25d-258) then
tmp = t_4
else if (c <= 4.7d-61) then
tmp = z * (x * y)
else if (c <= 1.02d+24) then
tmp = t_4
else if (c <= 5.5d+158) then
tmp = t * (c * j)
else if (c <= 6.6d+238) then
tmp = t_1
else
tmp = t_3
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * -c);
double t_2 = x * (y * z);
double t_3 = j * (t * c);
double t_4 = a * (b * i);
double tmp;
if (c <= -2.8e+145) {
tmp = t_3;
} else if (c <= -8.2e+89) {
tmp = t_1;
} else if (c <= -2.8e+82) {
tmp = t_2;
} else if (c <= -4.2e+47) {
tmp = a * (t * -x);
} else if (c <= -4e-118) {
tmp = t_2;
} else if (c <= 1.25e-258) {
tmp = t_4;
} else if (c <= 4.7e-61) {
tmp = z * (x * y);
} else if (c <= 1.02e+24) {
tmp = t_4;
} else if (c <= 5.5e+158) {
tmp = t * (c * j);
} else if (c <= 6.6e+238) {
tmp = t_1;
} else {
tmp = t_3;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * (z * -c) t_2 = x * (y * z) t_3 = j * (t * c) t_4 = a * (b * i) tmp = 0 if c <= -2.8e+145: tmp = t_3 elif c <= -8.2e+89: tmp = t_1 elif c <= -2.8e+82: tmp = t_2 elif c <= -4.2e+47: tmp = a * (t * -x) elif c <= -4e-118: tmp = t_2 elif c <= 1.25e-258: tmp = t_4 elif c <= 4.7e-61: tmp = z * (x * y) elif c <= 1.02e+24: tmp = t_4 elif c <= 5.5e+158: tmp = t * (c * j) elif c <= 6.6e+238: tmp = t_1 else: tmp = t_3 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(z * Float64(-c))) t_2 = Float64(x * Float64(y * z)) t_3 = Float64(j * Float64(t * c)) t_4 = Float64(a * Float64(b * i)) tmp = 0.0 if (c <= -2.8e+145) tmp = t_3; elseif (c <= -8.2e+89) tmp = t_1; elseif (c <= -2.8e+82) tmp = t_2; elseif (c <= -4.2e+47) tmp = Float64(a * Float64(t * Float64(-x))); elseif (c <= -4e-118) tmp = t_2; elseif (c <= 1.25e-258) tmp = t_4; elseif (c <= 4.7e-61) tmp = Float64(z * Float64(x * y)); elseif (c <= 1.02e+24) tmp = t_4; elseif (c <= 5.5e+158) tmp = Float64(t * Float64(c * j)); elseif (c <= 6.6e+238) tmp = t_1; else tmp = t_3; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * (z * -c); t_2 = x * (y * z); t_3 = j * (t * c); t_4 = a * (b * i); tmp = 0.0; if (c <= -2.8e+145) tmp = t_3; elseif (c <= -8.2e+89) tmp = t_1; elseif (c <= -2.8e+82) tmp = t_2; elseif (c <= -4.2e+47) tmp = a * (t * -x); elseif (c <= -4e-118) tmp = t_2; elseif (c <= 1.25e-258) tmp = t_4; elseif (c <= 4.7e-61) tmp = z * (x * y); elseif (c <= 1.02e+24) tmp = t_4; elseif (c <= 5.5e+158) tmp = t * (c * j); elseif (c <= 6.6e+238) tmp = t_1; else tmp = t_3; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(z * (-c)), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x * N[(y * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -2.8e+145], t$95$3, If[LessEqual[c, -8.2e+89], t$95$1, If[LessEqual[c, -2.8e+82], t$95$2, If[LessEqual[c, -4.2e+47], N[(a * N[(t * (-x)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -4e-118], t$95$2, If[LessEqual[c, 1.25e-258], t$95$4, If[LessEqual[c, 4.7e-61], N[(z * N[(x * y), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.02e+24], t$95$4, If[LessEqual[c, 5.5e+158], N[(t * N[(c * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 6.6e+238], t$95$1, t$95$3]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(z \cdot \left(-c\right)\right)\\
t_2 := x \cdot \left(y \cdot z\right)\\
t_3 := j \cdot \left(t \cdot c\right)\\
t_4 := a \cdot \left(b \cdot i\right)\\
\mathbf{if}\;c \leq -2.8 \cdot 10^{+145}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq -8.2 \cdot 10^{+89}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -2.8 \cdot 10^{+82}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq -4.2 \cdot 10^{+47}:\\
\;\;\;\;a \cdot \left(t \cdot \left(-x\right)\right)\\
\mathbf{elif}\;c \leq -4 \cdot 10^{-118}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 1.25 \cdot 10^{-258}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;c \leq 4.7 \cdot 10^{-61}:\\
\;\;\;\;z \cdot \left(x \cdot y\right)\\
\mathbf{elif}\;c \leq 1.02 \cdot 10^{+24}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;c \leq 5.5 \cdot 10^{+158}:\\
\;\;\;\;t \cdot \left(c \cdot j\right)\\
\mathbf{elif}\;c \leq 6.6 \cdot 10^{+238}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_3\\
\end{array}
\end{array}
if c < -2.7999999999999999e145 or 6.6000000000000001e238 < c Initial program 54.2%
Taylor expanded in j around inf 46.2%
associate--l+46.2%
sub-neg46.2%
mul-1-neg46.2%
+-commutative46.2%
+-commutative46.2%
associate--r+46.2%
Simplified50.4%
Taylor expanded in i around inf 60.7%
associate-*r*60.7%
Simplified60.7%
Taylor expanded in c around inf 57.1%
associate-*r*55.2%
*-commutative55.2%
associate-*r*61.0%
Simplified61.0%
if -2.7999999999999999e145 < c < -8.1999999999999997e89 or 5.4999999999999998e158 < c < 6.6000000000000001e238Initial program 53.5%
Taylor expanded in b around inf 68.3%
Taylor expanded in a around 0 56.9%
mul-1-neg56.9%
distribute-lft-neg-out56.9%
*-commutative56.9%
Simplified56.9%
if -8.1999999999999997e89 < c < -2.8e82 or -4.2e47 < c < -3.99999999999999994e-118Initial program 79.1%
Taylor expanded in x around inf 52.5%
*-commutative52.5%
Simplified52.5%
Taylor expanded in z around inf 42.9%
if -2.8e82 < c < -4.2e47Initial program 90.4%
Taylor expanded in a around inf 67.5%
distribute-lft-out--67.5%
Simplified67.5%
Taylor expanded in t around inf 45.8%
mul-1-neg45.8%
distribute-rgt-neg-in45.8%
distribute-rgt-neg-in45.8%
Simplified45.8%
if -3.99999999999999994e-118 < c < 1.25e-258 or 4.6999999999999997e-61 < c < 1.02000000000000004e24Initial program 84.9%
Taylor expanded in b around inf 40.2%
Taylor expanded in a around inf 35.0%
if 1.25e-258 < c < 4.6999999999999997e-61Initial program 78.1%
Taylor expanded in j around inf 78.2%
associate--l+78.2%
sub-neg78.2%
mul-1-neg78.2%
+-commutative78.2%
+-commutative78.2%
associate--r+78.2%
Simplified78.2%
Taylor expanded in z around inf 42.3%
associate-*r*42.2%
*-commutative42.2%
div-sub45.0%
*-commutative45.0%
Simplified45.0%
Taylor expanded in x around inf 33.3%
*-commutative33.3%
*-commutative33.3%
associate-*l*37.3%
Simplified37.3%
if 1.02000000000000004e24 < c < 5.4999999999999998e158Initial program 87.6%
Taylor expanded in t around inf 63.2%
+-commutative63.2%
mul-1-neg63.2%
unsub-neg63.2%
Simplified63.2%
Taylor expanded in c around inf 44.9%
Final simplification45.3%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* i (* a b)))
(t_2 (* x (* y z)))
(t_3 (* a (* t (- x))))
(t_4 (* a (* b i))))
(if (<= c -6.2e+147)
(* j (* t c))
(if (<= c -5e+71)
(* z (* x y))
(if (<= c -2.95e+38)
t_3
(if (<= c -2.9e+20)
t_1
(if (<= c -3.2e-118)
t_2
(if (<= c -3.8e-158)
t_4
(if (<= c -1.35e-174)
t_3
(if (<= c 9e-254)
t_1
(if (<= c 9.5e-196)
t_2
(if (<= c 1.14e+21) t_4 (* t (* c j))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = i * (a * b);
double t_2 = x * (y * z);
double t_3 = a * (t * -x);
double t_4 = a * (b * i);
double tmp;
if (c <= -6.2e+147) {
tmp = j * (t * c);
} else if (c <= -5e+71) {
tmp = z * (x * y);
} else if (c <= -2.95e+38) {
tmp = t_3;
} else if (c <= -2.9e+20) {
tmp = t_1;
} else if (c <= -3.2e-118) {
tmp = t_2;
} else if (c <= -3.8e-158) {
tmp = t_4;
} else if (c <= -1.35e-174) {
tmp = t_3;
} else if (c <= 9e-254) {
tmp = t_1;
} else if (c <= 9.5e-196) {
tmp = t_2;
} else if (c <= 1.14e+21) {
tmp = t_4;
} else {
tmp = t * (c * j);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = i * (a * b)
t_2 = x * (y * z)
t_3 = a * (t * -x)
t_4 = a * (b * i)
if (c <= (-6.2d+147)) then
tmp = j * (t * c)
else if (c <= (-5d+71)) then
tmp = z * (x * y)
else if (c <= (-2.95d+38)) then
tmp = t_3
else if (c <= (-2.9d+20)) then
tmp = t_1
else if (c <= (-3.2d-118)) then
tmp = t_2
else if (c <= (-3.8d-158)) then
tmp = t_4
else if (c <= (-1.35d-174)) then
tmp = t_3
else if (c <= 9d-254) then
tmp = t_1
else if (c <= 9.5d-196) then
tmp = t_2
else if (c <= 1.14d+21) then
tmp = t_4
else
tmp = t * (c * j)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = i * (a * b);
double t_2 = x * (y * z);
double t_3 = a * (t * -x);
double t_4 = a * (b * i);
double tmp;
if (c <= -6.2e+147) {
tmp = j * (t * c);
} else if (c <= -5e+71) {
tmp = z * (x * y);
} else if (c <= -2.95e+38) {
tmp = t_3;
} else if (c <= -2.9e+20) {
tmp = t_1;
} else if (c <= -3.2e-118) {
tmp = t_2;
} else if (c <= -3.8e-158) {
tmp = t_4;
} else if (c <= -1.35e-174) {
tmp = t_3;
} else if (c <= 9e-254) {
tmp = t_1;
} else if (c <= 9.5e-196) {
tmp = t_2;
} else if (c <= 1.14e+21) {
tmp = t_4;
} else {
tmp = t * (c * j);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = i * (a * b) t_2 = x * (y * z) t_3 = a * (t * -x) t_4 = a * (b * i) tmp = 0 if c <= -6.2e+147: tmp = j * (t * c) elif c <= -5e+71: tmp = z * (x * y) elif c <= -2.95e+38: tmp = t_3 elif c <= -2.9e+20: tmp = t_1 elif c <= -3.2e-118: tmp = t_2 elif c <= -3.8e-158: tmp = t_4 elif c <= -1.35e-174: tmp = t_3 elif c <= 9e-254: tmp = t_1 elif c <= 9.5e-196: tmp = t_2 elif c <= 1.14e+21: tmp = t_4 else: tmp = t * (c * j) return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(i * Float64(a * b)) t_2 = Float64(x * Float64(y * z)) t_3 = Float64(a * Float64(t * Float64(-x))) t_4 = Float64(a * Float64(b * i)) tmp = 0.0 if (c <= -6.2e+147) tmp = Float64(j * Float64(t * c)); elseif (c <= -5e+71) tmp = Float64(z * Float64(x * y)); elseif (c <= -2.95e+38) tmp = t_3; elseif (c <= -2.9e+20) tmp = t_1; elseif (c <= -3.2e-118) tmp = t_2; elseif (c <= -3.8e-158) tmp = t_4; elseif (c <= -1.35e-174) tmp = t_3; elseif (c <= 9e-254) tmp = t_1; elseif (c <= 9.5e-196) tmp = t_2; elseif (c <= 1.14e+21) tmp = t_4; else tmp = Float64(t * Float64(c * j)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = i * (a * b); t_2 = x * (y * z); t_3 = a * (t * -x); t_4 = a * (b * i); tmp = 0.0; if (c <= -6.2e+147) tmp = j * (t * c); elseif (c <= -5e+71) tmp = z * (x * y); elseif (c <= -2.95e+38) tmp = t_3; elseif (c <= -2.9e+20) tmp = t_1; elseif (c <= -3.2e-118) tmp = t_2; elseif (c <= -3.8e-158) tmp = t_4; elseif (c <= -1.35e-174) tmp = t_3; elseif (c <= 9e-254) tmp = t_1; elseif (c <= 9.5e-196) tmp = t_2; elseif (c <= 1.14e+21) tmp = t_4; else tmp = t * (c * j); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(i * N[(a * b), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x * N[(y * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(a * N[(t * (-x)), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -6.2e+147], N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -5e+71], N[(z * N[(x * y), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -2.95e+38], t$95$3, If[LessEqual[c, -2.9e+20], t$95$1, If[LessEqual[c, -3.2e-118], t$95$2, If[LessEqual[c, -3.8e-158], t$95$4, If[LessEqual[c, -1.35e-174], t$95$3, If[LessEqual[c, 9e-254], t$95$1, If[LessEqual[c, 9.5e-196], t$95$2, If[LessEqual[c, 1.14e+21], t$95$4, N[(t * N[(c * j), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(a \cdot b\right)\\
t_2 := x \cdot \left(y \cdot z\right)\\
t_3 := a \cdot \left(t \cdot \left(-x\right)\right)\\
t_4 := a \cdot \left(b \cdot i\right)\\
\mathbf{if}\;c \leq -6.2 \cdot 10^{+147}:\\
\;\;\;\;j \cdot \left(t \cdot c\right)\\
\mathbf{elif}\;c \leq -5 \cdot 10^{+71}:\\
\;\;\;\;z \cdot \left(x \cdot y\right)\\
\mathbf{elif}\;c \leq -2.95 \cdot 10^{+38}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq -2.9 \cdot 10^{+20}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -3.2 \cdot 10^{-118}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq -3.8 \cdot 10^{-158}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;c \leq -1.35 \cdot 10^{-174}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq 9 \cdot 10^{-254}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 9.5 \cdot 10^{-196}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 1.14 \cdot 10^{+21}:\\
\;\;\;\;t\_4\\
\mathbf{else}:\\
\;\;\;\;t \cdot \left(c \cdot j\right)\\
\end{array}
\end{array}
if c < -6.2000000000000001e147Initial program 54.5%
Taylor expanded in j around inf 45.8%
associate--l+45.8%
sub-neg45.8%
mul-1-neg45.8%
+-commutative45.8%
+-commutative45.8%
associate--r+45.8%
Simplified48.9%
Taylor expanded in i around inf 60.8%
associate-*r*63.9%
Simplified63.9%
Taylor expanded in c around inf 52.3%
associate-*r*49.4%
*-commutative49.4%
associate-*r*55.1%
Simplified55.1%
if -6.2000000000000001e147 < c < -4.99999999999999972e71Initial program 64.9%
Taylor expanded in j around inf 51.0%
associate--l+51.0%
sub-neg51.0%
mul-1-neg51.0%
+-commutative51.0%
+-commutative51.0%
associate--r+51.0%
Simplified56.0%
Taylor expanded in z around inf 36.4%
associate-*r*36.2%
*-commutative36.2%
div-sub41.2%
*-commutative41.2%
Simplified41.2%
Taylor expanded in x around inf 41.0%
*-commutative41.0%
*-commutative41.0%
associate-*l*41.1%
Simplified41.1%
if -4.99999999999999972e71 < c < -2.94999999999999991e38 or -3.7999999999999999e-158 < c < -1.34999999999999994e-174Initial program 92.7%
Taylor expanded in a around inf 57.6%
distribute-lft-out--57.6%
Simplified57.6%
Taylor expanded in t around inf 49.6%
mul-1-neg49.6%
distribute-rgt-neg-in49.6%
distribute-rgt-neg-in49.6%
Simplified49.6%
if -2.94999999999999991e38 < c < -2.9e20 or -1.34999999999999994e-174 < c < 9e-254Initial program 89.2%
Taylor expanded in b around inf 34.0%
Taylor expanded in a around inf 33.7%
associate-*r*33.7%
Simplified33.7%
if -2.9e20 < c < -3.20000000000000004e-118 or 9e-254 < c < 9.50000000000000032e-196Initial program 71.3%
Taylor expanded in x around inf 51.0%
*-commutative51.0%
Simplified51.0%
Taylor expanded in z around inf 43.9%
if -3.20000000000000004e-118 < c < -3.7999999999999999e-158 or 9.50000000000000032e-196 < c < 1.14e21Initial program 82.0%
Taylor expanded in b around inf 47.1%
Taylor expanded in a around inf 41.4%
if 1.14e21 < c Initial program 70.6%
Taylor expanded in t around inf 63.2%
+-commutative63.2%
mul-1-neg63.2%
unsub-neg63.2%
Simplified63.2%
Taylor expanded in c around inf 48.7%
Final simplification44.3%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* t (- (* c j) (* x a)))) (t_2 (* y (- (* x z) (* i j)))))
(if (<= y -2.4e-36)
t_2
(if (<= y -1.45e-84)
(* a (- (* b i) (* x t)))
(if (<= y -7.5e-117)
t_1
(if (<= y -1.9e-164)
(* b (* z (- (* a (/ i z)) c)))
(if (<= y 7.2e-259)
(+ (* c (* t j)) (* a (* b i)))
(if (<= y 1e-192)
(* z (- (* x y) (* b c)))
(if (<= y 5.8e-90)
t_1
(if (<= y 2.75e+31)
(* i (* y (- (* b (/ a y)) j)))
(if (<= y 9.2e+43) (* b (* z (- c))) t_2)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = t * ((c * j) - (x * a));
double t_2 = y * ((x * z) - (i * j));
double tmp;
if (y <= -2.4e-36) {
tmp = t_2;
} else if (y <= -1.45e-84) {
tmp = a * ((b * i) - (x * t));
} else if (y <= -7.5e-117) {
tmp = t_1;
} else if (y <= -1.9e-164) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (y <= 7.2e-259) {
tmp = (c * (t * j)) + (a * (b * i));
} else if (y <= 1e-192) {
tmp = z * ((x * y) - (b * c));
} else if (y <= 5.8e-90) {
tmp = t_1;
} else if (y <= 2.75e+31) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (y <= 9.2e+43) {
tmp = b * (z * -c);
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = t * ((c * j) - (x * a))
t_2 = y * ((x * z) - (i * j))
if (y <= (-2.4d-36)) then
tmp = t_2
else if (y <= (-1.45d-84)) then
tmp = a * ((b * i) - (x * t))
else if (y <= (-7.5d-117)) then
tmp = t_1
else if (y <= (-1.9d-164)) then
tmp = b * (z * ((a * (i / z)) - c))
else if (y <= 7.2d-259) then
tmp = (c * (t * j)) + (a * (b * i))
else if (y <= 1d-192) then
tmp = z * ((x * y) - (b * c))
else if (y <= 5.8d-90) then
tmp = t_1
else if (y <= 2.75d+31) then
tmp = i * (y * ((b * (a / y)) - j))
else if (y <= 9.2d+43) then
tmp = b * (z * -c)
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = t * ((c * j) - (x * a));
double t_2 = y * ((x * z) - (i * j));
double tmp;
if (y <= -2.4e-36) {
tmp = t_2;
} else if (y <= -1.45e-84) {
tmp = a * ((b * i) - (x * t));
} else if (y <= -7.5e-117) {
tmp = t_1;
} else if (y <= -1.9e-164) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (y <= 7.2e-259) {
tmp = (c * (t * j)) + (a * (b * i));
} else if (y <= 1e-192) {
tmp = z * ((x * y) - (b * c));
} else if (y <= 5.8e-90) {
tmp = t_1;
} else if (y <= 2.75e+31) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (y <= 9.2e+43) {
tmp = b * (z * -c);
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = t * ((c * j) - (x * a)) t_2 = y * ((x * z) - (i * j)) tmp = 0 if y <= -2.4e-36: tmp = t_2 elif y <= -1.45e-84: tmp = a * ((b * i) - (x * t)) elif y <= -7.5e-117: tmp = t_1 elif y <= -1.9e-164: tmp = b * (z * ((a * (i / z)) - c)) elif y <= 7.2e-259: tmp = (c * (t * j)) + (a * (b * i)) elif y <= 1e-192: tmp = z * ((x * y) - (b * c)) elif y <= 5.8e-90: tmp = t_1 elif y <= 2.75e+31: tmp = i * (y * ((b * (a / y)) - j)) elif y <= 9.2e+43: tmp = b * (z * -c) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(t * Float64(Float64(c * j) - Float64(x * a))) t_2 = Float64(y * Float64(Float64(x * z) - Float64(i * j))) tmp = 0.0 if (y <= -2.4e-36) tmp = t_2; elseif (y <= -1.45e-84) tmp = Float64(a * Float64(Float64(b * i) - Float64(x * t))); elseif (y <= -7.5e-117) tmp = t_1; elseif (y <= -1.9e-164) tmp = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))); elseif (y <= 7.2e-259) tmp = Float64(Float64(c * Float64(t * j)) + Float64(a * Float64(b * i))); elseif (y <= 1e-192) tmp = Float64(z * Float64(Float64(x * y) - Float64(b * c))); elseif (y <= 5.8e-90) tmp = t_1; elseif (y <= 2.75e+31) tmp = Float64(i * Float64(y * Float64(Float64(b * Float64(a / y)) - j))); elseif (y <= 9.2e+43) tmp = Float64(b * Float64(z * Float64(-c))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = t * ((c * j) - (x * a)); t_2 = y * ((x * z) - (i * j)); tmp = 0.0; if (y <= -2.4e-36) tmp = t_2; elseif (y <= -1.45e-84) tmp = a * ((b * i) - (x * t)); elseif (y <= -7.5e-117) tmp = t_1; elseif (y <= -1.9e-164) tmp = b * (z * ((a * (i / z)) - c)); elseif (y <= 7.2e-259) tmp = (c * (t * j)) + (a * (b * i)); elseif (y <= 1e-192) tmp = z * ((x * y) - (b * c)); elseif (y <= 5.8e-90) tmp = t_1; elseif (y <= 2.75e+31) tmp = i * (y * ((b * (a / y)) - j)); elseif (y <= 9.2e+43) tmp = b * (z * -c); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2.4e-36], t$95$2, If[LessEqual[y, -1.45e-84], N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -7.5e-117], t$95$1, If[LessEqual[y, -1.9e-164], N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 7.2e-259], N[(N[(c * N[(t * j), $MachinePrecision]), $MachinePrecision] + N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1e-192], N[(z * N[(N[(x * y), $MachinePrecision] - N[(b * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 5.8e-90], t$95$1, If[LessEqual[y, 2.75e+31], N[(i * N[(y * N[(N[(b * N[(a / y), $MachinePrecision]), $MachinePrecision] - j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9.2e+43], N[(b * N[(z * (-c)), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(c \cdot j - x \cdot a\right)\\
t_2 := y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{if}\;y \leq -2.4 \cdot 10^{-36}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -1.45 \cdot 10^{-84}:\\
\;\;\;\;a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{elif}\;y \leq -7.5 \cdot 10^{-117}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -1.9 \cdot 10^{-164}:\\
\;\;\;\;b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
\mathbf{elif}\;y \leq 7.2 \cdot 10^{-259}:\\
\;\;\;\;c \cdot \left(t \cdot j\right) + a \cdot \left(b \cdot i\right)\\
\mathbf{elif}\;y \leq 10^{-192}:\\
\;\;\;\;z \cdot \left(x \cdot y - b \cdot c\right)\\
\mathbf{elif}\;y \leq 5.8 \cdot 10^{-90}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 2.75 \cdot 10^{+31}:\\
\;\;\;\;i \cdot \left(y \cdot \left(b \cdot \frac{a}{y} - j\right)\right)\\
\mathbf{elif}\;y \leq 9.2 \cdot 10^{+43}:\\
\;\;\;\;b \cdot \left(z \cdot \left(-c\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y < -2.4e-36 or 9.200000000000001e43 < y Initial program 64.5%
Taylor expanded in y around inf 68.0%
+-commutative68.0%
mul-1-neg68.0%
unsub-neg68.0%
*-commutative68.0%
Simplified68.0%
if -2.4e-36 < y < -1.4500000000000001e-84Initial program 99.9%
Taylor expanded in a around inf 70.2%
distribute-lft-out--70.2%
Simplified70.2%
Taylor expanded in t around 0 70.2%
+-commutative70.2%
mul-1-neg70.2%
distribute-rgt-neg-in70.2%
distribute-lft-out70.2%
unsub-neg70.2%
Simplified70.2%
if -1.4500000000000001e-84 < y < -7.50000000000000066e-117 or 1.0000000000000001e-192 < y < 5.79999999999999967e-90Initial program 93.7%
Taylor expanded in t around inf 58.9%
+-commutative58.9%
mul-1-neg58.9%
unsub-neg58.9%
Simplified58.9%
if -7.50000000000000066e-117 < y < -1.89999999999999995e-164Initial program 85.0%
Taylor expanded in b around inf 51.0%
Taylor expanded in z around inf 58.7%
associate-/l*66.3%
Simplified66.3%
if -1.89999999999999995e-164 < y < 7.1999999999999996e-259Initial program 80.0%
Taylor expanded in j around inf 75.2%
associate--l+75.2%
sub-neg75.2%
mul-1-neg75.2%
+-commutative75.2%
+-commutative75.2%
associate--r+75.2%
Simplified75.3%
Taylor expanded in i around inf 53.8%
associate-*r*51.4%
Simplified51.4%
Taylor expanded in a around 0 53.8%
sub-neg53.8%
*-commutative53.8%
associate-*r*51.5%
*-commutative51.5%
associate-*r*51.4%
associate-*r/51.3%
distribute-rgt-neg-in51.3%
distribute-lft-in51.3%
sub-neg51.3%
associate-/l*46.4%
Simplified46.4%
Taylor expanded in a around inf 53.8%
associate-/l*51.4%
*-commutative51.4%
associate-/l*46.6%
Simplified46.6%
Taylor expanded in j around 0 63.4%
if 7.1999999999999996e-259 < y < 1.0000000000000001e-192Initial program 85.8%
Taylor expanded in z around inf 83.5%
*-commutative83.5%
Simplified83.5%
if 5.79999999999999967e-90 < y < 2.75000000000000001e31Initial program 72.3%
Taylor expanded in i around inf 57.2%
distribute-lft-out--57.2%
*-commutative57.2%
Simplified57.2%
Taylor expanded in b around inf 52.9%
+-commutative52.9%
*-commutative52.9%
mul-1-neg52.9%
unsub-neg52.9%
*-commutative52.9%
associate-/l*56.9%
*-commutative56.9%
Simplified56.9%
Taylor expanded in b around inf 52.9%
mul-1-neg52.9%
distribute-frac-neg52.9%
distribute-lft-neg-in52.9%
associate-*r/56.9%
*-commutative56.9%
associate-*r/56.9%
distribute-lft-neg-in56.9%
+-commutative56.9%
distribute-lft-in52.9%
*-commutative52.9%
associate-*r*53.1%
distribute-rgt-neg-in53.1%
associate-*r*49.1%
distribute-lft-in57.1%
associate-*r/57.2%
*-commutative57.2%
Simplified57.1%
Taylor expanded in y around inf 57.2%
neg-mul-157.2%
+-commutative57.2%
unsub-neg57.2%
*-commutative57.2%
associate-/l*64.8%
Simplified64.8%
if 2.75000000000000001e31 < y < 9.200000000000001e43Initial program 66.7%
Taylor expanded in b around inf 100.0%
Taylor expanded in a around 0 100.0%
mul-1-neg100.0%
distribute-lft-neg-out100.0%
*-commutative100.0%
Simplified100.0%
Final simplification66.6%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* i (* j (- y))))
(t_2 (* a (- (* b i) (* x t))))
(t_3 (* c (- (* t j) (* z b)))))
(if (<= c -3.2e+86)
t_3
(if (<= c -7.5e-13)
(* x (- (* y z) (* t a)))
(if (<= c -6.5e-119)
t_1
(if (<= c -3.9e-196)
(* b (- (* a i) (* z c)))
(if (<= c -2.9e-278)
(* j (* i (- y)))
(if (<= c 7e-240)
t_2
(if (<= c 2e-219)
t_1
(if (<= c 2.45e+22)
t_2
(if (<= c 2.2e+167) (* t (- (* c j) (* x a))) t_3)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = i * (j * -y);
double t_2 = a * ((b * i) - (x * t));
double t_3 = c * ((t * j) - (z * b));
double tmp;
if (c <= -3.2e+86) {
tmp = t_3;
} else if (c <= -7.5e-13) {
tmp = x * ((y * z) - (t * a));
} else if (c <= -6.5e-119) {
tmp = t_1;
} else if (c <= -3.9e-196) {
tmp = b * ((a * i) - (z * c));
} else if (c <= -2.9e-278) {
tmp = j * (i * -y);
} else if (c <= 7e-240) {
tmp = t_2;
} else if (c <= 2e-219) {
tmp = t_1;
} else if (c <= 2.45e+22) {
tmp = t_2;
} else if (c <= 2.2e+167) {
tmp = t * ((c * j) - (x * a));
} else {
tmp = t_3;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = i * (j * -y)
t_2 = a * ((b * i) - (x * t))
t_3 = c * ((t * j) - (z * b))
if (c <= (-3.2d+86)) then
tmp = t_3
else if (c <= (-7.5d-13)) then
tmp = x * ((y * z) - (t * a))
else if (c <= (-6.5d-119)) then
tmp = t_1
else if (c <= (-3.9d-196)) then
tmp = b * ((a * i) - (z * c))
else if (c <= (-2.9d-278)) then
tmp = j * (i * -y)
else if (c <= 7d-240) then
tmp = t_2
else if (c <= 2d-219) then
tmp = t_1
else if (c <= 2.45d+22) then
tmp = t_2
else if (c <= 2.2d+167) then
tmp = t * ((c * j) - (x * a))
else
tmp = t_3
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = i * (j * -y);
double t_2 = a * ((b * i) - (x * t));
double t_3 = c * ((t * j) - (z * b));
double tmp;
if (c <= -3.2e+86) {
tmp = t_3;
} else if (c <= -7.5e-13) {
tmp = x * ((y * z) - (t * a));
} else if (c <= -6.5e-119) {
tmp = t_1;
} else if (c <= -3.9e-196) {
tmp = b * ((a * i) - (z * c));
} else if (c <= -2.9e-278) {
tmp = j * (i * -y);
} else if (c <= 7e-240) {
tmp = t_2;
} else if (c <= 2e-219) {
tmp = t_1;
} else if (c <= 2.45e+22) {
tmp = t_2;
} else if (c <= 2.2e+167) {
tmp = t * ((c * j) - (x * a));
} else {
tmp = t_3;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = i * (j * -y) t_2 = a * ((b * i) - (x * t)) t_3 = c * ((t * j) - (z * b)) tmp = 0 if c <= -3.2e+86: tmp = t_3 elif c <= -7.5e-13: tmp = x * ((y * z) - (t * a)) elif c <= -6.5e-119: tmp = t_1 elif c <= -3.9e-196: tmp = b * ((a * i) - (z * c)) elif c <= -2.9e-278: tmp = j * (i * -y) elif c <= 7e-240: tmp = t_2 elif c <= 2e-219: tmp = t_1 elif c <= 2.45e+22: tmp = t_2 elif c <= 2.2e+167: tmp = t * ((c * j) - (x * a)) else: tmp = t_3 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(i * Float64(j * Float64(-y))) t_2 = Float64(a * Float64(Float64(b * i) - Float64(x * t))) t_3 = Float64(c * Float64(Float64(t * j) - Float64(z * b))) tmp = 0.0 if (c <= -3.2e+86) tmp = t_3; elseif (c <= -7.5e-13) tmp = Float64(x * Float64(Float64(y * z) - Float64(t * a))); elseif (c <= -6.5e-119) tmp = t_1; elseif (c <= -3.9e-196) tmp = Float64(b * Float64(Float64(a * i) - Float64(z * c))); elseif (c <= -2.9e-278) tmp = Float64(j * Float64(i * Float64(-y))); elseif (c <= 7e-240) tmp = t_2; elseif (c <= 2e-219) tmp = t_1; elseif (c <= 2.45e+22) tmp = t_2; elseif (c <= 2.2e+167) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); else tmp = t_3; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = i * (j * -y); t_2 = a * ((b * i) - (x * t)); t_3 = c * ((t * j) - (z * b)); tmp = 0.0; if (c <= -3.2e+86) tmp = t_3; elseif (c <= -7.5e-13) tmp = x * ((y * z) - (t * a)); elseif (c <= -6.5e-119) tmp = t_1; elseif (c <= -3.9e-196) tmp = b * ((a * i) - (z * c)); elseif (c <= -2.9e-278) tmp = j * (i * -y); elseif (c <= 7e-240) tmp = t_2; elseif (c <= 2e-219) tmp = t_1; elseif (c <= 2.45e+22) tmp = t_2; elseif (c <= 2.2e+167) tmp = t * ((c * j) - (x * a)); else tmp = t_3; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(i * N[(j * (-y)), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(c * N[(N[(t * j), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -3.2e+86], t$95$3, If[LessEqual[c, -7.5e-13], N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -6.5e-119], t$95$1, If[LessEqual[c, -3.9e-196], N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -2.9e-278], N[(j * N[(i * (-y)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 7e-240], t$95$2, If[LessEqual[c, 2e-219], t$95$1, If[LessEqual[c, 2.45e+22], t$95$2, If[LessEqual[c, 2.2e+167], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$3]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(j \cdot \left(-y\right)\right)\\
t_2 := a \cdot \left(b \cdot i - x \cdot t\right)\\
t_3 := c \cdot \left(t \cdot j - z \cdot b\right)\\
\mathbf{if}\;c \leq -3.2 \cdot 10^{+86}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq -7.5 \cdot 10^{-13}:\\
\;\;\;\;x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{elif}\;c \leq -6.5 \cdot 10^{-119}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -3.9 \cdot 10^{-196}:\\
\;\;\;\;b \cdot \left(a \cdot i - z \cdot c\right)\\
\mathbf{elif}\;c \leq -2.9 \cdot 10^{-278}:\\
\;\;\;\;j \cdot \left(i \cdot \left(-y\right)\right)\\
\mathbf{elif}\;c \leq 7 \cdot 10^{-240}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 2 \cdot 10^{-219}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 2.45 \cdot 10^{+22}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 2.2 \cdot 10^{+167}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;t\_3\\
\end{array}
\end{array}
if c < -3.2e86 or 2.20000000000000003e167 < c Initial program 56.0%
Taylor expanded in c around inf 72.4%
if -3.2e86 < c < -7.5000000000000004e-13Initial program 82.8%
Taylor expanded in x around inf 67.6%
*-commutative67.6%
Simplified67.6%
if -7.5000000000000004e-13 < c < -6.5e-119 or 7.00000000000000032e-240 < c < 2.0000000000000001e-219Initial program 72.1%
Taylor expanded in i around inf 66.0%
distribute-lft-out--66.0%
*-commutative66.0%
Simplified66.0%
Taylor expanded in j around inf 55.3%
associate-*r*55.3%
mul-1-neg55.3%
*-commutative55.3%
Simplified55.3%
if -6.5e-119 < c < -3.90000000000000016e-196Initial program 77.5%
Taylor expanded in b around inf 67.3%
if -3.90000000000000016e-196 < c < -2.9e-278Initial program 86.1%
Taylor expanded in i around inf 64.8%
distribute-lft-out--64.8%
*-commutative64.8%
Simplified64.8%
Taylor expanded in j around inf 43.6%
associate-*r*43.6%
mul-1-neg43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in i around 0 43.6%
mul-1-neg43.6%
*-commutative43.6%
associate-*l*43.7%
distribute-rgt-neg-in43.7%
Simplified43.7%
if -2.9e-278 < c < 7.00000000000000032e-240 or 2.0000000000000001e-219 < c < 2.4499999999999999e22Initial program 86.1%
Taylor expanded in a around inf 53.9%
distribute-lft-out--53.9%
Simplified53.9%
Taylor expanded in t around 0 53.9%
+-commutative53.9%
mul-1-neg53.9%
distribute-rgt-neg-in53.9%
distribute-lft-out53.9%
unsub-neg53.9%
Simplified53.9%
if 2.4499999999999999e22 < c < 2.20000000000000003e167Initial program 83.0%
Taylor expanded in t around inf 66.3%
+-commutative66.3%
mul-1-neg66.3%
unsub-neg66.3%
Simplified66.3%
Final simplification62.7%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (- (* a i) (* z c)))) (t_2 (* a (- (* b i) (* x t)))))
(if (<= a -4.9e+17)
t_2
(if (<= a -1.02e-78)
t_1
(if (<= a -2.7e-213)
(* z (* b (- c)))
(if (<= a -2.35e-272)
(* t (* c j))
(if (<= a -8.5e-283)
(* i (* j (- y)))
(if (<= a 1.22e-287)
(* b (* z (- c)))
(if (<= a 2.7e-220)
(* y (* x z))
(if (<= a 1.2e-13)
(* j (* i (- y)))
(if (<= a 3.9e+18) t_1 t_2)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * ((a * i) - (z * c));
double t_2 = a * ((b * i) - (x * t));
double tmp;
if (a <= -4.9e+17) {
tmp = t_2;
} else if (a <= -1.02e-78) {
tmp = t_1;
} else if (a <= -2.7e-213) {
tmp = z * (b * -c);
} else if (a <= -2.35e-272) {
tmp = t * (c * j);
} else if (a <= -8.5e-283) {
tmp = i * (j * -y);
} else if (a <= 1.22e-287) {
tmp = b * (z * -c);
} else if (a <= 2.7e-220) {
tmp = y * (x * z);
} else if (a <= 1.2e-13) {
tmp = j * (i * -y);
} else if (a <= 3.9e+18) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = b * ((a * i) - (z * c))
t_2 = a * ((b * i) - (x * t))
if (a <= (-4.9d+17)) then
tmp = t_2
else if (a <= (-1.02d-78)) then
tmp = t_1
else if (a <= (-2.7d-213)) then
tmp = z * (b * -c)
else if (a <= (-2.35d-272)) then
tmp = t * (c * j)
else if (a <= (-8.5d-283)) then
tmp = i * (j * -y)
else if (a <= 1.22d-287) then
tmp = b * (z * -c)
else if (a <= 2.7d-220) then
tmp = y * (x * z)
else if (a <= 1.2d-13) then
tmp = j * (i * -y)
else if (a <= 3.9d+18) then
tmp = t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * ((a * i) - (z * c));
double t_2 = a * ((b * i) - (x * t));
double tmp;
if (a <= -4.9e+17) {
tmp = t_2;
} else if (a <= -1.02e-78) {
tmp = t_1;
} else if (a <= -2.7e-213) {
tmp = z * (b * -c);
} else if (a <= -2.35e-272) {
tmp = t * (c * j);
} else if (a <= -8.5e-283) {
tmp = i * (j * -y);
} else if (a <= 1.22e-287) {
tmp = b * (z * -c);
} else if (a <= 2.7e-220) {
tmp = y * (x * z);
} else if (a <= 1.2e-13) {
tmp = j * (i * -y);
} else if (a <= 3.9e+18) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * ((a * i) - (z * c)) t_2 = a * ((b * i) - (x * t)) tmp = 0 if a <= -4.9e+17: tmp = t_2 elif a <= -1.02e-78: tmp = t_1 elif a <= -2.7e-213: tmp = z * (b * -c) elif a <= -2.35e-272: tmp = t * (c * j) elif a <= -8.5e-283: tmp = i * (j * -y) elif a <= 1.22e-287: tmp = b * (z * -c) elif a <= 2.7e-220: tmp = y * (x * z) elif a <= 1.2e-13: tmp = j * (i * -y) elif a <= 3.9e+18: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(Float64(a * i) - Float64(z * c))) t_2 = Float64(a * Float64(Float64(b * i) - Float64(x * t))) tmp = 0.0 if (a <= -4.9e+17) tmp = t_2; elseif (a <= -1.02e-78) tmp = t_1; elseif (a <= -2.7e-213) tmp = Float64(z * Float64(b * Float64(-c))); elseif (a <= -2.35e-272) tmp = Float64(t * Float64(c * j)); elseif (a <= -8.5e-283) tmp = Float64(i * Float64(j * Float64(-y))); elseif (a <= 1.22e-287) tmp = Float64(b * Float64(z * Float64(-c))); elseif (a <= 2.7e-220) tmp = Float64(y * Float64(x * z)); elseif (a <= 1.2e-13) tmp = Float64(j * Float64(i * Float64(-y))); elseif (a <= 3.9e+18) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * ((a * i) - (z * c)); t_2 = a * ((b * i) - (x * t)); tmp = 0.0; if (a <= -4.9e+17) tmp = t_2; elseif (a <= -1.02e-78) tmp = t_1; elseif (a <= -2.7e-213) tmp = z * (b * -c); elseif (a <= -2.35e-272) tmp = t * (c * j); elseif (a <= -8.5e-283) tmp = i * (j * -y); elseif (a <= 1.22e-287) tmp = b * (z * -c); elseif (a <= 2.7e-220) tmp = y * (x * z); elseif (a <= 1.2e-13) tmp = j * (i * -y); elseif (a <= 3.9e+18) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -4.9e+17], t$95$2, If[LessEqual[a, -1.02e-78], t$95$1, If[LessEqual[a, -2.7e-213], N[(z * N[(b * (-c)), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -2.35e-272], N[(t * N[(c * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -8.5e-283], N[(i * N[(j * (-y)), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 1.22e-287], N[(b * N[(z * (-c)), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.7e-220], N[(y * N[(x * z), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 1.2e-13], N[(j * N[(i * (-y)), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 3.9e+18], t$95$1, t$95$2]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(a \cdot i - z \cdot c\right)\\
t_2 := a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{if}\;a \leq -4.9 \cdot 10^{+17}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq -1.02 \cdot 10^{-78}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -2.7 \cdot 10^{-213}:\\
\;\;\;\;z \cdot \left(b \cdot \left(-c\right)\right)\\
\mathbf{elif}\;a \leq -2.35 \cdot 10^{-272}:\\
\;\;\;\;t \cdot \left(c \cdot j\right)\\
\mathbf{elif}\;a \leq -8.5 \cdot 10^{-283}:\\
\;\;\;\;i \cdot \left(j \cdot \left(-y\right)\right)\\
\mathbf{elif}\;a \leq 1.22 \cdot 10^{-287}:\\
\;\;\;\;b \cdot \left(z \cdot \left(-c\right)\right)\\
\mathbf{elif}\;a \leq 2.7 \cdot 10^{-220}:\\
\;\;\;\;y \cdot \left(x \cdot z\right)\\
\mathbf{elif}\;a \leq 1.2 \cdot 10^{-13}:\\
\;\;\;\;j \cdot \left(i \cdot \left(-y\right)\right)\\
\mathbf{elif}\;a \leq 3.9 \cdot 10^{+18}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if a < -4.9e17 or 3.9e18 < a Initial program 68.7%
Taylor expanded in a around inf 63.2%
distribute-lft-out--63.2%
Simplified63.2%
Taylor expanded in t around 0 63.2%
+-commutative63.2%
mul-1-neg63.2%
distribute-rgt-neg-in63.2%
distribute-lft-out63.2%
unsub-neg63.2%
Simplified63.2%
if -4.9e17 < a < -1.02e-78 or 1.1999999999999999e-13 < a < 3.9e18Initial program 87.2%
Taylor expanded in b around inf 53.0%
if -1.02e-78 < a < -2.7000000000000001e-213Initial program 82.2%
Taylor expanded in j around inf 73.8%
associate--l+73.8%
sub-neg73.8%
mul-1-neg73.8%
+-commutative73.8%
+-commutative73.8%
associate--r+73.8%
Simplified73.9%
Taylor expanded in c around inf 65.5%
associate-*r/65.5%
associate-*r*65.5%
neg-mul-165.5%
*-commutative65.5%
Simplified65.5%
Taylor expanded in j around 0 38.4%
neg-mul-138.4%
*-commutative38.4%
associate-*r*38.4%
*-commutative38.4%
associate-*r*41.1%
distribute-rgt-neg-out41.1%
distribute-rgt-neg-in41.1%
Simplified41.1%
if -2.7000000000000001e-213 < a < -2.3499999999999999e-272Initial program 86.6%
Taylor expanded in t around inf 86.0%
+-commutative86.0%
mul-1-neg86.0%
unsub-neg86.0%
Simplified86.0%
Taylor expanded in c around inf 86.0%
if -2.3499999999999999e-272 < a < -8.49999999999999997e-283Initial program 76.4%
Taylor expanded in i around inf 100.0%
distribute-lft-out--100.0%
*-commutative100.0%
Simplified100.0%
Taylor expanded in j around inf 75.9%
associate-*r*75.9%
mul-1-neg75.9%
*-commutative75.9%
Simplified75.9%
if -8.49999999999999997e-283 < a < 1.21999999999999996e-287Initial program 37.5%
Taylor expanded in b around inf 63.1%
Taylor expanded in a around 0 63.1%
mul-1-neg63.1%
distribute-lft-neg-out63.1%
*-commutative63.1%
Simplified63.1%
if 1.21999999999999996e-287 < a < 2.7e-220Initial program 67.1%
Taylor expanded in y around inf 75.8%
+-commutative75.8%
mul-1-neg75.8%
unsub-neg75.8%
*-commutative75.8%
Simplified75.8%
Taylor expanded in z around inf 43.4%
*-commutative43.4%
associate-*l*51.1%
Simplified51.1%
if 2.7e-220 < a < 1.1999999999999999e-13Initial program 82.9%
Taylor expanded in i around inf 42.4%
distribute-lft-out--42.4%
*-commutative42.4%
Simplified42.4%
Taylor expanded in j around inf 42.1%
associate-*r*42.1%
mul-1-neg42.1%
*-commutative42.1%
Simplified42.1%
Taylor expanded in i around 0 42.1%
mul-1-neg42.1%
*-commutative42.1%
associate-*l*42.2%
distribute-rgt-neg-in42.2%
Simplified42.2%
Final simplification56.1%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (* z (- (* a (/ i z)) c)))))
(if (<= y -2e+53)
(* y (- (* x z) (* i j)))
(if (<= y -3e-47)
(* c (- (* t j) (* a (* t (/ x c)))))
(if (<= y -3.1e-71)
t_1
(if (<= y -7.2e-87)
(* b (- (* a i) (* a (* t (/ x b)))))
(if (<= y -4.8e-119)
(* t (- (* c j) (* x a)))
(if (<= y -1.15e-133)
t_1
(if (<= y 1.65e-261)
(* b (- (* a i) (* z c)))
(if (<= y 9.6e-169)
(* x (- (* y z) (* t a)))
(* i (* y (- (* b (/ a y)) j)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double tmp;
if (y <= -2e+53) {
tmp = y * ((x * z) - (i * j));
} else if (y <= -3e-47) {
tmp = c * ((t * j) - (a * (t * (x / c))));
} else if (y <= -3.1e-71) {
tmp = t_1;
} else if (y <= -7.2e-87) {
tmp = b * ((a * i) - (a * (t * (x / b))));
} else if (y <= -4.8e-119) {
tmp = t * ((c * j) - (x * a));
} else if (y <= -1.15e-133) {
tmp = t_1;
} else if (y <= 1.65e-261) {
tmp = b * ((a * i) - (z * c));
} else if (y <= 9.6e-169) {
tmp = x * ((y * z) - (t * a));
} else {
tmp = i * (y * ((b * (a / y)) - j));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: tmp
t_1 = b * (z * ((a * (i / z)) - c))
if (y <= (-2d+53)) then
tmp = y * ((x * z) - (i * j))
else if (y <= (-3d-47)) then
tmp = c * ((t * j) - (a * (t * (x / c))))
else if (y <= (-3.1d-71)) then
tmp = t_1
else if (y <= (-7.2d-87)) then
tmp = b * ((a * i) - (a * (t * (x / b))))
else if (y <= (-4.8d-119)) then
tmp = t * ((c * j) - (x * a))
else if (y <= (-1.15d-133)) then
tmp = t_1
else if (y <= 1.65d-261) then
tmp = b * ((a * i) - (z * c))
else if (y <= 9.6d-169) then
tmp = x * ((y * z) - (t * a))
else
tmp = i * (y * ((b * (a / y)) - j))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double tmp;
if (y <= -2e+53) {
tmp = y * ((x * z) - (i * j));
} else if (y <= -3e-47) {
tmp = c * ((t * j) - (a * (t * (x / c))));
} else if (y <= -3.1e-71) {
tmp = t_1;
} else if (y <= -7.2e-87) {
tmp = b * ((a * i) - (a * (t * (x / b))));
} else if (y <= -4.8e-119) {
tmp = t * ((c * j) - (x * a));
} else if (y <= -1.15e-133) {
tmp = t_1;
} else if (y <= 1.65e-261) {
tmp = b * ((a * i) - (z * c));
} else if (y <= 9.6e-169) {
tmp = x * ((y * z) - (t * a));
} else {
tmp = i * (y * ((b * (a / y)) - j));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * (z * ((a * (i / z)) - c)) tmp = 0 if y <= -2e+53: tmp = y * ((x * z) - (i * j)) elif y <= -3e-47: tmp = c * ((t * j) - (a * (t * (x / c)))) elif y <= -3.1e-71: tmp = t_1 elif y <= -7.2e-87: tmp = b * ((a * i) - (a * (t * (x / b)))) elif y <= -4.8e-119: tmp = t * ((c * j) - (x * a)) elif y <= -1.15e-133: tmp = t_1 elif y <= 1.65e-261: tmp = b * ((a * i) - (z * c)) elif y <= 9.6e-169: tmp = x * ((y * z) - (t * a)) else: tmp = i * (y * ((b * (a / y)) - j)) return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))) tmp = 0.0 if (y <= -2e+53) tmp = Float64(y * Float64(Float64(x * z) - Float64(i * j))); elseif (y <= -3e-47) tmp = Float64(c * Float64(Float64(t * j) - Float64(a * Float64(t * Float64(x / c))))); elseif (y <= -3.1e-71) tmp = t_1; elseif (y <= -7.2e-87) tmp = Float64(b * Float64(Float64(a * i) - Float64(a * Float64(t * Float64(x / b))))); elseif (y <= -4.8e-119) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); elseif (y <= -1.15e-133) tmp = t_1; elseif (y <= 1.65e-261) tmp = Float64(b * Float64(Float64(a * i) - Float64(z * c))); elseif (y <= 9.6e-169) tmp = Float64(x * Float64(Float64(y * z) - Float64(t * a))); else tmp = Float64(i * Float64(y * Float64(Float64(b * Float64(a / y)) - j))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * (z * ((a * (i / z)) - c)); tmp = 0.0; if (y <= -2e+53) tmp = y * ((x * z) - (i * j)); elseif (y <= -3e-47) tmp = c * ((t * j) - (a * (t * (x / c)))); elseif (y <= -3.1e-71) tmp = t_1; elseif (y <= -7.2e-87) tmp = b * ((a * i) - (a * (t * (x / b)))); elseif (y <= -4.8e-119) tmp = t * ((c * j) - (x * a)); elseif (y <= -1.15e-133) tmp = t_1; elseif (y <= 1.65e-261) tmp = b * ((a * i) - (z * c)); elseif (y <= 9.6e-169) tmp = x * ((y * z) - (t * a)); else tmp = i * (y * ((b * (a / y)) - j)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2e+53], N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -3e-47], N[(c * N[(N[(t * j), $MachinePrecision] - N[(a * N[(t * N[(x / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -3.1e-71], t$95$1, If[LessEqual[y, -7.2e-87], N[(b * N[(N[(a * i), $MachinePrecision] - N[(a * N[(t * N[(x / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -4.8e-119], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.15e-133], t$95$1, If[LessEqual[y, 1.65e-261], N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9.6e-169], N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(i * N[(y * N[(N[(b * N[(a / y), $MachinePrecision]), $MachinePrecision] - j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
\mathbf{if}\;y \leq -2 \cdot 10^{+53}:\\
\;\;\;\;y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{elif}\;y \leq -3 \cdot 10^{-47}:\\
\;\;\;\;c \cdot \left(t \cdot j - a \cdot \left(t \cdot \frac{x}{c}\right)\right)\\
\mathbf{elif}\;y \leq -3.1 \cdot 10^{-71}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -7.2 \cdot 10^{-87}:\\
\;\;\;\;b \cdot \left(a \cdot i - a \cdot \left(t \cdot \frac{x}{b}\right)\right)\\
\mathbf{elif}\;y \leq -4.8 \cdot 10^{-119}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{elif}\;y \leq -1.15 \cdot 10^{-133}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 1.65 \cdot 10^{-261}:\\
\;\;\;\;b \cdot \left(a \cdot i - z \cdot c\right)\\
\mathbf{elif}\;y \leq 9.6 \cdot 10^{-169}:\\
\;\;\;\;x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(y \cdot \left(b \cdot \frac{a}{y} - j\right)\right)\\
\end{array}
\end{array}
if y < -2e53Initial program 64.9%
Taylor expanded in y around inf 72.7%
+-commutative72.7%
mul-1-neg72.7%
unsub-neg72.7%
*-commutative72.7%
Simplified72.7%
if -2e53 < y < -3.00000000000000017e-47Initial program 85.5%
Taylor expanded in t around inf 38.6%
+-commutative38.6%
mul-1-neg38.6%
unsub-neg38.6%
Simplified38.6%
Taylor expanded in c around inf 45.3%
+-commutative45.3%
mul-1-neg45.3%
unsub-neg45.3%
associate-/l*59.1%
associate-/l*66.0%
Simplified66.0%
if -3.00000000000000017e-47 < y < -3.10000000000000002e-71 or -4.80000000000000017e-119 < y < -1.15e-133Initial program 90.6%
Taylor expanded in b around inf 55.6%
Taylor expanded in z around inf 72.9%
associate-/l*81.8%
Simplified81.8%
if -3.10000000000000002e-71 < y < -7.19999999999999986e-87Initial program 100.0%
Taylor expanded in a around inf 51.7%
distribute-lft-out--51.7%
Simplified51.7%
Taylor expanded in b around inf 67.2%
+-commutative67.2%
mul-1-neg67.2%
unsub-neg67.2%
*-commutative67.2%
associate-/l*67.2%
associate-/l*67.2%
Simplified67.2%
if -7.19999999999999986e-87 < y < -4.80000000000000017e-119Initial program 99.8%
Taylor expanded in t around inf 67.8%
+-commutative67.8%
mul-1-neg67.8%
unsub-neg67.8%
Simplified67.8%
if -1.15e-133 < y < 1.6499999999999999e-261Initial program 82.0%
Taylor expanded in b around inf 67.0%
if 1.6499999999999999e-261 < y < 9.60000000000000043e-169Initial program 88.3%
Taylor expanded in x around inf 63.3%
*-commutative63.3%
Simplified63.3%
if 9.60000000000000043e-169 < y Initial program 67.4%
Taylor expanded in i around inf 54.0%
distribute-lft-out--54.0%
*-commutative54.0%
Simplified54.0%
Taylor expanded in b around inf 43.0%
+-commutative43.0%
*-commutative43.0%
mul-1-neg43.0%
unsub-neg43.0%
*-commutative43.0%
associate-/l*46.4%
*-commutative46.4%
Simplified46.4%
Taylor expanded in b around inf 43.0%
mul-1-neg43.0%
distribute-frac-neg43.0%
distribute-lft-neg-in43.0%
associate-*r/46.4%
*-commutative46.4%
associate-*r/46.4%
distribute-lft-neg-in46.4%
+-commutative46.4%
distribute-lft-in42.0%
*-commutative42.0%
associate-*r*42.2%
distribute-rgt-neg-in42.2%
associate-*r*34.5%
distribute-lft-in48.7%
associate-*r/48.8%
*-commutative48.8%
Simplified52.0%
Taylor expanded in y around inf 54.0%
neg-mul-154.0%
+-commutative54.0%
unsub-neg54.0%
*-commutative54.0%
associate-/l*58.2%
Simplified58.2%
Final simplification65.7%
(FPCore (x y z t a b c i j)
:precision binary64
(if (<= y -1.22e-35)
(* y (- (* x z) (* i j)))
(if (<= y -5.2e-85)
(* a (- (* b i) (* x t)))
(if (<= y -1.3e-116)
(* t (- (* c j) (* x a)))
(if (<= y 2.5e-229)
(* b (* z (- (* a (/ i z)) c)))
(if (<= y 1.2e-164)
(* x (- (* y z) (* t a)))
(if (<= y 2.4e-164)
(* c (* t j))
(if (<= y 1.55e+118)
(* i (* y (- (* b (/ a y)) j)))
(if (<= y 1.96e+145)
(* z (- (* x y) (* b c)))
(* (* y j) (- (* x (/ z j)) i)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double tmp;
if (y <= -1.22e-35) {
tmp = y * ((x * z) - (i * j));
} else if (y <= -5.2e-85) {
tmp = a * ((b * i) - (x * t));
} else if (y <= -1.3e-116) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 2.5e-229) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (y <= 1.2e-164) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 2.4e-164) {
tmp = c * (t * j);
} else if (y <= 1.55e+118) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (y <= 1.96e+145) {
tmp = z * ((x * y) - (b * c));
} else {
tmp = (y * j) * ((x * (z / j)) - i);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: tmp
if (y <= (-1.22d-35)) then
tmp = y * ((x * z) - (i * j))
else if (y <= (-5.2d-85)) then
tmp = a * ((b * i) - (x * t))
else if (y <= (-1.3d-116)) then
tmp = t * ((c * j) - (x * a))
else if (y <= 2.5d-229) then
tmp = b * (z * ((a * (i / z)) - c))
else if (y <= 1.2d-164) then
tmp = x * ((y * z) - (t * a))
else if (y <= 2.4d-164) then
tmp = c * (t * j)
else if (y <= 1.55d+118) then
tmp = i * (y * ((b * (a / y)) - j))
else if (y <= 1.96d+145) then
tmp = z * ((x * y) - (b * c))
else
tmp = (y * j) * ((x * (z / j)) - i)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double tmp;
if (y <= -1.22e-35) {
tmp = y * ((x * z) - (i * j));
} else if (y <= -5.2e-85) {
tmp = a * ((b * i) - (x * t));
} else if (y <= -1.3e-116) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 2.5e-229) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (y <= 1.2e-164) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 2.4e-164) {
tmp = c * (t * j);
} else if (y <= 1.55e+118) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (y <= 1.96e+145) {
tmp = z * ((x * y) - (b * c));
} else {
tmp = (y * j) * ((x * (z / j)) - i);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): tmp = 0 if y <= -1.22e-35: tmp = y * ((x * z) - (i * j)) elif y <= -5.2e-85: tmp = a * ((b * i) - (x * t)) elif y <= -1.3e-116: tmp = t * ((c * j) - (x * a)) elif y <= 2.5e-229: tmp = b * (z * ((a * (i / z)) - c)) elif y <= 1.2e-164: tmp = x * ((y * z) - (t * a)) elif y <= 2.4e-164: tmp = c * (t * j) elif y <= 1.55e+118: tmp = i * (y * ((b * (a / y)) - j)) elif y <= 1.96e+145: tmp = z * ((x * y) - (b * c)) else: tmp = (y * j) * ((x * (z / j)) - i) return tmp
function code(x, y, z, t, a, b, c, i, j) tmp = 0.0 if (y <= -1.22e-35) tmp = Float64(y * Float64(Float64(x * z) - Float64(i * j))); elseif (y <= -5.2e-85) tmp = Float64(a * Float64(Float64(b * i) - Float64(x * t))); elseif (y <= -1.3e-116) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); elseif (y <= 2.5e-229) tmp = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))); elseif (y <= 1.2e-164) tmp = Float64(x * Float64(Float64(y * z) - Float64(t * a))); elseif (y <= 2.4e-164) tmp = Float64(c * Float64(t * j)); elseif (y <= 1.55e+118) tmp = Float64(i * Float64(y * Float64(Float64(b * Float64(a / y)) - j))); elseif (y <= 1.96e+145) tmp = Float64(z * Float64(Float64(x * y) - Float64(b * c))); else tmp = Float64(Float64(y * j) * Float64(Float64(x * Float64(z / j)) - i)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) tmp = 0.0; if (y <= -1.22e-35) tmp = y * ((x * z) - (i * j)); elseif (y <= -5.2e-85) tmp = a * ((b * i) - (x * t)); elseif (y <= -1.3e-116) tmp = t * ((c * j) - (x * a)); elseif (y <= 2.5e-229) tmp = b * (z * ((a * (i / z)) - c)); elseif (y <= 1.2e-164) tmp = x * ((y * z) - (t * a)); elseif (y <= 2.4e-164) tmp = c * (t * j); elseif (y <= 1.55e+118) tmp = i * (y * ((b * (a / y)) - j)); elseif (y <= 1.96e+145) tmp = z * ((x * y) - (b * c)); else tmp = (y * j) * ((x * (z / j)) - i); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := If[LessEqual[y, -1.22e-35], N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -5.2e-85], N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.3e-116], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.5e-229], N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.2e-164], N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.4e-164], N[(c * N[(t * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.55e+118], N[(i * N[(y * N[(N[(b * N[(a / y), $MachinePrecision]), $MachinePrecision] - j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.96e+145], N[(z * N[(N[(x * y), $MachinePrecision] - N[(b * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(y * j), $MachinePrecision] * N[(N[(x * N[(z / j), $MachinePrecision]), $MachinePrecision] - i), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -1.22 \cdot 10^{-35}:\\
\;\;\;\;y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{elif}\;y \leq -5.2 \cdot 10^{-85}:\\
\;\;\;\;a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{elif}\;y \leq -1.3 \cdot 10^{-116}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{elif}\;y \leq 2.5 \cdot 10^{-229}:\\
\;\;\;\;b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
\mathbf{elif}\;y \leq 1.2 \cdot 10^{-164}:\\
\;\;\;\;x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{elif}\;y \leq 2.4 \cdot 10^{-164}:\\
\;\;\;\;c \cdot \left(t \cdot j\right)\\
\mathbf{elif}\;y \leq 1.55 \cdot 10^{+118}:\\
\;\;\;\;i \cdot \left(y \cdot \left(b \cdot \frac{a}{y} - j\right)\right)\\
\mathbf{elif}\;y \leq 1.96 \cdot 10^{+145}:\\
\;\;\;\;z \cdot \left(x \cdot y - b \cdot c\right)\\
\mathbf{else}:\\
\;\;\;\;\left(y \cdot j\right) \cdot \left(x \cdot \frac{z}{j} - i\right)\\
\end{array}
\end{array}
if y < -1.22e-35Initial program 67.3%
Taylor expanded in y around inf 68.9%
+-commutative68.9%
mul-1-neg68.9%
unsub-neg68.9%
*-commutative68.9%
Simplified68.9%
if -1.22e-35 < y < -5.20000000000000023e-85Initial program 99.9%
Taylor expanded in a around inf 70.2%
distribute-lft-out--70.2%
Simplified70.2%
Taylor expanded in t around 0 70.2%
+-commutative70.2%
mul-1-neg70.2%
distribute-rgt-neg-in70.2%
distribute-lft-out70.2%
unsub-neg70.2%
Simplified70.2%
if -5.20000000000000023e-85 < y < -1.3e-116Initial program 99.8%
Taylor expanded in t around inf 61.4%
+-commutative61.4%
mul-1-neg61.4%
unsub-neg61.4%
Simplified61.4%
if -1.3e-116 < y < 2.50000000000000008e-229Initial program 81.1%
Taylor expanded in b around inf 59.3%
Taylor expanded in z around inf 59.5%
associate-/l*61.1%
Simplified61.1%
if 2.50000000000000008e-229 < y < 1.19999999999999992e-164Initial program 99.8%
Taylor expanded in x around inf 80.4%
*-commutative80.4%
Simplified80.4%
if 1.19999999999999992e-164 < y < 2.39999999999999983e-164Initial program 100.0%
Taylor expanded in j around inf 100.0%
associate--l+100.0%
sub-neg100.0%
mul-1-neg100.0%
+-commutative100.0%
+-commutative100.0%
associate--r+100.0%
Simplified100.0%
Taylor expanded in i around inf 100.0%
associate-*r*100.0%
Simplified100.0%
Taylor expanded in c around inf 100.0%
if 2.39999999999999983e-164 < y < 1.54999999999999993e118Initial program 74.3%
Taylor expanded in i around inf 49.8%
distribute-lft-out--49.8%
*-commutative49.8%
Simplified49.8%
Taylor expanded in b around inf 41.7%
+-commutative41.7%
*-commutative41.7%
mul-1-neg41.7%
unsub-neg41.7%
*-commutative41.7%
associate-/l*45.7%
*-commutative45.7%
Simplified45.7%
Taylor expanded in b around inf 41.7%
mul-1-neg41.7%
distribute-frac-neg41.7%
distribute-lft-neg-in41.7%
associate-*r/45.7%
*-commutative45.7%
associate-*r/45.7%
distribute-lft-neg-in45.7%
+-commutative45.7%
distribute-lft-in41.7%
*-commutative41.7%
associate-*r*42.0%
distribute-rgt-neg-in42.0%
associate-*r*39.9%
distribute-lft-in47.9%
associate-*r/48.0%
*-commutative48.0%
Simplified47.9%
Taylor expanded in y around inf 49.8%
neg-mul-149.8%
+-commutative49.8%
unsub-neg49.8%
*-commutative49.8%
associate-/l*55.5%
Simplified55.5%
if 1.54999999999999993e118 < y < 1.96e145Initial program 67.8%
Taylor expanded in z around inf 84.2%
*-commutative84.2%
Simplified84.2%
if 1.96e145 < y Initial program 56.1%
Taylor expanded in j around inf 56.6%
associate--l+56.6%
sub-neg56.6%
mul-1-neg56.6%
+-commutative56.6%
+-commutative56.6%
associate--r+56.6%
Simplified56.6%
Taylor expanded in y around inf 73.8%
associate-*r*73.7%
*-commutative73.7%
associate-/l*73.7%
Simplified73.7%
Final simplification65.9%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* j (+ (* t c) (* i (- (* a (/ b j)) y)))))
(t_2 (- (* x y) (* b c)))
(t_3 (* z t_2)))
(if (<= z -2.85e+171)
t_3
(if (<= z -3.8e+131)
t_1
(if (<= z -1.12e-14)
(* c (- (* t j) (* z b)))
(if (<= z 2.7e+25)
t_1
(if (<= z 1.6e+142)
t_3
(if (<= z 3.5e+156)
(* j (- (/ (* b (* z c)) (- j)) (* y i)))
(if (<= z 9.4e+275)
(* (* z j) (/ t_2 j))
(if (<= z 1.9e+280) (* b (* a i)) t_3))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = j * ((t * c) + (i * ((a * (b / j)) - y)));
double t_2 = (x * y) - (b * c);
double t_3 = z * t_2;
double tmp;
if (z <= -2.85e+171) {
tmp = t_3;
} else if (z <= -3.8e+131) {
tmp = t_1;
} else if (z <= -1.12e-14) {
tmp = c * ((t * j) - (z * b));
} else if (z <= 2.7e+25) {
tmp = t_1;
} else if (z <= 1.6e+142) {
tmp = t_3;
} else if (z <= 3.5e+156) {
tmp = j * (((b * (z * c)) / -j) - (y * i));
} else if (z <= 9.4e+275) {
tmp = (z * j) * (t_2 / j);
} else if (z <= 1.9e+280) {
tmp = b * (a * i);
} else {
tmp = t_3;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = j * ((t * c) + (i * ((a * (b / j)) - y)))
t_2 = (x * y) - (b * c)
t_3 = z * t_2
if (z <= (-2.85d+171)) then
tmp = t_3
else if (z <= (-3.8d+131)) then
tmp = t_1
else if (z <= (-1.12d-14)) then
tmp = c * ((t * j) - (z * b))
else if (z <= 2.7d+25) then
tmp = t_1
else if (z <= 1.6d+142) then
tmp = t_3
else if (z <= 3.5d+156) then
tmp = j * (((b * (z * c)) / -j) - (y * i))
else if (z <= 9.4d+275) then
tmp = (z * j) * (t_2 / j)
else if (z <= 1.9d+280) then
tmp = b * (a * i)
else
tmp = t_3
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = j * ((t * c) + (i * ((a * (b / j)) - y)));
double t_2 = (x * y) - (b * c);
double t_3 = z * t_2;
double tmp;
if (z <= -2.85e+171) {
tmp = t_3;
} else if (z <= -3.8e+131) {
tmp = t_1;
} else if (z <= -1.12e-14) {
tmp = c * ((t * j) - (z * b));
} else if (z <= 2.7e+25) {
tmp = t_1;
} else if (z <= 1.6e+142) {
tmp = t_3;
} else if (z <= 3.5e+156) {
tmp = j * (((b * (z * c)) / -j) - (y * i));
} else if (z <= 9.4e+275) {
tmp = (z * j) * (t_2 / j);
} else if (z <= 1.9e+280) {
tmp = b * (a * i);
} else {
tmp = t_3;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = j * ((t * c) + (i * ((a * (b / j)) - y))) t_2 = (x * y) - (b * c) t_3 = z * t_2 tmp = 0 if z <= -2.85e+171: tmp = t_3 elif z <= -3.8e+131: tmp = t_1 elif z <= -1.12e-14: tmp = c * ((t * j) - (z * b)) elif z <= 2.7e+25: tmp = t_1 elif z <= 1.6e+142: tmp = t_3 elif z <= 3.5e+156: tmp = j * (((b * (z * c)) / -j) - (y * i)) elif z <= 9.4e+275: tmp = (z * j) * (t_2 / j) elif z <= 1.9e+280: tmp = b * (a * i) else: tmp = t_3 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(j * Float64(Float64(t * c) + Float64(i * Float64(Float64(a * Float64(b / j)) - y)))) t_2 = Float64(Float64(x * y) - Float64(b * c)) t_3 = Float64(z * t_2) tmp = 0.0 if (z <= -2.85e+171) tmp = t_3; elseif (z <= -3.8e+131) tmp = t_1; elseif (z <= -1.12e-14) tmp = Float64(c * Float64(Float64(t * j) - Float64(z * b))); elseif (z <= 2.7e+25) tmp = t_1; elseif (z <= 1.6e+142) tmp = t_3; elseif (z <= 3.5e+156) tmp = Float64(j * Float64(Float64(Float64(b * Float64(z * c)) / Float64(-j)) - Float64(y * i))); elseif (z <= 9.4e+275) tmp = Float64(Float64(z * j) * Float64(t_2 / j)); elseif (z <= 1.9e+280) tmp = Float64(b * Float64(a * i)); else tmp = t_3; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = j * ((t * c) + (i * ((a * (b / j)) - y))); t_2 = (x * y) - (b * c); t_3 = z * t_2; tmp = 0.0; if (z <= -2.85e+171) tmp = t_3; elseif (z <= -3.8e+131) tmp = t_1; elseif (z <= -1.12e-14) tmp = c * ((t * j) - (z * b)); elseif (z <= 2.7e+25) tmp = t_1; elseif (z <= 1.6e+142) tmp = t_3; elseif (z <= 3.5e+156) tmp = j * (((b * (z * c)) / -j) - (y * i)); elseif (z <= 9.4e+275) tmp = (z * j) * (t_2 / j); elseif (z <= 1.9e+280) tmp = b * (a * i); else tmp = t_3; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(j * N[(N[(t * c), $MachinePrecision] + N[(i * N[(N[(a * N[(b / j), $MachinePrecision]), $MachinePrecision] - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y), $MachinePrecision] - N[(b * c), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(z * t$95$2), $MachinePrecision]}, If[LessEqual[z, -2.85e+171], t$95$3, If[LessEqual[z, -3.8e+131], t$95$1, If[LessEqual[z, -1.12e-14], N[(c * N[(N[(t * j), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.7e+25], t$95$1, If[LessEqual[z, 1.6e+142], t$95$3, If[LessEqual[z, 3.5e+156], N[(j * N[(N[(N[(b * N[(z * c), $MachinePrecision]), $MachinePrecision] / (-j)), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 9.4e+275], N[(N[(z * j), $MachinePrecision] * N[(t$95$2 / j), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.9e+280], N[(b * N[(a * i), $MachinePrecision]), $MachinePrecision], t$95$3]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(t \cdot c + i \cdot \left(a \cdot \frac{b}{j} - y\right)\right)\\
t_2 := x \cdot y - b \cdot c\\
t_3 := z \cdot t\_2\\
\mathbf{if}\;z \leq -2.85 \cdot 10^{+171}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;z \leq -3.8 \cdot 10^{+131}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -1.12 \cdot 10^{-14}:\\
\;\;\;\;c \cdot \left(t \cdot j - z \cdot b\right)\\
\mathbf{elif}\;z \leq 2.7 \cdot 10^{+25}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 1.6 \cdot 10^{+142}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;z \leq 3.5 \cdot 10^{+156}:\\
\;\;\;\;j \cdot \left(\frac{b \cdot \left(z \cdot c\right)}{-j} - y \cdot i\right)\\
\mathbf{elif}\;z \leq 9.4 \cdot 10^{+275}:\\
\;\;\;\;\left(z \cdot j\right) \cdot \frac{t\_2}{j}\\
\mathbf{elif}\;z \leq 1.9 \cdot 10^{+280}:\\
\;\;\;\;b \cdot \left(a \cdot i\right)\\
\mathbf{else}:\\
\;\;\;\;t\_3\\
\end{array}
\end{array}
if z < -2.85e171 or 2.7e25 < z < 1.60000000000000003e142 or 1.89999999999999982e280 < z Initial program 67.8%
Taylor expanded in z around inf 75.6%
*-commutative75.6%
Simplified75.6%
if -2.85e171 < z < -3.8000000000000004e131 or -1.12000000000000006e-14 < z < 2.7e25Initial program 85.1%
Taylor expanded in j around inf 77.9%
associate--l+77.9%
sub-neg77.9%
mul-1-neg77.9%
+-commutative77.9%
+-commutative77.9%
associate--r+77.9%
Simplified79.5%
Taylor expanded in i around inf 63.9%
associate-*r*65.0%
Simplified65.0%
Taylor expanded in a around 0 63.9%
sub-neg63.9%
*-commutative63.9%
associate-*r*66.2%
*-commutative66.2%
associate-*r*65.0%
associate-*r/67.2%
distribute-rgt-neg-in67.2%
distribute-lft-in68.7%
sub-neg68.7%
associate-/l*68.3%
Simplified68.3%
if -3.8000000000000004e131 < z < -1.12000000000000006e-14Initial program 61.5%
Taylor expanded in c around inf 58.3%
if 1.60000000000000003e142 < z < 3.5000000000000003e156Initial program 52.0%
Taylor expanded in j around inf 26.9%
associate--l+26.9%
sub-neg26.9%
mul-1-neg26.9%
+-commutative26.9%
+-commutative26.9%
associate--r+26.9%
Simplified52.0%
Taylor expanded in c around inf 75.0%
associate-*r/75.0%
associate-*r*75.0%
neg-mul-175.0%
*-commutative75.0%
Simplified75.0%
Taylor expanded in t around 0 75.0%
associate-*r/75.0%
neg-mul-175.0%
distribute-lft-neg-in75.0%
Simplified75.0%
if 3.5000000000000003e156 < z < 9.4000000000000001e275Initial program 55.6%
Taylor expanded in j around inf 42.2%
associate--l+42.2%
sub-neg42.2%
mul-1-neg42.2%
+-commutative42.2%
+-commutative42.2%
associate--r+42.2%
Simplified49.3%
Taylor expanded in z around inf 59.6%
associate-*r*68.9%
*-commutative68.9%
div-sub72.4%
*-commutative72.4%
Simplified72.4%
if 9.4000000000000001e275 < z < 1.89999999999999982e280Initial program 50.0%
Taylor expanded in b around inf 100.0%
Taylor expanded in a around inf 100.0%
Final simplification69.9%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* y (- (* x z) (* i j)))))
(if (<= y -1.24e-36)
t_1
(if (<= y -8e-85)
(* a (- (* b i) (* x t)))
(if (<= y -8.2e-118)
(* t (- (* c j) (* x a)))
(if (<= y 9.8e-238)
(* b (* z (- (* a (/ i z)) c)))
(if (<= y 8e-170)
(* x (- (* y z) (* t a)))
(if (<= y 2.6e-164)
(* c (* t j))
(if (<= y 1.6e+118)
(* i (* y (- (* b (/ a y)) j)))
(if (<= y 5.4e+144) (* z (- (* x y) (* b c))) t_1))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * ((x * z) - (i * j));
double tmp;
if (y <= -1.24e-36) {
tmp = t_1;
} else if (y <= -8e-85) {
tmp = a * ((b * i) - (x * t));
} else if (y <= -8.2e-118) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 9.8e-238) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (y <= 8e-170) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 2.6e-164) {
tmp = c * (t * j);
} else if (y <= 1.6e+118) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (y <= 5.4e+144) {
tmp = z * ((x * y) - (b * c));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: tmp
t_1 = y * ((x * z) - (i * j))
if (y <= (-1.24d-36)) then
tmp = t_1
else if (y <= (-8d-85)) then
tmp = a * ((b * i) - (x * t))
else if (y <= (-8.2d-118)) then
tmp = t * ((c * j) - (x * a))
else if (y <= 9.8d-238) then
tmp = b * (z * ((a * (i / z)) - c))
else if (y <= 8d-170) then
tmp = x * ((y * z) - (t * a))
else if (y <= 2.6d-164) then
tmp = c * (t * j)
else if (y <= 1.6d+118) then
tmp = i * (y * ((b * (a / y)) - j))
else if (y <= 5.4d+144) then
tmp = z * ((x * y) - (b * c))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * ((x * z) - (i * j));
double tmp;
if (y <= -1.24e-36) {
tmp = t_1;
} else if (y <= -8e-85) {
tmp = a * ((b * i) - (x * t));
} else if (y <= -8.2e-118) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 9.8e-238) {
tmp = b * (z * ((a * (i / z)) - c));
} else if (y <= 8e-170) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 2.6e-164) {
tmp = c * (t * j);
} else if (y <= 1.6e+118) {
tmp = i * (y * ((b * (a / y)) - j));
} else if (y <= 5.4e+144) {
tmp = z * ((x * y) - (b * c));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = y * ((x * z) - (i * j)) tmp = 0 if y <= -1.24e-36: tmp = t_1 elif y <= -8e-85: tmp = a * ((b * i) - (x * t)) elif y <= -8.2e-118: tmp = t * ((c * j) - (x * a)) elif y <= 9.8e-238: tmp = b * (z * ((a * (i / z)) - c)) elif y <= 8e-170: tmp = x * ((y * z) - (t * a)) elif y <= 2.6e-164: tmp = c * (t * j) elif y <= 1.6e+118: tmp = i * (y * ((b * (a / y)) - j)) elif y <= 5.4e+144: tmp = z * ((x * y) - (b * c)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(y * Float64(Float64(x * z) - Float64(i * j))) tmp = 0.0 if (y <= -1.24e-36) tmp = t_1; elseif (y <= -8e-85) tmp = Float64(a * Float64(Float64(b * i) - Float64(x * t))); elseif (y <= -8.2e-118) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); elseif (y <= 9.8e-238) tmp = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))); elseif (y <= 8e-170) tmp = Float64(x * Float64(Float64(y * z) - Float64(t * a))); elseif (y <= 2.6e-164) tmp = Float64(c * Float64(t * j)); elseif (y <= 1.6e+118) tmp = Float64(i * Float64(y * Float64(Float64(b * Float64(a / y)) - j))); elseif (y <= 5.4e+144) tmp = Float64(z * Float64(Float64(x * y) - Float64(b * c))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = y * ((x * z) - (i * j)); tmp = 0.0; if (y <= -1.24e-36) tmp = t_1; elseif (y <= -8e-85) tmp = a * ((b * i) - (x * t)); elseif (y <= -8.2e-118) tmp = t * ((c * j) - (x * a)); elseif (y <= 9.8e-238) tmp = b * (z * ((a * (i / z)) - c)); elseif (y <= 8e-170) tmp = x * ((y * z) - (t * a)); elseif (y <= 2.6e-164) tmp = c * (t * j); elseif (y <= 1.6e+118) tmp = i * (y * ((b * (a / y)) - j)); elseif (y <= 5.4e+144) tmp = z * ((x * y) - (b * c)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.24e-36], t$95$1, If[LessEqual[y, -8e-85], N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -8.2e-118], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9.8e-238], N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 8e-170], N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.6e-164], N[(c * N[(t * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.6e+118], N[(i * N[(y * N[(N[(b * N[(a / y), $MachinePrecision]), $MachinePrecision] - j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 5.4e+144], N[(z * N[(N[(x * y), $MachinePrecision] - N[(b * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{if}\;y \leq -1.24 \cdot 10^{-36}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -8 \cdot 10^{-85}:\\
\;\;\;\;a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{elif}\;y \leq -8.2 \cdot 10^{-118}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{elif}\;y \leq 9.8 \cdot 10^{-238}:\\
\;\;\;\;b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
\mathbf{elif}\;y \leq 8 \cdot 10^{-170}:\\
\;\;\;\;x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{elif}\;y \leq 2.6 \cdot 10^{-164}:\\
\;\;\;\;c \cdot \left(t \cdot j\right)\\
\mathbf{elif}\;y \leq 1.6 \cdot 10^{+118}:\\
\;\;\;\;i \cdot \left(y \cdot \left(b \cdot \frac{a}{y} - j\right)\right)\\
\mathbf{elif}\;y \leq 5.4 \cdot 10^{+144}:\\
\;\;\;\;z \cdot \left(x \cdot y - b \cdot c\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -1.23999999999999997e-36 or 5.4000000000000003e144 < y Initial program 63.8%
Taylor expanded in y around inf 69.6%
+-commutative69.6%
mul-1-neg69.6%
unsub-neg69.6%
*-commutative69.6%
Simplified69.6%
if -1.23999999999999997e-36 < y < -7.9999999999999998e-85Initial program 99.9%
Taylor expanded in a around inf 70.2%
distribute-lft-out--70.2%
Simplified70.2%
Taylor expanded in t around 0 70.2%
+-commutative70.2%
mul-1-neg70.2%
distribute-rgt-neg-in70.2%
distribute-lft-out70.2%
unsub-neg70.2%
Simplified70.2%
if -7.9999999999999998e-85 < y < -8.2000000000000006e-118Initial program 99.8%
Taylor expanded in t around inf 61.4%
+-commutative61.4%
mul-1-neg61.4%
unsub-neg61.4%
Simplified61.4%
if -8.2000000000000006e-118 < y < 9.7999999999999996e-238Initial program 81.1%
Taylor expanded in b around inf 59.3%
Taylor expanded in z around inf 59.5%
associate-/l*61.1%
Simplified61.1%
if 9.7999999999999996e-238 < y < 7.99999999999999987e-170Initial program 99.8%
Taylor expanded in x around inf 80.4%
*-commutative80.4%
Simplified80.4%
if 7.99999999999999987e-170 < y < 2.6000000000000002e-164Initial program 100.0%
Taylor expanded in j around inf 100.0%
associate--l+100.0%
sub-neg100.0%
mul-1-neg100.0%
+-commutative100.0%
+-commutative100.0%
associate--r+100.0%
Simplified100.0%
Taylor expanded in i around inf 100.0%
associate-*r*100.0%
Simplified100.0%
Taylor expanded in c around inf 100.0%
if 2.6000000000000002e-164 < y < 1.60000000000000008e118Initial program 74.3%
Taylor expanded in i around inf 49.8%
distribute-lft-out--49.8%
*-commutative49.8%
Simplified49.8%
Taylor expanded in b around inf 41.7%
+-commutative41.7%
*-commutative41.7%
mul-1-neg41.7%
unsub-neg41.7%
*-commutative41.7%
associate-/l*45.7%
*-commutative45.7%
Simplified45.7%
Taylor expanded in b around inf 41.7%
mul-1-neg41.7%
distribute-frac-neg41.7%
distribute-lft-neg-in41.7%
associate-*r/45.7%
*-commutative45.7%
associate-*r/45.7%
distribute-lft-neg-in45.7%
+-commutative45.7%
distribute-lft-in41.7%
*-commutative41.7%
associate-*r*42.0%
distribute-rgt-neg-in42.0%
associate-*r*39.9%
distribute-lft-in47.9%
associate-*r/48.0%
*-commutative48.0%
Simplified47.9%
Taylor expanded in y around inf 49.8%
neg-mul-149.8%
+-commutative49.8%
unsub-neg49.8%
*-commutative49.8%
associate-/l*55.5%
Simplified55.5%
if 1.60000000000000008e118 < y < 5.4000000000000003e144Initial program 67.8%
Taylor expanded in z around inf 84.2%
*-commutative84.2%
Simplified84.2%
Final simplification65.5%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* t (* c j))) (t_2 (* a (- (* b i) (* x t)))))
(if (<= a -5.2e+18)
t_2
(if (<= a -2.6e-134)
(* z (* b (- c)))
(if (<= a -9.5e-170)
t_1
(if (<= a -3.9e-213)
(* z (* x y))
(if (<= a -2e-275)
t_1
(if (<= a 2.25e-175)
(* i (* j (- y)))
(if (<= a 2.2e-66)
(* j (* t c))
(if (<= a 2.4e-20) (* j (* i (- y))) t_2))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = t * (c * j);
double t_2 = a * ((b * i) - (x * t));
double tmp;
if (a <= -5.2e+18) {
tmp = t_2;
} else if (a <= -2.6e-134) {
tmp = z * (b * -c);
} else if (a <= -9.5e-170) {
tmp = t_1;
} else if (a <= -3.9e-213) {
tmp = z * (x * y);
} else if (a <= -2e-275) {
tmp = t_1;
} else if (a <= 2.25e-175) {
tmp = i * (j * -y);
} else if (a <= 2.2e-66) {
tmp = j * (t * c);
} else if (a <= 2.4e-20) {
tmp = j * (i * -y);
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = t * (c * j)
t_2 = a * ((b * i) - (x * t))
if (a <= (-5.2d+18)) then
tmp = t_2
else if (a <= (-2.6d-134)) then
tmp = z * (b * -c)
else if (a <= (-9.5d-170)) then
tmp = t_1
else if (a <= (-3.9d-213)) then
tmp = z * (x * y)
else if (a <= (-2d-275)) then
tmp = t_1
else if (a <= 2.25d-175) then
tmp = i * (j * -y)
else if (a <= 2.2d-66) then
tmp = j * (t * c)
else if (a <= 2.4d-20) then
tmp = j * (i * -y)
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = t * (c * j);
double t_2 = a * ((b * i) - (x * t));
double tmp;
if (a <= -5.2e+18) {
tmp = t_2;
} else if (a <= -2.6e-134) {
tmp = z * (b * -c);
} else if (a <= -9.5e-170) {
tmp = t_1;
} else if (a <= -3.9e-213) {
tmp = z * (x * y);
} else if (a <= -2e-275) {
tmp = t_1;
} else if (a <= 2.25e-175) {
tmp = i * (j * -y);
} else if (a <= 2.2e-66) {
tmp = j * (t * c);
} else if (a <= 2.4e-20) {
tmp = j * (i * -y);
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = t * (c * j) t_2 = a * ((b * i) - (x * t)) tmp = 0 if a <= -5.2e+18: tmp = t_2 elif a <= -2.6e-134: tmp = z * (b * -c) elif a <= -9.5e-170: tmp = t_1 elif a <= -3.9e-213: tmp = z * (x * y) elif a <= -2e-275: tmp = t_1 elif a <= 2.25e-175: tmp = i * (j * -y) elif a <= 2.2e-66: tmp = j * (t * c) elif a <= 2.4e-20: tmp = j * (i * -y) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(t * Float64(c * j)) t_2 = Float64(a * Float64(Float64(b * i) - Float64(x * t))) tmp = 0.0 if (a <= -5.2e+18) tmp = t_2; elseif (a <= -2.6e-134) tmp = Float64(z * Float64(b * Float64(-c))); elseif (a <= -9.5e-170) tmp = t_1; elseif (a <= -3.9e-213) tmp = Float64(z * Float64(x * y)); elseif (a <= -2e-275) tmp = t_1; elseif (a <= 2.25e-175) tmp = Float64(i * Float64(j * Float64(-y))); elseif (a <= 2.2e-66) tmp = Float64(j * Float64(t * c)); elseif (a <= 2.4e-20) tmp = Float64(j * Float64(i * Float64(-y))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = t * (c * j); t_2 = a * ((b * i) - (x * t)); tmp = 0.0; if (a <= -5.2e+18) tmp = t_2; elseif (a <= -2.6e-134) tmp = z * (b * -c); elseif (a <= -9.5e-170) tmp = t_1; elseif (a <= -3.9e-213) tmp = z * (x * y); elseif (a <= -2e-275) tmp = t_1; elseif (a <= 2.25e-175) tmp = i * (j * -y); elseif (a <= 2.2e-66) tmp = j * (t * c); elseif (a <= 2.4e-20) tmp = j * (i * -y); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(t * N[(c * j), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -5.2e+18], t$95$2, If[LessEqual[a, -2.6e-134], N[(z * N[(b * (-c)), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -9.5e-170], t$95$1, If[LessEqual[a, -3.9e-213], N[(z * N[(x * y), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -2e-275], t$95$1, If[LessEqual[a, 2.25e-175], N[(i * N[(j * (-y)), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.2e-66], N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.4e-20], N[(j * N[(i * (-y)), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(c \cdot j\right)\\
t_2 := a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{if}\;a \leq -5.2 \cdot 10^{+18}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq -2.6 \cdot 10^{-134}:\\
\;\;\;\;z \cdot \left(b \cdot \left(-c\right)\right)\\
\mathbf{elif}\;a \leq -9.5 \cdot 10^{-170}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -3.9 \cdot 10^{-213}:\\
\;\;\;\;z \cdot \left(x \cdot y\right)\\
\mathbf{elif}\;a \leq -2 \cdot 10^{-275}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 2.25 \cdot 10^{-175}:\\
\;\;\;\;i \cdot \left(j \cdot \left(-y\right)\right)\\
\mathbf{elif}\;a \leq 2.2 \cdot 10^{-66}:\\
\;\;\;\;j \cdot \left(t \cdot c\right)\\
\mathbf{elif}\;a \leq 2.4 \cdot 10^{-20}:\\
\;\;\;\;j \cdot \left(i \cdot \left(-y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if a < -5.2e18 or 2.39999999999999993e-20 < a Initial program 70.8%
Taylor expanded in a around inf 59.9%
distribute-lft-out--59.9%
Simplified59.9%
Taylor expanded in t around 0 59.9%
+-commutative59.9%
mul-1-neg59.9%
distribute-rgt-neg-in59.9%
distribute-lft-out59.9%
unsub-neg59.9%
Simplified59.9%
if -5.2e18 < a < -2.60000000000000023e-134Initial program 81.0%
Taylor expanded in j around inf 73.0%
associate--l+73.0%
sub-neg73.0%
mul-1-neg73.0%
+-commutative73.0%
+-commutative73.0%
associate--r+73.0%
Simplified78.7%
Taylor expanded in c around inf 70.6%
associate-*r/70.6%
associate-*r*70.6%
neg-mul-170.6%
*-commutative70.6%
Simplified70.6%
Taylor expanded in j around 0 41.0%
neg-mul-141.0%
*-commutative41.0%
associate-*r*43.5%
*-commutative43.5%
associate-*r*46.1%
distribute-rgt-neg-out46.1%
distribute-rgt-neg-in46.1%
Simplified46.1%
if -2.60000000000000023e-134 < a < -9.5000000000000001e-170 or -3.89999999999999989e-213 < a < -1.99999999999999987e-275Initial program 89.2%
Taylor expanded in t around inf 62.4%
+-commutative62.4%
mul-1-neg62.4%
unsub-neg62.4%
Simplified62.4%
Taylor expanded in c around inf 62.1%
if -9.5000000000000001e-170 < a < -3.89999999999999989e-213Initial program 88.7%
Taylor expanded in j around inf 67.9%
associate--l+67.9%
sub-neg67.9%
mul-1-neg67.9%
+-commutative67.9%
+-commutative67.9%
associate--r+67.9%
Simplified68.5%
Taylor expanded in z around inf 47.2%
associate-*r*57.8%
*-commutative57.8%
div-sub57.8%
*-commutative57.8%
Simplified57.8%
Taylor expanded in x around inf 46.4%
*-commutative46.4%
*-commutative46.4%
associate-*l*46.4%
Simplified46.4%
if -1.99999999999999987e-275 < a < 2.24999999999999999e-175Initial program 65.1%
Taylor expanded in i around inf 47.0%
distribute-lft-out--47.0%
*-commutative47.0%
Simplified47.0%
Taylor expanded in j around inf 46.7%
associate-*r*46.7%
mul-1-neg46.7%
*-commutative46.7%
Simplified46.7%
if 2.24999999999999999e-175 < a < 2.2000000000000001e-66Initial program 85.6%
Taylor expanded in j around inf 78.5%
associate--l+78.5%
sub-neg78.5%
mul-1-neg78.5%
+-commutative78.5%
+-commutative78.5%
associate--r+78.5%
Simplified85.6%
Taylor expanded in i around inf 79.1%
associate-*r*79.1%
Simplified79.1%
Taylor expanded in c around inf 43.9%
associate-*r*37.1%
*-commutative37.1%
associate-*r*50.5%
Simplified50.5%
if 2.2000000000000001e-66 < a < 2.39999999999999993e-20Initial program 74.2%
Taylor expanded in i around inf 42.5%
distribute-lft-out--42.5%
*-commutative42.5%
Simplified42.5%
Taylor expanded in j around inf 42.3%
associate-*r*42.3%
mul-1-neg42.3%
*-commutative42.3%
Simplified42.3%
Taylor expanded in i around 0 42.3%
mul-1-neg42.3%
*-commutative42.3%
associate-*l*42.3%
distribute-rgt-neg-in42.3%
Simplified42.3%
Final simplification54.5%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (- (* a i) (* z c))))
(t_2 (+ (* t (- (* c j) (* x a))) t_1))
(t_3 (* x (- (* y z) (* t a))))
(t_4 (* j (- (* t c) (* y i))))
(t_5 (+ t_4 t_3)))
(if (<= x -6.6e+34)
t_5
(if (<= x -1.5e-45)
t_2
(if (<= x -1.26e-86)
(* i (- (* a b) (* y j)))
(if (<= x 6e+147)
(+ t_4 t_1)
(if (<= x 4.8e+230) t_2 (if (<= x 1.9e+261) t_3 t_5))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * ((a * i) - (z * c));
double t_2 = (t * ((c * j) - (x * a))) + t_1;
double t_3 = x * ((y * z) - (t * a));
double t_4 = j * ((t * c) - (y * i));
double t_5 = t_4 + t_3;
double tmp;
if (x <= -6.6e+34) {
tmp = t_5;
} else if (x <= -1.5e-45) {
tmp = t_2;
} else if (x <= -1.26e-86) {
tmp = i * ((a * b) - (y * j));
} else if (x <= 6e+147) {
tmp = t_4 + t_1;
} else if (x <= 4.8e+230) {
tmp = t_2;
} else if (x <= 1.9e+261) {
tmp = t_3;
} else {
tmp = t_5;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: tmp
t_1 = b * ((a * i) - (z * c))
t_2 = (t * ((c * j) - (x * a))) + t_1
t_3 = x * ((y * z) - (t * a))
t_4 = j * ((t * c) - (y * i))
t_5 = t_4 + t_3
if (x <= (-6.6d+34)) then
tmp = t_5
else if (x <= (-1.5d-45)) then
tmp = t_2
else if (x <= (-1.26d-86)) then
tmp = i * ((a * b) - (y * j))
else if (x <= 6d+147) then
tmp = t_4 + t_1
else if (x <= 4.8d+230) then
tmp = t_2
else if (x <= 1.9d+261) then
tmp = t_3
else
tmp = t_5
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * ((a * i) - (z * c));
double t_2 = (t * ((c * j) - (x * a))) + t_1;
double t_3 = x * ((y * z) - (t * a));
double t_4 = j * ((t * c) - (y * i));
double t_5 = t_4 + t_3;
double tmp;
if (x <= -6.6e+34) {
tmp = t_5;
} else if (x <= -1.5e-45) {
tmp = t_2;
} else if (x <= -1.26e-86) {
tmp = i * ((a * b) - (y * j));
} else if (x <= 6e+147) {
tmp = t_4 + t_1;
} else if (x <= 4.8e+230) {
tmp = t_2;
} else if (x <= 1.9e+261) {
tmp = t_3;
} else {
tmp = t_5;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * ((a * i) - (z * c)) t_2 = (t * ((c * j) - (x * a))) + t_1 t_3 = x * ((y * z) - (t * a)) t_4 = j * ((t * c) - (y * i)) t_5 = t_4 + t_3 tmp = 0 if x <= -6.6e+34: tmp = t_5 elif x <= -1.5e-45: tmp = t_2 elif x <= -1.26e-86: tmp = i * ((a * b) - (y * j)) elif x <= 6e+147: tmp = t_4 + t_1 elif x <= 4.8e+230: tmp = t_2 elif x <= 1.9e+261: tmp = t_3 else: tmp = t_5 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(Float64(a * i) - Float64(z * c))) t_2 = Float64(Float64(t * Float64(Float64(c * j) - Float64(x * a))) + t_1) t_3 = Float64(x * Float64(Float64(y * z) - Float64(t * a))) t_4 = Float64(j * Float64(Float64(t * c) - Float64(y * i))) t_5 = Float64(t_4 + t_3) tmp = 0.0 if (x <= -6.6e+34) tmp = t_5; elseif (x <= -1.5e-45) tmp = t_2; elseif (x <= -1.26e-86) tmp = Float64(i * Float64(Float64(a * b) - Float64(y * j))); elseif (x <= 6e+147) tmp = Float64(t_4 + t_1); elseif (x <= 4.8e+230) tmp = t_2; elseif (x <= 1.9e+261) tmp = t_3; else tmp = t_5; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * ((a * i) - (z * c)); t_2 = (t * ((c * j) - (x * a))) + t_1; t_3 = x * ((y * z) - (t * a)); t_4 = j * ((t * c) - (y * i)); t_5 = t_4 + t_3; tmp = 0.0; if (x <= -6.6e+34) tmp = t_5; elseif (x <= -1.5e-45) tmp = t_2; elseif (x <= -1.26e-86) tmp = i * ((a * b) - (y * j)); elseif (x <= 6e+147) tmp = t_4 + t_1; elseif (x <= 4.8e+230) tmp = t_2; elseif (x <= 1.9e+261) tmp = t_3; else tmp = t_5; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$4 + t$95$3), $MachinePrecision]}, If[LessEqual[x, -6.6e+34], t$95$5, If[LessEqual[x, -1.5e-45], t$95$2, If[LessEqual[x, -1.26e-86], N[(i * N[(N[(a * b), $MachinePrecision] - N[(y * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6e+147], N[(t$95$4 + t$95$1), $MachinePrecision], If[LessEqual[x, 4.8e+230], t$95$2, If[LessEqual[x, 1.9e+261], t$95$3, t$95$5]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(a \cdot i - z \cdot c\right)\\
t_2 := t \cdot \left(c \cdot j - x \cdot a\right) + t\_1\\
t_3 := x \cdot \left(y \cdot z - t \cdot a\right)\\
t_4 := j \cdot \left(t \cdot c - y \cdot i\right)\\
t_5 := t\_4 + t\_3\\
\mathbf{if}\;x \leq -6.6 \cdot 10^{+34}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;x \leq -1.5 \cdot 10^{-45}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq -1.26 \cdot 10^{-86}:\\
\;\;\;\;i \cdot \left(a \cdot b - y \cdot j\right)\\
\mathbf{elif}\;x \leq 6 \cdot 10^{+147}:\\
\;\;\;\;t\_4 + t\_1\\
\mathbf{elif}\;x \leq 4.8 \cdot 10^{+230}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 1.9 \cdot 10^{+261}:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;t\_5\\
\end{array}
\end{array}
if x < -6.59999999999999976e34 or 1.9000000000000001e261 < x Initial program 65.8%
Taylor expanded in b around 0 71.0%
if -6.59999999999999976e34 < x < -1.50000000000000005e-45 or 5.99999999999999987e147 < x < 4.79999999999999996e230Initial program 83.5%
Taylor expanded in y around 0 72.4%
associate-*r*72.4%
*-commutative72.4%
associate-*r*77.9%
associate-*r*77.9%
associate-*r*77.9%
distribute-rgt-in77.9%
+-commutative77.9%
mul-1-neg77.9%
unsub-neg77.9%
Simplified77.9%
if -1.50000000000000005e-45 < x < -1.25999999999999995e-86Initial program 66.5%
Taylor expanded in i around inf 69.4%
distribute-lft-out--69.4%
*-commutative69.4%
Simplified69.4%
if -1.25999999999999995e-86 < x < 5.99999999999999987e147Initial program 77.9%
Taylor expanded in x around 0 74.9%
if 4.79999999999999996e230 < x < 1.9000000000000001e261Initial program 50.0%
Taylor expanded in x around inf 100.0%
*-commutative100.0%
Simplified100.0%
Final simplification74.7%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* j (- (* t c) (+ (* y i) (/ (* b (* z c)) j))))))
(if (<= a -1.6e+165)
(* a (- (* b i) (* x t)))
(if (<= a -4.6e+72)
(* i (* b (- a (* j (/ y b)))))
(if (<= a -2.3e-272)
t_1
(if (<= a 7.5e-225)
(* y (- (* x z) (* i j)))
(if (<= a 620.0)
t_1
(if (<= a 5.5e+44)
(* b (* z (- (* a (/ i z)) c)))
(* j (+ (* t c) (* i (- (* a (/ b j)) y))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = j * ((t * c) - ((y * i) + ((b * (z * c)) / j)));
double tmp;
if (a <= -1.6e+165) {
tmp = a * ((b * i) - (x * t));
} else if (a <= -4.6e+72) {
tmp = i * (b * (a - (j * (y / b))));
} else if (a <= -2.3e-272) {
tmp = t_1;
} else if (a <= 7.5e-225) {
tmp = y * ((x * z) - (i * j));
} else if (a <= 620.0) {
tmp = t_1;
} else if (a <= 5.5e+44) {
tmp = b * (z * ((a * (i / z)) - c));
} else {
tmp = j * ((t * c) + (i * ((a * (b / j)) - y)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: tmp
t_1 = j * ((t * c) - ((y * i) + ((b * (z * c)) / j)))
if (a <= (-1.6d+165)) then
tmp = a * ((b * i) - (x * t))
else if (a <= (-4.6d+72)) then
tmp = i * (b * (a - (j * (y / b))))
else if (a <= (-2.3d-272)) then
tmp = t_1
else if (a <= 7.5d-225) then
tmp = y * ((x * z) - (i * j))
else if (a <= 620.0d0) then
tmp = t_1
else if (a <= 5.5d+44) then
tmp = b * (z * ((a * (i / z)) - c))
else
tmp = j * ((t * c) + (i * ((a * (b / j)) - y)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = j * ((t * c) - ((y * i) + ((b * (z * c)) / j)));
double tmp;
if (a <= -1.6e+165) {
tmp = a * ((b * i) - (x * t));
} else if (a <= -4.6e+72) {
tmp = i * (b * (a - (j * (y / b))));
} else if (a <= -2.3e-272) {
tmp = t_1;
} else if (a <= 7.5e-225) {
tmp = y * ((x * z) - (i * j));
} else if (a <= 620.0) {
tmp = t_1;
} else if (a <= 5.5e+44) {
tmp = b * (z * ((a * (i / z)) - c));
} else {
tmp = j * ((t * c) + (i * ((a * (b / j)) - y)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = j * ((t * c) - ((y * i) + ((b * (z * c)) / j))) tmp = 0 if a <= -1.6e+165: tmp = a * ((b * i) - (x * t)) elif a <= -4.6e+72: tmp = i * (b * (a - (j * (y / b)))) elif a <= -2.3e-272: tmp = t_1 elif a <= 7.5e-225: tmp = y * ((x * z) - (i * j)) elif a <= 620.0: tmp = t_1 elif a <= 5.5e+44: tmp = b * (z * ((a * (i / z)) - c)) else: tmp = j * ((t * c) + (i * ((a * (b / j)) - y))) return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(j * Float64(Float64(t * c) - Float64(Float64(y * i) + Float64(Float64(b * Float64(z * c)) / j)))) tmp = 0.0 if (a <= -1.6e+165) tmp = Float64(a * Float64(Float64(b * i) - Float64(x * t))); elseif (a <= -4.6e+72) tmp = Float64(i * Float64(b * Float64(a - Float64(j * Float64(y / b))))); elseif (a <= -2.3e-272) tmp = t_1; elseif (a <= 7.5e-225) tmp = Float64(y * Float64(Float64(x * z) - Float64(i * j))); elseif (a <= 620.0) tmp = t_1; elseif (a <= 5.5e+44) tmp = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))); else tmp = Float64(j * Float64(Float64(t * c) + Float64(i * Float64(Float64(a * Float64(b / j)) - y)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = j * ((t * c) - ((y * i) + ((b * (z * c)) / j))); tmp = 0.0; if (a <= -1.6e+165) tmp = a * ((b * i) - (x * t)); elseif (a <= -4.6e+72) tmp = i * (b * (a - (j * (y / b)))); elseif (a <= -2.3e-272) tmp = t_1; elseif (a <= 7.5e-225) tmp = y * ((x * z) - (i * j)); elseif (a <= 620.0) tmp = t_1; elseif (a <= 5.5e+44) tmp = b * (z * ((a * (i / z)) - c)); else tmp = j * ((t * c) + (i * ((a * (b / j)) - y))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(j * N[(N[(t * c), $MachinePrecision] - N[(N[(y * i), $MachinePrecision] + N[(N[(b * N[(z * c), $MachinePrecision]), $MachinePrecision] / j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -1.6e+165], N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -4.6e+72], N[(i * N[(b * N[(a - N[(j * N[(y / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -2.3e-272], t$95$1, If[LessEqual[a, 7.5e-225], N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 620.0], t$95$1, If[LessEqual[a, 5.5e+44], N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(N[(t * c), $MachinePrecision] + N[(i * N[(N[(a * N[(b / j), $MachinePrecision]), $MachinePrecision] - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(t \cdot c - \left(y \cdot i + \frac{b \cdot \left(z \cdot c\right)}{j}\right)\right)\\
\mathbf{if}\;a \leq -1.6 \cdot 10^{+165}:\\
\;\;\;\;a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{elif}\;a \leq -4.6 \cdot 10^{+72}:\\
\;\;\;\;i \cdot \left(b \cdot \left(a - j \cdot \frac{y}{b}\right)\right)\\
\mathbf{elif}\;a \leq -2.3 \cdot 10^{-272}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 7.5 \cdot 10^{-225}:\\
\;\;\;\;y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{elif}\;a \leq 620:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 5.5 \cdot 10^{+44}:\\
\;\;\;\;b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(t \cdot c + i \cdot \left(a \cdot \frac{b}{j} - y\right)\right)\\
\end{array}
\end{array}
if a < -1.6e165Initial program 69.8%
Taylor expanded in a around inf 87.2%
distribute-lft-out--87.2%
Simplified87.2%
Taylor expanded in t around 0 87.2%
+-commutative87.2%
mul-1-neg87.2%
distribute-rgt-neg-in87.2%
distribute-lft-out87.2%
unsub-neg87.2%
Simplified87.2%
if -1.6e165 < a < -4.6e72Initial program 66.9%
Taylor expanded in i around inf 55.0%
distribute-lft-out--55.0%
*-commutative55.0%
Simplified55.0%
Taylor expanded in b around inf 54.9%
+-commutative54.9%
*-commutative54.9%
mul-1-neg54.9%
unsub-neg54.9%
*-commutative54.9%
associate-/l*55.0%
*-commutative55.0%
Simplified55.0%
Taylor expanded in b around inf 54.9%
mul-1-neg54.9%
distribute-frac-neg54.9%
distribute-lft-neg-in54.9%
associate-*r/55.0%
*-commutative55.0%
associate-*r/50.8%
distribute-lft-neg-in50.8%
+-commutative50.8%
distribute-lft-in46.6%
*-commutative46.6%
associate-*r*47.1%
distribute-rgt-neg-in47.1%
associate-*r*34.5%
distribute-lft-in51.2%
associate-*r/59.2%
*-commutative59.2%
Simplified67.4%
if -4.6e72 < a < -2.29999999999999989e-272 or 7.49999999999999954e-225 < a < 620Initial program 83.3%
Taylor expanded in j around inf 74.6%
associate--l+74.6%
sub-neg74.6%
mul-1-neg74.6%
+-commutative74.6%
+-commutative74.6%
associate--r+74.6%
Simplified78.3%
Taylor expanded in c around inf 66.2%
associate-*r/66.2%
associate-*r*66.2%
neg-mul-166.2%
*-commutative66.2%
Simplified66.2%
if -2.29999999999999989e-272 < a < 7.49999999999999954e-225Initial program 59.3%
Taylor expanded in y around inf 73.7%
+-commutative73.7%
mul-1-neg73.7%
unsub-neg73.7%
*-commutative73.7%
Simplified73.7%
if 620 < a < 5.5000000000000001e44Initial program 64.1%
Taylor expanded in b around inf 56.3%
Taylor expanded in z around inf 64.7%
associate-/l*64.7%
Simplified64.7%
if 5.5000000000000001e44 < a Initial program 70.8%
Taylor expanded in j around inf 62.1%
associate--l+62.1%
sub-neg62.1%
mul-1-neg62.1%
+-commutative62.1%
+-commutative62.1%
associate--r+62.1%
Simplified67.5%
Taylor expanded in i around inf 58.8%
associate-*r*58.8%
Simplified58.8%
Taylor expanded in a around 0 58.8%
sub-neg58.8%
*-commutative58.8%
associate-*r*55.1%
*-commutative55.1%
associate-*r*58.8%
associate-*r/60.6%
distribute-rgt-neg-in60.6%
distribute-lft-in64.2%
sub-neg64.2%
associate-/l*64.3%
Simplified64.3%
Final simplification69.2%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (* z (- (* a (/ i z)) c)))) (t_2 (* y (- (* x z) (* i j)))))
(if (<= y -1.22e-35)
t_2
(if (<= y -1.08e-85)
(* b (- (* a i) (* a (* t (/ x b)))))
(if (<= y -5.2e-120)
(* t (- (* c j) (* x a)))
(if (<= y 4e-259)
t_1
(if (<= y 1.35e-189)
(* x (- (* y z) (* t a)))
(if (<= y 4.1e+45) t_1 t_2))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double t_2 = y * ((x * z) - (i * j));
double tmp;
if (y <= -1.22e-35) {
tmp = t_2;
} else if (y <= -1.08e-85) {
tmp = b * ((a * i) - (a * (t * (x / b))));
} else if (y <= -5.2e-120) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 4e-259) {
tmp = t_1;
} else if (y <= 1.35e-189) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 4.1e+45) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = b * (z * ((a * (i / z)) - c))
t_2 = y * ((x * z) - (i * j))
if (y <= (-1.22d-35)) then
tmp = t_2
else if (y <= (-1.08d-85)) then
tmp = b * ((a * i) - (a * (t * (x / b))))
else if (y <= (-5.2d-120)) then
tmp = t * ((c * j) - (x * a))
else if (y <= 4d-259) then
tmp = t_1
else if (y <= 1.35d-189) then
tmp = x * ((y * z) - (t * a))
else if (y <= 4.1d+45) then
tmp = t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double t_2 = y * ((x * z) - (i * j));
double tmp;
if (y <= -1.22e-35) {
tmp = t_2;
} else if (y <= -1.08e-85) {
tmp = b * ((a * i) - (a * (t * (x / b))));
} else if (y <= -5.2e-120) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 4e-259) {
tmp = t_1;
} else if (y <= 1.35e-189) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 4.1e+45) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * (z * ((a * (i / z)) - c)) t_2 = y * ((x * z) - (i * j)) tmp = 0 if y <= -1.22e-35: tmp = t_2 elif y <= -1.08e-85: tmp = b * ((a * i) - (a * (t * (x / b)))) elif y <= -5.2e-120: tmp = t * ((c * j) - (x * a)) elif y <= 4e-259: tmp = t_1 elif y <= 1.35e-189: tmp = x * ((y * z) - (t * a)) elif y <= 4.1e+45: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))) t_2 = Float64(y * Float64(Float64(x * z) - Float64(i * j))) tmp = 0.0 if (y <= -1.22e-35) tmp = t_2; elseif (y <= -1.08e-85) tmp = Float64(b * Float64(Float64(a * i) - Float64(a * Float64(t * Float64(x / b))))); elseif (y <= -5.2e-120) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); elseif (y <= 4e-259) tmp = t_1; elseif (y <= 1.35e-189) tmp = Float64(x * Float64(Float64(y * z) - Float64(t * a))); elseif (y <= 4.1e+45) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * (z * ((a * (i / z)) - c)); t_2 = y * ((x * z) - (i * j)); tmp = 0.0; if (y <= -1.22e-35) tmp = t_2; elseif (y <= -1.08e-85) tmp = b * ((a * i) - (a * (t * (x / b)))); elseif (y <= -5.2e-120) tmp = t * ((c * j) - (x * a)); elseif (y <= 4e-259) tmp = t_1; elseif (y <= 1.35e-189) tmp = x * ((y * z) - (t * a)); elseif (y <= 4.1e+45) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.22e-35], t$95$2, If[LessEqual[y, -1.08e-85], N[(b * N[(N[(a * i), $MachinePrecision] - N[(a * N[(t * N[(x / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -5.2e-120], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4e-259], t$95$1, If[LessEqual[y, 1.35e-189], N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.1e+45], t$95$1, t$95$2]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
t_2 := y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{if}\;y \leq -1.22 \cdot 10^{-35}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -1.08 \cdot 10^{-85}:\\
\;\;\;\;b \cdot \left(a \cdot i - a \cdot \left(t \cdot \frac{x}{b}\right)\right)\\
\mathbf{elif}\;y \leq -5.2 \cdot 10^{-120}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{elif}\;y \leq 4 \cdot 10^{-259}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 1.35 \cdot 10^{-189}:\\
\;\;\;\;x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{elif}\;y \leq 4.1 \cdot 10^{+45}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y < -1.22e-35 or 4.10000000000000012e45 < y Initial program 64.5%
Taylor expanded in y around inf 68.0%
+-commutative68.0%
mul-1-neg68.0%
unsub-neg68.0%
*-commutative68.0%
Simplified68.0%
if -1.22e-35 < y < -1.07999999999999997e-85Initial program 99.9%
Taylor expanded in a around inf 70.2%
distribute-lft-out--70.2%
Simplified70.2%
Taylor expanded in b around inf 71.8%
+-commutative71.8%
mul-1-neg71.8%
unsub-neg71.8%
*-commutative71.8%
associate-/l*71.8%
associate-/l*71.8%
Simplified71.8%
if -1.07999999999999997e-85 < y < -5.2000000000000002e-120Initial program 99.9%
Taylor expanded in t around inf 64.9%
+-commutative64.9%
mul-1-neg64.9%
unsub-neg64.9%
Simplified64.9%
if -5.2000000000000002e-120 < y < 4.0000000000000003e-259 or 1.35e-189 < y < 4.10000000000000012e45Initial program 80.0%
Taylor expanded in b around inf 54.9%
Taylor expanded in z around inf 57.8%
associate-/l*59.7%
Simplified59.7%
if 4.0000000000000003e-259 < y < 1.35e-189Initial program 89.4%
Taylor expanded in x around inf 75.6%
*-commutative75.6%
Simplified75.6%
Final simplification65.1%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (* z (- (* a (/ i z)) c)))) (t_2 (* y (- (* x z) (* i j)))))
(if (<= y -2.6e-36)
t_2
(if (<= y -8e-85)
(* a (- (* b i) (* x t)))
(if (<= y -1.66e-116)
(* t (- (* c j) (* x a)))
(if (<= y 2.5e-229)
t_1
(if (<= y 9.6e-170)
(* x (- (* y z) (* t a)))
(if (<= y 5.4e+44) t_1 t_2))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double t_2 = y * ((x * z) - (i * j));
double tmp;
if (y <= -2.6e-36) {
tmp = t_2;
} else if (y <= -8e-85) {
tmp = a * ((b * i) - (x * t));
} else if (y <= -1.66e-116) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 2.5e-229) {
tmp = t_1;
} else if (y <= 9.6e-170) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 5.4e+44) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = b * (z * ((a * (i / z)) - c))
t_2 = y * ((x * z) - (i * j))
if (y <= (-2.6d-36)) then
tmp = t_2
else if (y <= (-8d-85)) then
tmp = a * ((b * i) - (x * t))
else if (y <= (-1.66d-116)) then
tmp = t * ((c * j) - (x * a))
else if (y <= 2.5d-229) then
tmp = t_1
else if (y <= 9.6d-170) then
tmp = x * ((y * z) - (t * a))
else if (y <= 5.4d+44) then
tmp = t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (z * ((a * (i / z)) - c));
double t_2 = y * ((x * z) - (i * j));
double tmp;
if (y <= -2.6e-36) {
tmp = t_2;
} else if (y <= -8e-85) {
tmp = a * ((b * i) - (x * t));
} else if (y <= -1.66e-116) {
tmp = t * ((c * j) - (x * a));
} else if (y <= 2.5e-229) {
tmp = t_1;
} else if (y <= 9.6e-170) {
tmp = x * ((y * z) - (t * a));
} else if (y <= 5.4e+44) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * (z * ((a * (i / z)) - c)) t_2 = y * ((x * z) - (i * j)) tmp = 0 if y <= -2.6e-36: tmp = t_2 elif y <= -8e-85: tmp = a * ((b * i) - (x * t)) elif y <= -1.66e-116: tmp = t * ((c * j) - (x * a)) elif y <= 2.5e-229: tmp = t_1 elif y <= 9.6e-170: tmp = x * ((y * z) - (t * a)) elif y <= 5.4e+44: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(z * Float64(Float64(a * Float64(i / z)) - c))) t_2 = Float64(y * Float64(Float64(x * z) - Float64(i * j))) tmp = 0.0 if (y <= -2.6e-36) tmp = t_2; elseif (y <= -8e-85) tmp = Float64(a * Float64(Float64(b * i) - Float64(x * t))); elseif (y <= -1.66e-116) tmp = Float64(t * Float64(Float64(c * j) - Float64(x * a))); elseif (y <= 2.5e-229) tmp = t_1; elseif (y <= 9.6e-170) tmp = Float64(x * Float64(Float64(y * z) - Float64(t * a))); elseif (y <= 5.4e+44) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * (z * ((a * (i / z)) - c)); t_2 = y * ((x * z) - (i * j)); tmp = 0.0; if (y <= -2.6e-36) tmp = t_2; elseif (y <= -8e-85) tmp = a * ((b * i) - (x * t)); elseif (y <= -1.66e-116) tmp = t * ((c * j) - (x * a)); elseif (y <= 2.5e-229) tmp = t_1; elseif (y <= 9.6e-170) tmp = x * ((y * z) - (t * a)); elseif (y <= 5.4e+44) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(z * N[(N[(a * N[(i / z), $MachinePrecision]), $MachinePrecision] - c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y * N[(N[(x * z), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2.6e-36], t$95$2, If[LessEqual[y, -8e-85], N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.66e-116], N[(t * N[(N[(c * j), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.5e-229], t$95$1, If[LessEqual[y, 9.6e-170], N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 5.4e+44], t$95$1, t$95$2]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(z \cdot \left(a \cdot \frac{i}{z} - c\right)\right)\\
t_2 := y \cdot \left(x \cdot z - i \cdot j\right)\\
\mathbf{if}\;y \leq -2.6 \cdot 10^{-36}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -8 \cdot 10^{-85}:\\
\;\;\;\;a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{elif}\;y \leq -1.66 \cdot 10^{-116}:\\
\;\;\;\;t \cdot \left(c \cdot j - x \cdot a\right)\\
\mathbf{elif}\;y \leq 2.5 \cdot 10^{-229}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 9.6 \cdot 10^{-170}:\\
\;\;\;\;x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{elif}\;y \leq 5.4 \cdot 10^{+44}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y < -2.6e-36 or 5.4e44 < y Initial program 64.5%
Taylor expanded in y around inf 68.0%
+-commutative68.0%
mul-1-neg68.0%
unsub-neg68.0%
*-commutative68.0%
Simplified68.0%
if -2.6e-36 < y < -7.9999999999999998e-85Initial program 99.9%
Taylor expanded in a around inf 70.2%
distribute-lft-out--70.2%
Simplified70.2%
Taylor expanded in t around 0 70.2%
+-commutative70.2%
mul-1-neg70.2%
distribute-rgt-neg-in70.2%
distribute-lft-out70.2%
unsub-neg70.2%
Simplified70.2%
if -7.9999999999999998e-85 < y < -1.65999999999999988e-116Initial program 99.8%
Taylor expanded in t around inf 61.4%
+-commutative61.4%
mul-1-neg61.4%
unsub-neg61.4%
Simplified61.4%
if -1.65999999999999988e-116 < y < 2.50000000000000008e-229 or 9.5999999999999998e-170 < y < 5.4e44Initial program 78.9%
Taylor expanded in b around inf 54.6%
Taylor expanded in z around inf 56.6%
associate-/l*58.5%
Simplified58.5%
if 2.50000000000000008e-229 < y < 9.5999999999999998e-170Initial program 99.8%
Taylor expanded in x around inf 80.4%
*-commutative80.4%
Simplified80.4%
Final simplification64.7%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* j (- (* t c) (* y i))))
(t_2 (+ t_1 (* b (- (* a i) (* z c)))))
(t_3 (+ t_1 (* x (- (* y z) (* t a))))))
(if (<= x -6.6e+34)
t_3
(if (<= x -1.55e-54)
t_2
(if (<= x -3.2e-86)
(* a (- (* b i) (* x t)))
(if (<= x 8.2e-57) t_2 t_3))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = j * ((t * c) - (y * i));
double t_2 = t_1 + (b * ((a * i) - (z * c)));
double t_3 = t_1 + (x * ((y * z) - (t * a)));
double tmp;
if (x <= -6.6e+34) {
tmp = t_3;
} else if (x <= -1.55e-54) {
tmp = t_2;
} else if (x <= -3.2e-86) {
tmp = a * ((b * i) - (x * t));
} else if (x <= 8.2e-57) {
tmp = t_2;
} else {
tmp = t_3;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = j * ((t * c) - (y * i))
t_2 = t_1 + (b * ((a * i) - (z * c)))
t_3 = t_1 + (x * ((y * z) - (t * a)))
if (x <= (-6.6d+34)) then
tmp = t_3
else if (x <= (-1.55d-54)) then
tmp = t_2
else if (x <= (-3.2d-86)) then
tmp = a * ((b * i) - (x * t))
else if (x <= 8.2d-57) then
tmp = t_2
else
tmp = t_3
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = j * ((t * c) - (y * i));
double t_2 = t_1 + (b * ((a * i) - (z * c)));
double t_3 = t_1 + (x * ((y * z) - (t * a)));
double tmp;
if (x <= -6.6e+34) {
tmp = t_3;
} else if (x <= -1.55e-54) {
tmp = t_2;
} else if (x <= -3.2e-86) {
tmp = a * ((b * i) - (x * t));
} else if (x <= 8.2e-57) {
tmp = t_2;
} else {
tmp = t_3;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = j * ((t * c) - (y * i)) t_2 = t_1 + (b * ((a * i) - (z * c))) t_3 = t_1 + (x * ((y * z) - (t * a))) tmp = 0 if x <= -6.6e+34: tmp = t_3 elif x <= -1.55e-54: tmp = t_2 elif x <= -3.2e-86: tmp = a * ((b * i) - (x * t)) elif x <= 8.2e-57: tmp = t_2 else: tmp = t_3 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(j * Float64(Float64(t * c) - Float64(y * i))) t_2 = Float64(t_1 + Float64(b * Float64(Float64(a * i) - Float64(z * c)))) t_3 = Float64(t_1 + Float64(x * Float64(Float64(y * z) - Float64(t * a)))) tmp = 0.0 if (x <= -6.6e+34) tmp = t_3; elseif (x <= -1.55e-54) tmp = t_2; elseif (x <= -3.2e-86) tmp = Float64(a * Float64(Float64(b * i) - Float64(x * t))); elseif (x <= 8.2e-57) tmp = t_2; else tmp = t_3; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = j * ((t * c) - (y * i)); t_2 = t_1 + (b * ((a * i) - (z * c))); t_3 = t_1 + (x * ((y * z) - (t * a))); tmp = 0.0; if (x <= -6.6e+34) tmp = t_3; elseif (x <= -1.55e-54) tmp = t_2; elseif (x <= -3.2e-86) tmp = a * ((b * i) - (x * t)); elseif (x <= 8.2e-57) tmp = t_2; else tmp = t_3; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 + N[(b * N[(N[(a * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t$95$1 + N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -6.6e+34], t$95$3, If[LessEqual[x, -1.55e-54], t$95$2, If[LessEqual[x, -3.2e-86], N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 8.2e-57], t$95$2, t$95$3]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(t \cdot c - y \cdot i\right)\\
t_2 := t\_1 + b \cdot \left(a \cdot i - z \cdot c\right)\\
t_3 := t\_1 + x \cdot \left(y \cdot z - t \cdot a\right)\\
\mathbf{if}\;x \leq -6.6 \cdot 10^{+34}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x \leq -1.55 \cdot 10^{-54}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq -3.2 \cdot 10^{-86}:\\
\;\;\;\;a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{elif}\;x \leq 8.2 \cdot 10^{-57}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_3\\
\end{array}
\end{array}
if x < -6.59999999999999976e34 or 8.2000000000000003e-57 < x Initial program 72.9%
Taylor expanded in b around 0 69.6%
if -6.59999999999999976e34 < x < -1.55000000000000002e-54 or -3.20000000000000006e-86 < x < 8.2000000000000003e-57Initial program 76.2%
Taylor expanded in x around 0 76.7%
if -1.55000000000000002e-54 < x < -3.20000000000000006e-86Initial program 74.8%
Taylor expanded in a around inf 75.6%
distribute-lft-out--75.6%
Simplified75.6%
Taylor expanded in t around 0 75.6%
+-commutative75.6%
mul-1-neg75.6%
distribute-rgt-neg-in75.6%
distribute-lft-out75.6%
unsub-neg75.6%
Simplified75.6%
Final simplification73.0%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* b (* a i))) (t_2 (* z (* x y))))
(if (<= y -1.85e-22)
t_2
(if (<= y -2.1e-121)
(* j (* t c))
(if (<= y 1.25e+44)
t_1
(if (<= y 5.5e+157)
t_2
(if (<= y 8.5e+209) t_1 (if (<= y 5e+305) t_2 (* a (* b i))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (a * i);
double t_2 = z * (x * y);
double tmp;
if (y <= -1.85e-22) {
tmp = t_2;
} else if (y <= -2.1e-121) {
tmp = j * (t * c);
} else if (y <= 1.25e+44) {
tmp = t_1;
} else if (y <= 5.5e+157) {
tmp = t_2;
} else if (y <= 8.5e+209) {
tmp = t_1;
} else if (y <= 5e+305) {
tmp = t_2;
} else {
tmp = a * (b * i);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = b * (a * i)
t_2 = z * (x * y)
if (y <= (-1.85d-22)) then
tmp = t_2
else if (y <= (-2.1d-121)) then
tmp = j * (t * c)
else if (y <= 1.25d+44) then
tmp = t_1
else if (y <= 5.5d+157) then
tmp = t_2
else if (y <= 8.5d+209) then
tmp = t_1
else if (y <= 5d+305) then
tmp = t_2
else
tmp = a * (b * i)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = b * (a * i);
double t_2 = z * (x * y);
double tmp;
if (y <= -1.85e-22) {
tmp = t_2;
} else if (y <= -2.1e-121) {
tmp = j * (t * c);
} else if (y <= 1.25e+44) {
tmp = t_1;
} else if (y <= 5.5e+157) {
tmp = t_2;
} else if (y <= 8.5e+209) {
tmp = t_1;
} else if (y <= 5e+305) {
tmp = t_2;
} else {
tmp = a * (b * i);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = b * (a * i) t_2 = z * (x * y) tmp = 0 if y <= -1.85e-22: tmp = t_2 elif y <= -2.1e-121: tmp = j * (t * c) elif y <= 1.25e+44: tmp = t_1 elif y <= 5.5e+157: tmp = t_2 elif y <= 8.5e+209: tmp = t_1 elif y <= 5e+305: tmp = t_2 else: tmp = a * (b * i) return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(b * Float64(a * i)) t_2 = Float64(z * Float64(x * y)) tmp = 0.0 if (y <= -1.85e-22) tmp = t_2; elseif (y <= -2.1e-121) tmp = Float64(j * Float64(t * c)); elseif (y <= 1.25e+44) tmp = t_1; elseif (y <= 5.5e+157) tmp = t_2; elseif (y <= 8.5e+209) tmp = t_1; elseif (y <= 5e+305) tmp = t_2; else tmp = Float64(a * Float64(b * i)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = b * (a * i); t_2 = z * (x * y); tmp = 0.0; if (y <= -1.85e-22) tmp = t_2; elseif (y <= -2.1e-121) tmp = j * (t * c); elseif (y <= 1.25e+44) tmp = t_1; elseif (y <= 5.5e+157) tmp = t_2; elseif (y <= 8.5e+209) tmp = t_1; elseif (y <= 5e+305) tmp = t_2; else tmp = a * (b * i); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(b * N[(a * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(z * N[(x * y), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.85e-22], t$95$2, If[LessEqual[y, -2.1e-121], N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.25e+44], t$95$1, If[LessEqual[y, 5.5e+157], t$95$2, If[LessEqual[y, 8.5e+209], t$95$1, If[LessEqual[y, 5e+305], t$95$2, N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(a \cdot i\right)\\
t_2 := z \cdot \left(x \cdot y\right)\\
\mathbf{if}\;y \leq -1.85 \cdot 10^{-22}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -2.1 \cdot 10^{-121}:\\
\;\;\;\;j \cdot \left(t \cdot c\right)\\
\mathbf{elif}\;y \leq 1.25 \cdot 10^{+44}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 5.5 \cdot 10^{+157}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 8.5 \cdot 10^{+209}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 5 \cdot 10^{+305}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(b \cdot i\right)\\
\end{array}
\end{array}
if y < -1.85e-22 or 1.2499999999999999e44 < y < 5.5000000000000003e157 or 8.50000000000000062e209 < y < 5.00000000000000009e305Initial program 67.1%
Taylor expanded in j around inf 60.3%
associate--l+60.3%
sub-neg60.3%
mul-1-neg60.3%
+-commutative60.3%
+-commutative60.3%
associate--r+60.3%
Simplified65.7%
Taylor expanded in z around inf 38.9%
associate-*r*41.1%
*-commutative41.1%
div-sub42.9%
*-commutative42.9%
Simplified42.9%
Taylor expanded in x around inf 35.0%
*-commutative35.0%
*-commutative35.0%
associate-*l*38.8%
Simplified38.8%
if -1.85e-22 < y < -2.0999999999999999e-121Initial program 99.9%
Taylor expanded in j around inf 83.7%
associate--l+83.7%
sub-neg83.7%
mul-1-neg83.7%
+-commutative83.7%
+-commutative83.7%
associate--r+83.7%
Simplified88.5%
Taylor expanded in i around inf 59.0%
associate-*r*63.2%
Simplified63.2%
Taylor expanded in c around inf 35.3%
associate-*r*31.4%
*-commutative31.4%
associate-*r*39.3%
Simplified39.3%
if -2.0999999999999999e-121 < y < 1.2499999999999999e44 or 5.5000000000000003e157 < y < 8.50000000000000062e209Initial program 76.0%
Taylor expanded in b around inf 52.6%
Taylor expanded in a around inf 33.7%
if 5.00000000000000009e305 < y Initial program 100.0%
Taylor expanded in b around inf 100.0%
Taylor expanded in a around inf 100.0%
Final simplification36.7%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* a (* b i))))
(if (<= y -1.15e-23)
(* y (* x z))
(if (<= y -1e-121)
(* j (* t c))
(if (<= y -2.4e-238)
t_1
(if (<= y -3.4e-308)
(* t (* c j))
(if (<= y 2.1e+51)
(* b (* a i))
(if (<= y 8.5e+196) (* x (* y z)) t_1))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = a * (b * i);
double tmp;
if (y <= -1.15e-23) {
tmp = y * (x * z);
} else if (y <= -1e-121) {
tmp = j * (t * c);
} else if (y <= -2.4e-238) {
tmp = t_1;
} else if (y <= -3.4e-308) {
tmp = t * (c * j);
} else if (y <= 2.1e+51) {
tmp = b * (a * i);
} else if (y <= 8.5e+196) {
tmp = x * (y * z);
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: tmp
t_1 = a * (b * i)
if (y <= (-1.15d-23)) then
tmp = y * (x * z)
else if (y <= (-1d-121)) then
tmp = j * (t * c)
else if (y <= (-2.4d-238)) then
tmp = t_1
else if (y <= (-3.4d-308)) then
tmp = t * (c * j)
else if (y <= 2.1d+51) then
tmp = b * (a * i)
else if (y <= 8.5d+196) then
tmp = x * (y * z)
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = a * (b * i);
double tmp;
if (y <= -1.15e-23) {
tmp = y * (x * z);
} else if (y <= -1e-121) {
tmp = j * (t * c);
} else if (y <= -2.4e-238) {
tmp = t_1;
} else if (y <= -3.4e-308) {
tmp = t * (c * j);
} else if (y <= 2.1e+51) {
tmp = b * (a * i);
} else if (y <= 8.5e+196) {
tmp = x * (y * z);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = a * (b * i) tmp = 0 if y <= -1.15e-23: tmp = y * (x * z) elif y <= -1e-121: tmp = j * (t * c) elif y <= -2.4e-238: tmp = t_1 elif y <= -3.4e-308: tmp = t * (c * j) elif y <= 2.1e+51: tmp = b * (a * i) elif y <= 8.5e+196: tmp = x * (y * z) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(a * Float64(b * i)) tmp = 0.0 if (y <= -1.15e-23) tmp = Float64(y * Float64(x * z)); elseif (y <= -1e-121) tmp = Float64(j * Float64(t * c)); elseif (y <= -2.4e-238) tmp = t_1; elseif (y <= -3.4e-308) tmp = Float64(t * Float64(c * j)); elseif (y <= 2.1e+51) tmp = Float64(b * Float64(a * i)); elseif (y <= 8.5e+196) tmp = Float64(x * Float64(y * z)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = a * (b * i); tmp = 0.0; if (y <= -1.15e-23) tmp = y * (x * z); elseif (y <= -1e-121) tmp = j * (t * c); elseif (y <= -2.4e-238) tmp = t_1; elseif (y <= -3.4e-308) tmp = t * (c * j); elseif (y <= 2.1e+51) tmp = b * (a * i); elseif (y <= 8.5e+196) tmp = x * (y * z); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.15e-23], N[(y * N[(x * z), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1e-121], N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.4e-238], t$95$1, If[LessEqual[y, -3.4e-308], N[(t * N[(c * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.1e+51], N[(b * N[(a * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 8.5e+196], N[(x * N[(y * z), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(b \cdot i\right)\\
\mathbf{if}\;y \leq -1.15 \cdot 10^{-23}:\\
\;\;\;\;y \cdot \left(x \cdot z\right)\\
\mathbf{elif}\;y \leq -1 \cdot 10^{-121}:\\
\;\;\;\;j \cdot \left(t \cdot c\right)\\
\mathbf{elif}\;y \leq -2.4 \cdot 10^{-238}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -3.4 \cdot 10^{-308}:\\
\;\;\;\;t \cdot \left(c \cdot j\right)\\
\mathbf{elif}\;y \leq 2.1 \cdot 10^{+51}:\\
\;\;\;\;b \cdot \left(a \cdot i\right)\\
\mathbf{elif}\;y \leq 8.5 \cdot 10^{+196}:\\
\;\;\;\;x \cdot \left(y \cdot z\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -1.15000000000000005e-23Initial program 66.8%
Taylor expanded in y around inf 68.5%
+-commutative68.5%
mul-1-neg68.5%
unsub-neg68.5%
*-commutative68.5%
Simplified68.5%
Taylor expanded in z around inf 34.3%
*-commutative34.3%
associate-*l*35.5%
Simplified35.5%
if -1.15000000000000005e-23 < y < -9.9999999999999998e-122Initial program 99.9%
Taylor expanded in j around inf 83.7%
associate--l+83.7%
sub-neg83.7%
mul-1-neg83.7%
+-commutative83.7%
+-commutative83.7%
associate--r+83.7%
Simplified88.5%
Taylor expanded in i around inf 59.0%
associate-*r*63.2%
Simplified63.2%
Taylor expanded in c around inf 35.3%
associate-*r*31.4%
*-commutative31.4%
associate-*r*39.3%
Simplified39.3%
if -9.9999999999999998e-122 < y < -2.3999999999999998e-238 or 8.50000000000000041e196 < y Initial program 72.5%
Taylor expanded in b around inf 50.4%
Taylor expanded in a around inf 37.3%
if -2.3999999999999998e-238 < y < -3.39999999999999999e-308Initial program 78.9%
Taylor expanded in t around inf 65.4%
+-commutative65.4%
mul-1-neg65.4%
unsub-neg65.4%
Simplified65.4%
Taylor expanded in c around inf 51.5%
if -3.39999999999999999e-308 < y < 2.1000000000000001e51Initial program 79.3%
Taylor expanded in b around inf 47.1%
Taylor expanded in a around inf 35.0%
if 2.1000000000000001e51 < y < 8.50000000000000041e196Initial program 62.1%
Taylor expanded in x around inf 47.5%
*-commutative47.5%
Simplified47.5%
Taylor expanded in z around inf 32.4%
Final simplification36.6%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* a (* b i))) (t_2 (* x (* y z))))
(if (<= y -3.8e-22)
t_2
(if (<= y -5e-118)
(* j (* t c))
(if (<= y -1.12e-236)
t_1
(if (<= y -2e-305)
(* t (* c j))
(if (<= y 5e+60) (* b (* a i)) (if (<= y 7.5e+198) t_2 t_1))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = a * (b * i);
double t_2 = x * (y * z);
double tmp;
if (y <= -3.8e-22) {
tmp = t_2;
} else if (y <= -5e-118) {
tmp = j * (t * c);
} else if (y <= -1.12e-236) {
tmp = t_1;
} else if (y <= -2e-305) {
tmp = t * (c * j);
} else if (y <= 5e+60) {
tmp = b * (a * i);
} else if (y <= 7.5e+198) {
tmp = t_2;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = a * (b * i)
t_2 = x * (y * z)
if (y <= (-3.8d-22)) then
tmp = t_2
else if (y <= (-5d-118)) then
tmp = j * (t * c)
else if (y <= (-1.12d-236)) then
tmp = t_1
else if (y <= (-2d-305)) then
tmp = t * (c * j)
else if (y <= 5d+60) then
tmp = b * (a * i)
else if (y <= 7.5d+198) then
tmp = t_2
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = a * (b * i);
double t_2 = x * (y * z);
double tmp;
if (y <= -3.8e-22) {
tmp = t_2;
} else if (y <= -5e-118) {
tmp = j * (t * c);
} else if (y <= -1.12e-236) {
tmp = t_1;
} else if (y <= -2e-305) {
tmp = t * (c * j);
} else if (y <= 5e+60) {
tmp = b * (a * i);
} else if (y <= 7.5e+198) {
tmp = t_2;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = a * (b * i) t_2 = x * (y * z) tmp = 0 if y <= -3.8e-22: tmp = t_2 elif y <= -5e-118: tmp = j * (t * c) elif y <= -1.12e-236: tmp = t_1 elif y <= -2e-305: tmp = t * (c * j) elif y <= 5e+60: tmp = b * (a * i) elif y <= 7.5e+198: tmp = t_2 else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(a * Float64(b * i)) t_2 = Float64(x * Float64(y * z)) tmp = 0.0 if (y <= -3.8e-22) tmp = t_2; elseif (y <= -5e-118) tmp = Float64(j * Float64(t * c)); elseif (y <= -1.12e-236) tmp = t_1; elseif (y <= -2e-305) tmp = Float64(t * Float64(c * j)); elseif (y <= 5e+60) tmp = Float64(b * Float64(a * i)); elseif (y <= 7.5e+198) tmp = t_2; else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = a * (b * i); t_2 = x * (y * z); tmp = 0.0; if (y <= -3.8e-22) tmp = t_2; elseif (y <= -5e-118) tmp = j * (t * c); elseif (y <= -1.12e-236) tmp = t_1; elseif (y <= -2e-305) tmp = t * (c * j); elseif (y <= 5e+60) tmp = b * (a * i); elseif (y <= 7.5e+198) tmp = t_2; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x * N[(y * z), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -3.8e-22], t$95$2, If[LessEqual[y, -5e-118], N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.12e-236], t$95$1, If[LessEqual[y, -2e-305], N[(t * N[(c * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 5e+60], N[(b * N[(a * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 7.5e+198], t$95$2, t$95$1]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(b \cdot i\right)\\
t_2 := x \cdot \left(y \cdot z\right)\\
\mathbf{if}\;y \leq -3.8 \cdot 10^{-22}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -5 \cdot 10^{-118}:\\
\;\;\;\;j \cdot \left(t \cdot c\right)\\
\mathbf{elif}\;y \leq -1.12 \cdot 10^{-236}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -2 \cdot 10^{-305}:\\
\;\;\;\;t \cdot \left(c \cdot j\right)\\
\mathbf{elif}\;y \leq 5 \cdot 10^{+60}:\\
\;\;\;\;b \cdot \left(a \cdot i\right)\\
\mathbf{elif}\;y \leq 7.5 \cdot 10^{+198}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -3.80000000000000023e-22 or 4.99999999999999975e60 < y < 7.5000000000000002e198Initial program 65.6%
Taylor expanded in x around inf 41.7%
*-commutative41.7%
Simplified41.7%
Taylor expanded in z around inf 33.8%
if -3.80000000000000023e-22 < y < -5.00000000000000015e-118Initial program 99.9%
Taylor expanded in j around inf 83.7%
associate--l+83.7%
sub-neg83.7%
mul-1-neg83.7%
+-commutative83.7%
+-commutative83.7%
associate--r+83.7%
Simplified88.5%
Taylor expanded in i around inf 59.0%
associate-*r*63.2%
Simplified63.2%
Taylor expanded in c around inf 35.3%
associate-*r*31.4%
*-commutative31.4%
associate-*r*39.3%
Simplified39.3%
if -5.00000000000000015e-118 < y < -1.11999999999999999e-236 or 7.5000000000000002e198 < y Initial program 72.5%
Taylor expanded in b around inf 50.4%
Taylor expanded in a around inf 37.3%
if -1.11999999999999999e-236 < y < -1.99999999999999999e-305Initial program 78.9%
Taylor expanded in t around inf 65.4%
+-commutative65.4%
mul-1-neg65.4%
unsub-neg65.4%
Simplified65.4%
Taylor expanded in c around inf 51.5%
if -1.99999999999999999e-305 < y < 4.99999999999999975e60Initial program 79.3%
Taylor expanded in b around inf 47.1%
Taylor expanded in a around inf 35.0%
Final simplification36.3%
(FPCore (x y z t a b c i j)
:precision binary64
(if (<= i -4.4e+251)
(* j (* i (- y)))
(if (or (<= i -8e+172)
(and (not (<= i 5.2e-44))
(or (<= i 1.02e-11) (not (<= i 1.9e+132)))))
(* a (- (* b i) (* x t)))
(* c (- (* t j) (* z b))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double tmp;
if (i <= -4.4e+251) {
tmp = j * (i * -y);
} else if ((i <= -8e+172) || (!(i <= 5.2e-44) && ((i <= 1.02e-11) || !(i <= 1.9e+132)))) {
tmp = a * ((b * i) - (x * t));
} else {
tmp = c * ((t * j) - (z * b));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: tmp
if (i <= (-4.4d+251)) then
tmp = j * (i * -y)
else if ((i <= (-8d+172)) .or. (.not. (i <= 5.2d-44)) .and. (i <= 1.02d-11) .or. (.not. (i <= 1.9d+132))) then
tmp = a * ((b * i) - (x * t))
else
tmp = c * ((t * j) - (z * b))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double tmp;
if (i <= -4.4e+251) {
tmp = j * (i * -y);
} else if ((i <= -8e+172) || (!(i <= 5.2e-44) && ((i <= 1.02e-11) || !(i <= 1.9e+132)))) {
tmp = a * ((b * i) - (x * t));
} else {
tmp = c * ((t * j) - (z * b));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): tmp = 0 if i <= -4.4e+251: tmp = j * (i * -y) elif (i <= -8e+172) or (not (i <= 5.2e-44) and ((i <= 1.02e-11) or not (i <= 1.9e+132))): tmp = a * ((b * i) - (x * t)) else: tmp = c * ((t * j) - (z * b)) return tmp
function code(x, y, z, t, a, b, c, i, j) tmp = 0.0 if (i <= -4.4e+251) tmp = Float64(j * Float64(i * Float64(-y))); elseif ((i <= -8e+172) || (!(i <= 5.2e-44) && ((i <= 1.02e-11) || !(i <= 1.9e+132)))) tmp = Float64(a * Float64(Float64(b * i) - Float64(x * t))); else tmp = Float64(c * Float64(Float64(t * j) - Float64(z * b))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) tmp = 0.0; if (i <= -4.4e+251) tmp = j * (i * -y); elseif ((i <= -8e+172) || (~((i <= 5.2e-44)) && ((i <= 1.02e-11) || ~((i <= 1.9e+132))))) tmp = a * ((b * i) - (x * t)); else tmp = c * ((t * j) - (z * b)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := If[LessEqual[i, -4.4e+251], N[(j * N[(i * (-y)), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[i, -8e+172], And[N[Not[LessEqual[i, 5.2e-44]], $MachinePrecision], Or[LessEqual[i, 1.02e-11], N[Not[LessEqual[i, 1.9e+132]], $MachinePrecision]]]], N[(a * N[(N[(b * i), $MachinePrecision] - N[(x * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(c * N[(N[(t * j), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;i \leq -4.4 \cdot 10^{+251}:\\
\;\;\;\;j \cdot \left(i \cdot \left(-y\right)\right)\\
\mathbf{elif}\;i \leq -8 \cdot 10^{+172} \lor \neg \left(i \leq 5.2 \cdot 10^{-44}\right) \land \left(i \leq 1.02 \cdot 10^{-11} \lor \neg \left(i \leq 1.9 \cdot 10^{+132}\right)\right):\\
\;\;\;\;a \cdot \left(b \cdot i - x \cdot t\right)\\
\mathbf{else}:\\
\;\;\;\;c \cdot \left(t \cdot j - z \cdot b\right)\\
\end{array}
\end{array}
if i < -4.3999999999999999e251Initial program 66.7%
Taylor expanded in i around inf 75.0%
distribute-lft-out--75.0%
*-commutative75.0%
Simplified75.0%
Taylor expanded in j around inf 59.0%
associate-*r*59.0%
mul-1-neg59.0%
*-commutative59.0%
Simplified59.0%
Taylor expanded in i around 0 59.0%
mul-1-neg59.0%
*-commutative59.0%
associate-*l*66.8%
distribute-rgt-neg-in66.8%
Simplified66.8%
if -4.3999999999999999e251 < i < -8.0000000000000007e172 or 5.1999999999999996e-44 < i < 1.01999999999999994e-11 or 1.90000000000000003e132 < i Initial program 62.2%
Taylor expanded in a around inf 57.4%
distribute-lft-out--57.4%
Simplified57.4%
Taylor expanded in t around 0 57.4%
+-commutative57.4%
mul-1-neg57.4%
distribute-rgt-neg-in57.4%
distribute-lft-out57.4%
unsub-neg57.4%
Simplified57.4%
if -8.0000000000000007e172 < i < 5.1999999999999996e-44 or 1.01999999999999994e-11 < i < 1.90000000000000003e132Initial program 80.9%
Taylor expanded in c around inf 48.0%
Final simplification51.8%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1 (* a (* b i))) (t_2 (* c (* t j))))
(if (<= t -3.1e+113)
t_2
(if (<= t 1.8e-24)
t_1
(if (<= t 2.2e+112)
t_2
(if (<= t 1.2e+183) (* b (* a i)) (if (<= t 2.6e+301) t_2 t_1)))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = a * (b * i);
double t_2 = c * (t * j);
double tmp;
if (t <= -3.1e+113) {
tmp = t_2;
} else if (t <= 1.8e-24) {
tmp = t_1;
} else if (t <= 2.2e+112) {
tmp = t_2;
} else if (t <= 1.2e+183) {
tmp = b * (a * i);
} else if (t <= 2.6e+301) {
tmp = t_2;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = a * (b * i)
t_2 = c * (t * j)
if (t <= (-3.1d+113)) then
tmp = t_2
else if (t <= 1.8d-24) then
tmp = t_1
else if (t <= 2.2d+112) then
tmp = t_2
else if (t <= 1.2d+183) then
tmp = b * (a * i)
else if (t <= 2.6d+301) then
tmp = t_2
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = a * (b * i);
double t_2 = c * (t * j);
double tmp;
if (t <= -3.1e+113) {
tmp = t_2;
} else if (t <= 1.8e-24) {
tmp = t_1;
} else if (t <= 2.2e+112) {
tmp = t_2;
} else if (t <= 1.2e+183) {
tmp = b * (a * i);
} else if (t <= 2.6e+301) {
tmp = t_2;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = a * (b * i) t_2 = c * (t * j) tmp = 0 if t <= -3.1e+113: tmp = t_2 elif t <= 1.8e-24: tmp = t_1 elif t <= 2.2e+112: tmp = t_2 elif t <= 1.2e+183: tmp = b * (a * i) elif t <= 2.6e+301: tmp = t_2 else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(a * Float64(b * i)) t_2 = Float64(c * Float64(t * j)) tmp = 0.0 if (t <= -3.1e+113) tmp = t_2; elseif (t <= 1.8e-24) tmp = t_1; elseif (t <= 2.2e+112) tmp = t_2; elseif (t <= 1.2e+183) tmp = Float64(b * Float64(a * i)); elseif (t <= 2.6e+301) tmp = t_2; else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = a * (b * i); t_2 = c * (t * j); tmp = 0.0; if (t <= -3.1e+113) tmp = t_2; elseif (t <= 1.8e-24) tmp = t_1; elseif (t <= 2.2e+112) tmp = t_2; elseif (t <= 1.2e+183) tmp = b * (a * i); elseif (t <= 2.6e+301) tmp = t_2; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(t * j), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -3.1e+113], t$95$2, If[LessEqual[t, 1.8e-24], t$95$1, If[LessEqual[t, 2.2e+112], t$95$2, If[LessEqual[t, 1.2e+183], N[(b * N[(a * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 2.6e+301], t$95$2, t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(b \cdot i\right)\\
t_2 := c \cdot \left(t \cdot j\right)\\
\mathbf{if}\;t \leq -3.1 \cdot 10^{+113}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t \leq 1.8 \cdot 10^{-24}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 2.2 \cdot 10^{+112}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t \leq 1.2 \cdot 10^{+183}:\\
\;\;\;\;b \cdot \left(a \cdot i\right)\\
\mathbf{elif}\;t \leq 2.6 \cdot 10^{+301}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if t < -3.09999999999999991e113 or 1.8e-24 < t < 2.1999999999999999e112 or 1.2000000000000001e183 < t < 2.5999999999999998e301Initial program 69.8%
Taylor expanded in j around inf 59.0%
associate--l+59.0%
sub-neg59.0%
mul-1-neg59.0%
+-commutative59.0%
+-commutative59.0%
associate--r+59.0%
Simplified64.7%
Taylor expanded in i around inf 49.4%
associate-*r*49.3%
Simplified49.3%
Taylor expanded in c around inf 43.0%
if -3.09999999999999991e113 < t < 1.8e-24 or 2.5999999999999998e301 < t Initial program 78.5%
Taylor expanded in b around inf 46.6%
Taylor expanded in a around inf 33.5%
if 2.1999999999999999e112 < t < 1.2000000000000001e183Initial program 62.3%
Taylor expanded in b around inf 44.4%
Taylor expanded in a around inf 26.4%
Final simplification36.4%
(FPCore (x y z t a b c i j)
:precision binary64
(if (<= t -8.5e+103)
(* c (* t j))
(if (<= t -1e-26)
(* b (* a i))
(if (<= t 9.2e-91) (* a (* b i)) (* j (* t c))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double tmp;
if (t <= -8.5e+103) {
tmp = c * (t * j);
} else if (t <= -1e-26) {
tmp = b * (a * i);
} else if (t <= 9.2e-91) {
tmp = a * (b * i);
} else {
tmp = j * (t * c);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: tmp
if (t <= (-8.5d+103)) then
tmp = c * (t * j)
else if (t <= (-1d-26)) then
tmp = b * (a * i)
else if (t <= 9.2d-91) then
tmp = a * (b * i)
else
tmp = j * (t * c)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double tmp;
if (t <= -8.5e+103) {
tmp = c * (t * j);
} else if (t <= -1e-26) {
tmp = b * (a * i);
} else if (t <= 9.2e-91) {
tmp = a * (b * i);
} else {
tmp = j * (t * c);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): tmp = 0 if t <= -8.5e+103: tmp = c * (t * j) elif t <= -1e-26: tmp = b * (a * i) elif t <= 9.2e-91: tmp = a * (b * i) else: tmp = j * (t * c) return tmp
function code(x, y, z, t, a, b, c, i, j) tmp = 0.0 if (t <= -8.5e+103) tmp = Float64(c * Float64(t * j)); elseif (t <= -1e-26) tmp = Float64(b * Float64(a * i)); elseif (t <= 9.2e-91) tmp = Float64(a * Float64(b * i)); else tmp = Float64(j * Float64(t * c)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) tmp = 0.0; if (t <= -8.5e+103) tmp = c * (t * j); elseif (t <= -1e-26) tmp = b * (a * i); elseif (t <= 9.2e-91) tmp = a * (b * i); else tmp = j * (t * c); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := If[LessEqual[t, -8.5e+103], N[(c * N[(t * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1e-26], N[(b * N[(a * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 9.2e-91], N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision], N[(j * N[(t * c), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -8.5 \cdot 10^{+103}:\\
\;\;\;\;c \cdot \left(t \cdot j\right)\\
\mathbf{elif}\;t \leq -1 \cdot 10^{-26}:\\
\;\;\;\;b \cdot \left(a \cdot i\right)\\
\mathbf{elif}\;t \leq 9.2 \cdot 10^{-91}:\\
\;\;\;\;a \cdot \left(b \cdot i\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(t \cdot c\right)\\
\end{array}
\end{array}
if t < -8.4999999999999992e103Initial program 66.3%
Taylor expanded in j around inf 59.5%
associate--l+59.5%
sub-neg59.5%
mul-1-neg59.5%
+-commutative59.5%
+-commutative59.5%
associate--r+59.5%
Simplified64.4%
Taylor expanded in i around inf 52.4%
associate-*r*52.2%
Simplified52.2%
Taylor expanded in c around inf 54.7%
if -8.4999999999999992e103 < t < -1e-26Initial program 74.2%
Taylor expanded in b around inf 42.2%
Taylor expanded in a around inf 28.0%
if -1e-26 < t < 9.19999999999999982e-91Initial program 82.9%
Taylor expanded in b around inf 49.2%
Taylor expanded in a around inf 34.5%
if 9.19999999999999982e-91 < t Initial program 68.4%
Taylor expanded in j around inf 59.6%
associate--l+59.6%
sub-neg59.6%
mul-1-neg59.6%
+-commutative59.6%
+-commutative59.6%
associate--r+59.6%
Simplified66.1%
Taylor expanded in i around inf 48.9%
associate-*r*50.2%
Simplified50.2%
Taylor expanded in c around inf 24.6%
associate-*r*24.6%
*-commutative24.6%
associate-*r*29.4%
Simplified29.4%
Final simplification35.2%
(FPCore (x y z t a b c i j) :precision binary64 (* a (* b i)))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return a * (b * i);
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
code = a * (b * i)
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return a * (b * i);
}
def code(x, y, z, t, a, b, c, i, j): return a * (b * i)
function code(x, y, z, t, a, b, c, i, j) return Float64(a * Float64(b * i)) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = a * (b * i); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(a * N[(b * i), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(b \cdot i\right)
\end{array}
Initial program 74.4%
Taylor expanded in b around inf 40.6%
Taylor expanded in a around inf 25.2%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1
(+
(- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a))))
(/
(* j (- (pow (* c t) 2.0) (pow (* i y) 2.0)))
(+ (* c t) (* i y)))))
(t_2
(-
(* x (- (* z y) (* a t)))
(- (* b (- (* z c) (* a i))) (* (- (* c t) (* y i)) j)))))
(if (< t -8.120978919195912e-33)
t_2
(if (< t -4.712553818218485e-169)
t_1
(if (< t -7.633533346031584e-308)
t_2
(if (< t 1.0535888557455487e-139) t_1 t_2))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (pow((c * t), 2.0) - pow((i * y), 2.0))) / ((c * t) + (i * y)));
double t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j));
double tmp;
if (t < -8.120978919195912e-33) {
tmp = t_2;
} else if (t < -4.712553818218485e-169) {
tmp = t_1;
} else if (t < -7.633533346031584e-308) {
tmp = t_2;
} else if (t < 1.0535888557455487e-139) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (((c * t) ** 2.0d0) - ((i * y) ** 2.0d0))) / ((c * t) + (i * y)))
t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j))
if (t < (-8.120978919195912d-33)) then
tmp = t_2
else if (t < (-4.712553818218485d-169)) then
tmp = t_1
else if (t < (-7.633533346031584d-308)) then
tmp = t_2
else if (t < 1.0535888557455487d-139) then
tmp = t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (Math.pow((c * t), 2.0) - Math.pow((i * y), 2.0))) / ((c * t) + (i * y)));
double t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j));
double tmp;
if (t < -8.120978919195912e-33) {
tmp = t_2;
} else if (t < -4.712553818218485e-169) {
tmp = t_1;
} else if (t < -7.633533346031584e-308) {
tmp = t_2;
} else if (t < 1.0535888557455487e-139) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (math.pow((c * t), 2.0) - math.pow((i * y), 2.0))) / ((c * t) + (i * y))) t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j)) tmp = 0 if t < -8.120978919195912e-33: tmp = t_2 elif t < -4.712553818218485e-169: tmp = t_1 elif t < -7.633533346031584e-308: tmp = t_2 elif t < 1.0535888557455487e-139: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) - Float64(b * Float64(Float64(c * z) - Float64(i * a)))) + Float64(Float64(j * Float64((Float64(c * t) ^ 2.0) - (Float64(i * y) ^ 2.0))) / Float64(Float64(c * t) + Float64(i * y)))) t_2 = Float64(Float64(x * Float64(Float64(z * y) - Float64(a * t))) - Float64(Float64(b * Float64(Float64(z * c) - Float64(a * i))) - Float64(Float64(Float64(c * t) - Float64(y * i)) * j))) tmp = 0.0 if (t < -8.120978919195912e-33) tmp = t_2; elseif (t < -4.712553818218485e-169) tmp = t_1; elseif (t < -7.633533346031584e-308) tmp = t_2; elseif (t < 1.0535888557455487e-139) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (((c * t) ^ 2.0) - ((i * y) ^ 2.0))) / ((c * t) + (i * y))); t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j)); tmp = 0.0; if (t < -8.120978919195912e-33) tmp = t_2; elseif (t < -4.712553818218485e-169) tmp = t_1; elseif (t < -7.633533346031584e-308) tmp = t_2; elseif (t < 1.0535888557455487e-139) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(b * N[(N[(c * z), $MachinePrecision] - N[(i * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(j * N[(N[Power[N[(c * t), $MachinePrecision], 2.0], $MachinePrecision] - N[Power[N[(i * y), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(c * t), $MachinePrecision] + N[(i * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * N[(N[(z * y), $MachinePrecision] - N[(a * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(b * N[(N[(z * c), $MachinePrecision] - N[(a * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(c * t), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision] * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[Less[t, -8.120978919195912e-33], t$95$2, If[Less[t, -4.712553818218485e-169], t$95$1, If[Less[t, -7.633533346031584e-308], t$95$2, If[Less[t, 1.0535888557455487e-139], t$95$1, t$95$2]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(x \cdot \left(y \cdot z - t \cdot a\right) - b \cdot \left(c \cdot z - i \cdot a\right)\right) + \frac{j \cdot \left({\left(c \cdot t\right)}^{2} - {\left(i \cdot y\right)}^{2}\right)}{c \cdot t + i \cdot y}\\
t_2 := x \cdot \left(z \cdot y - a \cdot t\right) - \left(b \cdot \left(z \cdot c - a \cdot i\right) - \left(c \cdot t - y \cdot i\right) \cdot j\right)\\
\mathbf{if}\;t < -8.120978919195912 \cdot 10^{-33}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t < -4.712553818218485 \cdot 10^{-169}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t < -7.633533346031584 \cdot 10^{-308}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t < 1.0535888557455487 \cdot 10^{-139}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
herbie shell --seed 2024107
(FPCore (x y z t a b c i j)
:name "Linear.Matrix:det33 from linear-1.19.1.3"
:precision binary64
:alt
(if (< t -8.120978919195912e-33) (- (* x (- (* z y) (* a t))) (- (* b (- (* z c) (* a i))) (* (- (* c t) (* y i)) j))) (if (< t -4.712553818218485e-169) (+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (/ (* j (- (pow (* c t) 2.0) (pow (* i y) 2.0))) (+ (* c t) (* i y)))) (if (< t -7.633533346031584e-308) (- (* x (- (* z y) (* a t))) (- (* b (- (* z c) (* a i))) (* (- (* c t) (* y i)) j))) (if (< t 1.0535888557455487e-139) (+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (/ (* j (- (pow (* c t) 2.0) (pow (* i y) 2.0))) (+ (* c t) (* i y)))) (- (* x (- (* z y) (* a t))) (- (* b (- (* z c) (* a i))) (* (- (* c t) (* y i)) j)))))))
(+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (* j (- (* c t) (* i y)))))