
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(+
(-
(+
(+
(-
(* (- (* x y) (* z t)) (- (* a b) (* c i)))
(* (- (* x j) (* z k)) (- (* y0 b) (* y1 i))))
(* (- (* x y2) (* z y3)) (- (* y0 c) (* y1 a))))
(* (- (* t j) (* y k)) (- (* y4 b) (* y5 i))))
(* (- (* t y2) (* y y3)) (- (* y4 c) (* y5 a))))
(* (- (* k y2) (* j y3)) (- (* y4 y1) (* y5 y0)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
return (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0)));
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
code = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
return (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0)));
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): return (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0)))
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) return Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(x * y) - Float64(z * t)) * Float64(Float64(a * b) - Float64(c * i))) - Float64(Float64(Float64(x * j) - Float64(z * k)) * Float64(Float64(y0 * b) - Float64(y1 * i)))) + Float64(Float64(Float64(x * y2) - Float64(z * y3)) * Float64(Float64(y0 * c) - Float64(y1 * a)))) + Float64(Float64(Float64(t * j) - Float64(y * k)) * Float64(Float64(y4 * b) - Float64(y5 * i)))) - Float64(Float64(Float64(t * y2) - Float64(y * y3)) * Float64(Float64(y4 * c) - Float64(y5 * a)))) + Float64(Float64(Float64(k * y2) - Float64(j * y3)) * Float64(Float64(y4 * y1) - Float64(y5 * y0)))) end
function tmp = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := N[(N[(N[(N[(N[(N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision] * N[(N[(y0 * b), $MachinePrecision] - N[(y1 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y0 * c), $MachinePrecision] - N[(y1 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision] * N[(N[(y4 * b), $MachinePrecision] - N[(y5 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y4 * c), $MachinePrecision] - N[(y5 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y4 * y1), $MachinePrecision] - N[(y5 * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(\left(\left(\left(x \cdot y - z \cdot t\right) \cdot \left(a \cdot b - c \cdot i\right) - \left(x \cdot j - z \cdot k\right) \cdot \left(y0 \cdot b - y1 \cdot i\right)\right) + \left(x \cdot y2 - z \cdot y3\right) \cdot \left(y0 \cdot c - y1 \cdot a\right)\right) + \left(t \cdot j - y \cdot k\right) \cdot \left(y4 \cdot b - y5 \cdot i\right)\right) - \left(t \cdot y2 - y \cdot y3\right) \cdot \left(y4 \cdot c - y5 \cdot a\right)\right) + \left(k \cdot y2 - j \cdot y3\right) \cdot \left(y4 \cdot y1 - y5 \cdot y0\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 56 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(+
(-
(+
(+
(-
(* (- (* x y) (* z t)) (- (* a b) (* c i)))
(* (- (* x j) (* z k)) (- (* y0 b) (* y1 i))))
(* (- (* x y2) (* z y3)) (- (* y0 c) (* y1 a))))
(* (- (* t j) (* y k)) (- (* y4 b) (* y5 i))))
(* (- (* t y2) (* y y3)) (- (* y4 c) (* y5 a))))
(* (- (* k y2) (* j y3)) (- (* y4 y1) (* y5 y0)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
return (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0)));
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
code = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
return (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0)));
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): return (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0)))
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) return Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(x * y) - Float64(z * t)) * Float64(Float64(a * b) - Float64(c * i))) - Float64(Float64(Float64(x * j) - Float64(z * k)) * Float64(Float64(y0 * b) - Float64(y1 * i)))) + Float64(Float64(Float64(x * y2) - Float64(z * y3)) * Float64(Float64(y0 * c) - Float64(y1 * a)))) + Float64(Float64(Float64(t * j) - Float64(y * k)) * Float64(Float64(y4 * b) - Float64(y5 * i)))) - Float64(Float64(Float64(t * y2) - Float64(y * y3)) * Float64(Float64(y4 * c) - Float64(y5 * a)))) + Float64(Float64(Float64(k * y2) - Float64(j * y3)) * Float64(Float64(y4 * y1) - Float64(y5 * y0)))) end
function tmp = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - (((x * j) - (z * k)) * ((y0 * b) - (y1 * i)))) + (((x * y2) - (z * y3)) * ((y0 * c) - (y1 * a)))) + (((t * j) - (y * k)) * ((y4 * b) - (y5 * i)))) - (((t * y2) - (y * y3)) * ((y4 * c) - (y5 * a)))) + (((k * y2) - (j * y3)) * ((y4 * y1) - (y5 * y0))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := N[(N[(N[(N[(N[(N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision] * N[(N[(y0 * b), $MachinePrecision] - N[(y1 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y0 * c), $MachinePrecision] - N[(y1 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision] * N[(N[(y4 * b), $MachinePrecision] - N[(y5 * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y4 * c), $MachinePrecision] - N[(y5 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y4 * y1), $MachinePrecision] - N[(y5 * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(\left(\left(\left(x \cdot y - z \cdot t\right) \cdot \left(a \cdot b - c \cdot i\right) - \left(x \cdot j - z \cdot k\right) \cdot \left(y0 \cdot b - y1 \cdot i\right)\right) + \left(x \cdot y2 - z \cdot y3\right) \cdot \left(y0 \cdot c - y1 \cdot a\right)\right) + \left(t \cdot j - y \cdot k\right) \cdot \left(y4 \cdot b - y5 \cdot i\right)\right) - \left(t \cdot y2 - y \cdot y3\right) \cdot \left(y4 \cdot c - y5 \cdot a\right)\right) + \left(k \cdot y2 - j \cdot y3\right) \cdot \left(y4 \cdot y1 - y5 \cdot y0\right)
\end{array}
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* i (+ (* c (- (* z t) (* x y))) (* y1 (- (* x j) (* z k))))))
(t_2 (- (* c y0) (* a y1)))
(t_3 (- (* t j) (* y k)))
(t_4 (- (* a y5) (* c y4)))
(t_5 (- (* z k) (* x j)))
(t_6 (* b (+ (+ (* a (- (* x y) (* z t))) (* y4 t_3)) (* y0 t_5))))
(t_7 (- (* b y4) (* i y5)))
(t_8 (- (* y1 y4) (* y0 y5)))
(t_9 (* y2 (+ (+ (* k t_8) (* x t_2)) (* t t_4))))
(t_10 (- (* i y1) (* b y0)))
(t_11
(* j (+ (+ (* t t_7) (* y3 (- (* y0 y5) (* y1 y4)))) (* x t_10)))))
(if (<= y3 -6.6e+140)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y3 -2.6e+70)
(* t (+ (+ (* j t_7) (* z (- (* c i) (* a b)))) (* y2 t_4)))
(if (<= y3 -1.8e+23)
(* k (* y2 t_8))
(if (<= y3 -3.5e-35)
t_1
(if (<= y3 -1.1e-62)
(* x (+ (+ (* y (- (* a b) (* c i))) (* y2 t_2)) (* j t_10)))
(if (<= y3 -9.5e-79)
(* k (* y1 (* y4 (- y2 (/ (* z i) y4)))))
(if (<= y3 -5.8e-189)
t_6
(if (<= y3 -8.2e-232)
t_11
(if (<= y3 4e-245)
t_6
(if (<= y3 2.15e-203)
t_9
(if (<= y3 1.1e-155)
(* b (* x (- (* y a) (* j y0))))
(if (<= y3 2.1e-132)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y3 3e-80)
t_9
(if (<= y3 2.75e-45)
t_1
(if (<= y3 2.65e+196)
t_9
(if (<= y3 2.3e+209)
(*
y4
(+
(+ (* b t_3) (* y1 (- (* k y2) (* j y3))))
(* c (- (* y y3) (* t y2)))))
(if (<= y3 4.5e+233)
t_11
(*
y0
(+
(+
(* c (- (* x y2) (* z y3)))
(* y5 (- (* j y3) (* k y2))))
(* b t_5))))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
double t_2 = (c * y0) - (a * y1);
double t_3 = (t * j) - (y * k);
double t_4 = (a * y5) - (c * y4);
double t_5 = (z * k) - (x * j);
double t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * t_5));
double t_7 = (b * y4) - (i * y5);
double t_8 = (y1 * y4) - (y0 * y5);
double t_9 = y2 * (((k * t_8) + (x * t_2)) + (t * t_4));
double t_10 = (i * y1) - (b * y0);
double t_11 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_10));
double tmp;
if (y3 <= -6.6e+140) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y3 <= -2.6e+70) {
tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_4));
} else if (y3 <= -1.8e+23) {
tmp = k * (y2 * t_8);
} else if (y3 <= -3.5e-35) {
tmp = t_1;
} else if (y3 <= -1.1e-62) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_10));
} else if (y3 <= -9.5e-79) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else if (y3 <= -5.8e-189) {
tmp = t_6;
} else if (y3 <= -8.2e-232) {
tmp = t_11;
} else if (y3 <= 4e-245) {
tmp = t_6;
} else if (y3 <= 2.15e-203) {
tmp = t_9;
} else if (y3 <= 1.1e-155) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y3 <= 2.1e-132) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y3 <= 3e-80) {
tmp = t_9;
} else if (y3 <= 2.75e-45) {
tmp = t_1;
} else if (y3 <= 2.65e+196) {
tmp = t_9;
} else if (y3 <= 2.3e+209) {
tmp = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
} else if (y3 <= 4.5e+233) {
tmp = t_11;
} else {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_10
real(8) :: t_11
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_1 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))))
t_2 = (c * y0) - (a * y1)
t_3 = (t * j) - (y * k)
t_4 = (a * y5) - (c * y4)
t_5 = (z * k) - (x * j)
t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * t_5))
t_7 = (b * y4) - (i * y5)
t_8 = (y1 * y4) - (y0 * y5)
t_9 = y2 * (((k * t_8) + (x * t_2)) + (t * t_4))
t_10 = (i * y1) - (b * y0)
t_11 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_10))
if (y3 <= (-6.6d+140)) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y3 <= (-2.6d+70)) then
tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_4))
else if (y3 <= (-1.8d+23)) then
tmp = k * (y2 * t_8)
else if (y3 <= (-3.5d-35)) then
tmp = t_1
else if (y3 <= (-1.1d-62)) then
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_10))
else if (y3 <= (-9.5d-79)) then
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))))
else if (y3 <= (-5.8d-189)) then
tmp = t_6
else if (y3 <= (-8.2d-232)) then
tmp = t_11
else if (y3 <= 4d-245) then
tmp = t_6
else if (y3 <= 2.15d-203) then
tmp = t_9
else if (y3 <= 1.1d-155) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (y3 <= 2.1d-132) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y3 <= 3d-80) then
tmp = t_9
else if (y3 <= 2.75d-45) then
tmp = t_1
else if (y3 <= 2.65d+196) then
tmp = t_9
else if (y3 <= 2.3d+209) then
tmp = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))))
else if (y3 <= 4.5d+233) then
tmp = t_11
else
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
double t_2 = (c * y0) - (a * y1);
double t_3 = (t * j) - (y * k);
double t_4 = (a * y5) - (c * y4);
double t_5 = (z * k) - (x * j);
double t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * t_5));
double t_7 = (b * y4) - (i * y5);
double t_8 = (y1 * y4) - (y0 * y5);
double t_9 = y2 * (((k * t_8) + (x * t_2)) + (t * t_4));
double t_10 = (i * y1) - (b * y0);
double t_11 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_10));
double tmp;
if (y3 <= -6.6e+140) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y3 <= -2.6e+70) {
tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_4));
} else if (y3 <= -1.8e+23) {
tmp = k * (y2 * t_8);
} else if (y3 <= -3.5e-35) {
tmp = t_1;
} else if (y3 <= -1.1e-62) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_10));
} else if (y3 <= -9.5e-79) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else if (y3 <= -5.8e-189) {
tmp = t_6;
} else if (y3 <= -8.2e-232) {
tmp = t_11;
} else if (y3 <= 4e-245) {
tmp = t_6;
} else if (y3 <= 2.15e-203) {
tmp = t_9;
} else if (y3 <= 1.1e-155) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y3 <= 2.1e-132) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y3 <= 3e-80) {
tmp = t_9;
} else if (y3 <= 2.75e-45) {
tmp = t_1;
} else if (y3 <= 2.65e+196) {
tmp = t_9;
} else if (y3 <= 2.3e+209) {
tmp = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
} else if (y3 <= 4.5e+233) {
tmp = t_11;
} else {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))) t_2 = (c * y0) - (a * y1) t_3 = (t * j) - (y * k) t_4 = (a * y5) - (c * y4) t_5 = (z * k) - (x * j) t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * t_5)) t_7 = (b * y4) - (i * y5) t_8 = (y1 * y4) - (y0 * y5) t_9 = y2 * (((k * t_8) + (x * t_2)) + (t * t_4)) t_10 = (i * y1) - (b * y0) t_11 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_10)) tmp = 0 if y3 <= -6.6e+140: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y3 <= -2.6e+70: tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_4)) elif y3 <= -1.8e+23: tmp = k * (y2 * t_8) elif y3 <= -3.5e-35: tmp = t_1 elif y3 <= -1.1e-62: tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_10)) elif y3 <= -9.5e-79: tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))) elif y3 <= -5.8e-189: tmp = t_6 elif y3 <= -8.2e-232: tmp = t_11 elif y3 <= 4e-245: tmp = t_6 elif y3 <= 2.15e-203: tmp = t_9 elif y3 <= 1.1e-155: tmp = b * (x * ((y * a) - (j * y0))) elif y3 <= 2.1e-132: tmp = k * (z * ((b * y0) - (i * y1))) elif y3 <= 3e-80: tmp = t_9 elif y3 <= 2.75e-45: tmp = t_1 elif y3 <= 2.65e+196: tmp = t_9 elif y3 <= 2.3e+209: tmp = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))) elif y3 <= 4.5e+233: tmp = t_11 else: tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(i * Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) + Float64(y1 * Float64(Float64(x * j) - Float64(z * k))))) t_2 = Float64(Float64(c * y0) - Float64(a * y1)) t_3 = Float64(Float64(t * j) - Float64(y * k)) t_4 = Float64(Float64(a * y5) - Float64(c * y4)) t_5 = Float64(Float64(z * k) - Float64(x * j)) t_6 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * t_3)) + Float64(y0 * t_5))) t_7 = Float64(Float64(b * y4) - Float64(i * y5)) t_8 = Float64(Float64(y1 * y4) - Float64(y0 * y5)) t_9 = Float64(y2 * Float64(Float64(Float64(k * t_8) + Float64(x * t_2)) + Float64(t * t_4))) t_10 = Float64(Float64(i * y1) - Float64(b * y0)) t_11 = Float64(j * Float64(Float64(Float64(t * t_7) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * t_10))) tmp = 0.0 if (y3 <= -6.6e+140) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y3 <= -2.6e+70) tmp = Float64(t * Float64(Float64(Float64(j * t_7) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * t_4))); elseif (y3 <= -1.8e+23) tmp = Float64(k * Float64(y2 * t_8)); elseif (y3 <= -3.5e-35) tmp = t_1; elseif (y3 <= -1.1e-62) tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * t_2)) + Float64(j * t_10))); elseif (y3 <= -9.5e-79) tmp = Float64(k * Float64(y1 * Float64(y4 * Float64(y2 - Float64(Float64(z * i) / y4))))); elseif (y3 <= -5.8e-189) tmp = t_6; elseif (y3 <= -8.2e-232) tmp = t_11; elseif (y3 <= 4e-245) tmp = t_6; elseif (y3 <= 2.15e-203) tmp = t_9; elseif (y3 <= 1.1e-155) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (y3 <= 2.1e-132) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y3 <= 3e-80) tmp = t_9; elseif (y3 <= 2.75e-45) tmp = t_1; elseif (y3 <= 2.65e+196) tmp = t_9; elseif (y3 <= 2.3e+209) tmp = Float64(y4 * Float64(Float64(Float64(b * t_3) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (y3 <= 4.5e+233) tmp = t_11; else tmp = Float64(y0 * Float64(Float64(Float64(c * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))) + Float64(b * t_5))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))); t_2 = (c * y0) - (a * y1); t_3 = (t * j) - (y * k); t_4 = (a * y5) - (c * y4); t_5 = (z * k) - (x * j); t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * t_5)); t_7 = (b * y4) - (i * y5); t_8 = (y1 * y4) - (y0 * y5); t_9 = y2 * (((k * t_8) + (x * t_2)) + (t * t_4)); t_10 = (i * y1) - (b * y0); t_11 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_10)); tmp = 0.0; if (y3 <= -6.6e+140) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y3 <= -2.6e+70) tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_4)); elseif (y3 <= -1.8e+23) tmp = k * (y2 * t_8); elseif (y3 <= -3.5e-35) tmp = t_1; elseif (y3 <= -1.1e-62) tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_10)); elseif (y3 <= -9.5e-79) tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))); elseif (y3 <= -5.8e-189) tmp = t_6; elseif (y3 <= -8.2e-232) tmp = t_11; elseif (y3 <= 4e-245) tmp = t_6; elseif (y3 <= 2.15e-203) tmp = t_9; elseif (y3 <= 1.1e-155) tmp = b * (x * ((y * a) - (j * y0))); elseif (y3 <= 2.1e-132) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y3 <= 3e-80) tmp = t_9; elseif (y3 <= 2.75e-45) tmp = t_1; elseif (y3 <= 2.65e+196) tmp = t_9; elseif (y3 <= 2.3e+209) tmp = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))); elseif (y3 <= 4.5e+233) tmp = t_11; else tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(i * N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$3), $MachinePrecision]), $MachinePrecision] + N[(y0 * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(y2 * N[(N[(N[(k * t$95$8), $MachinePrecision] + N[(x * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$10 = N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$11 = N[(j * N[(N[(N[(t * t$95$7), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$10), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -6.6e+140], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -2.6e+70], N[(t * N[(N[(N[(j * t$95$7), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -1.8e+23], N[(k * N[(y2 * t$95$8), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -3.5e-35], t$95$1, If[LessEqual[y3, -1.1e-62], N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(j * t$95$10), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -9.5e-79], N[(k * N[(y1 * N[(y4 * N[(y2 - N[(N[(z * i), $MachinePrecision] / y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -5.8e-189], t$95$6, If[LessEqual[y3, -8.2e-232], t$95$11, If[LessEqual[y3, 4e-245], t$95$6, If[LessEqual[y3, 2.15e-203], t$95$9, If[LessEqual[y3, 1.1e-155], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 2.1e-132], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 3e-80], t$95$9, If[LessEqual[y3, 2.75e-45], t$95$1, If[LessEqual[y3, 2.65e+196], t$95$9, If[LessEqual[y3, 2.3e+209], N[(y4 * N[(N[(N[(b * t$95$3), $MachinePrecision] + N[(y1 * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 4.5e+233], t$95$11, N[(y0 * N[(N[(N[(c * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(c \cdot \left(z \cdot t - x \cdot y\right) + y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
t_2 := c \cdot y0 - a \cdot y1\\
t_3 := t \cdot j - y \cdot k\\
t_4 := a \cdot y5 - c \cdot y4\\
t_5 := z \cdot k - x \cdot j\\
t_6 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot t\_3\right) + y0 \cdot t\_5\right)\\
t_7 := b \cdot y4 - i \cdot y5\\
t_8 := y1 \cdot y4 - y0 \cdot y5\\
t_9 := y2 \cdot \left(\left(k \cdot t\_8 + x \cdot t\_2\right) + t \cdot t\_4\right)\\
t_10 := i \cdot y1 - b \cdot y0\\
t_11 := j \cdot \left(\left(t \cdot t\_7 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot t\_10\right)\\
\mathbf{if}\;y3 \leq -6.6 \cdot 10^{+140}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq -2.6 \cdot 10^{+70}:\\
\;\;\;\;t \cdot \left(\left(j \cdot t\_7 + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot t\_4\right)\\
\mathbf{elif}\;y3 \leq -1.8 \cdot 10^{+23}:\\
\;\;\;\;k \cdot \left(y2 \cdot t\_8\right)\\
\mathbf{elif}\;y3 \leq -3.5 \cdot 10^{-35}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y3 \leq -1.1 \cdot 10^{-62}:\\
\;\;\;\;x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + y2 \cdot t\_2\right) + j \cdot t\_10\right)\\
\mathbf{elif}\;y3 \leq -9.5 \cdot 10^{-79}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y4 \cdot \left(y2 - \frac{z \cdot i}{y4}\right)\right)\right)\\
\mathbf{elif}\;y3 \leq -5.8 \cdot 10^{-189}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y3 \leq -8.2 \cdot 10^{-232}:\\
\;\;\;\;t\_11\\
\mathbf{elif}\;y3 \leq 4 \cdot 10^{-245}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y3 \leq 2.15 \cdot 10^{-203}:\\
\;\;\;\;t\_9\\
\mathbf{elif}\;y3 \leq 1.1 \cdot 10^{-155}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;y3 \leq 2.1 \cdot 10^{-132}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y3 \leq 3 \cdot 10^{-80}:\\
\;\;\;\;t\_9\\
\mathbf{elif}\;y3 \leq 2.75 \cdot 10^{-45}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y3 \leq 2.65 \cdot 10^{+196}:\\
\;\;\;\;t\_9\\
\mathbf{elif}\;y3 \leq 2.3 \cdot 10^{+209}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_3 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y3 \leq 4.5 \cdot 10^{+233}:\\
\;\;\;\;t\_11\\
\mathbf{else}:\\
\;\;\;\;y0 \cdot \left(\left(c \cdot \left(x \cdot y2 - z \cdot y3\right) + y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right) + b \cdot t\_5\right)\\
\end{array}
\end{array}
if y3 < -6.6000000000000003e140Initial program 14.4%
Taylor expanded in y around inf 53.0%
+-commutative53.0%
mul-1-neg53.0%
unsub-neg53.0%
*-commutative53.0%
*-commutative53.0%
mul-1-neg53.0%
Simplified53.0%
Taylor expanded in y3 around inf 56.1%
if -6.6000000000000003e140 < y3 < -2.6e70Initial program 33.1%
Taylor expanded in t around inf 80.2%
+-commutative80.2%
mul-1-neg80.2%
unsub-neg80.2%
*-commutative80.2%
Simplified80.2%
if -2.6e70 < y3 < -1.7999999999999999e23Initial program 25.7%
Taylor expanded in y2 around inf 50.7%
Taylor expanded in k around inf 75.3%
if -1.7999999999999999e23 < y3 < -3.49999999999999996e-35 or 3.00000000000000007e-80 < y3 < 2.75000000000000015e-45Initial program 29.1%
Taylor expanded in i around -inf 58.5%
Taylor expanded in y5 around 0 54.6%
if -3.49999999999999996e-35 < y3 < -1.10000000000000009e-62Initial program 56.9%
Taylor expanded in x around inf 73.0%
if -1.10000000000000009e-62 < y3 < -9.4999999999999997e-79Initial program 33.3%
Taylor expanded in k around inf 52.1%
+-commutative52.1%
mul-1-neg52.1%
unsub-neg52.1%
*-commutative52.1%
associate-*r*52.1%
neg-mul-152.1%
Simplified52.1%
Taylor expanded in y1 around inf 67.5%
Taylor expanded in y4 around inf 83.7%
mul-1-neg83.7%
unsub-neg83.7%
*-commutative83.7%
Simplified83.7%
if -9.4999999999999997e-79 < y3 < -5.8e-189 or -8.19999999999999945e-232 < y3 < 3.9999999999999997e-245Initial program 41.7%
Taylor expanded in b around inf 60.6%
if -5.8e-189 < y3 < -8.19999999999999945e-232 or 2.3000000000000001e209 < y3 < 4.49999999999999999e233Initial program 22.6%
Taylor expanded in j around inf 78.1%
+-commutative78.1%
mul-1-neg78.1%
unsub-neg78.1%
*-commutative78.1%
Simplified78.1%
if 3.9999999999999997e-245 < y3 < 2.15000000000000014e-203 or 2.1000000000000001e-132 < y3 < 3.00000000000000007e-80 or 2.75000000000000015e-45 < y3 < 2.65000000000000004e196Initial program 23.2%
Taylor expanded in y2 around inf 66.0%
if 2.15000000000000014e-203 < y3 < 1.1e-155Initial program 12.5%
Taylor expanded in b around inf 25.9%
Taylor expanded in x around inf 87.6%
if 1.1e-155 < y3 < 2.1000000000000001e-132Initial program 29.6%
Taylor expanded in k around inf 48.7%
+-commutative48.7%
mul-1-neg48.7%
unsub-neg48.7%
*-commutative48.7%
associate-*r*48.7%
neg-mul-148.7%
Simplified48.7%
Taylor expanded in z around inf 48.8%
if 2.65000000000000004e196 < y3 < 2.3000000000000001e209Initial program 20.0%
Taylor expanded in y4 around inf 100.0%
if 4.49999999999999999e233 < y3 Initial program 30.8%
Taylor expanded in y0 around inf 77.0%
+-commutative77.0%
mul-1-neg77.0%
unsub-neg77.0%
*-commutative77.0%
*-commutative77.0%
*-commutative77.0%
*-commutative77.0%
Simplified77.0%
Final simplification66.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* a y5) (* c y4)))
(t_2 (- (* y1 y4) (* y0 y5)))
(t_3 (- (* c y0) (* a y1)))
(t_4
(+
(+
(+
(+
(+
(* (- (* a b) (* c i)) (- (* x y) (* z t)))
(* (- (* b y0) (* i y1)) (- (* z k) (* x j))))
(* t_3 (- (* x y2) (* z y3))))
(* (- (* b y4) (* i y5)) (- (* t j) (* y k))))
(* (- (* t y2) (* y y3)) t_1))
(* (- (* k y2) (* j y3)) t_2))))
(if (<= t_4 INFINITY) t_4 (* y2 (+ (+ (* k t_2) (* x t_3)) (* t t_1))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (a * y5) - (c * y4);
double t_2 = (y1 * y4) - (y0 * y5);
double t_3 = (c * y0) - (a * y1);
double t_4 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (t_3 * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * ((t * j) - (y * k)))) + (((t * y2) - (y * y3)) * t_1)) + (((k * y2) - (j * y3)) * t_2);
double tmp;
if (t_4 <= ((double) INFINITY)) {
tmp = t_4;
} else {
tmp = y2 * (((k * t_2) + (x * t_3)) + (t * t_1));
}
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (a * y5) - (c * y4);
double t_2 = (y1 * y4) - (y0 * y5);
double t_3 = (c * y0) - (a * y1);
double t_4 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (t_3 * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * ((t * j) - (y * k)))) + (((t * y2) - (y * y3)) * t_1)) + (((k * y2) - (j * y3)) * t_2);
double tmp;
if (t_4 <= Double.POSITIVE_INFINITY) {
tmp = t_4;
} else {
tmp = y2 * (((k * t_2) + (x * t_3)) + (t * t_1));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (a * y5) - (c * y4) t_2 = (y1 * y4) - (y0 * y5) t_3 = (c * y0) - (a * y1) t_4 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (t_3 * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * ((t * j) - (y * k)))) + (((t * y2) - (y * y3)) * t_1)) + (((k * y2) - (j * y3)) * t_2) tmp = 0 if t_4 <= math.inf: tmp = t_4 else: tmp = y2 * (((k * t_2) + (x * t_3)) + (t * t_1)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(a * y5) - Float64(c * y4)) t_2 = Float64(Float64(y1 * y4) - Float64(y0 * y5)) t_3 = Float64(Float64(c * y0) - Float64(a * y1)) t_4 = Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(a * b) - Float64(c * i)) * Float64(Float64(x * y) - Float64(z * t))) + Float64(Float64(Float64(b * y0) - Float64(i * y1)) * Float64(Float64(z * k) - Float64(x * j)))) + Float64(t_3 * Float64(Float64(x * y2) - Float64(z * y3)))) + Float64(Float64(Float64(b * y4) - Float64(i * y5)) * Float64(Float64(t * j) - Float64(y * k)))) + Float64(Float64(Float64(t * y2) - Float64(y * y3)) * t_1)) + Float64(Float64(Float64(k * y2) - Float64(j * y3)) * t_2)) tmp = 0.0 if (t_4 <= Inf) tmp = t_4; else tmp = Float64(y2 * Float64(Float64(Float64(k * t_2) + Float64(x * t_3)) + Float64(t * t_1))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (a * y5) - (c * y4); t_2 = (y1 * y4) - (y0 * y5); t_3 = (c * y0) - (a * y1); t_4 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (t_3 * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * ((t * j) - (y * k)))) + (((t * y2) - (y * y3)) * t_1)) + (((k * y2) - (j * y3)) * t_2); tmp = 0.0; if (t_4 <= Inf) tmp = t_4; else tmp = y2 * (((k * t_2) + (x * t_3)) + (t * t_1)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(N[(N[(N[(N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision] * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$3 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision] * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision] * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$4, Infinity], t$95$4, N[(y2 * N[(N[(N[(k * t$95$2), $MachinePrecision] + N[(x * t$95$3), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot y5 - c \cdot y4\\
t_2 := y1 \cdot y4 - y0 \cdot y5\\
t_3 := c \cdot y0 - a \cdot y1\\
t_4 := \left(\left(\left(\left(\left(a \cdot b - c \cdot i\right) \cdot \left(x \cdot y - z \cdot t\right) + \left(b \cdot y0 - i \cdot y1\right) \cdot \left(z \cdot k - x \cdot j\right)\right) + t\_3 \cdot \left(x \cdot y2 - z \cdot y3\right)\right) + \left(b \cdot y4 - i \cdot y5\right) \cdot \left(t \cdot j - y \cdot k\right)\right) + \left(t \cdot y2 - y \cdot y3\right) \cdot t\_1\right) + \left(k \cdot y2 - j \cdot y3\right) \cdot t\_2\\
\mathbf{if}\;t\_4 \leq \infty:\\
\;\;\;\;t\_4\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot t\_2 + x \cdot t\_3\right) + t \cdot t\_1\right)\\
\end{array}
\end{array}
if (+.f64 (-.f64 (+.f64 (+.f64 (-.f64 (*.f64 (-.f64 (*.f64 x y) (*.f64 z t)) (-.f64 (*.f64 a b) (*.f64 c i))) (*.f64 (-.f64 (*.f64 x j) (*.f64 z k)) (-.f64 (*.f64 y0 b) (*.f64 y1 i)))) (*.f64 (-.f64 (*.f64 x y2) (*.f64 z y3)) (-.f64 (*.f64 y0 c) (*.f64 y1 a)))) (*.f64 (-.f64 (*.f64 t j) (*.f64 y k)) (-.f64 (*.f64 y4 b) (*.f64 y5 i)))) (*.f64 (-.f64 (*.f64 t y2) (*.f64 y y3)) (-.f64 (*.f64 y4 c) (*.f64 y5 a)))) (*.f64 (-.f64 (*.f64 k y2) (*.f64 j y3)) (-.f64 (*.f64 y4 y1) (*.f64 y5 y0)))) < +inf.0Initial program 90.5%
if +inf.0 < (+.f64 (-.f64 (+.f64 (+.f64 (-.f64 (*.f64 (-.f64 (*.f64 x y) (*.f64 z t)) (-.f64 (*.f64 a b) (*.f64 c i))) (*.f64 (-.f64 (*.f64 x j) (*.f64 z k)) (-.f64 (*.f64 y0 b) (*.f64 y1 i)))) (*.f64 (-.f64 (*.f64 x y2) (*.f64 z y3)) (-.f64 (*.f64 y0 c) (*.f64 y1 a)))) (*.f64 (-.f64 (*.f64 t j) (*.f64 y k)) (-.f64 (*.f64 y4 b) (*.f64 y5 i)))) (*.f64 (-.f64 (*.f64 t y2) (*.f64 y y3)) (-.f64 (*.f64 y4 c) (*.f64 y5 a)))) (*.f64 (-.f64 (*.f64 k y2) (*.f64 j y3)) (-.f64 (*.f64 y4 y1) (*.f64 y5 y0)))) Initial program 0.0%
Taylor expanded in y2 around inf 43.3%
Final simplification57.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* x (- (* i y1) (* b y0))))
(t_2 (* y2 (- (* a y5) (* c y4))))
(t_3 (- (* b y4) (* i y5)))
(t_4 (* t (+ (+ (* j t_3) (* z (- (* c i) (* a b)))) t_2)))
(t_5 (- (* z k) (* x j)))
(t_6 (* y0 t_5))
(t_7
(*
b
(+ (+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k)))) t_6))))
(if (<= y3 -6.5e+174)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y3 -2.6e+70)
t_4
(if (<= y3 -1.7e-5)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= y3 -3.3e-61)
(*
(+
(- (* y3 y4) (* a (* y3 (/ y5 c))))
(- (* i (* k (/ y5 c))) (* x i)))
(* y c))
(if (<= y3 -1.35e-94)
(* k (* y1 (* y4 (- y2 (/ (* z i) y4)))))
(if (<= y3 -5.6e-189)
t_7
(if (<= y3 -7.5e-233)
(* j (+ (+ (* t t_3) (* y3 (- (* y0 y5) (* y1 y4)))) t_1))
(if (<= y3 4.6e-240)
t_7
(if (<= y3 3.1e-204)
(* y2 (* a (- (* t y5) (* x y1))))
(if (<= y3 4.5e-180)
(* j t_1)
(if (<= y3 1.75e-140)
t_4
(if (<= y3 1.3e-132)
(* b t_6)
(if (<= y3 3.2e-88)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y3 3e-71)
(* y1 (* y2 (- (* k y4) (* x a))))
(if (<= y3 3.7e-19)
(* t t_2)
(if (<= y3 1.55e+137)
(* y2 (* c (- (* x y0) (* t y4))))
(if (<= y3 1.7e+209)
(* j (* y1 (* y3 (- y4))))
(if (<= y3 8.5e+238)
(* (* j y0) (- (* y3 y5) (* x b)))
(*
y0
(+
(+
(* c (- (* x y2) (* z y3)))
(* y5 (- (* j y3) (* k y2))))
(* b t_5)))))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = x * ((i * y1) - (b * y0));
double t_2 = y2 * ((a * y5) - (c * y4));
double t_3 = (b * y4) - (i * y5);
double t_4 = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + t_2);
double t_5 = (z * k) - (x * j);
double t_6 = y0 * t_5;
double t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + t_6);
double tmp;
if (y3 <= -6.5e+174) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y3 <= -2.6e+70) {
tmp = t_4;
} else if (y3 <= -1.7e-5) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y3 <= -3.3e-61) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (y3 <= -1.35e-94) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else if (y3 <= -5.6e-189) {
tmp = t_7;
} else if (y3 <= -7.5e-233) {
tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_1);
} else if (y3 <= 4.6e-240) {
tmp = t_7;
} else if (y3 <= 3.1e-204) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else if (y3 <= 4.5e-180) {
tmp = j * t_1;
} else if (y3 <= 1.75e-140) {
tmp = t_4;
} else if (y3 <= 1.3e-132) {
tmp = b * t_6;
} else if (y3 <= 3.2e-88) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y3 <= 3e-71) {
tmp = y1 * (y2 * ((k * y4) - (x * a)));
} else if (y3 <= 3.7e-19) {
tmp = t * t_2;
} else if (y3 <= 1.55e+137) {
tmp = y2 * (c * ((x * y0) - (t * y4)));
} else if (y3 <= 1.7e+209) {
tmp = j * (y1 * (y3 * -y4));
} else if (y3 <= 8.5e+238) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: tmp
t_1 = x * ((i * y1) - (b * y0))
t_2 = y2 * ((a * y5) - (c * y4))
t_3 = (b * y4) - (i * y5)
t_4 = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + t_2)
t_5 = (z * k) - (x * j)
t_6 = y0 * t_5
t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + t_6)
if (y3 <= (-6.5d+174)) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y3 <= (-2.6d+70)) then
tmp = t_4
else if (y3 <= (-1.7d-5)) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (y3 <= (-3.3d-61)) then
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c)
else if (y3 <= (-1.35d-94)) then
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))))
else if (y3 <= (-5.6d-189)) then
tmp = t_7
else if (y3 <= (-7.5d-233)) then
tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_1)
else if (y3 <= 4.6d-240) then
tmp = t_7
else if (y3 <= 3.1d-204) then
tmp = y2 * (a * ((t * y5) - (x * y1)))
else if (y3 <= 4.5d-180) then
tmp = j * t_1
else if (y3 <= 1.75d-140) then
tmp = t_4
else if (y3 <= 1.3d-132) then
tmp = b * t_6
else if (y3 <= 3.2d-88) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y3 <= 3d-71) then
tmp = y1 * (y2 * ((k * y4) - (x * a)))
else if (y3 <= 3.7d-19) then
tmp = t * t_2
else if (y3 <= 1.55d+137) then
tmp = y2 * (c * ((x * y0) - (t * y4)))
else if (y3 <= 1.7d+209) then
tmp = j * (y1 * (y3 * -y4))
else if (y3 <= 8.5d+238) then
tmp = (j * y0) * ((y3 * y5) - (x * b))
else
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = x * ((i * y1) - (b * y0));
double t_2 = y2 * ((a * y5) - (c * y4));
double t_3 = (b * y4) - (i * y5);
double t_4 = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + t_2);
double t_5 = (z * k) - (x * j);
double t_6 = y0 * t_5;
double t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + t_6);
double tmp;
if (y3 <= -6.5e+174) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y3 <= -2.6e+70) {
tmp = t_4;
} else if (y3 <= -1.7e-5) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y3 <= -3.3e-61) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (y3 <= -1.35e-94) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else if (y3 <= -5.6e-189) {
tmp = t_7;
} else if (y3 <= -7.5e-233) {
tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_1);
} else if (y3 <= 4.6e-240) {
tmp = t_7;
} else if (y3 <= 3.1e-204) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else if (y3 <= 4.5e-180) {
tmp = j * t_1;
} else if (y3 <= 1.75e-140) {
tmp = t_4;
} else if (y3 <= 1.3e-132) {
tmp = b * t_6;
} else if (y3 <= 3.2e-88) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y3 <= 3e-71) {
tmp = y1 * (y2 * ((k * y4) - (x * a)));
} else if (y3 <= 3.7e-19) {
tmp = t * t_2;
} else if (y3 <= 1.55e+137) {
tmp = y2 * (c * ((x * y0) - (t * y4)));
} else if (y3 <= 1.7e+209) {
tmp = j * (y1 * (y3 * -y4));
} else if (y3 <= 8.5e+238) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = x * ((i * y1) - (b * y0)) t_2 = y2 * ((a * y5) - (c * y4)) t_3 = (b * y4) - (i * y5) t_4 = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + t_2) t_5 = (z * k) - (x * j) t_6 = y0 * t_5 t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + t_6) tmp = 0 if y3 <= -6.5e+174: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y3 <= -2.6e+70: tmp = t_4 elif y3 <= -1.7e-5: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif y3 <= -3.3e-61: tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c) elif y3 <= -1.35e-94: tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))) elif y3 <= -5.6e-189: tmp = t_7 elif y3 <= -7.5e-233: tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_1) elif y3 <= 4.6e-240: tmp = t_7 elif y3 <= 3.1e-204: tmp = y2 * (a * ((t * y5) - (x * y1))) elif y3 <= 4.5e-180: tmp = j * t_1 elif y3 <= 1.75e-140: tmp = t_4 elif y3 <= 1.3e-132: tmp = b * t_6 elif y3 <= 3.2e-88: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y3 <= 3e-71: tmp = y1 * (y2 * ((k * y4) - (x * a))) elif y3 <= 3.7e-19: tmp = t * t_2 elif y3 <= 1.55e+137: tmp = y2 * (c * ((x * y0) - (t * y4))) elif y3 <= 1.7e+209: tmp = j * (y1 * (y3 * -y4)) elif y3 <= 8.5e+238: tmp = (j * y0) * ((y3 * y5) - (x * b)) else: tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(x * Float64(Float64(i * y1) - Float64(b * y0))) t_2 = Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))) t_3 = Float64(Float64(b * y4) - Float64(i * y5)) t_4 = Float64(t * Float64(Float64(Float64(j * t_3) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + t_2)) t_5 = Float64(Float64(z * k) - Float64(x * j)) t_6 = Float64(y0 * t_5) t_7 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + t_6)) tmp = 0.0 if (y3 <= -6.5e+174) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y3 <= -2.6e+70) tmp = t_4; elseif (y3 <= -1.7e-5) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y3 <= -3.3e-61) tmp = Float64(Float64(Float64(Float64(y3 * y4) - Float64(a * Float64(y3 * Float64(y5 / c)))) + Float64(Float64(i * Float64(k * Float64(y5 / c))) - Float64(x * i))) * Float64(y * c)); elseif (y3 <= -1.35e-94) tmp = Float64(k * Float64(y1 * Float64(y4 * Float64(y2 - Float64(Float64(z * i) / y4))))); elseif (y3 <= -5.6e-189) tmp = t_7; elseif (y3 <= -7.5e-233) tmp = Float64(j * Float64(Float64(Float64(t * t_3) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + t_1)); elseif (y3 <= 4.6e-240) tmp = t_7; elseif (y3 <= 3.1e-204) tmp = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (y3 <= 4.5e-180) tmp = Float64(j * t_1); elseif (y3 <= 1.75e-140) tmp = t_4; elseif (y3 <= 1.3e-132) tmp = Float64(b * t_6); elseif (y3 <= 3.2e-88) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y3 <= 3e-71) tmp = Float64(y1 * Float64(y2 * Float64(Float64(k * y4) - Float64(x * a)))); elseif (y3 <= 3.7e-19) tmp = Float64(t * t_2); elseif (y3 <= 1.55e+137) tmp = Float64(y2 * Float64(c * Float64(Float64(x * y0) - Float64(t * y4)))); elseif (y3 <= 1.7e+209) tmp = Float64(j * Float64(y1 * Float64(y3 * Float64(-y4)))); elseif (y3 <= 8.5e+238) tmp = Float64(Float64(j * y0) * Float64(Float64(y3 * y5) - Float64(x * b))); else tmp = Float64(y0 * Float64(Float64(Float64(c * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))) + Float64(b * t_5))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = x * ((i * y1) - (b * y0)); t_2 = y2 * ((a * y5) - (c * y4)); t_3 = (b * y4) - (i * y5); t_4 = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + t_2); t_5 = (z * k) - (x * j); t_6 = y0 * t_5; t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + t_6); tmp = 0.0; if (y3 <= -6.5e+174) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y3 <= -2.6e+70) tmp = t_4; elseif (y3 <= -1.7e-5) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (y3 <= -3.3e-61) tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c); elseif (y3 <= -1.35e-94) tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))); elseif (y3 <= -5.6e-189) tmp = t_7; elseif (y3 <= -7.5e-233) tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_1); elseif (y3 <= 4.6e-240) tmp = t_7; elseif (y3 <= 3.1e-204) tmp = y2 * (a * ((t * y5) - (x * y1))); elseif (y3 <= 4.5e-180) tmp = j * t_1; elseif (y3 <= 1.75e-140) tmp = t_4; elseif (y3 <= 1.3e-132) tmp = b * t_6; elseif (y3 <= 3.2e-88) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y3 <= 3e-71) tmp = y1 * (y2 * ((k * y4) - (x * a))); elseif (y3 <= 3.7e-19) tmp = t * t_2; elseif (y3 <= 1.55e+137) tmp = y2 * (c * ((x * y0) - (t * y4))); elseif (y3 <= 1.7e+209) tmp = j * (y1 * (y3 * -y4)); elseif (y3 <= 8.5e+238) tmp = (j * y0) * ((y3 * y5) - (x * b)); else tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(t * N[(N[(N[(j * t$95$3), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(y0 * t$95$5), $MachinePrecision]}, Block[{t$95$7 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$6), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -6.5e+174], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -2.6e+70], t$95$4, If[LessEqual[y3, -1.7e-5], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -3.3e-61], N[(N[(N[(N[(y3 * y4), $MachinePrecision] - N[(a * N[(y3 * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(i * N[(k * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(y * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -1.35e-94], N[(k * N[(y1 * N[(y4 * N[(y2 - N[(N[(z * i), $MachinePrecision] / y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -5.6e-189], t$95$7, If[LessEqual[y3, -7.5e-233], N[(j * N[(N[(N[(t * t$95$3), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 4.6e-240], t$95$7, If[LessEqual[y3, 3.1e-204], N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 4.5e-180], N[(j * t$95$1), $MachinePrecision], If[LessEqual[y3, 1.75e-140], t$95$4, If[LessEqual[y3, 1.3e-132], N[(b * t$95$6), $MachinePrecision], If[LessEqual[y3, 3.2e-88], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 3e-71], N[(y1 * N[(y2 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 3.7e-19], N[(t * t$95$2), $MachinePrecision], If[LessEqual[y3, 1.55e+137], N[(y2 * N[(c * N[(N[(x * y0), $MachinePrecision] - N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 1.7e+209], N[(j * N[(y1 * N[(y3 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 8.5e+238], N[(N[(j * y0), $MachinePrecision] * N[(N[(y3 * y5), $MachinePrecision] - N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y0 * N[(N[(N[(c * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(i \cdot y1 - b \cdot y0\right)\\
t_2 := y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\\
t_3 := b \cdot y4 - i \cdot y5\\
t_4 := t \cdot \left(\left(j \cdot t\_3 + z \cdot \left(c \cdot i - a \cdot b\right)\right) + t\_2\right)\\
t_5 := z \cdot k - x \cdot j\\
t_6 := y0 \cdot t\_5\\
t_7 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + t\_6\right)\\
\mathbf{if}\;y3 \leq -6.5 \cdot 10^{+174}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq -2.6 \cdot 10^{+70}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y3 \leq -1.7 \cdot 10^{-5}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq -3.3 \cdot 10^{-61}:\\
\;\;\;\;\left(\left(y3 \cdot y4 - a \cdot \left(y3 \cdot \frac{y5}{c}\right)\right) + \left(i \cdot \left(k \cdot \frac{y5}{c}\right) - x \cdot i\right)\right) \cdot \left(y \cdot c\right)\\
\mathbf{elif}\;y3 \leq -1.35 \cdot 10^{-94}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y4 \cdot \left(y2 - \frac{z \cdot i}{y4}\right)\right)\right)\\
\mathbf{elif}\;y3 \leq -5.6 \cdot 10^{-189}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;y3 \leq -7.5 \cdot 10^{-233}:\\
\;\;\;\;j \cdot \left(\left(t \cdot t\_3 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + t\_1\right)\\
\mathbf{elif}\;y3 \leq 4.6 \cdot 10^{-240}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;y3 \leq 3.1 \cdot 10^{-204}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;y3 \leq 4.5 \cdot 10^{-180}:\\
\;\;\;\;j \cdot t\_1\\
\mathbf{elif}\;y3 \leq 1.75 \cdot 10^{-140}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y3 \leq 1.3 \cdot 10^{-132}:\\
\;\;\;\;b \cdot t\_6\\
\mathbf{elif}\;y3 \leq 3.2 \cdot 10^{-88}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq 3 \cdot 10^{-71}:\\
\;\;\;\;y1 \cdot \left(y2 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{elif}\;y3 \leq 3.7 \cdot 10^{-19}:\\
\;\;\;\;t \cdot t\_2\\
\mathbf{elif}\;y3 \leq 1.55 \cdot 10^{+137}:\\
\;\;\;\;y2 \cdot \left(c \cdot \left(x \cdot y0 - t \cdot y4\right)\right)\\
\mathbf{elif}\;y3 \leq 1.7 \cdot 10^{+209}:\\
\;\;\;\;j \cdot \left(y1 \cdot \left(y3 \cdot \left(-y4\right)\right)\right)\\
\mathbf{elif}\;y3 \leq 8.5 \cdot 10^{+238}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5 - x \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;y0 \cdot \left(\left(c \cdot \left(x \cdot y2 - z \cdot y3\right) + y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right) + b \cdot t\_5\right)\\
\end{array}
\end{array}
if y3 < -6.5000000000000001e174Initial program 10.6%
Taylor expanded in y around inf 45.2%
+-commutative45.2%
mul-1-neg45.2%
unsub-neg45.2%
*-commutative45.2%
*-commutative45.2%
mul-1-neg45.2%
Simplified45.2%
Taylor expanded in y3 around inf 52.4%
if -6.5000000000000001e174 < y3 < -2.6e70 or 4.50000000000000009e-180 < y3 < 1.7499999999999999e-140Initial program 29.9%
Taylor expanded in t around inf 70.9%
+-commutative70.9%
mul-1-neg70.9%
unsub-neg70.9%
*-commutative70.9%
Simplified70.9%
if -2.6e70 < y3 < -1.7e-5Initial program 14.7%
Taylor expanded in y2 around inf 51.0%
Taylor expanded in k around inf 58.4%
if -1.7e-5 < y3 < -3.29999999999999996e-61Initial program 47.0%
Taylor expanded in y around inf 42.2%
+-commutative42.2%
mul-1-neg42.2%
unsub-neg42.2%
*-commutative42.2%
*-commutative42.2%
mul-1-neg42.2%
Simplified42.2%
Taylor expanded in c around inf 36.9%
associate-/l*36.9%
distribute-lft-out36.9%
+-commutative36.9%
mul-1-neg36.9%
unsub-neg36.9%
*-commutative36.9%
Simplified42.7%
Taylor expanded in b around 0 54.5%
associate-*r*49.0%
*-commutative49.0%
+-commutative49.0%
mul-1-neg49.0%
unsub-neg49.0%
associate-/l*54.5%
associate-/l*54.5%
+-commutative54.5%
mul-1-neg54.5%
unsub-neg54.5%
*-commutative54.5%
associate-/l*54.5%
associate-/l*48.6%
Simplified48.6%
if -3.29999999999999996e-61 < y3 < -1.3500000000000001e-94Initial program 25.0%
Taylor expanded in k around inf 51.6%
+-commutative51.6%
mul-1-neg51.6%
unsub-neg51.6%
*-commutative51.6%
associate-*r*51.6%
neg-mul-151.6%
Simplified51.6%
Taylor expanded in y1 around inf 63.8%
Taylor expanded in y4 around inf 76.0%
mul-1-neg76.0%
unsub-neg76.0%
*-commutative76.0%
Simplified76.0%
if -1.3500000000000001e-94 < y3 < -5.5999999999999999e-189 or -7.49999999999999974e-233 < y3 < 4.59999999999999986e-240Initial program 42.6%
Taylor expanded in b around inf 64.0%
if -5.5999999999999999e-189 < y3 < -7.49999999999999974e-233Initial program 23.6%
Taylor expanded in j around inf 69.7%
+-commutative69.7%
mul-1-neg69.7%
unsub-neg69.7%
*-commutative69.7%
Simplified69.7%
if 4.59999999999999986e-240 < y3 < 3.0999999999999999e-204Initial program 33.3%
Taylor expanded in y2 around inf 100.0%
Taylor expanded in a around -inf 85.4%
mul-1-neg85.4%
Simplified85.4%
if 3.0999999999999999e-204 < y3 < 4.50000000000000009e-180Initial program 16.7%
Taylor expanded in x around inf 50.0%
Taylor expanded in j around inf 84.2%
if 1.7499999999999999e-140 < y3 < 1.3e-132Initial program 2.5%
Taylor expanded in b around inf 33.4%
Taylor expanded in y0 around inf 69.7%
if 1.3e-132 < y3 < 3.20000000000000012e-88Initial program 20.0%
Taylor expanded in y2 around inf 79.9%
Taylor expanded in y0 around inf 80.7%
+-commutative80.7%
mul-1-neg80.7%
unsub-neg80.7%
Simplified80.7%
if 3.20000000000000012e-88 < y3 < 3.0000000000000001e-71Initial program 50.0%
Taylor expanded in y2 around inf 83.4%
Taylor expanded in y1 around inf 83.4%
+-commutative83.4%
mul-1-neg83.4%
unsub-neg83.4%
Simplified83.4%
if 3.0000000000000001e-71 < y3 < 3.70000000000000005e-19Initial program 19.4%
Taylor expanded in y2 around inf 46.9%
Taylor expanded in t around inf 56.5%
if 3.70000000000000005e-19 < y3 < 1.55e137Initial program 27.2%
Taylor expanded in y2 around inf 54.9%
Taylor expanded in c around inf 49.1%
if 1.55e137 < y3 < 1.6999999999999998e209Initial program 16.7%
Taylor expanded in y3 around -inf 58.3%
Taylor expanded in y1 around inf 50.6%
+-commutative50.6%
mul-1-neg50.6%
unsub-neg50.6%
Simplified50.6%
Taylor expanded in j around inf 58.5%
if 1.6999999999999998e209 < y3 < 8.49999999999999998e238Initial program 25.0%
Taylor expanded in y0 around inf 25.0%
+-commutative25.0%
mul-1-neg25.0%
unsub-neg25.0%
*-commutative25.0%
*-commutative25.0%
*-commutative25.0%
*-commutative25.0%
Simplified25.0%
Taylor expanded in j around -inf 87.5%
associate-*r*87.5%
+-commutative87.5%
mul-1-neg87.5%
unsub-neg87.5%
*-commutative87.5%
Simplified87.5%
if 8.49999999999999998e238 < y3 Initial program 27.3%
Taylor expanded in y0 around inf 81.9%
+-commutative81.9%
mul-1-neg81.9%
unsub-neg81.9%
*-commutative81.9%
*-commutative81.9%
*-commutative81.9%
*-commutative81.9%
Simplified81.9%
Final simplification63.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* t j) (* y k)))
(t_2
(*
y4
(+
(+ (* b t_1) (* y1 (- (* k y2) (* j y3))))
(* c (- (* y y3) (* t y2))))))
(t_3 (- (* t y2) (* y y3)))
(t_4 (- (* x j) (* z k)))
(t_5 (- (* x y) (* z t)))
(t_6 (- (* b y4) (* i y5)))
(t_7
(*
j
(+
(+ (* t t_6) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0))))))
(t_8 (- (* a y5) (* c y4)))
(t_9 (* t (+ (+ (* j t_6) (* z (- (* c i) (* a b)))) (* y2 t_8))))
(t_10 (- (* j y3) (* k y2)))
(t_11
(* y1 (- (* i t_4) (+ (* a (- (* x y2) (* z y3))) (* y4 t_10))))))
(if (<= t -7e+216)
t_9
(if (<= t -1.06e+168)
t_7
(if (<= t -9e+52)
(* i (+ (* c (- (* z t) (* x y))) (* y1 t_4)))
(if (<= t -3.5e-62)
t_2
(if (<= t -8.5e-112)
(* y5 (+ (* a t_3) (- (* y0 t_10) (* i t_1))))
(if (<= t -7e-185)
t_11
(if (<= t -8.5e-191)
t_2
(if (<= t -2.6e-257)
t_11
(if (<= t -1.4e-292)
(*
a
(+
(+ (* b t_5) (* y1 (- (* z y3) (* x y2))))
(* y5 t_3)))
(if (<= t -9e-293)
(* j (* y0 (* y3 y5)))
(if (<= t 1.2e-241)
t_11
(if (<= t 2.2e-178)
(* i (* k (- (* y y5) (* z y1))))
(if (<= t 2e-162)
t_7
(if (<= t 3.9e-152)
(* y1 (* y2 (- (* k y4) (* x a))))
(if (<= t 7.6e+56)
(*
b
(+
(+ (* a t_5) (* y4 t_1))
(* y0 (- (* z k) (* x j)))))
(if (<= t 7.8e+116)
(*
y2
(+
(+
(* k (- (* y1 y4) (* y0 y5)))
(* x (- (* c y0) (* a y1))))
(* t t_8)))
(if (<= t 4e+174)
t_9
(*
y2
(*
y5
(-
(* t a)
(* k y0)))))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
double t_3 = (t * y2) - (y * y3);
double t_4 = (x * j) - (z * k);
double t_5 = (x * y) - (z * t);
double t_6 = (b * y4) - (i * y5);
double t_7 = j * (((t * t_6) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double t_8 = (a * y5) - (c * y4);
double t_9 = t * (((j * t_6) + (z * ((c * i) - (a * b)))) + (y2 * t_8));
double t_10 = (j * y3) - (k * y2);
double t_11 = y1 * ((i * t_4) - ((a * ((x * y2) - (z * y3))) + (y4 * t_10)));
double tmp;
if (t <= -7e+216) {
tmp = t_9;
} else if (t <= -1.06e+168) {
tmp = t_7;
} else if (t <= -9e+52) {
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * t_4));
} else if (t <= -3.5e-62) {
tmp = t_2;
} else if (t <= -8.5e-112) {
tmp = y5 * ((a * t_3) + ((y0 * t_10) - (i * t_1)));
} else if (t <= -7e-185) {
tmp = t_11;
} else if (t <= -8.5e-191) {
tmp = t_2;
} else if (t <= -2.6e-257) {
tmp = t_11;
} else if (t <= -1.4e-292) {
tmp = a * (((b * t_5) + (y1 * ((z * y3) - (x * y2)))) + (y5 * t_3));
} else if (t <= -9e-293) {
tmp = j * (y0 * (y3 * y5));
} else if (t <= 1.2e-241) {
tmp = t_11;
} else if (t <= 2.2e-178) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (t <= 2e-162) {
tmp = t_7;
} else if (t <= 3.9e-152) {
tmp = y1 * (y2 * ((k * y4) - (x * a)));
} else if (t <= 7.6e+56) {
tmp = b * (((a * t_5) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
} else if (t <= 7.8e+116) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_8));
} else if (t <= 4e+174) {
tmp = t_9;
} else {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_10
real(8) :: t_11
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_1 = (t * j) - (y * k)
t_2 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))))
t_3 = (t * y2) - (y * y3)
t_4 = (x * j) - (z * k)
t_5 = (x * y) - (z * t)
t_6 = (b * y4) - (i * y5)
t_7 = j * (((t * t_6) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
t_8 = (a * y5) - (c * y4)
t_9 = t * (((j * t_6) + (z * ((c * i) - (a * b)))) + (y2 * t_8))
t_10 = (j * y3) - (k * y2)
t_11 = y1 * ((i * t_4) - ((a * ((x * y2) - (z * y3))) + (y4 * t_10)))
if (t <= (-7d+216)) then
tmp = t_9
else if (t <= (-1.06d+168)) then
tmp = t_7
else if (t <= (-9d+52)) then
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * t_4))
else if (t <= (-3.5d-62)) then
tmp = t_2
else if (t <= (-8.5d-112)) then
tmp = y5 * ((a * t_3) + ((y0 * t_10) - (i * t_1)))
else if (t <= (-7d-185)) then
tmp = t_11
else if (t <= (-8.5d-191)) then
tmp = t_2
else if (t <= (-2.6d-257)) then
tmp = t_11
else if (t <= (-1.4d-292)) then
tmp = a * (((b * t_5) + (y1 * ((z * y3) - (x * y2)))) + (y5 * t_3))
else if (t <= (-9d-293)) then
tmp = j * (y0 * (y3 * y5))
else if (t <= 1.2d-241) then
tmp = t_11
else if (t <= 2.2d-178) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (t <= 2d-162) then
tmp = t_7
else if (t <= 3.9d-152) then
tmp = y1 * (y2 * ((k * y4) - (x * a)))
else if (t <= 7.6d+56) then
tmp = b * (((a * t_5) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))))
else if (t <= 7.8d+116) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_8))
else if (t <= 4d+174) then
tmp = t_9
else
tmp = y2 * (y5 * ((t * a) - (k * y0)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
double t_3 = (t * y2) - (y * y3);
double t_4 = (x * j) - (z * k);
double t_5 = (x * y) - (z * t);
double t_6 = (b * y4) - (i * y5);
double t_7 = j * (((t * t_6) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double t_8 = (a * y5) - (c * y4);
double t_9 = t * (((j * t_6) + (z * ((c * i) - (a * b)))) + (y2 * t_8));
double t_10 = (j * y3) - (k * y2);
double t_11 = y1 * ((i * t_4) - ((a * ((x * y2) - (z * y3))) + (y4 * t_10)));
double tmp;
if (t <= -7e+216) {
tmp = t_9;
} else if (t <= -1.06e+168) {
tmp = t_7;
} else if (t <= -9e+52) {
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * t_4));
} else if (t <= -3.5e-62) {
tmp = t_2;
} else if (t <= -8.5e-112) {
tmp = y5 * ((a * t_3) + ((y0 * t_10) - (i * t_1)));
} else if (t <= -7e-185) {
tmp = t_11;
} else if (t <= -8.5e-191) {
tmp = t_2;
} else if (t <= -2.6e-257) {
tmp = t_11;
} else if (t <= -1.4e-292) {
tmp = a * (((b * t_5) + (y1 * ((z * y3) - (x * y2)))) + (y5 * t_3));
} else if (t <= -9e-293) {
tmp = j * (y0 * (y3 * y5));
} else if (t <= 1.2e-241) {
tmp = t_11;
} else if (t <= 2.2e-178) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (t <= 2e-162) {
tmp = t_7;
} else if (t <= 3.9e-152) {
tmp = y1 * (y2 * ((k * y4) - (x * a)));
} else if (t <= 7.6e+56) {
tmp = b * (((a * t_5) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
} else if (t <= 7.8e+116) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_8));
} else if (t <= 4e+174) {
tmp = t_9;
} else {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (t * j) - (y * k) t_2 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))) t_3 = (t * y2) - (y * y3) t_4 = (x * j) - (z * k) t_5 = (x * y) - (z * t) t_6 = (b * y4) - (i * y5) t_7 = j * (((t * t_6) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) t_8 = (a * y5) - (c * y4) t_9 = t * (((j * t_6) + (z * ((c * i) - (a * b)))) + (y2 * t_8)) t_10 = (j * y3) - (k * y2) t_11 = y1 * ((i * t_4) - ((a * ((x * y2) - (z * y3))) + (y4 * t_10))) tmp = 0 if t <= -7e+216: tmp = t_9 elif t <= -1.06e+168: tmp = t_7 elif t <= -9e+52: tmp = i * ((c * ((z * t) - (x * y))) + (y1 * t_4)) elif t <= -3.5e-62: tmp = t_2 elif t <= -8.5e-112: tmp = y5 * ((a * t_3) + ((y0 * t_10) - (i * t_1))) elif t <= -7e-185: tmp = t_11 elif t <= -8.5e-191: tmp = t_2 elif t <= -2.6e-257: tmp = t_11 elif t <= -1.4e-292: tmp = a * (((b * t_5) + (y1 * ((z * y3) - (x * y2)))) + (y5 * t_3)) elif t <= -9e-293: tmp = j * (y0 * (y3 * y5)) elif t <= 1.2e-241: tmp = t_11 elif t <= 2.2e-178: tmp = i * (k * ((y * y5) - (z * y1))) elif t <= 2e-162: tmp = t_7 elif t <= 3.9e-152: tmp = y1 * (y2 * ((k * y4) - (x * a))) elif t <= 7.6e+56: tmp = b * (((a * t_5) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))) elif t <= 7.8e+116: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_8)) elif t <= 4e+174: tmp = t_9 else: tmp = y2 * (y5 * ((t * a) - (k * y0))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(t * j) - Float64(y * k)) t_2 = Float64(y4 * Float64(Float64(Float64(b * t_1) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * Float64(Float64(y * y3) - Float64(t * y2))))) t_3 = Float64(Float64(t * y2) - Float64(y * y3)) t_4 = Float64(Float64(x * j) - Float64(z * k)) t_5 = Float64(Float64(x * y) - Float64(z * t)) t_6 = Float64(Float64(b * y4) - Float64(i * y5)) t_7 = Float64(j * Float64(Float64(Float64(t * t_6) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * Float64(Float64(i * y1) - Float64(b * y0))))) t_8 = Float64(Float64(a * y5) - Float64(c * y4)) t_9 = Float64(t * Float64(Float64(Float64(j * t_6) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * t_8))) t_10 = Float64(Float64(j * y3) - Float64(k * y2)) t_11 = Float64(y1 * Float64(Float64(i * t_4) - Float64(Float64(a * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(y4 * t_10)))) tmp = 0.0 if (t <= -7e+216) tmp = t_9; elseif (t <= -1.06e+168) tmp = t_7; elseif (t <= -9e+52) tmp = Float64(i * Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) + Float64(y1 * t_4))); elseif (t <= -3.5e-62) tmp = t_2; elseif (t <= -8.5e-112) tmp = Float64(y5 * Float64(Float64(a * t_3) + Float64(Float64(y0 * t_10) - Float64(i * t_1)))); elseif (t <= -7e-185) tmp = t_11; elseif (t <= -8.5e-191) tmp = t_2; elseif (t <= -2.6e-257) tmp = t_11; elseif (t <= -1.4e-292) tmp = Float64(a * Float64(Float64(Float64(b * t_5) + Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) + Float64(y5 * t_3))); elseif (t <= -9e-293) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (t <= 1.2e-241) tmp = t_11; elseif (t <= 2.2e-178) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (t <= 2e-162) tmp = t_7; elseif (t <= 3.9e-152) tmp = Float64(y1 * Float64(y2 * Float64(Float64(k * y4) - Float64(x * a)))); elseif (t <= 7.6e+56) tmp = Float64(b * Float64(Float64(Float64(a * t_5) + Float64(y4 * t_1)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))); elseif (t <= 7.8e+116) tmp = Float64(y2 * Float64(Float64(Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(t * t_8))); elseif (t <= 4e+174) tmp = t_9; else tmp = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (t * j) - (y * k); t_2 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))); t_3 = (t * y2) - (y * y3); t_4 = (x * j) - (z * k); t_5 = (x * y) - (z * t); t_6 = (b * y4) - (i * y5); t_7 = j * (((t * t_6) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); t_8 = (a * y5) - (c * y4); t_9 = t * (((j * t_6) + (z * ((c * i) - (a * b)))) + (y2 * t_8)); t_10 = (j * y3) - (k * y2); t_11 = y1 * ((i * t_4) - ((a * ((x * y2) - (z * y3))) + (y4 * t_10))); tmp = 0.0; if (t <= -7e+216) tmp = t_9; elseif (t <= -1.06e+168) tmp = t_7; elseif (t <= -9e+52) tmp = i * ((c * ((z * t) - (x * y))) + (y1 * t_4)); elseif (t <= -3.5e-62) tmp = t_2; elseif (t <= -8.5e-112) tmp = y5 * ((a * t_3) + ((y0 * t_10) - (i * t_1))); elseif (t <= -7e-185) tmp = t_11; elseif (t <= -8.5e-191) tmp = t_2; elseif (t <= -2.6e-257) tmp = t_11; elseif (t <= -1.4e-292) tmp = a * (((b * t_5) + (y1 * ((z * y3) - (x * y2)))) + (y5 * t_3)); elseif (t <= -9e-293) tmp = j * (y0 * (y3 * y5)); elseif (t <= 1.2e-241) tmp = t_11; elseif (t <= 2.2e-178) tmp = i * (k * ((y * y5) - (z * y1))); elseif (t <= 2e-162) tmp = t_7; elseif (t <= 3.9e-152) tmp = y1 * (y2 * ((k * y4) - (x * a))); elseif (t <= 7.6e+56) tmp = b * (((a * t_5) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))); elseif (t <= 7.8e+116) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_8)); elseif (t <= 4e+174) tmp = t_9; else tmp = y2 * (y5 * ((t * a) - (k * y0))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y4 * N[(N[(N[(b * t$95$1), $MachinePrecision] + N[(y1 * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(j * N[(N[(N[(t * t$95$6), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(t * N[(N[(N[(j * t$95$6), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$8), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$10 = N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$11 = N[(y1 * N[(N[(i * t$95$4), $MachinePrecision] - N[(N[(a * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$10), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -7e+216], t$95$9, If[LessEqual[t, -1.06e+168], t$95$7, If[LessEqual[t, -9e+52], N[(i * N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y1 * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -3.5e-62], t$95$2, If[LessEqual[t, -8.5e-112], N[(y5 * N[(N[(a * t$95$3), $MachinePrecision] + N[(N[(y0 * t$95$10), $MachinePrecision] - N[(i * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -7e-185], t$95$11, If[LessEqual[t, -8.5e-191], t$95$2, If[LessEqual[t, -2.6e-257], t$95$11, If[LessEqual[t, -1.4e-292], N[(a * N[(N[(N[(b * t$95$5), $MachinePrecision] + N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y5 * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -9e-293], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 1.2e-241], t$95$11, If[LessEqual[t, 2.2e-178], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 2e-162], t$95$7, If[LessEqual[t, 3.9e-152], N[(y1 * N[(y2 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 7.6e+56], N[(b * N[(N[(N[(a * t$95$5), $MachinePrecision] + N[(y4 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 7.8e+116], N[(y2 * N[(N[(N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$8), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 4e+174], t$95$9, N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := y4 \cdot \left(\left(b \cdot t\_1 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_3 := t \cdot y2 - y \cdot y3\\
t_4 := x \cdot j - z \cdot k\\
t_5 := x \cdot y - z \cdot t\\
t_6 := b \cdot y4 - i \cdot y5\\
t_7 := j \cdot \left(\left(t \cdot t\_6 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
t_8 := a \cdot y5 - c \cdot y4\\
t_9 := t \cdot \left(\left(j \cdot t\_6 + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot t\_8\right)\\
t_10 := j \cdot y3 - k \cdot y2\\
t_11 := y1 \cdot \left(i \cdot t\_4 - \left(a \cdot \left(x \cdot y2 - z \cdot y3\right) + y4 \cdot t\_10\right)\right)\\
\mathbf{if}\;t \leq -7 \cdot 10^{+216}:\\
\;\;\;\;t\_9\\
\mathbf{elif}\;t \leq -1.06 \cdot 10^{+168}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;t \leq -9 \cdot 10^{+52}:\\
\;\;\;\;i \cdot \left(c \cdot \left(z \cdot t - x \cdot y\right) + y1 \cdot t\_4\right)\\
\mathbf{elif}\;t \leq -3.5 \cdot 10^{-62}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t \leq -8.5 \cdot 10^{-112}:\\
\;\;\;\;y5 \cdot \left(a \cdot t\_3 + \left(y0 \cdot t\_10 - i \cdot t\_1\right)\right)\\
\mathbf{elif}\;t \leq -7 \cdot 10^{-185}:\\
\;\;\;\;t\_11\\
\mathbf{elif}\;t \leq -8.5 \cdot 10^{-191}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t \leq -2.6 \cdot 10^{-257}:\\
\;\;\;\;t\_11\\
\mathbf{elif}\;t \leq -1.4 \cdot 10^{-292}:\\
\;\;\;\;a \cdot \left(\left(b \cdot t\_5 + y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right) + y5 \cdot t\_3\right)\\
\mathbf{elif}\;t \leq -9 \cdot 10^{-293}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;t \leq 1.2 \cdot 10^{-241}:\\
\;\;\;\;t\_11\\
\mathbf{elif}\;t \leq 2.2 \cdot 10^{-178}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;t \leq 2 \cdot 10^{-162}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;t \leq 3.9 \cdot 10^{-152}:\\
\;\;\;\;y1 \cdot \left(y2 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{elif}\;t \leq 7.6 \cdot 10^{+56}:\\
\;\;\;\;b \cdot \left(\left(a \cdot t\_5 + y4 \cdot t\_1\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;t \leq 7.8 \cdot 10^{+116}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + x \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + t \cdot t\_8\right)\\
\mathbf{elif}\;t \leq 4 \cdot 10^{+174}:\\
\;\;\;\;t\_9\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
\end{array}
\end{array}
if t < -6.99999999999999984e216 or 7.80000000000000065e116 < t < 4.00000000000000028e174Initial program 24.2%
Taylor expanded in t around inf 72.9%
+-commutative72.9%
mul-1-neg72.9%
unsub-neg72.9%
*-commutative72.9%
Simplified72.9%
if -6.99999999999999984e216 < t < -1.0599999999999999e168 or 2.2000000000000001e-178 < t < 1.99999999999999991e-162Initial program 12.4%
Taylor expanded in j around inf 82.9%
+-commutative82.9%
mul-1-neg82.9%
unsub-neg82.9%
*-commutative82.9%
Simplified82.9%
if -1.0599999999999999e168 < t < -8.9999999999999999e52Initial program 23.5%
Taylor expanded in i around -inf 65.6%
Taylor expanded in y5 around 0 65.9%
if -8.9999999999999999e52 < t < -3.5000000000000001e-62 or -6.9999999999999996e-185 < t < -8.49999999999999954e-191Initial program 33.3%
Taylor expanded in y4 around inf 62.6%
if -3.5000000000000001e-62 < t < -8.49999999999999992e-112Initial program 10.3%
Taylor expanded in y5 around -inf 73.5%
if -8.49999999999999992e-112 < t < -6.9999999999999996e-185 or -8.49999999999999954e-191 < t < -2.6000000000000001e-257 or -9.0000000000000005e-293 < t < 1.2e-241Initial program 33.0%
Taylor expanded in y1 around -inf 63.4%
associate-*r*63.4%
neg-mul-163.4%
+-commutative63.4%
mul-1-neg63.4%
unsub-neg63.4%
*-commutative63.4%
*-commutative63.4%
*-commutative63.4%
*-commutative63.4%
Simplified63.4%
if -2.6000000000000001e-257 < t < -1.4000000000000001e-292Initial program 34.0%
Taylor expanded in a around inf 56.6%
+-commutative56.6%
mul-1-neg56.6%
unsub-neg56.6%
*-commutative56.6%
*-commutative56.6%
*-commutative56.6%
mul-1-neg56.6%
*-commutative56.6%
Simplified56.6%
if -1.4000000000000001e-292 < t < -9.0000000000000005e-293Initial program 100.0%
Taylor expanded in y0 around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
*-commutative100.0%
*-commutative100.0%
*-commutative100.0%
Simplified100.0%
Taylor expanded in y5 around inf 100.0%
Taylor expanded in j around inf 100.0%
*-commutative100.0%
*-commutative100.0%
Simplified100.0%
if 1.2e-241 < t < 2.2000000000000001e-178Initial program 49.8%
Taylor expanded in k around inf 63.2%
+-commutative63.2%
mul-1-neg63.2%
unsub-neg63.2%
*-commutative63.2%
associate-*r*63.2%
neg-mul-163.2%
Simplified63.2%
Taylor expanded in i around -inf 75.5%
+-commutative75.5%
mul-1-neg75.5%
unsub-neg75.5%
Simplified75.5%
if 1.99999999999999991e-162 < t < 3.9000000000000004e-152Initial program 0.0%
Taylor expanded in y2 around inf 100.0%
Taylor expanded in y1 around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
Simplified100.0%
if 3.9000000000000004e-152 < t < 7.59999999999999991e56Initial program 34.1%
Taylor expanded in b around inf 54.6%
if 7.59999999999999991e56 < t < 7.80000000000000065e116Initial program 55.6%
Taylor expanded in y2 around inf 88.9%
if 4.00000000000000028e174 < t Initial program 17.5%
Taylor expanded in y2 around inf 42.7%
Taylor expanded in y5 around -inf 53.2%
mul-1-neg53.2%
Simplified53.2%
Final simplification64.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* t j) (* y k)))
(t_2 (- (* x y) (* z t)))
(t_3 (- (* y1 y4) (* y0 y5)))
(t_4
(*
k
(+
(+ (* y2 t_3) (* y (- (* i y5) (* b y4))))
(* z (- (* b y0) (* i y1))))))
(t_5 (* x (- (* i y1) (* b y0))))
(t_6 (- (* a y5) (* c y4)))
(t_7 (- (* b y4) (* i y5)))
(t_8 (* j (+ (+ (* t t_7) (* y3 (- (* y0 y5) (* y1 y4)))) t_5))))
(if (<= k -4e+195)
t_4
(if (<= k -17000000.0)
(* y2 (+ (+ (* k t_3) (* x (- (* c y0) (* a y1)))) (* t t_6)))
(if (<= k -1.4e-15)
(* y (* a (* x b)))
(if (<= k -5e-27)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= k -1.25e-92)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= k -4.1e-225)
t_8
(if (<= k -5.2e-269)
(* y2 (* a (- (* t y5) (* x y1))))
(if (<= k 1.9e-295)
(*
y4
(+
(+ (* b t_1) (* y1 (- (* k y2) (* j y3))))
(* c (- (* y y3) (* t y2)))))
(if (<= k 2.4e-250)
(* j t_5)
(if (<= k 1.46e-80)
(*
y1
(-
(* i (- (* x j) (* z k)))
(+
(* a (- (* x y2) (* z y3)))
(* y4 (- (* j y3) (* k y2))))))
(if (<= k 2.4e-37)
(*
t
(+
(+ (* j t_7) (* z (- (* c i) (* a b))))
(* y2 t_6)))
(if (<= k 8e+54)
(*
a
(+
(+ (* b t_2) (* y1 (- (* z y3) (* x y2))))
(* y5 (- (* t y2) (* y y3)))))
(if (<= k 7.8e+90)
t_4
(if (<= k 5.4e+135)
(* (* y c) (- (* y3 y4) (* x i)))
(if (<= k 1.32e+162)
t_8
(if (<= k 8.2e+186)
(*
b
(+
(+ (* a t_2) (* y4 t_1))
(* y0 (- (* z k) (* x j)))))
t_4))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = (x * y) - (z * t);
double t_3 = (y1 * y4) - (y0 * y5);
double t_4 = k * (((y2 * t_3) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
double t_5 = x * ((i * y1) - (b * y0));
double t_6 = (a * y5) - (c * y4);
double t_7 = (b * y4) - (i * y5);
double t_8 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_5);
double tmp;
if (k <= -4e+195) {
tmp = t_4;
} else if (k <= -17000000.0) {
tmp = y2 * (((k * t_3) + (x * ((c * y0) - (a * y1)))) + (t * t_6));
} else if (k <= -1.4e-15) {
tmp = y * (a * (x * b));
} else if (k <= -5e-27) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (k <= -1.25e-92) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (k <= -4.1e-225) {
tmp = t_8;
} else if (k <= -5.2e-269) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else if (k <= 1.9e-295) {
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
} else if (k <= 2.4e-250) {
tmp = j * t_5;
} else if (k <= 1.46e-80) {
tmp = y1 * ((i * ((x * j) - (z * k))) - ((a * ((x * y2) - (z * y3))) + (y4 * ((j * y3) - (k * y2)))));
} else if (k <= 2.4e-37) {
tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_6));
} else if (k <= 8e+54) {
tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
} else if (k <= 7.8e+90) {
tmp = t_4;
} else if (k <= 5.4e+135) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (k <= 1.32e+162) {
tmp = t_8;
} else if (k <= 8.2e+186) {
tmp = b * (((a * t_2) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
} else {
tmp = t_4;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: tmp
t_1 = (t * j) - (y * k)
t_2 = (x * y) - (z * t)
t_3 = (y1 * y4) - (y0 * y5)
t_4 = k * (((y2 * t_3) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
t_5 = x * ((i * y1) - (b * y0))
t_6 = (a * y5) - (c * y4)
t_7 = (b * y4) - (i * y5)
t_8 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_5)
if (k <= (-4d+195)) then
tmp = t_4
else if (k <= (-17000000.0d0)) then
tmp = y2 * (((k * t_3) + (x * ((c * y0) - (a * y1)))) + (t * t_6))
else if (k <= (-1.4d-15)) then
tmp = y * (a * (x * b))
else if (k <= (-5d-27)) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (k <= (-1.25d-92)) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (k <= (-4.1d-225)) then
tmp = t_8
else if (k <= (-5.2d-269)) then
tmp = y2 * (a * ((t * y5) - (x * y1)))
else if (k <= 1.9d-295) then
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))))
else if (k <= 2.4d-250) then
tmp = j * t_5
else if (k <= 1.46d-80) then
tmp = y1 * ((i * ((x * j) - (z * k))) - ((a * ((x * y2) - (z * y3))) + (y4 * ((j * y3) - (k * y2)))))
else if (k <= 2.4d-37) then
tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_6))
else if (k <= 8d+54) then
tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))))
else if (k <= 7.8d+90) then
tmp = t_4
else if (k <= 5.4d+135) then
tmp = (y * c) * ((y3 * y4) - (x * i))
else if (k <= 1.32d+162) then
tmp = t_8
else if (k <= 8.2d+186) then
tmp = b * (((a * t_2) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))))
else
tmp = t_4
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = (x * y) - (z * t);
double t_3 = (y1 * y4) - (y0 * y5);
double t_4 = k * (((y2 * t_3) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
double t_5 = x * ((i * y1) - (b * y0));
double t_6 = (a * y5) - (c * y4);
double t_7 = (b * y4) - (i * y5);
double t_8 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_5);
double tmp;
if (k <= -4e+195) {
tmp = t_4;
} else if (k <= -17000000.0) {
tmp = y2 * (((k * t_3) + (x * ((c * y0) - (a * y1)))) + (t * t_6));
} else if (k <= -1.4e-15) {
tmp = y * (a * (x * b));
} else if (k <= -5e-27) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (k <= -1.25e-92) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (k <= -4.1e-225) {
tmp = t_8;
} else if (k <= -5.2e-269) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else if (k <= 1.9e-295) {
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
} else if (k <= 2.4e-250) {
tmp = j * t_5;
} else if (k <= 1.46e-80) {
tmp = y1 * ((i * ((x * j) - (z * k))) - ((a * ((x * y2) - (z * y3))) + (y4 * ((j * y3) - (k * y2)))));
} else if (k <= 2.4e-37) {
tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_6));
} else if (k <= 8e+54) {
tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
} else if (k <= 7.8e+90) {
tmp = t_4;
} else if (k <= 5.4e+135) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (k <= 1.32e+162) {
tmp = t_8;
} else if (k <= 8.2e+186) {
tmp = b * (((a * t_2) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
} else {
tmp = t_4;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (t * j) - (y * k) t_2 = (x * y) - (z * t) t_3 = (y1 * y4) - (y0 * y5) t_4 = k * (((y2 * t_3) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))) t_5 = x * ((i * y1) - (b * y0)) t_6 = (a * y5) - (c * y4) t_7 = (b * y4) - (i * y5) t_8 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_5) tmp = 0 if k <= -4e+195: tmp = t_4 elif k <= -17000000.0: tmp = y2 * (((k * t_3) + (x * ((c * y0) - (a * y1)))) + (t * t_6)) elif k <= -1.4e-15: tmp = y * (a * (x * b)) elif k <= -5e-27: tmp = y * (y3 * ((c * y4) - (a * y5))) elif k <= -1.25e-92: tmp = a * (x * ((y * b) - (y1 * y2))) elif k <= -4.1e-225: tmp = t_8 elif k <= -5.2e-269: tmp = y2 * (a * ((t * y5) - (x * y1))) elif k <= 1.9e-295: tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))) elif k <= 2.4e-250: tmp = j * t_5 elif k <= 1.46e-80: tmp = y1 * ((i * ((x * j) - (z * k))) - ((a * ((x * y2) - (z * y3))) + (y4 * ((j * y3) - (k * y2))))) elif k <= 2.4e-37: tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_6)) elif k <= 8e+54: tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3)))) elif k <= 7.8e+90: tmp = t_4 elif k <= 5.4e+135: tmp = (y * c) * ((y3 * y4) - (x * i)) elif k <= 1.32e+162: tmp = t_8 elif k <= 8.2e+186: tmp = b * (((a * t_2) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))) else: tmp = t_4 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(t * j) - Float64(y * k)) t_2 = Float64(Float64(x * y) - Float64(z * t)) t_3 = Float64(Float64(y1 * y4) - Float64(y0 * y5)) t_4 = Float64(k * Float64(Float64(Float64(y2 * t_3) + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1))))) t_5 = Float64(x * Float64(Float64(i * y1) - Float64(b * y0))) t_6 = Float64(Float64(a * y5) - Float64(c * y4)) t_7 = Float64(Float64(b * y4) - Float64(i * y5)) t_8 = Float64(j * Float64(Float64(Float64(t * t_7) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + t_5)) tmp = 0.0 if (k <= -4e+195) tmp = t_4; elseif (k <= -17000000.0) tmp = Float64(y2 * Float64(Float64(Float64(k * t_3) + Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(t * t_6))); elseif (k <= -1.4e-15) tmp = Float64(y * Float64(a * Float64(x * b))); elseif (k <= -5e-27) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (k <= -1.25e-92) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (k <= -4.1e-225) tmp = t_8; elseif (k <= -5.2e-269) tmp = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (k <= 1.9e-295) tmp = Float64(y4 * Float64(Float64(Float64(b * t_1) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (k <= 2.4e-250) tmp = Float64(j * t_5); elseif (k <= 1.46e-80) tmp = Float64(y1 * Float64(Float64(i * Float64(Float64(x * j) - Float64(z * k))) - Float64(Float64(a * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(y4 * Float64(Float64(j * y3) - Float64(k * y2)))))); elseif (k <= 2.4e-37) tmp = Float64(t * Float64(Float64(Float64(j * t_7) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * t_6))); elseif (k <= 8e+54) tmp = Float64(a * Float64(Float64(Float64(b * t_2) + Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) + Float64(y5 * Float64(Float64(t * y2) - Float64(y * y3))))); elseif (k <= 7.8e+90) tmp = t_4; elseif (k <= 5.4e+135) tmp = Float64(Float64(y * c) * Float64(Float64(y3 * y4) - Float64(x * i))); elseif (k <= 1.32e+162) tmp = t_8; elseif (k <= 8.2e+186) tmp = Float64(b * Float64(Float64(Float64(a * t_2) + Float64(y4 * t_1)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))); else tmp = t_4; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (t * j) - (y * k); t_2 = (x * y) - (z * t); t_3 = (y1 * y4) - (y0 * y5); t_4 = k * (((y2 * t_3) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))); t_5 = x * ((i * y1) - (b * y0)); t_6 = (a * y5) - (c * y4); t_7 = (b * y4) - (i * y5); t_8 = j * (((t * t_7) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_5); tmp = 0.0; if (k <= -4e+195) tmp = t_4; elseif (k <= -17000000.0) tmp = y2 * (((k * t_3) + (x * ((c * y0) - (a * y1)))) + (t * t_6)); elseif (k <= -1.4e-15) tmp = y * (a * (x * b)); elseif (k <= -5e-27) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (k <= -1.25e-92) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (k <= -4.1e-225) tmp = t_8; elseif (k <= -5.2e-269) tmp = y2 * (a * ((t * y5) - (x * y1))); elseif (k <= 1.9e-295) tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))); elseif (k <= 2.4e-250) tmp = j * t_5; elseif (k <= 1.46e-80) tmp = y1 * ((i * ((x * j) - (z * k))) - ((a * ((x * y2) - (z * y3))) + (y4 * ((j * y3) - (k * y2))))); elseif (k <= 2.4e-37) tmp = t * (((j * t_7) + (z * ((c * i) - (a * b)))) + (y2 * t_6)); elseif (k <= 8e+54) tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3)))); elseif (k <= 7.8e+90) tmp = t_4; elseif (k <= 5.4e+135) tmp = (y * c) * ((y3 * y4) - (x * i)); elseif (k <= 1.32e+162) tmp = t_8; elseif (k <= 8.2e+186) tmp = b * (((a * t_2) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))); else tmp = t_4; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(k * N[(N[(N[(y2 * t$95$3), $MachinePrecision] + N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(j * N[(N[(N[(t * t$95$7), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$5), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[k, -4e+195], t$95$4, If[LessEqual[k, -17000000.0], N[(y2 * N[(N[(N[(k * t$95$3), $MachinePrecision] + N[(x * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, -1.4e-15], N[(y * N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, -5e-27], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, -1.25e-92], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, -4.1e-225], t$95$8, If[LessEqual[k, -5.2e-269], N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 1.9e-295], N[(y4 * N[(N[(N[(b * t$95$1), $MachinePrecision] + N[(y1 * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 2.4e-250], N[(j * t$95$5), $MachinePrecision], If[LessEqual[k, 1.46e-80], N[(y1 * N[(N[(i * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(a * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 2.4e-37], N[(t * N[(N[(N[(j * t$95$7), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 8e+54], N[(a * N[(N[(N[(b * t$95$2), $MachinePrecision] + N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y5 * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 7.8e+90], t$95$4, If[LessEqual[k, 5.4e+135], N[(N[(y * c), $MachinePrecision] * N[(N[(y3 * y4), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 1.32e+162], t$95$8, If[LessEqual[k, 8.2e+186], N[(b * N[(N[(N[(a * t$95$2), $MachinePrecision] + N[(y4 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$4]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := x \cdot y - z \cdot t\\
t_3 := y1 \cdot y4 - y0 \cdot y5\\
t_4 := k \cdot \left(\left(y2 \cdot t\_3 + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
t_5 := x \cdot \left(i \cdot y1 - b \cdot y0\right)\\
t_6 := a \cdot y5 - c \cdot y4\\
t_7 := b \cdot y4 - i \cdot y5\\
t_8 := j \cdot \left(\left(t \cdot t\_7 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + t\_5\right)\\
\mathbf{if}\;k \leq -4 \cdot 10^{+195}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;k \leq -17000000:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot t\_3 + x \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + t \cdot t\_6\right)\\
\mathbf{elif}\;k \leq -1.4 \cdot 10^{-15}:\\
\;\;\;\;y \cdot \left(a \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;k \leq -5 \cdot 10^{-27}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;k \leq -1.25 \cdot 10^{-92}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;k \leq -4.1 \cdot 10^{-225}:\\
\;\;\;\;t\_8\\
\mathbf{elif}\;k \leq -5.2 \cdot 10^{-269}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;k \leq 1.9 \cdot 10^{-295}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_1 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;k \leq 2.4 \cdot 10^{-250}:\\
\;\;\;\;j \cdot t\_5\\
\mathbf{elif}\;k \leq 1.46 \cdot 10^{-80}:\\
\;\;\;\;y1 \cdot \left(i \cdot \left(x \cdot j - z \cdot k\right) - \left(a \cdot \left(x \cdot y2 - z \cdot y3\right) + y4 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\right)\\
\mathbf{elif}\;k \leq 2.4 \cdot 10^{-37}:\\
\;\;\;\;t \cdot \left(\left(j \cdot t\_7 + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot t\_6\right)\\
\mathbf{elif}\;k \leq 8 \cdot 10^{+54}:\\
\;\;\;\;a \cdot \left(\left(b \cdot t\_2 + y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right) + y5 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\
\mathbf{elif}\;k \leq 7.8 \cdot 10^{+90}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;k \leq 5.4 \cdot 10^{+135}:\\
\;\;\;\;\left(y \cdot c\right) \cdot \left(y3 \cdot y4 - x \cdot i\right)\\
\mathbf{elif}\;k \leq 1.32 \cdot 10^{+162}:\\
\;\;\;\;t\_8\\
\mathbf{elif}\;k \leq 8.2 \cdot 10^{+186}:\\
\;\;\;\;b \cdot \left(\left(a \cdot t\_2 + y4 \cdot t\_1\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if k < -3.99999999999999991e195 or 8.0000000000000006e54 < k < 7.8000000000000004e90 or 8.2e186 < k Initial program 29.9%
Taylor expanded in k around inf 65.7%
+-commutative65.7%
mul-1-neg65.7%
unsub-neg65.7%
*-commutative65.7%
associate-*r*65.7%
neg-mul-165.7%
Simplified65.7%
if -3.99999999999999991e195 < k < -1.7e7Initial program 21.9%
Taylor expanded in y2 around inf 48.3%
if -1.7e7 < k < -1.40000000000000007e-15Initial program 0.0%
Taylor expanded in x around inf 41.2%
Taylor expanded in a around inf 41.8%
+-commutative41.8%
mul-1-neg41.8%
unsub-neg41.8%
Simplified41.8%
Taylor expanded in b around inf 41.7%
pow141.7%
associate-*r*60.8%
Applied egg-rr60.8%
unpow160.8%
associate-*r*80.0%
Simplified80.0%
if -1.40000000000000007e-15 < k < -5.0000000000000002e-27Initial program 0.0%
Taylor expanded in y around inf 33.3%
+-commutative33.3%
mul-1-neg33.3%
unsub-neg33.3%
*-commutative33.3%
*-commutative33.3%
mul-1-neg33.3%
Simplified33.3%
Taylor expanded in y3 around inf 100.0%
if -5.0000000000000002e-27 < k < -1.25000000000000003e-92Initial program 25.0%
Taylor expanded in x around inf 39.2%
Taylor expanded in a around inf 63.1%
+-commutative63.1%
mul-1-neg63.1%
unsub-neg63.1%
Simplified63.1%
if -1.25000000000000003e-92 < k < -4.10000000000000022e-225 or 5.3999999999999997e135 < k < 1.31999999999999999e162Initial program 23.3%
Taylor expanded in j around inf 73.5%
+-commutative73.5%
mul-1-neg73.5%
unsub-neg73.5%
*-commutative73.5%
Simplified73.5%
if -4.10000000000000022e-225 < k < -5.2e-269Initial program 33.2%
Taylor expanded in y2 around inf 53.4%
Taylor expanded in a around -inf 66.8%
mul-1-neg66.8%
Simplified66.8%
if -5.2e-269 < k < 1.90000000000000009e-295Initial program 39.7%
Taylor expanded in y4 around inf 62.7%
if 1.90000000000000009e-295 < k < 2.3999999999999999e-250Initial program 38.5%
Taylor expanded in x around inf 61.7%
Taylor expanded in j around inf 62.6%
if 2.3999999999999999e-250 < k < 1.46e-80Initial program 46.8%
Taylor expanded in y1 around -inf 58.3%
associate-*r*58.3%
neg-mul-158.3%
+-commutative58.3%
mul-1-neg58.3%
unsub-neg58.3%
*-commutative58.3%
*-commutative58.3%
*-commutative58.3%
*-commutative58.3%
Simplified58.3%
if 1.46e-80 < k < 2.39999999999999991e-37Initial program 10.0%
Taylor expanded in t around inf 70.5%
+-commutative70.5%
mul-1-neg70.5%
unsub-neg70.5%
*-commutative70.5%
Simplified70.5%
if 2.39999999999999991e-37 < k < 8.0000000000000006e54Initial program 29.4%
Taylor expanded in a around inf 59.5%
+-commutative59.5%
mul-1-neg59.5%
unsub-neg59.5%
*-commutative59.5%
*-commutative59.5%
*-commutative59.5%
mul-1-neg59.5%
*-commutative59.5%
Simplified59.5%
if 7.8000000000000004e90 < k < 5.3999999999999997e135Initial program 20.5%
Taylor expanded in y around inf 40.5%
+-commutative40.5%
mul-1-neg40.5%
unsub-neg40.5%
*-commutative40.5%
*-commutative40.5%
mul-1-neg40.5%
Simplified40.5%
Taylor expanded in c around inf 61.4%
associate-*r*61.3%
+-commutative61.3%
mul-1-neg61.3%
unsub-neg61.3%
*-commutative61.3%
Simplified61.3%
if 1.31999999999999999e162 < k < 8.2e186Initial program 15.4%
Taylor expanded in b around inf 71.5%
Final simplification63.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* y1 (* y2 y4))))
(t_2 (* j (* x (- (* i y1) (* b y0)))))
(t_3 (- (* z t) (* x y)))
(t_4
(*
c
(+
(+ (* y0 (- (* x y2) (* z y3))) (* i t_3))
(* y4 (- (* y y3) (* t y2))))))
(t_5
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j)))))))
(if (<= y5 -2.85e+280)
t_4
(if (<= y5 -2.8e+192)
(* (* j y0) (- (* y3 y5) (* x b)))
(if (<= y5 -5.5e+159)
(* t (* y2 (- (* a y5) (* c y4))))
(if (<= y5 -3.9e-62)
t_5
(if (<= y5 -7e-150)
(* i (+ (* c t_3) (* y1 (- (* x j) (* z k)))))
(if (<= y5 -7e-188)
t_2
(if (<= y5 1.15e-304)
(*
y
(+ (* x (- (* a b) (* c i))) (* k (- (* i y5) (* b y4)))))
(if (<= y5 1.3e-304)
t_1
(if (<= y5 4.2e-244)
(* y1 (* y3 (- (* z a) (* j y4))))
(if (<= y5 2.45e-116)
t_2
(if (<= y5 3e-80)
t_4
(if (<= y5 3.8e-80)
t_1
(if (<= y5 3.2e-42)
t_5
(if (<= y5 6.5e+51)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y5 7.2e+51)
(* b (* y4 (* t j)))
(if (<= y5 1.12e+135)
(*
(+
(- (* y3 y4) (* a (* y3 (/ y5 c))))
(- (* i (* k (/ y5 c))) (* x i)))
(* y c))
(*
y2
(*
a
(- (* t y5) (* x y1))))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y1 * (y2 * y4));
double t_2 = j * (x * ((i * y1) - (b * y0)));
double t_3 = (z * t) - (x * y);
double t_4 = c * (((y0 * ((x * y2) - (z * y3))) + (i * t_3)) + (y4 * ((y * y3) - (t * y2))));
double t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double tmp;
if (y5 <= -2.85e+280) {
tmp = t_4;
} else if (y5 <= -2.8e+192) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y5 <= -5.5e+159) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y5 <= -3.9e-62) {
tmp = t_5;
} else if (y5 <= -7e-150) {
tmp = i * ((c * t_3) + (y1 * ((x * j) - (z * k))));
} else if (y5 <= -7e-188) {
tmp = t_2;
} else if (y5 <= 1.15e-304) {
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))));
} else if (y5 <= 1.3e-304) {
tmp = t_1;
} else if (y5 <= 4.2e-244) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else if (y5 <= 2.45e-116) {
tmp = t_2;
} else if (y5 <= 3e-80) {
tmp = t_4;
} else if (y5 <= 3.8e-80) {
tmp = t_1;
} else if (y5 <= 3.2e-42) {
tmp = t_5;
} else if (y5 <= 6.5e+51) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y5 <= 7.2e+51) {
tmp = b * (y4 * (t * j));
} else if (y5 <= 1.12e+135) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else {
tmp = y2 * (a * ((t * y5) - (x * y1)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
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 = k * (y1 * (y2 * y4))
t_2 = j * (x * ((i * y1) - (b * y0)))
t_3 = (z * t) - (x * y)
t_4 = c * (((y0 * ((x * y2) - (z * y3))) + (i * t_3)) + (y4 * ((y * y3) - (t * y2))))
t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
if (y5 <= (-2.85d+280)) then
tmp = t_4
else if (y5 <= (-2.8d+192)) then
tmp = (j * y0) * ((y3 * y5) - (x * b))
else if (y5 <= (-5.5d+159)) then
tmp = t * (y2 * ((a * y5) - (c * y4)))
else if (y5 <= (-3.9d-62)) then
tmp = t_5
else if (y5 <= (-7d-150)) then
tmp = i * ((c * t_3) + (y1 * ((x * j) - (z * k))))
else if (y5 <= (-7d-188)) then
tmp = t_2
else if (y5 <= 1.15d-304) then
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))))
else if (y5 <= 1.3d-304) then
tmp = t_1
else if (y5 <= 4.2d-244) then
tmp = y1 * (y3 * ((z * a) - (j * y4)))
else if (y5 <= 2.45d-116) then
tmp = t_2
else if (y5 <= 3d-80) then
tmp = t_4
else if (y5 <= 3.8d-80) then
tmp = t_1
else if (y5 <= 3.2d-42) then
tmp = t_5
else if (y5 <= 6.5d+51) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y5 <= 7.2d+51) then
tmp = b * (y4 * (t * j))
else if (y5 <= 1.12d+135) then
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c)
else
tmp = y2 * (a * ((t * y5) - (x * y1)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y1 * (y2 * y4));
double t_2 = j * (x * ((i * y1) - (b * y0)));
double t_3 = (z * t) - (x * y);
double t_4 = c * (((y0 * ((x * y2) - (z * y3))) + (i * t_3)) + (y4 * ((y * y3) - (t * y2))));
double t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double tmp;
if (y5 <= -2.85e+280) {
tmp = t_4;
} else if (y5 <= -2.8e+192) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y5 <= -5.5e+159) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y5 <= -3.9e-62) {
tmp = t_5;
} else if (y5 <= -7e-150) {
tmp = i * ((c * t_3) + (y1 * ((x * j) - (z * k))));
} else if (y5 <= -7e-188) {
tmp = t_2;
} else if (y5 <= 1.15e-304) {
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))));
} else if (y5 <= 1.3e-304) {
tmp = t_1;
} else if (y5 <= 4.2e-244) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else if (y5 <= 2.45e-116) {
tmp = t_2;
} else if (y5 <= 3e-80) {
tmp = t_4;
} else if (y5 <= 3.8e-80) {
tmp = t_1;
} else if (y5 <= 3.2e-42) {
tmp = t_5;
} else if (y5 <= 6.5e+51) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y5 <= 7.2e+51) {
tmp = b * (y4 * (t * j));
} else if (y5 <= 1.12e+135) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else {
tmp = y2 * (a * ((t * y5) - (x * y1)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = k * (y1 * (y2 * y4)) t_2 = j * (x * ((i * y1) - (b * y0))) t_3 = (z * t) - (x * y) t_4 = c * (((y0 * ((x * y2) - (z * y3))) + (i * t_3)) + (y4 * ((y * y3) - (t * y2)))) t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) tmp = 0 if y5 <= -2.85e+280: tmp = t_4 elif y5 <= -2.8e+192: tmp = (j * y0) * ((y3 * y5) - (x * b)) elif y5 <= -5.5e+159: tmp = t * (y2 * ((a * y5) - (c * y4))) elif y5 <= -3.9e-62: tmp = t_5 elif y5 <= -7e-150: tmp = i * ((c * t_3) + (y1 * ((x * j) - (z * k)))) elif y5 <= -7e-188: tmp = t_2 elif y5 <= 1.15e-304: tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) elif y5 <= 1.3e-304: tmp = t_1 elif y5 <= 4.2e-244: tmp = y1 * (y3 * ((z * a) - (j * y4))) elif y5 <= 2.45e-116: tmp = t_2 elif y5 <= 3e-80: tmp = t_4 elif y5 <= 3.8e-80: tmp = t_1 elif y5 <= 3.2e-42: tmp = t_5 elif y5 <= 6.5e+51: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y5 <= 7.2e+51: tmp = b * (y4 * (t * j)) elif y5 <= 1.12e+135: tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c) else: tmp = y2 * (a * ((t * y5) - (x * y1))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(k * Float64(y1 * Float64(y2 * y4))) t_2 = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))) t_3 = Float64(Float64(z * t) - Float64(x * y)) t_4 = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * t_3)) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))) t_5 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) tmp = 0.0 if (y5 <= -2.85e+280) tmp = t_4; elseif (y5 <= -2.8e+192) tmp = Float64(Float64(j * y0) * Float64(Float64(y3 * y5) - Float64(x * b))); elseif (y5 <= -5.5e+159) tmp = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))); elseif (y5 <= -3.9e-62) tmp = t_5; elseif (y5 <= -7e-150) tmp = Float64(i * Float64(Float64(c * t_3) + Float64(y1 * Float64(Float64(x * j) - Float64(z * k))))); elseif (y5 <= -7e-188) tmp = t_2; elseif (y5 <= 1.15e-304) tmp = Float64(y * Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4))))); elseif (y5 <= 1.3e-304) tmp = t_1; elseif (y5 <= 4.2e-244) tmp = Float64(y1 * Float64(y3 * Float64(Float64(z * a) - Float64(j * y4)))); elseif (y5 <= 2.45e-116) tmp = t_2; elseif (y5 <= 3e-80) tmp = t_4; elseif (y5 <= 3.8e-80) tmp = t_1; elseif (y5 <= 3.2e-42) tmp = t_5; elseif (y5 <= 6.5e+51) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y5 <= 7.2e+51) tmp = Float64(b * Float64(y4 * Float64(t * j))); elseif (y5 <= 1.12e+135) tmp = Float64(Float64(Float64(Float64(y3 * y4) - Float64(a * Float64(y3 * Float64(y5 / c)))) + Float64(Float64(i * Float64(k * Float64(y5 / c))) - Float64(x * i))) * Float64(y * c)); else tmp = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = k * (y1 * (y2 * y4)); t_2 = j * (x * ((i * y1) - (b * y0))); t_3 = (z * t) - (x * y); t_4 = c * (((y0 * ((x * y2) - (z * y3))) + (i * t_3)) + (y4 * ((y * y3) - (t * y2)))); t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); tmp = 0.0; if (y5 <= -2.85e+280) tmp = t_4; elseif (y5 <= -2.8e+192) tmp = (j * y0) * ((y3 * y5) - (x * b)); elseif (y5 <= -5.5e+159) tmp = t * (y2 * ((a * y5) - (c * y4))); elseif (y5 <= -3.9e-62) tmp = t_5; elseif (y5 <= -7e-150) tmp = i * ((c * t_3) + (y1 * ((x * j) - (z * k)))); elseif (y5 <= -7e-188) tmp = t_2; elseif (y5 <= 1.15e-304) tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))); elseif (y5 <= 1.3e-304) tmp = t_1; elseif (y5 <= 4.2e-244) tmp = y1 * (y3 * ((z * a) - (j * y4))); elseif (y5 <= 2.45e-116) tmp = t_2; elseif (y5 <= 3e-80) tmp = t_4; elseif (y5 <= 3.8e-80) tmp = t_1; elseif (y5 <= 3.2e-42) tmp = t_5; elseif (y5 <= 6.5e+51) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y5 <= 7.2e+51) tmp = b * (y4 * (t * j)); elseif (y5 <= 1.12e+135) tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c); else tmp = y2 * (a * ((t * y5) - (x * y1))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * t$95$3), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -2.85e+280], t$95$4, If[LessEqual[y5, -2.8e+192], N[(N[(j * y0), $MachinePrecision] * N[(N[(y3 * y5), $MachinePrecision] - N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -5.5e+159], N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -3.9e-62], t$95$5, If[LessEqual[y5, -7e-150], N[(i * N[(N[(c * t$95$3), $MachinePrecision] + N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -7e-188], t$95$2, If[LessEqual[y5, 1.15e-304], N[(y * N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.3e-304], t$95$1, If[LessEqual[y5, 4.2e-244], N[(y1 * N[(y3 * N[(N[(z * a), $MachinePrecision] - N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.45e-116], t$95$2, If[LessEqual[y5, 3e-80], t$95$4, If[LessEqual[y5, 3.8e-80], t$95$1, If[LessEqual[y5, 3.2e-42], t$95$5, If[LessEqual[y5, 6.5e+51], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 7.2e+51], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.12e+135], N[(N[(N[(N[(y3 * y4), $MachinePrecision] - N[(a * N[(y3 * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(i * N[(k * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(y * c), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
t_2 := j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
t_3 := z \cdot t - x \cdot y\\
t_4 := c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot t\_3\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_5 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{if}\;y5 \leq -2.85 \cdot 10^{+280}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y5 \leq -2.8 \cdot 10^{+192}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5 - x \cdot b\right)\\
\mathbf{elif}\;y5 \leq -5.5 \cdot 10^{+159}:\\
\;\;\;\;t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq -3.9 \cdot 10^{-62}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq -7 \cdot 10^{-150}:\\
\;\;\;\;i \cdot \left(c \cdot t\_3 + y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{elif}\;y5 \leq -7 \cdot 10^{-188}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y5 \leq 1.15 \cdot 10^{-304}:\\
\;\;\;\;y \cdot \left(x \cdot \left(a \cdot b - c \cdot i\right) + k \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 1.3 \cdot 10^{-304}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 4.2 \cdot 10^{-244}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(z \cdot a - j \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 2.45 \cdot 10^{-116}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y5 \leq 3 \cdot 10^{-80}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y5 \leq 3.8 \cdot 10^{-80}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 3.2 \cdot 10^{-42}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq 6.5 \cdot 10^{+51}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 7.2 \cdot 10^{+51}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{elif}\;y5 \leq 1.12 \cdot 10^{+135}:\\
\;\;\;\;\left(\left(y3 \cdot y4 - a \cdot \left(y3 \cdot \frac{y5}{c}\right)\right) + \left(i \cdot \left(k \cdot \frac{y5}{c}\right) - x \cdot i\right)\right) \cdot \left(y \cdot c\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\end{array}
\end{array}
if y5 < -2.8499999999999999e280 or 2.44999999999999989e-116 < y5 < 3.00000000000000007e-80Initial program 33.2%
Taylor expanded in c around inf 83.8%
+-commutative83.8%
mul-1-neg83.8%
unsub-neg83.8%
*-commutative83.8%
*-commutative83.8%
*-commutative83.8%
*-commutative83.8%
Simplified83.8%
if -2.8499999999999999e280 < y5 < -2.79999999999999976e192Initial program 14.9%
Taylor expanded in y0 around inf 43.4%
+-commutative43.4%
mul-1-neg43.4%
unsub-neg43.4%
*-commutative43.4%
*-commutative43.4%
*-commutative43.4%
*-commutative43.4%
Simplified43.4%
Taylor expanded in j around -inf 58.4%
associate-*r*58.9%
+-commutative58.9%
mul-1-neg58.9%
unsub-neg58.9%
*-commutative58.9%
Simplified58.9%
if -2.79999999999999976e192 < y5 < -5.4999999999999998e159Initial program 14.3%
Taylor expanded in y2 around inf 71.4%
Taylor expanded in t around inf 86.5%
if -5.4999999999999998e159 < y5 < -3.9000000000000003e-62 or 3.79999999999999967e-80 < y5 < 3.20000000000000025e-42Initial program 37.2%
Taylor expanded in b around inf 54.4%
if -3.9000000000000003e-62 < y5 < -6.9999999999999996e-150Initial program 46.7%
Taylor expanded in i around -inf 60.9%
Taylor expanded in y5 around 0 60.9%
if -6.9999999999999996e-150 < y5 < -7.000000000000001e-188 or 4.20000000000000003e-244 < y5 < 2.44999999999999989e-116Initial program 29.6%
Taylor expanded in x around inf 32.9%
Taylor expanded in j around inf 46.0%
if -7.000000000000001e-188 < y5 < 1.15e-304Initial program 15.8%
Taylor expanded in y around inf 58.5%
+-commutative58.5%
mul-1-neg58.5%
unsub-neg58.5%
*-commutative58.5%
*-commutative58.5%
mul-1-neg58.5%
Simplified58.5%
Taylor expanded in y3 around 0 58.5%
if 1.15e-304 < y5 < 1.29999999999999998e-304 or 3.00000000000000007e-80 < y5 < 3.79999999999999967e-80Initial program 0.0%
Taylor expanded in k around inf 50.0%
+-commutative50.0%
mul-1-neg50.0%
unsub-neg50.0%
*-commutative50.0%
associate-*r*50.0%
neg-mul-150.0%
Simplified50.0%
Taylor expanded in y1 around inf 100.0%
Taylor expanded in y2 around inf 100.0%
if 1.29999999999999998e-304 < y5 < 4.20000000000000003e-244Initial program 44.4%
Taylor expanded in y3 around -inf 34.7%
Taylor expanded in y1 around inf 51.4%
+-commutative51.4%
mul-1-neg51.4%
unsub-neg51.4%
Simplified51.4%
if 3.20000000000000025e-42 < y5 < 6.5e51Initial program 24.9%
Taylor expanded in y2 around inf 63.6%
Taylor expanded in y0 around inf 75.3%
+-commutative75.3%
mul-1-neg75.3%
unsub-neg75.3%
Simplified75.3%
if 6.5e51 < y5 < 7.20000000000000022e51Initial program 0.0%
Taylor expanded in b around inf 0.0%
Taylor expanded in y4 around inf 100.0%
Taylor expanded in j around inf 100.0%
if 7.20000000000000022e51 < y5 < 1.1199999999999999e135Initial program 18.7%
Taylor expanded in y around inf 44.4%
+-commutative44.4%
mul-1-neg44.4%
unsub-neg44.4%
*-commutative44.4%
*-commutative44.4%
mul-1-neg44.4%
Simplified44.4%
Taylor expanded in c around inf 50.1%
associate-/l*50.1%
distribute-lft-out50.1%
+-commutative50.1%
mul-1-neg50.1%
unsub-neg50.1%
*-commutative50.1%
Simplified50.1%
Taylor expanded in b around 0 56.9%
associate-*r*44.8%
*-commutative44.8%
+-commutative44.8%
mul-1-neg44.8%
unsub-neg44.8%
associate-/l*50.6%
associate-/l*56.8%
+-commutative56.8%
mul-1-neg56.8%
unsub-neg56.8%
*-commutative56.8%
associate-/l*56.8%
associate-/l*63.1%
Simplified63.1%
if 1.1199999999999999e135 < y5 Initial program 19.0%
Taylor expanded in y2 around inf 46.2%
Taylor expanded in a around -inf 57.7%
mul-1-neg57.7%
Simplified57.7%
Final simplification59.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* t (* y2 (- (* a y5) (* c y4)))))
(t_2 (* y1 (* y2 (- (* k y4) (* x a))))))
(if (<= y2 -1.85e+226)
t_1
(if (<= y2 -6.5e+144)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= y2 -5e+96)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y2 -1.05e+15)
t_2
(if (<= y2 -0.00265)
(* k (* y (- (* i y5) (* b y4))))
(if (<= y2 -9.2e-15)
(* b (* y0 (- (* z k) (* x j))))
(if (<= y2 -1.35e-78)
(* y2 (* a (- (* t y5) (* x y1))))
(if (<= y2 -6.6e-99)
(* (* y c) (- (* y3 y4) (* x i)))
(if (<= y2 -3.8e-139)
(* b (* t (- (* j y4) (* z a))))
(if (<= y2 -1.85e-168)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y2 -3.15e-296)
(* b (* x (- (* y a) (* j y0))))
(if (<= y2 1.25e-286)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y2 1.35e-139)
(* (* j y0) (- (* y3 y5) (* x b)))
(if (<= y2 1.76e-134)
(* (* k y0) (- (* z b) (* y2 y5)))
(if (<= y2 1.2e+120)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y2 2.2e+178)
(* k (* y5 (- (* y i) (* y0 y2))))
(if (<= y2 2.4e+212)
t_2
(if (<= y2 4e+240)
t_1
(*
y2
(*
c
(-
(* x y0)
(* t y4))))))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = y1 * (y2 * ((k * y4) - (x * a)));
double tmp;
if (y2 <= -1.85e+226) {
tmp = t_1;
} else if (y2 <= -6.5e+144) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y2 <= -5e+96) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y2 <= -1.05e+15) {
tmp = t_2;
} else if (y2 <= -0.00265) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= -9.2e-15) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y2 <= -1.35e-78) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else if (y2 <= -6.6e-99) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (y2 <= -3.8e-139) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (y2 <= -1.85e-168) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= -3.15e-296) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y2 <= 1.25e-286) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y2 <= 1.35e-139) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y2 <= 1.76e-134) {
tmp = (k * y0) * ((z * b) - (y2 * y5));
} else if (y2 <= 1.2e+120) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y2 <= 2.2e+178) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (y2 <= 2.4e+212) {
tmp = t_2;
} else if (y2 <= 4e+240) {
tmp = t_1;
} else {
tmp = y2 * (c * ((x * y0) - (t * y4)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = t * (y2 * ((a * y5) - (c * y4)))
t_2 = y1 * (y2 * ((k * y4) - (x * a)))
if (y2 <= (-1.85d+226)) then
tmp = t_1
else if (y2 <= (-6.5d+144)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (y2 <= (-5d+96)) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y2 <= (-1.05d+15)) then
tmp = t_2
else if (y2 <= (-0.00265d0)) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (y2 <= (-9.2d-15)) then
tmp = b * (y0 * ((z * k) - (x * j)))
else if (y2 <= (-1.35d-78)) then
tmp = y2 * (a * ((t * y5) - (x * y1)))
else if (y2 <= (-6.6d-99)) then
tmp = (y * c) * ((y3 * y4) - (x * i))
else if (y2 <= (-3.8d-139)) then
tmp = b * (t * ((j * y4) - (z * a)))
else if (y2 <= (-1.85d-168)) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y2 <= (-3.15d-296)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (y2 <= 1.25d-286) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y2 <= 1.35d-139) then
tmp = (j * y0) * ((y3 * y5) - (x * b))
else if (y2 <= 1.76d-134) then
tmp = (k * y0) * ((z * b) - (y2 * y5))
else if (y2 <= 1.2d+120) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y2 <= 2.2d+178) then
tmp = k * (y5 * ((y * i) - (y0 * y2)))
else if (y2 <= 2.4d+212) then
tmp = t_2
else if (y2 <= 4d+240) then
tmp = t_1
else
tmp = y2 * (c * ((x * y0) - (t * y4)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = y1 * (y2 * ((k * y4) - (x * a)));
double tmp;
if (y2 <= -1.85e+226) {
tmp = t_1;
} else if (y2 <= -6.5e+144) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y2 <= -5e+96) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y2 <= -1.05e+15) {
tmp = t_2;
} else if (y2 <= -0.00265) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= -9.2e-15) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y2 <= -1.35e-78) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else if (y2 <= -6.6e-99) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (y2 <= -3.8e-139) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (y2 <= -1.85e-168) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= -3.15e-296) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y2 <= 1.25e-286) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y2 <= 1.35e-139) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y2 <= 1.76e-134) {
tmp = (k * y0) * ((z * b) - (y2 * y5));
} else if (y2 <= 1.2e+120) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y2 <= 2.2e+178) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (y2 <= 2.4e+212) {
tmp = t_2;
} else if (y2 <= 4e+240) {
tmp = t_1;
} else {
tmp = y2 * (c * ((x * y0) - (t * y4)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = t * (y2 * ((a * y5) - (c * y4))) t_2 = y1 * (y2 * ((k * y4) - (x * a))) tmp = 0 if y2 <= -1.85e+226: tmp = t_1 elif y2 <= -6.5e+144: tmp = c * (y0 * ((x * y2) - (z * y3))) elif y2 <= -5e+96: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y2 <= -1.05e+15: tmp = t_2 elif y2 <= -0.00265: tmp = k * (y * ((i * y5) - (b * y4))) elif y2 <= -9.2e-15: tmp = b * (y0 * ((z * k) - (x * j))) elif y2 <= -1.35e-78: tmp = y2 * (a * ((t * y5) - (x * y1))) elif y2 <= -6.6e-99: tmp = (y * c) * ((y3 * y4) - (x * i)) elif y2 <= -3.8e-139: tmp = b * (t * ((j * y4) - (z * a))) elif y2 <= -1.85e-168: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y2 <= -3.15e-296: tmp = b * (x * ((y * a) - (j * y0))) elif y2 <= 1.25e-286: tmp = b * (y4 * ((t * j) - (y * k))) elif y2 <= 1.35e-139: tmp = (j * y0) * ((y3 * y5) - (x * b)) elif y2 <= 1.76e-134: tmp = (k * y0) * ((z * b) - (y2 * y5)) elif y2 <= 1.2e+120: tmp = k * (z * ((b * y0) - (i * y1))) elif y2 <= 2.2e+178: tmp = k * (y5 * ((y * i) - (y0 * y2))) elif y2 <= 2.4e+212: tmp = t_2 elif y2 <= 4e+240: tmp = t_1 else: tmp = y2 * (c * ((x * y0) - (t * y4))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))) t_2 = Float64(y1 * Float64(y2 * Float64(Float64(k * y4) - Float64(x * a)))) tmp = 0.0 if (y2 <= -1.85e+226) tmp = t_1; elseif (y2 <= -6.5e+144) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (y2 <= -5e+96) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y2 <= -1.05e+15) tmp = t_2; elseif (y2 <= -0.00265) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (y2 <= -9.2e-15) tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); elseif (y2 <= -1.35e-78) tmp = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (y2 <= -6.6e-99) tmp = Float64(Float64(y * c) * Float64(Float64(y3 * y4) - Float64(x * i))); elseif (y2 <= -3.8e-139) tmp = Float64(b * Float64(t * Float64(Float64(j * y4) - Float64(z * a)))); elseif (y2 <= -1.85e-168) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y2 <= -3.15e-296) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (y2 <= 1.25e-286) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y2 <= 1.35e-139) tmp = Float64(Float64(j * y0) * Float64(Float64(y3 * y5) - Float64(x * b))); elseif (y2 <= 1.76e-134) tmp = Float64(Float64(k * y0) * Float64(Float64(z * b) - Float64(y2 * y5))); elseif (y2 <= 1.2e+120) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y2 <= 2.2e+178) tmp = Float64(k * Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2)))); elseif (y2 <= 2.4e+212) tmp = t_2; elseif (y2 <= 4e+240) tmp = t_1; else tmp = Float64(y2 * Float64(c * Float64(Float64(x * y0) - Float64(t * y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = t * (y2 * ((a * y5) - (c * y4))); t_2 = y1 * (y2 * ((k * y4) - (x * a))); tmp = 0.0; if (y2 <= -1.85e+226) tmp = t_1; elseif (y2 <= -6.5e+144) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (y2 <= -5e+96) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y2 <= -1.05e+15) tmp = t_2; elseif (y2 <= -0.00265) tmp = k * (y * ((i * y5) - (b * y4))); elseif (y2 <= -9.2e-15) tmp = b * (y0 * ((z * k) - (x * j))); elseif (y2 <= -1.35e-78) tmp = y2 * (a * ((t * y5) - (x * y1))); elseif (y2 <= -6.6e-99) tmp = (y * c) * ((y3 * y4) - (x * i)); elseif (y2 <= -3.8e-139) tmp = b * (t * ((j * y4) - (z * a))); elseif (y2 <= -1.85e-168) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y2 <= -3.15e-296) tmp = b * (x * ((y * a) - (j * y0))); elseif (y2 <= 1.25e-286) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y2 <= 1.35e-139) tmp = (j * y0) * ((y3 * y5) - (x * b)); elseif (y2 <= 1.76e-134) tmp = (k * y0) * ((z * b) - (y2 * y5)); elseif (y2 <= 1.2e+120) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y2 <= 2.2e+178) tmp = k * (y5 * ((y * i) - (y0 * y2))); elseif (y2 <= 2.4e+212) tmp = t_2; elseif (y2 <= 4e+240) tmp = t_1; else tmp = y2 * (c * ((x * y0) - (t * y4))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y1 * N[(y2 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -1.85e+226], t$95$1, If[LessEqual[y2, -6.5e+144], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -5e+96], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -1.05e+15], t$95$2, If[LessEqual[y2, -0.00265], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -9.2e-15], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -1.35e-78], N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -6.6e-99], N[(N[(y * c), $MachinePrecision] * N[(N[(y3 * y4), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -3.8e-139], N[(b * N[(t * N[(N[(j * y4), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -1.85e-168], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -3.15e-296], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.25e-286], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.35e-139], N[(N[(j * y0), $MachinePrecision] * N[(N[(y3 * y5), $MachinePrecision] - N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.76e-134], N[(N[(k * y0), $MachinePrecision] * N[(N[(z * b), $MachinePrecision] - N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.2e+120], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 2.2e+178], N[(k * N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 2.4e+212], t$95$2, If[LessEqual[y2, 4e+240], t$95$1, N[(y2 * N[(c * N[(N[(x * y0), $MachinePrecision] - N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
t_2 := y1 \cdot \left(y2 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{if}\;y2 \leq -1.85 \cdot 10^{+226}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq -6.5 \cdot 10^{+144}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;y2 \leq -5 \cdot 10^{+96}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq -1.05 \cdot 10^{+15}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq -0.00265:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq -9.2 \cdot 10^{-15}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y2 \leq -1.35 \cdot 10^{-78}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;y2 \leq -6.6 \cdot 10^{-99}:\\
\;\;\;\;\left(y \cdot c\right) \cdot \left(y3 \cdot y4 - x \cdot i\right)\\
\mathbf{elif}\;y2 \leq -3.8 \cdot 10^{-139}:\\
\;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4 - z \cdot a\right)\right)\\
\mathbf{elif}\;y2 \leq -1.85 \cdot 10^{-168}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq -3.15 \cdot 10^{-296}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;y2 \leq 1.25 \cdot 10^{-286}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y2 \leq 1.35 \cdot 10^{-139}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5 - x \cdot b\right)\\
\mathbf{elif}\;y2 \leq 1.76 \cdot 10^{-134}:\\
\;\;\;\;\left(k \cdot y0\right) \cdot \left(z \cdot b - y2 \cdot y5\right)\\
\mathbf{elif}\;y2 \leq 1.2 \cdot 10^{+120}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y2 \leq 2.2 \cdot 10^{+178}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\mathbf{elif}\;y2 \leq 2.4 \cdot 10^{+212}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq 4 \cdot 10^{+240}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(c \cdot \left(x \cdot y0 - t \cdot y4\right)\right)\\
\end{array}
\end{array}
if y2 < -1.84999999999999991e226 or 2.4e212 < y2 < 4.00000000000000006e240Initial program 7.7%
Taylor expanded in y2 around inf 54.2%
Taylor expanded in t around inf 69.5%
if -1.84999999999999991e226 < y2 < -6.50000000000000007e144Initial program 6.7%
Taylor expanded in y0 around inf 50.0%
+-commutative50.0%
mul-1-neg50.0%
unsub-neg50.0%
*-commutative50.0%
*-commutative50.0%
*-commutative50.0%
*-commutative50.0%
Simplified50.0%
Taylor expanded in c around inf 69.2%
*-commutative69.2%
Simplified69.2%
if -6.50000000000000007e144 < y2 < -5.0000000000000004e96Initial program 0.0%
Taylor expanded in y2 around inf 40.0%
Taylor expanded in y0 around inf 80.9%
+-commutative80.9%
mul-1-neg80.9%
unsub-neg80.9%
Simplified80.9%
if -5.0000000000000004e96 < y2 < -1.05e15 or 2.19999999999999997e178 < y2 < 2.4e212Initial program 28.1%
Taylor expanded in y2 around inf 59.6%
Taylor expanded in y1 around inf 56.9%
+-commutative56.9%
mul-1-neg56.9%
unsub-neg56.9%
Simplified56.9%
if -1.05e15 < y2 < -0.00265000000000000001Initial program 33.3%
Taylor expanded in k around inf 50.5%
+-commutative50.5%
mul-1-neg50.5%
unsub-neg50.5%
*-commutative50.5%
associate-*r*50.5%
neg-mul-150.5%
Simplified50.5%
Taylor expanded in y around inf 66.9%
if -0.00265000000000000001 < y2 < -9.19999999999999961e-15Initial program 0.0%
Taylor expanded in b around inf 60.0%
Taylor expanded in y0 around inf 61.7%
if -9.19999999999999961e-15 < y2 < -1.34999999999999997e-78Initial program 37.0%
Taylor expanded in y2 around inf 55.1%
Taylor expanded in a around -inf 46.4%
mul-1-neg46.4%
Simplified46.4%
if -1.34999999999999997e-78 < y2 < -6.59999999999999973e-99Initial program 40.0%
Taylor expanded in y around inf 80.0%
+-commutative80.0%
mul-1-neg80.0%
unsub-neg80.0%
*-commutative80.0%
*-commutative80.0%
mul-1-neg80.0%
Simplified80.0%
Taylor expanded in c around inf 100.0%
associate-*r*100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
Simplified100.0%
if -6.59999999999999973e-99 < y2 < -3.80000000000000008e-139Initial program 28.6%
Taylor expanded in b around inf 42.9%
Taylor expanded in t around inf 71.7%
+-commutative71.7%
mul-1-neg71.7%
unsub-neg71.7%
Simplified71.7%
if -3.80000000000000008e-139 < y2 < -1.84999999999999999e-168Initial program 50.0%
Taylor expanded in y around inf 0.0%
+-commutative0.0%
mul-1-neg0.0%
unsub-neg0.0%
*-commutative0.0%
*-commutative0.0%
mul-1-neg0.0%
Simplified0.0%
Taylor expanded in y3 around inf 100.0%
if -1.84999999999999999e-168 < y2 < -3.1499999999999999e-296Initial program 45.0%
Taylor expanded in b around inf 42.4%
Taylor expanded in x around inf 46.5%
if -3.1499999999999999e-296 < y2 < 1.25000000000000009e-286Initial program 49.8%
Taylor expanded in b around inf 38.7%
Taylor expanded in y4 around inf 51.0%
if 1.25000000000000009e-286 < y2 < 1.3499999999999999e-139Initial program 41.8%
Taylor expanded in y0 around inf 59.0%
+-commutative59.0%
mul-1-neg59.0%
unsub-neg59.0%
*-commutative59.0%
*-commutative59.0%
*-commutative59.0%
*-commutative59.0%
Simplified59.0%
Taylor expanded in j around -inf 50.9%
associate-*r*50.9%
+-commutative50.9%
mul-1-neg50.9%
unsub-neg50.9%
*-commutative50.9%
Simplified50.9%
if 1.3499999999999999e-139 < y2 < 1.76e-134Initial program 32.8%
Taylor expanded in y0 around inf 67.3%
+-commutative67.3%
mul-1-neg67.3%
unsub-neg67.3%
*-commutative67.3%
*-commutative67.3%
*-commutative67.3%
*-commutative67.3%
Simplified67.3%
Taylor expanded in k around -inf 67.3%
associate-*r*67.3%
+-commutative67.3%
mul-1-neg67.3%
unsub-neg67.3%
*-commutative67.3%
Simplified67.3%
if 1.76e-134 < y2 < 1.2e120Initial program 30.3%
Taylor expanded in k around inf 44.0%
+-commutative44.0%
mul-1-neg44.0%
unsub-neg44.0%
*-commutative44.0%
associate-*r*44.0%
neg-mul-144.0%
Simplified44.0%
Taylor expanded in z around inf 46.3%
if 1.2e120 < y2 < 2.19999999999999997e178Initial program 24.3%
Taylor expanded in k around inf 38.5%
+-commutative38.5%
mul-1-neg38.5%
unsub-neg38.5%
*-commutative38.5%
associate-*r*38.5%
neg-mul-138.5%
Simplified38.5%
Taylor expanded in y5 around -inf 48.0%
mul-1-neg48.0%
Simplified48.0%
if 4.00000000000000006e240 < y2 Initial program 15.3%
Taylor expanded in y2 around inf 77.4%
Taylor expanded in c around inf 63.8%
Final simplification56.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* t j) (* y k)))
(t_2 (- (* z t) (* x y)))
(t_3 (- (* x y2) (* z y3)))
(t_4 (- (* i y5) (* b y4)))
(t_5 (- (* c y0) (* a y1)))
(t_6 (* x (- (* a b) (* c i))))
(t_7
(*
j
(+
(+ (* t (- (* b y4) (* i y5))) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0))))))
(t_8 (* y3 (- (* c y4) (* a y5))))
(t_9 (- (* x j) (* z k)))
(t_10 (- (* a y5) (* c y4))))
(if (<= b -4e+230)
(* x (* y0 (- (* c y2) (* b j))))
(if (<= b -1.1e+140)
(* k (+ (/ (* y (+ t_6 t_8)) k) (* y t_4)))
(if (<= b -7.5e-44)
t_7
(if (<= b -9.5e-83)
(*
z
(+
(* k (- (* b y0) (* i y1)))
(- (* t (- (* c i) (* a b))) (* y3 t_5))))
(if (<= b -1.05e-112)
(*
(+
(- (* y3 y4) (* a (* y3 (/ y5 c))))
(- (* i (* k (/ y5 c))) (* x i)))
(* y c))
(if (<= b -3.2e-243)
(* y1 (- (* i t_9) (+ (* a t_3) (* y4 (- (* j y3) (* k y2))))))
(if (<= b -1.35e-263)
(*
c
(+ (+ (* y0 t_3) (* i t_2)) (* y4 (- (* y y3) (* t y2)))))
(if (<= b -9.6e-273)
(* t (* y2 t_10))
(if (<= b 3.9e-200)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x t_5))
(* t t_10)))
(if (<= b 1.55e-95)
(* y (+ t_8 (+ t_6 (* k t_4))))
(if (<= b 1.9e-91)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= b 3.5e-49)
(* i (+ (* y1 t_9) (- (* c t_2) (* y5 t_1))))
(if (<= b 7.5e-28)
(* k (* y1 (- (* y2 y4) (* z i))))
(if (<= b 2e+52)
t_7
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 t_1))
(* y0 (- (* z k) (* x j)))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = (z * t) - (x * y);
double t_3 = (x * y2) - (z * y3);
double t_4 = (i * y5) - (b * y4);
double t_5 = (c * y0) - (a * y1);
double t_6 = x * ((a * b) - (c * i));
double t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double t_8 = y3 * ((c * y4) - (a * y5));
double t_9 = (x * j) - (z * k);
double t_10 = (a * y5) - (c * y4);
double tmp;
if (b <= -4e+230) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (b <= -1.1e+140) {
tmp = k * (((y * (t_6 + t_8)) / k) + (y * t_4));
} else if (b <= -7.5e-44) {
tmp = t_7;
} else if (b <= -9.5e-83) {
tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_5)));
} else if (b <= -1.05e-112) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (b <= -3.2e-243) {
tmp = y1 * ((i * t_9) - ((a * t_3) + (y4 * ((j * y3) - (k * y2)))));
} else if (b <= -1.35e-263) {
tmp = c * (((y0 * t_3) + (i * t_2)) + (y4 * ((y * y3) - (t * y2))));
} else if (b <= -9.6e-273) {
tmp = t * (y2 * t_10);
} else if (b <= 3.9e-200) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_5)) + (t * t_10));
} else if (b <= 1.55e-95) {
tmp = y * (t_8 + (t_6 + (k * t_4)));
} else if (b <= 1.9e-91) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (b <= 3.5e-49) {
tmp = i * ((y1 * t_9) + ((c * t_2) - (y5 * t_1)));
} else if (b <= 7.5e-28) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (b <= 2e+52) {
tmp = t_7;
} else {
tmp = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_10
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_1 = (t * j) - (y * k)
t_2 = (z * t) - (x * y)
t_3 = (x * y2) - (z * y3)
t_4 = (i * y5) - (b * y4)
t_5 = (c * y0) - (a * y1)
t_6 = x * ((a * b) - (c * i))
t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
t_8 = y3 * ((c * y4) - (a * y5))
t_9 = (x * j) - (z * k)
t_10 = (a * y5) - (c * y4)
if (b <= (-4d+230)) then
tmp = x * (y0 * ((c * y2) - (b * j)))
else if (b <= (-1.1d+140)) then
tmp = k * (((y * (t_6 + t_8)) / k) + (y * t_4))
else if (b <= (-7.5d-44)) then
tmp = t_7
else if (b <= (-9.5d-83)) then
tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_5)))
else if (b <= (-1.05d-112)) then
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c)
else if (b <= (-3.2d-243)) then
tmp = y1 * ((i * t_9) - ((a * t_3) + (y4 * ((j * y3) - (k * y2)))))
else if (b <= (-1.35d-263)) then
tmp = c * (((y0 * t_3) + (i * t_2)) + (y4 * ((y * y3) - (t * y2))))
else if (b <= (-9.6d-273)) then
tmp = t * (y2 * t_10)
else if (b <= 3.9d-200) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_5)) + (t * t_10))
else if (b <= 1.55d-95) then
tmp = y * (t_8 + (t_6 + (k * t_4)))
else if (b <= 1.9d-91) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (b <= 3.5d-49) then
tmp = i * ((y1 * t_9) + ((c * t_2) - (y5 * t_1)))
else if (b <= 7.5d-28) then
tmp = k * (y1 * ((y2 * y4) - (z * i)))
else if (b <= 2d+52) then
tmp = t_7
else
tmp = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = (z * t) - (x * y);
double t_3 = (x * y2) - (z * y3);
double t_4 = (i * y5) - (b * y4);
double t_5 = (c * y0) - (a * y1);
double t_6 = x * ((a * b) - (c * i));
double t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double t_8 = y3 * ((c * y4) - (a * y5));
double t_9 = (x * j) - (z * k);
double t_10 = (a * y5) - (c * y4);
double tmp;
if (b <= -4e+230) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (b <= -1.1e+140) {
tmp = k * (((y * (t_6 + t_8)) / k) + (y * t_4));
} else if (b <= -7.5e-44) {
tmp = t_7;
} else if (b <= -9.5e-83) {
tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_5)));
} else if (b <= -1.05e-112) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (b <= -3.2e-243) {
tmp = y1 * ((i * t_9) - ((a * t_3) + (y4 * ((j * y3) - (k * y2)))));
} else if (b <= -1.35e-263) {
tmp = c * (((y0 * t_3) + (i * t_2)) + (y4 * ((y * y3) - (t * y2))));
} else if (b <= -9.6e-273) {
tmp = t * (y2 * t_10);
} else if (b <= 3.9e-200) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_5)) + (t * t_10));
} else if (b <= 1.55e-95) {
tmp = y * (t_8 + (t_6 + (k * t_4)));
} else if (b <= 1.9e-91) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (b <= 3.5e-49) {
tmp = i * ((y1 * t_9) + ((c * t_2) - (y5 * t_1)));
} else if (b <= 7.5e-28) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (b <= 2e+52) {
tmp = t_7;
} else {
tmp = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (t * j) - (y * k) t_2 = (z * t) - (x * y) t_3 = (x * y2) - (z * y3) t_4 = (i * y5) - (b * y4) t_5 = (c * y0) - (a * y1) t_6 = x * ((a * b) - (c * i)) t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) t_8 = y3 * ((c * y4) - (a * y5)) t_9 = (x * j) - (z * k) t_10 = (a * y5) - (c * y4) tmp = 0 if b <= -4e+230: tmp = x * (y0 * ((c * y2) - (b * j))) elif b <= -1.1e+140: tmp = k * (((y * (t_6 + t_8)) / k) + (y * t_4)) elif b <= -7.5e-44: tmp = t_7 elif b <= -9.5e-83: tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_5))) elif b <= -1.05e-112: tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c) elif b <= -3.2e-243: tmp = y1 * ((i * t_9) - ((a * t_3) + (y4 * ((j * y3) - (k * y2))))) elif b <= -1.35e-263: tmp = c * (((y0 * t_3) + (i * t_2)) + (y4 * ((y * y3) - (t * y2)))) elif b <= -9.6e-273: tmp = t * (y2 * t_10) elif b <= 3.9e-200: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_5)) + (t * t_10)) elif b <= 1.55e-95: tmp = y * (t_8 + (t_6 + (k * t_4))) elif b <= 1.9e-91: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif b <= 3.5e-49: tmp = i * ((y1 * t_9) + ((c * t_2) - (y5 * t_1))) elif b <= 7.5e-28: tmp = k * (y1 * ((y2 * y4) - (z * i))) elif b <= 2e+52: tmp = t_7 else: tmp = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(t * j) - Float64(y * k)) t_2 = Float64(Float64(z * t) - Float64(x * y)) t_3 = Float64(Float64(x * y2) - Float64(z * y3)) t_4 = Float64(Float64(i * y5) - Float64(b * y4)) t_5 = Float64(Float64(c * y0) - Float64(a * y1)) t_6 = Float64(x * Float64(Float64(a * b) - Float64(c * i))) t_7 = Float64(j * Float64(Float64(Float64(t * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * Float64(Float64(i * y1) - Float64(b * y0))))) t_8 = Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))) t_9 = Float64(Float64(x * j) - Float64(z * k)) t_10 = Float64(Float64(a * y5) - Float64(c * y4)) tmp = 0.0 if (b <= -4e+230) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); elseif (b <= -1.1e+140) tmp = Float64(k * Float64(Float64(Float64(y * Float64(t_6 + t_8)) / k) + Float64(y * t_4))); elseif (b <= -7.5e-44) tmp = t_7; elseif (b <= -9.5e-83) tmp = Float64(z * Float64(Float64(k * Float64(Float64(b * y0) - Float64(i * y1))) + Float64(Float64(t * Float64(Float64(c * i) - Float64(a * b))) - Float64(y3 * t_5)))); elseif (b <= -1.05e-112) tmp = Float64(Float64(Float64(Float64(y3 * y4) - Float64(a * Float64(y3 * Float64(y5 / c)))) + Float64(Float64(i * Float64(k * Float64(y5 / c))) - Float64(x * i))) * Float64(y * c)); elseif (b <= -3.2e-243) tmp = Float64(y1 * Float64(Float64(i * t_9) - Float64(Float64(a * t_3) + Float64(y4 * Float64(Float64(j * y3) - Float64(k * y2)))))); elseif (b <= -1.35e-263) tmp = Float64(c * Float64(Float64(Float64(y0 * t_3) + Float64(i * t_2)) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (b <= -9.6e-273) tmp = Float64(t * Float64(y2 * t_10)); elseif (b <= 3.9e-200) tmp = Float64(y2 * Float64(Float64(Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(x * t_5)) + Float64(t * t_10))); elseif (b <= 1.55e-95) tmp = Float64(y * Float64(t_8 + Float64(t_6 + Float64(k * t_4)))); elseif (b <= 1.9e-91) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (b <= 3.5e-49) tmp = Float64(i * Float64(Float64(y1 * t_9) + Float64(Float64(c * t_2) - Float64(y5 * t_1)))); elseif (b <= 7.5e-28) tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); elseif (b <= 2e+52) tmp = t_7; else tmp = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * t_1)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (t * j) - (y * k); t_2 = (z * t) - (x * y); t_3 = (x * y2) - (z * y3); t_4 = (i * y5) - (b * y4); t_5 = (c * y0) - (a * y1); t_6 = x * ((a * b) - (c * i)); t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); t_8 = y3 * ((c * y4) - (a * y5)); t_9 = (x * j) - (z * k); t_10 = (a * y5) - (c * y4); tmp = 0.0; if (b <= -4e+230) tmp = x * (y0 * ((c * y2) - (b * j))); elseif (b <= -1.1e+140) tmp = k * (((y * (t_6 + t_8)) / k) + (y * t_4)); elseif (b <= -7.5e-44) tmp = t_7; elseif (b <= -9.5e-83) tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_5))); elseif (b <= -1.05e-112) tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c); elseif (b <= -3.2e-243) tmp = y1 * ((i * t_9) - ((a * t_3) + (y4 * ((j * y3) - (k * y2))))); elseif (b <= -1.35e-263) tmp = c * (((y0 * t_3) + (i * t_2)) + (y4 * ((y * y3) - (t * y2)))); elseif (b <= -9.6e-273) tmp = t * (y2 * t_10); elseif (b <= 3.9e-200) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_5)) + (t * t_10)); elseif (b <= 1.55e-95) tmp = y * (t_8 + (t_6 + (k * t_4))); elseif (b <= 1.9e-91) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (b <= 3.5e-49) tmp = i * ((y1 * t_9) + ((c * t_2) - (y5 * t_1))); elseif (b <= 7.5e-28) tmp = k * (y1 * ((y2 * y4) - (z * i))); elseif (b <= 2e+52) tmp = t_7; else tmp = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(j * N[(N[(N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$10 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -4e+230], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.1e+140], N[(k * N[(N[(N[(y * N[(t$95$6 + t$95$8), $MachinePrecision]), $MachinePrecision] / k), $MachinePrecision] + N[(y * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -7.5e-44], t$95$7, If[LessEqual[b, -9.5e-83], N[(z * N[(N[(k * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(t * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y3 * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.05e-112], N[(N[(N[(N[(y3 * y4), $MachinePrecision] - N[(a * N[(y3 * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(i * N[(k * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(y * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -3.2e-243], N[(y1 * N[(N[(i * t$95$9), $MachinePrecision] - N[(N[(a * t$95$3), $MachinePrecision] + N[(y4 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.35e-263], N[(c * N[(N[(N[(y0 * t$95$3), $MachinePrecision] + N[(i * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -9.6e-273], N[(t * N[(y2 * t$95$10), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 3.9e-200], N[(y2 * N[(N[(N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$5), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$10), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.55e-95], N[(y * N[(t$95$8 + N[(t$95$6 + N[(k * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.9e-91], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 3.5e-49], N[(i * N[(N[(y1 * t$95$9), $MachinePrecision] + N[(N[(c * t$95$2), $MachinePrecision] - N[(y5 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 7.5e-28], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2e+52], t$95$7, N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := z \cdot t - x \cdot y\\
t_3 := x \cdot y2 - z \cdot y3\\
t_4 := i \cdot y5 - b \cdot y4\\
t_5 := c \cdot y0 - a \cdot y1\\
t_6 := x \cdot \left(a \cdot b - c \cdot i\right)\\
t_7 := j \cdot \left(\left(t \cdot \left(b \cdot y4 - i \cdot y5\right) + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
t_8 := y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\\
t_9 := x \cdot j - z \cdot k\\
t_10 := a \cdot y5 - c \cdot y4\\
\mathbf{if}\;b \leq -4 \cdot 10^{+230}:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{elif}\;b \leq -1.1 \cdot 10^{+140}:\\
\;\;\;\;k \cdot \left(\frac{y \cdot \left(t\_6 + t\_8\right)}{k} + y \cdot t\_4\right)\\
\mathbf{elif}\;b \leq -7.5 \cdot 10^{-44}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;b \leq -9.5 \cdot 10^{-83}:\\
\;\;\;\;z \cdot \left(k \cdot \left(b \cdot y0 - i \cdot y1\right) + \left(t \cdot \left(c \cdot i - a \cdot b\right) - y3 \cdot t\_5\right)\right)\\
\mathbf{elif}\;b \leq -1.05 \cdot 10^{-112}:\\
\;\;\;\;\left(\left(y3 \cdot y4 - a \cdot \left(y3 \cdot \frac{y5}{c}\right)\right) + \left(i \cdot \left(k \cdot \frac{y5}{c}\right) - x \cdot i\right)\right) \cdot \left(y \cdot c\right)\\
\mathbf{elif}\;b \leq -3.2 \cdot 10^{-243}:\\
\;\;\;\;y1 \cdot \left(i \cdot t\_9 - \left(a \cdot t\_3 + y4 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\right)\\
\mathbf{elif}\;b \leq -1.35 \cdot 10^{-263}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot t\_3 + i \cdot t\_2\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq -9.6 \cdot 10^{-273}:\\
\;\;\;\;t \cdot \left(y2 \cdot t\_10\right)\\
\mathbf{elif}\;b \leq 3.9 \cdot 10^{-200}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + x \cdot t\_5\right) + t \cdot t\_10\right)\\
\mathbf{elif}\;b \leq 1.55 \cdot 10^{-95}:\\
\;\;\;\;y \cdot \left(t\_8 + \left(t\_6 + k \cdot t\_4\right)\right)\\
\mathbf{elif}\;b \leq 1.9 \cdot 10^{-91}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;b \leq 3.5 \cdot 10^{-49}:\\
\;\;\;\;i \cdot \left(y1 \cdot t\_9 + \left(c \cdot t\_2 - y5 \cdot t\_1\right)\right)\\
\mathbf{elif}\;b \leq 7.5 \cdot 10^{-28}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{elif}\;b \leq 2 \cdot 10^{+52}:\\
\;\;\;\;t\_7\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot t\_1\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\end{array}
\end{array}
if b < -4.0000000000000004e230Initial program 14.3%
Taylor expanded in x around inf 21.6%
Taylor expanded in y0 around inf 64.4%
if -4.0000000000000004e230 < b < -1.0999999999999999e140Initial program 41.9%
Taylor expanded in y around inf 52.9%
+-commutative52.9%
mul-1-neg52.9%
unsub-neg52.9%
*-commutative52.9%
*-commutative52.9%
mul-1-neg52.9%
Simplified52.9%
Taylor expanded in k around inf 68.4%
if -1.0999999999999999e140 < b < -7.50000000000000008e-44 or 7.5000000000000003e-28 < b < 2e52Initial program 25.5%
Taylor expanded in j around inf 61.6%
+-commutative61.6%
mul-1-neg61.6%
unsub-neg61.6%
*-commutative61.6%
Simplified61.6%
if -7.50000000000000008e-44 < b < -9.50000000000000051e-83Initial program 33.3%
Taylor expanded in z around -inf 79.2%
if -9.50000000000000051e-83 < b < -1.05e-112Initial program 22.0%
Taylor expanded in y around inf 35.0%
+-commutative35.0%
mul-1-neg35.0%
unsub-neg35.0%
*-commutative35.0%
*-commutative35.0%
mul-1-neg35.0%
Simplified35.0%
Taylor expanded in c around inf 45.3%
associate-/l*45.3%
distribute-lft-out56.4%
+-commutative56.4%
mul-1-neg56.4%
unsub-neg56.4%
*-commutative56.4%
Simplified56.4%
Taylor expanded in b around 0 56.4%
associate-*r*66.7%
*-commutative66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
associate-/l*77.8%
associate-/l*77.8%
+-commutative77.8%
mul-1-neg77.8%
unsub-neg77.8%
*-commutative77.8%
associate-/l*77.8%
associate-/l*77.8%
Simplified77.8%
if -1.05e-112 < b < -3.1999999999999998e-243Initial program 28.0%
Taylor expanded in y1 around -inf 60.8%
associate-*r*60.8%
neg-mul-160.8%
+-commutative60.8%
mul-1-neg60.8%
unsub-neg60.8%
*-commutative60.8%
*-commutative60.8%
*-commutative60.8%
*-commutative60.8%
Simplified60.8%
if -3.1999999999999998e-243 < b < -1.35000000000000002e-263Initial program 20.0%
Taylor expanded in c around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
*-commutative100.0%
*-commutative100.0%
*-commutative100.0%
Simplified100.0%
if -1.35000000000000002e-263 < b < -9.59999999999999926e-273Initial program 0.0%
Taylor expanded in y2 around inf 66.7%
Taylor expanded in t around inf 100.0%
if -9.59999999999999926e-273 < b < 3.89999999999999999e-200Initial program 29.8%
Taylor expanded in y2 around inf 59.5%
if 3.89999999999999999e-200 < b < 1.54999999999999996e-95Initial program 36.8%
Taylor expanded in y around inf 53.4%
+-commutative53.4%
mul-1-neg53.4%
unsub-neg53.4%
*-commutative53.4%
*-commutative53.4%
mul-1-neg53.4%
Simplified53.4%
if 1.54999999999999996e-95 < b < 1.89999999999999989e-91Initial program 66.7%
Taylor expanded in y2 around inf 66.7%
Taylor expanded in y0 around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
Simplified100.0%
if 1.89999999999999989e-91 < b < 3.50000000000000006e-49Initial program 25.9%
Taylor expanded in i around -inf 67.3%
if 3.50000000000000006e-49 < b < 7.5000000000000003e-28Initial program 0.0%
Taylor expanded in k around inf 52.2%
+-commutative52.2%
mul-1-neg52.2%
unsub-neg52.2%
*-commutative52.2%
associate-*r*52.2%
neg-mul-152.2%
Simplified52.2%
Taylor expanded in y1 around inf 76.0%
if 2e52 < b Initial program 27.2%
Taylor expanded in b around inf 63.8%
Final simplification65.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (+ (* x (- (* a b) (* c i))) (* k (- (* i y5) (* b y4)))))
(t_2 (- (* x j) (* z k)))
(t_3 (- (* t j) (* y k)))
(t_4 (- (* c y0) (* a y1)))
(t_5 (- (* a y5) (* c y4)))
(t_6
(*
j
(+
(+ (* t (- (* b y4) (* i y5))) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0))))))
(t_7
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 t_3))
(* y0 (- (* z k) (* x j))))))
(t_8 (- (* x y2) (* z y3)))
(t_9 (- (* z t) (* x y))))
(if (<= b -1.1e+182)
t_7
(if (<= b -4e+141)
(* y t_1)
(if (<= b -5.5e-43)
t_6
(if (<= b -4.7e-85)
(*
z
(+
(* k (- (* b y0) (* i y1)))
(- (* t (- (* c i) (* a b))) (* y3 t_4))))
(if (<= b -1.02e-112)
(*
(+
(- (* y3 y4) (* a (* y3 (/ y5 c))))
(- (* i (* k (/ y5 c))) (* x i)))
(* y c))
(if (<= b -6.2e-241)
(* y1 (- (* i t_2) (+ (* a t_8) (* y4 (- (* j y3) (* k y2))))))
(if (<= b -2.5e-263)
(*
c
(+ (+ (* y0 t_8) (* i t_9)) (* y4 (- (* y y3) (* t y2)))))
(if (<= b -4.6e-272)
(* t (* y2 t_5))
(if (<= b 1.4e-199)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x t_4))
(* t t_5)))
(if (<= b 8.5e-96)
(* y (+ (* y3 (- (* c y4) (* a y5))) t_1))
(if (<= b 8.5e-92)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= b 1.25e-49)
(* i (+ (* y1 t_2) (- (* c t_9) (* y5 t_3))))
(if (<= b 2.45e-23)
(* k (* y1 (- (* y2 y4) (* z i))))
(if (<= b 3.9e+33) t_6 t_7))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)));
double t_2 = (x * j) - (z * k);
double t_3 = (t * j) - (y * k);
double t_4 = (c * y0) - (a * y1);
double t_5 = (a * y5) - (c * y4);
double t_6 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * ((z * k) - (x * j))));
double t_8 = (x * y2) - (z * y3);
double t_9 = (z * t) - (x * y);
double tmp;
if (b <= -1.1e+182) {
tmp = t_7;
} else if (b <= -4e+141) {
tmp = y * t_1;
} else if (b <= -5.5e-43) {
tmp = t_6;
} else if (b <= -4.7e-85) {
tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_4)));
} else if (b <= -1.02e-112) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (b <= -6.2e-241) {
tmp = y1 * ((i * t_2) - ((a * t_8) + (y4 * ((j * y3) - (k * y2)))));
} else if (b <= -2.5e-263) {
tmp = c * (((y0 * t_8) + (i * t_9)) + (y4 * ((y * y3) - (t * y2))));
} else if (b <= -4.6e-272) {
tmp = t * (y2 * t_5);
} else if (b <= 1.4e-199) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_5));
} else if (b <= 8.5e-96) {
tmp = y * ((y3 * ((c * y4) - (a * y5))) + t_1);
} else if (b <= 8.5e-92) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (b <= 1.25e-49) {
tmp = i * ((y1 * t_2) + ((c * t_9) - (y5 * t_3)));
} else if (b <= 2.45e-23) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (b <= 3.9e+33) {
tmp = t_6;
} else {
tmp = t_7;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_1 = (x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))
t_2 = (x * j) - (z * k)
t_3 = (t * j) - (y * k)
t_4 = (c * y0) - (a * y1)
t_5 = (a * y5) - (c * y4)
t_6 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * ((z * k) - (x * j))))
t_8 = (x * y2) - (z * y3)
t_9 = (z * t) - (x * y)
if (b <= (-1.1d+182)) then
tmp = t_7
else if (b <= (-4d+141)) then
tmp = y * t_1
else if (b <= (-5.5d-43)) then
tmp = t_6
else if (b <= (-4.7d-85)) then
tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_4)))
else if (b <= (-1.02d-112)) then
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c)
else if (b <= (-6.2d-241)) then
tmp = y1 * ((i * t_2) - ((a * t_8) + (y4 * ((j * y3) - (k * y2)))))
else if (b <= (-2.5d-263)) then
tmp = c * (((y0 * t_8) + (i * t_9)) + (y4 * ((y * y3) - (t * y2))))
else if (b <= (-4.6d-272)) then
tmp = t * (y2 * t_5)
else if (b <= 1.4d-199) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_5))
else if (b <= 8.5d-96) then
tmp = y * ((y3 * ((c * y4) - (a * y5))) + t_1)
else if (b <= 8.5d-92) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (b <= 1.25d-49) then
tmp = i * ((y1 * t_2) + ((c * t_9) - (y5 * t_3)))
else if (b <= 2.45d-23) then
tmp = k * (y1 * ((y2 * y4) - (z * i)))
else if (b <= 3.9d+33) then
tmp = t_6
else
tmp = t_7
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)));
double t_2 = (x * j) - (z * k);
double t_3 = (t * j) - (y * k);
double t_4 = (c * y0) - (a * y1);
double t_5 = (a * y5) - (c * y4);
double t_6 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * ((z * k) - (x * j))));
double t_8 = (x * y2) - (z * y3);
double t_9 = (z * t) - (x * y);
double tmp;
if (b <= -1.1e+182) {
tmp = t_7;
} else if (b <= -4e+141) {
tmp = y * t_1;
} else if (b <= -5.5e-43) {
tmp = t_6;
} else if (b <= -4.7e-85) {
tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_4)));
} else if (b <= -1.02e-112) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (b <= -6.2e-241) {
tmp = y1 * ((i * t_2) - ((a * t_8) + (y4 * ((j * y3) - (k * y2)))));
} else if (b <= -2.5e-263) {
tmp = c * (((y0 * t_8) + (i * t_9)) + (y4 * ((y * y3) - (t * y2))));
} else if (b <= -4.6e-272) {
tmp = t * (y2 * t_5);
} else if (b <= 1.4e-199) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_5));
} else if (b <= 8.5e-96) {
tmp = y * ((y3 * ((c * y4) - (a * y5))) + t_1);
} else if (b <= 8.5e-92) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (b <= 1.25e-49) {
tmp = i * ((y1 * t_2) + ((c * t_9) - (y5 * t_3)));
} else if (b <= 2.45e-23) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (b <= 3.9e+33) {
tmp = t_6;
} else {
tmp = t_7;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))) t_2 = (x * j) - (z * k) t_3 = (t * j) - (y * k) t_4 = (c * y0) - (a * y1) t_5 = (a * y5) - (c * y4) t_6 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * ((z * k) - (x * j)))) t_8 = (x * y2) - (z * y3) t_9 = (z * t) - (x * y) tmp = 0 if b <= -1.1e+182: tmp = t_7 elif b <= -4e+141: tmp = y * t_1 elif b <= -5.5e-43: tmp = t_6 elif b <= -4.7e-85: tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_4))) elif b <= -1.02e-112: tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c) elif b <= -6.2e-241: tmp = y1 * ((i * t_2) - ((a * t_8) + (y4 * ((j * y3) - (k * y2))))) elif b <= -2.5e-263: tmp = c * (((y0 * t_8) + (i * t_9)) + (y4 * ((y * y3) - (t * y2)))) elif b <= -4.6e-272: tmp = t * (y2 * t_5) elif b <= 1.4e-199: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_5)) elif b <= 8.5e-96: tmp = y * ((y3 * ((c * y4) - (a * y5))) + t_1) elif b <= 8.5e-92: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif b <= 1.25e-49: tmp = i * ((y1 * t_2) + ((c * t_9) - (y5 * t_3))) elif b <= 2.45e-23: tmp = k * (y1 * ((y2 * y4) - (z * i))) elif b <= 3.9e+33: tmp = t_6 else: tmp = t_7 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4)))) t_2 = Float64(Float64(x * j) - Float64(z * k)) t_3 = Float64(Float64(t * j) - Float64(y * k)) t_4 = Float64(Float64(c * y0) - Float64(a * y1)) t_5 = Float64(Float64(a * y5) - Float64(c * y4)) t_6 = Float64(j * Float64(Float64(Float64(t * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * Float64(Float64(i * y1) - Float64(b * y0))))) t_7 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * t_3)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) t_8 = Float64(Float64(x * y2) - Float64(z * y3)) t_9 = Float64(Float64(z * t) - Float64(x * y)) tmp = 0.0 if (b <= -1.1e+182) tmp = t_7; elseif (b <= -4e+141) tmp = Float64(y * t_1); elseif (b <= -5.5e-43) tmp = t_6; elseif (b <= -4.7e-85) tmp = Float64(z * Float64(Float64(k * Float64(Float64(b * y0) - Float64(i * y1))) + Float64(Float64(t * Float64(Float64(c * i) - Float64(a * b))) - Float64(y3 * t_4)))); elseif (b <= -1.02e-112) tmp = Float64(Float64(Float64(Float64(y3 * y4) - Float64(a * Float64(y3 * Float64(y5 / c)))) + Float64(Float64(i * Float64(k * Float64(y5 / c))) - Float64(x * i))) * Float64(y * c)); elseif (b <= -6.2e-241) tmp = Float64(y1 * Float64(Float64(i * t_2) - Float64(Float64(a * t_8) + Float64(y4 * Float64(Float64(j * y3) - Float64(k * y2)))))); elseif (b <= -2.5e-263) tmp = Float64(c * Float64(Float64(Float64(y0 * t_8) + Float64(i * t_9)) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (b <= -4.6e-272) tmp = Float64(t * Float64(y2 * t_5)); elseif (b <= 1.4e-199) tmp = Float64(y2 * Float64(Float64(Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(x * t_4)) + Float64(t * t_5))); elseif (b <= 8.5e-96) tmp = Float64(y * Float64(Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))) + t_1)); elseif (b <= 8.5e-92) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (b <= 1.25e-49) tmp = Float64(i * Float64(Float64(y1 * t_2) + Float64(Float64(c * t_9) - Float64(y5 * t_3)))); elseif (b <= 2.45e-23) tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); elseif (b <= 3.9e+33) tmp = t_6; else tmp = t_7; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))); t_2 = (x * j) - (z * k); t_3 = (t * j) - (y * k); t_4 = (c * y0) - (a * y1); t_5 = (a * y5) - (c * y4); t_6 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); t_7 = b * (((a * ((x * y) - (z * t))) + (y4 * t_3)) + (y0 * ((z * k) - (x * j)))); t_8 = (x * y2) - (z * y3); t_9 = (z * t) - (x * y); tmp = 0.0; if (b <= -1.1e+182) tmp = t_7; elseif (b <= -4e+141) tmp = y * t_1; elseif (b <= -5.5e-43) tmp = t_6; elseif (b <= -4.7e-85) tmp = z * ((k * ((b * y0) - (i * y1))) + ((t * ((c * i) - (a * b))) - (y3 * t_4))); elseif (b <= -1.02e-112) tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c); elseif (b <= -6.2e-241) tmp = y1 * ((i * t_2) - ((a * t_8) + (y4 * ((j * y3) - (k * y2))))); elseif (b <= -2.5e-263) tmp = c * (((y0 * t_8) + (i * t_9)) + (y4 * ((y * y3) - (t * y2)))); elseif (b <= -4.6e-272) tmp = t * (y2 * t_5); elseif (b <= 1.4e-199) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_5)); elseif (b <= 8.5e-96) tmp = y * ((y3 * ((c * y4) - (a * y5))) + t_1); elseif (b <= 8.5e-92) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (b <= 1.25e-49) tmp = i * ((y1 * t_2) + ((c * t_9) - (y5 * t_3))); elseif (b <= 2.45e-23) tmp = k * (y1 * ((y2 * y4) - (z * i))); elseif (b <= 3.9e+33) tmp = t_6; else tmp = t_7; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(j * N[(N[(N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$3), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -1.1e+182], t$95$7, If[LessEqual[b, -4e+141], N[(y * t$95$1), $MachinePrecision], If[LessEqual[b, -5.5e-43], t$95$6, If[LessEqual[b, -4.7e-85], N[(z * N[(N[(k * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(t * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y3 * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.02e-112], N[(N[(N[(N[(y3 * y4), $MachinePrecision] - N[(a * N[(y3 * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(i * N[(k * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(y * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -6.2e-241], N[(y1 * N[(N[(i * t$95$2), $MachinePrecision] - N[(N[(a * t$95$8), $MachinePrecision] + N[(y4 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2.5e-263], N[(c * N[(N[(N[(y0 * t$95$8), $MachinePrecision] + N[(i * t$95$9), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -4.6e-272], N[(t * N[(y2 * t$95$5), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.4e-199], N[(y2 * N[(N[(N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$4), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 8.5e-96], N[(y * N[(N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 8.5e-92], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.25e-49], N[(i * N[(N[(y1 * t$95$2), $MachinePrecision] + N[(N[(c * t$95$9), $MachinePrecision] - N[(y5 * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.45e-23], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 3.9e+33], t$95$6, t$95$7]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(a \cdot b - c \cdot i\right) + k \cdot \left(i \cdot y5 - b \cdot y4\right)\\
t_2 := x \cdot j - z \cdot k\\
t_3 := t \cdot j - y \cdot k\\
t_4 := c \cdot y0 - a \cdot y1\\
t_5 := a \cdot y5 - c \cdot y4\\
t_6 := j \cdot \left(\left(t \cdot \left(b \cdot y4 - i \cdot y5\right) + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
t_7 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot t\_3\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
t_8 := x \cdot y2 - z \cdot y3\\
t_9 := z \cdot t - x \cdot y\\
\mathbf{if}\;b \leq -1.1 \cdot 10^{+182}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;b \leq -4 \cdot 10^{+141}:\\
\;\;\;\;y \cdot t\_1\\
\mathbf{elif}\;b \leq -5.5 \cdot 10^{-43}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;b \leq -4.7 \cdot 10^{-85}:\\
\;\;\;\;z \cdot \left(k \cdot \left(b \cdot y0 - i \cdot y1\right) + \left(t \cdot \left(c \cdot i - a \cdot b\right) - y3 \cdot t\_4\right)\right)\\
\mathbf{elif}\;b \leq -1.02 \cdot 10^{-112}:\\
\;\;\;\;\left(\left(y3 \cdot y4 - a \cdot \left(y3 \cdot \frac{y5}{c}\right)\right) + \left(i \cdot \left(k \cdot \frac{y5}{c}\right) - x \cdot i\right)\right) \cdot \left(y \cdot c\right)\\
\mathbf{elif}\;b \leq -6.2 \cdot 10^{-241}:\\
\;\;\;\;y1 \cdot \left(i \cdot t\_2 - \left(a \cdot t\_8 + y4 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\right)\\
\mathbf{elif}\;b \leq -2.5 \cdot 10^{-263}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot t\_8 + i \cdot t\_9\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq -4.6 \cdot 10^{-272}:\\
\;\;\;\;t \cdot \left(y2 \cdot t\_5\right)\\
\mathbf{elif}\;b \leq 1.4 \cdot 10^{-199}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + x \cdot t\_4\right) + t \cdot t\_5\right)\\
\mathbf{elif}\;b \leq 8.5 \cdot 10^{-96}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right) + t\_1\right)\\
\mathbf{elif}\;b \leq 8.5 \cdot 10^{-92}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;b \leq 1.25 \cdot 10^{-49}:\\
\;\;\;\;i \cdot \left(y1 \cdot t\_2 + \left(c \cdot t\_9 - y5 \cdot t\_3\right)\right)\\
\mathbf{elif}\;b \leq 2.45 \cdot 10^{-23}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{elif}\;b \leq 3.9 \cdot 10^{+33}:\\
\;\;\;\;t\_6\\
\mathbf{else}:\\
\;\;\;\;t\_7\\
\end{array}
\end{array}
if b < -1.09999999999999998e182 or 3.9000000000000002e33 < b Initial program 28.1%
Taylor expanded in b around inf 62.7%
if -1.09999999999999998e182 < b < -4.00000000000000007e141Initial program 30.0%
Taylor expanded in y around inf 70.0%
+-commutative70.0%
mul-1-neg70.0%
unsub-neg70.0%
*-commutative70.0%
*-commutative70.0%
mul-1-neg70.0%
Simplified70.0%
Taylor expanded in y3 around 0 80.5%
if -4.00000000000000007e141 < b < -5.50000000000000013e-43 or 2.4499999999999999e-23 < b < 3.9000000000000002e33Initial program 25.5%
Taylor expanded in j around inf 61.6%
+-commutative61.6%
mul-1-neg61.6%
unsub-neg61.6%
*-commutative61.6%
Simplified61.6%
if -5.50000000000000013e-43 < b < -4.70000000000000009e-85Initial program 33.3%
Taylor expanded in z around -inf 79.2%
if -4.70000000000000009e-85 < b < -1.01999999999999996e-112Initial program 22.0%
Taylor expanded in y around inf 35.0%
+-commutative35.0%
mul-1-neg35.0%
unsub-neg35.0%
*-commutative35.0%
*-commutative35.0%
mul-1-neg35.0%
Simplified35.0%
Taylor expanded in c around inf 45.3%
associate-/l*45.3%
distribute-lft-out56.4%
+-commutative56.4%
mul-1-neg56.4%
unsub-neg56.4%
*-commutative56.4%
Simplified56.4%
Taylor expanded in b around 0 56.4%
associate-*r*66.7%
*-commutative66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
associate-/l*77.8%
associate-/l*77.8%
+-commutative77.8%
mul-1-neg77.8%
unsub-neg77.8%
*-commutative77.8%
associate-/l*77.8%
associate-/l*77.8%
Simplified77.8%
if -1.01999999999999996e-112 < b < -6.1999999999999998e-241Initial program 28.0%
Taylor expanded in y1 around -inf 60.8%
associate-*r*60.8%
neg-mul-160.8%
+-commutative60.8%
mul-1-neg60.8%
unsub-neg60.8%
*-commutative60.8%
*-commutative60.8%
*-commutative60.8%
*-commutative60.8%
Simplified60.8%
if -6.1999999999999998e-241 < b < -2.50000000000000003e-263Initial program 20.0%
Taylor expanded in c around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
*-commutative100.0%
*-commutative100.0%
*-commutative100.0%
Simplified100.0%
if -2.50000000000000003e-263 < b < -4.59999999999999978e-272Initial program 0.0%
Taylor expanded in y2 around inf 66.7%
Taylor expanded in t around inf 100.0%
if -4.59999999999999978e-272 < b < 1.40000000000000009e-199Initial program 29.8%
Taylor expanded in y2 around inf 59.5%
if 1.40000000000000009e-199 < b < 8.49999999999999983e-96Initial program 36.8%
Taylor expanded in y around inf 53.4%
+-commutative53.4%
mul-1-neg53.4%
unsub-neg53.4%
*-commutative53.4%
*-commutative53.4%
mul-1-neg53.4%
Simplified53.4%
if 8.49999999999999983e-96 < b < 8.50000000000000067e-92Initial program 66.7%
Taylor expanded in y2 around inf 66.7%
Taylor expanded in y0 around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
Simplified100.0%
if 8.50000000000000067e-92 < b < 1.25e-49Initial program 25.9%
Taylor expanded in i around -inf 67.3%
if 1.25e-49 < b < 2.4499999999999999e-23Initial program 0.0%
Taylor expanded in k around inf 52.2%
+-commutative52.2%
mul-1-neg52.2%
unsub-neg52.2%
*-commutative52.2%
associate-*r*52.2%
neg-mul-152.2%
Simplified52.2%
Taylor expanded in y1 around inf 76.0%
Final simplification65.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* i y1) (* b y0)))
(t_2 (- (* a b) (* c i)))
(t_3 (- (* b y4) (* i y5)))
(t_4
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j))))))
(t_5 (* y5 (* y0 (- (* j y3) (* k y2))))))
(if (<= a -1.45e+229)
(* y2 (* y5 (- (* t a) (* k y0))))
(if (<= a -1.06e+96)
(* x (+ (+ (* y t_2) (* y2 (- (* c y0) (* a y1)))) (* j t_1)))
(if (<= a -1.65e+21)
(* x (* y1 (- (* i j) (* a y2))))
(if (<= a -4.9e-144)
t_4
(if (<= a -6.8e-179)
(*
(+
(- (* y3 y4) (* a (* y3 (/ y5 c))))
(- (* i (* k (/ y5 c))) (* x i)))
(* y c))
(if (<= a -1.75e-258)
(* i (+ (* c (- (* z t) (* x y))) (* y1 (- (* x j) (* z k)))))
(if (<= a -2.6e-303)
t_4
(if (<= a 6.9e-242)
t_5
(if (<= a 7e-200)
(* y (+ (* x t_2) (* k (- (* i y5) (* b y4)))))
(if (<= a 9e-155)
t_5
(if (<= a 3.8e-101)
(*
j
(+
(+ (* t t_3) (* y3 (- (* y0 y5) (* y1 y4))))
(* x t_1)))
(if (<= a 2.2e-91)
(* k (* y1 (* y2 y4)))
(if (<= a 3.1e+20)
(-
(* a (* (* x y) b))
(* y (+ (* k t_3) (* c (* x i)))))
(if (<= a 3e+155)
(*
t
(+
(+ (* j t_3) (* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4)))))
(if (<= a 2.8e+159)
(* b (* x (- (* y a) (* j y0))))
(*
y2
(* a (- (* t y5) (* x y1)))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (i * y1) - (b * y0);
double t_2 = (a * b) - (c * i);
double t_3 = (b * y4) - (i * y5);
double t_4 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_5 = y5 * (y0 * ((j * y3) - (k * y2)));
double tmp;
if (a <= -1.45e+229) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (a <= -1.06e+96) {
tmp = x * (((y * t_2) + (y2 * ((c * y0) - (a * y1)))) + (j * t_1));
} else if (a <= -1.65e+21) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (a <= -4.9e-144) {
tmp = t_4;
} else if (a <= -6.8e-179) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (a <= -1.75e-258) {
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
} else if (a <= -2.6e-303) {
tmp = t_4;
} else if (a <= 6.9e-242) {
tmp = t_5;
} else if (a <= 7e-200) {
tmp = y * ((x * t_2) + (k * ((i * y5) - (b * y4))));
} else if (a <= 9e-155) {
tmp = t_5;
} else if (a <= 3.8e-101) {
tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_1));
} else if (a <= 2.2e-91) {
tmp = k * (y1 * (y2 * y4));
} else if (a <= 3.1e+20) {
tmp = (a * ((x * y) * b)) - (y * ((k * t_3) + (c * (x * i))));
} else if (a <= 3e+155) {
tmp = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} else if (a <= 2.8e+159) {
tmp = b * (x * ((y * a) - (j * y0)));
} else {
tmp = y2 * (a * ((t * y5) - (x * y1)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
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 = (i * y1) - (b * y0)
t_2 = (a * b) - (c * i)
t_3 = (b * y4) - (i * y5)
t_4 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
t_5 = y5 * (y0 * ((j * y3) - (k * y2)))
if (a <= (-1.45d+229)) then
tmp = y2 * (y5 * ((t * a) - (k * y0)))
else if (a <= (-1.06d+96)) then
tmp = x * (((y * t_2) + (y2 * ((c * y0) - (a * y1)))) + (j * t_1))
else if (a <= (-1.65d+21)) then
tmp = x * (y1 * ((i * j) - (a * y2)))
else if (a <= (-4.9d-144)) then
tmp = t_4
else if (a <= (-6.8d-179)) then
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c)
else if (a <= (-1.75d-258)) then
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))))
else if (a <= (-2.6d-303)) then
tmp = t_4
else if (a <= 6.9d-242) then
tmp = t_5
else if (a <= 7d-200) then
tmp = y * ((x * t_2) + (k * ((i * y5) - (b * y4))))
else if (a <= 9d-155) then
tmp = t_5
else if (a <= 3.8d-101) then
tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_1))
else if (a <= 2.2d-91) then
tmp = k * (y1 * (y2 * y4))
else if (a <= 3.1d+20) then
tmp = (a * ((x * y) * b)) - (y * ((k * t_3) + (c * (x * i))))
else if (a <= 3d+155) then
tmp = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
else if (a <= 2.8d+159) then
tmp = b * (x * ((y * a) - (j * y0)))
else
tmp = y2 * (a * ((t * y5) - (x * y1)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (i * y1) - (b * y0);
double t_2 = (a * b) - (c * i);
double t_3 = (b * y4) - (i * y5);
double t_4 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_5 = y5 * (y0 * ((j * y3) - (k * y2)));
double tmp;
if (a <= -1.45e+229) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (a <= -1.06e+96) {
tmp = x * (((y * t_2) + (y2 * ((c * y0) - (a * y1)))) + (j * t_1));
} else if (a <= -1.65e+21) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (a <= -4.9e-144) {
tmp = t_4;
} else if (a <= -6.8e-179) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (a <= -1.75e-258) {
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
} else if (a <= -2.6e-303) {
tmp = t_4;
} else if (a <= 6.9e-242) {
tmp = t_5;
} else if (a <= 7e-200) {
tmp = y * ((x * t_2) + (k * ((i * y5) - (b * y4))));
} else if (a <= 9e-155) {
tmp = t_5;
} else if (a <= 3.8e-101) {
tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_1));
} else if (a <= 2.2e-91) {
tmp = k * (y1 * (y2 * y4));
} else if (a <= 3.1e+20) {
tmp = (a * ((x * y) * b)) - (y * ((k * t_3) + (c * (x * i))));
} else if (a <= 3e+155) {
tmp = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} else if (a <= 2.8e+159) {
tmp = b * (x * ((y * a) - (j * y0)));
} else {
tmp = y2 * (a * ((t * y5) - (x * y1)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (i * y1) - (b * y0) t_2 = (a * b) - (c * i) t_3 = (b * y4) - (i * y5) t_4 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) t_5 = y5 * (y0 * ((j * y3) - (k * y2))) tmp = 0 if a <= -1.45e+229: tmp = y2 * (y5 * ((t * a) - (k * y0))) elif a <= -1.06e+96: tmp = x * (((y * t_2) + (y2 * ((c * y0) - (a * y1)))) + (j * t_1)) elif a <= -1.65e+21: tmp = x * (y1 * ((i * j) - (a * y2))) elif a <= -4.9e-144: tmp = t_4 elif a <= -6.8e-179: tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c) elif a <= -1.75e-258: tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))) elif a <= -2.6e-303: tmp = t_4 elif a <= 6.9e-242: tmp = t_5 elif a <= 7e-200: tmp = y * ((x * t_2) + (k * ((i * y5) - (b * y4)))) elif a <= 9e-155: tmp = t_5 elif a <= 3.8e-101: tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_1)) elif a <= 2.2e-91: tmp = k * (y1 * (y2 * y4)) elif a <= 3.1e+20: tmp = (a * ((x * y) * b)) - (y * ((k * t_3) + (c * (x * i)))) elif a <= 3e+155: tmp = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) elif a <= 2.8e+159: tmp = b * (x * ((y * a) - (j * y0))) else: tmp = y2 * (a * ((t * y5) - (x * y1))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(i * y1) - Float64(b * y0)) t_2 = Float64(Float64(a * b) - Float64(c * i)) t_3 = Float64(Float64(b * y4) - Float64(i * y5)) t_4 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) t_5 = Float64(y5 * Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2)))) tmp = 0.0 if (a <= -1.45e+229) tmp = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))); elseif (a <= -1.06e+96) tmp = Float64(x * Float64(Float64(Float64(y * t_2) + Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(j * t_1))); elseif (a <= -1.65e+21) tmp = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))); elseif (a <= -4.9e-144) tmp = t_4; elseif (a <= -6.8e-179) tmp = Float64(Float64(Float64(Float64(y3 * y4) - Float64(a * Float64(y3 * Float64(y5 / c)))) + Float64(Float64(i * Float64(k * Float64(y5 / c))) - Float64(x * i))) * Float64(y * c)); elseif (a <= -1.75e-258) tmp = Float64(i * Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) + Float64(y1 * Float64(Float64(x * j) - Float64(z * k))))); elseif (a <= -2.6e-303) tmp = t_4; elseif (a <= 6.9e-242) tmp = t_5; elseif (a <= 7e-200) tmp = Float64(y * Float64(Float64(x * t_2) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4))))); elseif (a <= 9e-155) tmp = t_5; elseif (a <= 3.8e-101) tmp = Float64(j * Float64(Float64(Float64(t * t_3) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * t_1))); elseif (a <= 2.2e-91) tmp = Float64(k * Float64(y1 * Float64(y2 * y4))); elseif (a <= 3.1e+20) tmp = Float64(Float64(a * Float64(Float64(x * y) * b)) - Float64(y * Float64(Float64(k * t_3) + Float64(c * Float64(x * i))))); elseif (a <= 3e+155) tmp = Float64(t * Float64(Float64(Float64(j * t_3) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (a <= 2.8e+159) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); else tmp = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (i * y1) - (b * y0); t_2 = (a * b) - (c * i); t_3 = (b * y4) - (i * y5); t_4 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); t_5 = y5 * (y0 * ((j * y3) - (k * y2))); tmp = 0.0; if (a <= -1.45e+229) tmp = y2 * (y5 * ((t * a) - (k * y0))); elseif (a <= -1.06e+96) tmp = x * (((y * t_2) + (y2 * ((c * y0) - (a * y1)))) + (j * t_1)); elseif (a <= -1.65e+21) tmp = x * (y1 * ((i * j) - (a * y2))); elseif (a <= -4.9e-144) tmp = t_4; elseif (a <= -6.8e-179) tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c); elseif (a <= -1.75e-258) tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))); elseif (a <= -2.6e-303) tmp = t_4; elseif (a <= 6.9e-242) tmp = t_5; elseif (a <= 7e-200) tmp = y * ((x * t_2) + (k * ((i * y5) - (b * y4)))); elseif (a <= 9e-155) tmp = t_5; elseif (a <= 3.8e-101) tmp = j * (((t * t_3) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_1)); elseif (a <= 2.2e-91) tmp = k * (y1 * (y2 * y4)); elseif (a <= 3.1e+20) tmp = (a * ((x * y) * b)) - (y * ((k * t_3) + (c * (x * i)))); elseif (a <= 3e+155) tmp = t * (((j * t_3) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); elseif (a <= 2.8e+159) tmp = b * (x * ((y * a) - (j * y0))); else tmp = y2 * (a * ((t * y5) - (x * y1))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(y5 * N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -1.45e+229], N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.06e+96], N[(x * N[(N[(N[(y * t$95$2), $MachinePrecision] + N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.65e+21], N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -4.9e-144], t$95$4, If[LessEqual[a, -6.8e-179], N[(N[(N[(N[(y3 * y4), $MachinePrecision] - N[(a * N[(y3 * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(i * N[(k * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(y * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.75e-258], N[(i * N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -2.6e-303], t$95$4, If[LessEqual[a, 6.9e-242], t$95$5, If[LessEqual[a, 7e-200], N[(y * N[(N[(x * t$95$2), $MachinePrecision] + N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 9e-155], t$95$5, If[LessEqual[a, 3.8e-101], N[(j * N[(N[(N[(t * t$95$3), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.2e-91], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 3.1e+20], N[(N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision] - N[(y * N[(N[(k * t$95$3), $MachinePrecision] + N[(c * N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 3e+155], N[(t * N[(N[(N[(j * t$95$3), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.8e+159], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot y1 - b \cdot y0\\
t_2 := a \cdot b - c \cdot i\\
t_3 := b \cdot y4 - i \cdot y5\\
t_4 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
t_5 := y5 \cdot \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\\
\mathbf{if}\;a \leq -1.45 \cdot 10^{+229}:\\
\;\;\;\;y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
\mathbf{elif}\;a \leq -1.06 \cdot 10^{+96}:\\
\;\;\;\;x \cdot \left(\left(y \cdot t\_2 + y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + j \cdot t\_1\right)\\
\mathbf{elif}\;a \leq -1.65 \cdot 10^{+21}:\\
\;\;\;\;x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
\mathbf{elif}\;a \leq -4.9 \cdot 10^{-144}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;a \leq -6.8 \cdot 10^{-179}:\\
\;\;\;\;\left(\left(y3 \cdot y4 - a \cdot \left(y3 \cdot \frac{y5}{c}\right)\right) + \left(i \cdot \left(k \cdot \frac{y5}{c}\right) - x \cdot i\right)\right) \cdot \left(y \cdot c\right)\\
\mathbf{elif}\;a \leq -1.75 \cdot 10^{-258}:\\
\;\;\;\;i \cdot \left(c \cdot \left(z \cdot t - x \cdot y\right) + y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{elif}\;a \leq -2.6 \cdot 10^{-303}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;a \leq 6.9 \cdot 10^{-242}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;a \leq 7 \cdot 10^{-200}:\\
\;\;\;\;y \cdot \left(x \cdot t\_2 + k \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;a \leq 9 \cdot 10^{-155}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;a \leq 3.8 \cdot 10^{-101}:\\
\;\;\;\;j \cdot \left(\left(t \cdot t\_3 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot t\_1\right)\\
\mathbf{elif}\;a \leq 2.2 \cdot 10^{-91}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{elif}\;a \leq 3.1 \cdot 10^{+20}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right) - y \cdot \left(k \cdot t\_3 + c \cdot \left(x \cdot i\right)\right)\\
\mathbf{elif}\;a \leq 3 \cdot 10^{+155}:\\
\;\;\;\;t \cdot \left(\left(j \cdot t\_3 + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;a \leq 2.8 \cdot 10^{+159}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\end{array}
\end{array}
if a < -1.44999999999999991e229Initial program 23.1%
Taylor expanded in y2 around inf 38.8%
Taylor expanded in y5 around -inf 69.6%
mul-1-neg69.6%
Simplified69.6%
if -1.44999999999999991e229 < a < -1.06e96Initial program 29.5%
Taylor expanded in x around inf 61.8%
if -1.06e96 < a < -1.65e21Initial program 0.9%
Taylor expanded in x around inf 25.3%
Taylor expanded in y1 around -inf 59.0%
mul-1-neg59.0%
Simplified59.0%
if -1.65e21 < a < -4.9000000000000001e-144 or -1.75000000000000001e-258 < a < -2.60000000000000005e-303Initial program 31.3%
Taylor expanded in b around inf 58.1%
if -4.9000000000000001e-144 < a < -6.7999999999999995e-179Initial program 55.4%
Taylor expanded in y around inf 57.4%
+-commutative57.4%
mul-1-neg57.4%
unsub-neg57.4%
*-commutative57.4%
*-commutative57.4%
mul-1-neg57.4%
Simplified57.4%
Taylor expanded in c around inf 56.2%
associate-/l*56.2%
distribute-lft-out67.3%
+-commutative67.3%
mul-1-neg67.3%
unsub-neg67.3%
*-commutative67.3%
Simplified67.3%
Taylor expanded in b around 0 67.3%
associate-*r*67.3%
*-commutative67.3%
+-commutative67.3%
mul-1-neg67.3%
unsub-neg67.3%
associate-/l*78.0%
associate-/l*78.0%
+-commutative78.0%
mul-1-neg78.0%
unsub-neg78.0%
*-commutative78.0%
associate-/l*78.0%
associate-/l*66.9%
Simplified66.9%
if -6.7999999999999995e-179 < a < -1.75000000000000001e-258Initial program 18.0%
Taylor expanded in i around -inf 46.0%
Taylor expanded in y5 around 0 55.5%
if -2.60000000000000005e-303 < a < 6.89999999999999996e-242 or 7.00000000000000045e-200 < a < 9.0000000000000007e-155Initial program 31.7%
Taylor expanded in y0 around inf 57.8%
+-commutative57.8%
mul-1-neg57.8%
unsub-neg57.8%
*-commutative57.8%
*-commutative57.8%
*-commutative57.8%
*-commutative57.8%
Simplified57.8%
Taylor expanded in y5 around inf 54.1%
Taylor expanded in j around 0 46.4%
*-commutative46.4%
*-commutative46.4%
*-commutative46.4%
associate-*l*50.8%
*-commutative50.8%
associate-*r*55.4%
*-commutative55.4%
associate-*r*55.4%
*-commutative55.4%
associate-*r*55.4%
neg-mul-155.4%
associate-*r*55.3%
*-commutative55.3%
distribute-lft-neg-in55.3%
*-commutative55.3%
*-commutative55.3%
associate-*l*50.8%
*-commutative50.8%
associate-*r*46.5%
*-commutative46.5%
associate-*r*46.5%
*-commutative46.5%
Simplified62.8%
if 6.89999999999999996e-242 < a < 7.00000000000000045e-200Initial program 22.0%
Taylor expanded in y around inf 67.1%
+-commutative67.1%
mul-1-neg67.1%
unsub-neg67.1%
*-commutative67.1%
*-commutative67.1%
mul-1-neg67.1%
Simplified67.1%
Taylor expanded in y3 around 0 67.1%
if 9.0000000000000007e-155 < a < 3.8000000000000001e-101Initial program 0.4%
Taylor expanded in j around inf 60.2%
+-commutative60.2%
mul-1-neg60.2%
unsub-neg60.2%
*-commutative60.2%
Simplified60.2%
if 3.8000000000000001e-101 < a < 2.2000000000000001e-91Initial program 33.3%
Taylor expanded in k around inf 66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
*-commutative66.7%
associate-*r*66.7%
neg-mul-166.7%
Simplified66.7%
Taylor expanded in y1 around inf 66.7%
Taylor expanded in y2 around inf 66.8%
if 2.2000000000000001e-91 < a < 3.1e20Initial program 36.9%
Taylor expanded in y around inf 52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
*-commutative52.7%
mul-1-neg52.7%
Simplified52.7%
Taylor expanded in y3 around 0 49.2%
Taylor expanded in a around 0 52.6%
if 3.1e20 < a < 3.0000000000000001e155Initial program 20.5%
Taylor expanded in t around inf 54.2%
+-commutative54.2%
mul-1-neg54.2%
unsub-neg54.2%
*-commutative54.2%
Simplified54.2%
if 3.0000000000000001e155 < a < 2.8000000000000001e159Initial program 100.0%
Taylor expanded in b around inf 100.0%
Taylor expanded in x around inf 100.0%
if 2.8000000000000001e159 < a Initial program 33.3%
Taylor expanded in y2 around inf 46.7%
Taylor expanded in a around -inf 57.5%
mul-1-neg57.5%
Simplified57.5%
Final simplification59.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y1 (* y2 (- (* k y4) (* x a))))))
(if (<= y2 -7.2e+227)
(* t (* y2 (- (* a y5) (* c y4))))
(if (<= y2 -6.2e+143)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= y2 -1.4e+95)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y2 -6.7e+16)
t_1
(if (<= y2 -0.0017)
(* i (* x (- (* j y1) (* y c))))
(if (<= y2 -3.2e-17)
(* b (* y0 (- (* z k) (* x j))))
(if (<= y2 -8.8e-77)
(* y2 (* a (- (* t y5) (* x y1))))
(if (<= y2 -1.25e-96)
(* (* y c) (- (* y3 y4) (* x i)))
(if (<= y2 -3.6e-134)
(* b (* t (- (* j y4) (* z a))))
(if (<= y2 -5.5e-193)
(* x (* y (- (* a b) (* c i))))
(if (<= y2 -6.5e-195)
(* i (* k (* z (- y1))))
(if (<= y2 4e-223)
(* b (* x (- (* y a) (* j y0))))
(if (<= y2 3.5e-132)
(* y2 (* y5 (- (* t a) (* k y0))))
(if (<= y2 1.35e+126)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y2 4.5e+181)
(* k (* y5 (- (* y i) (* y0 y2))))
(if (<= y2 6.5e+215)
t_1
(if (<= y2 5.4e+230)
(* a (* t (* y2 y5)))
(*
y2
(*
c
(-
(* x y0)
(* t y4)))))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y1 * (y2 * ((k * y4) - (x * a)));
double tmp;
if (y2 <= -7.2e+227) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y2 <= -6.2e+143) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y2 <= -1.4e+95) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y2 <= -6.7e+16) {
tmp = t_1;
} else if (y2 <= -0.0017) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (y2 <= -3.2e-17) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y2 <= -8.8e-77) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else if (y2 <= -1.25e-96) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (y2 <= -3.6e-134) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (y2 <= -5.5e-193) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y2 <= -6.5e-195) {
tmp = i * (k * (z * -y1));
} else if (y2 <= 4e-223) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y2 <= 3.5e-132) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (y2 <= 1.35e+126) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y2 <= 4.5e+181) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (y2 <= 6.5e+215) {
tmp = t_1;
} else if (y2 <= 5.4e+230) {
tmp = a * (t * (y2 * y5));
} else {
tmp = y2 * (c * ((x * y0) - (t * y4)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y1 * (y2 * ((k * y4) - (x * a)))
if (y2 <= (-7.2d+227)) then
tmp = t * (y2 * ((a * y5) - (c * y4)))
else if (y2 <= (-6.2d+143)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (y2 <= (-1.4d+95)) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y2 <= (-6.7d+16)) then
tmp = t_1
else if (y2 <= (-0.0017d0)) then
tmp = i * (x * ((j * y1) - (y * c)))
else if (y2 <= (-3.2d-17)) then
tmp = b * (y0 * ((z * k) - (x * j)))
else if (y2 <= (-8.8d-77)) then
tmp = y2 * (a * ((t * y5) - (x * y1)))
else if (y2 <= (-1.25d-96)) then
tmp = (y * c) * ((y3 * y4) - (x * i))
else if (y2 <= (-3.6d-134)) then
tmp = b * (t * ((j * y4) - (z * a)))
else if (y2 <= (-5.5d-193)) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y2 <= (-6.5d-195)) then
tmp = i * (k * (z * -y1))
else if (y2 <= 4d-223) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (y2 <= 3.5d-132) then
tmp = y2 * (y5 * ((t * a) - (k * y0)))
else if (y2 <= 1.35d+126) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y2 <= 4.5d+181) then
tmp = k * (y5 * ((y * i) - (y0 * y2)))
else if (y2 <= 6.5d+215) then
tmp = t_1
else if (y2 <= 5.4d+230) then
tmp = a * (t * (y2 * y5))
else
tmp = y2 * (c * ((x * y0) - (t * y4)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y1 * (y2 * ((k * y4) - (x * a)));
double tmp;
if (y2 <= -7.2e+227) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y2 <= -6.2e+143) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y2 <= -1.4e+95) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y2 <= -6.7e+16) {
tmp = t_1;
} else if (y2 <= -0.0017) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (y2 <= -3.2e-17) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y2 <= -8.8e-77) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else if (y2 <= -1.25e-96) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (y2 <= -3.6e-134) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (y2 <= -5.5e-193) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y2 <= -6.5e-195) {
tmp = i * (k * (z * -y1));
} else if (y2 <= 4e-223) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y2 <= 3.5e-132) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (y2 <= 1.35e+126) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y2 <= 4.5e+181) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (y2 <= 6.5e+215) {
tmp = t_1;
} else if (y2 <= 5.4e+230) {
tmp = a * (t * (y2 * y5));
} else {
tmp = y2 * (c * ((x * y0) - (t * y4)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y1 * (y2 * ((k * y4) - (x * a))) tmp = 0 if y2 <= -7.2e+227: tmp = t * (y2 * ((a * y5) - (c * y4))) elif y2 <= -6.2e+143: tmp = c * (y0 * ((x * y2) - (z * y3))) elif y2 <= -1.4e+95: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y2 <= -6.7e+16: tmp = t_1 elif y2 <= -0.0017: tmp = i * (x * ((j * y1) - (y * c))) elif y2 <= -3.2e-17: tmp = b * (y0 * ((z * k) - (x * j))) elif y2 <= -8.8e-77: tmp = y2 * (a * ((t * y5) - (x * y1))) elif y2 <= -1.25e-96: tmp = (y * c) * ((y3 * y4) - (x * i)) elif y2 <= -3.6e-134: tmp = b * (t * ((j * y4) - (z * a))) elif y2 <= -5.5e-193: tmp = x * (y * ((a * b) - (c * i))) elif y2 <= -6.5e-195: tmp = i * (k * (z * -y1)) elif y2 <= 4e-223: tmp = b * (x * ((y * a) - (j * y0))) elif y2 <= 3.5e-132: tmp = y2 * (y5 * ((t * a) - (k * y0))) elif y2 <= 1.35e+126: tmp = k * (z * ((b * y0) - (i * y1))) elif y2 <= 4.5e+181: tmp = k * (y5 * ((y * i) - (y0 * y2))) elif y2 <= 6.5e+215: tmp = t_1 elif y2 <= 5.4e+230: tmp = a * (t * (y2 * y5)) else: tmp = y2 * (c * ((x * y0) - (t * y4))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y1 * Float64(y2 * Float64(Float64(k * y4) - Float64(x * a)))) tmp = 0.0 if (y2 <= -7.2e+227) tmp = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))); elseif (y2 <= -6.2e+143) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (y2 <= -1.4e+95) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y2 <= -6.7e+16) tmp = t_1; elseif (y2 <= -0.0017) tmp = Float64(i * Float64(x * Float64(Float64(j * y1) - Float64(y * c)))); elseif (y2 <= -3.2e-17) tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); elseif (y2 <= -8.8e-77) tmp = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (y2 <= -1.25e-96) tmp = Float64(Float64(y * c) * Float64(Float64(y3 * y4) - Float64(x * i))); elseif (y2 <= -3.6e-134) tmp = Float64(b * Float64(t * Float64(Float64(j * y4) - Float64(z * a)))); elseif (y2 <= -5.5e-193) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y2 <= -6.5e-195) tmp = Float64(i * Float64(k * Float64(z * Float64(-y1)))); elseif (y2 <= 4e-223) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (y2 <= 3.5e-132) tmp = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))); elseif (y2 <= 1.35e+126) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y2 <= 4.5e+181) tmp = Float64(k * Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2)))); elseif (y2 <= 6.5e+215) tmp = t_1; elseif (y2 <= 5.4e+230) tmp = Float64(a * Float64(t * Float64(y2 * y5))); else tmp = Float64(y2 * Float64(c * Float64(Float64(x * y0) - Float64(t * y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y1 * (y2 * ((k * y4) - (x * a))); tmp = 0.0; if (y2 <= -7.2e+227) tmp = t * (y2 * ((a * y5) - (c * y4))); elseif (y2 <= -6.2e+143) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (y2 <= -1.4e+95) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y2 <= -6.7e+16) tmp = t_1; elseif (y2 <= -0.0017) tmp = i * (x * ((j * y1) - (y * c))); elseif (y2 <= -3.2e-17) tmp = b * (y0 * ((z * k) - (x * j))); elseif (y2 <= -8.8e-77) tmp = y2 * (a * ((t * y5) - (x * y1))); elseif (y2 <= -1.25e-96) tmp = (y * c) * ((y3 * y4) - (x * i)); elseif (y2 <= -3.6e-134) tmp = b * (t * ((j * y4) - (z * a))); elseif (y2 <= -5.5e-193) tmp = x * (y * ((a * b) - (c * i))); elseif (y2 <= -6.5e-195) tmp = i * (k * (z * -y1)); elseif (y2 <= 4e-223) tmp = b * (x * ((y * a) - (j * y0))); elseif (y2 <= 3.5e-132) tmp = y2 * (y5 * ((t * a) - (k * y0))); elseif (y2 <= 1.35e+126) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y2 <= 4.5e+181) tmp = k * (y5 * ((y * i) - (y0 * y2))); elseif (y2 <= 6.5e+215) tmp = t_1; elseif (y2 <= 5.4e+230) tmp = a * (t * (y2 * y5)); else tmp = y2 * (c * ((x * y0) - (t * y4))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y1 * N[(y2 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -7.2e+227], N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -6.2e+143], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -1.4e+95], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -6.7e+16], t$95$1, If[LessEqual[y2, -0.0017], N[(i * N[(x * N[(N[(j * y1), $MachinePrecision] - N[(y * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -3.2e-17], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -8.8e-77], N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -1.25e-96], N[(N[(y * c), $MachinePrecision] * N[(N[(y3 * y4), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -3.6e-134], N[(b * N[(t * N[(N[(j * y4), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -5.5e-193], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -6.5e-195], N[(i * N[(k * N[(z * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 4e-223], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 3.5e-132], N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.35e+126], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 4.5e+181], N[(k * N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 6.5e+215], t$95$1, If[LessEqual[y2, 5.4e+230], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(c * N[(N[(x * y0), $MachinePrecision] - N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y1 \cdot \left(y2 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{if}\;y2 \leq -7.2 \cdot 10^{+227}:\\
\;\;\;\;t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq -6.2 \cdot 10^{+143}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;y2 \leq -1.4 \cdot 10^{+95}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq -6.7 \cdot 10^{+16}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq -0.0017:\\
\;\;\;\;i \cdot \left(x \cdot \left(j \cdot y1 - y \cdot c\right)\right)\\
\mathbf{elif}\;y2 \leq -3.2 \cdot 10^{-17}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y2 \leq -8.8 \cdot 10^{-77}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;y2 \leq -1.25 \cdot 10^{-96}:\\
\;\;\;\;\left(y \cdot c\right) \cdot \left(y3 \cdot y4 - x \cdot i\right)\\
\mathbf{elif}\;y2 \leq -3.6 \cdot 10^{-134}:\\
\;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4 - z \cdot a\right)\right)\\
\mathbf{elif}\;y2 \leq -5.5 \cdot 10^{-193}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y2 \leq -6.5 \cdot 10^{-195}:\\
\;\;\;\;i \cdot \left(k \cdot \left(z \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;y2 \leq 4 \cdot 10^{-223}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;y2 \leq 3.5 \cdot 10^{-132}:\\
\;\;\;\;y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
\mathbf{elif}\;y2 \leq 1.35 \cdot 10^{+126}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y2 \leq 4.5 \cdot 10^{+181}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\mathbf{elif}\;y2 \leq 6.5 \cdot 10^{+215}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq 5.4 \cdot 10^{+230}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(c \cdot \left(x \cdot y0 - t \cdot y4\right)\right)\\
\end{array}
\end{array}
if y2 < -7.19999999999999983e227Initial program 5.0%
Taylor expanded in y2 around inf 55.4%
Taylor expanded in t around inf 65.4%
if -7.19999999999999983e227 < y2 < -6.1999999999999998e143Initial program 6.7%
Taylor expanded in y0 around inf 50.0%
+-commutative50.0%
mul-1-neg50.0%
unsub-neg50.0%
*-commutative50.0%
*-commutative50.0%
*-commutative50.0%
*-commutative50.0%
Simplified50.0%
Taylor expanded in c around inf 69.2%
*-commutative69.2%
Simplified69.2%
if -6.1999999999999998e143 < y2 < -1.3999999999999999e95Initial program 0.0%
Taylor expanded in y2 around inf 40.0%
Taylor expanded in y0 around inf 80.9%
+-commutative80.9%
mul-1-neg80.9%
unsub-neg80.9%
Simplified80.9%
if -1.3999999999999999e95 < y2 < -6.7e16 or 4.5e181 < y2 < 6.4999999999999997e215Initial program 28.1%
Taylor expanded in y2 around inf 59.6%
Taylor expanded in y1 around inf 56.9%
+-commutative56.9%
mul-1-neg56.9%
unsub-neg56.9%
Simplified56.9%
if -6.7e16 < y2 < -0.00169999999999999991Initial program 33.3%
Taylor expanded in x around inf 67.3%
Taylor expanded in i around -inf 67.2%
associate-*r*67.2%
neg-mul-167.2%
Simplified67.2%
if -0.00169999999999999991 < y2 < -3.2000000000000002e-17Initial program 0.0%
Taylor expanded in b around inf 60.0%
Taylor expanded in y0 around inf 61.7%
if -3.2000000000000002e-17 < y2 < -8.80000000000000028e-77Initial program 37.0%
Taylor expanded in y2 around inf 55.1%
Taylor expanded in a around -inf 46.4%
mul-1-neg46.4%
Simplified46.4%
if -8.80000000000000028e-77 < y2 < -1.24999999999999999e-96Initial program 50.0%
Taylor expanded in y around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
*-commutative100.0%
mul-1-neg100.0%
Simplified100.0%
Taylor expanded in c around inf 100.0%
associate-*r*100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
Simplified100.0%
if -1.24999999999999999e-96 < y2 < -3.5999999999999999e-134Initial program 28.6%
Taylor expanded in b around inf 29.1%
Taylor expanded in t around inf 57.7%
+-commutative57.7%
mul-1-neg57.7%
unsub-neg57.7%
Simplified57.7%
if -3.5999999999999999e-134 < y2 < -5.50000000000000014e-193Initial program 25.7%
Taylor expanded in x around inf 39.5%
Taylor expanded in y around inf 39.2%
if -5.50000000000000014e-193 < y2 < -6.50000000000000004e-195Initial program 100.0%
Taylor expanded in k around inf 98.4%
+-commutative98.4%
mul-1-neg98.4%
unsub-neg98.4%
*-commutative98.4%
associate-*r*98.4%
neg-mul-198.4%
Simplified98.4%
Taylor expanded in y1 around inf 10.3%
Taylor expanded in y2 around 0 100.0%
associate-*r*100.0%
neg-mul-1100.0%
*-commutative100.0%
Simplified100.0%
if -6.50000000000000004e-195 < y2 < 3.9999999999999999e-223Initial program 46.2%
Taylor expanded in b around inf 57.9%
Taylor expanded in x around inf 47.4%
if 3.9999999999999999e-223 < y2 < 3.5e-132Initial program 40.1%
Taylor expanded in y2 around inf 20.6%
Taylor expanded in y5 around -inf 50.9%
mul-1-neg50.9%
Simplified50.9%
if 3.5e-132 < y2 < 1.35000000000000001e126Initial program 31.9%
Taylor expanded in k around inf 43.1%
+-commutative43.1%
mul-1-neg43.1%
unsub-neg43.1%
*-commutative43.1%
associate-*r*43.1%
neg-mul-143.1%
Simplified43.1%
Taylor expanded in z around inf 47.3%
if 1.35000000000000001e126 < y2 < 4.5e181Initial program 18.2%
Taylor expanded in k around inf 36.4%
+-commutative36.4%
mul-1-neg36.4%
unsub-neg36.4%
*-commutative36.4%
associate-*r*36.4%
neg-mul-136.4%
Simplified36.4%
Taylor expanded in y5 around -inf 55.0%
mul-1-neg55.0%
Simplified55.0%
if 6.4999999999999997e215 < y2 < 5.40000000000000006e230Initial program 0.0%
Taylor expanded in y2 around inf 50.0%
Taylor expanded in t around inf 100.0%
Taylor expanded in a around inf 100.0%
*-commutative100.0%
Simplified100.0%
if 5.40000000000000006e230 < y2 Initial program 19.9%
Taylor expanded in y2 around inf 73.7%
Taylor expanded in c around inf 61.9%
Final simplification56.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y0 (- (* x y2) (* z y3))))
(t_2 (* x (- (* i y1) (* b y0))))
(t_3 (- (* z t) (* x y)))
(t_4 (* i (+ (* c t_3) (* y1 (- (* x j) (* z k))))))
(t_5
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j)))))))
(if (<= y5 -3.55e+280)
(* c (+ (+ t_1 (* i t_3)) (* y4 (- (* y y3) (* t y2)))))
(if (<= y5 -1.7e+192)
(* (* j y0) (- (* y3 y5) (* x b)))
(if (<= y5 -2.55e+160)
(* t (* y2 (- (* a y5) (* c y4))))
(if (<= y5 -4.4e-65)
t_5
(if (<= y5 -8e-150)
t_4
(if (<= y5 -5.5e-188)
(* j t_2)
(if (<= y5 1.2e-304)
(*
y
(+ (* x (- (* a b) (* c i))) (* k (- (* i y5) (* b y4)))))
(if (<= y5 1.6e-267)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y5 2.15e-252)
(* c t_1)
(if (<= y5 9.5e-119)
(*
j
(+
(+
(* t (- (* b y4) (* i y5)))
(* y3 (- (* y0 y5) (* y1 y4))))
t_2))
(if (<= y5 5.2e-90)
t_4
(if (<= y5 4.1e-86)
(* y2 (* (* t y4) (- c)))
(if (<= y5 1.42e-51)
t_5
(if (<= y5 7.5e+50)
(* y0 (* y2 (- (* x c) (* k y5))))
(*
y2
(* a (- (* t y5) (* x y1))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * ((x * y2) - (z * y3));
double t_2 = x * ((i * y1) - (b * y0));
double t_3 = (z * t) - (x * y);
double t_4 = i * ((c * t_3) + (y1 * ((x * j) - (z * k))));
double t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double tmp;
if (y5 <= -3.55e+280) {
tmp = c * ((t_1 + (i * t_3)) + (y4 * ((y * y3) - (t * y2))));
} else if (y5 <= -1.7e+192) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y5 <= -2.55e+160) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y5 <= -4.4e-65) {
tmp = t_5;
} else if (y5 <= -8e-150) {
tmp = t_4;
} else if (y5 <= -5.5e-188) {
tmp = j * t_2;
} else if (y5 <= 1.2e-304) {
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))));
} else if (y5 <= 1.6e-267) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y5 <= 2.15e-252) {
tmp = c * t_1;
} else if (y5 <= 9.5e-119) {
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_2);
} else if (y5 <= 5.2e-90) {
tmp = t_4;
} else if (y5 <= 4.1e-86) {
tmp = y2 * ((t * y4) * -c);
} else if (y5 <= 1.42e-51) {
tmp = t_5;
} else if (y5 <= 7.5e+50) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else {
tmp = y2 * (a * ((t * y5) - (x * y1)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
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 = y0 * ((x * y2) - (z * y3))
t_2 = x * ((i * y1) - (b * y0))
t_3 = (z * t) - (x * y)
t_4 = i * ((c * t_3) + (y1 * ((x * j) - (z * k))))
t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
if (y5 <= (-3.55d+280)) then
tmp = c * ((t_1 + (i * t_3)) + (y4 * ((y * y3) - (t * y2))))
else if (y5 <= (-1.7d+192)) then
tmp = (j * y0) * ((y3 * y5) - (x * b))
else if (y5 <= (-2.55d+160)) then
tmp = t * (y2 * ((a * y5) - (c * y4)))
else if (y5 <= (-4.4d-65)) then
tmp = t_5
else if (y5 <= (-8d-150)) then
tmp = t_4
else if (y5 <= (-5.5d-188)) then
tmp = j * t_2
else if (y5 <= 1.2d-304) then
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))))
else if (y5 <= 1.6d-267) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y5 <= 2.15d-252) then
tmp = c * t_1
else if (y5 <= 9.5d-119) then
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_2)
else if (y5 <= 5.2d-90) then
tmp = t_4
else if (y5 <= 4.1d-86) then
tmp = y2 * ((t * y4) * -c)
else if (y5 <= 1.42d-51) then
tmp = t_5
else if (y5 <= 7.5d+50) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else
tmp = y2 * (a * ((t * y5) - (x * y1)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * ((x * y2) - (z * y3));
double t_2 = x * ((i * y1) - (b * y0));
double t_3 = (z * t) - (x * y);
double t_4 = i * ((c * t_3) + (y1 * ((x * j) - (z * k))));
double t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double tmp;
if (y5 <= -3.55e+280) {
tmp = c * ((t_1 + (i * t_3)) + (y4 * ((y * y3) - (t * y2))));
} else if (y5 <= -1.7e+192) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y5 <= -2.55e+160) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y5 <= -4.4e-65) {
tmp = t_5;
} else if (y5 <= -8e-150) {
tmp = t_4;
} else if (y5 <= -5.5e-188) {
tmp = j * t_2;
} else if (y5 <= 1.2e-304) {
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))));
} else if (y5 <= 1.6e-267) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y5 <= 2.15e-252) {
tmp = c * t_1;
} else if (y5 <= 9.5e-119) {
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_2);
} else if (y5 <= 5.2e-90) {
tmp = t_4;
} else if (y5 <= 4.1e-86) {
tmp = y2 * ((t * y4) * -c);
} else if (y5 <= 1.42e-51) {
tmp = t_5;
} else if (y5 <= 7.5e+50) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else {
tmp = y2 * (a * ((t * y5) - (x * y1)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y0 * ((x * y2) - (z * y3)) t_2 = x * ((i * y1) - (b * y0)) t_3 = (z * t) - (x * y) t_4 = i * ((c * t_3) + (y1 * ((x * j) - (z * k)))) t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) tmp = 0 if y5 <= -3.55e+280: tmp = c * ((t_1 + (i * t_3)) + (y4 * ((y * y3) - (t * y2)))) elif y5 <= -1.7e+192: tmp = (j * y0) * ((y3 * y5) - (x * b)) elif y5 <= -2.55e+160: tmp = t * (y2 * ((a * y5) - (c * y4))) elif y5 <= -4.4e-65: tmp = t_5 elif y5 <= -8e-150: tmp = t_4 elif y5 <= -5.5e-188: tmp = j * t_2 elif y5 <= 1.2e-304: tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) elif y5 <= 1.6e-267: tmp = k * (z * ((b * y0) - (i * y1))) elif y5 <= 2.15e-252: tmp = c * t_1 elif y5 <= 9.5e-119: tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_2) elif y5 <= 5.2e-90: tmp = t_4 elif y5 <= 4.1e-86: tmp = y2 * ((t * y4) * -c) elif y5 <= 1.42e-51: tmp = t_5 elif y5 <= 7.5e+50: tmp = y0 * (y2 * ((x * c) - (k * y5))) else: tmp = y2 * (a * ((t * y5) - (x * y1))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) t_2 = Float64(x * Float64(Float64(i * y1) - Float64(b * y0))) t_3 = Float64(Float64(z * t) - Float64(x * y)) t_4 = Float64(i * Float64(Float64(c * t_3) + Float64(y1 * Float64(Float64(x * j) - Float64(z * k))))) t_5 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) tmp = 0.0 if (y5 <= -3.55e+280) tmp = Float64(c * Float64(Float64(t_1 + Float64(i * t_3)) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (y5 <= -1.7e+192) tmp = Float64(Float64(j * y0) * Float64(Float64(y3 * y5) - Float64(x * b))); elseif (y5 <= -2.55e+160) tmp = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))); elseif (y5 <= -4.4e-65) tmp = t_5; elseif (y5 <= -8e-150) tmp = t_4; elseif (y5 <= -5.5e-188) tmp = Float64(j * t_2); elseif (y5 <= 1.2e-304) tmp = Float64(y * Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4))))); elseif (y5 <= 1.6e-267) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y5 <= 2.15e-252) tmp = Float64(c * t_1); elseif (y5 <= 9.5e-119) tmp = Float64(j * Float64(Float64(Float64(t * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + t_2)); elseif (y5 <= 5.2e-90) tmp = t_4; elseif (y5 <= 4.1e-86) tmp = Float64(y2 * Float64(Float64(t * y4) * Float64(-c))); elseif (y5 <= 1.42e-51) tmp = t_5; elseif (y5 <= 7.5e+50) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); else tmp = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y0 * ((x * y2) - (z * y3)); t_2 = x * ((i * y1) - (b * y0)); t_3 = (z * t) - (x * y); t_4 = i * ((c * t_3) + (y1 * ((x * j) - (z * k)))); t_5 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); tmp = 0.0; if (y5 <= -3.55e+280) tmp = c * ((t_1 + (i * t_3)) + (y4 * ((y * y3) - (t * y2)))); elseif (y5 <= -1.7e+192) tmp = (j * y0) * ((y3 * y5) - (x * b)); elseif (y5 <= -2.55e+160) tmp = t * (y2 * ((a * y5) - (c * y4))); elseif (y5 <= -4.4e-65) tmp = t_5; elseif (y5 <= -8e-150) tmp = t_4; elseif (y5 <= -5.5e-188) tmp = j * t_2; elseif (y5 <= 1.2e-304) tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))); elseif (y5 <= 1.6e-267) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y5 <= 2.15e-252) tmp = c * t_1; elseif (y5 <= 9.5e-119) tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + t_2); elseif (y5 <= 5.2e-90) tmp = t_4; elseif (y5 <= 4.1e-86) tmp = y2 * ((t * y4) * -c); elseif (y5 <= 1.42e-51) tmp = t_5; elseif (y5 <= 7.5e+50) tmp = y0 * (y2 * ((x * c) - (k * y5))); else tmp = y2 * (a * ((t * y5) - (x * y1))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(i * N[(N[(c * t$95$3), $MachinePrecision] + N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -3.55e+280], N[(c * N[(N[(t$95$1 + N[(i * t$95$3), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.7e+192], N[(N[(j * y0), $MachinePrecision] * N[(N[(y3 * y5), $MachinePrecision] - N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -2.55e+160], N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -4.4e-65], t$95$5, If[LessEqual[y5, -8e-150], t$95$4, If[LessEqual[y5, -5.5e-188], N[(j * t$95$2), $MachinePrecision], If[LessEqual[y5, 1.2e-304], N[(y * N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.6e-267], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.15e-252], N[(c * t$95$1), $MachinePrecision], If[LessEqual[y5, 9.5e-119], N[(j * N[(N[(N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 5.2e-90], t$95$4, If[LessEqual[y5, 4.1e-86], N[(y2 * N[(N[(t * y4), $MachinePrecision] * (-c)), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.42e-51], t$95$5, If[LessEqual[y5, 7.5e+50], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\\
t_2 := x \cdot \left(i \cdot y1 - b \cdot y0\right)\\
t_3 := z \cdot t - x \cdot y\\
t_4 := i \cdot \left(c \cdot t\_3 + y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
t_5 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{if}\;y5 \leq -3.55 \cdot 10^{+280}:\\
\;\;\;\;c \cdot \left(\left(t\_1 + i \cdot t\_3\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y5 \leq -1.7 \cdot 10^{+192}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5 - x \cdot b\right)\\
\mathbf{elif}\;y5 \leq -2.55 \cdot 10^{+160}:\\
\;\;\;\;t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq -4.4 \cdot 10^{-65}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq -8 \cdot 10^{-150}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y5 \leq -5.5 \cdot 10^{-188}:\\
\;\;\;\;j \cdot t\_2\\
\mathbf{elif}\;y5 \leq 1.2 \cdot 10^{-304}:\\
\;\;\;\;y \cdot \left(x \cdot \left(a \cdot b - c \cdot i\right) + k \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 1.6 \cdot 10^{-267}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y5 \leq 2.15 \cdot 10^{-252}:\\
\;\;\;\;c \cdot t\_1\\
\mathbf{elif}\;y5 \leq 9.5 \cdot 10^{-119}:\\
\;\;\;\;j \cdot \left(\left(t \cdot \left(b \cdot y4 - i \cdot y5\right) + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + t\_2\right)\\
\mathbf{elif}\;y5 \leq 5.2 \cdot 10^{-90}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y5 \leq 4.1 \cdot 10^{-86}:\\
\;\;\;\;y2 \cdot \left(\left(t \cdot y4\right) \cdot \left(-c\right)\right)\\
\mathbf{elif}\;y5 \leq 1.42 \cdot 10^{-51}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq 7.5 \cdot 10^{+50}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\end{array}
\end{array}
if y5 < -3.55000000000000004e280Initial program 49.7%
Taylor expanded in c around inf 84.1%
+-commutative84.1%
mul-1-neg84.1%
unsub-neg84.1%
*-commutative84.1%
*-commutative84.1%
*-commutative84.1%
*-commutative84.1%
Simplified84.1%
if -3.55000000000000004e280 < y5 < -1.69999999999999998e192Initial program 14.9%
Taylor expanded in y0 around inf 43.4%
+-commutative43.4%
mul-1-neg43.4%
unsub-neg43.4%
*-commutative43.4%
*-commutative43.4%
*-commutative43.4%
*-commutative43.4%
Simplified43.4%
Taylor expanded in j around -inf 58.4%
associate-*r*58.9%
+-commutative58.9%
mul-1-neg58.9%
unsub-neg58.9%
*-commutative58.9%
Simplified58.9%
if -1.69999999999999998e192 < y5 < -2.5500000000000001e160Initial program 14.3%
Taylor expanded in y2 around inf 71.4%
Taylor expanded in t around inf 86.5%
if -2.5500000000000001e160 < y5 < -4.40000000000000042e-65 or 4.09999999999999979e-86 < y5 < 1.42000000000000013e-51Initial program 35.3%
Taylor expanded in b around inf 52.6%
if -4.40000000000000042e-65 < y5 < -8.00000000000000005e-150 or 9.5000000000000002e-119 < y5 < 5.2000000000000001e-90Initial program 40.0%
Taylor expanded in i around -inf 60.6%
Taylor expanded in y5 around 0 70.6%
if -8.00000000000000005e-150 < y5 < -5.5000000000000002e-188Initial program 18.9%
Taylor expanded in x around inf 29.1%
Taylor expanded in j around inf 47.2%
if -5.5000000000000002e-188 < y5 < 1.2e-304Initial program 15.8%
Taylor expanded in y around inf 58.5%
+-commutative58.5%
mul-1-neg58.5%
unsub-neg58.5%
*-commutative58.5%
*-commutative58.5%
mul-1-neg58.5%
Simplified58.5%
Taylor expanded in y3 around 0 58.5%
if 1.2e-304 < y5 < 1.59999999999999993e-267Initial program 38.5%
Taylor expanded in k around inf 61.6%
+-commutative61.6%
mul-1-neg61.6%
unsub-neg61.6%
*-commutative61.6%
associate-*r*61.6%
neg-mul-161.6%
Simplified61.6%
Taylor expanded in z around inf 47.2%
if 1.59999999999999993e-267 < y5 < 2.14999999999999996e-252Initial program 50.0%
Taylor expanded in y0 around inf 50.8%
+-commutative50.8%
mul-1-neg50.8%
unsub-neg50.8%
*-commutative50.8%
*-commutative50.8%
*-commutative50.8%
*-commutative50.8%
Simplified50.8%
Taylor expanded in c around inf 75.8%
*-commutative75.8%
Simplified75.8%
if 2.14999999999999996e-252 < y5 < 9.5000000000000002e-119Initial program 32.7%
Taylor expanded in j around inf 58.0%
+-commutative58.0%
mul-1-neg58.0%
unsub-neg58.0%
*-commutative58.0%
Simplified58.0%
if 5.2000000000000001e-90 < y5 < 4.09999999999999979e-86Initial program 50.0%
Taylor expanded in y2 around inf 100.0%
Taylor expanded in t around inf 100.0%
Taylor expanded in a around 0 100.0%
associate-*r*100.0%
neg-mul-1100.0%
*-commutative100.0%
Simplified100.0%
if 1.42000000000000013e-51 < y5 < 7.4999999999999999e50Initial program 29.3%
Taylor expanded in y2 around inf 59.9%
Taylor expanded in y0 around inf 71.0%
+-commutative71.0%
mul-1-neg71.0%
unsub-neg71.0%
Simplified71.0%
if 7.4999999999999999e50 < y5 Initial program 18.6%
Taylor expanded in y2 around inf 42.9%
Taylor expanded in a around -inf 51.0%
mul-1-neg51.0%
Simplified51.0%
Final simplification58.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= b -1.02e+266)
(* x (* y0 (- (* c y2) (* b j))))
(if (<= b -2.9e+125)
(* b (* x (- (* y a) (* j y0))))
(if (<= b -170000000000.0)
(* j (* x (- (* i y1) (* b y0))))
(if (<= b -3.15e-103)
(* (* y c) (- (* y3 y4) (* x i)))
(if (<= b -2e-121)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= b -8.5e-167)
(* j (* x (* i y1)))
(if (<= b -6.2e-227)
(* y2 (* c (- (* x y0) (* t y4))))
(if (<= b -1.75e-273)
(* t (* y2 (- (* a y5) (* c y4))))
(if (<= b -1.3e-282)
(* y5 (* i (- (* y k) (* t j))))
(if (<= b -1.2e-283)
(* y1 (* (* x a) (- y2)))
(if (<= b 1.6e-306)
(* i (* k (- (* y y5) (* z y1))))
(if (<= b 1.8e-266)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= b 4.2e-243)
(* y0 (* y3 (- (* j y5) (* z c))))
(if (<= b 2.95e-214)
(* b (* t (- (* j y4) (* z a))))
(if (<= b 1.02e-53)
(* y2 (* y5 (- (* t a) (* k y0))))
(if (<= b 1.02e+61)
(* k (* y1 (* y4 (- y2 (/ (* z i) y4)))))
(*
b
(* y0 (- (* z k) (* x j)))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (b <= -1.02e+266) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (b <= -2.9e+125) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (b <= -170000000000.0) {
tmp = j * (x * ((i * y1) - (b * y0)));
} else if (b <= -3.15e-103) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (b <= -2e-121) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (b <= -8.5e-167) {
tmp = j * (x * (i * y1));
} else if (b <= -6.2e-227) {
tmp = y2 * (c * ((x * y0) - (t * y4)));
} else if (b <= -1.75e-273) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (b <= -1.3e-282) {
tmp = y5 * (i * ((y * k) - (t * j)));
} else if (b <= -1.2e-283) {
tmp = y1 * ((x * a) * -y2);
} else if (b <= 1.6e-306) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (b <= 1.8e-266) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (b <= 4.2e-243) {
tmp = y0 * (y3 * ((j * y5) - (z * c)));
} else if (b <= 2.95e-214) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (b <= 1.02e-53) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (b <= 1.02e+61) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else {
tmp = b * (y0 * ((z * k) - (x * j)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (b <= (-1.02d+266)) then
tmp = x * (y0 * ((c * y2) - (b * j)))
else if (b <= (-2.9d+125)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (b <= (-170000000000.0d0)) then
tmp = j * (x * ((i * y1) - (b * y0)))
else if (b <= (-3.15d-103)) then
tmp = (y * c) * ((y3 * y4) - (x * i))
else if (b <= (-2d-121)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (b <= (-8.5d-167)) then
tmp = j * (x * (i * y1))
else if (b <= (-6.2d-227)) then
tmp = y2 * (c * ((x * y0) - (t * y4)))
else if (b <= (-1.75d-273)) then
tmp = t * (y2 * ((a * y5) - (c * y4)))
else if (b <= (-1.3d-282)) then
tmp = y5 * (i * ((y * k) - (t * j)))
else if (b <= (-1.2d-283)) then
tmp = y1 * ((x * a) * -y2)
else if (b <= 1.6d-306) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (b <= 1.8d-266) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (b <= 4.2d-243) then
tmp = y0 * (y3 * ((j * y5) - (z * c)))
else if (b <= 2.95d-214) then
tmp = b * (t * ((j * y4) - (z * a)))
else if (b <= 1.02d-53) then
tmp = y2 * (y5 * ((t * a) - (k * y0)))
else if (b <= 1.02d+61) then
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))))
else
tmp = b * (y0 * ((z * k) - (x * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (b <= -1.02e+266) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (b <= -2.9e+125) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (b <= -170000000000.0) {
tmp = j * (x * ((i * y1) - (b * y0)));
} else if (b <= -3.15e-103) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (b <= -2e-121) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (b <= -8.5e-167) {
tmp = j * (x * (i * y1));
} else if (b <= -6.2e-227) {
tmp = y2 * (c * ((x * y0) - (t * y4)));
} else if (b <= -1.75e-273) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (b <= -1.3e-282) {
tmp = y5 * (i * ((y * k) - (t * j)));
} else if (b <= -1.2e-283) {
tmp = y1 * ((x * a) * -y2);
} else if (b <= 1.6e-306) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (b <= 1.8e-266) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (b <= 4.2e-243) {
tmp = y0 * (y3 * ((j * y5) - (z * c)));
} else if (b <= 2.95e-214) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (b <= 1.02e-53) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (b <= 1.02e+61) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else {
tmp = b * (y0 * ((z * k) - (x * j)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if b <= -1.02e+266: tmp = x * (y0 * ((c * y2) - (b * j))) elif b <= -2.9e+125: tmp = b * (x * ((y * a) - (j * y0))) elif b <= -170000000000.0: tmp = j * (x * ((i * y1) - (b * y0))) elif b <= -3.15e-103: tmp = (y * c) * ((y3 * y4) - (x * i)) elif b <= -2e-121: tmp = c * (y0 * ((x * y2) - (z * y3))) elif b <= -8.5e-167: tmp = j * (x * (i * y1)) elif b <= -6.2e-227: tmp = y2 * (c * ((x * y0) - (t * y4))) elif b <= -1.75e-273: tmp = t * (y2 * ((a * y5) - (c * y4))) elif b <= -1.3e-282: tmp = y5 * (i * ((y * k) - (t * j))) elif b <= -1.2e-283: tmp = y1 * ((x * a) * -y2) elif b <= 1.6e-306: tmp = i * (k * ((y * y5) - (z * y1))) elif b <= 1.8e-266: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif b <= 4.2e-243: tmp = y0 * (y3 * ((j * y5) - (z * c))) elif b <= 2.95e-214: tmp = b * (t * ((j * y4) - (z * a))) elif b <= 1.02e-53: tmp = y2 * (y5 * ((t * a) - (k * y0))) elif b <= 1.02e+61: tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))) else: tmp = b * (y0 * ((z * k) - (x * j))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (b <= -1.02e+266) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); elseif (b <= -2.9e+125) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (b <= -170000000000.0) tmp = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))); elseif (b <= -3.15e-103) tmp = Float64(Float64(y * c) * Float64(Float64(y3 * y4) - Float64(x * i))); elseif (b <= -2e-121) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (b <= -8.5e-167) tmp = Float64(j * Float64(x * Float64(i * y1))); elseif (b <= -6.2e-227) tmp = Float64(y2 * Float64(c * Float64(Float64(x * y0) - Float64(t * y4)))); elseif (b <= -1.75e-273) tmp = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))); elseif (b <= -1.3e-282) tmp = Float64(y5 * Float64(i * Float64(Float64(y * k) - Float64(t * j)))); elseif (b <= -1.2e-283) tmp = Float64(y1 * Float64(Float64(x * a) * Float64(-y2))); elseif (b <= 1.6e-306) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (b <= 1.8e-266) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (b <= 4.2e-243) tmp = Float64(y0 * Float64(y3 * Float64(Float64(j * y5) - Float64(z * c)))); elseif (b <= 2.95e-214) tmp = Float64(b * Float64(t * Float64(Float64(j * y4) - Float64(z * a)))); elseif (b <= 1.02e-53) tmp = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))); elseif (b <= 1.02e+61) tmp = Float64(k * Float64(y1 * Float64(y4 * Float64(y2 - Float64(Float64(z * i) / y4))))); else tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (b <= -1.02e+266) tmp = x * (y0 * ((c * y2) - (b * j))); elseif (b <= -2.9e+125) tmp = b * (x * ((y * a) - (j * y0))); elseif (b <= -170000000000.0) tmp = j * (x * ((i * y1) - (b * y0))); elseif (b <= -3.15e-103) tmp = (y * c) * ((y3 * y4) - (x * i)); elseif (b <= -2e-121) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (b <= -8.5e-167) tmp = j * (x * (i * y1)); elseif (b <= -6.2e-227) tmp = y2 * (c * ((x * y0) - (t * y4))); elseif (b <= -1.75e-273) tmp = t * (y2 * ((a * y5) - (c * y4))); elseif (b <= -1.3e-282) tmp = y5 * (i * ((y * k) - (t * j))); elseif (b <= -1.2e-283) tmp = y1 * ((x * a) * -y2); elseif (b <= 1.6e-306) tmp = i * (k * ((y * y5) - (z * y1))); elseif (b <= 1.8e-266) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (b <= 4.2e-243) tmp = y0 * (y3 * ((j * y5) - (z * c))); elseif (b <= 2.95e-214) tmp = b * (t * ((j * y4) - (z * a))); elseif (b <= 1.02e-53) tmp = y2 * (y5 * ((t * a) - (k * y0))); elseif (b <= 1.02e+61) tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))); else tmp = b * (y0 * ((z * k) - (x * j))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[b, -1.02e+266], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2.9e+125], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -170000000000.0], N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -3.15e-103], N[(N[(y * c), $MachinePrecision] * N[(N[(y3 * y4), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2e-121], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -8.5e-167], N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -6.2e-227], N[(y2 * N[(c * N[(N[(x * y0), $MachinePrecision] - N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.75e-273], N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.3e-282], N[(y5 * N[(i * N[(N[(y * k), $MachinePrecision] - N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.2e-283], N[(y1 * N[(N[(x * a), $MachinePrecision] * (-y2)), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.6e-306], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.8e-266], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 4.2e-243], N[(y0 * N[(y3 * N[(N[(j * y5), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.95e-214], N[(b * N[(t * N[(N[(j * y4), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.02e-53], N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.02e+61], N[(k * N[(y1 * N[(y4 * N[(y2 - N[(N[(z * i), $MachinePrecision] / y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -1.02 \cdot 10^{+266}:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{elif}\;b \leq -2.9 \cdot 10^{+125}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq -170000000000:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq -3.15 \cdot 10^{-103}:\\
\;\;\;\;\left(y \cdot c\right) \cdot \left(y3 \cdot y4 - x \cdot i\right)\\
\mathbf{elif}\;b \leq -2 \cdot 10^{-121}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;b \leq -8.5 \cdot 10^{-167}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{elif}\;b \leq -6.2 \cdot 10^{-227}:\\
\;\;\;\;y2 \cdot \left(c \cdot \left(x \cdot y0 - t \cdot y4\right)\right)\\
\mathbf{elif}\;b \leq -1.75 \cdot 10^{-273}:\\
\;\;\;\;t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;b \leq -1.3 \cdot 10^{-282}:\\
\;\;\;\;y5 \cdot \left(i \cdot \left(y \cdot k - t \cdot j\right)\right)\\
\mathbf{elif}\;b \leq -1.2 \cdot 10^{-283}:\\
\;\;\;\;y1 \cdot \left(\left(x \cdot a\right) \cdot \left(-y2\right)\right)\\
\mathbf{elif}\;b \leq 1.6 \cdot 10^{-306}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;b \leq 1.8 \cdot 10^{-266}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;b \leq 4.2 \cdot 10^{-243}:\\
\;\;\;\;y0 \cdot \left(y3 \cdot \left(j \cdot y5 - z \cdot c\right)\right)\\
\mathbf{elif}\;b \leq 2.95 \cdot 10^{-214}:\\
\;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4 - z \cdot a\right)\right)\\
\mathbf{elif}\;b \leq 1.02 \cdot 10^{-53}:\\
\;\;\;\;y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq 1.02 \cdot 10^{+61}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y4 \cdot \left(y2 - \frac{z \cdot i}{y4}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\end{array}
\end{array}
if b < -1.02000000000000004e266Initial program 12.5%
Taylor expanded in x around inf 0.3%
Taylor expanded in y0 around inf 75.2%
if -1.02000000000000004e266 < b < -2.89999999999999993e125Initial program 33.2%
Taylor expanded in b around inf 58.9%
Taylor expanded in x around inf 59.3%
if -2.89999999999999993e125 < b < -1.7e11Initial program 19.9%
Taylor expanded in x around inf 52.7%
Taylor expanded in j around inf 45.2%
if -1.7e11 < b < -3.1500000000000002e-103Initial program 33.3%
Taylor expanded in y around inf 38.3%
+-commutative38.3%
mul-1-neg38.3%
unsub-neg38.3%
*-commutative38.3%
*-commutative38.3%
mul-1-neg38.3%
Simplified38.3%
Taylor expanded in c around inf 55.5%
associate-*r*51.5%
+-commutative51.5%
mul-1-neg51.5%
unsub-neg51.5%
*-commutative51.5%
Simplified51.5%
if -3.1500000000000002e-103 < b < -2e-121Initial program 28.6%
Taylor expanded in y0 around inf 71.4%
+-commutative71.4%
mul-1-neg71.4%
unsub-neg71.4%
*-commutative71.4%
*-commutative71.4%
*-commutative71.4%
*-commutative71.4%
Simplified71.4%
Taylor expanded in c around inf 72.0%
*-commutative72.0%
Simplified72.0%
if -2e-121 < b < -8.4999999999999994e-167Initial program 10.1%
Taylor expanded in x around inf 56.2%
Taylor expanded in j around inf 55.6%
Taylor expanded in i around inf 55.6%
if -8.4999999999999994e-167 < b < -6.19999999999999959e-227Initial program 28.6%
Taylor expanded in y2 around inf 45.4%
Taylor expanded in c around inf 45.2%
if -6.19999999999999959e-227 < b < -1.74999999999999996e-273Initial program 30.0%
Taylor expanded in y2 around inf 49.8%
Taylor expanded in t around inf 61.0%
if -1.74999999999999996e-273 < b < -1.30000000000000006e-282Initial program 3.1%
Taylor expanded in y5 around -inf 50.0%
Taylor expanded in i around inf 100.0%
if -1.30000000000000006e-282 < b < -1.2e-283Initial program 49.2%
Taylor expanded in y2 around inf 100.0%
Taylor expanded in y1 around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
Simplified100.0%
Taylor expanded in k around 0 100.0%
mul-1-neg100.0%
distribute-lft-neg-out100.0%
*-commutative100.0%
Simplified100.0%
if -1.2e-283 < b < 1.59999999999999985e-306Initial program 60.0%
Taylor expanded in k around inf 79.7%
+-commutative79.7%
mul-1-neg79.7%
unsub-neg79.7%
*-commutative79.7%
associate-*r*79.7%
neg-mul-179.7%
Simplified79.7%
Taylor expanded in i around -inf 80.3%
+-commutative80.3%
mul-1-neg80.3%
unsub-neg80.3%
Simplified80.3%
if 1.59999999999999985e-306 < b < 1.8e-266Initial program 20.0%
Taylor expanded in y2 around inf 80.0%
Taylor expanded in y0 around inf 81.9%
+-commutative81.9%
mul-1-neg81.9%
unsub-neg81.9%
Simplified81.9%
if 1.8e-266 < b < 4.2000000000000002e-243Initial program 25.0%
Taylor expanded in y3 around -inf 51.0%
Taylor expanded in y0 around inf 75.8%
+-commutative75.8%
mul-1-neg75.8%
unsub-neg75.8%
Simplified75.8%
if 4.2000000000000002e-243 < b < 2.9499999999999999e-214Initial program 16.7%
Taylor expanded in b around inf 16.9%
Taylor expanded in t around inf 67.1%
+-commutative67.1%
mul-1-neg67.1%
unsub-neg67.1%
Simplified67.1%
if 2.9499999999999999e-214 < b < 1.02000000000000002e-53Initial program 36.4%
Taylor expanded in y2 around inf 39.4%
Taylor expanded in y5 around -inf 45.7%
mul-1-neg45.7%
Simplified45.7%
if 1.02000000000000002e-53 < b < 1.01999999999999999e61Initial program 20.0%
Taylor expanded in k around inf 41.7%
+-commutative41.7%
mul-1-neg41.7%
unsub-neg41.7%
*-commutative41.7%
associate-*r*41.7%
neg-mul-141.7%
Simplified41.7%
Taylor expanded in y1 around inf 60.6%
Taylor expanded in y4 around inf 60.6%
mul-1-neg60.6%
unsub-neg60.6%
*-commutative60.6%
Simplified60.6%
if 1.01999999999999999e61 < b Initial program 27.7%
Taylor expanded in b around inf 63.1%
Taylor expanded in y0 around inf 48.5%
Final simplification54.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* x (- (* i y1) (* b y0)))))
(t_2
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j))))))
(t_3 (* a (* x b)))
(t_4 (* k (- (* i y5) (* b y4)))))
(if (<= y5 -8.5e+161)
(* y2 (* y5 (- (* t a) (* k y0))))
(if (<= y5 -1.25e+107)
(* y (+ t_3 t_4))
(if (<= y5 -1.55e-62)
t_2
(if (<= y5 -2.5e-149)
(* i (+ (* c (- (* z t) (* x y))) (* y1 (- (* x j) (* z k)))))
(if (<= y5 -1.9e-187)
t_1
(if (<= y5 1.2e-304)
(* y (+ (* x (- (* a b) (* c i))) t_4))
(if (<= y5 1.3e-304)
(* k (* y1 (* y2 y4)))
(if (<= y5 3.6e-245)
(* y1 (* y3 (- (* z a) (* j y4))))
(if (<= y5 4.2e-172)
t_1
(if (<= y5 1.45e-38)
t_2
(if (<= y5 1.5e-14)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y5 1.55e+95)
t_2
(if (<= y5 3.6e+123)
(* c (* y (+ (/ t_3 c) (- (/ t_4 c) (* x i)))))
(if (<= y5 2.8e+155)
(* y5 (* i (- (* y k) (* t j))))
(if (<= y5 9.2e+255)
(* y2 (* a (- (* t y5) (* x y1))))
(*
y0
(*
y5
(- (* j y3) (* k y2)))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (x * ((i * y1) - (b * y0)));
double t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_3 = a * (x * b);
double t_4 = k * ((i * y5) - (b * y4));
double tmp;
if (y5 <= -8.5e+161) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (y5 <= -1.25e+107) {
tmp = y * (t_3 + t_4);
} else if (y5 <= -1.55e-62) {
tmp = t_2;
} else if (y5 <= -2.5e-149) {
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
} else if (y5 <= -1.9e-187) {
tmp = t_1;
} else if (y5 <= 1.2e-304) {
tmp = y * ((x * ((a * b) - (c * i))) + t_4);
} else if (y5 <= 1.3e-304) {
tmp = k * (y1 * (y2 * y4));
} else if (y5 <= 3.6e-245) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else if (y5 <= 4.2e-172) {
tmp = t_1;
} else if (y5 <= 1.45e-38) {
tmp = t_2;
} else if (y5 <= 1.5e-14) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y5 <= 1.55e+95) {
tmp = t_2;
} else if (y5 <= 3.6e+123) {
tmp = c * (y * ((t_3 / c) + ((t_4 / c) - (x * i))));
} else if (y5 <= 2.8e+155) {
tmp = y5 * (i * ((y * k) - (t * j)));
} else if (y5 <= 9.2e+255) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else {
tmp = y0 * (y5 * ((j * y3) - (k * y2)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = j * (x * ((i * y1) - (b * y0)))
t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
t_3 = a * (x * b)
t_4 = k * ((i * y5) - (b * y4))
if (y5 <= (-8.5d+161)) then
tmp = y2 * (y5 * ((t * a) - (k * y0)))
else if (y5 <= (-1.25d+107)) then
tmp = y * (t_3 + t_4)
else if (y5 <= (-1.55d-62)) then
tmp = t_2
else if (y5 <= (-2.5d-149)) then
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))))
else if (y5 <= (-1.9d-187)) then
tmp = t_1
else if (y5 <= 1.2d-304) then
tmp = y * ((x * ((a * b) - (c * i))) + t_4)
else if (y5 <= 1.3d-304) then
tmp = k * (y1 * (y2 * y4))
else if (y5 <= 3.6d-245) then
tmp = y1 * (y3 * ((z * a) - (j * y4)))
else if (y5 <= 4.2d-172) then
tmp = t_1
else if (y5 <= 1.45d-38) then
tmp = t_2
else if (y5 <= 1.5d-14) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y5 <= 1.55d+95) then
tmp = t_2
else if (y5 <= 3.6d+123) then
tmp = c * (y * ((t_3 / c) + ((t_4 / c) - (x * i))))
else if (y5 <= 2.8d+155) then
tmp = y5 * (i * ((y * k) - (t * j)))
else if (y5 <= 9.2d+255) then
tmp = y2 * (a * ((t * y5) - (x * y1)))
else
tmp = y0 * (y5 * ((j * y3) - (k * y2)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (x * ((i * y1) - (b * y0)));
double t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_3 = a * (x * b);
double t_4 = k * ((i * y5) - (b * y4));
double tmp;
if (y5 <= -8.5e+161) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (y5 <= -1.25e+107) {
tmp = y * (t_3 + t_4);
} else if (y5 <= -1.55e-62) {
tmp = t_2;
} else if (y5 <= -2.5e-149) {
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
} else if (y5 <= -1.9e-187) {
tmp = t_1;
} else if (y5 <= 1.2e-304) {
tmp = y * ((x * ((a * b) - (c * i))) + t_4);
} else if (y5 <= 1.3e-304) {
tmp = k * (y1 * (y2 * y4));
} else if (y5 <= 3.6e-245) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else if (y5 <= 4.2e-172) {
tmp = t_1;
} else if (y5 <= 1.45e-38) {
tmp = t_2;
} else if (y5 <= 1.5e-14) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y5 <= 1.55e+95) {
tmp = t_2;
} else if (y5 <= 3.6e+123) {
tmp = c * (y * ((t_3 / c) + ((t_4 / c) - (x * i))));
} else if (y5 <= 2.8e+155) {
tmp = y5 * (i * ((y * k) - (t * j)));
} else if (y5 <= 9.2e+255) {
tmp = y2 * (a * ((t * y5) - (x * y1)));
} else {
tmp = y0 * (y5 * ((j * y3) - (k * y2)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (x * ((i * y1) - (b * y0))) t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) t_3 = a * (x * b) t_4 = k * ((i * y5) - (b * y4)) tmp = 0 if y5 <= -8.5e+161: tmp = y2 * (y5 * ((t * a) - (k * y0))) elif y5 <= -1.25e+107: tmp = y * (t_3 + t_4) elif y5 <= -1.55e-62: tmp = t_2 elif y5 <= -2.5e-149: tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))) elif y5 <= -1.9e-187: tmp = t_1 elif y5 <= 1.2e-304: tmp = y * ((x * ((a * b) - (c * i))) + t_4) elif y5 <= 1.3e-304: tmp = k * (y1 * (y2 * y4)) elif y5 <= 3.6e-245: tmp = y1 * (y3 * ((z * a) - (j * y4))) elif y5 <= 4.2e-172: tmp = t_1 elif y5 <= 1.45e-38: tmp = t_2 elif y5 <= 1.5e-14: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y5 <= 1.55e+95: tmp = t_2 elif y5 <= 3.6e+123: tmp = c * (y * ((t_3 / c) + ((t_4 / c) - (x * i)))) elif y5 <= 2.8e+155: tmp = y5 * (i * ((y * k) - (t * j))) elif y5 <= 9.2e+255: tmp = y2 * (a * ((t * y5) - (x * y1))) else: tmp = y0 * (y5 * ((j * y3) - (k * y2))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))) t_2 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) t_3 = Float64(a * Float64(x * b)) t_4 = Float64(k * Float64(Float64(i * y5) - Float64(b * y4))) tmp = 0.0 if (y5 <= -8.5e+161) tmp = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))); elseif (y5 <= -1.25e+107) tmp = Float64(y * Float64(t_3 + t_4)); elseif (y5 <= -1.55e-62) tmp = t_2; elseif (y5 <= -2.5e-149) tmp = Float64(i * Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) + Float64(y1 * Float64(Float64(x * j) - Float64(z * k))))); elseif (y5 <= -1.9e-187) tmp = t_1; elseif (y5 <= 1.2e-304) tmp = Float64(y * Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + t_4)); elseif (y5 <= 1.3e-304) tmp = Float64(k * Float64(y1 * Float64(y2 * y4))); elseif (y5 <= 3.6e-245) tmp = Float64(y1 * Float64(y3 * Float64(Float64(z * a) - Float64(j * y4)))); elseif (y5 <= 4.2e-172) tmp = t_1; elseif (y5 <= 1.45e-38) tmp = t_2; elseif (y5 <= 1.5e-14) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y5 <= 1.55e+95) tmp = t_2; elseif (y5 <= 3.6e+123) tmp = Float64(c * Float64(y * Float64(Float64(t_3 / c) + Float64(Float64(t_4 / c) - Float64(x * i))))); elseif (y5 <= 2.8e+155) tmp = Float64(y5 * Float64(i * Float64(Float64(y * k) - Float64(t * j)))); elseif (y5 <= 9.2e+255) tmp = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))); else tmp = Float64(y0 * Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * (x * ((i * y1) - (b * y0))); t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); t_3 = a * (x * b); t_4 = k * ((i * y5) - (b * y4)); tmp = 0.0; if (y5 <= -8.5e+161) tmp = y2 * (y5 * ((t * a) - (k * y0))); elseif (y5 <= -1.25e+107) tmp = y * (t_3 + t_4); elseif (y5 <= -1.55e-62) tmp = t_2; elseif (y5 <= -2.5e-149) tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))); elseif (y5 <= -1.9e-187) tmp = t_1; elseif (y5 <= 1.2e-304) tmp = y * ((x * ((a * b) - (c * i))) + t_4); elseif (y5 <= 1.3e-304) tmp = k * (y1 * (y2 * y4)); elseif (y5 <= 3.6e-245) tmp = y1 * (y3 * ((z * a) - (j * y4))); elseif (y5 <= 4.2e-172) tmp = t_1; elseif (y5 <= 1.45e-38) tmp = t_2; elseif (y5 <= 1.5e-14) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y5 <= 1.55e+95) tmp = t_2; elseif (y5 <= 3.6e+123) tmp = c * (y * ((t_3 / c) + ((t_4 / c) - (x * i)))); elseif (y5 <= 2.8e+155) tmp = y5 * (i * ((y * k) - (t * j))); elseif (y5 <= 9.2e+255) tmp = y2 * (a * ((t * y5) - (x * y1))); else tmp = y0 * (y5 * ((j * y3) - (k * y2))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -8.5e+161], N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.25e+107], N[(y * N[(t$95$3 + t$95$4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.55e-62], t$95$2, If[LessEqual[y5, -2.5e-149], N[(i * N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.9e-187], t$95$1, If[LessEqual[y5, 1.2e-304], N[(y * N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.3e-304], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 3.6e-245], N[(y1 * N[(y3 * N[(N[(z * a), $MachinePrecision] - N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 4.2e-172], t$95$1, If[LessEqual[y5, 1.45e-38], t$95$2, If[LessEqual[y5, 1.5e-14], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.55e+95], t$95$2, If[LessEqual[y5, 3.6e+123], N[(c * N[(y * N[(N[(t$95$3 / c), $MachinePrecision] + N[(N[(t$95$4 / c), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.8e+155], N[(y5 * N[(i * N[(N[(y * k), $MachinePrecision] - N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 9.2e+255], N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y0 * N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
t_2 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
t_3 := a \cdot \left(x \cdot b\right)\\
t_4 := k \cdot \left(i \cdot y5 - b \cdot y4\right)\\
\mathbf{if}\;y5 \leq -8.5 \cdot 10^{+161}:\\
\;\;\;\;y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
\mathbf{elif}\;y5 \leq -1.25 \cdot 10^{+107}:\\
\;\;\;\;y \cdot \left(t\_3 + t\_4\right)\\
\mathbf{elif}\;y5 \leq -1.55 \cdot 10^{-62}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y5 \leq -2.5 \cdot 10^{-149}:\\
\;\;\;\;i \cdot \left(c \cdot \left(z \cdot t - x \cdot y\right) + y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{elif}\;y5 \leq -1.9 \cdot 10^{-187}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 1.2 \cdot 10^{-304}:\\
\;\;\;\;y \cdot \left(x \cdot \left(a \cdot b - c \cdot i\right) + t\_4\right)\\
\mathbf{elif}\;y5 \leq 1.3 \cdot 10^{-304}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 3.6 \cdot 10^{-245}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(z \cdot a - j \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 4.2 \cdot 10^{-172}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 1.45 \cdot 10^{-38}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y5 \leq 1.5 \cdot 10^{-14}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 1.55 \cdot 10^{+95}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y5 \leq 3.6 \cdot 10^{+123}:\\
\;\;\;\;c \cdot \left(y \cdot \left(\frac{t\_3}{c} + \left(\frac{t\_4}{c} - x \cdot i\right)\right)\right)\\
\mathbf{elif}\;y5 \leq 2.8 \cdot 10^{+155}:\\
\;\;\;\;y5 \cdot \left(i \cdot \left(y \cdot k - t \cdot j\right)\right)\\
\mathbf{elif}\;y5 \leq 9.2 \cdot 10^{+255}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\\
\end{array}
\end{array}
if y5 < -8.50000000000000007e161Initial program 21.6%
Taylor expanded in y2 around inf 46.0%
Taylor expanded in y5 around -inf 58.1%
mul-1-neg58.1%
Simplified58.1%
if -8.50000000000000007e161 < y5 < -1.25e107Initial program 40.6%
Taylor expanded in y around inf 50.1%
+-commutative50.1%
mul-1-neg50.1%
unsub-neg50.1%
*-commutative50.1%
*-commutative50.1%
mul-1-neg50.1%
Simplified50.1%
Taylor expanded in y3 around 0 50.2%
Taylor expanded in c around 0 60.2%
if -1.25e107 < y5 < -1.55e-62 or 4.1999999999999999e-172 < y5 < 1.44999999999999997e-38 or 1.4999999999999999e-14 < y5 < 1.5500000000000001e95Initial program 32.1%
Taylor expanded in b around inf 53.1%
if -1.55e-62 < y5 < -2.49999999999999984e-149Initial program 46.7%
Taylor expanded in i around -inf 60.9%
Taylor expanded in y5 around 0 60.9%
if -2.49999999999999984e-149 < y5 < -1.90000000000000013e-187 or 3.59999999999999999e-245 < y5 < 4.1999999999999999e-172Initial program 24.1%
Taylor expanded in x around inf 31.5%
Taylor expanded in j around inf 44.8%
if -1.90000000000000013e-187 < y5 < 1.2e-304Initial program 15.8%
Taylor expanded in y around inf 58.5%
+-commutative58.5%
mul-1-neg58.5%
unsub-neg58.5%
*-commutative58.5%
*-commutative58.5%
mul-1-neg58.5%
Simplified58.5%
Taylor expanded in y3 around 0 58.5%
if 1.2e-304 < y5 < 1.29999999999999998e-304Initial program 0.0%
Taylor expanded in k around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
associate-*r*100.0%
neg-mul-1100.0%
Simplified100.0%
Taylor expanded in y1 around inf 100.0%
Taylor expanded in y2 around inf 100.0%
if 1.29999999999999998e-304 < y5 < 3.59999999999999999e-245Initial program 44.4%
Taylor expanded in y3 around -inf 34.7%
Taylor expanded in y1 around inf 51.4%
+-commutative51.4%
mul-1-neg51.4%
unsub-neg51.4%
Simplified51.4%
if 1.44999999999999997e-38 < y5 < 1.4999999999999999e-14Initial program 22.0%
Taylor expanded in y2 around inf 57.5%
Taylor expanded in y0 around inf 78.4%
+-commutative78.4%
mul-1-neg78.4%
unsub-neg78.4%
Simplified78.4%
if 1.5500000000000001e95 < y5 < 3.59999999999999998e123Initial program 24.6%
Taylor expanded in y around inf 27.6%
+-commutative27.6%
mul-1-neg27.6%
unsub-neg27.6%
*-commutative27.6%
*-commutative27.6%
mul-1-neg27.6%
Simplified27.6%
Taylor expanded in c around inf 75.2%
associate-/l*75.2%
distribute-lft-out75.2%
+-commutative75.2%
mul-1-neg75.2%
unsub-neg75.2%
*-commutative75.2%
Simplified75.2%
Taylor expanded in y3 around 0 75.6%
if 3.59999999999999998e123 < y5 < 2.80000000000000016e155Initial program 33.3%
Taylor expanded in y5 around -inf 66.7%
Taylor expanded in i around inf 83.4%
if 2.80000000000000016e155 < y5 < 9.2000000000000001e255Initial program 19.9%
Taylor expanded in y2 around inf 50.2%
Taylor expanded in a around -inf 65.2%
mul-1-neg65.2%
Simplified65.2%
if 9.2000000000000001e255 < y5 Initial program 8.2%
Taylor expanded in y0 around inf 51.3%
+-commutative51.3%
mul-1-neg51.3%
unsub-neg51.3%
*-commutative51.3%
*-commutative51.3%
*-commutative51.3%
*-commutative51.3%
Simplified51.3%
Taylor expanded in y5 around inf 59.3%
Final simplification57.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* x (- (* i y1) (* b y0)))))
(t_2 (* y2 (* a (- (* t y5) (* x y1)))))
(t_3 (* i (+ (* c (- (* z t) (* x y))) (* y1 (- (* x j) (* z k))))))
(t_4 (* k (- (* i y5) (* b y4)))))
(if (<= y5 -1.2e+162)
(* y2 (* y5 (- (* t a) (* k y0))))
(if (<= y5 -7.6e+107)
(* y (+ (* a (* x b)) t_4))
(if (<= y5 -1.42e+99)
(* b (* j (- (* t y4) (* x y0))))
(if (<= y5 -6.8e+44)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y5 -7.6e-150)
t_3
(if (<= y5 -3.3e-185)
t_1
(if (<= y5 -1.52e-214)
(* y1 (* y2 (- (* k y4) (* x a))))
(if (<= y5 9e-305)
t_3
(if (<= y5 6.2e-245)
(* y1 (* y3 (- (* z a) (* j y4))))
(if (<= y5 2.5e-135)
t_1
(if (<= y5 2.6e-78)
t_3
(if (<= y5 8.8e-38)
(* y (+ (* x (- (* a b) (* c i))) t_4))
(if (<= y5 1.62e+27)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y5 2.06e+71)
t_2
(if (<= y5 1.8e+95)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y5 8e+134) 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (x * ((i * y1) - (b * y0)));
double t_2 = y2 * (a * ((t * y5) - (x * y1)));
double t_3 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
double t_4 = k * ((i * y5) - (b * y4));
double tmp;
if (y5 <= -1.2e+162) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (y5 <= -7.6e+107) {
tmp = y * ((a * (x * b)) + t_4);
} else if (y5 <= -1.42e+99) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else if (y5 <= -6.8e+44) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y5 <= -7.6e-150) {
tmp = t_3;
} else if (y5 <= -3.3e-185) {
tmp = t_1;
} else if (y5 <= -1.52e-214) {
tmp = y1 * (y2 * ((k * y4) - (x * a)));
} else if (y5 <= 9e-305) {
tmp = t_3;
} else if (y5 <= 6.2e-245) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else if (y5 <= 2.5e-135) {
tmp = t_1;
} else if (y5 <= 2.6e-78) {
tmp = t_3;
} else if (y5 <= 8.8e-38) {
tmp = y * ((x * ((a * b) - (c * i))) + t_4);
} else if (y5 <= 1.62e+27) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y5 <= 2.06e+71) {
tmp = t_2;
} else if (y5 <= 1.8e+95) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y5 <= 8e+134) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = j * (x * ((i * y1) - (b * y0)))
t_2 = y2 * (a * ((t * y5) - (x * y1)))
t_3 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))))
t_4 = k * ((i * y5) - (b * y4))
if (y5 <= (-1.2d+162)) then
tmp = y2 * (y5 * ((t * a) - (k * y0)))
else if (y5 <= (-7.6d+107)) then
tmp = y * ((a * (x * b)) + t_4)
else if (y5 <= (-1.42d+99)) then
tmp = b * (j * ((t * y4) - (x * y0)))
else if (y5 <= (-6.8d+44)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y5 <= (-7.6d-150)) then
tmp = t_3
else if (y5 <= (-3.3d-185)) then
tmp = t_1
else if (y5 <= (-1.52d-214)) then
tmp = y1 * (y2 * ((k * y4) - (x * a)))
else if (y5 <= 9d-305) then
tmp = t_3
else if (y5 <= 6.2d-245) then
tmp = y1 * (y3 * ((z * a) - (j * y4)))
else if (y5 <= 2.5d-135) then
tmp = t_1
else if (y5 <= 2.6d-78) then
tmp = t_3
else if (y5 <= 8.8d-38) then
tmp = y * ((x * ((a * b) - (c * i))) + t_4)
else if (y5 <= 1.62d+27) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y5 <= 2.06d+71) then
tmp = t_2
else if (y5 <= 1.8d+95) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y5 <= 8d+134) 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (x * ((i * y1) - (b * y0)));
double t_2 = y2 * (a * ((t * y5) - (x * y1)));
double t_3 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
double t_4 = k * ((i * y5) - (b * y4));
double tmp;
if (y5 <= -1.2e+162) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (y5 <= -7.6e+107) {
tmp = y * ((a * (x * b)) + t_4);
} else if (y5 <= -1.42e+99) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else if (y5 <= -6.8e+44) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y5 <= -7.6e-150) {
tmp = t_3;
} else if (y5 <= -3.3e-185) {
tmp = t_1;
} else if (y5 <= -1.52e-214) {
tmp = y1 * (y2 * ((k * y4) - (x * a)));
} else if (y5 <= 9e-305) {
tmp = t_3;
} else if (y5 <= 6.2e-245) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else if (y5 <= 2.5e-135) {
tmp = t_1;
} else if (y5 <= 2.6e-78) {
tmp = t_3;
} else if (y5 <= 8.8e-38) {
tmp = y * ((x * ((a * b) - (c * i))) + t_4);
} else if (y5 <= 1.62e+27) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y5 <= 2.06e+71) {
tmp = t_2;
} else if (y5 <= 1.8e+95) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y5 <= 8e+134) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (x * ((i * y1) - (b * y0))) t_2 = y2 * (a * ((t * y5) - (x * y1))) t_3 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))) t_4 = k * ((i * y5) - (b * y4)) tmp = 0 if y5 <= -1.2e+162: tmp = y2 * (y5 * ((t * a) - (k * y0))) elif y5 <= -7.6e+107: tmp = y * ((a * (x * b)) + t_4) elif y5 <= -1.42e+99: tmp = b * (j * ((t * y4) - (x * y0))) elif y5 <= -6.8e+44: tmp = k * (z * ((b * y0) - (i * y1))) elif y5 <= -7.6e-150: tmp = t_3 elif y5 <= -3.3e-185: tmp = t_1 elif y5 <= -1.52e-214: tmp = y1 * (y2 * ((k * y4) - (x * a))) elif y5 <= 9e-305: tmp = t_3 elif y5 <= 6.2e-245: tmp = y1 * (y3 * ((z * a) - (j * y4))) elif y5 <= 2.5e-135: tmp = t_1 elif y5 <= 2.6e-78: tmp = t_3 elif y5 <= 8.8e-38: tmp = y * ((x * ((a * b) - (c * i))) + t_4) elif y5 <= 1.62e+27: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y5 <= 2.06e+71: tmp = t_2 elif y5 <= 1.8e+95: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y5 <= 8e+134: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))) t_2 = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))) t_3 = Float64(i * Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) + Float64(y1 * Float64(Float64(x * j) - Float64(z * k))))) t_4 = Float64(k * Float64(Float64(i * y5) - Float64(b * y4))) tmp = 0.0 if (y5 <= -1.2e+162) tmp = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))); elseif (y5 <= -7.6e+107) tmp = Float64(y * Float64(Float64(a * Float64(x * b)) + t_4)); elseif (y5 <= -1.42e+99) tmp = Float64(b * Float64(j * Float64(Float64(t * y4) - Float64(x * y0)))); elseif (y5 <= -6.8e+44) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y5 <= -7.6e-150) tmp = t_3; elseif (y5 <= -3.3e-185) tmp = t_1; elseif (y5 <= -1.52e-214) tmp = Float64(y1 * Float64(y2 * Float64(Float64(k * y4) - Float64(x * a)))); elseif (y5 <= 9e-305) tmp = t_3; elseif (y5 <= 6.2e-245) tmp = Float64(y1 * Float64(y3 * Float64(Float64(z * a) - Float64(j * y4)))); elseif (y5 <= 2.5e-135) tmp = t_1; elseif (y5 <= 2.6e-78) tmp = t_3; elseif (y5 <= 8.8e-38) tmp = Float64(y * Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + t_4)); elseif (y5 <= 1.62e+27) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y5 <= 2.06e+71) tmp = t_2; elseif (y5 <= 1.8e+95) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y5 <= 8e+134) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * (x * ((i * y1) - (b * y0))); t_2 = y2 * (a * ((t * y5) - (x * y1))); t_3 = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))); t_4 = k * ((i * y5) - (b * y4)); tmp = 0.0; if (y5 <= -1.2e+162) tmp = y2 * (y5 * ((t * a) - (k * y0))); elseif (y5 <= -7.6e+107) tmp = y * ((a * (x * b)) + t_4); elseif (y5 <= -1.42e+99) tmp = b * (j * ((t * y4) - (x * y0))); elseif (y5 <= -6.8e+44) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y5 <= -7.6e-150) tmp = t_3; elseif (y5 <= -3.3e-185) tmp = t_1; elseif (y5 <= -1.52e-214) tmp = y1 * (y2 * ((k * y4) - (x * a))); elseif (y5 <= 9e-305) tmp = t_3; elseif (y5 <= 6.2e-245) tmp = y1 * (y3 * ((z * a) - (j * y4))); elseif (y5 <= 2.5e-135) tmp = t_1; elseif (y5 <= 2.6e-78) tmp = t_3; elseif (y5 <= 8.8e-38) tmp = y * ((x * ((a * b) - (c * i))) + t_4); elseif (y5 <= 1.62e+27) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y5 <= 2.06e+71) tmp = t_2; elseif (y5 <= 1.8e+95) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y5 <= 8e+134) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(i * N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -1.2e+162], N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -7.6e+107], N[(y * N[(N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision] + t$95$4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.42e+99], N[(b * N[(j * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -6.8e+44], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -7.6e-150], t$95$3, If[LessEqual[y5, -3.3e-185], t$95$1, If[LessEqual[y5, -1.52e-214], N[(y1 * N[(y2 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 9e-305], t$95$3, If[LessEqual[y5, 6.2e-245], N[(y1 * N[(y3 * N[(N[(z * a), $MachinePrecision] - N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.5e-135], t$95$1, If[LessEqual[y5, 2.6e-78], t$95$3, If[LessEqual[y5, 8.8e-38], N[(y * N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.62e+27], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.06e+71], t$95$2, If[LessEqual[y5, 1.8e+95], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 8e+134], t$95$1, t$95$2]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
t_2 := y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
t_3 := i \cdot \left(c \cdot \left(z \cdot t - x \cdot y\right) + y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
t_4 := k \cdot \left(i \cdot y5 - b \cdot y4\right)\\
\mathbf{if}\;y5 \leq -1.2 \cdot 10^{+162}:\\
\;\;\;\;y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
\mathbf{elif}\;y5 \leq -7.6 \cdot 10^{+107}:\\
\;\;\;\;y \cdot \left(a \cdot \left(x \cdot b\right) + t\_4\right)\\
\mathbf{elif}\;y5 \leq -1.42 \cdot 10^{+99}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;y5 \leq -6.8 \cdot 10^{+44}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y5 \leq -7.6 \cdot 10^{-150}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq -3.3 \cdot 10^{-185}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq -1.52 \cdot 10^{-214}:\\
\;\;\;\;y1 \cdot \left(y2 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{elif}\;y5 \leq 9 \cdot 10^{-305}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq 6.2 \cdot 10^{-245}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(z \cdot a - j \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 2.5 \cdot 10^{-135}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 2.6 \cdot 10^{-78}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq 8.8 \cdot 10^{-38}:\\
\;\;\;\;y \cdot \left(x \cdot \left(a \cdot b - c \cdot i\right) + t\_4\right)\\
\mathbf{elif}\;y5 \leq 1.62 \cdot 10^{+27}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 2.06 \cdot 10^{+71}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y5 \leq 1.8 \cdot 10^{+95}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 8 \cdot 10^{+134}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y5 < -1.20000000000000005e162Initial program 21.6%
Taylor expanded in y2 around inf 46.0%
Taylor expanded in y5 around -inf 58.1%
mul-1-neg58.1%
Simplified58.1%
if -1.20000000000000005e162 < y5 < -7.5999999999999996e107Initial program 40.6%
Taylor expanded in y around inf 50.1%
+-commutative50.1%
mul-1-neg50.1%
unsub-neg50.1%
*-commutative50.1%
*-commutative50.1%
mul-1-neg50.1%
Simplified50.1%
Taylor expanded in y3 around 0 50.2%
Taylor expanded in c around 0 60.2%
if -7.5999999999999996e107 < y5 < -1.42000000000000004e99Initial program 0.0%
Taylor expanded in b around inf 100.0%
Taylor expanded in j around inf 100.0%
if -1.42000000000000004e99 < y5 < -6.8e44Initial program 18.2%
Taylor expanded in k around inf 36.4%
+-commutative36.4%
mul-1-neg36.4%
unsub-neg36.4%
*-commutative36.4%
associate-*r*36.4%
neg-mul-136.4%
Simplified36.4%
Taylor expanded in z around inf 64.1%
if -6.8e44 < y5 < -7.5999999999999997e-150 or -1.51999999999999991e-214 < y5 < 9.0000000000000003e-305 or 2.5000000000000001e-135 < y5 < 2.6000000000000001e-78Initial program 32.8%
Taylor expanded in i around -inf 49.0%
Taylor expanded in y5 around 0 50.8%
if -7.5999999999999997e-150 < y5 < -3.2999999999999997e-185 or 6.20000000000000006e-245 < y5 < 2.5000000000000001e-135 or 1.79999999999999989e95 < y5 < 7.99999999999999937e134Initial program 26.2%
Taylor expanded in x around inf 35.1%
Taylor expanded in j around inf 49.9%
if -3.2999999999999997e-185 < y5 < -1.51999999999999991e-214Initial program 33.3%
Taylor expanded in y2 around inf 66.8%
Taylor expanded in y1 around inf 67.4%
+-commutative67.4%
mul-1-neg67.4%
unsub-neg67.4%
Simplified67.4%
if 9.0000000000000003e-305 < y5 < 6.20000000000000006e-245Initial program 42.1%
Taylor expanded in y3 around -inf 32.8%
Taylor expanded in y1 around inf 48.7%
+-commutative48.7%
mul-1-neg48.7%
unsub-neg48.7%
Simplified48.7%
if 2.6000000000000001e-78 < y5 < 8.80000000000000029e-38Initial program 44.4%
Taylor expanded in y around inf 67.1%
+-commutative67.1%
mul-1-neg67.1%
unsub-neg67.1%
*-commutative67.1%
*-commutative67.1%
mul-1-neg67.1%
Simplified67.1%
Taylor expanded in y3 around 0 67.5%
if 8.80000000000000029e-38 < y5 < 1.62000000000000001e27Initial program 27.1%
Taylor expanded in y2 around inf 65.2%
Taylor expanded in y0 around inf 73.2%
+-commutative73.2%
mul-1-neg73.2%
unsub-neg73.2%
Simplified73.2%
if 1.62000000000000001e27 < y5 < 2.0599999999999999e71 or 7.99999999999999937e134 < y5 Initial program 20.6%
Taylor expanded in y2 around inf 45.7%
Taylor expanded in a around -inf 57.8%
mul-1-neg57.8%
Simplified57.8%
if 2.0599999999999999e71 < y5 < 1.79999999999999989e95Initial program 12.5%
Taylor expanded in y around inf 50.0%
+-commutative50.0%
mul-1-neg50.0%
unsub-neg50.0%
*-commutative50.0%
*-commutative50.0%
mul-1-neg50.0%
Simplified50.0%
Taylor expanded in y3 around inf 63.9%
Final simplification56.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* a y5) (* c y4)))
(t_2 (- (* y1 y4) (* y0 y5)))
(t_3 (* t t_1))
(t_4 (- (* b y4) (* i y5)))
(t_5 (- (* z k) (* x j)))
(t_6
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 t_5)))))
(if (<= y3 -7e+174)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y3 -2.6e+70)
(* t (+ (+ (* j t_4) (* z (- (* c i) (* a b)))) (* y2 t_1)))
(if (<= y3 -2.4e-5)
(* k (* y2 t_2))
(if (<= y3 -1.75e-62)
(*
(+
(- (* y3 y4) (* a (* y3 (/ y5 c))))
(- (* i (* k (/ y5 c))) (* x i)))
(* y c))
(if (<= y3 -1.95e-95)
(* k (* y1 (* y4 (- y2 (/ (* z i) y4)))))
(if (<= y3 -6.2e-189)
t_6
(if (<= y3 -2.1e-233)
(*
j
(+
(+ (* t t_4) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0)))))
(if (<= y3 6.5e-233)
t_6
(if (<= y3 3.8e-153)
(* y2 t_3)
(if (<= y3 8.2e+193)
(* y2 (+ (+ (* k t_2) (* x (- (* c y0) (* a y1)))) t_3))
(if (<= y3 4e+209)
(* (* y c) (- (* y3 y4) (* x i)))
(if (<= y3 3.3e+245)
(* (* j y0) (- (* y3 y5) (* x b)))
(*
y0
(+
(+
(* c (- (* x y2) (* z y3)))
(* y5 (- (* j y3) (* k y2))))
(* b t_5)))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (a * y5) - (c * y4);
double t_2 = (y1 * y4) - (y0 * y5);
double t_3 = t * t_1;
double t_4 = (b * y4) - (i * y5);
double t_5 = (z * k) - (x * j);
double t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_5));
double tmp;
if (y3 <= -7e+174) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y3 <= -2.6e+70) {
tmp = t * (((j * t_4) + (z * ((c * i) - (a * b)))) + (y2 * t_1));
} else if (y3 <= -2.4e-5) {
tmp = k * (y2 * t_2);
} else if (y3 <= -1.75e-62) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (y3 <= -1.95e-95) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else if (y3 <= -6.2e-189) {
tmp = t_6;
} else if (y3 <= -2.1e-233) {
tmp = j * (((t * t_4) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
} else if (y3 <= 6.5e-233) {
tmp = t_6;
} else if (y3 <= 3.8e-153) {
tmp = y2 * t_3;
} else if (y3 <= 8.2e+193) {
tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + t_3);
} else if (y3 <= 4e+209) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (y3 <= 3.3e+245) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: tmp
t_1 = (a * y5) - (c * y4)
t_2 = (y1 * y4) - (y0 * y5)
t_3 = t * t_1
t_4 = (b * y4) - (i * y5)
t_5 = (z * k) - (x * j)
t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_5))
if (y3 <= (-7d+174)) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y3 <= (-2.6d+70)) then
tmp = t * (((j * t_4) + (z * ((c * i) - (a * b)))) + (y2 * t_1))
else if (y3 <= (-2.4d-5)) then
tmp = k * (y2 * t_2)
else if (y3 <= (-1.75d-62)) then
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c)
else if (y3 <= (-1.95d-95)) then
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))))
else if (y3 <= (-6.2d-189)) then
tmp = t_6
else if (y3 <= (-2.1d-233)) then
tmp = j * (((t * t_4) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
else if (y3 <= 6.5d-233) then
tmp = t_6
else if (y3 <= 3.8d-153) then
tmp = y2 * t_3
else if (y3 <= 8.2d+193) then
tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + t_3)
else if (y3 <= 4d+209) then
tmp = (y * c) * ((y3 * y4) - (x * i))
else if (y3 <= 3.3d+245) then
tmp = (j * y0) * ((y3 * y5) - (x * b))
else
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (a * y5) - (c * y4);
double t_2 = (y1 * y4) - (y0 * y5);
double t_3 = t * t_1;
double t_4 = (b * y4) - (i * y5);
double t_5 = (z * k) - (x * j);
double t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_5));
double tmp;
if (y3 <= -7e+174) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y3 <= -2.6e+70) {
tmp = t * (((j * t_4) + (z * ((c * i) - (a * b)))) + (y2 * t_1));
} else if (y3 <= -2.4e-5) {
tmp = k * (y2 * t_2);
} else if (y3 <= -1.75e-62) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (y3 <= -1.95e-95) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else if (y3 <= -6.2e-189) {
tmp = t_6;
} else if (y3 <= -2.1e-233) {
tmp = j * (((t * t_4) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
} else if (y3 <= 6.5e-233) {
tmp = t_6;
} else if (y3 <= 3.8e-153) {
tmp = y2 * t_3;
} else if (y3 <= 8.2e+193) {
tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + t_3);
} else if (y3 <= 4e+209) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (y3 <= 3.3e+245) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (a * y5) - (c * y4) t_2 = (y1 * y4) - (y0 * y5) t_3 = t * t_1 t_4 = (b * y4) - (i * y5) t_5 = (z * k) - (x * j) t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_5)) tmp = 0 if y3 <= -7e+174: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y3 <= -2.6e+70: tmp = t * (((j * t_4) + (z * ((c * i) - (a * b)))) + (y2 * t_1)) elif y3 <= -2.4e-5: tmp = k * (y2 * t_2) elif y3 <= -1.75e-62: tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c) elif y3 <= -1.95e-95: tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))) elif y3 <= -6.2e-189: tmp = t_6 elif y3 <= -2.1e-233: tmp = j * (((t * t_4) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) elif y3 <= 6.5e-233: tmp = t_6 elif y3 <= 3.8e-153: tmp = y2 * t_3 elif y3 <= 8.2e+193: tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + t_3) elif y3 <= 4e+209: tmp = (y * c) * ((y3 * y4) - (x * i)) elif y3 <= 3.3e+245: tmp = (j * y0) * ((y3 * y5) - (x * b)) else: tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(a * y5) - Float64(c * y4)) t_2 = Float64(Float64(y1 * y4) - Float64(y0 * y5)) t_3 = Float64(t * t_1) t_4 = Float64(Float64(b * y4) - Float64(i * y5)) t_5 = Float64(Float64(z * k) - Float64(x * j)) t_6 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * t_5))) tmp = 0.0 if (y3 <= -7e+174) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y3 <= -2.6e+70) tmp = Float64(t * Float64(Float64(Float64(j * t_4) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * t_1))); elseif (y3 <= -2.4e-5) tmp = Float64(k * Float64(y2 * t_2)); elseif (y3 <= -1.75e-62) tmp = Float64(Float64(Float64(Float64(y3 * y4) - Float64(a * Float64(y3 * Float64(y5 / c)))) + Float64(Float64(i * Float64(k * Float64(y5 / c))) - Float64(x * i))) * Float64(y * c)); elseif (y3 <= -1.95e-95) tmp = Float64(k * Float64(y1 * Float64(y4 * Float64(y2 - Float64(Float64(z * i) / y4))))); elseif (y3 <= -6.2e-189) tmp = t_6; elseif (y3 <= -2.1e-233) tmp = Float64(j * Float64(Float64(Float64(t * t_4) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * Float64(Float64(i * y1) - Float64(b * y0))))); elseif (y3 <= 6.5e-233) tmp = t_6; elseif (y3 <= 3.8e-153) tmp = Float64(y2 * t_3); elseif (y3 <= 8.2e+193) tmp = Float64(y2 * Float64(Float64(Float64(k * t_2) + Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))) + t_3)); elseif (y3 <= 4e+209) tmp = Float64(Float64(y * c) * Float64(Float64(y3 * y4) - Float64(x * i))); elseif (y3 <= 3.3e+245) tmp = Float64(Float64(j * y0) * Float64(Float64(y3 * y5) - Float64(x * b))); else tmp = Float64(y0 * Float64(Float64(Float64(c * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))) + Float64(b * t_5))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (a * y5) - (c * y4); t_2 = (y1 * y4) - (y0 * y5); t_3 = t * t_1; t_4 = (b * y4) - (i * y5); t_5 = (z * k) - (x * j); t_6 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_5)); tmp = 0.0; if (y3 <= -7e+174) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y3 <= -2.6e+70) tmp = t * (((j * t_4) + (z * ((c * i) - (a * b)))) + (y2 * t_1)); elseif (y3 <= -2.4e-5) tmp = k * (y2 * t_2); elseif (y3 <= -1.75e-62) tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c); elseif (y3 <= -1.95e-95) tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))); elseif (y3 <= -6.2e-189) tmp = t_6; elseif (y3 <= -2.1e-233) tmp = j * (((t * t_4) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); elseif (y3 <= 6.5e-233) tmp = t_6; elseif (y3 <= 3.8e-153) tmp = y2 * t_3; elseif (y3 <= 8.2e+193) tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + t_3); elseif (y3 <= 4e+209) tmp = (y * c) * ((y3 * y4) - (x * i)); elseif (y3 <= 3.3e+245) tmp = (j * y0) * ((y3 * y5) - (x * b)); else tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t * t$95$1), $MachinePrecision]}, Block[{t$95$4 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -7e+174], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -2.6e+70], N[(t * N[(N[(N[(j * t$95$4), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -2.4e-5], N[(k * N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -1.75e-62], N[(N[(N[(N[(y3 * y4), $MachinePrecision] - N[(a * N[(y3 * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(i * N[(k * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(y * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -1.95e-95], N[(k * N[(y1 * N[(y4 * N[(y2 - N[(N[(z * i), $MachinePrecision] / y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -6.2e-189], t$95$6, If[LessEqual[y3, -2.1e-233], N[(j * N[(N[(N[(t * t$95$4), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 6.5e-233], t$95$6, If[LessEqual[y3, 3.8e-153], N[(y2 * t$95$3), $MachinePrecision], If[LessEqual[y3, 8.2e+193], N[(y2 * N[(N[(N[(k * t$95$2), $MachinePrecision] + N[(x * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 4e+209], N[(N[(y * c), $MachinePrecision] * N[(N[(y3 * y4), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 3.3e+245], N[(N[(j * y0), $MachinePrecision] * N[(N[(y3 * y5), $MachinePrecision] - N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y0 * N[(N[(N[(c * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot y5 - c \cdot y4\\
t_2 := y1 \cdot y4 - y0 \cdot y5\\
t_3 := t \cdot t\_1\\
t_4 := b \cdot y4 - i \cdot y5\\
t_5 := z \cdot k - x \cdot j\\
t_6 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot t\_5\right)\\
\mathbf{if}\;y3 \leq -7 \cdot 10^{+174}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq -2.6 \cdot 10^{+70}:\\
\;\;\;\;t \cdot \left(\left(j \cdot t\_4 + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot t\_1\right)\\
\mathbf{elif}\;y3 \leq -2.4 \cdot 10^{-5}:\\
\;\;\;\;k \cdot \left(y2 \cdot t\_2\right)\\
\mathbf{elif}\;y3 \leq -1.75 \cdot 10^{-62}:\\
\;\;\;\;\left(\left(y3 \cdot y4 - a \cdot \left(y3 \cdot \frac{y5}{c}\right)\right) + \left(i \cdot \left(k \cdot \frac{y5}{c}\right) - x \cdot i\right)\right) \cdot \left(y \cdot c\right)\\
\mathbf{elif}\;y3 \leq -1.95 \cdot 10^{-95}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y4 \cdot \left(y2 - \frac{z \cdot i}{y4}\right)\right)\right)\\
\mathbf{elif}\;y3 \leq -6.2 \cdot 10^{-189}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y3 \leq -2.1 \cdot 10^{-233}:\\
\;\;\;\;j \cdot \left(\left(t \cdot t\_4 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;y3 \leq 6.5 \cdot 10^{-233}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y3 \leq 3.8 \cdot 10^{-153}:\\
\;\;\;\;y2 \cdot t\_3\\
\mathbf{elif}\;y3 \leq 8.2 \cdot 10^{+193}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot t\_2 + x \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + t\_3\right)\\
\mathbf{elif}\;y3 \leq 4 \cdot 10^{+209}:\\
\;\;\;\;\left(y \cdot c\right) \cdot \left(y3 \cdot y4 - x \cdot i\right)\\
\mathbf{elif}\;y3 \leq 3.3 \cdot 10^{+245}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5 - x \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;y0 \cdot \left(\left(c \cdot \left(x \cdot y2 - z \cdot y3\right) + y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right) + b \cdot t\_5\right)\\
\end{array}
\end{array}
if y3 < -7.0000000000000003e174Initial program 10.6%
Taylor expanded in y around inf 45.2%
+-commutative45.2%
mul-1-neg45.2%
unsub-neg45.2%
*-commutative45.2%
*-commutative45.2%
mul-1-neg45.2%
Simplified45.2%
Taylor expanded in y3 around inf 52.4%
if -7.0000000000000003e174 < y3 < -2.6e70Initial program 32.2%
Taylor expanded in t around inf 68.8%
+-commutative68.8%
mul-1-neg68.8%
unsub-neg68.8%
*-commutative68.8%
Simplified68.8%
if -2.6e70 < y3 < -2.4000000000000001e-5Initial program 14.7%
Taylor expanded in y2 around inf 51.0%
Taylor expanded in k around inf 58.4%
if -2.4000000000000001e-5 < y3 < -1.7500000000000001e-62Initial program 47.0%
Taylor expanded in y around inf 42.2%
+-commutative42.2%
mul-1-neg42.2%
unsub-neg42.2%
*-commutative42.2%
*-commutative42.2%
mul-1-neg42.2%
Simplified42.2%
Taylor expanded in c around inf 36.9%
associate-/l*36.9%
distribute-lft-out36.9%
+-commutative36.9%
mul-1-neg36.9%
unsub-neg36.9%
*-commutative36.9%
Simplified42.7%
Taylor expanded in b around 0 54.5%
associate-*r*49.0%
*-commutative49.0%
+-commutative49.0%
mul-1-neg49.0%
unsub-neg49.0%
associate-/l*54.5%
associate-/l*54.5%
+-commutative54.5%
mul-1-neg54.5%
unsub-neg54.5%
*-commutative54.5%
associate-/l*54.5%
associate-/l*48.6%
Simplified48.6%
if -1.7500000000000001e-62 < y3 < -1.95e-95Initial program 25.0%
Taylor expanded in k around inf 51.6%
+-commutative51.6%
mul-1-neg51.6%
unsub-neg51.6%
*-commutative51.6%
associate-*r*51.6%
neg-mul-151.6%
Simplified51.6%
Taylor expanded in y1 around inf 63.8%
Taylor expanded in y4 around inf 76.0%
mul-1-neg76.0%
unsub-neg76.0%
*-commutative76.0%
Simplified76.0%
if -1.95e-95 < y3 < -6.2000000000000001e-189 or -2.0999999999999999e-233 < y3 < 6.49999999999999989e-233Initial program 43.8%
Taylor expanded in b around inf 64.7%
if -6.2000000000000001e-189 < y3 < -2.0999999999999999e-233Initial program 23.6%
Taylor expanded in j around inf 69.7%
+-commutative69.7%
mul-1-neg69.7%
unsub-neg69.7%
*-commutative69.7%
Simplified69.7%
if 6.49999999999999989e-233 < y3 < 3.80000000000000023e-153Initial program 14.3%
Taylor expanded in y2 around inf 50.3%
Taylor expanded in t around inf 71.9%
if 3.80000000000000023e-153 < y3 < 8.1999999999999994e193Initial program 25.7%
Taylor expanded in y2 around inf 55.7%
if 8.1999999999999994e193 < y3 < 4.0000000000000003e209Initial program 14.3%
Taylor expanded in y around inf 42.9%
+-commutative42.9%
mul-1-neg42.9%
unsub-neg42.9%
*-commutative42.9%
*-commutative42.9%
mul-1-neg42.9%
Simplified42.9%
Taylor expanded in c around inf 85.7%
associate-*r*85.7%
+-commutative85.7%
mul-1-neg85.7%
unsub-neg85.7%
*-commutative85.7%
Simplified85.7%
if 4.0000000000000003e209 < y3 < 3.30000000000000011e245Initial program 25.0%
Taylor expanded in y0 around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
unsub-neg37.5%
*-commutative37.5%
*-commutative37.5%
*-commutative37.5%
*-commutative37.5%
Simplified37.5%
Taylor expanded in j around -inf 87.5%
associate-*r*87.5%
+-commutative87.5%
mul-1-neg87.5%
unsub-neg87.5%
*-commutative87.5%
Simplified87.5%
if 3.30000000000000011e245 < y3 Initial program 33.3%
Taylor expanded in y0 around inf 89.0%
+-commutative89.0%
mul-1-neg89.0%
unsub-neg89.0%
*-commutative89.0%
*-commutative89.0%
*-commutative89.0%
*-commutative89.0%
Simplified89.0%
Final simplification63.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* t (* y2 (- (* a y5) (* c y4)))))
(t_2 (* b (* x (- (* y a) (* j y0)))))
(t_3 (* y1 (* y2 (- (* k y4) (* x a))))))
(if (<= y -4.4e+209)
(* x (* y (- (* a b) (* c i))))
(if (<= y -9e+120)
(* i (* k (- (* y y5) (* z y1))))
(if (<= y -3.5e+62)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y -3.4e+43)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y -55.0)
t_1
(if (<= y -1.6e-58)
t_3
(if (<= y -8.4e-110)
(* (- b) (* y0 (* x j)))
(if (<= y 4.1e-281)
t_3
(if (<= y 8.5e-159)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y 1.62e-111)
t_1
(if (<= y 8.2e-76)
(* b (* j (- (* t y4) (* x y0))))
(if (<= y 1.2e-21)
t_1
(if (<= y 2.9e+82)
t_2
(if (<= y 1.75e+231)
(* y0 (* y5 (- (* j y3) (* k y2))))
(if (<= y 1.9e+239)
t_2
(*
y
(*
y3
(- (* c y4) (* a y5)))))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = b * (x * ((y * a) - (j * y0)));
double t_3 = y1 * (y2 * ((k * y4) - (x * a)));
double tmp;
if (y <= -4.4e+209) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -9e+120) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -3.5e+62) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y <= -3.4e+43) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y <= -55.0) {
tmp = t_1;
} else if (y <= -1.6e-58) {
tmp = t_3;
} else if (y <= -8.4e-110) {
tmp = -b * (y0 * (x * j));
} else if (y <= 4.1e-281) {
tmp = t_3;
} else if (y <= 8.5e-159) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y <= 1.62e-111) {
tmp = t_1;
} else if (y <= 8.2e-76) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else if (y <= 1.2e-21) {
tmp = t_1;
} else if (y <= 2.9e+82) {
tmp = t_2;
} else if (y <= 1.75e+231) {
tmp = y0 * (y5 * ((j * y3) - (k * y2)));
} else if (y <= 1.9e+239) {
tmp = t_2;
} else {
tmp = y * (y3 * ((c * y4) - (a * y5)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = t * (y2 * ((a * y5) - (c * y4)))
t_2 = b * (x * ((y * a) - (j * y0)))
t_3 = y1 * (y2 * ((k * y4) - (x * a)))
if (y <= (-4.4d+209)) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y <= (-9d+120)) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (y <= (-3.5d+62)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y <= (-3.4d+43)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y <= (-55.0d0)) then
tmp = t_1
else if (y <= (-1.6d-58)) then
tmp = t_3
else if (y <= (-8.4d-110)) then
tmp = -b * (y0 * (x * j))
else if (y <= 4.1d-281) then
tmp = t_3
else if (y <= 8.5d-159) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y <= 1.62d-111) then
tmp = t_1
else if (y <= 8.2d-76) then
tmp = b * (j * ((t * y4) - (x * y0)))
else if (y <= 1.2d-21) then
tmp = t_1
else if (y <= 2.9d+82) then
tmp = t_2
else if (y <= 1.75d+231) then
tmp = y0 * (y5 * ((j * y3) - (k * y2)))
else if (y <= 1.9d+239) then
tmp = t_2
else
tmp = y * (y3 * ((c * y4) - (a * y5)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = b * (x * ((y * a) - (j * y0)));
double t_3 = y1 * (y2 * ((k * y4) - (x * a)));
double tmp;
if (y <= -4.4e+209) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -9e+120) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -3.5e+62) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y <= -3.4e+43) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y <= -55.0) {
tmp = t_1;
} else if (y <= -1.6e-58) {
tmp = t_3;
} else if (y <= -8.4e-110) {
tmp = -b * (y0 * (x * j));
} else if (y <= 4.1e-281) {
tmp = t_3;
} else if (y <= 8.5e-159) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y <= 1.62e-111) {
tmp = t_1;
} else if (y <= 8.2e-76) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else if (y <= 1.2e-21) {
tmp = t_1;
} else if (y <= 2.9e+82) {
tmp = t_2;
} else if (y <= 1.75e+231) {
tmp = y0 * (y5 * ((j * y3) - (k * y2)));
} else if (y <= 1.9e+239) {
tmp = t_2;
} else {
tmp = y * (y3 * ((c * y4) - (a * y5)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = t * (y2 * ((a * y5) - (c * y4))) t_2 = b * (x * ((y * a) - (j * y0))) t_3 = y1 * (y2 * ((k * y4) - (x * a))) tmp = 0 if y <= -4.4e+209: tmp = x * (y * ((a * b) - (c * i))) elif y <= -9e+120: tmp = i * (k * ((y * y5) - (z * y1))) elif y <= -3.5e+62: tmp = b * (y4 * ((t * j) - (y * k))) elif y <= -3.4e+43: tmp = k * (z * ((b * y0) - (i * y1))) elif y <= -55.0: tmp = t_1 elif y <= -1.6e-58: tmp = t_3 elif y <= -8.4e-110: tmp = -b * (y0 * (x * j)) elif y <= 4.1e-281: tmp = t_3 elif y <= 8.5e-159: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y <= 1.62e-111: tmp = t_1 elif y <= 8.2e-76: tmp = b * (j * ((t * y4) - (x * y0))) elif y <= 1.2e-21: tmp = t_1 elif y <= 2.9e+82: tmp = t_2 elif y <= 1.75e+231: tmp = y0 * (y5 * ((j * y3) - (k * y2))) elif y <= 1.9e+239: tmp = t_2 else: tmp = y * (y3 * ((c * y4) - (a * y5))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))) t_2 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))) t_3 = Float64(y1 * Float64(y2 * Float64(Float64(k * y4) - Float64(x * a)))) tmp = 0.0 if (y <= -4.4e+209) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y <= -9e+120) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (y <= -3.5e+62) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y <= -3.4e+43) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y <= -55.0) tmp = t_1; elseif (y <= -1.6e-58) tmp = t_3; elseif (y <= -8.4e-110) tmp = Float64(Float64(-b) * Float64(y0 * Float64(x * j))); elseif (y <= 4.1e-281) tmp = t_3; elseif (y <= 8.5e-159) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y <= 1.62e-111) tmp = t_1; elseif (y <= 8.2e-76) tmp = Float64(b * Float64(j * Float64(Float64(t * y4) - Float64(x * y0)))); elseif (y <= 1.2e-21) tmp = t_1; elseif (y <= 2.9e+82) tmp = t_2; elseif (y <= 1.75e+231) tmp = Float64(y0 * Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))); elseif (y <= 1.9e+239) tmp = t_2; else tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = t * (y2 * ((a * y5) - (c * y4))); t_2 = b * (x * ((y * a) - (j * y0))); t_3 = y1 * (y2 * ((k * y4) - (x * a))); tmp = 0.0; if (y <= -4.4e+209) tmp = x * (y * ((a * b) - (c * i))); elseif (y <= -9e+120) tmp = i * (k * ((y * y5) - (z * y1))); elseif (y <= -3.5e+62) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y <= -3.4e+43) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y <= -55.0) tmp = t_1; elseif (y <= -1.6e-58) tmp = t_3; elseif (y <= -8.4e-110) tmp = -b * (y0 * (x * j)); elseif (y <= 4.1e-281) tmp = t_3; elseif (y <= 8.5e-159) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y <= 1.62e-111) tmp = t_1; elseif (y <= 8.2e-76) tmp = b * (j * ((t * y4) - (x * y0))); elseif (y <= 1.2e-21) tmp = t_1; elseif (y <= 2.9e+82) tmp = t_2; elseif (y <= 1.75e+231) tmp = y0 * (y5 * ((j * y3) - (k * y2))); elseif (y <= 1.9e+239) tmp = t_2; else tmp = y * (y3 * ((c * y4) - (a * y5))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y1 * N[(y2 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -4.4e+209], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -9e+120], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -3.5e+62], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -3.4e+43], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -55.0], t$95$1, If[LessEqual[y, -1.6e-58], t$95$3, If[LessEqual[y, -8.4e-110], N[((-b) * N[(y0 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.1e-281], t$95$3, If[LessEqual[y, 8.5e-159], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.62e-111], t$95$1, If[LessEqual[y, 8.2e-76], N[(b * N[(j * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.2e-21], t$95$1, If[LessEqual[y, 2.9e+82], t$95$2, If[LessEqual[y, 1.75e+231], N[(y0 * N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.9e+239], t$95$2, N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
t_2 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
t_3 := y1 \cdot \left(y2 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{if}\;y \leq -4.4 \cdot 10^{+209}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y \leq -9 \cdot 10^{+120}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -3.5 \cdot 10^{+62}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y \leq -3.4 \cdot 10^{+43}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -55:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -1.6 \cdot 10^{-58}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y \leq -8.4 \cdot 10^{-110}:\\
\;\;\;\;\left(-b\right) \cdot \left(y0 \cdot \left(x \cdot j\right)\right)\\
\mathbf{elif}\;y \leq 4.1 \cdot 10^{-281}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y \leq 8.5 \cdot 10^{-159}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y \leq 1.62 \cdot 10^{-111}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 8.2 \cdot 10^{-76}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;y \leq 1.2 \cdot 10^{-21}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 2.9 \cdot 10^{+82}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 1.75 \cdot 10^{+231}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\\
\mathbf{elif}\;y \leq 1.9 \cdot 10^{+239}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\end{array}
\end{array}
if y < -4.3999999999999997e209Initial program 13.3%
Taylor expanded in x around inf 80.0%
Taylor expanded in y around inf 74.1%
if -4.3999999999999997e209 < y < -8.99999999999999953e120Initial program 21.1%
Taylor expanded in k around inf 52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
associate-*r*52.7%
neg-mul-152.7%
Simplified52.7%
Taylor expanded in i around -inf 58.3%
+-commutative58.3%
mul-1-neg58.3%
unsub-neg58.3%
Simplified58.3%
if -8.99999999999999953e120 < y < -3.49999999999999984e62Initial program 39.8%
Taylor expanded in b around inf 70.0%
Taylor expanded in y4 around inf 50.9%
if -3.49999999999999984e62 < y < -3.40000000000000012e43Initial program 71.4%
Taylor expanded in k around inf 71.2%
+-commutative71.2%
mul-1-neg71.2%
unsub-neg71.2%
*-commutative71.2%
associate-*r*71.2%
neg-mul-171.2%
Simplified71.2%
Taylor expanded in z around inf 86.1%
if -3.40000000000000012e43 < y < -55 or 8.4999999999999998e-159 < y < 1.62000000000000004e-111 or 8.1999999999999996e-76 < y < 1.2e-21Initial program 23.2%
Taylor expanded in y2 around inf 45.7%
Taylor expanded in t around inf 51.2%
if -55 < y < -1.6e-58 or -8.40000000000000008e-110 < y < 4.0999999999999999e-281Initial program 30.9%
Taylor expanded in y2 around inf 42.1%
Taylor expanded in y1 around inf 39.8%
+-commutative39.8%
mul-1-neg39.8%
unsub-neg39.8%
Simplified39.8%
if -1.6e-58 < y < -8.40000000000000008e-110Initial program 22.2%
Taylor expanded in x around inf 55.8%
Taylor expanded in j around inf 56.3%
Taylor expanded in i around 0 56.5%
mul-1-neg56.5%
distribute-rgt-neg-in56.5%
associate-*r*67.2%
distribute-rgt-neg-in67.2%
*-commutative67.2%
Simplified67.2%
if 4.0999999999999999e-281 < y < 8.4999999999999998e-159Initial program 32.0%
Taylor expanded in y2 around inf 59.9%
Taylor expanded in y0 around inf 55.5%
+-commutative55.5%
mul-1-neg55.5%
unsub-neg55.5%
Simplified55.5%
if 1.62000000000000004e-111 < y < 8.1999999999999996e-76Initial program 33.1%
Taylor expanded in b around inf 33.6%
Taylor expanded in j around inf 50.3%
if 1.2e-21 < y < 2.9000000000000001e82 or 1.7499999999999999e231 < y < 1.9000000000000001e239Initial program 27.2%
Taylor expanded in b around inf 54.8%
Taylor expanded in x around inf 50.9%
if 2.9000000000000001e82 < y < 1.7499999999999999e231Initial program 29.6%
Taylor expanded in y0 around inf 52.4%
+-commutative52.4%
mul-1-neg52.4%
unsub-neg52.4%
*-commutative52.4%
*-commutative52.4%
*-commutative52.4%
*-commutative52.4%
Simplified52.4%
Taylor expanded in y5 around inf 45.9%
if 1.9000000000000001e239 < y Initial program 15.1%
Taylor expanded in y around inf 64.2%
+-commutative64.2%
mul-1-neg64.2%
unsub-neg64.2%
*-commutative64.2%
*-commutative64.2%
mul-1-neg64.2%
Simplified64.2%
Taylor expanded in y3 around inf 51.0%
Final simplification51.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (+ (* a (* x b)) (* k (- (* i y5) (* b y4))))))
(t_2 (* y2 (* a (- (* t y5) (* x y1))))))
(if (<= b -3.2e+269)
(* x (* y0 (- (* c y2) (* b j))))
(if (<= b -6.3e+69)
t_1
(if (<= b -68000000000.0)
(* j (* x (- (* i y1) (* b y0))))
(if (<= b -5.8e-116)
(* (* y c) (- (* y3 y4) (* x i)))
(if (<= b -3e-183)
(* x (* y1 (- (* i j) (* a y2))))
(if (<= b -4.2e-204)
(* y5 (* i (- (* y k) (* t j))))
(if (<= b -6.6e-229)
(* k (* y5 (- (* y i) (* y0 y2))))
(if (<= b -5.5e-285)
t_2
(if (<= b 2.25e-172)
(* y5 (* y0 (- (* j y3) (* k y2))))
(if (<= b 1.3e-53)
(* y2 (* y5 (- (* t a) (* k y0))))
(if (<= b 3.9e+55)
(* k (* y1 (* y4 (- y2 (/ (* z i) y4)))))
(if (<= b 5.4e+133)
t_2
(if (<= b 7.4e+176)
t_1
(* b (* y0 (- (* z k) (* x j)))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * ((a * (x * b)) + (k * ((i * y5) - (b * y4))));
double t_2 = y2 * (a * ((t * y5) - (x * y1)));
double tmp;
if (b <= -3.2e+269) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (b <= -6.3e+69) {
tmp = t_1;
} else if (b <= -68000000000.0) {
tmp = j * (x * ((i * y1) - (b * y0)));
} else if (b <= -5.8e-116) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (b <= -3e-183) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (b <= -4.2e-204) {
tmp = y5 * (i * ((y * k) - (t * j)));
} else if (b <= -6.6e-229) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (b <= -5.5e-285) {
tmp = t_2;
} else if (b <= 2.25e-172) {
tmp = y5 * (y0 * ((j * y3) - (k * y2)));
} else if (b <= 1.3e-53) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (b <= 3.9e+55) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else if (b <= 5.4e+133) {
tmp = t_2;
} else if (b <= 7.4e+176) {
tmp = t_1;
} else {
tmp = b * (y0 * ((z * k) - (x * j)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = y * ((a * (x * b)) + (k * ((i * y5) - (b * y4))))
t_2 = y2 * (a * ((t * y5) - (x * y1)))
if (b <= (-3.2d+269)) then
tmp = x * (y0 * ((c * y2) - (b * j)))
else if (b <= (-6.3d+69)) then
tmp = t_1
else if (b <= (-68000000000.0d0)) then
tmp = j * (x * ((i * y1) - (b * y0)))
else if (b <= (-5.8d-116)) then
tmp = (y * c) * ((y3 * y4) - (x * i))
else if (b <= (-3d-183)) then
tmp = x * (y1 * ((i * j) - (a * y2)))
else if (b <= (-4.2d-204)) then
tmp = y5 * (i * ((y * k) - (t * j)))
else if (b <= (-6.6d-229)) then
tmp = k * (y5 * ((y * i) - (y0 * y2)))
else if (b <= (-5.5d-285)) then
tmp = t_2
else if (b <= 2.25d-172) then
tmp = y5 * (y0 * ((j * y3) - (k * y2)))
else if (b <= 1.3d-53) then
tmp = y2 * (y5 * ((t * a) - (k * y0)))
else if (b <= 3.9d+55) then
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))))
else if (b <= 5.4d+133) then
tmp = t_2
else if (b <= 7.4d+176) then
tmp = t_1
else
tmp = b * (y0 * ((z * k) - (x * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * ((a * (x * b)) + (k * ((i * y5) - (b * y4))));
double t_2 = y2 * (a * ((t * y5) - (x * y1)));
double tmp;
if (b <= -3.2e+269) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (b <= -6.3e+69) {
tmp = t_1;
} else if (b <= -68000000000.0) {
tmp = j * (x * ((i * y1) - (b * y0)));
} else if (b <= -5.8e-116) {
tmp = (y * c) * ((y3 * y4) - (x * i));
} else if (b <= -3e-183) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (b <= -4.2e-204) {
tmp = y5 * (i * ((y * k) - (t * j)));
} else if (b <= -6.6e-229) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (b <= -5.5e-285) {
tmp = t_2;
} else if (b <= 2.25e-172) {
tmp = y5 * (y0 * ((j * y3) - (k * y2)));
} else if (b <= 1.3e-53) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (b <= 3.9e+55) {
tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4))));
} else if (b <= 5.4e+133) {
tmp = t_2;
} else if (b <= 7.4e+176) {
tmp = t_1;
} else {
tmp = b * (y0 * ((z * k) - (x * j)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y * ((a * (x * b)) + (k * ((i * y5) - (b * y4)))) t_2 = y2 * (a * ((t * y5) - (x * y1))) tmp = 0 if b <= -3.2e+269: tmp = x * (y0 * ((c * y2) - (b * j))) elif b <= -6.3e+69: tmp = t_1 elif b <= -68000000000.0: tmp = j * (x * ((i * y1) - (b * y0))) elif b <= -5.8e-116: tmp = (y * c) * ((y3 * y4) - (x * i)) elif b <= -3e-183: tmp = x * (y1 * ((i * j) - (a * y2))) elif b <= -4.2e-204: tmp = y5 * (i * ((y * k) - (t * j))) elif b <= -6.6e-229: tmp = k * (y5 * ((y * i) - (y0 * y2))) elif b <= -5.5e-285: tmp = t_2 elif b <= 2.25e-172: tmp = y5 * (y0 * ((j * y3) - (k * y2))) elif b <= 1.3e-53: tmp = y2 * (y5 * ((t * a) - (k * y0))) elif b <= 3.9e+55: tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))) elif b <= 5.4e+133: tmp = t_2 elif b <= 7.4e+176: tmp = t_1 else: tmp = b * (y0 * ((z * k) - (x * j))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y * Float64(Float64(a * Float64(x * b)) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4))))) t_2 = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))) tmp = 0.0 if (b <= -3.2e+269) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); elseif (b <= -6.3e+69) tmp = t_1; elseif (b <= -68000000000.0) tmp = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))); elseif (b <= -5.8e-116) tmp = Float64(Float64(y * c) * Float64(Float64(y3 * y4) - Float64(x * i))); elseif (b <= -3e-183) tmp = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))); elseif (b <= -4.2e-204) tmp = Float64(y5 * Float64(i * Float64(Float64(y * k) - Float64(t * j)))); elseif (b <= -6.6e-229) tmp = Float64(k * Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2)))); elseif (b <= -5.5e-285) tmp = t_2; elseif (b <= 2.25e-172) tmp = Float64(y5 * Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2)))); elseif (b <= 1.3e-53) tmp = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))); elseif (b <= 3.9e+55) tmp = Float64(k * Float64(y1 * Float64(y4 * Float64(y2 - Float64(Float64(z * i) / y4))))); elseif (b <= 5.4e+133) tmp = t_2; elseif (b <= 7.4e+176) tmp = t_1; else tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y * ((a * (x * b)) + (k * ((i * y5) - (b * y4)))); t_2 = y2 * (a * ((t * y5) - (x * y1))); tmp = 0.0; if (b <= -3.2e+269) tmp = x * (y0 * ((c * y2) - (b * j))); elseif (b <= -6.3e+69) tmp = t_1; elseif (b <= -68000000000.0) tmp = j * (x * ((i * y1) - (b * y0))); elseif (b <= -5.8e-116) tmp = (y * c) * ((y3 * y4) - (x * i)); elseif (b <= -3e-183) tmp = x * (y1 * ((i * j) - (a * y2))); elseif (b <= -4.2e-204) tmp = y5 * (i * ((y * k) - (t * j))); elseif (b <= -6.6e-229) tmp = k * (y5 * ((y * i) - (y0 * y2))); elseif (b <= -5.5e-285) tmp = t_2; elseif (b <= 2.25e-172) tmp = y5 * (y0 * ((j * y3) - (k * y2))); elseif (b <= 1.3e-53) tmp = y2 * (y5 * ((t * a) - (k * y0))); elseif (b <= 3.9e+55) tmp = k * (y1 * (y4 * (y2 - ((z * i) / y4)))); elseif (b <= 5.4e+133) tmp = t_2; elseif (b <= 7.4e+176) tmp = t_1; else tmp = b * (y0 * ((z * k) - (x * j))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision] + N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -3.2e+269], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -6.3e+69], t$95$1, If[LessEqual[b, -68000000000.0], N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -5.8e-116], N[(N[(y * c), $MachinePrecision] * N[(N[(y3 * y4), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -3e-183], N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -4.2e-204], N[(y5 * N[(i * N[(N[(y * k), $MachinePrecision] - N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -6.6e-229], N[(k * N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -5.5e-285], t$95$2, If[LessEqual[b, 2.25e-172], N[(y5 * N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.3e-53], N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 3.9e+55], N[(k * N[(y1 * N[(y4 * N[(y2 - N[(N[(z * i), $MachinePrecision] / y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 5.4e+133], t$95$2, If[LessEqual[b, 7.4e+176], t$95$1, N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(a \cdot \left(x \cdot b\right) + k \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
t_2 := y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{if}\;b \leq -3.2 \cdot 10^{+269}:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{elif}\;b \leq -6.3 \cdot 10^{+69}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;b \leq -68000000000:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq -5.8 \cdot 10^{-116}:\\
\;\;\;\;\left(y \cdot c\right) \cdot \left(y3 \cdot y4 - x \cdot i\right)\\
\mathbf{elif}\;b \leq -3 \cdot 10^{-183}:\\
\;\;\;\;x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq -4.2 \cdot 10^{-204}:\\
\;\;\;\;y5 \cdot \left(i \cdot \left(y \cdot k - t \cdot j\right)\right)\\
\mathbf{elif}\;b \leq -6.6 \cdot 10^{-229}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq -5.5 \cdot 10^{-285}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;b \leq 2.25 \cdot 10^{-172}:\\
\;\;\;\;y5 \cdot \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq 1.3 \cdot 10^{-53}:\\
\;\;\;\;y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq 3.9 \cdot 10^{+55}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y4 \cdot \left(y2 - \frac{z \cdot i}{y4}\right)\right)\right)\\
\mathbf{elif}\;b \leq 5.4 \cdot 10^{+133}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;b \leq 7.4 \cdot 10^{+176}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\end{array}
\end{array}
if b < -3.1999999999999999e269Initial program 14.3%
Taylor expanded in x around inf 0.4%
Taylor expanded in y0 around inf 71.7%
if -3.1999999999999999e269 < b < -6.30000000000000007e69 or 5.4000000000000004e133 < b < 7.39999999999999961e176Initial program 32.1%
Taylor expanded in y around inf 49.1%
+-commutative49.1%
mul-1-neg49.1%
unsub-neg49.1%
*-commutative49.1%
*-commutative49.1%
mul-1-neg49.1%
Simplified49.1%
Taylor expanded in y3 around 0 55.7%
Taylor expanded in c around 0 57.8%
if -6.30000000000000007e69 < b < -6.8e10Initial program 17.6%
Taylor expanded in x around inf 47.9%
Taylor expanded in j around inf 47.9%
if -6.8e10 < b < -5.7999999999999996e-116Initial program 32.2%
Taylor expanded in y around inf 42.9%
+-commutative42.9%
mul-1-neg42.9%
unsub-neg42.9%
*-commutative42.9%
*-commutative42.9%
mul-1-neg42.9%
Simplified42.9%
Taylor expanded in c around inf 52.9%
associate-*r*52.9%
+-commutative52.9%
mul-1-neg52.9%
unsub-neg52.9%
*-commutative52.9%
Simplified52.9%
if -5.7999999999999996e-116 < b < -2.9999999999999998e-183Initial program 12.4%
Taylor expanded in x around inf 54.2%
Taylor expanded in y1 around -inf 48.2%
mul-1-neg48.2%
Simplified48.2%
if -2.9999999999999998e-183 < b < -4.20000000000000018e-204Initial program 40.0%
Taylor expanded in y5 around -inf 60.1%
Taylor expanded in i around inf 80.1%
if -4.20000000000000018e-204 < b < -6.60000000000000042e-229Initial program 30.6%
Taylor expanded in k around inf 28.6%
+-commutative28.6%
mul-1-neg28.6%
unsub-neg28.6%
*-commutative28.6%
associate-*r*28.6%
neg-mul-128.6%
Simplified28.6%
Taylor expanded in y5 around -inf 46.4%
mul-1-neg46.4%
Simplified46.4%
if -6.60000000000000042e-229 < b < -5.5000000000000001e-285 or 3.90000000000000027e55 < b < 5.4000000000000004e133Initial program 29.8%
Taylor expanded in y2 around inf 48.3%
Taylor expanded in a around -inf 57.1%
mul-1-neg57.1%
Simplified57.1%
if -5.5000000000000001e-285 < b < 2.25000000000000002e-172Initial program 33.3%
Taylor expanded in y0 around inf 43.9%
+-commutative43.9%
mul-1-neg43.9%
unsub-neg43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
Simplified43.9%
Taylor expanded in y5 around inf 47.7%
Taylor expanded in j around 0 30.6%
*-commutative30.6%
*-commutative30.6%
*-commutative30.6%
associate-*l*30.5%
*-commutative30.5%
associate-*r*34.2%
*-commutative34.2%
associate-*r*34.2%
*-commutative34.2%
associate-*r*34.2%
neg-mul-134.2%
associate-*r*34.2%
*-commutative34.2%
distribute-lft-neg-in34.2%
*-commutative34.2%
*-commutative34.2%
associate-*l*30.5%
*-commutative30.5%
associate-*r*30.5%
*-commutative30.5%
associate-*r*30.5%
*-commutative30.5%
Simplified51.3%
if 2.25000000000000002e-172 < b < 1.29999999999999998e-53Initial program 36.1%
Taylor expanded in y2 around inf 32.8%
Taylor expanded in y5 around -inf 44.3%
mul-1-neg44.3%
Simplified44.3%
if 1.29999999999999998e-53 < b < 3.90000000000000027e55Initial program 20.0%
Taylor expanded in k around inf 41.7%
+-commutative41.7%
mul-1-neg41.7%
unsub-neg41.7%
*-commutative41.7%
associate-*r*41.7%
neg-mul-141.7%
Simplified41.7%
Taylor expanded in y1 around inf 60.6%
Taylor expanded in y4 around inf 60.6%
mul-1-neg60.6%
unsub-neg60.6%
*-commutative60.6%
Simplified60.6%
if 7.39999999999999961e176 < b Initial program 21.4%
Taylor expanded in b around inf 67.9%
Taylor expanded in y0 around inf 58.7%
Final simplification54.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* t (* y2 (- (* a y5) (* c y4)))))
(t_2 (* y1 (* y2 (- (* k y4) (* x a))))))
(if (<= y -2.8e+205)
(* x (* y (- (* a b) (* c i))))
(if (<= y -3e+120)
(* i (* k (- (* y y5) (* z y1))))
(if (<= y -8.2e+62)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y -8.5e+38)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y -52.0)
t_1
(if (<= y -1.6e-58)
t_2
(if (<= y -1.65e-179)
(* j (* x (- (* i y1) (* b y0))))
(if (<= y 1.7e-264)
t_2
(if (<= y 1.06e-190)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y 2.45e-110)
t_1
(if (<= y 5.7e-70)
(* y5 (* y0 (- (* j y3) (* k y2))))
(if (<= y 2.6e+115)
(* x (* y0 (- (* c y2) (* b j))))
(if (<= y 2.6e+222)
(* y (* y3 (- (* c y4) (* a y5))))
(* (* y c) (- (* y3 y4) (* x i))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = y1 * (y2 * ((k * y4) - (x * a)));
double tmp;
if (y <= -2.8e+205) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -3e+120) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -8.2e+62) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y <= -8.5e+38) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y <= -52.0) {
tmp = t_1;
} else if (y <= -1.6e-58) {
tmp = t_2;
} else if (y <= -1.65e-179) {
tmp = j * (x * ((i * y1) - (b * y0)));
} else if (y <= 1.7e-264) {
tmp = t_2;
} else if (y <= 1.06e-190) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y <= 2.45e-110) {
tmp = t_1;
} else if (y <= 5.7e-70) {
tmp = y5 * (y0 * ((j * y3) - (k * y2)));
} else if (y <= 2.6e+115) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (y <= 2.6e+222) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else {
tmp = (y * c) * ((y3 * y4) - (x * i));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = t * (y2 * ((a * y5) - (c * y4)))
t_2 = y1 * (y2 * ((k * y4) - (x * a)))
if (y <= (-2.8d+205)) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y <= (-3d+120)) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (y <= (-8.2d+62)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y <= (-8.5d+38)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y <= (-52.0d0)) then
tmp = t_1
else if (y <= (-1.6d-58)) then
tmp = t_2
else if (y <= (-1.65d-179)) then
tmp = j * (x * ((i * y1) - (b * y0)))
else if (y <= 1.7d-264) then
tmp = t_2
else if (y <= 1.06d-190) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y <= 2.45d-110) then
tmp = t_1
else if (y <= 5.7d-70) then
tmp = y5 * (y0 * ((j * y3) - (k * y2)))
else if (y <= 2.6d+115) then
tmp = x * (y0 * ((c * y2) - (b * j)))
else if (y <= 2.6d+222) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else
tmp = (y * c) * ((y3 * y4) - (x * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = y1 * (y2 * ((k * y4) - (x * a)));
double tmp;
if (y <= -2.8e+205) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -3e+120) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -8.2e+62) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y <= -8.5e+38) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y <= -52.0) {
tmp = t_1;
} else if (y <= -1.6e-58) {
tmp = t_2;
} else if (y <= -1.65e-179) {
tmp = j * (x * ((i * y1) - (b * y0)));
} else if (y <= 1.7e-264) {
tmp = t_2;
} else if (y <= 1.06e-190) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y <= 2.45e-110) {
tmp = t_1;
} else if (y <= 5.7e-70) {
tmp = y5 * (y0 * ((j * y3) - (k * y2)));
} else if (y <= 2.6e+115) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (y <= 2.6e+222) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else {
tmp = (y * c) * ((y3 * y4) - (x * i));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = t * (y2 * ((a * y5) - (c * y4))) t_2 = y1 * (y2 * ((k * y4) - (x * a))) tmp = 0 if y <= -2.8e+205: tmp = x * (y * ((a * b) - (c * i))) elif y <= -3e+120: tmp = i * (k * ((y * y5) - (z * y1))) elif y <= -8.2e+62: tmp = b * (y4 * ((t * j) - (y * k))) elif y <= -8.5e+38: tmp = k * (z * ((b * y0) - (i * y1))) elif y <= -52.0: tmp = t_1 elif y <= -1.6e-58: tmp = t_2 elif y <= -1.65e-179: tmp = j * (x * ((i * y1) - (b * y0))) elif y <= 1.7e-264: tmp = t_2 elif y <= 1.06e-190: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y <= 2.45e-110: tmp = t_1 elif y <= 5.7e-70: tmp = y5 * (y0 * ((j * y3) - (k * y2))) elif y <= 2.6e+115: tmp = x * (y0 * ((c * y2) - (b * j))) elif y <= 2.6e+222: tmp = y * (y3 * ((c * y4) - (a * y5))) else: tmp = (y * c) * ((y3 * y4) - (x * i)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))) t_2 = Float64(y1 * Float64(y2 * Float64(Float64(k * y4) - Float64(x * a)))) tmp = 0.0 if (y <= -2.8e+205) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y <= -3e+120) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (y <= -8.2e+62) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y <= -8.5e+38) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y <= -52.0) tmp = t_1; elseif (y <= -1.6e-58) tmp = t_2; elseif (y <= -1.65e-179) tmp = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))); elseif (y <= 1.7e-264) tmp = t_2; elseif (y <= 1.06e-190) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y <= 2.45e-110) tmp = t_1; elseif (y <= 5.7e-70) tmp = Float64(y5 * Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2)))); elseif (y <= 2.6e+115) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); elseif (y <= 2.6e+222) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); else tmp = Float64(Float64(y * c) * Float64(Float64(y3 * y4) - Float64(x * i))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = t * (y2 * ((a * y5) - (c * y4))); t_2 = y1 * (y2 * ((k * y4) - (x * a))); tmp = 0.0; if (y <= -2.8e+205) tmp = x * (y * ((a * b) - (c * i))); elseif (y <= -3e+120) tmp = i * (k * ((y * y5) - (z * y1))); elseif (y <= -8.2e+62) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y <= -8.5e+38) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y <= -52.0) tmp = t_1; elseif (y <= -1.6e-58) tmp = t_2; elseif (y <= -1.65e-179) tmp = j * (x * ((i * y1) - (b * y0))); elseif (y <= 1.7e-264) tmp = t_2; elseif (y <= 1.06e-190) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y <= 2.45e-110) tmp = t_1; elseif (y <= 5.7e-70) tmp = y5 * (y0 * ((j * y3) - (k * y2))); elseif (y <= 2.6e+115) tmp = x * (y0 * ((c * y2) - (b * j))); elseif (y <= 2.6e+222) tmp = y * (y3 * ((c * y4) - (a * y5))); else tmp = (y * c) * ((y3 * y4) - (x * i)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y1 * N[(y2 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2.8e+205], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -3e+120], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -8.2e+62], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -8.5e+38], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -52.0], t$95$1, If[LessEqual[y, -1.6e-58], t$95$2, If[LessEqual[y, -1.65e-179], N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.7e-264], t$95$2, If[LessEqual[y, 1.06e-190], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.45e-110], t$95$1, If[LessEqual[y, 5.7e-70], N[(y5 * N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.6e+115], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.6e+222], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(y * c), $MachinePrecision] * N[(N[(y3 * y4), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
t_2 := y1 \cdot \left(y2 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{if}\;y \leq -2.8 \cdot 10^{+205}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y \leq -3 \cdot 10^{+120}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -8.2 \cdot 10^{+62}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y \leq -8.5 \cdot 10^{+38}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -52:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -1.6 \cdot 10^{-58}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -1.65 \cdot 10^{-179}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;y \leq 1.7 \cdot 10^{-264}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 1.06 \cdot 10^{-190}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y \leq 2.45 \cdot 10^{-110}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 5.7 \cdot 10^{-70}:\\
\;\;\;\;y5 \cdot \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\\
\mathbf{elif}\;y \leq 2.6 \cdot 10^{+115}:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{elif}\;y \leq 2.6 \cdot 10^{+222}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(y \cdot c\right) \cdot \left(y3 \cdot y4 - x \cdot i\right)\\
\end{array}
\end{array}
if y < -2.79999999999999991e205Initial program 13.3%
Taylor expanded in x around inf 80.0%
Taylor expanded in y around inf 74.1%
if -2.79999999999999991e205 < y < -3e120Initial program 21.1%
Taylor expanded in k around inf 52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
associate-*r*52.7%
neg-mul-152.7%
Simplified52.7%
Taylor expanded in i around -inf 58.3%
+-commutative58.3%
mul-1-neg58.3%
unsub-neg58.3%
Simplified58.3%
if -3e120 < y < -8.19999999999999967e62Initial program 39.8%
Taylor expanded in b around inf 70.0%
Taylor expanded in y4 around inf 50.9%
if -8.19999999999999967e62 < y < -8.4999999999999997e38Initial program 71.4%
Taylor expanded in k around inf 71.2%
+-commutative71.2%
mul-1-neg71.2%
unsub-neg71.2%
*-commutative71.2%
associate-*r*71.2%
neg-mul-171.2%
Simplified71.2%
Taylor expanded in z around inf 86.1%
if -8.4999999999999997e38 < y < -52 or 1.05999999999999997e-190 < y < 2.4499999999999999e-110Initial program 22.7%
Taylor expanded in y2 around inf 41.5%
Taylor expanded in t around inf 45.2%
if -52 < y < -1.6e-58 or -1.6499999999999999e-179 < y < 1.6999999999999999e-264Initial program 35.2%
Taylor expanded in y2 around inf 49.5%
Taylor expanded in y1 around inf 41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
Simplified41.5%
if -1.6e-58 < y < -1.6499999999999999e-179Initial program 25.2%
Taylor expanded in x around inf 36.4%
Taylor expanded in j around inf 41.1%
if 1.6999999999999999e-264 < y < 1.05999999999999997e-190Initial program 23.0%
Taylor expanded in y2 around inf 47.3%
Taylor expanded in y0 around inf 47.1%
+-commutative47.1%
mul-1-neg47.1%
unsub-neg47.1%
Simplified47.1%
if 2.4499999999999999e-110 < y < 5.70000000000000028e-70Initial program 22.0%
Taylor expanded in y0 around inf 45.2%
+-commutative45.2%
mul-1-neg45.2%
unsub-neg45.2%
*-commutative45.2%
*-commutative45.2%
*-commutative45.2%
*-commutative45.2%
Simplified45.2%
Taylor expanded in y5 around inf 45.3%
Taylor expanded in j around 0 45.2%
*-commutative45.2%
*-commutative45.2%
*-commutative45.2%
associate-*l*45.2%
*-commutative45.2%
associate-*r*45.3%
*-commutative45.3%
associate-*r*45.3%
*-commutative45.3%
associate-*r*45.3%
neg-mul-145.3%
associate-*r*45.3%
*-commutative45.3%
distribute-lft-neg-in45.3%
*-commutative45.3%
*-commutative45.3%
associate-*l*24.0%
*-commutative24.0%
associate-*r*24.0%
*-commutative24.0%
associate-*r*24.0%
*-commutative24.0%
Simplified45.7%
if 5.70000000000000028e-70 < y < 2.6e115Initial program 23.8%
Taylor expanded in x around inf 37.5%
Taylor expanded in y0 around inf 50.8%
if 2.6e115 < y < 2.6000000000000001e222Initial program 38.8%
Taylor expanded in y around inf 66.8%
+-commutative66.8%
mul-1-neg66.8%
unsub-neg66.8%
*-commutative66.8%
*-commutative66.8%
mul-1-neg66.8%
Simplified66.8%
Taylor expanded in y3 around inf 44.9%
if 2.6000000000000001e222 < y Initial program 17.3%
Taylor expanded in y around inf 61.0%
+-commutative61.0%
mul-1-neg61.0%
unsub-neg61.0%
*-commutative61.0%
*-commutative61.0%
mul-1-neg61.0%
Simplified61.0%
Taylor expanded in c around inf 51.6%
associate-*r*51.2%
+-commutative51.2%
mul-1-neg51.2%
unsub-neg51.2%
*-commutative51.2%
Simplified51.2%
Final simplification49.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -1e+167)
(* i (+ (* c (- (* z t) (* x y))) (* y1 (- (* x j) (* z k)))))
(if (<= y1 -3.6e+99)
(* x (* y0 (- (* c y2) (* b j))))
(if (<= y1 -5.6e+45)
(* k (* y5 (- (* y i) (* y0 y2))))
(if (<= y1 -1.4e-47)
(* y2 (* y5 (- (* t a) (* k y0))))
(if (<= y1 -4.8e-122)
(* b (* y0 (- (* z k) (* x j))))
(if (<= y1 -4e-151)
(* b (* x (- (* y a) (* j y0))))
(if (<= y1 7.8e-66)
(*
(+
(- (* y3 y4) (* a (* y3 (/ y5 c))))
(- (* i (* k (/ y5 c))) (* x i)))
(* y c))
(if (<= y1 2.1e-27)
(* (* k y0) (- (* z b) (* y2 y5)))
(if (<= y1 4.1e+43)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y1 2.2e+64)
(* x (* y1 (- (* i j) (* a y2))))
(if (<= y1 4.2e+154)
(*
y
(+
(* x (- (* a b) (* c i)))
(* k (- (* i y5) (* b y4)))))
(* y1 (* y2 (- (* k y4) (* x a))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -1e+167) {
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
} else if (y1 <= -3.6e+99) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (y1 <= -5.6e+45) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (y1 <= -1.4e-47) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (y1 <= -4.8e-122) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y1 <= -4e-151) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y1 <= 7.8e-66) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (y1 <= 2.1e-27) {
tmp = (k * y0) * ((z * b) - (y2 * y5));
} else if (y1 <= 4.1e+43) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y1 <= 2.2e+64) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (y1 <= 4.2e+154) {
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))));
} else {
tmp = y1 * (y2 * ((k * y4) - (x * a)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y1 <= (-1d+167)) then
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))))
else if (y1 <= (-3.6d+99)) then
tmp = x * (y0 * ((c * y2) - (b * j)))
else if (y1 <= (-5.6d+45)) then
tmp = k * (y5 * ((y * i) - (y0 * y2)))
else if (y1 <= (-1.4d-47)) then
tmp = y2 * (y5 * ((t * a) - (k * y0)))
else if (y1 <= (-4.8d-122)) then
tmp = b * (y0 * ((z * k) - (x * j)))
else if (y1 <= (-4d-151)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (y1 <= 7.8d-66) then
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c)
else if (y1 <= 2.1d-27) then
tmp = (k * y0) * ((z * b) - (y2 * y5))
else if (y1 <= 4.1d+43) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y1 <= 2.2d+64) then
tmp = x * (y1 * ((i * j) - (a * y2)))
else if (y1 <= 4.2d+154) then
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))))
else
tmp = y1 * (y2 * ((k * y4) - (x * a)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -1e+167) {
tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k))));
} else if (y1 <= -3.6e+99) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (y1 <= -5.6e+45) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (y1 <= -1.4e-47) {
tmp = y2 * (y5 * ((t * a) - (k * y0)));
} else if (y1 <= -4.8e-122) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y1 <= -4e-151) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y1 <= 7.8e-66) {
tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c);
} else if (y1 <= 2.1e-27) {
tmp = (k * y0) * ((z * b) - (y2 * y5));
} else if (y1 <= 4.1e+43) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y1 <= 2.2e+64) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (y1 <= 4.2e+154) {
tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4))));
} else {
tmp = y1 * (y2 * ((k * y4) - (x * a)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -1e+167: tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))) elif y1 <= -3.6e+99: tmp = x * (y0 * ((c * y2) - (b * j))) elif y1 <= -5.6e+45: tmp = k * (y5 * ((y * i) - (y0 * y2))) elif y1 <= -1.4e-47: tmp = y2 * (y5 * ((t * a) - (k * y0))) elif y1 <= -4.8e-122: tmp = b * (y0 * ((z * k) - (x * j))) elif y1 <= -4e-151: tmp = b * (x * ((y * a) - (j * y0))) elif y1 <= 7.8e-66: tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c) elif y1 <= 2.1e-27: tmp = (k * y0) * ((z * b) - (y2 * y5)) elif y1 <= 4.1e+43: tmp = k * (z * ((b * y0) - (i * y1))) elif y1 <= 2.2e+64: tmp = x * (y1 * ((i * j) - (a * y2))) elif y1 <= 4.2e+154: tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) else: tmp = y1 * (y2 * ((k * y4) - (x * a))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -1e+167) tmp = Float64(i * Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) + Float64(y1 * Float64(Float64(x * j) - Float64(z * k))))); elseif (y1 <= -3.6e+99) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); elseif (y1 <= -5.6e+45) tmp = Float64(k * Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2)))); elseif (y1 <= -1.4e-47) tmp = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))); elseif (y1 <= -4.8e-122) tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); elseif (y1 <= -4e-151) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (y1 <= 7.8e-66) tmp = Float64(Float64(Float64(Float64(y3 * y4) - Float64(a * Float64(y3 * Float64(y5 / c)))) + Float64(Float64(i * Float64(k * Float64(y5 / c))) - Float64(x * i))) * Float64(y * c)); elseif (y1 <= 2.1e-27) tmp = Float64(Float64(k * y0) * Float64(Float64(z * b) - Float64(y2 * y5))); elseif (y1 <= 4.1e+43) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y1 <= 2.2e+64) tmp = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))); elseif (y1 <= 4.2e+154) tmp = Float64(y * Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4))))); else tmp = Float64(y1 * Float64(y2 * Float64(Float64(k * y4) - Float64(x * a)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y1 <= -1e+167) tmp = i * ((c * ((z * t) - (x * y))) + (y1 * ((x * j) - (z * k)))); elseif (y1 <= -3.6e+99) tmp = x * (y0 * ((c * y2) - (b * j))); elseif (y1 <= -5.6e+45) tmp = k * (y5 * ((y * i) - (y0 * y2))); elseif (y1 <= -1.4e-47) tmp = y2 * (y5 * ((t * a) - (k * y0))); elseif (y1 <= -4.8e-122) tmp = b * (y0 * ((z * k) - (x * j))); elseif (y1 <= -4e-151) tmp = b * (x * ((y * a) - (j * y0))); elseif (y1 <= 7.8e-66) tmp = (((y3 * y4) - (a * (y3 * (y5 / c)))) + ((i * (k * (y5 / c))) - (x * i))) * (y * c); elseif (y1 <= 2.1e-27) tmp = (k * y0) * ((z * b) - (y2 * y5)); elseif (y1 <= 4.1e+43) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y1 <= 2.2e+64) tmp = x * (y1 * ((i * j) - (a * y2))); elseif (y1 <= 4.2e+154) tmp = y * ((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))); else tmp = y1 * (y2 * ((k * y4) - (x * a))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -1e+167], N[(i * N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -3.6e+99], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -5.6e+45], N[(k * N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -1.4e-47], N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -4.8e-122], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -4e-151], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 7.8e-66], N[(N[(N[(N[(y3 * y4), $MachinePrecision] - N[(a * N[(y3 * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(i * N[(k * N[(y5 / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(y * c), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.1e-27], N[(N[(k * y0), $MachinePrecision] * N[(N[(z * b), $MachinePrecision] - N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 4.1e+43], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.2e+64], N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 4.2e+154], N[(y * N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y1 * N[(y2 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -1 \cdot 10^{+167}:\\
\;\;\;\;i \cdot \left(c \cdot \left(z \cdot t - x \cdot y\right) + y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{elif}\;y1 \leq -3.6 \cdot 10^{+99}:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{elif}\;y1 \leq -5.6 \cdot 10^{+45}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\mathbf{elif}\;y1 \leq -1.4 \cdot 10^{-47}:\\
\;\;\;\;y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
\mathbf{elif}\;y1 \leq -4.8 \cdot 10^{-122}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y1 \leq -4 \cdot 10^{-151}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;y1 \leq 7.8 \cdot 10^{-66}:\\
\;\;\;\;\left(\left(y3 \cdot y4 - a \cdot \left(y3 \cdot \frac{y5}{c}\right)\right) + \left(i \cdot \left(k \cdot \frac{y5}{c}\right) - x \cdot i\right)\right) \cdot \left(y \cdot c\right)\\
\mathbf{elif}\;y1 \leq 2.1 \cdot 10^{-27}:\\
\;\;\;\;\left(k \cdot y0\right) \cdot \left(z \cdot b - y2 \cdot y5\right)\\
\mathbf{elif}\;y1 \leq 4.1 \cdot 10^{+43}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y1 \leq 2.2 \cdot 10^{+64}:\\
\;\;\;\;x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
\mathbf{elif}\;y1 \leq 4.2 \cdot 10^{+154}:\\
\;\;\;\;y \cdot \left(x \cdot \left(a \cdot b - c \cdot i\right) + k \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y1 \cdot \left(y2 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\end{array}
\end{array}
if y1 < -1e167Initial program 4.9%
Taylor expanded in i around -inf 41.2%
Taylor expanded in y5 around 0 55.2%
if -1e167 < y1 < -3.6000000000000002e99Initial program 20.0%
Taylor expanded in x around inf 33.4%
Taylor expanded in y0 around inf 67.3%
if -3.6000000000000002e99 < y1 < -5.5999999999999999e45Initial program 36.4%
Taylor expanded in k around inf 45.7%
+-commutative45.7%
mul-1-neg45.7%
unsub-neg45.7%
*-commutative45.7%
associate-*r*45.7%
neg-mul-145.7%
Simplified45.7%
Taylor expanded in y5 around -inf 55.0%
mul-1-neg55.0%
Simplified55.0%
if -5.5999999999999999e45 < y1 < -1.39999999999999996e-47Initial program 35.3%
Taylor expanded in y2 around inf 35.7%
Taylor expanded in y5 around -inf 42.5%
mul-1-neg42.5%
Simplified42.5%
if -1.39999999999999996e-47 < y1 < -4.79999999999999975e-122Initial program 30.4%
Taylor expanded in b around inf 52.8%
Taylor expanded in y0 around inf 48.9%
if -4.79999999999999975e-122 < y1 < -3.9999999999999998e-151Initial program 11.7%
Taylor expanded in b around inf 31.3%
Taylor expanded in x around inf 71.5%
if -3.9999999999999998e-151 < y1 < 7.79999999999999965e-66Initial program 32.4%
Taylor expanded in y around inf 42.1%
+-commutative42.1%
mul-1-neg42.1%
unsub-neg42.1%
*-commutative42.1%
*-commutative42.1%
mul-1-neg42.1%
Simplified42.1%
Taylor expanded in c around inf 40.2%
associate-/l*41.5%
distribute-lft-out44.2%
+-commutative44.2%
mul-1-neg44.2%
unsub-neg44.2%
*-commutative44.2%
Simplified44.2%
Taylor expanded in b around 0 48.3%
associate-*r*48.2%
*-commutative48.2%
+-commutative48.2%
mul-1-neg48.2%
unsub-neg48.2%
associate-/l*50.7%
associate-/l*49.5%
+-commutative49.5%
mul-1-neg49.5%
unsub-neg49.5%
*-commutative49.5%
associate-/l*49.5%
associate-/l*48.0%
Simplified48.0%
if 7.79999999999999965e-66 < y1 < 2.10000000000000015e-27Initial program 66.4%
Taylor expanded in y0 around inf 67.4%
+-commutative67.4%
mul-1-neg67.4%
unsub-neg67.4%
*-commutative67.4%
*-commutative67.4%
*-commutative67.4%
*-commutative67.4%
Simplified67.4%
Taylor expanded in k around -inf 67.4%
associate-*r*67.4%
+-commutative67.4%
mul-1-neg67.4%
unsub-neg67.4%
*-commutative67.4%
Simplified67.4%
if 2.10000000000000015e-27 < y1 < 4.1e43Initial program 36.4%
Taylor expanded in k around inf 45.9%
+-commutative45.9%
mul-1-neg45.9%
unsub-neg45.9%
*-commutative45.9%
associate-*r*45.9%
neg-mul-145.9%
Simplified45.9%
Taylor expanded in z around inf 55.6%
if 4.1e43 < y1 < 2.20000000000000002e64Initial program 25.0%
Taylor expanded in x around inf 52.0%
Taylor expanded in y1 around -inf 64.2%
mul-1-neg64.2%
Simplified64.2%
if 2.20000000000000002e64 < y1 < 4.19999999999999989e154Initial program 23.0%
Taylor expanded in y around inf 46.2%
+-commutative46.2%
mul-1-neg46.2%
unsub-neg46.2%
*-commutative46.2%
*-commutative46.2%
mul-1-neg46.2%
Simplified46.2%
Taylor expanded in y3 around 0 42.6%
if 4.19999999999999989e154 < y1 Initial program 28.0%
Taylor expanded in y2 around inf 53.2%
Taylor expanded in y1 around inf 54.0%
+-commutative54.0%
mul-1-neg54.0%
unsub-neg54.0%
Simplified54.0%
Final simplification52.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y2 (* y5 (- (* t a) (* k y0)))))
(t_2 (* k (- (* i y5) (* b y4))))
(t_3 (* y (+ (* x (- (* a b) (* c i))) t_2)))
(t_4 (* y2 (* a (- (* t y5) (* x y1))))))
(if (<= y5 -6.8e+161)
t_1
(if (<= y5 -8e+106)
(* y (+ (* a (* x b)) t_2))
(if (<= y5 -3e+38)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y5 1.2e-304)
t_3
(if (<= y5 2.6e-155)
(* y1 (* y3 (- (* z a) (* j y4))))
(if (<= y5 9e-92)
(* i (* k (- (* y y5) (* z y1))))
(if (<= y5 3.8e-80)
(* k (* y1 (* y2 y4)))
(if (<= y5 8e-38)
t_3
(if (<= y5 1.5e+139)
(* y3 (* y5 (- (* j y0) (* y a))))
(if (<= y5 1.6e+177)
t_4
(if (<= y5 5.6e+185)
(* y1 (* y2 (* k y4)))
(if (<= y5 7e+220) t_1 t_4))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y2 * (y5 * ((t * a) - (k * y0)));
double t_2 = k * ((i * y5) - (b * y4));
double t_3 = y * ((x * ((a * b) - (c * i))) + t_2);
double t_4 = y2 * (a * ((t * y5) - (x * y1)));
double tmp;
if (y5 <= -6.8e+161) {
tmp = t_1;
} else if (y5 <= -8e+106) {
tmp = y * ((a * (x * b)) + t_2);
} else if (y5 <= -3e+38) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y5 <= 1.2e-304) {
tmp = t_3;
} else if (y5 <= 2.6e-155) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else if (y5 <= 9e-92) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y5 <= 3.8e-80) {
tmp = k * (y1 * (y2 * y4));
} else if (y5 <= 8e-38) {
tmp = t_3;
} else if (y5 <= 1.5e+139) {
tmp = y3 * (y5 * ((j * y0) - (y * a)));
} else if (y5 <= 1.6e+177) {
tmp = t_4;
} else if (y5 <= 5.6e+185) {
tmp = y1 * (y2 * (k * y4));
} else if (y5 <= 7e+220) {
tmp = t_1;
} else {
tmp = t_4;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = y2 * (y5 * ((t * a) - (k * y0)))
t_2 = k * ((i * y5) - (b * y4))
t_3 = y * ((x * ((a * b) - (c * i))) + t_2)
t_4 = y2 * (a * ((t * y5) - (x * y1)))
if (y5 <= (-6.8d+161)) then
tmp = t_1
else if (y5 <= (-8d+106)) then
tmp = y * ((a * (x * b)) + t_2)
else if (y5 <= (-3d+38)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y5 <= 1.2d-304) then
tmp = t_3
else if (y5 <= 2.6d-155) then
tmp = y1 * (y3 * ((z * a) - (j * y4)))
else if (y5 <= 9d-92) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (y5 <= 3.8d-80) then
tmp = k * (y1 * (y2 * y4))
else if (y5 <= 8d-38) then
tmp = t_3
else if (y5 <= 1.5d+139) then
tmp = y3 * (y5 * ((j * y0) - (y * a)))
else if (y5 <= 1.6d+177) then
tmp = t_4
else if (y5 <= 5.6d+185) then
tmp = y1 * (y2 * (k * y4))
else if (y5 <= 7d+220) then
tmp = t_1
else
tmp = t_4
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y2 * (y5 * ((t * a) - (k * y0)));
double t_2 = k * ((i * y5) - (b * y4));
double t_3 = y * ((x * ((a * b) - (c * i))) + t_2);
double t_4 = y2 * (a * ((t * y5) - (x * y1)));
double tmp;
if (y5 <= -6.8e+161) {
tmp = t_1;
} else if (y5 <= -8e+106) {
tmp = y * ((a * (x * b)) + t_2);
} else if (y5 <= -3e+38) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y5 <= 1.2e-304) {
tmp = t_3;
} else if (y5 <= 2.6e-155) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else if (y5 <= 9e-92) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y5 <= 3.8e-80) {
tmp = k * (y1 * (y2 * y4));
} else if (y5 <= 8e-38) {
tmp = t_3;
} else if (y5 <= 1.5e+139) {
tmp = y3 * (y5 * ((j * y0) - (y * a)));
} else if (y5 <= 1.6e+177) {
tmp = t_4;
} else if (y5 <= 5.6e+185) {
tmp = y1 * (y2 * (k * y4));
} else if (y5 <= 7e+220) {
tmp = t_1;
} else {
tmp = t_4;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y2 * (y5 * ((t * a) - (k * y0))) t_2 = k * ((i * y5) - (b * y4)) t_3 = y * ((x * ((a * b) - (c * i))) + t_2) t_4 = y2 * (a * ((t * y5) - (x * y1))) tmp = 0 if y5 <= -6.8e+161: tmp = t_1 elif y5 <= -8e+106: tmp = y * ((a * (x * b)) + t_2) elif y5 <= -3e+38: tmp = k * (z * ((b * y0) - (i * y1))) elif y5 <= 1.2e-304: tmp = t_3 elif y5 <= 2.6e-155: tmp = y1 * (y3 * ((z * a) - (j * y4))) elif y5 <= 9e-92: tmp = i * (k * ((y * y5) - (z * y1))) elif y5 <= 3.8e-80: tmp = k * (y1 * (y2 * y4)) elif y5 <= 8e-38: tmp = t_3 elif y5 <= 1.5e+139: tmp = y3 * (y5 * ((j * y0) - (y * a))) elif y5 <= 1.6e+177: tmp = t_4 elif y5 <= 5.6e+185: tmp = y1 * (y2 * (k * y4)) elif y5 <= 7e+220: tmp = t_1 else: tmp = t_4 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y2 * Float64(y5 * Float64(Float64(t * a) - Float64(k * y0)))) t_2 = Float64(k * Float64(Float64(i * y5) - Float64(b * y4))) t_3 = Float64(y * Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + t_2)) t_4 = Float64(y2 * Float64(a * Float64(Float64(t * y5) - Float64(x * y1)))) tmp = 0.0 if (y5 <= -6.8e+161) tmp = t_1; elseif (y5 <= -8e+106) tmp = Float64(y * Float64(Float64(a * Float64(x * b)) + t_2)); elseif (y5 <= -3e+38) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y5 <= 1.2e-304) tmp = t_3; elseif (y5 <= 2.6e-155) tmp = Float64(y1 * Float64(y3 * Float64(Float64(z * a) - Float64(j * y4)))); elseif (y5 <= 9e-92) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (y5 <= 3.8e-80) tmp = Float64(k * Float64(y1 * Float64(y2 * y4))); elseif (y5 <= 8e-38) tmp = t_3; elseif (y5 <= 1.5e+139) tmp = Float64(y3 * Float64(y5 * Float64(Float64(j * y0) - Float64(y * a)))); elseif (y5 <= 1.6e+177) tmp = t_4; elseif (y5 <= 5.6e+185) tmp = Float64(y1 * Float64(y2 * Float64(k * y4))); elseif (y5 <= 7e+220) tmp = t_1; else tmp = t_4; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y2 * (y5 * ((t * a) - (k * y0))); t_2 = k * ((i * y5) - (b * y4)); t_3 = y * ((x * ((a * b) - (c * i))) + t_2); t_4 = y2 * (a * ((t * y5) - (x * y1))); tmp = 0.0; if (y5 <= -6.8e+161) tmp = t_1; elseif (y5 <= -8e+106) tmp = y * ((a * (x * b)) + t_2); elseif (y5 <= -3e+38) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y5 <= 1.2e-304) tmp = t_3; elseif (y5 <= 2.6e-155) tmp = y1 * (y3 * ((z * a) - (j * y4))); elseif (y5 <= 9e-92) tmp = i * (k * ((y * y5) - (z * y1))); elseif (y5 <= 3.8e-80) tmp = k * (y1 * (y2 * y4)); elseif (y5 <= 8e-38) tmp = t_3; elseif (y5 <= 1.5e+139) tmp = y3 * (y5 * ((j * y0) - (y * a))); elseif (y5 <= 1.6e+177) tmp = t_4; elseif (y5 <= 5.6e+185) tmp = y1 * (y2 * (k * y4)); elseif (y5 <= 7e+220) tmp = t_1; else tmp = t_4; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y2 * N[(y5 * N[(N[(t * a), $MachinePrecision] - N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y * N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(y2 * N[(a * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -6.8e+161], t$95$1, If[LessEqual[y5, -8e+106], N[(y * N[(N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -3e+38], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.2e-304], t$95$3, If[LessEqual[y5, 2.6e-155], N[(y1 * N[(y3 * N[(N[(z * a), $MachinePrecision] - N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 9e-92], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 3.8e-80], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 8e-38], t$95$3, If[LessEqual[y5, 1.5e+139], N[(y3 * N[(y5 * N[(N[(j * y0), $MachinePrecision] - N[(y * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.6e+177], t$95$4, If[LessEqual[y5, 5.6e+185], N[(y1 * N[(y2 * N[(k * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 7e+220], t$95$1, t$95$4]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y2 \cdot \left(y5 \cdot \left(t \cdot a - k \cdot y0\right)\right)\\
t_2 := k \cdot \left(i \cdot y5 - b \cdot y4\right)\\
t_3 := y \cdot \left(x \cdot \left(a \cdot b - c \cdot i\right) + t\_2\right)\\
t_4 := y2 \cdot \left(a \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{if}\;y5 \leq -6.8 \cdot 10^{+161}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq -8 \cdot 10^{+106}:\\
\;\;\;\;y \cdot \left(a \cdot \left(x \cdot b\right) + t\_2\right)\\
\mathbf{elif}\;y5 \leq -3 \cdot 10^{+38}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y5 \leq 1.2 \cdot 10^{-304}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq 2.6 \cdot 10^{-155}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(z \cdot a - j \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 9 \cdot 10^{-92}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;y5 \leq 3.8 \cdot 10^{-80}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 8 \cdot 10^{-38}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq 1.5 \cdot 10^{+139}:\\
\;\;\;\;y3 \cdot \left(y5 \cdot \left(j \cdot y0 - y \cdot a\right)\right)\\
\mathbf{elif}\;y5 \leq 1.6 \cdot 10^{+177}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y5 \leq 5.6 \cdot 10^{+185}:\\
\;\;\;\;y1 \cdot \left(y2 \cdot \left(k \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 7 \cdot 10^{+220}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if y5 < -6.79999999999999986e161 or 5.59999999999999964e185 < y5 < 6.99999999999999972e220Initial program 19.3%
Taylor expanded in y2 around inf 49.2%
Taylor expanded in y5 around -inf 62.6%
mul-1-neg62.6%
Simplified62.6%
if -6.79999999999999986e161 < y5 < -8.00000000000000073e106Initial program 40.6%
Taylor expanded in y around inf 50.1%
+-commutative50.1%
mul-1-neg50.1%
unsub-neg50.1%
*-commutative50.1%
*-commutative50.1%
mul-1-neg50.1%
Simplified50.1%
Taylor expanded in y3 around 0 50.2%
Taylor expanded in c around 0 60.2%
if -8.00000000000000073e106 < y5 < -3.0000000000000001e38Initial program 18.8%
Taylor expanded in k around inf 43.8%
+-commutative43.8%
mul-1-neg43.8%
unsub-neg43.8%
*-commutative43.8%
associate-*r*43.8%
neg-mul-143.8%
Simplified43.8%
Taylor expanded in z around inf 57.2%
if -3.0000000000000001e38 < y5 < 1.2e-304 or 3.79999999999999967e-80 < y5 < 7.9999999999999997e-38Initial program 33.0%
Taylor expanded in y around inf 49.6%
+-commutative49.6%
mul-1-neg49.6%
unsub-neg49.6%
*-commutative49.6%
*-commutative49.6%
mul-1-neg49.6%
Simplified49.6%
Taylor expanded in y3 around 0 44.4%
if 1.2e-304 < y5 < 2.60000000000000008e-155Initial program 36.1%
Taylor expanded in y3 around -inf 43.9%
Taylor expanded in y1 around inf 34.9%
+-commutative34.9%
mul-1-neg34.9%
unsub-neg34.9%
Simplified34.9%
if 2.60000000000000008e-155 < y5 < 9.0000000000000001e-92Initial program 25.0%
Taylor expanded in k around inf 50.1%
+-commutative50.1%
mul-1-neg50.1%
unsub-neg50.1%
*-commutative50.1%
associate-*r*50.1%
neg-mul-150.1%
Simplified50.1%
Taylor expanded in i around -inf 75.2%
+-commutative75.2%
mul-1-neg75.2%
unsub-neg75.2%
Simplified75.2%
if 9.0000000000000001e-92 < y5 < 3.79999999999999967e-80Initial program 33.3%
Taylor expanded in k around inf 34.4%
+-commutative34.4%
mul-1-neg34.4%
unsub-neg34.4%
*-commutative34.4%
associate-*r*34.4%
neg-mul-134.4%
Simplified34.4%
Taylor expanded in y1 around inf 67.7%
Taylor expanded in y2 around inf 67.7%
if 7.9999999999999997e-38 < y5 < 1.5e139Initial program 24.9%
Taylor expanded in y3 around -inf 44.0%
Taylor expanded in y5 around -inf 54.0%
mul-1-neg54.0%
Simplified54.0%
if 1.5e139 < y5 < 1.6e177 or 6.99999999999999972e220 < y5 Initial program 16.9%
Taylor expanded in y2 around inf 43.7%
Taylor expanded in a around -inf 61.0%
mul-1-neg61.0%
Simplified61.0%
if 1.6e177 < y5 < 5.59999999999999964e185Initial program 49.2%
Taylor expanded in y2 around inf 49.2%
Taylor expanded in y1 around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
Simplified100.0%
Taylor expanded in k around inf 100.0%
*-commutative100.0%
Simplified100.0%
Final simplification51.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* t (* y2 (- (* a y5) (* c y4)))))
(t_2 (* k (* z (- (* b y0) (* i y1))))))
(if (<= y2 -1.45e+229)
t_1
(if (<= y2 -4.4e+144)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= y2 -7.5e+56)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y2 -3.4e-84)
t_1
(if (<= y2 -4.5e-224)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y2 1.28e-194)
(* b (* x (- (* y a) (* j y0))))
(if (<= y2 1.7e-106)
(* (* k y0) (- (* z b) (* y2 y5)))
(if (<= y2 1.32e-86)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= y2 1.12e-17)
t_2
(if (<= y2 0.052)
(* (* j y0) (- (* y3 y5) (* x b)))
(if (<= y2 6.2e+151)
t_2
(if (<= y2 3.3e+191)
(* x (* y0 (- (* c y2) (* b j))))
t_1))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = k * (z * ((b * y0) - (i * y1)));
double tmp;
if (y2 <= -1.45e+229) {
tmp = t_1;
} else if (y2 <= -4.4e+144) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y2 <= -7.5e+56) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y2 <= -3.4e-84) {
tmp = t_1;
} else if (y2 <= -4.5e-224) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.28e-194) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y2 <= 1.7e-106) {
tmp = (k * y0) * ((z * b) - (y2 * y5));
} else if (y2 <= 1.32e-86) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y2 <= 1.12e-17) {
tmp = t_2;
} else if (y2 <= 0.052) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y2 <= 6.2e+151) {
tmp = t_2;
} else if (y2 <= 3.3e+191) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = t * (y2 * ((a * y5) - (c * y4)))
t_2 = k * (z * ((b * y0) - (i * y1)))
if (y2 <= (-1.45d+229)) then
tmp = t_1
else if (y2 <= (-4.4d+144)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (y2 <= (-7.5d+56)) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y2 <= (-3.4d-84)) then
tmp = t_1
else if (y2 <= (-4.5d-224)) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y2 <= 1.28d-194) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (y2 <= 1.7d-106) then
tmp = (k * y0) * ((z * b) - (y2 * y5))
else if (y2 <= 1.32d-86) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (y2 <= 1.12d-17) then
tmp = t_2
else if (y2 <= 0.052d0) then
tmp = (j * y0) * ((y3 * y5) - (x * b))
else if (y2 <= 6.2d+151) then
tmp = t_2
else if (y2 <= 3.3d+191) then
tmp = x * (y0 * ((c * y2) - (b * j)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = k * (z * ((b * y0) - (i * y1)));
double tmp;
if (y2 <= -1.45e+229) {
tmp = t_1;
} else if (y2 <= -4.4e+144) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y2 <= -7.5e+56) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y2 <= -3.4e-84) {
tmp = t_1;
} else if (y2 <= -4.5e-224) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.28e-194) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y2 <= 1.7e-106) {
tmp = (k * y0) * ((z * b) - (y2 * y5));
} else if (y2 <= 1.32e-86) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y2 <= 1.12e-17) {
tmp = t_2;
} else if (y2 <= 0.052) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y2 <= 6.2e+151) {
tmp = t_2;
} else if (y2 <= 3.3e+191) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = t * (y2 * ((a * y5) - (c * y4))) t_2 = k * (z * ((b * y0) - (i * y1))) tmp = 0 if y2 <= -1.45e+229: tmp = t_1 elif y2 <= -4.4e+144: tmp = c * (y0 * ((x * y2) - (z * y3))) elif y2 <= -7.5e+56: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y2 <= -3.4e-84: tmp = t_1 elif y2 <= -4.5e-224: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y2 <= 1.28e-194: tmp = b * (x * ((y * a) - (j * y0))) elif y2 <= 1.7e-106: tmp = (k * y0) * ((z * b) - (y2 * y5)) elif y2 <= 1.32e-86: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif y2 <= 1.12e-17: tmp = t_2 elif y2 <= 0.052: tmp = (j * y0) * ((y3 * y5) - (x * b)) elif y2 <= 6.2e+151: tmp = t_2 elif y2 <= 3.3e+191: tmp = x * (y0 * ((c * y2) - (b * j))) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))) t_2 = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))) tmp = 0.0 if (y2 <= -1.45e+229) tmp = t_1; elseif (y2 <= -4.4e+144) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (y2 <= -7.5e+56) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y2 <= -3.4e-84) tmp = t_1; elseif (y2 <= -4.5e-224) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y2 <= 1.28e-194) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (y2 <= 1.7e-106) tmp = Float64(Float64(k * y0) * Float64(Float64(z * b) - Float64(y2 * y5))); elseif (y2 <= 1.32e-86) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y2 <= 1.12e-17) tmp = t_2; elseif (y2 <= 0.052) tmp = Float64(Float64(j * y0) * Float64(Float64(y3 * y5) - Float64(x * b))); elseif (y2 <= 6.2e+151) tmp = t_2; elseif (y2 <= 3.3e+191) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = t * (y2 * ((a * y5) - (c * y4))); t_2 = k * (z * ((b * y0) - (i * y1))); tmp = 0.0; if (y2 <= -1.45e+229) tmp = t_1; elseif (y2 <= -4.4e+144) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (y2 <= -7.5e+56) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y2 <= -3.4e-84) tmp = t_1; elseif (y2 <= -4.5e-224) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y2 <= 1.28e-194) tmp = b * (x * ((y * a) - (j * y0))); elseif (y2 <= 1.7e-106) tmp = (k * y0) * ((z * b) - (y2 * y5)); elseif (y2 <= 1.32e-86) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (y2 <= 1.12e-17) tmp = t_2; elseif (y2 <= 0.052) tmp = (j * y0) * ((y3 * y5) - (x * b)); elseif (y2 <= 6.2e+151) tmp = t_2; elseif (y2 <= 3.3e+191) tmp = x * (y0 * ((c * y2) - (b * j))); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -1.45e+229], t$95$1, If[LessEqual[y2, -4.4e+144], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -7.5e+56], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -3.4e-84], t$95$1, If[LessEqual[y2, -4.5e-224], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.28e-194], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.7e-106], N[(N[(k * y0), $MachinePrecision] * N[(N[(z * b), $MachinePrecision] - N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.32e-86], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.12e-17], t$95$2, If[LessEqual[y2, 0.052], N[(N[(j * y0), $MachinePrecision] * N[(N[(y3 * y5), $MachinePrecision] - N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 6.2e+151], t$95$2, If[LessEqual[y2, 3.3e+191], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
t_2 := k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{if}\;y2 \leq -1.45 \cdot 10^{+229}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq -4.4 \cdot 10^{+144}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;y2 \leq -7.5 \cdot 10^{+56}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq -3.4 \cdot 10^{-84}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq -4.5 \cdot 10^{-224}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 1.28 \cdot 10^{-194}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;y2 \leq 1.7 \cdot 10^{-106}:\\
\;\;\;\;\left(k \cdot y0\right) \cdot \left(z \cdot b - y2 \cdot y5\right)\\
\mathbf{elif}\;y2 \leq 1.32 \cdot 10^{-86}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 1.12 \cdot 10^{-17}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq 0.052:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5 - x \cdot b\right)\\
\mathbf{elif}\;y2 \leq 6.2 \cdot 10^{+151}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq 3.3 \cdot 10^{+191}:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y2 < -1.44999999999999991e229 or -7.4999999999999999e56 < y2 < -3.40000000000000021e-84 or 3.2999999999999998e191 < y2 Initial program 21.1%
Taylor expanded in y2 around inf 55.8%
Taylor expanded in t around inf 52.8%
if -1.44999999999999991e229 < y2 < -4.39999999999999976e144Initial program 6.7%
Taylor expanded in y0 around inf 50.0%
+-commutative50.0%
mul-1-neg50.0%
unsub-neg50.0%
*-commutative50.0%
*-commutative50.0%
*-commutative50.0%
*-commutative50.0%
Simplified50.0%
Taylor expanded in c around inf 69.2%
*-commutative69.2%
Simplified69.2%
if -4.39999999999999976e144 < y2 < -7.4999999999999999e56Initial program 15.4%
Taylor expanded in y2 around inf 54.6%
Taylor expanded in y0 around inf 62.8%
+-commutative62.8%
mul-1-neg62.8%
unsub-neg62.8%
Simplified62.8%
if -3.40000000000000021e-84 < y2 < -4.5000000000000004e-224Initial program 41.9%
Taylor expanded in y around inf 42.7%
+-commutative42.7%
mul-1-neg42.7%
unsub-neg42.7%
*-commutative42.7%
*-commutative42.7%
mul-1-neg42.7%
Simplified42.7%
Taylor expanded in y3 around inf 47.2%
if -4.5000000000000004e-224 < y2 < 1.2800000000000001e-194Initial program 41.8%
Taylor expanded in b around inf 56.5%
Taylor expanded in x around inf 48.4%
if 1.2800000000000001e-194 < y2 < 1.69999999999999991e-106Initial program 40.1%
Taylor expanded in y0 around inf 51.4%
+-commutative51.4%
mul-1-neg51.4%
unsub-neg51.4%
*-commutative51.4%
*-commutative51.4%
*-commutative51.4%
*-commutative51.4%
Simplified51.4%
Taylor expanded in k around -inf 41.3%
associate-*r*41.3%
+-commutative41.3%
mul-1-neg41.3%
unsub-neg41.3%
*-commutative41.3%
Simplified41.3%
if 1.69999999999999991e-106 < y2 < 1.32e-86Initial program 16.7%
Taylor expanded in y2 around inf 50.1%
Taylor expanded in k around inf 66.9%
if 1.32e-86 < y2 < 1.12000000000000005e-17 or 0.0519999999999999976 < y2 < 6.2000000000000004e151Initial program 26.1%
Taylor expanded in k around inf 42.3%
+-commutative42.3%
mul-1-neg42.3%
unsub-neg42.3%
*-commutative42.3%
associate-*r*42.3%
neg-mul-142.3%
Simplified42.3%
Taylor expanded in z around inf 47.7%
if 1.12000000000000005e-17 < y2 < 0.0519999999999999976Initial program 60.0%
Taylor expanded in y0 around inf 61.1%
+-commutative61.1%
mul-1-neg61.1%
unsub-neg61.1%
*-commutative61.1%
*-commutative61.1%
*-commutative61.1%
*-commutative61.1%
Simplified61.1%
Taylor expanded in j around -inf 61.1%
associate-*r*61.1%
+-commutative61.1%
mul-1-neg61.1%
unsub-neg61.1%
*-commutative61.1%
Simplified61.1%
if 6.2000000000000004e151 < y2 < 3.2999999999999998e191Initial program 24.9%
Taylor expanded in x around inf 50.5%
Taylor expanded in y0 around inf 59.9%
Final simplification52.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* z (- (* b y0) (* i y1)))))
(t_2 (* k (* y1 (- (* y2 y4) (* z i))))))
(if (<= c -0.04)
(* x (* y0 (- (* c y2) (* b j))))
(if (<= c -9.2e-54)
(* b (* j (- (* t y4) (* x y0))))
(if (<= c -1.65e-167)
t_2
(if (<= c -1.75e-258)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= c 2.35e-248)
t_1
(if (<= c 4.2e-229)
t_2
(if (<= c 4.2e-125)
(* i (* k (- (* y y5) (* z y1))))
(if (<= c 11200000000.0)
(* b (* x (- (* y a) (* j y0))))
(if (<= c 8.5e+71)
t_1
(if (<= c 3.4e+143)
(* k (* y (- (* i y5) (* b y4))))
(if (<= c 1e+194)
(* b (* t (- (* j y4) (* z a))))
(if (<= c 7.2e+284)
(* c (* y0 (- (* x y2) (* z y3))))
(* (- c) (* (* x i) y))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (z * ((b * y0) - (i * y1)));
double t_2 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (c <= -0.04) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (c <= -9.2e-54) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else if (c <= -1.65e-167) {
tmp = t_2;
} else if (c <= -1.75e-258) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (c <= 2.35e-248) {
tmp = t_1;
} else if (c <= 4.2e-229) {
tmp = t_2;
} else if (c <= 4.2e-125) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= 11200000000.0) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (c <= 8.5e+71) {
tmp = t_1;
} else if (c <= 3.4e+143) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (c <= 1e+194) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (c <= 7.2e+284) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else {
tmp = -c * ((x * i) * y);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = k * (z * ((b * y0) - (i * y1)))
t_2 = k * (y1 * ((y2 * y4) - (z * i)))
if (c <= (-0.04d0)) then
tmp = x * (y0 * ((c * y2) - (b * j)))
else if (c <= (-9.2d-54)) then
tmp = b * (j * ((t * y4) - (x * y0)))
else if (c <= (-1.65d-167)) then
tmp = t_2
else if (c <= (-1.75d-258)) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (c <= 2.35d-248) then
tmp = t_1
else if (c <= 4.2d-229) then
tmp = t_2
else if (c <= 4.2d-125) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (c <= 11200000000.0d0) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (c <= 8.5d+71) then
tmp = t_1
else if (c <= 3.4d+143) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (c <= 1d+194) then
tmp = b * (t * ((j * y4) - (z * a)))
else if (c <= 7.2d+284) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else
tmp = -c * ((x * i) * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (z * ((b * y0) - (i * y1)));
double t_2 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (c <= -0.04) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else if (c <= -9.2e-54) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else if (c <= -1.65e-167) {
tmp = t_2;
} else if (c <= -1.75e-258) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (c <= 2.35e-248) {
tmp = t_1;
} else if (c <= 4.2e-229) {
tmp = t_2;
} else if (c <= 4.2e-125) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= 11200000000.0) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (c <= 8.5e+71) {
tmp = t_1;
} else if (c <= 3.4e+143) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (c <= 1e+194) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (c <= 7.2e+284) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else {
tmp = -c * ((x * i) * y);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = k * (z * ((b * y0) - (i * y1))) t_2 = k * (y1 * ((y2 * y4) - (z * i))) tmp = 0 if c <= -0.04: tmp = x * (y0 * ((c * y2) - (b * j))) elif c <= -9.2e-54: tmp = b * (j * ((t * y4) - (x * y0))) elif c <= -1.65e-167: tmp = t_2 elif c <= -1.75e-258: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif c <= 2.35e-248: tmp = t_1 elif c <= 4.2e-229: tmp = t_2 elif c <= 4.2e-125: tmp = i * (k * ((y * y5) - (z * y1))) elif c <= 11200000000.0: tmp = b * (x * ((y * a) - (j * y0))) elif c <= 8.5e+71: tmp = t_1 elif c <= 3.4e+143: tmp = k * (y * ((i * y5) - (b * y4))) elif c <= 1e+194: tmp = b * (t * ((j * y4) - (z * a))) elif c <= 7.2e+284: tmp = c * (y0 * ((x * y2) - (z * y3))) else: tmp = -c * ((x * i) * y) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))) t_2 = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))) tmp = 0.0 if (c <= -0.04) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); elseif (c <= -9.2e-54) tmp = Float64(b * Float64(j * Float64(Float64(t * y4) - Float64(x * y0)))); elseif (c <= -1.65e-167) tmp = t_2; elseif (c <= -1.75e-258) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (c <= 2.35e-248) tmp = t_1; elseif (c <= 4.2e-229) tmp = t_2; elseif (c <= 4.2e-125) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (c <= 11200000000.0) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (c <= 8.5e+71) tmp = t_1; elseif (c <= 3.4e+143) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (c <= 1e+194) tmp = Float64(b * Float64(t * Float64(Float64(j * y4) - Float64(z * a)))); elseif (c <= 7.2e+284) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); else tmp = Float64(Float64(-c) * Float64(Float64(x * i) * y)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = k * (z * ((b * y0) - (i * y1))); t_2 = k * (y1 * ((y2 * y4) - (z * i))); tmp = 0.0; if (c <= -0.04) tmp = x * (y0 * ((c * y2) - (b * j))); elseif (c <= -9.2e-54) tmp = b * (j * ((t * y4) - (x * y0))); elseif (c <= -1.65e-167) tmp = t_2; elseif (c <= -1.75e-258) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (c <= 2.35e-248) tmp = t_1; elseif (c <= 4.2e-229) tmp = t_2; elseif (c <= 4.2e-125) tmp = i * (k * ((y * y5) - (z * y1))); elseif (c <= 11200000000.0) tmp = b * (x * ((y * a) - (j * y0))); elseif (c <= 8.5e+71) tmp = t_1; elseif (c <= 3.4e+143) tmp = k * (y * ((i * y5) - (b * y4))); elseif (c <= 1e+194) tmp = b * (t * ((j * y4) - (z * a))); elseif (c <= 7.2e+284) tmp = c * (y0 * ((x * y2) - (z * y3))); else tmp = -c * ((x * i) * y); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -0.04], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -9.2e-54], N[(b * N[(j * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -1.65e-167], t$95$2, If[LessEqual[c, -1.75e-258], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 2.35e-248], t$95$1, If[LessEqual[c, 4.2e-229], t$95$2, If[LessEqual[c, 4.2e-125], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 11200000000.0], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 8.5e+71], t$95$1, If[LessEqual[c, 3.4e+143], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1e+194], N[(b * N[(t * N[(N[(j * y4), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 7.2e+284], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[((-c) * N[(N[(x * i), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
t_2 := k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{if}\;c \leq -0.04:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{elif}\;c \leq -9.2 \cdot 10^{-54}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;c \leq -1.65 \cdot 10^{-167}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq -1.75 \cdot 10^{-258}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;c \leq 2.35 \cdot 10^{-248}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 4.2 \cdot 10^{-229}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 4.2 \cdot 10^{-125}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;c \leq 11200000000:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;c \leq 8.5 \cdot 10^{+71}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 3.4 \cdot 10^{+143}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;c \leq 10^{+194}:\\
\;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4 - z \cdot a\right)\right)\\
\mathbf{elif}\;c \leq 7.2 \cdot 10^{+284}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(-c\right) \cdot \left(\left(x \cdot i\right) \cdot y\right)\\
\end{array}
\end{array}
if c < -0.0400000000000000008Initial program 22.9%
Taylor expanded in x around inf 43.0%
Taylor expanded in y0 around inf 45.3%
if -0.0400000000000000008 < c < -9.1999999999999996e-54Initial program 30.0%
Taylor expanded in b around inf 50.3%
Taylor expanded in j around inf 60.4%
if -9.1999999999999996e-54 < c < -1.64999999999999998e-167 or 2.34999999999999982e-248 < c < 4.19999999999999967e-229Initial program 27.8%
Taylor expanded in k around inf 42.2%
+-commutative42.2%
mul-1-neg42.2%
unsub-neg42.2%
*-commutative42.2%
associate-*r*42.2%
neg-mul-142.2%
Simplified42.2%
Taylor expanded in y1 around inf 56.0%
if -1.64999999999999998e-167 < c < -1.75000000000000001e-258Initial program 28.0%
Taylor expanded in y2 around inf 52.4%
Taylor expanded in k around inf 49.1%
if -1.75000000000000001e-258 < c < 2.34999999999999982e-248 or 1.12e10 < c < 8.4999999999999996e71Initial program 25.6%
Taylor expanded in k around inf 40.7%
+-commutative40.7%
mul-1-neg40.7%
unsub-neg40.7%
*-commutative40.7%
associate-*r*40.7%
neg-mul-140.7%
Simplified40.7%
Taylor expanded in z around inf 50.0%
if 4.19999999999999967e-229 < c < 4.2e-125Initial program 49.3%
Taylor expanded in k around inf 43.0%
+-commutative43.0%
mul-1-neg43.0%
unsub-neg43.0%
*-commutative43.0%
associate-*r*43.0%
neg-mul-143.0%
Simplified43.0%
Taylor expanded in i around -inf 33.1%
+-commutative33.1%
mul-1-neg33.1%
unsub-neg33.1%
Simplified33.1%
if 4.2e-125 < c < 1.12e10Initial program 32.1%
Taylor expanded in b around inf 40.7%
Taylor expanded in x around inf 49.3%
if 8.4999999999999996e71 < c < 3.39999999999999982e143Initial program 23.1%
Taylor expanded in k around inf 38.7%
+-commutative38.7%
mul-1-neg38.7%
unsub-neg38.7%
*-commutative38.7%
associate-*r*38.7%
neg-mul-138.7%
Simplified38.7%
Taylor expanded in y around inf 46.9%
if 3.39999999999999982e143 < c < 9.99999999999999945e193Initial program 22.8%
Taylor expanded in b around inf 34.8%
Taylor expanded in t around inf 45.4%
+-commutative45.4%
mul-1-neg45.4%
unsub-neg45.4%
Simplified45.4%
if 9.99999999999999945e193 < c < 7.2000000000000002e284Initial program 16.0%
Taylor expanded in y0 around inf 38.5%
+-commutative38.5%
mul-1-neg38.5%
unsub-neg38.5%
*-commutative38.5%
*-commutative38.5%
*-commutative38.5%
*-commutative38.5%
Simplified38.5%
Taylor expanded in c around inf 62.0%
*-commutative62.0%
Simplified62.0%
if 7.2000000000000002e284 < c Initial program 0.0%
Taylor expanded in y around inf 80.0%
+-commutative80.0%
mul-1-neg80.0%
unsub-neg80.0%
*-commutative80.0%
*-commutative80.0%
mul-1-neg80.0%
Simplified80.0%
Taylor expanded in y3 around 0 100.0%
Taylor expanded in c around inf 100.0%
mul-1-neg100.0%
distribute-rgt-neg-in100.0%
associate-*r*100.0%
distribute-lft-neg-in100.0%
*-commutative100.0%
distribute-rgt-neg-in100.0%
Simplified100.0%
Final simplification49.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y0 -3.6e+106)
(* k (* y5 (* y2 (- y0))))
(if (<= y0 -2.35e+58)
(* j (* x (* i y1)))
(if (<= y0 -7.5e-149)
(* y2 (* t (* a y5)))
(if (<= y0 -1.95e-180)
(* i (* y1 (* x j)))
(if (<= y0 -1.3e-281)
(* a (* t (* y2 y5)))
(if (<= y0 -2.55e-307)
(* i (* y (* k y5)))
(if (<= y0 6.8e-242)
(* y (* a (* x b)))
(if (<= y0 8.2e-162)
(* (- k) (* y1 (* z i)))
(if (<= y0 3.7e-135)
(* k (* y1 (* y2 y4)))
(if (<= y0 5.4e-61)
(* y0 (* y5 (* j y3)))
(if (<= y0 1.8e-55)
(* a (* (* x y) b))
(if (<= y0 4.6e+160)
(* y2 (* a (* t y5)))
(* z (* b (* k y0))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y0 <= -3.6e+106) {
tmp = k * (y5 * (y2 * -y0));
} else if (y0 <= -2.35e+58) {
tmp = j * (x * (i * y1));
} else if (y0 <= -7.5e-149) {
tmp = y2 * (t * (a * y5));
} else if (y0 <= -1.95e-180) {
tmp = i * (y1 * (x * j));
} else if (y0 <= -1.3e-281) {
tmp = a * (t * (y2 * y5));
} else if (y0 <= -2.55e-307) {
tmp = i * (y * (k * y5));
} else if (y0 <= 6.8e-242) {
tmp = y * (a * (x * b));
} else if (y0 <= 8.2e-162) {
tmp = -k * (y1 * (z * i));
} else if (y0 <= 3.7e-135) {
tmp = k * (y1 * (y2 * y4));
} else if (y0 <= 5.4e-61) {
tmp = y0 * (y5 * (j * y3));
} else if (y0 <= 1.8e-55) {
tmp = a * ((x * y) * b);
} else if (y0 <= 4.6e+160) {
tmp = y2 * (a * (t * y5));
} else {
tmp = z * (b * (k * y0));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y0 <= (-3.6d+106)) then
tmp = k * (y5 * (y2 * -y0))
else if (y0 <= (-2.35d+58)) then
tmp = j * (x * (i * y1))
else if (y0 <= (-7.5d-149)) then
tmp = y2 * (t * (a * y5))
else if (y0 <= (-1.95d-180)) then
tmp = i * (y1 * (x * j))
else if (y0 <= (-1.3d-281)) then
tmp = a * (t * (y2 * y5))
else if (y0 <= (-2.55d-307)) then
tmp = i * (y * (k * y5))
else if (y0 <= 6.8d-242) then
tmp = y * (a * (x * b))
else if (y0 <= 8.2d-162) then
tmp = -k * (y1 * (z * i))
else if (y0 <= 3.7d-135) then
tmp = k * (y1 * (y2 * y4))
else if (y0 <= 5.4d-61) then
tmp = y0 * (y5 * (j * y3))
else if (y0 <= 1.8d-55) then
tmp = a * ((x * y) * b)
else if (y0 <= 4.6d+160) then
tmp = y2 * (a * (t * y5))
else
tmp = z * (b * (k * y0))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y0 <= -3.6e+106) {
tmp = k * (y5 * (y2 * -y0));
} else if (y0 <= -2.35e+58) {
tmp = j * (x * (i * y1));
} else if (y0 <= -7.5e-149) {
tmp = y2 * (t * (a * y5));
} else if (y0 <= -1.95e-180) {
tmp = i * (y1 * (x * j));
} else if (y0 <= -1.3e-281) {
tmp = a * (t * (y2 * y5));
} else if (y0 <= -2.55e-307) {
tmp = i * (y * (k * y5));
} else if (y0 <= 6.8e-242) {
tmp = y * (a * (x * b));
} else if (y0 <= 8.2e-162) {
tmp = -k * (y1 * (z * i));
} else if (y0 <= 3.7e-135) {
tmp = k * (y1 * (y2 * y4));
} else if (y0 <= 5.4e-61) {
tmp = y0 * (y5 * (j * y3));
} else if (y0 <= 1.8e-55) {
tmp = a * ((x * y) * b);
} else if (y0 <= 4.6e+160) {
tmp = y2 * (a * (t * y5));
} else {
tmp = z * (b * (k * y0));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y0 <= -3.6e+106: tmp = k * (y5 * (y2 * -y0)) elif y0 <= -2.35e+58: tmp = j * (x * (i * y1)) elif y0 <= -7.5e-149: tmp = y2 * (t * (a * y5)) elif y0 <= -1.95e-180: tmp = i * (y1 * (x * j)) elif y0 <= -1.3e-281: tmp = a * (t * (y2 * y5)) elif y0 <= -2.55e-307: tmp = i * (y * (k * y5)) elif y0 <= 6.8e-242: tmp = y * (a * (x * b)) elif y0 <= 8.2e-162: tmp = -k * (y1 * (z * i)) elif y0 <= 3.7e-135: tmp = k * (y1 * (y2 * y4)) elif y0 <= 5.4e-61: tmp = y0 * (y5 * (j * y3)) elif y0 <= 1.8e-55: tmp = a * ((x * y) * b) elif y0 <= 4.6e+160: tmp = y2 * (a * (t * y5)) else: tmp = z * (b * (k * y0)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y0 <= -3.6e+106) tmp = Float64(k * Float64(y5 * Float64(y2 * Float64(-y0)))); elseif (y0 <= -2.35e+58) tmp = Float64(j * Float64(x * Float64(i * y1))); elseif (y0 <= -7.5e-149) tmp = Float64(y2 * Float64(t * Float64(a * y5))); elseif (y0 <= -1.95e-180) tmp = Float64(i * Float64(y1 * Float64(x * j))); elseif (y0 <= -1.3e-281) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (y0 <= -2.55e-307) tmp = Float64(i * Float64(y * Float64(k * y5))); elseif (y0 <= 6.8e-242) tmp = Float64(y * Float64(a * Float64(x * b))); elseif (y0 <= 8.2e-162) tmp = Float64(Float64(-k) * Float64(y1 * Float64(z * i))); elseif (y0 <= 3.7e-135) tmp = Float64(k * Float64(y1 * Float64(y2 * y4))); elseif (y0 <= 5.4e-61) tmp = Float64(y0 * Float64(y5 * Float64(j * y3))); elseif (y0 <= 1.8e-55) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (y0 <= 4.6e+160) tmp = Float64(y2 * Float64(a * Float64(t * y5))); else tmp = Float64(z * Float64(b * Float64(k * y0))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y0 <= -3.6e+106) tmp = k * (y5 * (y2 * -y0)); elseif (y0 <= -2.35e+58) tmp = j * (x * (i * y1)); elseif (y0 <= -7.5e-149) tmp = y2 * (t * (a * y5)); elseif (y0 <= -1.95e-180) tmp = i * (y1 * (x * j)); elseif (y0 <= -1.3e-281) tmp = a * (t * (y2 * y5)); elseif (y0 <= -2.55e-307) tmp = i * (y * (k * y5)); elseif (y0 <= 6.8e-242) tmp = y * (a * (x * b)); elseif (y0 <= 8.2e-162) tmp = -k * (y1 * (z * i)); elseif (y0 <= 3.7e-135) tmp = k * (y1 * (y2 * y4)); elseif (y0 <= 5.4e-61) tmp = y0 * (y5 * (j * y3)); elseif (y0 <= 1.8e-55) tmp = a * ((x * y) * b); elseif (y0 <= 4.6e+160) tmp = y2 * (a * (t * y5)); else tmp = z * (b * (k * y0)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y0, -3.6e+106], N[(k * N[(y5 * N[(y2 * (-y0)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -2.35e+58], N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -7.5e-149], N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -1.95e-180], N[(i * N[(y1 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -1.3e-281], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -2.55e-307], N[(i * N[(y * N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 6.8e-242], N[(y * N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 8.2e-162], N[((-k) * N[(y1 * N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 3.7e-135], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 5.4e-61], N[(y0 * N[(y5 * N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 1.8e-55], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 4.6e+160], N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y0 \leq -3.6 \cdot 10^{+106}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y2 \cdot \left(-y0\right)\right)\right)\\
\mathbf{elif}\;y0 \leq -2.35 \cdot 10^{+58}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{elif}\;y0 \leq -7.5 \cdot 10^{-149}:\\
\;\;\;\;y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq -1.95 \cdot 10^{-180}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j\right)\right)\\
\mathbf{elif}\;y0 \leq -1.3 \cdot 10^{-281}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq -2.55 \cdot 10^{-307}:\\
\;\;\;\;i \cdot \left(y \cdot \left(k \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq 6.8 \cdot 10^{-242}:\\
\;\;\;\;y \cdot \left(a \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;y0 \leq 8.2 \cdot 10^{-162}:\\
\;\;\;\;\left(-k\right) \cdot \left(y1 \cdot \left(z \cdot i\right)\right)\\
\mathbf{elif}\;y0 \leq 3.7 \cdot 10^{-135}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{elif}\;y0 \leq 5.4 \cdot 10^{-61}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3\right)\right)\\
\mathbf{elif}\;y0 \leq 1.8 \cdot 10^{-55}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;y0 \leq 4.6 \cdot 10^{+160}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
\end{array}
\end{array}
if y0 < -3.6000000000000001e106Initial program 35.1%
Taylor expanded in y0 around inf 61.8%
+-commutative61.8%
mul-1-neg61.8%
unsub-neg61.8%
*-commutative61.8%
*-commutative61.8%
*-commutative61.8%
*-commutative61.8%
Simplified61.8%
Taylor expanded in k around -inf 46.6%
associate-*r*41.6%
+-commutative41.6%
mul-1-neg41.6%
unsub-neg41.6%
*-commutative41.6%
Simplified41.6%
Taylor expanded in z around 0 41.4%
mul-1-neg41.4%
distribute-rgt-neg-in41.4%
associate-*r*41.5%
distribute-lft-neg-out41.5%
*-commutative41.5%
distribute-rgt-neg-in41.5%
Simplified41.5%
if -3.6000000000000001e106 < y0 < -2.34999999999999986e58Initial program 28.6%
Taylor expanded in x around inf 36.2%
Taylor expanded in j around inf 57.3%
Taylor expanded in i around inf 36.1%
if -2.34999999999999986e58 < y0 < -7.49999999999999995e-149Initial program 24.9%
Taylor expanded in y2 around inf 39.5%
Taylor expanded in t around inf 30.1%
Taylor expanded in a around inf 27.7%
*-commutative27.7%
Simplified27.7%
if -7.49999999999999995e-149 < y0 < -1.9500000000000001e-180Initial program 24.8%
Taylor expanded in x around inf 50.6%
Taylor expanded in j around inf 63.1%
Taylor expanded in i around inf 51.2%
associate-*r*63.2%
*-commutative63.2%
Simplified63.2%
if -1.9500000000000001e-180 < y0 < -1.30000000000000002e-281Initial program 23.9%
Taylor expanded in y2 around inf 53.7%
Taylor expanded in t around inf 48.2%
Taylor expanded in a around inf 37.0%
*-commutative37.0%
Simplified37.0%
if -1.30000000000000002e-281 < y0 < -2.55e-307Initial program 56.9%
Taylor expanded in y around inf 29.8%
+-commutative29.8%
mul-1-neg29.8%
unsub-neg29.8%
*-commutative29.8%
*-commutative29.8%
mul-1-neg29.8%
Simplified29.8%
Taylor expanded in y3 around 0 30.0%
Taylor expanded in y5 around inf 58.3%
associate-*r*58.5%
*-commutative58.5%
associate-*l*58.5%
Simplified58.5%
if -2.55e-307 < y0 < 6.8000000000000001e-242Initial program 29.8%
Taylor expanded in x around inf 51.3%
Taylor expanded in a around inf 50.4%
+-commutative50.4%
mul-1-neg50.4%
unsub-neg50.4%
Simplified50.4%
Taylor expanded in b around inf 32.3%
pow132.3%
associate-*r*32.3%
Applied egg-rr32.3%
unpow132.3%
associate-*r*50.6%
Simplified50.6%
if 6.8000000000000001e-242 < y0 < 8.20000000000000039e-162Initial program 38.9%
Taylor expanded in k around inf 55.5%
+-commutative55.5%
mul-1-neg55.5%
unsub-neg55.5%
*-commutative55.5%
associate-*r*55.5%
neg-mul-155.5%
Simplified55.5%
Taylor expanded in y1 around inf 33.3%
Taylor expanded in y2 around 0 33.4%
mul-1-neg33.4%
distribute-lft-neg-out33.4%
*-commutative33.4%
Simplified33.4%
if 8.20000000000000039e-162 < y0 < 3.6999999999999997e-135Initial program 0.0%
Taylor expanded in k around inf 25.5%
+-commutative25.5%
mul-1-neg25.5%
unsub-neg25.5%
*-commutative25.5%
associate-*r*25.5%
neg-mul-125.5%
Simplified25.5%
Taylor expanded in y1 around inf 38.9%
Taylor expanded in y2 around inf 51.2%
if 3.6999999999999997e-135 < y0 < 5.39999999999999987e-61Initial program 27.7%
Taylor expanded in y0 around inf 28.3%
+-commutative28.3%
mul-1-neg28.3%
unsub-neg28.3%
*-commutative28.3%
*-commutative28.3%
*-commutative28.3%
*-commutative28.3%
Simplified28.3%
Taylor expanded in y5 around inf 28.9%
Taylor expanded in j around inf 40.0%
if 5.39999999999999987e-61 < y0 < 1.8e-55Initial program 50.0%
Taylor expanded in x around inf 100.0%
Taylor expanded in a around inf 100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
Simplified100.0%
Taylor expanded in b around inf 100.0%
if 1.8e-55 < y0 < 4.59999999999999975e160Initial program 24.3%
Taylor expanded in y2 around inf 36.6%
Taylor expanded in t around inf 44.2%
Taylor expanded in a around inf 32.1%
*-commutative32.1%
Simplified32.1%
if 4.59999999999999975e160 < y0 Initial program 25.8%
Taylor expanded in y0 around inf 65.0%
+-commutative65.0%
mul-1-neg65.0%
unsub-neg65.0%
*-commutative65.0%
*-commutative65.0%
*-commutative65.0%
*-commutative65.0%
Simplified65.0%
Taylor expanded in k around -inf 61.6%
associate-*r*52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
Simplified52.7%
Taylor expanded in z around inf 49.2%
pow149.2%
Applied egg-rr49.2%
unpow149.2%
associate-*r*55.3%
associate-*r*58.4%
Simplified58.4%
Final simplification40.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* t (* y2 (- (* a y5) (* c y4)))))
(t_2 (* b (* y0 (- (* z k) (* x j))))))
(if (<= y -6e+211)
(* x (* y (- (* a b) (* c i))))
(if (<= y -2.45e+120)
(* i (* k (- (* y y5) (* z y1))))
(if (<= y -1.56e+63)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y -1e+44)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y -6.4e+20)
t_1
(if (<= y -1.75e-90)
t_2
(if (<= y 4.5e-264)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= y 1.45e-136)
(* y0 (* y2 (- (* x c) (* k y5))))
(if (<= y 1.7e-71)
t_2
(if (<= y 8.2e-61)
t_1
(if (<= y 4.8e+113)
(* x (* y0 (- (* c y2) (* b j))))
(* y (* y3 (- (* c y4) (* a y5)))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = b * (y0 * ((z * k) - (x * j)));
double tmp;
if (y <= -6e+211) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -2.45e+120) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -1.56e+63) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y <= -1e+44) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y <= -6.4e+20) {
tmp = t_1;
} else if (y <= -1.75e-90) {
tmp = t_2;
} else if (y <= 4.5e-264) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y <= 1.45e-136) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y <= 1.7e-71) {
tmp = t_2;
} else if (y <= 8.2e-61) {
tmp = t_1;
} else if (y <= 4.8e+113) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else {
tmp = y * (y3 * ((c * y4) - (a * y5)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = t * (y2 * ((a * y5) - (c * y4)))
t_2 = b * (y0 * ((z * k) - (x * j)))
if (y <= (-6d+211)) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y <= (-2.45d+120)) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (y <= (-1.56d+63)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y <= (-1d+44)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y <= (-6.4d+20)) then
tmp = t_1
else if (y <= (-1.75d-90)) then
tmp = t_2
else if (y <= 4.5d-264) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (y <= 1.45d-136) then
tmp = y0 * (y2 * ((x * c) - (k * y5)))
else if (y <= 1.7d-71) then
tmp = t_2
else if (y <= 8.2d-61) then
tmp = t_1
else if (y <= 4.8d+113) then
tmp = x * (y0 * ((c * y2) - (b * j)))
else
tmp = y * (y3 * ((c * y4) - (a * y5)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double t_2 = b * (y0 * ((z * k) - (x * j)));
double tmp;
if (y <= -6e+211) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -2.45e+120) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -1.56e+63) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y <= -1e+44) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y <= -6.4e+20) {
tmp = t_1;
} else if (y <= -1.75e-90) {
tmp = t_2;
} else if (y <= 4.5e-264) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y <= 1.45e-136) {
tmp = y0 * (y2 * ((x * c) - (k * y5)));
} else if (y <= 1.7e-71) {
tmp = t_2;
} else if (y <= 8.2e-61) {
tmp = t_1;
} else if (y <= 4.8e+113) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else {
tmp = y * (y3 * ((c * y4) - (a * y5)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = t * (y2 * ((a * y5) - (c * y4))) t_2 = b * (y0 * ((z * k) - (x * j))) tmp = 0 if y <= -6e+211: tmp = x * (y * ((a * b) - (c * i))) elif y <= -2.45e+120: tmp = i * (k * ((y * y5) - (z * y1))) elif y <= -1.56e+63: tmp = b * (y4 * ((t * j) - (y * k))) elif y <= -1e+44: tmp = k * (z * ((b * y0) - (i * y1))) elif y <= -6.4e+20: tmp = t_1 elif y <= -1.75e-90: tmp = t_2 elif y <= 4.5e-264: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif y <= 1.45e-136: tmp = y0 * (y2 * ((x * c) - (k * y5))) elif y <= 1.7e-71: tmp = t_2 elif y <= 8.2e-61: tmp = t_1 elif y <= 4.8e+113: tmp = x * (y0 * ((c * y2) - (b * j))) else: tmp = y * (y3 * ((c * y4) - (a * y5))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))) t_2 = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))) tmp = 0.0 if (y <= -6e+211) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y <= -2.45e+120) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (y <= -1.56e+63) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y <= -1e+44) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y <= -6.4e+20) tmp = t_1; elseif (y <= -1.75e-90) tmp = t_2; elseif (y <= 4.5e-264) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y <= 1.45e-136) tmp = Float64(y0 * Float64(y2 * Float64(Float64(x * c) - Float64(k * y5)))); elseif (y <= 1.7e-71) tmp = t_2; elseif (y <= 8.2e-61) tmp = t_1; elseif (y <= 4.8e+113) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); else tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = t * (y2 * ((a * y5) - (c * y4))); t_2 = b * (y0 * ((z * k) - (x * j))); tmp = 0.0; if (y <= -6e+211) tmp = x * (y * ((a * b) - (c * i))); elseif (y <= -2.45e+120) tmp = i * (k * ((y * y5) - (z * y1))); elseif (y <= -1.56e+63) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y <= -1e+44) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y <= -6.4e+20) tmp = t_1; elseif (y <= -1.75e-90) tmp = t_2; elseif (y <= 4.5e-264) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (y <= 1.45e-136) tmp = y0 * (y2 * ((x * c) - (k * y5))); elseif (y <= 1.7e-71) tmp = t_2; elseif (y <= 8.2e-61) tmp = t_1; elseif (y <= 4.8e+113) tmp = x * (y0 * ((c * y2) - (b * j))); else tmp = y * (y3 * ((c * y4) - (a * y5))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -6e+211], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.45e+120], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.56e+63], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1e+44], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -6.4e+20], t$95$1, If[LessEqual[y, -1.75e-90], t$95$2, If[LessEqual[y, 4.5e-264], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.45e-136], N[(y0 * N[(y2 * N[(N[(x * c), $MachinePrecision] - N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.7e-71], t$95$2, If[LessEqual[y, 8.2e-61], t$95$1, If[LessEqual[y, 4.8e+113], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
t_2 := b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{if}\;y \leq -6 \cdot 10^{+211}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y \leq -2.45 \cdot 10^{+120}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -1.56 \cdot 10^{+63}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y \leq -1 \cdot 10^{+44}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -6.4 \cdot 10^{+20}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -1.75 \cdot 10^{-90}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 4.5 \cdot 10^{-264}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y \leq 1.45 \cdot 10^{-136}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c - k \cdot y5\right)\right)\\
\mathbf{elif}\;y \leq 1.7 \cdot 10^{-71}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 8.2 \cdot 10^{-61}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{+113}:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\end{array}
\end{array}
if y < -6e211Initial program 13.3%
Taylor expanded in x around inf 80.0%
Taylor expanded in y around inf 74.1%
if -6e211 < y < -2.45000000000000005e120Initial program 21.1%
Taylor expanded in k around inf 52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
associate-*r*52.7%
neg-mul-152.7%
Simplified52.7%
Taylor expanded in i around -inf 58.3%
+-commutative58.3%
mul-1-neg58.3%
unsub-neg58.3%
Simplified58.3%
if -2.45000000000000005e120 < y < -1.56e63Initial program 39.8%
Taylor expanded in b around inf 70.0%
Taylor expanded in y4 around inf 50.9%
if -1.56e63 < y < -1.0000000000000001e44Initial program 71.4%
Taylor expanded in k around inf 71.2%
+-commutative71.2%
mul-1-neg71.2%
unsub-neg71.2%
*-commutative71.2%
associate-*r*71.2%
neg-mul-171.2%
Simplified71.2%
Taylor expanded in z around inf 86.1%
if -1.0000000000000001e44 < y < -6.4e20 or 1.70000000000000002e-71 < y < 8.19999999999999998e-61Initial program 22.9%
Taylor expanded in y2 around inf 44.7%
Taylor expanded in t around inf 67.1%
if -6.4e20 < y < -1.7499999999999999e-90 or 1.44999999999999997e-136 < y < 1.70000000000000002e-71Initial program 32.4%
Taylor expanded in b around inf 44.0%
Taylor expanded in y0 around inf 44.8%
if -1.7499999999999999e-90 < y < 4.5000000000000001e-264Initial program 31.8%
Taylor expanded in y2 around inf 42.2%
Taylor expanded in k around inf 34.5%
if 4.5000000000000001e-264 < y < 1.44999999999999997e-136Initial program 19.3%
Taylor expanded in y2 around inf 49.5%
Taylor expanded in y0 around inf 49.3%
+-commutative49.3%
mul-1-neg49.3%
unsub-neg49.3%
Simplified49.3%
if 8.19999999999999998e-61 < y < 4.79999999999999966e113Initial program 22.4%
Taylor expanded in x around inf 39.5%
Taylor expanded in y0 around inf 53.5%
if 4.79999999999999966e113 < y Initial program 28.0%
Taylor expanded in y around inf 63.9%
+-commutative63.9%
mul-1-neg63.9%
unsub-neg63.9%
*-commutative63.9%
*-commutative63.9%
mul-1-neg63.9%
Simplified63.9%
Taylor expanded in y3 around inf 45.2%
Final simplification49.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* t (* y2 (- (* a y5) (* c y4))))))
(if (<= y -5.2e+206)
(* x (* y (- (* a b) (* c i))))
(if (<= y -7.6e+119)
(* i (* k (- (* y y5) (* z y1))))
(if (<= y -3.2e+66)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y -4.2e+41)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y -7.8e+20)
t_1
(if (<= y -5.1e-90)
(* b (* y0 (- (* z k) (* x j))))
(if (<= y 6e-151)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= y 1.2e-124)
(* b (* x (- (* y a) (* j y0))))
(if (<= y 2.8e-90)
(* z (* b (* k y0)))
(if (<= y 1.85e-31)
t_1
(if (<= y 2.7e+100)
(* x (* y0 (- (* c y2) (* b j))))
(* y (* y3 (- (* c y4) (* a y5)))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double tmp;
if (y <= -5.2e+206) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -7.6e+119) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -3.2e+66) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y <= -4.2e+41) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y <= -7.8e+20) {
tmp = t_1;
} else if (y <= -5.1e-90) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y <= 6e-151) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y <= 1.2e-124) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y <= 2.8e-90) {
tmp = z * (b * (k * y0));
} else if (y <= 1.85e-31) {
tmp = t_1;
} else if (y <= 2.7e+100) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else {
tmp = y * (y3 * ((c * y4) - (a * y5)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = t * (y2 * ((a * y5) - (c * y4)))
if (y <= (-5.2d+206)) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y <= (-7.6d+119)) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (y <= (-3.2d+66)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y <= (-4.2d+41)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y <= (-7.8d+20)) then
tmp = t_1
else if (y <= (-5.1d-90)) then
tmp = b * (y0 * ((z * k) - (x * j)))
else if (y <= 6d-151) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (y <= 1.2d-124) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (y <= 2.8d-90) then
tmp = z * (b * (k * y0))
else if (y <= 1.85d-31) then
tmp = t_1
else if (y <= 2.7d+100) then
tmp = x * (y0 * ((c * y2) - (b * j)))
else
tmp = y * (y3 * ((c * y4) - (a * y5)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double tmp;
if (y <= -5.2e+206) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -7.6e+119) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -3.2e+66) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y <= -4.2e+41) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y <= -7.8e+20) {
tmp = t_1;
} else if (y <= -5.1e-90) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y <= 6e-151) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y <= 1.2e-124) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (y <= 2.8e-90) {
tmp = z * (b * (k * y0));
} else if (y <= 1.85e-31) {
tmp = t_1;
} else if (y <= 2.7e+100) {
tmp = x * (y0 * ((c * y2) - (b * j)));
} else {
tmp = y * (y3 * ((c * y4) - (a * y5)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = t * (y2 * ((a * y5) - (c * y4))) tmp = 0 if y <= -5.2e+206: tmp = x * (y * ((a * b) - (c * i))) elif y <= -7.6e+119: tmp = i * (k * ((y * y5) - (z * y1))) elif y <= -3.2e+66: tmp = b * (y4 * ((t * j) - (y * k))) elif y <= -4.2e+41: tmp = k * (z * ((b * y0) - (i * y1))) elif y <= -7.8e+20: tmp = t_1 elif y <= -5.1e-90: tmp = b * (y0 * ((z * k) - (x * j))) elif y <= 6e-151: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif y <= 1.2e-124: tmp = b * (x * ((y * a) - (j * y0))) elif y <= 2.8e-90: tmp = z * (b * (k * y0)) elif y <= 1.85e-31: tmp = t_1 elif y <= 2.7e+100: tmp = x * (y0 * ((c * y2) - (b * j))) else: tmp = y * (y3 * ((c * y4) - (a * y5))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))) tmp = 0.0 if (y <= -5.2e+206) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y <= -7.6e+119) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (y <= -3.2e+66) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y <= -4.2e+41) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y <= -7.8e+20) tmp = t_1; elseif (y <= -5.1e-90) tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); elseif (y <= 6e-151) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y <= 1.2e-124) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (y <= 2.8e-90) tmp = Float64(z * Float64(b * Float64(k * y0))); elseif (y <= 1.85e-31) tmp = t_1; elseif (y <= 2.7e+100) tmp = Float64(x * Float64(y0 * Float64(Float64(c * y2) - Float64(b * j)))); else tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = t * (y2 * ((a * y5) - (c * y4))); tmp = 0.0; if (y <= -5.2e+206) tmp = x * (y * ((a * b) - (c * i))); elseif (y <= -7.6e+119) tmp = i * (k * ((y * y5) - (z * y1))); elseif (y <= -3.2e+66) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y <= -4.2e+41) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y <= -7.8e+20) tmp = t_1; elseif (y <= -5.1e-90) tmp = b * (y0 * ((z * k) - (x * j))); elseif (y <= 6e-151) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (y <= 1.2e-124) tmp = b * (x * ((y * a) - (j * y0))); elseif (y <= 2.8e-90) tmp = z * (b * (k * y0)); elseif (y <= 1.85e-31) tmp = t_1; elseif (y <= 2.7e+100) tmp = x * (y0 * ((c * y2) - (b * j))); else tmp = y * (y3 * ((c * y4) - (a * y5))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -5.2e+206], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -7.6e+119], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -3.2e+66], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -4.2e+41], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -7.8e+20], t$95$1, If[LessEqual[y, -5.1e-90], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 6e-151], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.2e-124], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.8e-90], N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.85e-31], t$95$1, If[LessEqual[y, 2.7e+100], N[(x * N[(y0 * N[(N[(c * y2), $MachinePrecision] - N[(b * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{if}\;y \leq -5.2 \cdot 10^{+206}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y \leq -7.6 \cdot 10^{+119}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -3.2 \cdot 10^{+66}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y \leq -4.2 \cdot 10^{+41}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -7.8 \cdot 10^{+20}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -5.1 \cdot 10^{-90}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y \leq 6 \cdot 10^{-151}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y \leq 1.2 \cdot 10^{-124}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;y \leq 2.8 \cdot 10^{-90}:\\
\;\;\;\;z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;y \leq 1.85 \cdot 10^{-31}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 2.7 \cdot 10^{+100}:\\
\;\;\;\;x \cdot \left(y0 \cdot \left(c \cdot y2 - b \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\end{array}
\end{array}
if y < -5.19999999999999977e206Initial program 13.3%
Taylor expanded in x around inf 80.0%
Taylor expanded in y around inf 74.1%
if -5.19999999999999977e206 < y < -7.59999999999999979e119Initial program 21.1%
Taylor expanded in k around inf 52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
associate-*r*52.7%
neg-mul-152.7%
Simplified52.7%
Taylor expanded in i around -inf 58.3%
+-commutative58.3%
mul-1-neg58.3%
unsub-neg58.3%
Simplified58.3%
if -7.59999999999999979e119 < y < -3.2e66Initial program 39.8%
Taylor expanded in b around inf 70.0%
Taylor expanded in y4 around inf 50.9%
if -3.2e66 < y < -4.1999999999999999e41Initial program 71.4%
Taylor expanded in k around inf 71.2%
+-commutative71.2%
mul-1-neg71.2%
unsub-neg71.2%
*-commutative71.2%
associate-*r*71.2%
neg-mul-171.2%
Simplified71.2%
Taylor expanded in z around inf 86.1%
if -4.1999999999999999e41 < y < -7.8e20 or 2.7999999999999999e-90 < y < 1.8499999999999999e-31Initial program 24.4%
Taylor expanded in y2 around inf 48.0%
Taylor expanded in t around inf 48.5%
if -7.8e20 < y < -5.0999999999999997e-90Initial program 28.6%
Taylor expanded in b around inf 39.0%
Taylor expanded in y0 around inf 39.5%
if -5.0999999999999997e-90 < y < 6e-151Initial program 29.6%
Taylor expanded in y2 around inf 44.8%
Taylor expanded in k around inf 36.6%
if 6e-151 < y < 1.19999999999999996e-124Initial program 30.0%
Taylor expanded in b around inf 40.3%
Taylor expanded in x around inf 51.2%
if 1.19999999999999996e-124 < y < 2.7999999999999999e-90Initial program 20.0%
Taylor expanded in y0 around inf 22.2%
+-commutative22.2%
mul-1-neg22.2%
unsub-neg22.2%
*-commutative22.2%
*-commutative22.2%
*-commutative22.2%
*-commutative22.2%
Simplified22.2%
Taylor expanded in k around -inf 82.2%
associate-*r*82.2%
+-commutative82.2%
mul-1-neg82.2%
unsub-neg82.2%
*-commutative82.2%
Simplified82.2%
Taylor expanded in z around inf 63.0%
pow163.0%
Applied egg-rr63.0%
unpow163.0%
associate-*r*82.2%
associate-*r*100.0%
Simplified100.0%
if 1.8499999999999999e-31 < y < 2.69999999999999998e100Initial program 21.4%
Taylor expanded in x around inf 39.8%
Taylor expanded in y0 around inf 50.8%
if 2.69999999999999998e100 < y Initial program 29.2%
Taylor expanded in y around inf 60.6%
+-commutative60.6%
mul-1-neg60.6%
unsub-neg60.6%
*-commutative60.6%
*-commutative60.6%
mul-1-neg60.6%
Simplified60.6%
Taylor expanded in y3 around inf 42.8%
Final simplification47.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y0 (- (* z k) (* x j)))))
(t_2 (* c (* y0 (- (* x y2) (* z y3)))))
(t_3 (* k (* z (- (* b y0) (* i y1))))))
(if (<= c -1.55e+59)
t_2
(if (<= c -4800000.0)
t_1
(if (<= c -1.25e-61)
(* b (* t (- (* j y4) (* z a))))
(if (<= c -4.3e-100)
(* j (* y0 (* y3 y5)))
(if (<= c -5.1e-258)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= c 3.2e-267)
t_3
(if (<= c 1.2e-176)
(* i (* k (- (* y y5) (* z y1))))
(if (<= c 1.85e-170)
(* b (* (* y k) (- y4)))
(if (<= c 4e-18)
t_1
(if (<= c 1.25e-15)
(* a (* (* x y) b))
(if (<= c 1.3e+232) t_3 t_2)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y0 * ((z * k) - (x * j)));
double t_2 = c * (y0 * ((x * y2) - (z * y3)));
double t_3 = k * (z * ((b * y0) - (i * y1)));
double tmp;
if (c <= -1.55e+59) {
tmp = t_2;
} else if (c <= -4800000.0) {
tmp = t_1;
} else if (c <= -1.25e-61) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (c <= -4.3e-100) {
tmp = j * (y0 * (y3 * y5));
} else if (c <= -5.1e-258) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (c <= 3.2e-267) {
tmp = t_3;
} else if (c <= 1.2e-176) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= 1.85e-170) {
tmp = b * ((y * k) * -y4);
} else if (c <= 4e-18) {
tmp = t_1;
} else if (c <= 1.25e-15) {
tmp = a * ((x * y) * b);
} else if (c <= 1.3e+232) {
tmp = t_3;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = b * (y0 * ((z * k) - (x * j)))
t_2 = c * (y0 * ((x * y2) - (z * y3)))
t_3 = k * (z * ((b * y0) - (i * y1)))
if (c <= (-1.55d+59)) then
tmp = t_2
else if (c <= (-4800000.0d0)) then
tmp = t_1
else if (c <= (-1.25d-61)) then
tmp = b * (t * ((j * y4) - (z * a)))
else if (c <= (-4.3d-100)) then
tmp = j * (y0 * (y3 * y5))
else if (c <= (-5.1d-258)) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (c <= 3.2d-267) then
tmp = t_3
else if (c <= 1.2d-176) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (c <= 1.85d-170) then
tmp = b * ((y * k) * -y4)
else if (c <= 4d-18) then
tmp = t_1
else if (c <= 1.25d-15) then
tmp = a * ((x * y) * b)
else if (c <= 1.3d+232) then
tmp = t_3
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y0 * ((z * k) - (x * j)));
double t_2 = c * (y0 * ((x * y2) - (z * y3)));
double t_3 = k * (z * ((b * y0) - (i * y1)));
double tmp;
if (c <= -1.55e+59) {
tmp = t_2;
} else if (c <= -4800000.0) {
tmp = t_1;
} else if (c <= -1.25e-61) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (c <= -4.3e-100) {
tmp = j * (y0 * (y3 * y5));
} else if (c <= -5.1e-258) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (c <= 3.2e-267) {
tmp = t_3;
} else if (c <= 1.2e-176) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= 1.85e-170) {
tmp = b * ((y * k) * -y4);
} else if (c <= 4e-18) {
tmp = t_1;
} else if (c <= 1.25e-15) {
tmp = a * ((x * y) * b);
} else if (c <= 1.3e+232) {
tmp = t_3;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (y0 * ((z * k) - (x * j))) t_2 = c * (y0 * ((x * y2) - (z * y3))) t_3 = k * (z * ((b * y0) - (i * y1))) tmp = 0 if c <= -1.55e+59: tmp = t_2 elif c <= -4800000.0: tmp = t_1 elif c <= -1.25e-61: tmp = b * (t * ((j * y4) - (z * a))) elif c <= -4.3e-100: tmp = j * (y0 * (y3 * y5)) elif c <= -5.1e-258: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif c <= 3.2e-267: tmp = t_3 elif c <= 1.2e-176: tmp = i * (k * ((y * y5) - (z * y1))) elif c <= 1.85e-170: tmp = b * ((y * k) * -y4) elif c <= 4e-18: tmp = t_1 elif c <= 1.25e-15: tmp = a * ((x * y) * b) elif c <= 1.3e+232: tmp = t_3 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))) t_2 = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))) t_3 = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))) tmp = 0.0 if (c <= -1.55e+59) tmp = t_2; elseif (c <= -4800000.0) tmp = t_1; elseif (c <= -1.25e-61) tmp = Float64(b * Float64(t * Float64(Float64(j * y4) - Float64(z * a)))); elseif (c <= -4.3e-100) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (c <= -5.1e-258) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (c <= 3.2e-267) tmp = t_3; elseif (c <= 1.2e-176) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (c <= 1.85e-170) tmp = Float64(b * Float64(Float64(y * k) * Float64(-y4))); elseif (c <= 4e-18) tmp = t_1; elseif (c <= 1.25e-15) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (c <= 1.3e+232) tmp = t_3; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (y0 * ((z * k) - (x * j))); t_2 = c * (y0 * ((x * y2) - (z * y3))); t_3 = k * (z * ((b * y0) - (i * y1))); tmp = 0.0; if (c <= -1.55e+59) tmp = t_2; elseif (c <= -4800000.0) tmp = t_1; elseif (c <= -1.25e-61) tmp = b * (t * ((j * y4) - (z * a))); elseif (c <= -4.3e-100) tmp = j * (y0 * (y3 * y5)); elseif (c <= -5.1e-258) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (c <= 3.2e-267) tmp = t_3; elseif (c <= 1.2e-176) tmp = i * (k * ((y * y5) - (z * y1))); elseif (c <= 1.85e-170) tmp = b * ((y * k) * -y4); elseif (c <= 4e-18) tmp = t_1; elseif (c <= 1.25e-15) tmp = a * ((x * y) * b); elseif (c <= 1.3e+232) tmp = t_3; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -1.55e+59], t$95$2, If[LessEqual[c, -4800000.0], t$95$1, If[LessEqual[c, -1.25e-61], N[(b * N[(t * N[(N[(j * y4), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -4.3e-100], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -5.1e-258], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 3.2e-267], t$95$3, If[LessEqual[c, 1.2e-176], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.85e-170], N[(b * N[(N[(y * k), $MachinePrecision] * (-y4)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 4e-18], t$95$1, If[LessEqual[c, 1.25e-15], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.3e+232], t$95$3, t$95$2]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
t_2 := c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
t_3 := k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{if}\;c \leq -1.55 \cdot 10^{+59}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq -4800000:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -1.25 \cdot 10^{-61}:\\
\;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4 - z \cdot a\right)\right)\\
\mathbf{elif}\;c \leq -4.3 \cdot 10^{-100}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;c \leq -5.1 \cdot 10^{-258}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;c \leq 3.2 \cdot 10^{-267}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq 1.2 \cdot 10^{-176}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;c \leq 1.85 \cdot 10^{-170}:\\
\;\;\;\;b \cdot \left(\left(y \cdot k\right) \cdot \left(-y4\right)\right)\\
\mathbf{elif}\;c \leq 4 \cdot 10^{-18}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 1.25 \cdot 10^{-15}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;c \leq 1.3 \cdot 10^{+232}:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if c < -1.55000000000000007e59 or 1.29999999999999987e232 < c Initial program 18.3%
Taylor expanded in y0 around inf 48.7%
+-commutative48.7%
mul-1-neg48.7%
unsub-neg48.7%
*-commutative48.7%
*-commutative48.7%
*-commutative48.7%
*-commutative48.7%
Simplified48.7%
Taylor expanded in c around inf 44.8%
*-commutative44.8%
Simplified44.8%
if -1.55000000000000007e59 < c < -4.8e6 or 1.85e-170 < c < 4.0000000000000003e-18Initial program 31.8%
Taylor expanded in b around inf 34.4%
Taylor expanded in y0 around inf 41.9%
if -4.8e6 < c < -1.25e-61Initial program 26.7%
Taylor expanded in b around inf 53.6%
Taylor expanded in t around inf 60.2%
+-commutative60.2%
mul-1-neg60.2%
unsub-neg60.2%
Simplified60.2%
if -1.25e-61 < c < -4.29999999999999998e-100Initial program 16.7%
Taylor expanded in y0 around inf 33.7%
+-commutative33.7%
mul-1-neg33.7%
unsub-neg33.7%
*-commutative33.7%
*-commutative33.7%
*-commutative33.7%
*-commutative33.7%
Simplified33.7%
Taylor expanded in y5 around inf 17.8%
Taylor expanded in j around inf 67.2%
*-commutative67.2%
*-commutative67.2%
Simplified67.2%
if -4.29999999999999998e-100 < c < -5.0999999999999997e-258Initial program 30.2%
Taylor expanded in y2 around inf 52.9%
Taylor expanded in k around inf 51.1%
if -5.0999999999999997e-258 < c < 3.19999999999999986e-267 or 1.25e-15 < c < 1.29999999999999987e232Initial program 25.2%
Taylor expanded in k around inf 35.6%
+-commutative35.6%
mul-1-neg35.6%
unsub-neg35.6%
*-commutative35.6%
associate-*r*35.6%
neg-mul-135.6%
Simplified35.6%
Taylor expanded in z around inf 38.0%
if 3.19999999999999986e-267 < c < 1.20000000000000003e-176Initial program 43.4%
Taylor expanded in k around inf 43.7%
+-commutative43.7%
mul-1-neg43.7%
unsub-neg43.7%
*-commutative43.7%
associate-*r*43.7%
neg-mul-143.7%
Simplified43.7%
Taylor expanded in i around -inf 44.1%
+-commutative44.1%
mul-1-neg44.1%
unsub-neg44.1%
Simplified44.1%
if 1.20000000000000003e-176 < c < 1.85e-170Initial program 74.6%
Taylor expanded in b around inf 100.0%
Taylor expanded in y4 around inf 75.4%
Taylor expanded in j around 0 75.4%
neg-mul-175.4%
distribute-lft-neg-in75.4%
*-commutative75.4%
Simplified75.4%
if 4.0000000000000003e-18 < c < 1.25e-15Initial program 49.2%
Taylor expanded in x around inf 94.3%
Taylor expanded in a around inf 51.4%
+-commutative51.4%
mul-1-neg51.4%
unsub-neg51.4%
Simplified51.4%
Taylor expanded in b around inf 94.4%
Final simplification45.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* x (- (* i y1) (* b y0)))))
(t_2 (* i (* k (- (* y y5) (* z y1))))))
(if (<= y5 -8.6e+161)
(* a (* t (* y2 y5)))
(if (<= y5 -1.08e+107)
t_2
(if (<= y5 -9e-98)
(* b (* y0 (- (* z k) (* x j))))
(if (<= y5 1.22e-117)
t_1
(if (<= y5 2.7e-69)
t_2
(if (<= y5 2.1e-30)
(* b (* k (* z y0)))
(if (<= y5 3e+81)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y5 2.85e+96)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= y5 3.4e+135)
t_1
(if (<= y5 2.8e+160)
(* y1 (* (* x a) (- y2)))
(if (<= y5 7.8e+233)
(* y2 (* a (* t y5)))
(* b (* t (- (* j y4) (* z a)))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (x * ((i * y1) - (b * y0)));
double t_2 = i * (k * ((y * y5) - (z * y1)));
double tmp;
if (y5 <= -8.6e+161) {
tmp = a * (t * (y2 * y5));
} else if (y5 <= -1.08e+107) {
tmp = t_2;
} else if (y5 <= -9e-98) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y5 <= 1.22e-117) {
tmp = t_1;
} else if (y5 <= 2.7e-69) {
tmp = t_2;
} else if (y5 <= 2.1e-30) {
tmp = b * (k * (z * y0));
} else if (y5 <= 3e+81) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y5 <= 2.85e+96) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (y5 <= 3.4e+135) {
tmp = t_1;
} else if (y5 <= 2.8e+160) {
tmp = y1 * ((x * a) * -y2);
} else if (y5 <= 7.8e+233) {
tmp = y2 * (a * (t * y5));
} else {
tmp = b * (t * ((j * y4) - (z * a)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = j * (x * ((i * y1) - (b * y0)))
t_2 = i * (k * ((y * y5) - (z * y1)))
if (y5 <= (-8.6d+161)) then
tmp = a * (t * (y2 * y5))
else if (y5 <= (-1.08d+107)) then
tmp = t_2
else if (y5 <= (-9d-98)) then
tmp = b * (y0 * ((z * k) - (x * j)))
else if (y5 <= 1.22d-117) then
tmp = t_1
else if (y5 <= 2.7d-69) then
tmp = t_2
else if (y5 <= 2.1d-30) then
tmp = b * (k * (z * y0))
else if (y5 <= 3d+81) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y5 <= 2.85d+96) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (y5 <= 3.4d+135) then
tmp = t_1
else if (y5 <= 2.8d+160) then
tmp = y1 * ((x * a) * -y2)
else if (y5 <= 7.8d+233) then
tmp = y2 * (a * (t * y5))
else
tmp = b * (t * ((j * y4) - (z * a)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (x * ((i * y1) - (b * y0)));
double t_2 = i * (k * ((y * y5) - (z * y1)));
double tmp;
if (y5 <= -8.6e+161) {
tmp = a * (t * (y2 * y5));
} else if (y5 <= -1.08e+107) {
tmp = t_2;
} else if (y5 <= -9e-98) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y5 <= 1.22e-117) {
tmp = t_1;
} else if (y5 <= 2.7e-69) {
tmp = t_2;
} else if (y5 <= 2.1e-30) {
tmp = b * (k * (z * y0));
} else if (y5 <= 3e+81) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y5 <= 2.85e+96) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (y5 <= 3.4e+135) {
tmp = t_1;
} else if (y5 <= 2.8e+160) {
tmp = y1 * ((x * a) * -y2);
} else if (y5 <= 7.8e+233) {
tmp = y2 * (a * (t * y5));
} else {
tmp = b * (t * ((j * y4) - (z * a)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (x * ((i * y1) - (b * y0))) t_2 = i * (k * ((y * y5) - (z * y1))) tmp = 0 if y5 <= -8.6e+161: tmp = a * (t * (y2 * y5)) elif y5 <= -1.08e+107: tmp = t_2 elif y5 <= -9e-98: tmp = b * (y0 * ((z * k) - (x * j))) elif y5 <= 1.22e-117: tmp = t_1 elif y5 <= 2.7e-69: tmp = t_2 elif y5 <= 2.1e-30: tmp = b * (k * (z * y0)) elif y5 <= 3e+81: tmp = b * (y4 * ((t * j) - (y * k))) elif y5 <= 2.85e+96: tmp = a * (x * ((y * b) - (y1 * y2))) elif y5 <= 3.4e+135: tmp = t_1 elif y5 <= 2.8e+160: tmp = y1 * ((x * a) * -y2) elif y5 <= 7.8e+233: tmp = y2 * (a * (t * y5)) else: tmp = b * (t * ((j * y4) - (z * a))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))) t_2 = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))) tmp = 0.0 if (y5 <= -8.6e+161) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (y5 <= -1.08e+107) tmp = t_2; elseif (y5 <= -9e-98) tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); elseif (y5 <= 1.22e-117) tmp = t_1; elseif (y5 <= 2.7e-69) tmp = t_2; elseif (y5 <= 2.1e-30) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (y5 <= 3e+81) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y5 <= 2.85e+96) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (y5 <= 3.4e+135) tmp = t_1; elseif (y5 <= 2.8e+160) tmp = Float64(y1 * Float64(Float64(x * a) * Float64(-y2))); elseif (y5 <= 7.8e+233) tmp = Float64(y2 * Float64(a * Float64(t * y5))); else tmp = Float64(b * Float64(t * Float64(Float64(j * y4) - Float64(z * a)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * (x * ((i * y1) - (b * y0))); t_2 = i * (k * ((y * y5) - (z * y1))); tmp = 0.0; if (y5 <= -8.6e+161) tmp = a * (t * (y2 * y5)); elseif (y5 <= -1.08e+107) tmp = t_2; elseif (y5 <= -9e-98) tmp = b * (y0 * ((z * k) - (x * j))); elseif (y5 <= 1.22e-117) tmp = t_1; elseif (y5 <= 2.7e-69) tmp = t_2; elseif (y5 <= 2.1e-30) tmp = b * (k * (z * y0)); elseif (y5 <= 3e+81) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y5 <= 2.85e+96) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (y5 <= 3.4e+135) tmp = t_1; elseif (y5 <= 2.8e+160) tmp = y1 * ((x * a) * -y2); elseif (y5 <= 7.8e+233) tmp = y2 * (a * (t * y5)); else tmp = b * (t * ((j * y4) - (z * a))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -8.6e+161], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.08e+107], t$95$2, If[LessEqual[y5, -9e-98], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.22e-117], t$95$1, If[LessEqual[y5, 2.7e-69], t$95$2, If[LessEqual[y5, 2.1e-30], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 3e+81], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.85e+96], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 3.4e+135], t$95$1, If[LessEqual[y5, 2.8e+160], N[(y1 * N[(N[(x * a), $MachinePrecision] * (-y2)), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 7.8e+233], N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(t * N[(N[(j * y4), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
t_2 := i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{if}\;y5 \leq -8.6 \cdot 10^{+161}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq -1.08 \cdot 10^{+107}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y5 \leq -9 \cdot 10^{-98}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y5 \leq 1.22 \cdot 10^{-117}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 2.7 \cdot 10^{-69}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y5 \leq 2.1 \cdot 10^{-30}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;y5 \leq 3 \cdot 10^{+81}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y5 \leq 2.85 \cdot 10^{+96}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;y5 \leq 3.4 \cdot 10^{+135}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 2.8 \cdot 10^{+160}:\\
\;\;\;\;y1 \cdot \left(\left(x \cdot a\right) \cdot \left(-y2\right)\right)\\
\mathbf{elif}\;y5 \leq 7.8 \cdot 10^{+233}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4 - z \cdot a\right)\right)\\
\end{array}
\end{array}
if y5 < -8.6e161Initial program 21.6%
Taylor expanded in y2 around inf 46.0%
Taylor expanded in t around inf 49.8%
Taylor expanded in a around inf 53.0%
*-commutative53.0%
Simplified53.0%
if -8.6e161 < y5 < -1.08000000000000002e107 or 1.21999999999999997e-117 < y5 < 2.6999999999999997e-69Initial program 30.3%
Taylor expanded in k around inf 46.0%
+-commutative46.0%
mul-1-neg46.0%
unsub-neg46.0%
*-commutative46.0%
associate-*r*46.0%
neg-mul-146.0%
Simplified46.0%
Taylor expanded in i around -inf 51.0%
+-commutative51.0%
mul-1-neg51.0%
unsub-neg51.0%
Simplified51.0%
if -1.08000000000000002e107 < y5 < -8.99999999999999994e-98Initial program 34.1%
Taylor expanded in b around inf 51.8%
Taylor expanded in y0 around inf 45.8%
if -8.99999999999999994e-98 < y5 < 1.21999999999999997e-117 or 2.8499999999999999e96 < y5 < 3.4000000000000001e135Initial program 29.3%
Taylor expanded in x around inf 40.5%
Taylor expanded in j around inf 40.8%
if 2.6999999999999997e-69 < y5 < 2.1000000000000002e-30Initial program 40.0%
Taylor expanded in y0 around inf 70.3%
+-commutative70.3%
mul-1-neg70.3%
unsub-neg70.3%
*-commutative70.3%
*-commutative70.3%
*-commutative70.3%
*-commutative70.3%
Simplified70.3%
Taylor expanded in k around -inf 70.5%
associate-*r*60.9%
+-commutative60.9%
mul-1-neg60.9%
unsub-neg60.9%
*-commutative60.9%
Simplified60.9%
Taylor expanded in z around inf 60.9%
if 2.1000000000000002e-30 < y5 < 2.99999999999999997e81Initial program 27.7%
Taylor expanded in b around inf 49.7%
Taylor expanded in y4 around inf 50.7%
if 2.99999999999999997e81 < y5 < 2.8499999999999999e96Initial program 20.0%
Taylor expanded in x around inf 42.6%
Taylor expanded in a around inf 60.4%
+-commutative60.4%
mul-1-neg60.4%
unsub-neg60.4%
Simplified60.4%
if 3.4000000000000001e135 < y5 < 2.8e160Initial program 50.0%
Taylor expanded in y2 around inf 33.5%
Taylor expanded in y1 around inf 66.9%
+-commutative66.9%
mul-1-neg66.9%
unsub-neg66.9%
Simplified66.9%
Taylor expanded in k around 0 67.2%
mul-1-neg67.2%
distribute-lft-neg-out67.2%
*-commutative67.2%
Simplified67.2%
if 2.8e160 < y5 < 7.7999999999999998e233Initial program 21.3%
Taylor expanded in y2 around inf 57.4%
Taylor expanded in t around inf 57.6%
Taylor expanded in a around inf 64.6%
*-commutative64.6%
Simplified64.6%
if 7.7999999999999998e233 < y5 Initial program 6.3%
Taylor expanded in b around inf 29.9%
Taylor expanded in t around inf 37.6%
+-commutative37.6%
mul-1-neg37.6%
unsub-neg37.6%
Simplified37.6%
Final simplification47.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* t (- (* j y4) (* z a)))))
(t_2 (* b (* x (- (* y a) (* j y0)))))
(t_3 (* y2 (* a (* t y5))))
(t_4 (* b (* y0 (- (* z k) (* x j))))))
(if (<= x -8.4e-47)
t_2
(if (<= x -9.2e-97)
t_1
(if (<= x -9.5e-100)
t_4
(if (<= x -1.9e-160)
t_3
(if (<= x -5.6e-200)
(* k (* y1 (* y2 y4)))
(if (<= x -2.3e-253)
t_4
(if (<= x -7.8e-302)
t_3
(if (<= x 6.1e-269)
(* i (* k (* z (- y1))))
(if (<= x 6.9e-128)
(* z (* b (* k y0)))
(if (<= x 8.2e-67)
t_1
(if (<= x 2.5e+14)
(* j (* y0 (* y3 y5)))
t_2)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (t * ((j * y4) - (z * a)));
double t_2 = b * (x * ((y * a) - (j * y0)));
double t_3 = y2 * (a * (t * y5));
double t_4 = b * (y0 * ((z * k) - (x * j)));
double tmp;
if (x <= -8.4e-47) {
tmp = t_2;
} else if (x <= -9.2e-97) {
tmp = t_1;
} else if (x <= -9.5e-100) {
tmp = t_4;
} else if (x <= -1.9e-160) {
tmp = t_3;
} else if (x <= -5.6e-200) {
tmp = k * (y1 * (y2 * y4));
} else if (x <= -2.3e-253) {
tmp = t_4;
} else if (x <= -7.8e-302) {
tmp = t_3;
} else if (x <= 6.1e-269) {
tmp = i * (k * (z * -y1));
} else if (x <= 6.9e-128) {
tmp = z * (b * (k * y0));
} else if (x <= 8.2e-67) {
tmp = t_1;
} else if (x <= 2.5e+14) {
tmp = j * (y0 * (y3 * y5));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = b * (t * ((j * y4) - (z * a)))
t_2 = b * (x * ((y * a) - (j * y0)))
t_3 = y2 * (a * (t * y5))
t_4 = b * (y0 * ((z * k) - (x * j)))
if (x <= (-8.4d-47)) then
tmp = t_2
else if (x <= (-9.2d-97)) then
tmp = t_1
else if (x <= (-9.5d-100)) then
tmp = t_4
else if (x <= (-1.9d-160)) then
tmp = t_3
else if (x <= (-5.6d-200)) then
tmp = k * (y1 * (y2 * y4))
else if (x <= (-2.3d-253)) then
tmp = t_4
else if (x <= (-7.8d-302)) then
tmp = t_3
else if (x <= 6.1d-269) then
tmp = i * (k * (z * -y1))
else if (x <= 6.9d-128) then
tmp = z * (b * (k * y0))
else if (x <= 8.2d-67) then
tmp = t_1
else if (x <= 2.5d+14) then
tmp = j * (y0 * (y3 * y5))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (t * ((j * y4) - (z * a)));
double t_2 = b * (x * ((y * a) - (j * y0)));
double t_3 = y2 * (a * (t * y5));
double t_4 = b * (y0 * ((z * k) - (x * j)));
double tmp;
if (x <= -8.4e-47) {
tmp = t_2;
} else if (x <= -9.2e-97) {
tmp = t_1;
} else if (x <= -9.5e-100) {
tmp = t_4;
} else if (x <= -1.9e-160) {
tmp = t_3;
} else if (x <= -5.6e-200) {
tmp = k * (y1 * (y2 * y4));
} else if (x <= -2.3e-253) {
tmp = t_4;
} else if (x <= -7.8e-302) {
tmp = t_3;
} else if (x <= 6.1e-269) {
tmp = i * (k * (z * -y1));
} else if (x <= 6.9e-128) {
tmp = z * (b * (k * y0));
} else if (x <= 8.2e-67) {
tmp = t_1;
} else if (x <= 2.5e+14) {
tmp = j * (y0 * (y3 * y5));
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (t * ((j * y4) - (z * a))) t_2 = b * (x * ((y * a) - (j * y0))) t_3 = y2 * (a * (t * y5)) t_4 = b * (y0 * ((z * k) - (x * j))) tmp = 0 if x <= -8.4e-47: tmp = t_2 elif x <= -9.2e-97: tmp = t_1 elif x <= -9.5e-100: tmp = t_4 elif x <= -1.9e-160: tmp = t_3 elif x <= -5.6e-200: tmp = k * (y1 * (y2 * y4)) elif x <= -2.3e-253: tmp = t_4 elif x <= -7.8e-302: tmp = t_3 elif x <= 6.1e-269: tmp = i * (k * (z * -y1)) elif x <= 6.9e-128: tmp = z * (b * (k * y0)) elif x <= 8.2e-67: tmp = t_1 elif x <= 2.5e+14: tmp = j * (y0 * (y3 * y5)) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(t * Float64(Float64(j * y4) - Float64(z * a)))) t_2 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))) t_3 = Float64(y2 * Float64(a * Float64(t * y5))) t_4 = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))) tmp = 0.0 if (x <= -8.4e-47) tmp = t_2; elseif (x <= -9.2e-97) tmp = t_1; elseif (x <= -9.5e-100) tmp = t_4; elseif (x <= -1.9e-160) tmp = t_3; elseif (x <= -5.6e-200) tmp = Float64(k * Float64(y1 * Float64(y2 * y4))); elseif (x <= -2.3e-253) tmp = t_4; elseif (x <= -7.8e-302) tmp = t_3; elseif (x <= 6.1e-269) tmp = Float64(i * Float64(k * Float64(z * Float64(-y1)))); elseif (x <= 6.9e-128) tmp = Float64(z * Float64(b * Float64(k * y0))); elseif (x <= 8.2e-67) tmp = t_1; elseif (x <= 2.5e+14) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (t * ((j * y4) - (z * a))); t_2 = b * (x * ((y * a) - (j * y0))); t_3 = y2 * (a * (t * y5)); t_4 = b * (y0 * ((z * k) - (x * j))); tmp = 0.0; if (x <= -8.4e-47) tmp = t_2; elseif (x <= -9.2e-97) tmp = t_1; elseif (x <= -9.5e-100) tmp = t_4; elseif (x <= -1.9e-160) tmp = t_3; elseif (x <= -5.6e-200) tmp = k * (y1 * (y2 * y4)); elseif (x <= -2.3e-253) tmp = t_4; elseif (x <= -7.8e-302) tmp = t_3; elseif (x <= 6.1e-269) tmp = i * (k * (z * -y1)); elseif (x <= 6.9e-128) tmp = z * (b * (k * y0)); elseif (x <= 8.2e-67) tmp = t_1; elseif (x <= 2.5e+14) tmp = j * (y0 * (y3 * y5)); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(t * N[(N[(j * y4), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -8.4e-47], t$95$2, If[LessEqual[x, -9.2e-97], t$95$1, If[LessEqual[x, -9.5e-100], t$95$4, If[LessEqual[x, -1.9e-160], t$95$3, If[LessEqual[x, -5.6e-200], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -2.3e-253], t$95$4, If[LessEqual[x, -7.8e-302], t$95$3, If[LessEqual[x, 6.1e-269], N[(i * N[(k * N[(z * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.9e-128], N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 8.2e-67], t$95$1, If[LessEqual[x, 2.5e+14], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(t \cdot \left(j \cdot y4 - z \cdot a\right)\right)\\
t_2 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
t_3 := y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
t_4 := b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{if}\;x \leq -8.4 \cdot 10^{-47}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq -9.2 \cdot 10^{-97}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -9.5 \cdot 10^{-100}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;x \leq -1.9 \cdot 10^{-160}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x \leq -5.6 \cdot 10^{-200}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{elif}\;x \leq -2.3 \cdot 10^{-253}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;x \leq -7.8 \cdot 10^{-302}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x \leq 6.1 \cdot 10^{-269}:\\
\;\;\;\;i \cdot \left(k \cdot \left(z \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;x \leq 6.9 \cdot 10^{-128}:\\
\;\;\;\;z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;x \leq 8.2 \cdot 10^{-67}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 2.5 \cdot 10^{+14}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if x < -8.4000000000000003e-47 or 2.5e14 < x Initial program 21.1%
Taylor expanded in b around inf 34.7%
Taylor expanded in x around inf 42.9%
if -8.4000000000000003e-47 < x < -9.19999999999999976e-97 or 6.8999999999999997e-128 < x < 8.1999999999999994e-67Initial program 27.1%
Taylor expanded in b around inf 39.0%
Taylor expanded in t around inf 58.2%
+-commutative58.2%
mul-1-neg58.2%
unsub-neg58.2%
Simplified58.2%
if -9.19999999999999976e-97 < x < -9.4999999999999992e-100 or -5.60000000000000013e-200 < x < -2.3e-253Initial program 55.6%
Taylor expanded in b around inf 67.6%
Taylor expanded in y0 around inf 67.5%
if -9.4999999999999992e-100 < x < -1.8999999999999999e-160 or -2.3e-253 < x < -7.7999999999999998e-302Initial program 32.0%
Taylor expanded in y2 around inf 61.2%
Taylor expanded in t around inf 40.4%
Taylor expanded in a around inf 37.0%
*-commutative37.0%
Simplified37.0%
if -1.8999999999999999e-160 < x < -5.60000000000000013e-200Initial program 1.6%
Taylor expanded in k around inf 42.9%
+-commutative42.9%
mul-1-neg42.9%
unsub-neg42.9%
*-commutative42.9%
associate-*r*42.9%
neg-mul-142.9%
Simplified42.9%
Taylor expanded in y1 around inf 29.5%
Taylor expanded in y2 around inf 43.6%
if -7.7999999999999998e-302 < x < 6.0999999999999995e-269Initial program 27.3%
Taylor expanded in k around inf 55.4%
+-commutative55.4%
mul-1-neg55.4%
unsub-neg55.4%
*-commutative55.4%
associate-*r*55.4%
neg-mul-155.4%
Simplified55.4%
Taylor expanded in y1 around inf 47.0%
Taylor expanded in y2 around 0 47.1%
associate-*r*47.1%
neg-mul-147.1%
*-commutative47.1%
Simplified47.1%
if 6.0999999999999995e-269 < x < 6.8999999999999997e-128Initial program 33.8%
Taylor expanded in y0 around inf 42.0%
+-commutative42.0%
mul-1-neg42.0%
unsub-neg42.0%
*-commutative42.0%
*-commutative42.0%
*-commutative42.0%
*-commutative42.0%
Simplified42.0%
Taylor expanded in k around -inf 41.9%
associate-*r*41.9%
+-commutative41.9%
mul-1-neg41.9%
unsub-neg41.9%
*-commutative41.9%
Simplified41.9%
Taylor expanded in z around inf 31.5%
pow131.5%
Applied egg-rr31.5%
unpow131.5%
associate-*r*38.6%
associate-*r*41.9%
Simplified41.9%
if 8.1999999999999994e-67 < x < 2.5e14Initial program 57.8%
Taylor expanded in y0 around inf 38.0%
+-commutative38.0%
mul-1-neg38.0%
unsub-neg38.0%
*-commutative38.0%
*-commutative38.0%
*-commutative38.0%
*-commutative38.0%
Simplified38.0%
Taylor expanded in y5 around inf 33.1%
Taylor expanded in j around inf 37.7%
*-commutative37.7%
*-commutative37.7%
Simplified37.7%
Final simplification44.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (* a (* x b)))))
(if (<= y0 -1.8e+103)
(* k (* y0 (- (* y2 y5))))
(if (<= y0 -1.8e+57)
(* j (* x (* i y1)))
(if (<= y0 -1.05e-148)
(* y2 (* t (* a y5)))
(if (<= y0 -2.2e-180)
(* i (* y1 (* x j)))
(if (<= y0 -6.8e-282)
(* a (* t (* y2 y5)))
(if (<= y0 3.8e-307)
(* i (* y (* k y5)))
(if (<= y0 1.6e-239)
t_1
(if (<= y0 2.15e-190)
(* i (* k (* y y5)))
(if (<= y0 4e-138)
(* k (* y1 (* y2 y4)))
(if (<= y0 3.3e-77)
(* (- c) (* (* x i) y))
(if (<= y0 1020.0) t_1 (* z (* b (* k y0))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (a * (x * b));
double tmp;
if (y0 <= -1.8e+103) {
tmp = k * (y0 * -(y2 * y5));
} else if (y0 <= -1.8e+57) {
tmp = j * (x * (i * y1));
} else if (y0 <= -1.05e-148) {
tmp = y2 * (t * (a * y5));
} else if (y0 <= -2.2e-180) {
tmp = i * (y1 * (x * j));
} else if (y0 <= -6.8e-282) {
tmp = a * (t * (y2 * y5));
} else if (y0 <= 3.8e-307) {
tmp = i * (y * (k * y5));
} else if (y0 <= 1.6e-239) {
tmp = t_1;
} else if (y0 <= 2.15e-190) {
tmp = i * (k * (y * y5));
} else if (y0 <= 4e-138) {
tmp = k * (y1 * (y2 * y4));
} else if (y0 <= 3.3e-77) {
tmp = -c * ((x * i) * y);
} else if (y0 <= 1020.0) {
tmp = t_1;
} else {
tmp = z * (b * (k * y0));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y * (a * (x * b))
if (y0 <= (-1.8d+103)) then
tmp = k * (y0 * -(y2 * y5))
else if (y0 <= (-1.8d+57)) then
tmp = j * (x * (i * y1))
else if (y0 <= (-1.05d-148)) then
tmp = y2 * (t * (a * y5))
else if (y0 <= (-2.2d-180)) then
tmp = i * (y1 * (x * j))
else if (y0 <= (-6.8d-282)) then
tmp = a * (t * (y2 * y5))
else if (y0 <= 3.8d-307) then
tmp = i * (y * (k * y5))
else if (y0 <= 1.6d-239) then
tmp = t_1
else if (y0 <= 2.15d-190) then
tmp = i * (k * (y * y5))
else if (y0 <= 4d-138) then
tmp = k * (y1 * (y2 * y4))
else if (y0 <= 3.3d-77) then
tmp = -c * ((x * i) * y)
else if (y0 <= 1020.0d0) then
tmp = t_1
else
tmp = z * (b * (k * y0))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (a * (x * b));
double tmp;
if (y0 <= -1.8e+103) {
tmp = k * (y0 * -(y2 * y5));
} else if (y0 <= -1.8e+57) {
tmp = j * (x * (i * y1));
} else if (y0 <= -1.05e-148) {
tmp = y2 * (t * (a * y5));
} else if (y0 <= -2.2e-180) {
tmp = i * (y1 * (x * j));
} else if (y0 <= -6.8e-282) {
tmp = a * (t * (y2 * y5));
} else if (y0 <= 3.8e-307) {
tmp = i * (y * (k * y5));
} else if (y0 <= 1.6e-239) {
tmp = t_1;
} else if (y0 <= 2.15e-190) {
tmp = i * (k * (y * y5));
} else if (y0 <= 4e-138) {
tmp = k * (y1 * (y2 * y4));
} else if (y0 <= 3.3e-77) {
tmp = -c * ((x * i) * y);
} else if (y0 <= 1020.0) {
tmp = t_1;
} else {
tmp = z * (b * (k * y0));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y * (a * (x * b)) tmp = 0 if y0 <= -1.8e+103: tmp = k * (y0 * -(y2 * y5)) elif y0 <= -1.8e+57: tmp = j * (x * (i * y1)) elif y0 <= -1.05e-148: tmp = y2 * (t * (a * y5)) elif y0 <= -2.2e-180: tmp = i * (y1 * (x * j)) elif y0 <= -6.8e-282: tmp = a * (t * (y2 * y5)) elif y0 <= 3.8e-307: tmp = i * (y * (k * y5)) elif y0 <= 1.6e-239: tmp = t_1 elif y0 <= 2.15e-190: tmp = i * (k * (y * y5)) elif y0 <= 4e-138: tmp = k * (y1 * (y2 * y4)) elif y0 <= 3.3e-77: tmp = -c * ((x * i) * y) elif y0 <= 1020.0: tmp = t_1 else: tmp = z * (b * (k * y0)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y * Float64(a * Float64(x * b))) tmp = 0.0 if (y0 <= -1.8e+103) tmp = Float64(k * Float64(y0 * Float64(-Float64(y2 * y5)))); elseif (y0 <= -1.8e+57) tmp = Float64(j * Float64(x * Float64(i * y1))); elseif (y0 <= -1.05e-148) tmp = Float64(y2 * Float64(t * Float64(a * y5))); elseif (y0 <= -2.2e-180) tmp = Float64(i * Float64(y1 * Float64(x * j))); elseif (y0 <= -6.8e-282) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (y0 <= 3.8e-307) tmp = Float64(i * Float64(y * Float64(k * y5))); elseif (y0 <= 1.6e-239) tmp = t_1; elseif (y0 <= 2.15e-190) tmp = Float64(i * Float64(k * Float64(y * y5))); elseif (y0 <= 4e-138) tmp = Float64(k * Float64(y1 * Float64(y2 * y4))); elseif (y0 <= 3.3e-77) tmp = Float64(Float64(-c) * Float64(Float64(x * i) * y)); elseif (y0 <= 1020.0) tmp = t_1; else tmp = Float64(z * Float64(b * Float64(k * y0))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y * (a * (x * b)); tmp = 0.0; if (y0 <= -1.8e+103) tmp = k * (y0 * -(y2 * y5)); elseif (y0 <= -1.8e+57) tmp = j * (x * (i * y1)); elseif (y0 <= -1.05e-148) tmp = y2 * (t * (a * y5)); elseif (y0 <= -2.2e-180) tmp = i * (y1 * (x * j)); elseif (y0 <= -6.8e-282) tmp = a * (t * (y2 * y5)); elseif (y0 <= 3.8e-307) tmp = i * (y * (k * y5)); elseif (y0 <= 1.6e-239) tmp = t_1; elseif (y0 <= 2.15e-190) tmp = i * (k * (y * y5)); elseif (y0 <= 4e-138) tmp = k * (y1 * (y2 * y4)); elseif (y0 <= 3.3e-77) tmp = -c * ((x * i) * y); elseif (y0 <= 1020.0) tmp = t_1; else tmp = z * (b * (k * y0)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y0, -1.8e+103], N[(k * N[(y0 * (-N[(y2 * y5), $MachinePrecision])), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -1.8e+57], N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -1.05e-148], N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -2.2e-180], N[(i * N[(y1 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -6.8e-282], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 3.8e-307], N[(i * N[(y * N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 1.6e-239], t$95$1, If[LessEqual[y0, 2.15e-190], N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 4e-138], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 3.3e-77], N[((-c) * N[(N[(x * i), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 1020.0], t$95$1, N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(a \cdot \left(x \cdot b\right)\right)\\
\mathbf{if}\;y0 \leq -1.8 \cdot 10^{+103}:\\
\;\;\;\;k \cdot \left(y0 \cdot \left(-y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq -1.8 \cdot 10^{+57}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{elif}\;y0 \leq -1.05 \cdot 10^{-148}:\\
\;\;\;\;y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq -2.2 \cdot 10^{-180}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j\right)\right)\\
\mathbf{elif}\;y0 \leq -6.8 \cdot 10^{-282}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq 3.8 \cdot 10^{-307}:\\
\;\;\;\;i \cdot \left(y \cdot \left(k \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq 1.6 \cdot 10^{-239}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y0 \leq 2.15 \cdot 10^{-190}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq 4 \cdot 10^{-138}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{elif}\;y0 \leq 3.3 \cdot 10^{-77}:\\
\;\;\;\;\left(-c\right) \cdot \left(\left(x \cdot i\right) \cdot y\right)\\
\mathbf{elif}\;y0 \leq 1020:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
\end{array}
\end{array}
if y0 < -1.80000000000000008e103Initial program 34.2%
Taylor expanded in y0 around inf 60.3%
+-commutative60.3%
mul-1-neg60.3%
unsub-neg60.3%
*-commutative60.3%
*-commutative60.3%
*-commutative60.3%
*-commutative60.3%
Simplified60.3%
Taylor expanded in y5 around inf 45.5%
Taylor expanded in j around 0 43.0%
associate-*r*43.0%
neg-mul-143.0%
*-commutative43.0%
*-commutative43.0%
Simplified43.0%
if -1.80000000000000008e103 < y0 < -1.8000000000000001e57Initial program 30.8%
Taylor expanded in x around inf 38.5%
Taylor expanded in j around inf 61.6%
Taylor expanded in i around inf 38.7%
if -1.8000000000000001e57 < y0 < -1.05e-148Initial program 24.9%
Taylor expanded in y2 around inf 39.5%
Taylor expanded in t around inf 30.1%
Taylor expanded in a around inf 27.7%
*-commutative27.7%
Simplified27.7%
if -1.05e-148 < y0 < -2.20000000000000013e-180Initial program 24.8%
Taylor expanded in x around inf 50.6%
Taylor expanded in j around inf 63.1%
Taylor expanded in i around inf 51.2%
associate-*r*63.2%
*-commutative63.2%
Simplified63.2%
if -2.20000000000000013e-180 < y0 < -6.79999999999999997e-282Initial program 23.9%
Taylor expanded in y2 around inf 53.7%
Taylor expanded in t around inf 48.2%
Taylor expanded in a around inf 37.0%
*-commutative37.0%
Simplified37.0%
if -6.79999999999999997e-282 < y0 < 3.79999999999999985e-307Initial program 56.9%
Taylor expanded in y around inf 29.8%
+-commutative29.8%
mul-1-neg29.8%
unsub-neg29.8%
*-commutative29.8%
*-commutative29.8%
mul-1-neg29.8%
Simplified29.8%
Taylor expanded in y3 around 0 30.0%
Taylor expanded in y5 around inf 58.3%
associate-*r*58.5%
*-commutative58.5%
associate-*l*58.5%
Simplified58.5%
if 3.79999999999999985e-307 < y0 < 1.6e-239 or 3.29999999999999991e-77 < y0 < 1020Initial program 38.3%
Taylor expanded in x around inf 50.9%
Taylor expanded in a around inf 43.1%
+-commutative43.1%
mul-1-neg43.1%
unsub-neg43.1%
Simplified43.1%
Taylor expanded in b around inf 32.2%
pow132.2%
associate-*r*35.9%
Applied egg-rr35.9%
unpow135.9%
associate-*r*43.0%
Simplified43.0%
if 1.6e-239 < y0 < 2.15e-190Initial program 50.0%
Taylor expanded in y around inf 50.3%
+-commutative50.3%
mul-1-neg50.3%
unsub-neg50.3%
*-commutative50.3%
*-commutative50.3%
mul-1-neg50.3%
Simplified50.3%
Taylor expanded in y3 around 0 50.3%
Taylor expanded in y5 around inf 51.1%
if 2.15e-190 < y0 < 4.00000000000000027e-138Initial program 14.7%
Taylor expanded in k around inf 36.7%
+-commutative36.7%
mul-1-neg36.7%
unsub-neg36.7%
*-commutative36.7%
associate-*r*36.7%
neg-mul-136.7%
Simplified36.7%
Taylor expanded in y1 around inf 37.8%
Taylor expanded in y2 around inf 37.1%
if 4.00000000000000027e-138 < y0 < 3.29999999999999991e-77Initial program 15.4%
Taylor expanded in y around inf 38.5%
+-commutative38.5%
mul-1-neg38.5%
unsub-neg38.5%
*-commutative38.5%
*-commutative38.5%
mul-1-neg38.5%
Simplified38.5%
Taylor expanded in y3 around 0 46.6%
Taylor expanded in c around inf 39.7%
mul-1-neg39.7%
distribute-rgt-neg-in39.7%
associate-*r*47.2%
distribute-lft-neg-in47.2%
*-commutative47.2%
distribute-rgt-neg-in47.2%
Simplified47.2%
if 1020 < y0 Initial program 23.4%
Taylor expanded in y0 around inf 48.3%
+-commutative48.3%
mul-1-neg48.3%
unsub-neg48.3%
*-commutative48.3%
*-commutative48.3%
*-commutative48.3%
*-commutative48.3%
Simplified48.3%
Taylor expanded in k around -inf 44.1%
associate-*r*38.3%
+-commutative38.3%
mul-1-neg38.3%
unsub-neg38.3%
*-commutative38.3%
Simplified38.3%
Taylor expanded in z around inf 35.2%
pow135.2%
Applied egg-rr35.2%
unpow135.2%
associate-*r*38.1%
associate-*r*42.3%
Simplified42.3%
Final simplification40.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (* a (* x b)))))
(if (<= x -1.1e-10)
t_1
(if (<= x -8.5e-50)
(* y0 (* y5 (* j y3)))
(if (<= x -5.2e-52)
(* b (* y4 (* t j)))
(if (<= x -1.55e-159)
(* y2 (* a (* t y5)))
(if (<= x 2e-103)
(* z (* b (* k y0)))
(if (<= x 4.2e-65)
(* y2 (* t (* a y5)))
(if (<= x 1.9e+36)
(* j (* y0 (* y3 y5)))
(if (<= x 6.8e+109)
t_1
(if (<= x 4.5e+117)
(* i (* y (* k y5)))
(if (<= x 1.55e+121)
(* b (* k (* z y0)))
(if (<= x 4.1e+137)
(* b (* (* x y) a))
(* j (* x (* i y1))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (a * (x * b));
double tmp;
if (x <= -1.1e-10) {
tmp = t_1;
} else if (x <= -8.5e-50) {
tmp = y0 * (y5 * (j * y3));
} else if (x <= -5.2e-52) {
tmp = b * (y4 * (t * j));
} else if (x <= -1.55e-159) {
tmp = y2 * (a * (t * y5));
} else if (x <= 2e-103) {
tmp = z * (b * (k * y0));
} else if (x <= 4.2e-65) {
tmp = y2 * (t * (a * y5));
} else if (x <= 1.9e+36) {
tmp = j * (y0 * (y3 * y5));
} else if (x <= 6.8e+109) {
tmp = t_1;
} else if (x <= 4.5e+117) {
tmp = i * (y * (k * y5));
} else if (x <= 1.55e+121) {
tmp = b * (k * (z * y0));
} else if (x <= 4.1e+137) {
tmp = b * ((x * y) * a);
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y * (a * (x * b))
if (x <= (-1.1d-10)) then
tmp = t_1
else if (x <= (-8.5d-50)) then
tmp = y0 * (y5 * (j * y3))
else if (x <= (-5.2d-52)) then
tmp = b * (y4 * (t * j))
else if (x <= (-1.55d-159)) then
tmp = y2 * (a * (t * y5))
else if (x <= 2d-103) then
tmp = z * (b * (k * y0))
else if (x <= 4.2d-65) then
tmp = y2 * (t * (a * y5))
else if (x <= 1.9d+36) then
tmp = j * (y0 * (y3 * y5))
else if (x <= 6.8d+109) then
tmp = t_1
else if (x <= 4.5d+117) then
tmp = i * (y * (k * y5))
else if (x <= 1.55d+121) then
tmp = b * (k * (z * y0))
else if (x <= 4.1d+137) then
tmp = b * ((x * y) * a)
else
tmp = j * (x * (i * y1))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (a * (x * b));
double tmp;
if (x <= -1.1e-10) {
tmp = t_1;
} else if (x <= -8.5e-50) {
tmp = y0 * (y5 * (j * y3));
} else if (x <= -5.2e-52) {
tmp = b * (y4 * (t * j));
} else if (x <= -1.55e-159) {
tmp = y2 * (a * (t * y5));
} else if (x <= 2e-103) {
tmp = z * (b * (k * y0));
} else if (x <= 4.2e-65) {
tmp = y2 * (t * (a * y5));
} else if (x <= 1.9e+36) {
tmp = j * (y0 * (y3 * y5));
} else if (x <= 6.8e+109) {
tmp = t_1;
} else if (x <= 4.5e+117) {
tmp = i * (y * (k * y5));
} else if (x <= 1.55e+121) {
tmp = b * (k * (z * y0));
} else if (x <= 4.1e+137) {
tmp = b * ((x * y) * a);
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y * (a * (x * b)) tmp = 0 if x <= -1.1e-10: tmp = t_1 elif x <= -8.5e-50: tmp = y0 * (y5 * (j * y3)) elif x <= -5.2e-52: tmp = b * (y4 * (t * j)) elif x <= -1.55e-159: tmp = y2 * (a * (t * y5)) elif x <= 2e-103: tmp = z * (b * (k * y0)) elif x <= 4.2e-65: tmp = y2 * (t * (a * y5)) elif x <= 1.9e+36: tmp = j * (y0 * (y3 * y5)) elif x <= 6.8e+109: tmp = t_1 elif x <= 4.5e+117: tmp = i * (y * (k * y5)) elif x <= 1.55e+121: tmp = b * (k * (z * y0)) elif x <= 4.1e+137: tmp = b * ((x * y) * a) else: tmp = j * (x * (i * y1)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y * Float64(a * Float64(x * b))) tmp = 0.0 if (x <= -1.1e-10) tmp = t_1; elseif (x <= -8.5e-50) tmp = Float64(y0 * Float64(y5 * Float64(j * y3))); elseif (x <= -5.2e-52) tmp = Float64(b * Float64(y4 * Float64(t * j))); elseif (x <= -1.55e-159) tmp = Float64(y2 * Float64(a * Float64(t * y5))); elseif (x <= 2e-103) tmp = Float64(z * Float64(b * Float64(k * y0))); elseif (x <= 4.2e-65) tmp = Float64(y2 * Float64(t * Float64(a * y5))); elseif (x <= 1.9e+36) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (x <= 6.8e+109) tmp = t_1; elseif (x <= 4.5e+117) tmp = Float64(i * Float64(y * Float64(k * y5))); elseif (x <= 1.55e+121) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (x <= 4.1e+137) tmp = Float64(b * Float64(Float64(x * y) * a)); else tmp = Float64(j * Float64(x * Float64(i * y1))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y * (a * (x * b)); tmp = 0.0; if (x <= -1.1e-10) tmp = t_1; elseif (x <= -8.5e-50) tmp = y0 * (y5 * (j * y3)); elseif (x <= -5.2e-52) tmp = b * (y4 * (t * j)); elseif (x <= -1.55e-159) tmp = y2 * (a * (t * y5)); elseif (x <= 2e-103) tmp = z * (b * (k * y0)); elseif (x <= 4.2e-65) tmp = y2 * (t * (a * y5)); elseif (x <= 1.9e+36) tmp = j * (y0 * (y3 * y5)); elseif (x <= 6.8e+109) tmp = t_1; elseif (x <= 4.5e+117) tmp = i * (y * (k * y5)); elseif (x <= 1.55e+121) tmp = b * (k * (z * y0)); elseif (x <= 4.1e+137) tmp = b * ((x * y) * a); else tmp = j * (x * (i * y1)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.1e-10], t$95$1, If[LessEqual[x, -8.5e-50], N[(y0 * N[(y5 * N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -5.2e-52], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -1.55e-159], N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2e-103], N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4.2e-65], N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.9e+36], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.8e+109], t$95$1, If[LessEqual[x, 4.5e+117], N[(i * N[(y * N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.55e+121], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4.1e+137], N[(b * N[(N[(x * y), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision], N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(a \cdot \left(x \cdot b\right)\right)\\
\mathbf{if}\;x \leq -1.1 \cdot 10^{-10}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -8.5 \cdot 10^{-50}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3\right)\right)\\
\mathbf{elif}\;x \leq -5.2 \cdot 10^{-52}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{elif}\;x \leq -1.55 \cdot 10^{-159}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 2 \cdot 10^{-103}:\\
\;\;\;\;z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;x \leq 4.2 \cdot 10^{-65}:\\
\;\;\;\;y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 1.9 \cdot 10^{+36}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 6.8 \cdot 10^{+109}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 4.5 \cdot 10^{+117}:\\
\;\;\;\;i \cdot \left(y \cdot \left(k \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 1.55 \cdot 10^{+121}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;x \leq 4.1 \cdot 10^{+137}:\\
\;\;\;\;b \cdot \left(\left(x \cdot y\right) \cdot a\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\end{array}
\end{array}
if x < -1.09999999999999995e-10 or 1.90000000000000012e36 < x < 6.80000000000000013e109Initial program 26.3%
Taylor expanded in x around inf 47.8%
Taylor expanded in a around inf 42.8%
+-commutative42.8%
mul-1-neg42.8%
unsub-neg42.8%
Simplified42.8%
Taylor expanded in b around inf 28.8%
pow128.8%
associate-*r*33.9%
Applied egg-rr33.9%
unpow133.9%
associate-*r*37.5%
Simplified37.5%
if -1.09999999999999995e-10 < x < -8.50000000000000012e-50Initial program 14.4%
Taylor expanded in y0 around inf 74.8%
+-commutative74.8%
mul-1-neg74.8%
unsub-neg74.8%
*-commutative74.8%
*-commutative74.8%
*-commutative74.8%
*-commutative74.8%
Simplified74.8%
Taylor expanded in y5 around inf 87.3%
Taylor expanded in j around inf 53.9%
if -8.50000000000000012e-50 < x < -5.1999999999999997e-52Initial program 0.0%
Taylor expanded in b around inf 100.0%
Taylor expanded in y4 around inf 100.0%
Taylor expanded in j around inf 100.0%
if -5.1999999999999997e-52 < x < -1.55e-159Initial program 33.6%
Taylor expanded in y2 around inf 38.2%
Taylor expanded in t around inf 22.3%
Taylor expanded in a around inf 21.9%
*-commutative21.9%
Simplified21.9%
if -1.55e-159 < x < 1.99999999999999992e-103Initial program 32.2%
Taylor expanded in y0 around inf 37.3%
+-commutative37.3%
mul-1-neg37.3%
unsub-neg37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
Simplified37.3%
Taylor expanded in k around -inf 30.6%
associate-*r*27.9%
+-commutative27.9%
mul-1-neg27.9%
unsub-neg27.9%
*-commutative27.9%
Simplified27.9%
Taylor expanded in z around inf 26.7%
pow126.7%
Applied egg-rr26.7%
unpow126.7%
associate-*r*29.4%
associate-*r*31.9%
Simplified31.9%
if 1.99999999999999992e-103 < x < 4.20000000000000006e-65Initial program 16.5%
Taylor expanded in y2 around inf 58.4%
Taylor expanded in t around inf 50.9%
Taylor expanded in a around inf 50.8%
*-commutative50.8%
Simplified50.8%
if 4.20000000000000006e-65 < x < 1.90000000000000012e36Initial program 57.1%
Taylor expanded in y0 around inf 43.9%
+-commutative43.9%
mul-1-neg43.9%
unsub-neg43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
Simplified43.9%
Taylor expanded in y5 around inf 30.1%
Taylor expanded in j around inf 34.2%
*-commutative34.2%
*-commutative34.2%
Simplified34.2%
if 6.80000000000000013e109 < x < 4.5e117Initial program 33.3%
Taylor expanded in y around inf 66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
*-commutative66.7%
*-commutative66.7%
mul-1-neg66.7%
Simplified66.7%
Taylor expanded in y3 around 0 66.8%
Taylor expanded in y5 around inf 67.7%
associate-*r*67.7%
*-commutative67.7%
associate-*l*67.7%
Simplified67.7%
if 4.5e117 < x < 1.55000000000000004e121Initial program 0.0%
Taylor expanded in y0 around inf 66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
*-commutative66.7%
*-commutative66.7%
*-commutative66.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in k around -inf 100.0%
associate-*r*100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
Simplified100.0%
Taylor expanded in z around inf 67.0%
if 1.55000000000000004e121 < x < 4.09999999999999997e137Initial program 49.2%
Taylor expanded in y around inf 50.7%
+-commutative50.7%
mul-1-neg50.7%
unsub-neg50.7%
*-commutative50.7%
*-commutative50.7%
mul-1-neg50.7%
Simplified50.7%
Taylor expanded in y3 around 0 50.7%
Taylor expanded in a around inf 4.6%
*-commutative4.6%
*-commutative4.6%
associate-*l*51.3%
Simplified51.3%
if 4.09999999999999997e137 < x Initial program 9.2%
Taylor expanded in x around inf 68.1%
Taylor expanded in j around inf 62.3%
Taylor expanded in i around inf 44.8%
Final simplification37.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* i (* y (* k y5)))))
(if (<= x -2.1e+142)
(* i (* j (* x y1)))
(if (<= x -3.6e+67)
(* a (* t (* y2 y5)))
(if (<= x -30500000000000.0)
(* y0 (* y5 (* j y3)))
(if (<= x -1.35e-12)
(* b (* (* x y) a))
(if (<= x -3.8e-202)
t_1
(if (<= x -1.65e-301)
(* y2 (* a (* t y5)))
(if (<= x 2.2e-103)
(* b (* z (* k y0)))
(if (<= x 4e-65)
(* y2 (* t (* a y5)))
(if (<= x 3400000000000.0)
(* j (* y0 (* y3 y5)))
(if (<= x 1.35e+85)
(* j (* y1 (* x i)))
(if (<= x 3.6e+115)
t_1
(* j (* x (* i y1))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * (y * (k * y5));
double tmp;
if (x <= -2.1e+142) {
tmp = i * (j * (x * y1));
} else if (x <= -3.6e+67) {
tmp = a * (t * (y2 * y5));
} else if (x <= -30500000000000.0) {
tmp = y0 * (y5 * (j * y3));
} else if (x <= -1.35e-12) {
tmp = b * ((x * y) * a);
} else if (x <= -3.8e-202) {
tmp = t_1;
} else if (x <= -1.65e-301) {
tmp = y2 * (a * (t * y5));
} else if (x <= 2.2e-103) {
tmp = b * (z * (k * y0));
} else if (x <= 4e-65) {
tmp = y2 * (t * (a * y5));
} else if (x <= 3400000000000.0) {
tmp = j * (y0 * (y3 * y5));
} else if (x <= 1.35e+85) {
tmp = j * (y1 * (x * i));
} else if (x <= 3.6e+115) {
tmp = t_1;
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = i * (y * (k * y5))
if (x <= (-2.1d+142)) then
tmp = i * (j * (x * y1))
else if (x <= (-3.6d+67)) then
tmp = a * (t * (y2 * y5))
else if (x <= (-30500000000000.0d0)) then
tmp = y0 * (y5 * (j * y3))
else if (x <= (-1.35d-12)) then
tmp = b * ((x * y) * a)
else if (x <= (-3.8d-202)) then
tmp = t_1
else if (x <= (-1.65d-301)) then
tmp = y2 * (a * (t * y5))
else if (x <= 2.2d-103) then
tmp = b * (z * (k * y0))
else if (x <= 4d-65) then
tmp = y2 * (t * (a * y5))
else if (x <= 3400000000000.0d0) then
tmp = j * (y0 * (y3 * y5))
else if (x <= 1.35d+85) then
tmp = j * (y1 * (x * i))
else if (x <= 3.6d+115) then
tmp = t_1
else
tmp = j * (x * (i * y1))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * (y * (k * y5));
double tmp;
if (x <= -2.1e+142) {
tmp = i * (j * (x * y1));
} else if (x <= -3.6e+67) {
tmp = a * (t * (y2 * y5));
} else if (x <= -30500000000000.0) {
tmp = y0 * (y5 * (j * y3));
} else if (x <= -1.35e-12) {
tmp = b * ((x * y) * a);
} else if (x <= -3.8e-202) {
tmp = t_1;
} else if (x <= -1.65e-301) {
tmp = y2 * (a * (t * y5));
} else if (x <= 2.2e-103) {
tmp = b * (z * (k * y0));
} else if (x <= 4e-65) {
tmp = y2 * (t * (a * y5));
} else if (x <= 3400000000000.0) {
tmp = j * (y0 * (y3 * y5));
} else if (x <= 1.35e+85) {
tmp = j * (y1 * (x * i));
} else if (x <= 3.6e+115) {
tmp = t_1;
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = i * (y * (k * y5)) tmp = 0 if x <= -2.1e+142: tmp = i * (j * (x * y1)) elif x <= -3.6e+67: tmp = a * (t * (y2 * y5)) elif x <= -30500000000000.0: tmp = y0 * (y5 * (j * y3)) elif x <= -1.35e-12: tmp = b * ((x * y) * a) elif x <= -3.8e-202: tmp = t_1 elif x <= -1.65e-301: tmp = y2 * (a * (t * y5)) elif x <= 2.2e-103: tmp = b * (z * (k * y0)) elif x <= 4e-65: tmp = y2 * (t * (a * y5)) elif x <= 3400000000000.0: tmp = j * (y0 * (y3 * y5)) elif x <= 1.35e+85: tmp = j * (y1 * (x * i)) elif x <= 3.6e+115: tmp = t_1 else: tmp = j * (x * (i * y1)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(i * Float64(y * Float64(k * y5))) tmp = 0.0 if (x <= -2.1e+142) tmp = Float64(i * Float64(j * Float64(x * y1))); elseif (x <= -3.6e+67) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= -30500000000000.0) tmp = Float64(y0 * Float64(y5 * Float64(j * y3))); elseif (x <= -1.35e-12) tmp = Float64(b * Float64(Float64(x * y) * a)); elseif (x <= -3.8e-202) tmp = t_1; elseif (x <= -1.65e-301) tmp = Float64(y2 * Float64(a * Float64(t * y5))); elseif (x <= 2.2e-103) tmp = Float64(b * Float64(z * Float64(k * y0))); elseif (x <= 4e-65) tmp = Float64(y2 * Float64(t * Float64(a * y5))); elseif (x <= 3400000000000.0) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (x <= 1.35e+85) tmp = Float64(j * Float64(y1 * Float64(x * i))); elseif (x <= 3.6e+115) tmp = t_1; else tmp = Float64(j * Float64(x * Float64(i * y1))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = i * (y * (k * y5)); tmp = 0.0; if (x <= -2.1e+142) tmp = i * (j * (x * y1)); elseif (x <= -3.6e+67) tmp = a * (t * (y2 * y5)); elseif (x <= -30500000000000.0) tmp = y0 * (y5 * (j * y3)); elseif (x <= -1.35e-12) tmp = b * ((x * y) * a); elseif (x <= -3.8e-202) tmp = t_1; elseif (x <= -1.65e-301) tmp = y2 * (a * (t * y5)); elseif (x <= 2.2e-103) tmp = b * (z * (k * y0)); elseif (x <= 4e-65) tmp = y2 * (t * (a * y5)); elseif (x <= 3400000000000.0) tmp = j * (y0 * (y3 * y5)); elseif (x <= 1.35e+85) tmp = j * (y1 * (x * i)); elseif (x <= 3.6e+115) tmp = t_1; else tmp = j * (x * (i * y1)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(i * N[(y * N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -2.1e+142], N[(i * N[(j * N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -3.6e+67], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -30500000000000.0], N[(y0 * N[(y5 * N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -1.35e-12], N[(b * N[(N[(x * y), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -3.8e-202], t$95$1, If[LessEqual[x, -1.65e-301], N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.2e-103], N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4e-65], N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 3400000000000.0], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.35e+85], N[(j * N[(y1 * N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 3.6e+115], t$95$1, N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(y \cdot \left(k \cdot y5\right)\right)\\
\mathbf{if}\;x \leq -2.1 \cdot 10^{+142}:\\
\;\;\;\;i \cdot \left(j \cdot \left(x \cdot y1\right)\right)\\
\mathbf{elif}\;x \leq -3.6 \cdot 10^{+67}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq -30500000000000:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3\right)\right)\\
\mathbf{elif}\;x \leq -1.35 \cdot 10^{-12}:\\
\;\;\;\;b \cdot \left(\left(x \cdot y\right) \cdot a\right)\\
\mathbf{elif}\;x \leq -3.8 \cdot 10^{-202}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -1.65 \cdot 10^{-301}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 2.2 \cdot 10^{-103}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;x \leq 4 \cdot 10^{-65}:\\
\;\;\;\;y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 3400000000000:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 1.35 \cdot 10^{+85}:\\
\;\;\;\;j \cdot \left(y1 \cdot \left(x \cdot i\right)\right)\\
\mathbf{elif}\;x \leq 3.6 \cdot 10^{+115}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\end{array}
\end{array}
if x < -2.1e142Initial program 12.9%
Taylor expanded in x around inf 55.0%
Taylor expanded in j around inf 48.8%
Taylor expanded in i around inf 45.6%
if -2.1e142 < x < -3.5999999999999999e67Initial program 23.1%
Taylor expanded in y2 around inf 38.6%
Taylor expanded in t around inf 39.6%
Taylor expanded in a around inf 46.8%
*-commutative46.8%
Simplified46.8%
if -3.5999999999999999e67 < x < -3.05e13Initial program 11.1%
Taylor expanded in y0 around inf 56.9%
+-commutative56.9%
mul-1-neg56.9%
unsub-neg56.9%
*-commutative56.9%
*-commutative56.9%
*-commutative56.9%
*-commutative56.9%
Simplified56.9%
Taylor expanded in y5 around inf 34.7%
Taylor expanded in j around inf 34.3%
if -3.05e13 < x < -1.3499999999999999e-12Initial program 33.1%
Taylor expanded in y around inf 49.7%
+-commutative49.7%
mul-1-neg49.7%
unsub-neg49.7%
*-commutative49.7%
*-commutative49.7%
mul-1-neg49.7%
Simplified49.7%
Taylor expanded in y3 around 0 49.8%
Taylor expanded in a around inf 66.9%
*-commutative66.9%
*-commutative66.9%
associate-*l*66.9%
Simplified66.9%
if -1.3499999999999999e-12 < x < -3.80000000000000014e-202 or 1.34999999999999992e85 < x < 3.6000000000000001e115Initial program 28.6%
Taylor expanded in y around inf 38.6%
+-commutative38.6%
mul-1-neg38.6%
unsub-neg38.6%
*-commutative38.6%
*-commutative38.6%
mul-1-neg38.6%
Simplified38.6%
Taylor expanded in y3 around 0 31.0%
Taylor expanded in y5 around inf 25.3%
associate-*r*25.2%
*-commutative25.2%
associate-*l*27.2%
Simplified27.2%
if -3.80000000000000014e-202 < x < -1.65e-301Initial program 36.2%
Taylor expanded in y2 around inf 55.0%
Taylor expanded in t around inf 42.1%
Taylor expanded in a around inf 42.3%
*-commutative42.3%
Simplified42.3%
if -1.65e-301 < x < 2.1999999999999999e-103Initial program 33.7%
Taylor expanded in y0 around inf 43.9%
+-commutative43.9%
mul-1-neg43.9%
unsub-neg43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
Simplified43.9%
Taylor expanded in k around -inf 37.1%
associate-*r*37.1%
+-commutative37.1%
mul-1-neg37.1%
unsub-neg37.1%
*-commutative37.1%
Simplified37.1%
Taylor expanded in z around inf 32.5%
associate-*r*34.8%
*-commutative34.8%
Simplified34.8%
if 2.1999999999999999e-103 < x < 3.99999999999999969e-65Initial program 16.5%
Taylor expanded in y2 around inf 58.4%
Taylor expanded in t around inf 50.9%
Taylor expanded in a around inf 50.8%
*-commutative50.8%
Simplified50.8%
if 3.99999999999999969e-65 < x < 3.4e12Initial program 61.0%
Taylor expanded in y0 around inf 40.1%
+-commutative40.1%
mul-1-neg40.1%
unsub-neg40.1%
*-commutative40.1%
*-commutative40.1%
*-commutative40.1%
*-commutative40.1%
Simplified40.1%
Taylor expanded in y5 around inf 29.4%
Taylor expanded in j around inf 34.2%
*-commutative34.2%
*-commutative34.2%
Simplified34.2%
if 3.4e12 < x < 1.34999999999999992e85Initial program 61.5%
Taylor expanded in x around inf 39.1%
Taylor expanded in j around inf 39.6%
Taylor expanded in i around inf 32.1%
associate-*r*39.5%
*-commutative39.5%
Simplified39.5%
if 3.6000000000000001e115 < x Initial program 10.3%
Taylor expanded in x around inf 65.7%
Taylor expanded in j around inf 53.4%
Taylor expanded in i around inf 38.6%
Final simplification38.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y2 (* a (* t y5))))
(t_2 (* y0 (* y5 (* j y3))))
(t_3 (* i (* y (* k y5)))))
(if (<= x -1.25e+145)
(* i (* j (* x y1)))
(if (<= x -6.8e+64)
(* a (* t (* y2 y5)))
(if (<= x -39000000000000.0)
t_2
(if (<= x -1.15e-10)
(* b (* (* x y) a))
(if (<= x -2.15e-200)
t_3
(if (<= x -5.8e-301)
t_1
(if (<= x 3.8e-103)
(* b (* z (* k y0)))
(if (<= x 2.2e-64)
t_1
(if (<= x 1.15e+38)
t_2
(if (<= x 2e+113)
(* j (* y1 (* x i)))
(if (<= x 2.45e+116)
t_3
(* j (* x (* i y1))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y2 * (a * (t * y5));
double t_2 = y0 * (y5 * (j * y3));
double t_3 = i * (y * (k * y5));
double tmp;
if (x <= -1.25e+145) {
tmp = i * (j * (x * y1));
} else if (x <= -6.8e+64) {
tmp = a * (t * (y2 * y5));
} else if (x <= -39000000000000.0) {
tmp = t_2;
} else if (x <= -1.15e-10) {
tmp = b * ((x * y) * a);
} else if (x <= -2.15e-200) {
tmp = t_3;
} else if (x <= -5.8e-301) {
tmp = t_1;
} else if (x <= 3.8e-103) {
tmp = b * (z * (k * y0));
} else if (x <= 2.2e-64) {
tmp = t_1;
} else if (x <= 1.15e+38) {
tmp = t_2;
} else if (x <= 2e+113) {
tmp = j * (y1 * (x * i));
} else if (x <= 2.45e+116) {
tmp = t_3;
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = y2 * (a * (t * y5))
t_2 = y0 * (y5 * (j * y3))
t_3 = i * (y * (k * y5))
if (x <= (-1.25d+145)) then
tmp = i * (j * (x * y1))
else if (x <= (-6.8d+64)) then
tmp = a * (t * (y2 * y5))
else if (x <= (-39000000000000.0d0)) then
tmp = t_2
else if (x <= (-1.15d-10)) then
tmp = b * ((x * y) * a)
else if (x <= (-2.15d-200)) then
tmp = t_3
else if (x <= (-5.8d-301)) then
tmp = t_1
else if (x <= 3.8d-103) then
tmp = b * (z * (k * y0))
else if (x <= 2.2d-64) then
tmp = t_1
else if (x <= 1.15d+38) then
tmp = t_2
else if (x <= 2d+113) then
tmp = j * (y1 * (x * i))
else if (x <= 2.45d+116) then
tmp = t_3
else
tmp = j * (x * (i * y1))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y2 * (a * (t * y5));
double t_2 = y0 * (y5 * (j * y3));
double t_3 = i * (y * (k * y5));
double tmp;
if (x <= -1.25e+145) {
tmp = i * (j * (x * y1));
} else if (x <= -6.8e+64) {
tmp = a * (t * (y2 * y5));
} else if (x <= -39000000000000.0) {
tmp = t_2;
} else if (x <= -1.15e-10) {
tmp = b * ((x * y) * a);
} else if (x <= -2.15e-200) {
tmp = t_3;
} else if (x <= -5.8e-301) {
tmp = t_1;
} else if (x <= 3.8e-103) {
tmp = b * (z * (k * y0));
} else if (x <= 2.2e-64) {
tmp = t_1;
} else if (x <= 1.15e+38) {
tmp = t_2;
} else if (x <= 2e+113) {
tmp = j * (y1 * (x * i));
} else if (x <= 2.45e+116) {
tmp = t_3;
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y2 * (a * (t * y5)) t_2 = y0 * (y5 * (j * y3)) t_3 = i * (y * (k * y5)) tmp = 0 if x <= -1.25e+145: tmp = i * (j * (x * y1)) elif x <= -6.8e+64: tmp = a * (t * (y2 * y5)) elif x <= -39000000000000.0: tmp = t_2 elif x <= -1.15e-10: tmp = b * ((x * y) * a) elif x <= -2.15e-200: tmp = t_3 elif x <= -5.8e-301: tmp = t_1 elif x <= 3.8e-103: tmp = b * (z * (k * y0)) elif x <= 2.2e-64: tmp = t_1 elif x <= 1.15e+38: tmp = t_2 elif x <= 2e+113: tmp = j * (y1 * (x * i)) elif x <= 2.45e+116: tmp = t_3 else: tmp = j * (x * (i * y1)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y2 * Float64(a * Float64(t * y5))) t_2 = Float64(y0 * Float64(y5 * Float64(j * y3))) t_3 = Float64(i * Float64(y * Float64(k * y5))) tmp = 0.0 if (x <= -1.25e+145) tmp = Float64(i * Float64(j * Float64(x * y1))); elseif (x <= -6.8e+64) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= -39000000000000.0) tmp = t_2; elseif (x <= -1.15e-10) tmp = Float64(b * Float64(Float64(x * y) * a)); elseif (x <= -2.15e-200) tmp = t_3; elseif (x <= -5.8e-301) tmp = t_1; elseif (x <= 3.8e-103) tmp = Float64(b * Float64(z * Float64(k * y0))); elseif (x <= 2.2e-64) tmp = t_1; elseif (x <= 1.15e+38) tmp = t_2; elseif (x <= 2e+113) tmp = Float64(j * Float64(y1 * Float64(x * i))); elseif (x <= 2.45e+116) tmp = t_3; else tmp = Float64(j * Float64(x * Float64(i * y1))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y2 * (a * (t * y5)); t_2 = y0 * (y5 * (j * y3)); t_3 = i * (y * (k * y5)); tmp = 0.0; if (x <= -1.25e+145) tmp = i * (j * (x * y1)); elseif (x <= -6.8e+64) tmp = a * (t * (y2 * y5)); elseif (x <= -39000000000000.0) tmp = t_2; elseif (x <= -1.15e-10) tmp = b * ((x * y) * a); elseif (x <= -2.15e-200) tmp = t_3; elseif (x <= -5.8e-301) tmp = t_1; elseif (x <= 3.8e-103) tmp = b * (z * (k * y0)); elseif (x <= 2.2e-64) tmp = t_1; elseif (x <= 1.15e+38) tmp = t_2; elseif (x <= 2e+113) tmp = j * (y1 * (x * i)); elseif (x <= 2.45e+116) tmp = t_3; else tmp = j * (x * (i * y1)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y0 * N[(y5 * N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(i * N[(y * N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.25e+145], N[(i * N[(j * N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -6.8e+64], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -39000000000000.0], t$95$2, If[LessEqual[x, -1.15e-10], N[(b * N[(N[(x * y), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -2.15e-200], t$95$3, If[LessEqual[x, -5.8e-301], t$95$1, If[LessEqual[x, 3.8e-103], N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.2e-64], t$95$1, If[LessEqual[x, 1.15e+38], t$95$2, If[LessEqual[x, 2e+113], N[(j * N[(y1 * N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.45e+116], t$95$3, N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
t_2 := y0 \cdot \left(y5 \cdot \left(j \cdot y3\right)\right)\\
t_3 := i \cdot \left(y \cdot \left(k \cdot y5\right)\right)\\
\mathbf{if}\;x \leq -1.25 \cdot 10^{+145}:\\
\;\;\;\;i \cdot \left(j \cdot \left(x \cdot y1\right)\right)\\
\mathbf{elif}\;x \leq -6.8 \cdot 10^{+64}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq -39000000000000:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq -1.15 \cdot 10^{-10}:\\
\;\;\;\;b \cdot \left(\left(x \cdot y\right) \cdot a\right)\\
\mathbf{elif}\;x \leq -2.15 \cdot 10^{-200}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x \leq -5.8 \cdot 10^{-301}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 3.8 \cdot 10^{-103}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;x \leq 2.2 \cdot 10^{-64}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 1.15 \cdot 10^{+38}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 2 \cdot 10^{+113}:\\
\;\;\;\;j \cdot \left(y1 \cdot \left(x \cdot i\right)\right)\\
\mathbf{elif}\;x \leq 2.45 \cdot 10^{+116}:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\end{array}
\end{array}
if x < -1.24999999999999992e145Initial program 12.9%
Taylor expanded in x around inf 55.0%
Taylor expanded in j around inf 48.8%
Taylor expanded in i around inf 45.6%
if -1.24999999999999992e145 < x < -6.8000000000000003e64Initial program 23.1%
Taylor expanded in y2 around inf 38.6%
Taylor expanded in t around inf 39.6%
Taylor expanded in a around inf 46.8%
*-commutative46.8%
Simplified46.8%
if -6.8000000000000003e64 < x < -3.9e13 or 2.2e-64 < x < 1.1500000000000001e38Initial program 46.6%
Taylor expanded in y0 around inf 47.8%
+-commutative47.8%
mul-1-neg47.8%
unsub-neg47.8%
*-commutative47.8%
*-commutative47.8%
*-commutative47.8%
*-commutative47.8%
Simplified47.8%
Taylor expanded in y5 around inf 31.5%
Taylor expanded in j around inf 31.0%
if -3.9e13 < x < -1.15000000000000004e-10Initial program 33.1%
Taylor expanded in y around inf 49.7%
+-commutative49.7%
mul-1-neg49.7%
unsub-neg49.7%
*-commutative49.7%
*-commutative49.7%
mul-1-neg49.7%
Simplified49.7%
Taylor expanded in y3 around 0 49.8%
Taylor expanded in a around inf 66.9%
*-commutative66.9%
*-commutative66.9%
associate-*l*66.9%
Simplified66.9%
if -1.15000000000000004e-10 < x < -2.14999999999999987e-200 or 2e113 < x < 2.4499999999999999e116Initial program 25.7%
Taylor expanded in y around inf 43.7%
+-commutative43.7%
mul-1-neg43.7%
unsub-neg43.7%
*-commutative43.7%
*-commutative43.7%
mul-1-neg43.7%
Simplified43.7%
Taylor expanded in y3 around 0 32.8%
Taylor expanded in y5 around inf 26.2%
associate-*r*26.1%
*-commutative26.1%
associate-*l*28.3%
Simplified28.3%
if -2.14999999999999987e-200 < x < -5.79999999999999968e-301 or 3.8000000000000001e-103 < x < 2.2e-64Initial program 28.4%
Taylor expanded in y2 around inf 54.6%
Taylor expanded in t around inf 46.8%
Taylor expanded in a around inf 44.1%
*-commutative44.1%
Simplified44.1%
if -5.79999999999999968e-301 < x < 3.8000000000000001e-103Initial program 33.7%
Taylor expanded in y0 around inf 43.9%
+-commutative43.9%
mul-1-neg43.9%
unsub-neg43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
Simplified43.9%
Taylor expanded in k around -inf 37.1%
associate-*r*37.1%
+-commutative37.1%
mul-1-neg37.1%
unsub-neg37.1%
*-commutative37.1%
Simplified37.1%
Taylor expanded in z around inf 32.5%
associate-*r*34.8%
*-commutative34.8%
Simplified34.8%
if 1.1500000000000001e38 < x < 2e113Initial program 56.3%
Taylor expanded in x around inf 31.8%
Taylor expanded in j around inf 32.4%
Taylor expanded in i around inf 26.3%
associate-*r*32.2%
*-commutative32.2%
Simplified32.2%
if 2.4499999999999999e116 < x Initial program 10.5%
Taylor expanded in x around inf 64.8%
Taylor expanded in j around inf 54.8%
Taylor expanded in i around inf 39.6%
Final simplification37.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y0 (- (* z k) (* x j))))))
(if (<= c -8.8e+58)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= c -4800000.0)
t_1
(if (<= c -3.15e-58)
(* b (* t (- (* j y4) (* z a))))
(if (<= c -3.75e-100)
(* j (* y0 (* y3 y5)))
(if (<= c -7.5e-260)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= c 3.5e-259)
(* k (* z (- (* b y0) (* i y1))))
(if (<= c 1.35e-175)
(* i (* k (- (* y y5) (* z y1))))
(if (<= c 1.7e-170)
(* b (* (* y k) (- y4)))
(if (<= c 1.6e-20)
t_1
(if (<= c 5.6e+42)
(* x (* y (- (* a b) (* c i))))
(* j (* x (- (* i y1) (* b y0))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y0 * ((z * k) - (x * j)));
double tmp;
if (c <= -8.8e+58) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (c <= -4800000.0) {
tmp = t_1;
} else if (c <= -3.15e-58) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (c <= -3.75e-100) {
tmp = j * (y0 * (y3 * y5));
} else if (c <= -7.5e-260) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (c <= 3.5e-259) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (c <= 1.35e-175) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= 1.7e-170) {
tmp = b * ((y * k) * -y4);
} else if (c <= 1.6e-20) {
tmp = t_1;
} else if (c <= 5.6e+42) {
tmp = x * (y * ((a * b) - (c * i)));
} else {
tmp = j * (x * ((i * y1) - (b * y0)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = b * (y0 * ((z * k) - (x * j)))
if (c <= (-8.8d+58)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (c <= (-4800000.0d0)) then
tmp = t_1
else if (c <= (-3.15d-58)) then
tmp = b * (t * ((j * y4) - (z * a)))
else if (c <= (-3.75d-100)) then
tmp = j * (y0 * (y3 * y5))
else if (c <= (-7.5d-260)) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (c <= 3.5d-259) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (c <= 1.35d-175) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (c <= 1.7d-170) then
tmp = b * ((y * k) * -y4)
else if (c <= 1.6d-20) then
tmp = t_1
else if (c <= 5.6d+42) then
tmp = x * (y * ((a * b) - (c * i)))
else
tmp = j * (x * ((i * y1) - (b * y0)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y0 * ((z * k) - (x * j)));
double tmp;
if (c <= -8.8e+58) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (c <= -4800000.0) {
tmp = t_1;
} else if (c <= -3.15e-58) {
tmp = b * (t * ((j * y4) - (z * a)));
} else if (c <= -3.75e-100) {
tmp = j * (y0 * (y3 * y5));
} else if (c <= -7.5e-260) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (c <= 3.5e-259) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (c <= 1.35e-175) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= 1.7e-170) {
tmp = b * ((y * k) * -y4);
} else if (c <= 1.6e-20) {
tmp = t_1;
} else if (c <= 5.6e+42) {
tmp = x * (y * ((a * b) - (c * i)));
} else {
tmp = j * (x * ((i * y1) - (b * y0)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (y0 * ((z * k) - (x * j))) tmp = 0 if c <= -8.8e+58: tmp = c * (y0 * ((x * y2) - (z * y3))) elif c <= -4800000.0: tmp = t_1 elif c <= -3.15e-58: tmp = b * (t * ((j * y4) - (z * a))) elif c <= -3.75e-100: tmp = j * (y0 * (y3 * y5)) elif c <= -7.5e-260: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif c <= 3.5e-259: tmp = k * (z * ((b * y0) - (i * y1))) elif c <= 1.35e-175: tmp = i * (k * ((y * y5) - (z * y1))) elif c <= 1.7e-170: tmp = b * ((y * k) * -y4) elif c <= 1.6e-20: tmp = t_1 elif c <= 5.6e+42: tmp = x * (y * ((a * b) - (c * i))) else: tmp = j * (x * ((i * y1) - (b * y0))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))) tmp = 0.0 if (c <= -8.8e+58) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (c <= -4800000.0) tmp = t_1; elseif (c <= -3.15e-58) tmp = Float64(b * Float64(t * Float64(Float64(j * y4) - Float64(z * a)))); elseif (c <= -3.75e-100) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (c <= -7.5e-260) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (c <= 3.5e-259) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (c <= 1.35e-175) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (c <= 1.7e-170) tmp = Float64(b * Float64(Float64(y * k) * Float64(-y4))); elseif (c <= 1.6e-20) tmp = t_1; elseif (c <= 5.6e+42) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); else tmp = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (y0 * ((z * k) - (x * j))); tmp = 0.0; if (c <= -8.8e+58) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (c <= -4800000.0) tmp = t_1; elseif (c <= -3.15e-58) tmp = b * (t * ((j * y4) - (z * a))); elseif (c <= -3.75e-100) tmp = j * (y0 * (y3 * y5)); elseif (c <= -7.5e-260) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (c <= 3.5e-259) tmp = k * (z * ((b * y0) - (i * y1))); elseif (c <= 1.35e-175) tmp = i * (k * ((y * y5) - (z * y1))); elseif (c <= 1.7e-170) tmp = b * ((y * k) * -y4); elseif (c <= 1.6e-20) tmp = t_1; elseif (c <= 5.6e+42) tmp = x * (y * ((a * b) - (c * i))); else tmp = j * (x * ((i * y1) - (b * y0))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -8.8e+58], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -4800000.0], t$95$1, If[LessEqual[c, -3.15e-58], N[(b * N[(t * N[(N[(j * y4), $MachinePrecision] - N[(z * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -3.75e-100], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -7.5e-260], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 3.5e-259], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.35e-175], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.7e-170], N[(b * N[(N[(y * k), $MachinePrecision] * (-y4)), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.6e-20], t$95$1, If[LessEqual[c, 5.6e+42], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{if}\;c \leq -8.8 \cdot 10^{+58}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;c \leq -4800000:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -3.15 \cdot 10^{-58}:\\
\;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4 - z \cdot a\right)\right)\\
\mathbf{elif}\;c \leq -3.75 \cdot 10^{-100}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;c \leq -7.5 \cdot 10^{-260}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;c \leq 3.5 \cdot 10^{-259}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;c \leq 1.35 \cdot 10^{-175}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;c \leq 1.7 \cdot 10^{-170}:\\
\;\;\;\;b \cdot \left(\left(y \cdot k\right) \cdot \left(-y4\right)\right)\\
\mathbf{elif}\;c \leq 1.6 \cdot 10^{-20}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq 5.6 \cdot 10^{+42}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\end{array}
\end{array}
if c < -8.8000000000000003e58Initial program 22.9%
Taylor expanded in y0 around inf 50.5%
+-commutative50.5%
mul-1-neg50.5%
unsub-neg50.5%
*-commutative50.5%
*-commutative50.5%
*-commutative50.5%
*-commutative50.5%
Simplified50.5%
Taylor expanded in c around inf 39.4%
*-commutative39.4%
Simplified39.4%
if -8.8000000000000003e58 < c < -4.8e6 or 1.70000000000000006e-170 < c < 1.59999999999999985e-20Initial program 31.8%
Taylor expanded in b around inf 34.4%
Taylor expanded in y0 around inf 41.9%
if -4.8e6 < c < -3.14999999999999999e-58Initial program 26.7%
Taylor expanded in b around inf 53.6%
Taylor expanded in t around inf 60.2%
+-commutative60.2%
mul-1-neg60.2%
unsub-neg60.2%
Simplified60.2%
if -3.14999999999999999e-58 < c < -3.75000000000000007e-100Initial program 16.7%
Taylor expanded in y0 around inf 33.7%
+-commutative33.7%
mul-1-neg33.7%
unsub-neg33.7%
*-commutative33.7%
*-commutative33.7%
*-commutative33.7%
*-commutative33.7%
Simplified33.7%
Taylor expanded in y5 around inf 17.8%
Taylor expanded in j around inf 67.2%
*-commutative67.2%
*-commutative67.2%
Simplified67.2%
if -3.75000000000000007e-100 < c < -7.5000000000000005e-260Initial program 30.2%
Taylor expanded in y2 around inf 52.9%
Taylor expanded in k around inf 51.1%
if -7.5000000000000005e-260 < c < 3.5000000000000002e-259Initial program 31.7%
Taylor expanded in k around inf 42.1%
+-commutative42.1%
mul-1-neg42.1%
unsub-neg42.1%
*-commutative42.1%
associate-*r*42.1%
neg-mul-142.1%
Simplified42.1%
Taylor expanded in z around inf 42.3%
if 3.5000000000000002e-259 < c < 1.34999999999999999e-175Initial program 43.4%
Taylor expanded in k around inf 43.7%
+-commutative43.7%
mul-1-neg43.7%
unsub-neg43.7%
*-commutative43.7%
associate-*r*43.7%
neg-mul-143.7%
Simplified43.7%
Taylor expanded in i around -inf 44.1%
+-commutative44.1%
mul-1-neg44.1%
unsub-neg44.1%
Simplified44.1%
if 1.34999999999999999e-175 < c < 1.70000000000000006e-170Initial program 74.6%
Taylor expanded in b around inf 100.0%
Taylor expanded in y4 around inf 75.4%
Taylor expanded in j around 0 75.4%
neg-mul-175.4%
distribute-lft-neg-in75.4%
*-commutative75.4%
Simplified75.4%
if 1.59999999999999985e-20 < c < 5.5999999999999999e42Initial program 16.5%
Taylor expanded in x around inf 57.5%
Taylor expanded in y around inf 66.3%
if 5.5999999999999999e42 < c Initial program 18.5%
Taylor expanded in x around inf 39.1%
Taylor expanded in j around inf 37.8%
Final simplification45.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* z (* b (* k y0))))
(t_2 (* i (* k (- (* y y5) (* z y1)))))
(t_3 (* y2 (* t (* a y5))))
(t_4 (* b (* x (- (* y a) (* j y0))))))
(if (<= y -1.55e+112)
t_2
(if (<= y -4.2e-86)
(* b (* j (- (* t y4) (* x y0))))
(if (<= y 3.2e-150)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= y 3.8e-124)
t_4
(if (<= y 6.2e-88)
t_1
(if (<= y 3.8e+66)
t_3
(if (<= y 2.7e+176)
t_4
(if (<= y 2.5e+232)
t_3
(if (<= y 4.2e+245)
t_1
(if (<= y 4e+259) t_2 (* b (* k (* y (- y4))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = z * (b * (k * y0));
double t_2 = i * (k * ((y * y5) - (z * y1)));
double t_3 = y2 * (t * (a * y5));
double t_4 = b * (x * ((y * a) - (j * y0)));
double tmp;
if (y <= -1.55e+112) {
tmp = t_2;
} else if (y <= -4.2e-86) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else if (y <= 3.2e-150) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y <= 3.8e-124) {
tmp = t_4;
} else if (y <= 6.2e-88) {
tmp = t_1;
} else if (y <= 3.8e+66) {
tmp = t_3;
} else if (y <= 2.7e+176) {
tmp = t_4;
} else if (y <= 2.5e+232) {
tmp = t_3;
} else if (y <= 4.2e+245) {
tmp = t_1;
} else if (y <= 4e+259) {
tmp = t_2;
} else {
tmp = b * (k * (y * -y4));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = z * (b * (k * y0))
t_2 = i * (k * ((y * y5) - (z * y1)))
t_3 = y2 * (t * (a * y5))
t_4 = b * (x * ((y * a) - (j * y0)))
if (y <= (-1.55d+112)) then
tmp = t_2
else if (y <= (-4.2d-86)) then
tmp = b * (j * ((t * y4) - (x * y0)))
else if (y <= 3.2d-150) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (y <= 3.8d-124) then
tmp = t_4
else if (y <= 6.2d-88) then
tmp = t_1
else if (y <= 3.8d+66) then
tmp = t_3
else if (y <= 2.7d+176) then
tmp = t_4
else if (y <= 2.5d+232) then
tmp = t_3
else if (y <= 4.2d+245) then
tmp = t_1
else if (y <= 4d+259) then
tmp = t_2
else
tmp = b * (k * (y * -y4))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = z * (b * (k * y0));
double t_2 = i * (k * ((y * y5) - (z * y1)));
double t_3 = y2 * (t * (a * y5));
double t_4 = b * (x * ((y * a) - (j * y0)));
double tmp;
if (y <= -1.55e+112) {
tmp = t_2;
} else if (y <= -4.2e-86) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else if (y <= 3.2e-150) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y <= 3.8e-124) {
tmp = t_4;
} else if (y <= 6.2e-88) {
tmp = t_1;
} else if (y <= 3.8e+66) {
tmp = t_3;
} else if (y <= 2.7e+176) {
tmp = t_4;
} else if (y <= 2.5e+232) {
tmp = t_3;
} else if (y <= 4.2e+245) {
tmp = t_1;
} else if (y <= 4e+259) {
tmp = t_2;
} else {
tmp = b * (k * (y * -y4));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = z * (b * (k * y0)) t_2 = i * (k * ((y * y5) - (z * y1))) t_3 = y2 * (t * (a * y5)) t_4 = b * (x * ((y * a) - (j * y0))) tmp = 0 if y <= -1.55e+112: tmp = t_2 elif y <= -4.2e-86: tmp = b * (j * ((t * y4) - (x * y0))) elif y <= 3.2e-150: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif y <= 3.8e-124: tmp = t_4 elif y <= 6.2e-88: tmp = t_1 elif y <= 3.8e+66: tmp = t_3 elif y <= 2.7e+176: tmp = t_4 elif y <= 2.5e+232: tmp = t_3 elif y <= 4.2e+245: tmp = t_1 elif y <= 4e+259: tmp = t_2 else: tmp = b * (k * (y * -y4)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(z * Float64(b * Float64(k * y0))) t_2 = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))) t_3 = Float64(y2 * Float64(t * Float64(a * y5))) t_4 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))) tmp = 0.0 if (y <= -1.55e+112) tmp = t_2; elseif (y <= -4.2e-86) tmp = Float64(b * Float64(j * Float64(Float64(t * y4) - Float64(x * y0)))); elseif (y <= 3.2e-150) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y <= 3.8e-124) tmp = t_4; elseif (y <= 6.2e-88) tmp = t_1; elseif (y <= 3.8e+66) tmp = t_3; elseif (y <= 2.7e+176) tmp = t_4; elseif (y <= 2.5e+232) tmp = t_3; elseif (y <= 4.2e+245) tmp = t_1; elseif (y <= 4e+259) tmp = t_2; else tmp = Float64(b * Float64(k * Float64(y * Float64(-y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = z * (b * (k * y0)); t_2 = i * (k * ((y * y5) - (z * y1))); t_3 = y2 * (t * (a * y5)); t_4 = b * (x * ((y * a) - (j * y0))); tmp = 0.0; if (y <= -1.55e+112) tmp = t_2; elseif (y <= -4.2e-86) tmp = b * (j * ((t * y4) - (x * y0))); elseif (y <= 3.2e-150) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (y <= 3.8e-124) tmp = t_4; elseif (y <= 6.2e-88) tmp = t_1; elseif (y <= 3.8e+66) tmp = t_3; elseif (y <= 2.7e+176) tmp = t_4; elseif (y <= 2.5e+232) tmp = t_3; elseif (y <= 4.2e+245) tmp = t_1; elseif (y <= 4e+259) tmp = t_2; else tmp = b * (k * (y * -y4)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.55e+112], t$95$2, If[LessEqual[y, -4.2e-86], N[(b * N[(j * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.2e-150], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.8e-124], t$95$4, If[LessEqual[y, 6.2e-88], t$95$1, If[LessEqual[y, 3.8e+66], t$95$3, If[LessEqual[y, 2.7e+176], t$95$4, If[LessEqual[y, 2.5e+232], t$95$3, If[LessEqual[y, 4.2e+245], t$95$1, If[LessEqual[y, 4e+259], t$95$2, N[(b * N[(k * N[(y * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
t_2 := i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
t_3 := y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
t_4 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{if}\;y \leq -1.55 \cdot 10^{+112}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -4.2 \cdot 10^{-86}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;y \leq 3.2 \cdot 10^{-150}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y \leq 3.8 \cdot 10^{-124}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y \leq 6.2 \cdot 10^{-88}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 3.8 \cdot 10^{+66}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y \leq 2.7 \cdot 10^{+176}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y \leq 2.5 \cdot 10^{+232}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y \leq 4.2 \cdot 10^{+245}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 4 \cdot 10^{+259}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(k \cdot \left(y \cdot \left(-y4\right)\right)\right)\\
\end{array}
\end{array}
if y < -1.54999999999999991e112 or 4.19999999999999992e245 < y < 4e259Initial program 19.0%
Taylor expanded in k around inf 36.2%
+-commutative36.2%
mul-1-neg36.2%
unsub-neg36.2%
*-commutative36.2%
associate-*r*36.2%
neg-mul-136.2%
Simplified36.2%
Taylor expanded in i around -inf 57.5%
+-commutative57.5%
mul-1-neg57.5%
unsub-neg57.5%
Simplified57.5%
if -1.54999999999999991e112 < y < -4.2e-86Initial program 36.7%
Taylor expanded in b around inf 47.3%
Taylor expanded in j around inf 38.0%
if -4.2e-86 < y < 3.1999999999999998e-150Initial program 29.6%
Taylor expanded in y2 around inf 44.8%
Taylor expanded in k around inf 36.6%
if 3.1999999999999998e-150 < y < 3.80000000000000012e-124 or 3.8000000000000002e66 < y < 2.6999999999999998e176Initial program 25.8%
Taylor expanded in b around inf 32.1%
Taylor expanded in x around inf 45.5%
if 3.80000000000000012e-124 < y < 6.1999999999999995e-88 or 2.49999999999999993e232 < y < 4.19999999999999992e245Initial program 12.5%
Taylor expanded in y0 around inf 39.4%
+-commutative39.4%
mul-1-neg39.4%
unsub-neg39.4%
*-commutative39.4%
*-commutative39.4%
*-commutative39.4%
*-commutative39.4%
Simplified39.4%
Taylor expanded in k around -inf 76.9%
associate-*r*76.9%
+-commutative76.9%
mul-1-neg76.9%
unsub-neg76.9%
*-commutative76.9%
Simplified76.9%
Taylor expanded in z around inf 64.9%
pow164.9%
Applied egg-rr64.9%
unpow164.9%
associate-*r*76.9%
associate-*r*100.0%
Simplified100.0%
if 6.1999999999999995e-88 < y < 3.8000000000000002e66 or 2.6999999999999998e176 < y < 2.49999999999999993e232Initial program 31.2%
Taylor expanded in y2 around inf 47.1%
Taylor expanded in t around inf 43.2%
Taylor expanded in a around inf 38.8%
*-commutative38.8%
Simplified38.8%
if 4e259 < y Initial program 15.9%
Taylor expanded in b around inf 31.4%
Taylor expanded in y4 around inf 30.0%
Taylor expanded in j around 0 30.4%
associate-*r*30.4%
mul-1-neg30.4%
Simplified30.4%
Final simplification43.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* y0 (- (* y2 y5)))))
(t_2 (* b (* j (- (* t y4) (* x y0))))))
(if (<= y4 -1.85e+224)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y4 -2.3e+184)
t_1
(if (<= y4 -1.7e+129)
(* (* y2 y4) (* k y1))
(if (<= y4 -3.1e-100)
t_2
(if (<= y4 -9e-124)
(* i (* k (* z (- y1))))
(if (<= y4 -5e-158)
(* b (* k (* z y0)))
(if (<= y4 -1.12e-187)
(* c (* y (* i (- x))))
(if (<= y4 1.2e-76)
(* b (* y0 (- (* z k) (* x j))))
(if (<= y4 6.6e-40)
t_1
(if (<= y4 8.4e+46)
t_2
(* y1 (* y3 (* j (- y4))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y0 * -(y2 * y5));
double t_2 = b * (j * ((t * y4) - (x * y0)));
double tmp;
if (y4 <= -1.85e+224) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -2.3e+184) {
tmp = t_1;
} else if (y4 <= -1.7e+129) {
tmp = (y2 * y4) * (k * y1);
} else if (y4 <= -3.1e-100) {
tmp = t_2;
} else if (y4 <= -9e-124) {
tmp = i * (k * (z * -y1));
} else if (y4 <= -5e-158) {
tmp = b * (k * (z * y0));
} else if (y4 <= -1.12e-187) {
tmp = c * (y * (i * -x));
} else if (y4 <= 1.2e-76) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y4 <= 6.6e-40) {
tmp = t_1;
} else if (y4 <= 8.4e+46) {
tmp = t_2;
} else {
tmp = y1 * (y3 * (j * -y4));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = k * (y0 * -(y2 * y5))
t_2 = b * (j * ((t * y4) - (x * y0)))
if (y4 <= (-1.85d+224)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y4 <= (-2.3d+184)) then
tmp = t_1
else if (y4 <= (-1.7d+129)) then
tmp = (y2 * y4) * (k * y1)
else if (y4 <= (-3.1d-100)) then
tmp = t_2
else if (y4 <= (-9d-124)) then
tmp = i * (k * (z * -y1))
else if (y4 <= (-5d-158)) then
tmp = b * (k * (z * y0))
else if (y4 <= (-1.12d-187)) then
tmp = c * (y * (i * -x))
else if (y4 <= 1.2d-76) then
tmp = b * (y0 * ((z * k) - (x * j)))
else if (y4 <= 6.6d-40) then
tmp = t_1
else if (y4 <= 8.4d+46) then
tmp = t_2
else
tmp = y1 * (y3 * (j * -y4))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y0 * -(y2 * y5));
double t_2 = b * (j * ((t * y4) - (x * y0)));
double tmp;
if (y4 <= -1.85e+224) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -2.3e+184) {
tmp = t_1;
} else if (y4 <= -1.7e+129) {
tmp = (y2 * y4) * (k * y1);
} else if (y4 <= -3.1e-100) {
tmp = t_2;
} else if (y4 <= -9e-124) {
tmp = i * (k * (z * -y1));
} else if (y4 <= -5e-158) {
tmp = b * (k * (z * y0));
} else if (y4 <= -1.12e-187) {
tmp = c * (y * (i * -x));
} else if (y4 <= 1.2e-76) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y4 <= 6.6e-40) {
tmp = t_1;
} else if (y4 <= 8.4e+46) {
tmp = t_2;
} else {
tmp = y1 * (y3 * (j * -y4));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = k * (y0 * -(y2 * y5)) t_2 = b * (j * ((t * y4) - (x * y0))) tmp = 0 if y4 <= -1.85e+224: tmp = b * (y4 * ((t * j) - (y * k))) elif y4 <= -2.3e+184: tmp = t_1 elif y4 <= -1.7e+129: tmp = (y2 * y4) * (k * y1) elif y4 <= -3.1e-100: tmp = t_2 elif y4 <= -9e-124: tmp = i * (k * (z * -y1)) elif y4 <= -5e-158: tmp = b * (k * (z * y0)) elif y4 <= -1.12e-187: tmp = c * (y * (i * -x)) elif y4 <= 1.2e-76: tmp = b * (y0 * ((z * k) - (x * j))) elif y4 <= 6.6e-40: tmp = t_1 elif y4 <= 8.4e+46: tmp = t_2 else: tmp = y1 * (y3 * (j * -y4)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(k * Float64(y0 * Float64(-Float64(y2 * y5)))) t_2 = Float64(b * Float64(j * Float64(Float64(t * y4) - Float64(x * y0)))) tmp = 0.0 if (y4 <= -1.85e+224) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y4 <= -2.3e+184) tmp = t_1; elseif (y4 <= -1.7e+129) tmp = Float64(Float64(y2 * y4) * Float64(k * y1)); elseif (y4 <= -3.1e-100) tmp = t_2; elseif (y4 <= -9e-124) tmp = Float64(i * Float64(k * Float64(z * Float64(-y1)))); elseif (y4 <= -5e-158) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (y4 <= -1.12e-187) tmp = Float64(c * Float64(y * Float64(i * Float64(-x)))); elseif (y4 <= 1.2e-76) tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); elseif (y4 <= 6.6e-40) tmp = t_1; elseif (y4 <= 8.4e+46) tmp = t_2; else tmp = Float64(y1 * Float64(y3 * Float64(j * Float64(-y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = k * (y0 * -(y2 * y5)); t_2 = b * (j * ((t * y4) - (x * y0))); tmp = 0.0; if (y4 <= -1.85e+224) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y4 <= -2.3e+184) tmp = t_1; elseif (y4 <= -1.7e+129) tmp = (y2 * y4) * (k * y1); elseif (y4 <= -3.1e-100) tmp = t_2; elseif (y4 <= -9e-124) tmp = i * (k * (z * -y1)); elseif (y4 <= -5e-158) tmp = b * (k * (z * y0)); elseif (y4 <= -1.12e-187) tmp = c * (y * (i * -x)); elseif (y4 <= 1.2e-76) tmp = b * (y0 * ((z * k) - (x * j))); elseif (y4 <= 6.6e-40) tmp = t_1; elseif (y4 <= 8.4e+46) tmp = t_2; else tmp = y1 * (y3 * (j * -y4)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(k * N[(y0 * (-N[(y2 * y5), $MachinePrecision])), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(j * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -1.85e+224], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.3e+184], t$95$1, If[LessEqual[y4, -1.7e+129], N[(N[(y2 * y4), $MachinePrecision] * N[(k * y1), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -3.1e-100], t$95$2, If[LessEqual[y4, -9e-124], N[(i * N[(k * N[(z * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -5e-158], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1.12e-187], N[(c * N[(y * N[(i * (-x)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.2e-76], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 6.6e-40], t$95$1, If[LessEqual[y4, 8.4e+46], t$95$2, N[(y1 * N[(y3 * N[(j * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y0 \cdot \left(-y2 \cdot y5\right)\right)\\
t_2 := b \cdot \left(j \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{if}\;y4 \leq -1.85 \cdot 10^{+224}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y4 \leq -2.3 \cdot 10^{+184}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -1.7 \cdot 10^{+129}:\\
\;\;\;\;\left(y2 \cdot y4\right) \cdot \left(k \cdot y1\right)\\
\mathbf{elif}\;y4 \leq -3.1 \cdot 10^{-100}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq -9 \cdot 10^{-124}:\\
\;\;\;\;i \cdot \left(k \cdot \left(z \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;y4 \leq -5 \cdot 10^{-158}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;y4 \leq -1.12 \cdot 10^{-187}:\\
\;\;\;\;c \cdot \left(y \cdot \left(i \cdot \left(-x\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 1.2 \cdot 10^{-76}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y4 \leq 6.6 \cdot 10^{-40}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 8.4 \cdot 10^{+46}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(j \cdot \left(-y4\right)\right)\right)\\
\end{array}
\end{array}
if y4 < -1.85000000000000002e224Initial program 0.0%
Taylor expanded in b around inf 55.8%
Taylor expanded in y4 around inf 56.0%
if -1.85000000000000002e224 < y4 < -2.3e184 or 1.20000000000000007e-76 < y4 < 6.59999999999999986e-40Initial program 38.5%
Taylor expanded in y0 around inf 38.6%
+-commutative38.6%
mul-1-neg38.6%
unsub-neg38.6%
*-commutative38.6%
*-commutative38.6%
*-commutative38.6%
*-commutative38.6%
Simplified38.6%
Taylor expanded in y5 around inf 43.3%
Taylor expanded in j around 0 47.3%
associate-*r*47.3%
neg-mul-147.3%
*-commutative47.3%
*-commutative47.3%
Simplified47.3%
if -2.3e184 < y4 < -1.70000000000000009e129Initial program 13.2%
Taylor expanded in y2 around inf 38.2%
Taylor expanded in y1 around inf 76.3%
+-commutative76.3%
mul-1-neg76.3%
unsub-neg76.3%
Simplified76.3%
Taylor expanded in k around inf 50.9%
associate-*r*50.9%
*-commutative50.9%
Simplified50.9%
if -1.70000000000000009e129 < y4 < -3.0999999999999999e-100 or 6.59999999999999986e-40 < y4 < 8.4e46Initial program 29.2%
Taylor expanded in b around inf 38.8%
Taylor expanded in j around inf 36.0%
if -3.0999999999999999e-100 < y4 < -8.9999999999999992e-124Initial program 37.5%
Taylor expanded in k around inf 50.7%
+-commutative50.7%
mul-1-neg50.7%
unsub-neg50.7%
*-commutative50.7%
associate-*r*50.7%
neg-mul-150.7%
Simplified50.7%
Taylor expanded in y1 around inf 27.6%
Taylor expanded in y2 around 0 39.9%
associate-*r*39.9%
neg-mul-139.9%
*-commutative39.9%
Simplified39.9%
if -8.9999999999999992e-124 < y4 < -4.99999999999999972e-158Initial program 15.1%
Taylor expanded in y0 around inf 58.0%
+-commutative58.0%
mul-1-neg58.0%
unsub-neg58.0%
*-commutative58.0%
*-commutative58.0%
*-commutative58.0%
*-commutative58.0%
Simplified58.0%
Taylor expanded in k around -inf 72.2%
associate-*r*72.2%
+-commutative72.2%
mul-1-neg72.2%
unsub-neg72.2%
*-commutative72.2%
Simplified72.2%
Taylor expanded in z around inf 57.8%
if -4.99999999999999972e-158 < y4 < -1.12e-187Initial program 25.0%
Taylor expanded in y around inf 66.9%
+-commutative66.9%
mul-1-neg66.9%
unsub-neg66.9%
*-commutative66.9%
*-commutative66.9%
mul-1-neg66.9%
Simplified66.9%
Taylor expanded in y3 around 0 58.6%
Taylor expanded in c around inf 59.6%
mul-1-neg59.6%
distribute-rgt-neg-in59.6%
associate-*r*59.6%
distribute-lft-neg-in59.6%
*-commutative59.6%
distribute-rgt-neg-in59.6%
Simplified59.6%
if -1.12e-187 < y4 < 1.20000000000000007e-76Initial program 40.4%
Taylor expanded in b around inf 36.9%
Taylor expanded in y0 around inf 34.5%
if 8.4e46 < y4 Initial program 17.3%
Taylor expanded in y3 around -inf 39.0%
Taylor expanded in y1 around inf 48.5%
+-commutative48.5%
mul-1-neg48.5%
unsub-neg48.5%
Simplified48.5%
Taylor expanded in j around inf 45.1%
Final simplification42.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (* a (* x b)))))
(if (<= x -8.2e-12)
t_1
(if (<= x -1.3e-46)
(* y0 (* y5 (* j y3)))
(if (<= x -3.5e-52)
(* b (* y4 (* t j)))
(if (<= x -1.15e-159)
(* y2 (* a (* t y5)))
(if (<= x 1.55e-103)
(* z (* b (* k y0)))
(if (<= x 4.2e-65)
(* y2 (* t (* a y5)))
(if (<= x 6.4e+35)
(* j (* y0 (* y3 y5)))
(if (<= x 2.1e+114)
t_1
(if (<= x 2.2e+116)
(* i (* y (* k y5)))
(if (<= x 5.8e+187)
(* (- b) (* y0 (* x j)))
(* j (* x (* i y1)))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (a * (x * b));
double tmp;
if (x <= -8.2e-12) {
tmp = t_1;
} else if (x <= -1.3e-46) {
tmp = y0 * (y5 * (j * y3));
} else if (x <= -3.5e-52) {
tmp = b * (y4 * (t * j));
} else if (x <= -1.15e-159) {
tmp = y2 * (a * (t * y5));
} else if (x <= 1.55e-103) {
tmp = z * (b * (k * y0));
} else if (x <= 4.2e-65) {
tmp = y2 * (t * (a * y5));
} else if (x <= 6.4e+35) {
tmp = j * (y0 * (y3 * y5));
} else if (x <= 2.1e+114) {
tmp = t_1;
} else if (x <= 2.2e+116) {
tmp = i * (y * (k * y5));
} else if (x <= 5.8e+187) {
tmp = -b * (y0 * (x * j));
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y * (a * (x * b))
if (x <= (-8.2d-12)) then
tmp = t_1
else if (x <= (-1.3d-46)) then
tmp = y0 * (y5 * (j * y3))
else if (x <= (-3.5d-52)) then
tmp = b * (y4 * (t * j))
else if (x <= (-1.15d-159)) then
tmp = y2 * (a * (t * y5))
else if (x <= 1.55d-103) then
tmp = z * (b * (k * y0))
else if (x <= 4.2d-65) then
tmp = y2 * (t * (a * y5))
else if (x <= 6.4d+35) then
tmp = j * (y0 * (y3 * y5))
else if (x <= 2.1d+114) then
tmp = t_1
else if (x <= 2.2d+116) then
tmp = i * (y * (k * y5))
else if (x <= 5.8d+187) then
tmp = -b * (y0 * (x * j))
else
tmp = j * (x * (i * y1))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (a * (x * b));
double tmp;
if (x <= -8.2e-12) {
tmp = t_1;
} else if (x <= -1.3e-46) {
tmp = y0 * (y5 * (j * y3));
} else if (x <= -3.5e-52) {
tmp = b * (y4 * (t * j));
} else if (x <= -1.15e-159) {
tmp = y2 * (a * (t * y5));
} else if (x <= 1.55e-103) {
tmp = z * (b * (k * y0));
} else if (x <= 4.2e-65) {
tmp = y2 * (t * (a * y5));
} else if (x <= 6.4e+35) {
tmp = j * (y0 * (y3 * y5));
} else if (x <= 2.1e+114) {
tmp = t_1;
} else if (x <= 2.2e+116) {
tmp = i * (y * (k * y5));
} else if (x <= 5.8e+187) {
tmp = -b * (y0 * (x * j));
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y * (a * (x * b)) tmp = 0 if x <= -8.2e-12: tmp = t_1 elif x <= -1.3e-46: tmp = y0 * (y5 * (j * y3)) elif x <= -3.5e-52: tmp = b * (y4 * (t * j)) elif x <= -1.15e-159: tmp = y2 * (a * (t * y5)) elif x <= 1.55e-103: tmp = z * (b * (k * y0)) elif x <= 4.2e-65: tmp = y2 * (t * (a * y5)) elif x <= 6.4e+35: tmp = j * (y0 * (y3 * y5)) elif x <= 2.1e+114: tmp = t_1 elif x <= 2.2e+116: tmp = i * (y * (k * y5)) elif x <= 5.8e+187: tmp = -b * (y0 * (x * j)) else: tmp = j * (x * (i * y1)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y * Float64(a * Float64(x * b))) tmp = 0.0 if (x <= -8.2e-12) tmp = t_1; elseif (x <= -1.3e-46) tmp = Float64(y0 * Float64(y5 * Float64(j * y3))); elseif (x <= -3.5e-52) tmp = Float64(b * Float64(y4 * Float64(t * j))); elseif (x <= -1.15e-159) tmp = Float64(y2 * Float64(a * Float64(t * y5))); elseif (x <= 1.55e-103) tmp = Float64(z * Float64(b * Float64(k * y0))); elseif (x <= 4.2e-65) tmp = Float64(y2 * Float64(t * Float64(a * y5))); elseif (x <= 6.4e+35) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (x <= 2.1e+114) tmp = t_1; elseif (x <= 2.2e+116) tmp = Float64(i * Float64(y * Float64(k * y5))); elseif (x <= 5.8e+187) tmp = Float64(Float64(-b) * Float64(y0 * Float64(x * j))); else tmp = Float64(j * Float64(x * Float64(i * y1))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y * (a * (x * b)); tmp = 0.0; if (x <= -8.2e-12) tmp = t_1; elseif (x <= -1.3e-46) tmp = y0 * (y5 * (j * y3)); elseif (x <= -3.5e-52) tmp = b * (y4 * (t * j)); elseif (x <= -1.15e-159) tmp = y2 * (a * (t * y5)); elseif (x <= 1.55e-103) tmp = z * (b * (k * y0)); elseif (x <= 4.2e-65) tmp = y2 * (t * (a * y5)); elseif (x <= 6.4e+35) tmp = j * (y0 * (y3 * y5)); elseif (x <= 2.1e+114) tmp = t_1; elseif (x <= 2.2e+116) tmp = i * (y * (k * y5)); elseif (x <= 5.8e+187) tmp = -b * (y0 * (x * j)); else tmp = j * (x * (i * y1)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -8.2e-12], t$95$1, If[LessEqual[x, -1.3e-46], N[(y0 * N[(y5 * N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -3.5e-52], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -1.15e-159], N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.55e-103], N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4.2e-65], N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.4e+35], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.1e+114], t$95$1, If[LessEqual[x, 2.2e+116], N[(i * N[(y * N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 5.8e+187], N[((-b) * N[(y0 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(a \cdot \left(x \cdot b\right)\right)\\
\mathbf{if}\;x \leq -8.2 \cdot 10^{-12}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -1.3 \cdot 10^{-46}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3\right)\right)\\
\mathbf{elif}\;x \leq -3.5 \cdot 10^{-52}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{elif}\;x \leq -1.15 \cdot 10^{-159}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 1.55 \cdot 10^{-103}:\\
\;\;\;\;z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;x \leq 4.2 \cdot 10^{-65}:\\
\;\;\;\;y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 6.4 \cdot 10^{+35}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 2.1 \cdot 10^{+114}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 2.2 \cdot 10^{+116}:\\
\;\;\;\;i \cdot \left(y \cdot \left(k \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 5.8 \cdot 10^{+187}:\\
\;\;\;\;\left(-b\right) \cdot \left(y0 \cdot \left(x \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\end{array}
\end{array}
if x < -8.19999999999999979e-12 or 6.39999999999999965e35 < x < 2.1e114Initial program 26.3%
Taylor expanded in x around inf 47.8%
Taylor expanded in a around inf 42.8%
+-commutative42.8%
mul-1-neg42.8%
unsub-neg42.8%
Simplified42.8%
Taylor expanded in b around inf 28.8%
pow128.8%
associate-*r*33.9%
Applied egg-rr33.9%
unpow133.9%
associate-*r*37.5%
Simplified37.5%
if -8.19999999999999979e-12 < x < -1.3000000000000001e-46Initial program 14.4%
Taylor expanded in y0 around inf 74.8%
+-commutative74.8%
mul-1-neg74.8%
unsub-neg74.8%
*-commutative74.8%
*-commutative74.8%
*-commutative74.8%
*-commutative74.8%
Simplified74.8%
Taylor expanded in y5 around inf 87.3%
Taylor expanded in j around inf 53.9%
if -1.3000000000000001e-46 < x < -3.5e-52Initial program 0.0%
Taylor expanded in b around inf 100.0%
Taylor expanded in y4 around inf 100.0%
Taylor expanded in j around inf 100.0%
if -3.5e-52 < x < -1.14999999999999989e-159Initial program 33.6%
Taylor expanded in y2 around inf 38.2%
Taylor expanded in t around inf 22.3%
Taylor expanded in a around inf 21.9%
*-commutative21.9%
Simplified21.9%
if -1.14999999999999989e-159 < x < 1.5500000000000001e-103Initial program 32.2%
Taylor expanded in y0 around inf 37.3%
+-commutative37.3%
mul-1-neg37.3%
unsub-neg37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
Simplified37.3%
Taylor expanded in k around -inf 30.6%
associate-*r*27.9%
+-commutative27.9%
mul-1-neg27.9%
unsub-neg27.9%
*-commutative27.9%
Simplified27.9%
Taylor expanded in z around inf 26.7%
pow126.7%
Applied egg-rr26.7%
unpow126.7%
associate-*r*29.4%
associate-*r*31.9%
Simplified31.9%
if 1.5500000000000001e-103 < x < 4.20000000000000006e-65Initial program 16.5%
Taylor expanded in y2 around inf 58.4%
Taylor expanded in t around inf 50.9%
Taylor expanded in a around inf 50.8%
*-commutative50.8%
Simplified50.8%
if 4.20000000000000006e-65 < x < 6.39999999999999965e35Initial program 57.1%
Taylor expanded in y0 around inf 43.9%
+-commutative43.9%
mul-1-neg43.9%
unsub-neg43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
Simplified43.9%
Taylor expanded in y5 around inf 30.1%
Taylor expanded in j around inf 34.2%
*-commutative34.2%
*-commutative34.2%
Simplified34.2%
if 2.1e114 < x < 2.2e116Initial program 33.3%
Taylor expanded in y around inf 66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
*-commutative66.7%
*-commutative66.7%
mul-1-neg66.7%
Simplified66.7%
Taylor expanded in y3 around 0 66.8%
Taylor expanded in y5 around inf 67.7%
associate-*r*67.7%
*-commutative67.7%
associate-*l*67.7%
Simplified67.7%
if 2.2e116 < x < 5.8000000000000002e187Initial program 6.5%
Taylor expanded in x around inf 57.3%
Taylor expanded in j around inf 51.6%
Taylor expanded in i around 0 45.1%
mul-1-neg45.1%
distribute-rgt-neg-in45.1%
associate-*r*50.8%
distribute-rgt-neg-in50.8%
*-commutative50.8%
Simplified50.8%
if 5.8000000000000002e187 < x Initial program 13.3%
Taylor expanded in x around inf 70.0%
Taylor expanded in j around inf 57.0%
Taylor expanded in i around inf 48.6%
Final simplification37.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (* a (* x b)))))
(if (<= x -8.2e-13)
t_1
(if (<= x -1.65e-46)
(* y0 (* y5 (* j y3)))
(if (<= x -2.2e-52)
(* b (* y4 (* t j)))
(if (<= x -4.5e-160)
(* y2 (* a (* t y5)))
(if (<= x 1.25e-103)
(* b (* z (* k y0)))
(if (<= x 4.5e-65)
(* y2 (* t (* a y5)))
(if (<= x 3900000000000.0)
(* j (* y0 (* y3 y5)))
(if (<= x 5.4e+85)
(* j (* y1 (* x i)))
(if (<= x 1.1e+92)
t_1
(if (<= x 2.2e+116)
(* i (* y (* k y5)))
(* j (* x (* i y1)))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (a * (x * b));
double tmp;
if (x <= -8.2e-13) {
tmp = t_1;
} else if (x <= -1.65e-46) {
tmp = y0 * (y5 * (j * y3));
} else if (x <= -2.2e-52) {
tmp = b * (y4 * (t * j));
} else if (x <= -4.5e-160) {
tmp = y2 * (a * (t * y5));
} else if (x <= 1.25e-103) {
tmp = b * (z * (k * y0));
} else if (x <= 4.5e-65) {
tmp = y2 * (t * (a * y5));
} else if (x <= 3900000000000.0) {
tmp = j * (y0 * (y3 * y5));
} else if (x <= 5.4e+85) {
tmp = j * (y1 * (x * i));
} else if (x <= 1.1e+92) {
tmp = t_1;
} else if (x <= 2.2e+116) {
tmp = i * (y * (k * y5));
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y * (a * (x * b))
if (x <= (-8.2d-13)) then
tmp = t_1
else if (x <= (-1.65d-46)) then
tmp = y0 * (y5 * (j * y3))
else if (x <= (-2.2d-52)) then
tmp = b * (y4 * (t * j))
else if (x <= (-4.5d-160)) then
tmp = y2 * (a * (t * y5))
else if (x <= 1.25d-103) then
tmp = b * (z * (k * y0))
else if (x <= 4.5d-65) then
tmp = y2 * (t * (a * y5))
else if (x <= 3900000000000.0d0) then
tmp = j * (y0 * (y3 * y5))
else if (x <= 5.4d+85) then
tmp = j * (y1 * (x * i))
else if (x <= 1.1d+92) then
tmp = t_1
else if (x <= 2.2d+116) then
tmp = i * (y * (k * y5))
else
tmp = j * (x * (i * y1))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (a * (x * b));
double tmp;
if (x <= -8.2e-13) {
tmp = t_1;
} else if (x <= -1.65e-46) {
tmp = y0 * (y5 * (j * y3));
} else if (x <= -2.2e-52) {
tmp = b * (y4 * (t * j));
} else if (x <= -4.5e-160) {
tmp = y2 * (a * (t * y5));
} else if (x <= 1.25e-103) {
tmp = b * (z * (k * y0));
} else if (x <= 4.5e-65) {
tmp = y2 * (t * (a * y5));
} else if (x <= 3900000000000.0) {
tmp = j * (y0 * (y3 * y5));
} else if (x <= 5.4e+85) {
tmp = j * (y1 * (x * i));
} else if (x <= 1.1e+92) {
tmp = t_1;
} else if (x <= 2.2e+116) {
tmp = i * (y * (k * y5));
} else {
tmp = j * (x * (i * y1));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y * (a * (x * b)) tmp = 0 if x <= -8.2e-13: tmp = t_1 elif x <= -1.65e-46: tmp = y0 * (y5 * (j * y3)) elif x <= -2.2e-52: tmp = b * (y4 * (t * j)) elif x <= -4.5e-160: tmp = y2 * (a * (t * y5)) elif x <= 1.25e-103: tmp = b * (z * (k * y0)) elif x <= 4.5e-65: tmp = y2 * (t * (a * y5)) elif x <= 3900000000000.0: tmp = j * (y0 * (y3 * y5)) elif x <= 5.4e+85: tmp = j * (y1 * (x * i)) elif x <= 1.1e+92: tmp = t_1 elif x <= 2.2e+116: tmp = i * (y * (k * y5)) else: tmp = j * (x * (i * y1)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y * Float64(a * Float64(x * b))) tmp = 0.0 if (x <= -8.2e-13) tmp = t_1; elseif (x <= -1.65e-46) tmp = Float64(y0 * Float64(y5 * Float64(j * y3))); elseif (x <= -2.2e-52) tmp = Float64(b * Float64(y4 * Float64(t * j))); elseif (x <= -4.5e-160) tmp = Float64(y2 * Float64(a * Float64(t * y5))); elseif (x <= 1.25e-103) tmp = Float64(b * Float64(z * Float64(k * y0))); elseif (x <= 4.5e-65) tmp = Float64(y2 * Float64(t * Float64(a * y5))); elseif (x <= 3900000000000.0) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (x <= 5.4e+85) tmp = Float64(j * Float64(y1 * Float64(x * i))); elseif (x <= 1.1e+92) tmp = t_1; elseif (x <= 2.2e+116) tmp = Float64(i * Float64(y * Float64(k * y5))); else tmp = Float64(j * Float64(x * Float64(i * y1))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y * (a * (x * b)); tmp = 0.0; if (x <= -8.2e-13) tmp = t_1; elseif (x <= -1.65e-46) tmp = y0 * (y5 * (j * y3)); elseif (x <= -2.2e-52) tmp = b * (y4 * (t * j)); elseif (x <= -4.5e-160) tmp = y2 * (a * (t * y5)); elseif (x <= 1.25e-103) tmp = b * (z * (k * y0)); elseif (x <= 4.5e-65) tmp = y2 * (t * (a * y5)); elseif (x <= 3900000000000.0) tmp = j * (y0 * (y3 * y5)); elseif (x <= 5.4e+85) tmp = j * (y1 * (x * i)); elseif (x <= 1.1e+92) tmp = t_1; elseif (x <= 2.2e+116) tmp = i * (y * (k * y5)); else tmp = j * (x * (i * y1)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(a * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -8.2e-13], t$95$1, If[LessEqual[x, -1.65e-46], N[(y0 * N[(y5 * N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -2.2e-52], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -4.5e-160], N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.25e-103], N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4.5e-65], N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 3900000000000.0], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 5.4e+85], N[(j * N[(y1 * N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.1e+92], t$95$1, If[LessEqual[x, 2.2e+116], N[(i * N[(y * N[(k * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(a \cdot \left(x \cdot b\right)\right)\\
\mathbf{if}\;x \leq -8.2 \cdot 10^{-13}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -1.65 \cdot 10^{-46}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3\right)\right)\\
\mathbf{elif}\;x \leq -2.2 \cdot 10^{-52}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{elif}\;x \leq -4.5 \cdot 10^{-160}:\\
\;\;\;\;y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 1.25 \cdot 10^{-103}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;x \leq 4.5 \cdot 10^{-65}:\\
\;\;\;\;y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 3900000000000:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 5.4 \cdot 10^{+85}:\\
\;\;\;\;j \cdot \left(y1 \cdot \left(x \cdot i\right)\right)\\
\mathbf{elif}\;x \leq 1.1 \cdot 10^{+92}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 2.2 \cdot 10^{+116}:\\
\;\;\;\;i \cdot \left(y \cdot \left(k \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\end{array}
\end{array}
if x < -8.2000000000000004e-13 or 5.39999999999999966e85 < x < 1.09999999999999996e92Initial program 17.7%
Taylor expanded in x around inf 50.3%
Taylor expanded in a around inf 44.3%
+-commutative44.3%
mul-1-neg44.3%
unsub-neg44.3%
Simplified44.3%
Taylor expanded in b around inf 30.2%
pow130.2%
associate-*r*36.4%
Applied egg-rr36.4%
unpow136.4%
associate-*r*40.9%
Simplified40.9%
if -8.2000000000000004e-13 < x < -1.65000000000000007e-46Initial program 14.4%
Taylor expanded in y0 around inf 74.8%
+-commutative74.8%
mul-1-neg74.8%
unsub-neg74.8%
*-commutative74.8%
*-commutative74.8%
*-commutative74.8%
*-commutative74.8%
Simplified74.8%
Taylor expanded in y5 around inf 87.3%
Taylor expanded in j around inf 53.9%
if -1.65000000000000007e-46 < x < -2.20000000000000009e-52Initial program 0.0%
Taylor expanded in b around inf 100.0%
Taylor expanded in y4 around inf 100.0%
Taylor expanded in j around inf 100.0%
if -2.20000000000000009e-52 < x < -4.50000000000000026e-160Initial program 33.6%
Taylor expanded in y2 around inf 38.2%
Taylor expanded in t around inf 22.3%
Taylor expanded in a around inf 21.9%
*-commutative21.9%
Simplified21.9%
if -4.50000000000000026e-160 < x < 1.24999999999999992e-103Initial program 32.2%
Taylor expanded in y0 around inf 37.3%
+-commutative37.3%
mul-1-neg37.3%
unsub-neg37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
Simplified37.3%
Taylor expanded in k around -inf 30.6%
associate-*r*27.9%
+-commutative27.9%
mul-1-neg27.9%
unsub-neg27.9%
*-commutative27.9%
Simplified27.9%
Taylor expanded in z around inf 26.7%
associate-*r*29.4%
*-commutative29.4%
Simplified29.4%
if 1.24999999999999992e-103 < x < 4.4999999999999998e-65Initial program 16.5%
Taylor expanded in y2 around inf 58.4%
Taylor expanded in t around inf 50.9%
Taylor expanded in a around inf 50.8%
*-commutative50.8%
Simplified50.8%
if 4.4999999999999998e-65 < x < 3.9e12Initial program 61.0%
Taylor expanded in y0 around inf 40.1%
+-commutative40.1%
mul-1-neg40.1%
unsub-neg40.1%
*-commutative40.1%
*-commutative40.1%
*-commutative40.1%
*-commutative40.1%
Simplified40.1%
Taylor expanded in y5 around inf 29.4%
Taylor expanded in j around inf 34.2%
*-commutative34.2%
*-commutative34.2%
Simplified34.2%
if 3.9e12 < x < 5.39999999999999966e85Initial program 61.5%
Taylor expanded in x around inf 39.1%
Taylor expanded in j around inf 39.6%
Taylor expanded in i around inf 32.1%
associate-*r*39.5%
*-commutative39.5%
Simplified39.5%
if 1.09999999999999996e92 < x < 2.2e116Initial program 42.9%
Taylor expanded in y around inf 29.2%
+-commutative29.2%
mul-1-neg29.2%
unsub-neg29.2%
*-commutative29.2%
*-commutative29.2%
mul-1-neg29.2%
Simplified29.2%
Taylor expanded in y3 around 0 44.2%
Taylor expanded in y5 around inf 44.9%
associate-*r*44.9%
*-commutative44.9%
associate-*l*45.3%
Simplified45.3%
if 2.2e116 < x Initial program 10.5%
Taylor expanded in x around inf 64.8%
Taylor expanded in j around inf 54.8%
Taylor expanded in i around inf 39.6%
Final simplification36.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y0 (* y5 (* j y3))))
(t_2 (* a (* x (* y b))))
(t_3 (* j (* x (* i y1)))))
(if (<= y3 -3.8e+126)
(* j (* y5 (* y0 y3)))
(if (<= y3 -5.8e-92)
t_3
(if (<= y3 -3.5e-157)
t_2
(if (<= y3 -8.2e-167)
t_3
(if (<= y3 -9.2e-185)
t_2
(if (<= y3 2.8e-258)
(* b (* z (* k y0)))
(if (<= y3 1.4e-43)
(* i (* y1 (* x j)))
(if (<= y3 4.5e-16)
t_1
(if (<= y3 4.3e+41)
(* a (* t (* y2 y5)))
(if (<= y3 9.6e+71) (* a (* (* x y) b)) t_1))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * (y5 * (j * y3));
double t_2 = a * (x * (y * b));
double t_3 = j * (x * (i * y1));
double tmp;
if (y3 <= -3.8e+126) {
tmp = j * (y5 * (y0 * y3));
} else if (y3 <= -5.8e-92) {
tmp = t_3;
} else if (y3 <= -3.5e-157) {
tmp = t_2;
} else if (y3 <= -8.2e-167) {
tmp = t_3;
} else if (y3 <= -9.2e-185) {
tmp = t_2;
} else if (y3 <= 2.8e-258) {
tmp = b * (z * (k * y0));
} else if (y3 <= 1.4e-43) {
tmp = i * (y1 * (x * j));
} else if (y3 <= 4.5e-16) {
tmp = t_1;
} else if (y3 <= 4.3e+41) {
tmp = a * (t * (y2 * y5));
} else if (y3 <= 9.6e+71) {
tmp = a * ((x * y) * b);
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = y0 * (y5 * (j * y3))
t_2 = a * (x * (y * b))
t_3 = j * (x * (i * y1))
if (y3 <= (-3.8d+126)) then
tmp = j * (y5 * (y0 * y3))
else if (y3 <= (-5.8d-92)) then
tmp = t_3
else if (y3 <= (-3.5d-157)) then
tmp = t_2
else if (y3 <= (-8.2d-167)) then
tmp = t_3
else if (y3 <= (-9.2d-185)) then
tmp = t_2
else if (y3 <= 2.8d-258) then
tmp = b * (z * (k * y0))
else if (y3 <= 1.4d-43) then
tmp = i * (y1 * (x * j))
else if (y3 <= 4.5d-16) then
tmp = t_1
else if (y3 <= 4.3d+41) then
tmp = a * (t * (y2 * y5))
else if (y3 <= 9.6d+71) then
tmp = a * ((x * y) * b)
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * (y5 * (j * y3));
double t_2 = a * (x * (y * b));
double t_3 = j * (x * (i * y1));
double tmp;
if (y3 <= -3.8e+126) {
tmp = j * (y5 * (y0 * y3));
} else if (y3 <= -5.8e-92) {
tmp = t_3;
} else if (y3 <= -3.5e-157) {
tmp = t_2;
} else if (y3 <= -8.2e-167) {
tmp = t_3;
} else if (y3 <= -9.2e-185) {
tmp = t_2;
} else if (y3 <= 2.8e-258) {
tmp = b * (z * (k * y0));
} else if (y3 <= 1.4e-43) {
tmp = i * (y1 * (x * j));
} else if (y3 <= 4.5e-16) {
tmp = t_1;
} else if (y3 <= 4.3e+41) {
tmp = a * (t * (y2 * y5));
} else if (y3 <= 9.6e+71) {
tmp = a * ((x * y) * b);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y0 * (y5 * (j * y3)) t_2 = a * (x * (y * b)) t_3 = j * (x * (i * y1)) tmp = 0 if y3 <= -3.8e+126: tmp = j * (y5 * (y0 * y3)) elif y3 <= -5.8e-92: tmp = t_3 elif y3 <= -3.5e-157: tmp = t_2 elif y3 <= -8.2e-167: tmp = t_3 elif y3 <= -9.2e-185: tmp = t_2 elif y3 <= 2.8e-258: tmp = b * (z * (k * y0)) elif y3 <= 1.4e-43: tmp = i * (y1 * (x * j)) elif y3 <= 4.5e-16: tmp = t_1 elif y3 <= 4.3e+41: tmp = a * (t * (y2 * y5)) elif y3 <= 9.6e+71: tmp = a * ((x * y) * b) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y0 * Float64(y5 * Float64(j * y3))) t_2 = Float64(a * Float64(x * Float64(y * b))) t_3 = Float64(j * Float64(x * Float64(i * y1))) tmp = 0.0 if (y3 <= -3.8e+126) tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); elseif (y3 <= -5.8e-92) tmp = t_3; elseif (y3 <= -3.5e-157) tmp = t_2; elseif (y3 <= -8.2e-167) tmp = t_3; elseif (y3 <= -9.2e-185) tmp = t_2; elseif (y3 <= 2.8e-258) tmp = Float64(b * Float64(z * Float64(k * y0))); elseif (y3 <= 1.4e-43) tmp = Float64(i * Float64(y1 * Float64(x * j))); elseif (y3 <= 4.5e-16) tmp = t_1; elseif (y3 <= 4.3e+41) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (y3 <= 9.6e+71) tmp = Float64(a * Float64(Float64(x * y) * b)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y0 * (y5 * (j * y3)); t_2 = a * (x * (y * b)); t_3 = j * (x * (i * y1)); tmp = 0.0; if (y3 <= -3.8e+126) tmp = j * (y5 * (y0 * y3)); elseif (y3 <= -5.8e-92) tmp = t_3; elseif (y3 <= -3.5e-157) tmp = t_2; elseif (y3 <= -8.2e-167) tmp = t_3; elseif (y3 <= -9.2e-185) tmp = t_2; elseif (y3 <= 2.8e-258) tmp = b * (z * (k * y0)); elseif (y3 <= 1.4e-43) tmp = i * (y1 * (x * j)); elseif (y3 <= 4.5e-16) tmp = t_1; elseif (y3 <= 4.3e+41) tmp = a * (t * (y2 * y5)); elseif (y3 <= 9.6e+71) tmp = a * ((x * y) * b); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y0 * N[(y5 * N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -3.8e+126], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -5.8e-92], t$95$3, If[LessEqual[y3, -3.5e-157], t$95$2, If[LessEqual[y3, -8.2e-167], t$95$3, If[LessEqual[y3, -9.2e-185], t$95$2, If[LessEqual[y3, 2.8e-258], N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 1.4e-43], N[(i * N[(y1 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 4.5e-16], t$95$1, If[LessEqual[y3, 4.3e+41], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 9.6e+71], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y0 \cdot \left(y5 \cdot \left(j \cdot y3\right)\right)\\
t_2 := a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
t_3 := j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{if}\;y3 \leq -3.8 \cdot 10^{+126}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\mathbf{elif}\;y3 \leq -5.8 \cdot 10^{-92}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y3 \leq -3.5 \cdot 10^{-157}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y3 \leq -8.2 \cdot 10^{-167}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y3 \leq -9.2 \cdot 10^{-185}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y3 \leq 2.8 \cdot 10^{-258}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;y3 \leq 1.4 \cdot 10^{-43}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j\right)\right)\\
\mathbf{elif}\;y3 \leq 4.5 \cdot 10^{-16}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y3 \leq 4.3 \cdot 10^{+41}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq 9.6 \cdot 10^{+71}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y3 < -3.80000000000000017e126Initial program 13.3%
Taylor expanded in y0 around inf 38.9%
+-commutative38.9%
mul-1-neg38.9%
unsub-neg38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
Simplified38.9%
Taylor expanded in y5 around inf 36.7%
Taylor expanded in j around inf 39.4%
*-commutative39.4%
*-commutative39.4%
associate-*l*41.8%
Simplified41.8%
if -3.80000000000000017e126 < y3 < -5.79999999999999969e-92 or -3.5000000000000002e-157 < y3 < -8.20000000000000036e-167Initial program 32.2%
Taylor expanded in x around inf 40.4%
Taylor expanded in j around inf 31.9%
Taylor expanded in i around inf 28.4%
if -5.79999999999999969e-92 < y3 < -3.5000000000000002e-157 or -8.20000000000000036e-167 < y3 < -9.2000000000000003e-185Initial program 38.0%
Taylor expanded in x around inf 38.5%
Taylor expanded in a around inf 56.5%
+-commutative56.5%
mul-1-neg56.5%
unsub-neg56.5%
Simplified56.5%
Taylor expanded in b around inf 50.7%
if -9.2000000000000003e-185 < y3 < 2.8000000000000002e-258Initial program 40.0%
Taylor expanded in y0 around inf 26.9%
+-commutative26.9%
mul-1-neg26.9%
unsub-neg26.9%
*-commutative26.9%
*-commutative26.9%
*-commutative26.9%
*-commutative26.9%
Simplified26.9%
Taylor expanded in k around -inf 32.5%
associate-*r*29.8%
+-commutative29.8%
mul-1-neg29.8%
unsub-neg29.8%
*-commutative29.8%
Simplified29.8%
Taylor expanded in z around inf 32.8%
associate-*r*38.3%
*-commutative38.3%
Simplified38.3%
if 2.8000000000000002e-258 < y3 < 1.3999999999999999e-43Initial program 30.1%
Taylor expanded in x around inf 45.7%
Taylor expanded in j around inf 45.7%
Taylor expanded in i around inf 28.7%
associate-*r*33.5%
*-commutative33.5%
Simplified33.5%
if 1.3999999999999999e-43 < y3 < 4.5000000000000002e-16 or 9.59999999999999923e71 < y3 Initial program 20.3%
Taylor expanded in y0 around inf 46.5%
+-commutative46.5%
mul-1-neg46.5%
unsub-neg46.5%
*-commutative46.5%
*-commutative46.5%
*-commutative46.5%
*-commutative46.5%
Simplified46.5%
Taylor expanded in y5 around inf 42.7%
Taylor expanded in j around inf 39.3%
if 4.5000000000000002e-16 < y3 < 4.30000000000000024e41Initial program 30.7%
Taylor expanded in y2 around inf 61.7%
Taylor expanded in t around inf 32.0%
Taylor expanded in a around inf 31.9%
*-commutative31.9%
Simplified31.9%
if 4.30000000000000024e41 < y3 < 9.59999999999999923e71Initial program 28.6%
Taylor expanded in x around inf 44.0%
Taylor expanded in a around inf 58.5%
+-commutative58.5%
mul-1-neg58.5%
unsub-neg58.5%
Simplified58.5%
Taylor expanded in b around inf 58.4%
Final simplification37.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y0 (* j (* y3 y5))))
(t_2 (* a (* x (* y b))))
(t_3 (* j (* x (* i y1)))))
(if (<= y3 -1.8e+124)
(* j (* y5 (* y0 y3)))
(if (<= y3 -1.4e-91)
t_3
(if (<= y3 -4.2e-157)
t_2
(if (<= y3 -7.2e-167)
t_3
(if (<= y3 -5.8e-185)
t_2
(if (<= y3 1.62e-258)
(* b (* z (* k y0)))
(if (<= y3 3.45e-43)
(* i (* y1 (* x j)))
(if (<= y3 2.7e-17)
t_1
(if (<= y3 7.8e+39)
(* a (* t (* y2 y5)))
(if (<= y3 4.3e+71) (* a (* (* x y) b)) t_1))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * (j * (y3 * y5));
double t_2 = a * (x * (y * b));
double t_3 = j * (x * (i * y1));
double tmp;
if (y3 <= -1.8e+124) {
tmp = j * (y5 * (y0 * y3));
} else if (y3 <= -1.4e-91) {
tmp = t_3;
} else if (y3 <= -4.2e-157) {
tmp = t_2;
} else if (y3 <= -7.2e-167) {
tmp = t_3;
} else if (y3 <= -5.8e-185) {
tmp = t_2;
} else if (y3 <= 1.62e-258) {
tmp = b * (z * (k * y0));
} else if (y3 <= 3.45e-43) {
tmp = i * (y1 * (x * j));
} else if (y3 <= 2.7e-17) {
tmp = t_1;
} else if (y3 <= 7.8e+39) {
tmp = a * (t * (y2 * y5));
} else if (y3 <= 4.3e+71) {
tmp = a * ((x * y) * b);
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = y0 * (j * (y3 * y5))
t_2 = a * (x * (y * b))
t_3 = j * (x * (i * y1))
if (y3 <= (-1.8d+124)) then
tmp = j * (y5 * (y0 * y3))
else if (y3 <= (-1.4d-91)) then
tmp = t_3
else if (y3 <= (-4.2d-157)) then
tmp = t_2
else if (y3 <= (-7.2d-167)) then
tmp = t_3
else if (y3 <= (-5.8d-185)) then
tmp = t_2
else if (y3 <= 1.62d-258) then
tmp = b * (z * (k * y0))
else if (y3 <= 3.45d-43) then
tmp = i * (y1 * (x * j))
else if (y3 <= 2.7d-17) then
tmp = t_1
else if (y3 <= 7.8d+39) then
tmp = a * (t * (y2 * y5))
else if (y3 <= 4.3d+71) then
tmp = a * ((x * y) * b)
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * (j * (y3 * y5));
double t_2 = a * (x * (y * b));
double t_3 = j * (x * (i * y1));
double tmp;
if (y3 <= -1.8e+124) {
tmp = j * (y5 * (y0 * y3));
} else if (y3 <= -1.4e-91) {
tmp = t_3;
} else if (y3 <= -4.2e-157) {
tmp = t_2;
} else if (y3 <= -7.2e-167) {
tmp = t_3;
} else if (y3 <= -5.8e-185) {
tmp = t_2;
} else if (y3 <= 1.62e-258) {
tmp = b * (z * (k * y0));
} else if (y3 <= 3.45e-43) {
tmp = i * (y1 * (x * j));
} else if (y3 <= 2.7e-17) {
tmp = t_1;
} else if (y3 <= 7.8e+39) {
tmp = a * (t * (y2 * y5));
} else if (y3 <= 4.3e+71) {
tmp = a * ((x * y) * b);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y0 * (j * (y3 * y5)) t_2 = a * (x * (y * b)) t_3 = j * (x * (i * y1)) tmp = 0 if y3 <= -1.8e+124: tmp = j * (y5 * (y0 * y3)) elif y3 <= -1.4e-91: tmp = t_3 elif y3 <= -4.2e-157: tmp = t_2 elif y3 <= -7.2e-167: tmp = t_3 elif y3 <= -5.8e-185: tmp = t_2 elif y3 <= 1.62e-258: tmp = b * (z * (k * y0)) elif y3 <= 3.45e-43: tmp = i * (y1 * (x * j)) elif y3 <= 2.7e-17: tmp = t_1 elif y3 <= 7.8e+39: tmp = a * (t * (y2 * y5)) elif y3 <= 4.3e+71: tmp = a * ((x * y) * b) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y0 * Float64(j * Float64(y3 * y5))) t_2 = Float64(a * Float64(x * Float64(y * b))) t_3 = Float64(j * Float64(x * Float64(i * y1))) tmp = 0.0 if (y3 <= -1.8e+124) tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); elseif (y3 <= -1.4e-91) tmp = t_3; elseif (y3 <= -4.2e-157) tmp = t_2; elseif (y3 <= -7.2e-167) tmp = t_3; elseif (y3 <= -5.8e-185) tmp = t_2; elseif (y3 <= 1.62e-258) tmp = Float64(b * Float64(z * Float64(k * y0))); elseif (y3 <= 3.45e-43) tmp = Float64(i * Float64(y1 * Float64(x * j))); elseif (y3 <= 2.7e-17) tmp = t_1; elseif (y3 <= 7.8e+39) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (y3 <= 4.3e+71) tmp = Float64(a * Float64(Float64(x * y) * b)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y0 * (j * (y3 * y5)); t_2 = a * (x * (y * b)); t_3 = j * (x * (i * y1)); tmp = 0.0; if (y3 <= -1.8e+124) tmp = j * (y5 * (y0 * y3)); elseif (y3 <= -1.4e-91) tmp = t_3; elseif (y3 <= -4.2e-157) tmp = t_2; elseif (y3 <= -7.2e-167) tmp = t_3; elseif (y3 <= -5.8e-185) tmp = t_2; elseif (y3 <= 1.62e-258) tmp = b * (z * (k * y0)); elseif (y3 <= 3.45e-43) tmp = i * (y1 * (x * j)); elseif (y3 <= 2.7e-17) tmp = t_1; elseif (y3 <= 7.8e+39) tmp = a * (t * (y2 * y5)); elseif (y3 <= 4.3e+71) tmp = a * ((x * y) * b); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y0 * N[(j * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -1.8e+124], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -1.4e-91], t$95$3, If[LessEqual[y3, -4.2e-157], t$95$2, If[LessEqual[y3, -7.2e-167], t$95$3, If[LessEqual[y3, -5.8e-185], t$95$2, If[LessEqual[y3, 1.62e-258], N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 3.45e-43], N[(i * N[(y1 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 2.7e-17], t$95$1, If[LessEqual[y3, 7.8e+39], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 4.3e+71], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y0 \cdot \left(j \cdot \left(y3 \cdot y5\right)\right)\\
t_2 := a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
t_3 := j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{if}\;y3 \leq -1.8 \cdot 10^{+124}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\mathbf{elif}\;y3 \leq -1.4 \cdot 10^{-91}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y3 \leq -4.2 \cdot 10^{-157}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y3 \leq -7.2 \cdot 10^{-167}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y3 \leq -5.8 \cdot 10^{-185}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y3 \leq 1.62 \cdot 10^{-258}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;y3 \leq 3.45 \cdot 10^{-43}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j\right)\right)\\
\mathbf{elif}\;y3 \leq 2.7 \cdot 10^{-17}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y3 \leq 7.8 \cdot 10^{+39}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq 4.3 \cdot 10^{+71}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y3 < -1.79999999999999993e124Initial program 13.3%
Taylor expanded in y0 around inf 38.9%
+-commutative38.9%
mul-1-neg38.9%
unsub-neg38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
Simplified38.9%
Taylor expanded in y5 around inf 36.7%
Taylor expanded in j around inf 39.4%
*-commutative39.4%
*-commutative39.4%
associate-*l*41.8%
Simplified41.8%
if -1.79999999999999993e124 < y3 < -1.4e-91 or -4.2e-157 < y3 < -7.2000000000000002e-167Initial program 32.2%
Taylor expanded in x around inf 40.4%
Taylor expanded in j around inf 31.9%
Taylor expanded in i around inf 28.4%
if -1.4e-91 < y3 < -4.2e-157 or -7.2000000000000002e-167 < y3 < -5.79999999999999989e-185Initial program 38.0%
Taylor expanded in x around inf 38.5%
Taylor expanded in a around inf 56.5%
+-commutative56.5%
mul-1-neg56.5%
unsub-neg56.5%
Simplified56.5%
Taylor expanded in b around inf 50.7%
if -5.79999999999999989e-185 < y3 < 1.62000000000000002e-258Initial program 40.0%
Taylor expanded in y0 around inf 26.9%
+-commutative26.9%
mul-1-neg26.9%
unsub-neg26.9%
*-commutative26.9%
*-commutative26.9%
*-commutative26.9%
*-commutative26.9%
Simplified26.9%
Taylor expanded in k around -inf 32.5%
associate-*r*29.8%
+-commutative29.8%
mul-1-neg29.8%
unsub-neg29.8%
*-commutative29.8%
Simplified29.8%
Taylor expanded in z around inf 32.8%
associate-*r*38.3%
*-commutative38.3%
Simplified38.3%
if 1.62000000000000002e-258 < y3 < 3.44999999999999982e-43Initial program 30.1%
Taylor expanded in x around inf 45.7%
Taylor expanded in j around inf 45.7%
Taylor expanded in i around inf 28.7%
associate-*r*33.5%
*-commutative33.5%
Simplified33.5%
if 3.44999999999999982e-43 < y3 < 2.7000000000000001e-17 or 4.29999999999999984e71 < y3 Initial program 20.3%
Taylor expanded in y0 around inf 46.5%
+-commutative46.5%
mul-1-neg46.5%
unsub-neg46.5%
*-commutative46.5%
*-commutative46.5%
*-commutative46.5%
*-commutative46.5%
Simplified46.5%
Taylor expanded in y5 around inf 42.7%
Taylor expanded in j around inf 37.4%
*-commutative37.4%
Simplified37.4%
if 2.7000000000000001e-17 < y3 < 7.8000000000000002e39Initial program 30.7%
Taylor expanded in y2 around inf 61.7%
Taylor expanded in t around inf 32.0%
Taylor expanded in a around inf 31.9%
*-commutative31.9%
Simplified31.9%
if 7.8000000000000002e39 < y3 < 4.29999999999999984e71Initial program 28.6%
Taylor expanded in x around inf 44.0%
Taylor expanded in a around inf 58.5%
+-commutative58.5%
mul-1-neg58.5%
unsub-neg58.5%
Simplified58.5%
Taylor expanded in b around inf 58.4%
Final simplification36.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* z (* k y0))))
(t_2 (* a (* x (* y b))))
(t_3 (* j (* x (* i y1)))))
(if (<= y3 -5.5e+125)
(* j (* y5 (* y0 y3)))
(if (<= y3 -3.8e-88)
t_3
(if (<= y3 -3.8e-157)
t_2
(if (<= y3 -1e-166)
t_3
(if (<= y3 -8e-188)
t_2
(if (<= y3 4.3e-257)
t_1
(if (<= y3 6.1e-46)
(* i (* y1 (* x j)))
(if (<= y3 0.92)
t_1
(if (<= y3 3e+43)
(* a (* t (* y2 y5)))
(if (<= y3 3.9e+147)
(* a (* (* x y) b))
(* j (* y0 (* y3 y5)))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (z * (k * y0));
double t_2 = a * (x * (y * b));
double t_3 = j * (x * (i * y1));
double tmp;
if (y3 <= -5.5e+125) {
tmp = j * (y5 * (y0 * y3));
} else if (y3 <= -3.8e-88) {
tmp = t_3;
} else if (y3 <= -3.8e-157) {
tmp = t_2;
} else if (y3 <= -1e-166) {
tmp = t_3;
} else if (y3 <= -8e-188) {
tmp = t_2;
} else if (y3 <= 4.3e-257) {
tmp = t_1;
} else if (y3 <= 6.1e-46) {
tmp = i * (y1 * (x * j));
} else if (y3 <= 0.92) {
tmp = t_1;
} else if (y3 <= 3e+43) {
tmp = a * (t * (y2 * y5));
} else if (y3 <= 3.9e+147) {
tmp = a * ((x * y) * b);
} else {
tmp = j * (y0 * (y3 * y5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = b * (z * (k * y0))
t_2 = a * (x * (y * b))
t_3 = j * (x * (i * y1))
if (y3 <= (-5.5d+125)) then
tmp = j * (y5 * (y0 * y3))
else if (y3 <= (-3.8d-88)) then
tmp = t_3
else if (y3 <= (-3.8d-157)) then
tmp = t_2
else if (y3 <= (-1d-166)) then
tmp = t_3
else if (y3 <= (-8d-188)) then
tmp = t_2
else if (y3 <= 4.3d-257) then
tmp = t_1
else if (y3 <= 6.1d-46) then
tmp = i * (y1 * (x * j))
else if (y3 <= 0.92d0) then
tmp = t_1
else if (y3 <= 3d+43) then
tmp = a * (t * (y2 * y5))
else if (y3 <= 3.9d+147) then
tmp = a * ((x * y) * b)
else
tmp = j * (y0 * (y3 * y5))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (z * (k * y0));
double t_2 = a * (x * (y * b));
double t_3 = j * (x * (i * y1));
double tmp;
if (y3 <= -5.5e+125) {
tmp = j * (y5 * (y0 * y3));
} else if (y3 <= -3.8e-88) {
tmp = t_3;
} else if (y3 <= -3.8e-157) {
tmp = t_2;
} else if (y3 <= -1e-166) {
tmp = t_3;
} else if (y3 <= -8e-188) {
tmp = t_2;
} else if (y3 <= 4.3e-257) {
tmp = t_1;
} else if (y3 <= 6.1e-46) {
tmp = i * (y1 * (x * j));
} else if (y3 <= 0.92) {
tmp = t_1;
} else if (y3 <= 3e+43) {
tmp = a * (t * (y2 * y5));
} else if (y3 <= 3.9e+147) {
tmp = a * ((x * y) * b);
} else {
tmp = j * (y0 * (y3 * y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (z * (k * y0)) t_2 = a * (x * (y * b)) t_3 = j * (x * (i * y1)) tmp = 0 if y3 <= -5.5e+125: tmp = j * (y5 * (y0 * y3)) elif y3 <= -3.8e-88: tmp = t_3 elif y3 <= -3.8e-157: tmp = t_2 elif y3 <= -1e-166: tmp = t_3 elif y3 <= -8e-188: tmp = t_2 elif y3 <= 4.3e-257: tmp = t_1 elif y3 <= 6.1e-46: tmp = i * (y1 * (x * j)) elif y3 <= 0.92: tmp = t_1 elif y3 <= 3e+43: tmp = a * (t * (y2 * y5)) elif y3 <= 3.9e+147: tmp = a * ((x * y) * b) else: tmp = j * (y0 * (y3 * y5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(z * Float64(k * y0))) t_2 = Float64(a * Float64(x * Float64(y * b))) t_3 = Float64(j * Float64(x * Float64(i * y1))) tmp = 0.0 if (y3 <= -5.5e+125) tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); elseif (y3 <= -3.8e-88) tmp = t_3; elseif (y3 <= -3.8e-157) tmp = t_2; elseif (y3 <= -1e-166) tmp = t_3; elseif (y3 <= -8e-188) tmp = t_2; elseif (y3 <= 4.3e-257) tmp = t_1; elseif (y3 <= 6.1e-46) tmp = Float64(i * Float64(y1 * Float64(x * j))); elseif (y3 <= 0.92) tmp = t_1; elseif (y3 <= 3e+43) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (y3 <= 3.9e+147) tmp = Float64(a * Float64(Float64(x * y) * b)); else tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (z * (k * y0)); t_2 = a * (x * (y * b)); t_3 = j * (x * (i * y1)); tmp = 0.0; if (y3 <= -5.5e+125) tmp = j * (y5 * (y0 * y3)); elseif (y3 <= -3.8e-88) tmp = t_3; elseif (y3 <= -3.8e-157) tmp = t_2; elseif (y3 <= -1e-166) tmp = t_3; elseif (y3 <= -8e-188) tmp = t_2; elseif (y3 <= 4.3e-257) tmp = t_1; elseif (y3 <= 6.1e-46) tmp = i * (y1 * (x * j)); elseif (y3 <= 0.92) tmp = t_1; elseif (y3 <= 3e+43) tmp = a * (t * (y2 * y5)); elseif (y3 <= 3.9e+147) tmp = a * ((x * y) * b); else tmp = j * (y0 * (y3 * y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -5.5e+125], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, -3.8e-88], t$95$3, If[LessEqual[y3, -3.8e-157], t$95$2, If[LessEqual[y3, -1e-166], t$95$3, If[LessEqual[y3, -8e-188], t$95$2, If[LessEqual[y3, 4.3e-257], t$95$1, If[LessEqual[y3, 6.1e-46], N[(i * N[(y1 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 0.92], t$95$1, If[LessEqual[y3, 3e+43], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 3.9e+147], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
t_2 := a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
t_3 := j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{if}\;y3 \leq -5.5 \cdot 10^{+125}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\mathbf{elif}\;y3 \leq -3.8 \cdot 10^{-88}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y3 \leq -3.8 \cdot 10^{-157}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y3 \leq -1 \cdot 10^{-166}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y3 \leq -8 \cdot 10^{-188}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y3 \leq 4.3 \cdot 10^{-257}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y3 \leq 6.1 \cdot 10^{-46}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j\right)\right)\\
\mathbf{elif}\;y3 \leq 0.92:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y3 \leq 3 \cdot 10^{+43}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq 3.9 \cdot 10^{+147}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\end{array}
\end{array}
if y3 < -5.49999999999999996e125Initial program 13.3%
Taylor expanded in y0 around inf 38.9%
+-commutative38.9%
mul-1-neg38.9%
unsub-neg38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
Simplified38.9%
Taylor expanded in y5 around inf 36.7%
Taylor expanded in j around inf 39.4%
*-commutative39.4%
*-commutative39.4%
associate-*l*41.8%
Simplified41.8%
if -5.49999999999999996e125 < y3 < -3.80000000000000011e-88 or -3.8000000000000002e-157 < y3 < -1.00000000000000004e-166Initial program 32.2%
Taylor expanded in x around inf 40.4%
Taylor expanded in j around inf 31.9%
Taylor expanded in i around inf 28.4%
if -3.80000000000000011e-88 < y3 < -3.8000000000000002e-157 or -1.00000000000000004e-166 < y3 < -7.9999999999999996e-188Initial program 38.0%
Taylor expanded in x around inf 38.5%
Taylor expanded in a around inf 56.5%
+-commutative56.5%
mul-1-neg56.5%
unsub-neg56.5%
Simplified56.5%
Taylor expanded in b around inf 50.7%
if -7.9999999999999996e-188 < y3 < 4.29999999999999998e-257 or 6.10000000000000035e-46 < y3 < 0.92000000000000004Initial program 34.5%
Taylor expanded in y0 around inf 32.8%
+-commutative32.8%
mul-1-neg32.8%
unsub-neg32.8%
*-commutative32.8%
*-commutative32.8%
*-commutative32.8%
*-commutative32.8%
Simplified32.8%
Taylor expanded in k around -inf 31.0%
associate-*r*28.9%
+-commutative28.9%
mul-1-neg28.9%
unsub-neg28.9%
*-commutative28.9%
Simplified28.9%
Taylor expanded in z around inf 33.0%
associate-*r*37.4%
*-commutative37.4%
Simplified37.4%
if 4.29999999999999998e-257 < y3 < 6.10000000000000035e-46Initial program 30.1%
Taylor expanded in x around inf 45.7%
Taylor expanded in j around inf 45.7%
Taylor expanded in i around inf 28.7%
associate-*r*33.5%
*-commutative33.5%
Simplified33.5%
if 0.92000000000000004 < y3 < 3.00000000000000017e43Initial program 24.9%
Taylor expanded in y2 around inf 66.9%
Taylor expanded in t around inf 34.6%
Taylor expanded in a around inf 34.5%
*-commutative34.5%
Simplified34.5%
if 3.00000000000000017e43 < y3 < 3.90000000000000016e147Initial program 28.6%
Taylor expanded in x around inf 39.5%
Taylor expanded in a around inf 34.5%
+-commutative34.5%
mul-1-neg34.5%
unsub-neg34.5%
Simplified34.5%
Taylor expanded in b around inf 34.4%
if 3.90000000000000016e147 < y3 Initial program 21.4%
Taylor expanded in y0 around inf 46.8%
+-commutative46.8%
mul-1-neg46.8%
unsub-neg46.8%
*-commutative46.8%
*-commutative46.8%
*-commutative46.8%
*-commutative46.8%
Simplified46.8%
Taylor expanded in y5 around inf 50.5%
Taylor expanded in j around inf 43.7%
*-commutative43.7%
*-commutative43.7%
Simplified43.7%
Final simplification36.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* y5 (* y0 y3))))
(t_2 (* b (* z (* k y0))))
(t_3 (* a (* x (* y b))))
(t_4 (* j (* x (* i y1)))))
(if (<= y3 -3.9e+128)
t_1
(if (<= y3 -3.5e-86)
t_4
(if (<= y3 -3.5e-157)
t_3
(if (<= y3 -6.8e-167)
t_4
(if (<= y3 -1.45e-185)
t_3
(if (<= y3 1.44e-257)
t_2
(if (<= y3 5.4e-48)
(* i (* y1 (* x j)))
(if (<= y3 2.1)
t_2
(if (<= y3 8.2e+40)
(* a (* t (* y2 y5)))
(if (<= y3 6.4e+142) (* a (* (* x y) b)) t_1))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (y5 * (y0 * y3));
double t_2 = b * (z * (k * y0));
double t_3 = a * (x * (y * b));
double t_4 = j * (x * (i * y1));
double tmp;
if (y3 <= -3.9e+128) {
tmp = t_1;
} else if (y3 <= -3.5e-86) {
tmp = t_4;
} else if (y3 <= -3.5e-157) {
tmp = t_3;
} else if (y3 <= -6.8e-167) {
tmp = t_4;
} else if (y3 <= -1.45e-185) {
tmp = t_3;
} else if (y3 <= 1.44e-257) {
tmp = t_2;
} else if (y3 <= 5.4e-48) {
tmp = i * (y1 * (x * j));
} else if (y3 <= 2.1) {
tmp = t_2;
} else if (y3 <= 8.2e+40) {
tmp = a * (t * (y2 * y5));
} else if (y3 <= 6.4e+142) {
tmp = a * ((x * y) * b);
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = j * (y5 * (y0 * y3))
t_2 = b * (z * (k * y0))
t_3 = a * (x * (y * b))
t_4 = j * (x * (i * y1))
if (y3 <= (-3.9d+128)) then
tmp = t_1
else if (y3 <= (-3.5d-86)) then
tmp = t_4
else if (y3 <= (-3.5d-157)) then
tmp = t_3
else if (y3 <= (-6.8d-167)) then
tmp = t_4
else if (y3 <= (-1.45d-185)) then
tmp = t_3
else if (y3 <= 1.44d-257) then
tmp = t_2
else if (y3 <= 5.4d-48) then
tmp = i * (y1 * (x * j))
else if (y3 <= 2.1d0) then
tmp = t_2
else if (y3 <= 8.2d+40) then
tmp = a * (t * (y2 * y5))
else if (y3 <= 6.4d+142) then
tmp = a * ((x * y) * b)
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (y5 * (y0 * y3));
double t_2 = b * (z * (k * y0));
double t_3 = a * (x * (y * b));
double t_4 = j * (x * (i * y1));
double tmp;
if (y3 <= -3.9e+128) {
tmp = t_1;
} else if (y3 <= -3.5e-86) {
tmp = t_4;
} else if (y3 <= -3.5e-157) {
tmp = t_3;
} else if (y3 <= -6.8e-167) {
tmp = t_4;
} else if (y3 <= -1.45e-185) {
tmp = t_3;
} else if (y3 <= 1.44e-257) {
tmp = t_2;
} else if (y3 <= 5.4e-48) {
tmp = i * (y1 * (x * j));
} else if (y3 <= 2.1) {
tmp = t_2;
} else if (y3 <= 8.2e+40) {
tmp = a * (t * (y2 * y5));
} else if (y3 <= 6.4e+142) {
tmp = a * ((x * y) * b);
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (y5 * (y0 * y3)) t_2 = b * (z * (k * y0)) t_3 = a * (x * (y * b)) t_4 = j * (x * (i * y1)) tmp = 0 if y3 <= -3.9e+128: tmp = t_1 elif y3 <= -3.5e-86: tmp = t_4 elif y3 <= -3.5e-157: tmp = t_3 elif y3 <= -6.8e-167: tmp = t_4 elif y3 <= -1.45e-185: tmp = t_3 elif y3 <= 1.44e-257: tmp = t_2 elif y3 <= 5.4e-48: tmp = i * (y1 * (x * j)) elif y3 <= 2.1: tmp = t_2 elif y3 <= 8.2e+40: tmp = a * (t * (y2 * y5)) elif y3 <= 6.4e+142: tmp = a * ((x * y) * b) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(y5 * Float64(y0 * y3))) t_2 = Float64(b * Float64(z * Float64(k * y0))) t_3 = Float64(a * Float64(x * Float64(y * b))) t_4 = Float64(j * Float64(x * Float64(i * y1))) tmp = 0.0 if (y3 <= -3.9e+128) tmp = t_1; elseif (y3 <= -3.5e-86) tmp = t_4; elseif (y3 <= -3.5e-157) tmp = t_3; elseif (y3 <= -6.8e-167) tmp = t_4; elseif (y3 <= -1.45e-185) tmp = t_3; elseif (y3 <= 1.44e-257) tmp = t_2; elseif (y3 <= 5.4e-48) tmp = Float64(i * Float64(y1 * Float64(x * j))); elseif (y3 <= 2.1) tmp = t_2; elseif (y3 <= 8.2e+40) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (y3 <= 6.4e+142) tmp = Float64(a * Float64(Float64(x * y) * b)); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * (y5 * (y0 * y3)); t_2 = b * (z * (k * y0)); t_3 = a * (x * (y * b)); t_4 = j * (x * (i * y1)); tmp = 0.0; if (y3 <= -3.9e+128) tmp = t_1; elseif (y3 <= -3.5e-86) tmp = t_4; elseif (y3 <= -3.5e-157) tmp = t_3; elseif (y3 <= -6.8e-167) tmp = t_4; elseif (y3 <= -1.45e-185) tmp = t_3; elseif (y3 <= 1.44e-257) tmp = t_2; elseif (y3 <= 5.4e-48) tmp = i * (y1 * (x * j)); elseif (y3 <= 2.1) tmp = t_2; elseif (y3 <= 8.2e+40) tmp = a * (t * (y2 * y5)); elseif (y3 <= 6.4e+142) tmp = a * ((x * y) * b); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -3.9e+128], t$95$1, If[LessEqual[y3, -3.5e-86], t$95$4, If[LessEqual[y3, -3.5e-157], t$95$3, If[LessEqual[y3, -6.8e-167], t$95$4, If[LessEqual[y3, -1.45e-185], t$95$3, If[LessEqual[y3, 1.44e-257], t$95$2, If[LessEqual[y3, 5.4e-48], N[(i * N[(y1 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 2.1], t$95$2, If[LessEqual[y3, 8.2e+40], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 6.4e+142], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
t_2 := b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
t_3 := a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
t_4 := j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{if}\;y3 \leq -3.9 \cdot 10^{+128}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y3 \leq -3.5 \cdot 10^{-86}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y3 \leq -3.5 \cdot 10^{-157}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y3 \leq -6.8 \cdot 10^{-167}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y3 \leq -1.45 \cdot 10^{-185}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y3 \leq 1.44 \cdot 10^{-257}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y3 \leq 5.4 \cdot 10^{-48}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j\right)\right)\\
\mathbf{elif}\;y3 \leq 2.1:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y3 \leq 8.2 \cdot 10^{+40}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y3 \leq 6.4 \cdot 10^{+142}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y3 < -3.8999999999999997e128 or 6.40000000000000011e142 < y3 Initial program 16.7%
Taylor expanded in y0 around inf 42.2%
+-commutative42.2%
mul-1-neg42.2%
unsub-neg42.2%
*-commutative42.2%
*-commutative42.2%
*-commutative42.2%
*-commutative42.2%
Simplified42.2%
Taylor expanded in y5 around inf 42.5%
Taylor expanded in j around inf 41.2%
*-commutative41.2%
*-commutative41.2%
associate-*l*39.9%
Simplified39.9%
if -3.8999999999999997e128 < y3 < -3.50000000000000021e-86 or -3.5000000000000002e-157 < y3 < -6.7999999999999995e-167Initial program 32.2%
Taylor expanded in x around inf 40.4%
Taylor expanded in j around inf 31.9%
Taylor expanded in i around inf 28.4%
if -3.50000000000000021e-86 < y3 < -3.5000000000000002e-157 or -6.7999999999999995e-167 < y3 < -1.44999999999999997e-185Initial program 38.0%
Taylor expanded in x around inf 38.5%
Taylor expanded in a around inf 56.5%
+-commutative56.5%
mul-1-neg56.5%
unsub-neg56.5%
Simplified56.5%
Taylor expanded in b around inf 50.7%
if -1.44999999999999997e-185 < y3 < 1.43999999999999992e-257 or 5.40000000000000023e-48 < y3 < 2.10000000000000009Initial program 34.5%
Taylor expanded in y0 around inf 32.8%
+-commutative32.8%
mul-1-neg32.8%
unsub-neg32.8%
*-commutative32.8%
*-commutative32.8%
*-commutative32.8%
*-commutative32.8%
Simplified32.8%
Taylor expanded in k around -inf 31.0%
associate-*r*28.9%
+-commutative28.9%
mul-1-neg28.9%
unsub-neg28.9%
*-commutative28.9%
Simplified28.9%
Taylor expanded in z around inf 33.0%
associate-*r*37.4%
*-commutative37.4%
Simplified37.4%
if 1.43999999999999992e-257 < y3 < 5.40000000000000023e-48Initial program 30.1%
Taylor expanded in x around inf 45.7%
Taylor expanded in j around inf 45.7%
Taylor expanded in i around inf 28.7%
associate-*r*33.5%
*-commutative33.5%
Simplified33.5%
if 2.10000000000000009 < y3 < 8.2000000000000003e40Initial program 24.9%
Taylor expanded in y2 around inf 66.9%
Taylor expanded in t around inf 34.6%
Taylor expanded in a around inf 34.5%
*-commutative34.5%
Simplified34.5%
if 8.2000000000000003e40 < y3 < 6.40000000000000011e142Initial program 28.6%
Taylor expanded in x around inf 39.5%
Taylor expanded in a around inf 34.5%
+-commutative34.5%
mul-1-neg34.5%
unsub-neg34.5%
Simplified34.5%
Taylor expanded in b around inf 34.4%
Final simplification35.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* j (- (* t y4) (* x y0))))))
(if (<= y -2.5e+111)
(* i (* k (- (* y y5) (* z y1))))
(if (<= y -1.7e-87)
t_1
(if (<= y -2.35e-179)
(* j (* x (* i y1)))
(if (<= y -1.25e-250)
(* y2 (* t (* a y5)))
(if (<= y 2.7e-264)
t_1
(if (<= y 3.4e-157)
(* k (* y1 (- (* y2 y4) (* z i))))
(if (<= y 1.75e-71)
(* b (* y0 (- (* z k) (* x j))))
(if (<= y 2.25e-20)
(* a (* t (* y2 y5)))
(if (<= y 6.6e+177)
(* b (* x (- (* y a) (* j y0))))
(* b (* y4 (- (* t j) (* y k)))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (j * ((t * y4) - (x * y0)));
double tmp;
if (y <= -2.5e+111) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -1.7e-87) {
tmp = t_1;
} else if (y <= -2.35e-179) {
tmp = j * (x * (i * y1));
} else if (y <= -1.25e-250) {
tmp = y2 * (t * (a * y5));
} else if (y <= 2.7e-264) {
tmp = t_1;
} else if (y <= 3.4e-157) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (y <= 1.75e-71) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y <= 2.25e-20) {
tmp = a * (t * (y2 * y5));
} else if (y <= 6.6e+177) {
tmp = b * (x * ((y * a) - (j * y0)));
} else {
tmp = b * (y4 * ((t * j) - (y * k)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = b * (j * ((t * y4) - (x * y0)))
if (y <= (-2.5d+111)) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (y <= (-1.7d-87)) then
tmp = t_1
else if (y <= (-2.35d-179)) then
tmp = j * (x * (i * y1))
else if (y <= (-1.25d-250)) then
tmp = y2 * (t * (a * y5))
else if (y <= 2.7d-264) then
tmp = t_1
else if (y <= 3.4d-157) then
tmp = k * (y1 * ((y2 * y4) - (z * i)))
else if (y <= 1.75d-71) then
tmp = b * (y0 * ((z * k) - (x * j)))
else if (y <= 2.25d-20) then
tmp = a * (t * (y2 * y5))
else if (y <= 6.6d+177) then
tmp = b * (x * ((y * a) - (j * y0)))
else
tmp = b * (y4 * ((t * j) - (y * k)))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (j * ((t * y4) - (x * y0)));
double tmp;
if (y <= -2.5e+111) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y <= -1.7e-87) {
tmp = t_1;
} else if (y <= -2.35e-179) {
tmp = j * (x * (i * y1));
} else if (y <= -1.25e-250) {
tmp = y2 * (t * (a * y5));
} else if (y <= 2.7e-264) {
tmp = t_1;
} else if (y <= 3.4e-157) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (y <= 1.75e-71) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y <= 2.25e-20) {
tmp = a * (t * (y2 * y5));
} else if (y <= 6.6e+177) {
tmp = b * (x * ((y * a) - (j * y0)));
} else {
tmp = b * (y4 * ((t * j) - (y * k)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (j * ((t * y4) - (x * y0))) tmp = 0 if y <= -2.5e+111: tmp = i * (k * ((y * y5) - (z * y1))) elif y <= -1.7e-87: tmp = t_1 elif y <= -2.35e-179: tmp = j * (x * (i * y1)) elif y <= -1.25e-250: tmp = y2 * (t * (a * y5)) elif y <= 2.7e-264: tmp = t_1 elif y <= 3.4e-157: tmp = k * (y1 * ((y2 * y4) - (z * i))) elif y <= 1.75e-71: tmp = b * (y0 * ((z * k) - (x * j))) elif y <= 2.25e-20: tmp = a * (t * (y2 * y5)) elif y <= 6.6e+177: tmp = b * (x * ((y * a) - (j * y0))) else: tmp = b * (y4 * ((t * j) - (y * k))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(j * Float64(Float64(t * y4) - Float64(x * y0)))) tmp = 0.0 if (y <= -2.5e+111) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (y <= -1.7e-87) tmp = t_1; elseif (y <= -2.35e-179) tmp = Float64(j * Float64(x * Float64(i * y1))); elseif (y <= -1.25e-250) tmp = Float64(y2 * Float64(t * Float64(a * y5))); elseif (y <= 2.7e-264) tmp = t_1; elseif (y <= 3.4e-157) tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); elseif (y <= 1.75e-71) tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); elseif (y <= 2.25e-20) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (y <= 6.6e+177) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); else tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (j * ((t * y4) - (x * y0))); tmp = 0.0; if (y <= -2.5e+111) tmp = i * (k * ((y * y5) - (z * y1))); elseif (y <= -1.7e-87) tmp = t_1; elseif (y <= -2.35e-179) tmp = j * (x * (i * y1)); elseif (y <= -1.25e-250) tmp = y2 * (t * (a * y5)); elseif (y <= 2.7e-264) tmp = t_1; elseif (y <= 3.4e-157) tmp = k * (y1 * ((y2 * y4) - (z * i))); elseif (y <= 1.75e-71) tmp = b * (y0 * ((z * k) - (x * j))); elseif (y <= 2.25e-20) tmp = a * (t * (y2 * y5)); elseif (y <= 6.6e+177) tmp = b * (x * ((y * a) - (j * y0))); else tmp = b * (y4 * ((t * j) - (y * k))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(j * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2.5e+111], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.7e-87], t$95$1, If[LessEqual[y, -2.35e-179], N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.25e-250], N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.7e-264], t$95$1, If[LessEqual[y, 3.4e-157], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.75e-71], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.25e-20], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 6.6e+177], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(j \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{if}\;y \leq -2.5 \cdot 10^{+111}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -1.7 \cdot 10^{-87}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -2.35 \cdot 10^{-179}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq -1.25 \cdot 10^{-250}:\\
\;\;\;\;y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
\mathbf{elif}\;y \leq 2.7 \cdot 10^{-264}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 3.4 \cdot 10^{-157}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{elif}\;y \leq 1.75 \cdot 10^{-71}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y \leq 2.25 \cdot 10^{-20}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y \leq 6.6 \cdot 10^{+177}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\end{array}
\end{array}
if y < -2.4999999999999998e111Initial program 18.9%
Taylor expanded in k around inf 35.7%
+-commutative35.7%
mul-1-neg35.7%
unsub-neg35.7%
*-commutative35.7%
associate-*r*35.7%
neg-mul-135.7%
Simplified35.7%
Taylor expanded in i around -inf 54.5%
+-commutative54.5%
mul-1-neg54.5%
unsub-neg54.5%
Simplified54.5%
if -2.4999999999999998e111 < y < -1.6999999999999999e-87 or -1.25000000000000007e-250 < y < 2.69999999999999994e-264Initial program 32.5%
Taylor expanded in b around inf 40.7%
Taylor expanded in j around inf 36.6%
if -1.6999999999999999e-87 < y < -2.3500000000000001e-179Initial program 29.7%
Taylor expanded in x around inf 25.2%
Taylor expanded in j around inf 36.6%
Taylor expanded in i around inf 36.6%
if -2.3500000000000001e-179 < y < -1.25000000000000007e-250Initial program 47.1%
Taylor expanded in y2 around inf 53.3%
Taylor expanded in t around inf 36.5%
Taylor expanded in a around inf 42.5%
*-commutative42.5%
Simplified42.5%
if 2.69999999999999994e-264 < y < 3.39999999999999977e-157Initial program 21.3%
Taylor expanded in k around inf 58.5%
+-commutative58.5%
mul-1-neg58.5%
unsub-neg58.5%
*-commutative58.5%
associate-*r*58.5%
neg-mul-158.5%
Simplified58.5%
Taylor expanded in y1 around inf 43.6%
if 3.39999999999999977e-157 < y < 1.75e-71Initial program 26.7%
Taylor expanded in b around inf 39.8%
Taylor expanded in y0 around inf 40.5%
if 1.75e-71 < y < 2.2500000000000001e-20Initial program 29.0%
Taylor expanded in y2 around inf 72.1%
Taylor expanded in t around inf 51.5%
Taylor expanded in a around inf 43.8%
*-commutative43.8%
Simplified43.8%
if 2.2500000000000001e-20 < y < 6.6000000000000003e177Initial program 22.8%
Taylor expanded in b around inf 39.8%
Taylor expanded in x around inf 40.4%
if 6.6000000000000003e177 < y Initial program 27.3%
Taylor expanded in b around inf 43.4%
Taylor expanded in y4 around inf 42.8%
Final simplification42.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* j (- (* t y4) (* x y0))))))
(if (<= y4 -4.15e+105)
(* c (* t (* y2 (- y4))))
(if (<= y4 -1.46e-87)
t_1
(if (<= y4 -3.4e-118)
(* (* t y2) (* a y5))
(if (<= y4 -6e-156)
(* b (* k (* z y0)))
(if (<= y4 -1e-177)
(* c (* y (* i (- x))))
(if (<= y4 -3.5e-230)
(* j (* y1 (* x i)))
(if (<= y4 8.2e-286)
(* (* k y0) (* z b))
(if (<= y4 1.45e-37)
(* y2 (* t (* a y5)))
(if (<= y4 3.7e+47)
t_1
(* y1 (* y3 (* j (- y4)))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (j * ((t * y4) - (x * y0)));
double tmp;
if (y4 <= -4.15e+105) {
tmp = c * (t * (y2 * -y4));
} else if (y4 <= -1.46e-87) {
tmp = t_1;
} else if (y4 <= -3.4e-118) {
tmp = (t * y2) * (a * y5);
} else if (y4 <= -6e-156) {
tmp = b * (k * (z * y0));
} else if (y4 <= -1e-177) {
tmp = c * (y * (i * -x));
} else if (y4 <= -3.5e-230) {
tmp = j * (y1 * (x * i));
} else if (y4 <= 8.2e-286) {
tmp = (k * y0) * (z * b);
} else if (y4 <= 1.45e-37) {
tmp = y2 * (t * (a * y5));
} else if (y4 <= 3.7e+47) {
tmp = t_1;
} else {
tmp = y1 * (y3 * (j * -y4));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = b * (j * ((t * y4) - (x * y0)))
if (y4 <= (-4.15d+105)) then
tmp = c * (t * (y2 * -y4))
else if (y4 <= (-1.46d-87)) then
tmp = t_1
else if (y4 <= (-3.4d-118)) then
tmp = (t * y2) * (a * y5)
else if (y4 <= (-6d-156)) then
tmp = b * (k * (z * y0))
else if (y4 <= (-1d-177)) then
tmp = c * (y * (i * -x))
else if (y4 <= (-3.5d-230)) then
tmp = j * (y1 * (x * i))
else if (y4 <= 8.2d-286) then
tmp = (k * y0) * (z * b)
else if (y4 <= 1.45d-37) then
tmp = y2 * (t * (a * y5))
else if (y4 <= 3.7d+47) then
tmp = t_1
else
tmp = y1 * (y3 * (j * -y4))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (j * ((t * y4) - (x * y0)));
double tmp;
if (y4 <= -4.15e+105) {
tmp = c * (t * (y2 * -y4));
} else if (y4 <= -1.46e-87) {
tmp = t_1;
} else if (y4 <= -3.4e-118) {
tmp = (t * y2) * (a * y5);
} else if (y4 <= -6e-156) {
tmp = b * (k * (z * y0));
} else if (y4 <= -1e-177) {
tmp = c * (y * (i * -x));
} else if (y4 <= -3.5e-230) {
tmp = j * (y1 * (x * i));
} else if (y4 <= 8.2e-286) {
tmp = (k * y0) * (z * b);
} else if (y4 <= 1.45e-37) {
tmp = y2 * (t * (a * y5));
} else if (y4 <= 3.7e+47) {
tmp = t_1;
} else {
tmp = y1 * (y3 * (j * -y4));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (j * ((t * y4) - (x * y0))) tmp = 0 if y4 <= -4.15e+105: tmp = c * (t * (y2 * -y4)) elif y4 <= -1.46e-87: tmp = t_1 elif y4 <= -3.4e-118: tmp = (t * y2) * (a * y5) elif y4 <= -6e-156: tmp = b * (k * (z * y0)) elif y4 <= -1e-177: tmp = c * (y * (i * -x)) elif y4 <= -3.5e-230: tmp = j * (y1 * (x * i)) elif y4 <= 8.2e-286: tmp = (k * y0) * (z * b) elif y4 <= 1.45e-37: tmp = y2 * (t * (a * y5)) elif y4 <= 3.7e+47: tmp = t_1 else: tmp = y1 * (y3 * (j * -y4)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(j * Float64(Float64(t * y4) - Float64(x * y0)))) tmp = 0.0 if (y4 <= -4.15e+105) tmp = Float64(c * Float64(t * Float64(y2 * Float64(-y4)))); elseif (y4 <= -1.46e-87) tmp = t_1; elseif (y4 <= -3.4e-118) tmp = Float64(Float64(t * y2) * Float64(a * y5)); elseif (y4 <= -6e-156) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (y4 <= -1e-177) tmp = Float64(c * Float64(y * Float64(i * Float64(-x)))); elseif (y4 <= -3.5e-230) tmp = Float64(j * Float64(y1 * Float64(x * i))); elseif (y4 <= 8.2e-286) tmp = Float64(Float64(k * y0) * Float64(z * b)); elseif (y4 <= 1.45e-37) tmp = Float64(y2 * Float64(t * Float64(a * y5))); elseif (y4 <= 3.7e+47) tmp = t_1; else tmp = Float64(y1 * Float64(y3 * Float64(j * Float64(-y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (j * ((t * y4) - (x * y0))); tmp = 0.0; if (y4 <= -4.15e+105) tmp = c * (t * (y2 * -y4)); elseif (y4 <= -1.46e-87) tmp = t_1; elseif (y4 <= -3.4e-118) tmp = (t * y2) * (a * y5); elseif (y4 <= -6e-156) tmp = b * (k * (z * y0)); elseif (y4 <= -1e-177) tmp = c * (y * (i * -x)); elseif (y4 <= -3.5e-230) tmp = j * (y1 * (x * i)); elseif (y4 <= 8.2e-286) tmp = (k * y0) * (z * b); elseif (y4 <= 1.45e-37) tmp = y2 * (t * (a * y5)); elseif (y4 <= 3.7e+47) tmp = t_1; else tmp = y1 * (y3 * (j * -y4)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(j * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -4.15e+105], N[(c * N[(t * N[(y2 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1.46e-87], t$95$1, If[LessEqual[y4, -3.4e-118], N[(N[(t * y2), $MachinePrecision] * N[(a * y5), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -6e-156], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1e-177], N[(c * N[(y * N[(i * (-x)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -3.5e-230], N[(j * N[(y1 * N[(x * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 8.2e-286], N[(N[(k * y0), $MachinePrecision] * N[(z * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.45e-37], N[(y2 * N[(t * N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 3.7e+47], t$95$1, N[(y1 * N[(y3 * N[(j * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(j \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{if}\;y4 \leq -4.15 \cdot 10^{+105}:\\
\;\;\;\;c \cdot \left(t \cdot \left(y2 \cdot \left(-y4\right)\right)\right)\\
\mathbf{elif}\;y4 \leq -1.46 \cdot 10^{-87}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -3.4 \cdot 10^{-118}:\\
\;\;\;\;\left(t \cdot y2\right) \cdot \left(a \cdot y5\right)\\
\mathbf{elif}\;y4 \leq -6 \cdot 10^{-156}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;y4 \leq -1 \cdot 10^{-177}:\\
\;\;\;\;c \cdot \left(y \cdot \left(i \cdot \left(-x\right)\right)\right)\\
\mathbf{elif}\;y4 \leq -3.5 \cdot 10^{-230}:\\
\;\;\;\;j \cdot \left(y1 \cdot \left(x \cdot i\right)\right)\\
\mathbf{elif}\;y4 \leq 8.2 \cdot 10^{-286}:\\
\;\;\;\;\left(k \cdot y0\right) \cdot \left(z \cdot b\right)\\
\mathbf{elif}\;y4 \leq 1.45 \cdot 10^{-37}:\\
\;\;\;\;y2 \cdot \left(t \cdot \left(a \cdot y5\right)\right)\\
\mathbf{elif}\;y4 \leq 3.7 \cdot 10^{+47}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(j \cdot \left(-y4\right)\right)\right)\\
\end{array}
\end{array}
if y4 < -4.15e105Initial program 17.2%
Taylor expanded in y2 around inf 54.1%
Taylor expanded in t around inf 33.3%
Taylor expanded in a around 0 35.6%
associate-*r*35.6%
neg-mul-135.6%
*-commutative35.6%
Simplified35.6%
if -4.15e105 < y4 < -1.4599999999999999e-87 or 1.45000000000000002e-37 < y4 < 3.70000000000000041e47Initial program 27.8%
Taylor expanded in b around inf 43.1%
Taylor expanded in j around inf 39.8%
if -1.4599999999999999e-87 < y4 < -3.39999999999999991e-118Initial program 42.9%
Taylor expanded in y2 around inf 29.0%
Taylor expanded in t around inf 43.4%
Taylor expanded in a around inf 30.4%
*-commutative30.4%
Simplified30.4%
pow130.4%
associate-*r*43.4%
*-commutative43.4%
Applied egg-rr43.4%
unpow143.4%
*-commutative43.4%
*-commutative43.4%
Simplified43.4%
if -3.39999999999999991e-118 < y4 < -6e-156Initial program 10.6%
Taylor expanded in y0 around inf 50.6%
+-commutative50.6%
mul-1-neg50.6%
unsub-neg50.6%
*-commutative50.6%
*-commutative50.6%
*-commutative50.6%
*-commutative50.6%
Simplified50.6%
Taylor expanded in k around -inf 60.6%
associate-*r*60.6%
+-commutative60.6%
mul-1-neg60.6%
unsub-neg60.6%
*-commutative60.6%
Simplified60.6%
Taylor expanded in z around inf 50.5%
if -6e-156 < y4 < -9.99999999999999952e-178Initial program 16.7%
Taylor expanded in y around inf 83.3%
+-commutative83.3%
mul-1-neg83.3%
unsub-neg83.3%
*-commutative83.3%
*-commutative83.3%
mul-1-neg83.3%
Simplified83.3%
Taylor expanded in y3 around 0 83.3%
Taylor expanded in c around inf 83.5%
mul-1-neg83.5%
distribute-rgt-neg-in83.5%
associate-*r*83.5%
distribute-lft-neg-in83.5%
*-commutative83.5%
distribute-rgt-neg-in83.5%
Simplified83.5%
if -9.99999999999999952e-178 < y4 < -3.49999999999999988e-230Initial program 44.7%
Taylor expanded in x around inf 51.0%
Taylor expanded in j around inf 50.9%
Taylor expanded in i around inf 34.6%
associate-*r*39.9%
*-commutative39.9%
Simplified39.9%
if -3.49999999999999988e-230 < y4 < 8.2e-286Initial program 56.9%
Taylor expanded in y0 around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in k around -inf 48.9%
associate-*r*44.3%
+-commutative44.3%
mul-1-neg44.3%
unsub-neg44.3%
*-commutative44.3%
Simplified44.3%
Taylor expanded in z around inf 39.6%
if 8.2e-286 < y4 < 1.45000000000000002e-37Initial program 32.1%
Taylor expanded in y2 around inf 43.4%
Taylor expanded in t around inf 38.3%
Taylor expanded in a around inf 34.6%
*-commutative34.6%
Simplified34.6%
if 3.70000000000000041e47 < y4 Initial program 17.3%
Taylor expanded in y3 around -inf 39.0%
Taylor expanded in y1 around inf 48.5%
+-commutative48.5%
mul-1-neg48.5%
unsub-neg48.5%
Simplified48.5%
Taylor expanded in j around inf 45.1%
Final simplification40.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y2 (* a (* t y5)))))
(if (<= t -4e+191)
t_1
(if (<= t -1.15e+94)
(* c (* y4 (* t (- y2))))
(if (<= t -2.9e-146)
(* z (* b (* k y0)))
(if (<= t -2.55e-226)
(* y0 (* j (* y3 y5)))
(if (<= t -7.4e-255)
(* y1 (* y2 (* k y4)))
(if (<= t 6.6e-103)
(* a (* x (* y b)))
(if (<= t 8.8e+56)
(* b (* k (* z y0)))
(if (<= t 7.5e+266)
t_1
(if (<= t 6.2e+292)
(* (- b) (* y0 (* x j)))
(* b (* y4 (* t j))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y2 * (a * (t * y5));
double tmp;
if (t <= -4e+191) {
tmp = t_1;
} else if (t <= -1.15e+94) {
tmp = c * (y4 * (t * -y2));
} else if (t <= -2.9e-146) {
tmp = z * (b * (k * y0));
} else if (t <= -2.55e-226) {
tmp = y0 * (j * (y3 * y5));
} else if (t <= -7.4e-255) {
tmp = y1 * (y2 * (k * y4));
} else if (t <= 6.6e-103) {
tmp = a * (x * (y * b));
} else if (t <= 8.8e+56) {
tmp = b * (k * (z * y0));
} else if (t <= 7.5e+266) {
tmp = t_1;
} else if (t <= 6.2e+292) {
tmp = -b * (y0 * (x * j));
} else {
tmp = b * (y4 * (t * j));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y2 * (a * (t * y5))
if (t <= (-4d+191)) then
tmp = t_1
else if (t <= (-1.15d+94)) then
tmp = c * (y4 * (t * -y2))
else if (t <= (-2.9d-146)) then
tmp = z * (b * (k * y0))
else if (t <= (-2.55d-226)) then
tmp = y0 * (j * (y3 * y5))
else if (t <= (-7.4d-255)) then
tmp = y1 * (y2 * (k * y4))
else if (t <= 6.6d-103) then
tmp = a * (x * (y * b))
else if (t <= 8.8d+56) then
tmp = b * (k * (z * y0))
else if (t <= 7.5d+266) then
tmp = t_1
else if (t <= 6.2d+292) then
tmp = -b * (y0 * (x * j))
else
tmp = b * (y4 * (t * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y2 * (a * (t * y5));
double tmp;
if (t <= -4e+191) {
tmp = t_1;
} else if (t <= -1.15e+94) {
tmp = c * (y4 * (t * -y2));
} else if (t <= -2.9e-146) {
tmp = z * (b * (k * y0));
} else if (t <= -2.55e-226) {
tmp = y0 * (j * (y3 * y5));
} else if (t <= -7.4e-255) {
tmp = y1 * (y2 * (k * y4));
} else if (t <= 6.6e-103) {
tmp = a * (x * (y * b));
} else if (t <= 8.8e+56) {
tmp = b * (k * (z * y0));
} else if (t <= 7.5e+266) {
tmp = t_1;
} else if (t <= 6.2e+292) {
tmp = -b * (y0 * (x * j));
} else {
tmp = b * (y4 * (t * j));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y2 * (a * (t * y5)) tmp = 0 if t <= -4e+191: tmp = t_1 elif t <= -1.15e+94: tmp = c * (y4 * (t * -y2)) elif t <= -2.9e-146: tmp = z * (b * (k * y0)) elif t <= -2.55e-226: tmp = y0 * (j * (y3 * y5)) elif t <= -7.4e-255: tmp = y1 * (y2 * (k * y4)) elif t <= 6.6e-103: tmp = a * (x * (y * b)) elif t <= 8.8e+56: tmp = b * (k * (z * y0)) elif t <= 7.5e+266: tmp = t_1 elif t <= 6.2e+292: tmp = -b * (y0 * (x * j)) else: tmp = b * (y4 * (t * j)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y2 * Float64(a * Float64(t * y5))) tmp = 0.0 if (t <= -4e+191) tmp = t_1; elseif (t <= -1.15e+94) tmp = Float64(c * Float64(y4 * Float64(t * Float64(-y2)))); elseif (t <= -2.9e-146) tmp = Float64(z * Float64(b * Float64(k * y0))); elseif (t <= -2.55e-226) tmp = Float64(y0 * Float64(j * Float64(y3 * y5))); elseif (t <= -7.4e-255) tmp = Float64(y1 * Float64(y2 * Float64(k * y4))); elseif (t <= 6.6e-103) tmp = Float64(a * Float64(x * Float64(y * b))); elseif (t <= 8.8e+56) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (t <= 7.5e+266) tmp = t_1; elseif (t <= 6.2e+292) tmp = Float64(Float64(-b) * Float64(y0 * Float64(x * j))); else tmp = Float64(b * Float64(y4 * Float64(t * j))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y2 * (a * (t * y5)); tmp = 0.0; if (t <= -4e+191) tmp = t_1; elseif (t <= -1.15e+94) tmp = c * (y4 * (t * -y2)); elseif (t <= -2.9e-146) tmp = z * (b * (k * y0)); elseif (t <= -2.55e-226) tmp = y0 * (j * (y3 * y5)); elseif (t <= -7.4e-255) tmp = y1 * (y2 * (k * y4)); elseif (t <= 6.6e-103) tmp = a * (x * (y * b)); elseif (t <= 8.8e+56) tmp = b * (k * (z * y0)); elseif (t <= 7.5e+266) tmp = t_1; elseif (t <= 6.2e+292) tmp = -b * (y0 * (x * j)); else tmp = b * (y4 * (t * j)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y2 * N[(a * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -4e+191], t$95$1, If[LessEqual[t, -1.15e+94], N[(c * N[(y4 * N[(t * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.9e-146], N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.55e-226], N[(y0 * N[(j * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -7.4e-255], N[(y1 * N[(y2 * N[(k * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 6.6e-103], N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 8.8e+56], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 7.5e+266], t$95$1, If[LessEqual[t, 6.2e+292], N[((-b) * N[(y0 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y2 \cdot \left(a \cdot \left(t \cdot y5\right)\right)\\
\mathbf{if}\;t \leq -4 \cdot 10^{+191}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq -1.15 \cdot 10^{+94}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(t \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;t \leq -2.9 \cdot 10^{-146}:\\
\;\;\;\;z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;t \leq -2.55 \cdot 10^{-226}:\\
\;\;\;\;y0 \cdot \left(j \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;t \leq -7.4 \cdot 10^{-255}:\\
\;\;\;\;y1 \cdot \left(y2 \cdot \left(k \cdot y4\right)\right)\\
\mathbf{elif}\;t \leq 6.6 \cdot 10^{-103}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
\mathbf{elif}\;t \leq 8.8 \cdot 10^{+56}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;t \leq 7.5 \cdot 10^{+266}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 6.2 \cdot 10^{+292}:\\
\;\;\;\;\left(-b\right) \cdot \left(y0 \cdot \left(x \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\end{array}
\end{array}
if t < -4.00000000000000029e191 or 8.80000000000000063e56 < t < 7.4999999999999998e266Initial program 24.7%
Taylor expanded in y2 around inf 53.6%
Taylor expanded in t around inf 48.6%
Taylor expanded in a around inf 42.1%
*-commutative42.1%
Simplified42.1%
if -4.00000000000000029e191 < t < -1.15e94Initial program 11.1%
Taylor expanded in y2 around inf 42.3%
Taylor expanded in t around inf 58.5%
Taylor expanded in a around 0 48.4%
mul-1-neg48.4%
distribute-rgt-neg-in48.4%
associate-*r*53.5%
distribute-rgt-neg-in53.5%
*-commutative53.5%
Simplified53.5%
if -1.15e94 < t < -2.90000000000000011e-146Initial program 25.3%
Taylor expanded in y0 around inf 35.6%
+-commutative35.6%
mul-1-neg35.6%
unsub-neg35.6%
*-commutative35.6%
*-commutative35.6%
*-commutative35.6%
*-commutative35.6%
Simplified35.6%
Taylor expanded in k around -inf 31.3%
associate-*r*26.6%
+-commutative26.6%
mul-1-neg26.6%
unsub-neg26.6%
*-commutative26.6%
Simplified26.6%
Taylor expanded in z around inf 26.8%
pow126.8%
Applied egg-rr26.8%
unpow126.8%
associate-*r*29.2%
associate-*r*31.4%
Simplified31.4%
if -2.90000000000000011e-146 < t < -2.54999999999999987e-226Initial program 35.6%
Taylor expanded in y0 around inf 39.9%
+-commutative39.9%
mul-1-neg39.9%
unsub-neg39.9%
*-commutative39.9%
*-commutative39.9%
*-commutative39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in y5 around inf 34.4%
Taylor expanded in j around inf 36.4%
*-commutative36.4%
Simplified36.4%
if -2.54999999999999987e-226 < t < -7.4000000000000003e-255Initial program 37.5%
Taylor expanded in y2 around inf 50.8%
Taylor expanded in y1 around inf 50.5%
+-commutative50.5%
mul-1-neg50.5%
unsub-neg50.5%
Simplified50.5%
Taylor expanded in k around inf 50.6%
*-commutative50.6%
Simplified50.6%
if -7.4000000000000003e-255 < t < 6.59999999999999979e-103Initial program 37.1%
Taylor expanded in x around inf 42.0%
Taylor expanded in a around inf 36.0%
+-commutative36.0%
mul-1-neg36.0%
unsub-neg36.0%
Simplified36.0%
Taylor expanded in b around inf 25.7%
if 6.59999999999999979e-103 < t < 8.80000000000000063e56Initial program 31.5%
Taylor expanded in y0 around inf 43.8%
+-commutative43.8%
mul-1-neg43.8%
unsub-neg43.8%
*-commutative43.8%
*-commutative43.8%
*-commutative43.8%
*-commutative43.8%
Simplified43.8%
Taylor expanded in k around -inf 43.9%
associate-*r*35.4%
+-commutative35.4%
mul-1-neg35.4%
unsub-neg35.4%
*-commutative35.4%
Simplified35.4%
Taylor expanded in z around inf 24.4%
if 7.4999999999999998e266 < t < 6.20000000000000035e292Initial program 25.0%
Taylor expanded in x around inf 41.9%
Taylor expanded in j around inf 43.2%
Taylor expanded in i around 0 51.6%
mul-1-neg51.6%
distribute-rgt-neg-in51.6%
associate-*r*59.7%
distribute-rgt-neg-in59.7%
*-commutative59.7%
Simplified59.7%
if 6.20000000000000035e292 < t Initial program 0.0%
Taylor expanded in b around inf 33.3%
Taylor expanded in y4 around inf 100.0%
Taylor expanded in j around inf 100.0%
Final simplification37.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* x (* i y1)))))
(if (<= i -5.6e+170)
t_1
(if (<= i -4.3e+70)
(* a (* t (* y2 y5)))
(if (<= i -1.4e-52)
(* b (* k (* z y0)))
(if (<= i -3e-64)
(* i (* k (* y y5)))
(if (<= i -3.7e-147)
(* b (* y4 (* t j)))
(if (<= i -3.6e-268)
(* a (* (* x y) b))
(if (<= i 1.85e+58)
(* b (* z (* k y0)))
(if (<= i 9.5e+132) (* a (* x (* y b))) t_1))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (x * (i * y1));
double tmp;
if (i <= -5.6e+170) {
tmp = t_1;
} else if (i <= -4.3e+70) {
tmp = a * (t * (y2 * y5));
} else if (i <= -1.4e-52) {
tmp = b * (k * (z * y0));
} else if (i <= -3e-64) {
tmp = i * (k * (y * y5));
} else if (i <= -3.7e-147) {
tmp = b * (y4 * (t * j));
} else if (i <= -3.6e-268) {
tmp = a * ((x * y) * b);
} else if (i <= 1.85e+58) {
tmp = b * (z * (k * y0));
} else if (i <= 9.5e+132) {
tmp = a * (x * (y * b));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = j * (x * (i * y1))
if (i <= (-5.6d+170)) then
tmp = t_1
else if (i <= (-4.3d+70)) then
tmp = a * (t * (y2 * y5))
else if (i <= (-1.4d-52)) then
tmp = b * (k * (z * y0))
else if (i <= (-3d-64)) then
tmp = i * (k * (y * y5))
else if (i <= (-3.7d-147)) then
tmp = b * (y4 * (t * j))
else if (i <= (-3.6d-268)) then
tmp = a * ((x * y) * b)
else if (i <= 1.85d+58) then
tmp = b * (z * (k * y0))
else if (i <= 9.5d+132) then
tmp = a * (x * (y * b))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (x * (i * y1));
double tmp;
if (i <= -5.6e+170) {
tmp = t_1;
} else if (i <= -4.3e+70) {
tmp = a * (t * (y2 * y5));
} else if (i <= -1.4e-52) {
tmp = b * (k * (z * y0));
} else if (i <= -3e-64) {
tmp = i * (k * (y * y5));
} else if (i <= -3.7e-147) {
tmp = b * (y4 * (t * j));
} else if (i <= -3.6e-268) {
tmp = a * ((x * y) * b);
} else if (i <= 1.85e+58) {
tmp = b * (z * (k * y0));
} else if (i <= 9.5e+132) {
tmp = a * (x * (y * b));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (x * (i * y1)) tmp = 0 if i <= -5.6e+170: tmp = t_1 elif i <= -4.3e+70: tmp = a * (t * (y2 * y5)) elif i <= -1.4e-52: tmp = b * (k * (z * y0)) elif i <= -3e-64: tmp = i * (k * (y * y5)) elif i <= -3.7e-147: tmp = b * (y4 * (t * j)) elif i <= -3.6e-268: tmp = a * ((x * y) * b) elif i <= 1.85e+58: tmp = b * (z * (k * y0)) elif i <= 9.5e+132: tmp = a * (x * (y * b)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(x * Float64(i * y1))) tmp = 0.0 if (i <= -5.6e+170) tmp = t_1; elseif (i <= -4.3e+70) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (i <= -1.4e-52) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (i <= -3e-64) tmp = Float64(i * Float64(k * Float64(y * y5))); elseif (i <= -3.7e-147) tmp = Float64(b * Float64(y4 * Float64(t * j))); elseif (i <= -3.6e-268) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (i <= 1.85e+58) tmp = Float64(b * Float64(z * Float64(k * y0))); elseif (i <= 9.5e+132) tmp = Float64(a * Float64(x * Float64(y * b))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * (x * (i * y1)); tmp = 0.0; if (i <= -5.6e+170) tmp = t_1; elseif (i <= -4.3e+70) tmp = a * (t * (y2 * y5)); elseif (i <= -1.4e-52) tmp = b * (k * (z * y0)); elseif (i <= -3e-64) tmp = i * (k * (y * y5)); elseif (i <= -3.7e-147) tmp = b * (y4 * (t * j)); elseif (i <= -3.6e-268) tmp = a * ((x * y) * b); elseif (i <= 1.85e+58) tmp = b * (z * (k * y0)); elseif (i <= 9.5e+132) tmp = a * (x * (y * b)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, -5.6e+170], t$95$1, If[LessEqual[i, -4.3e+70], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -1.4e-52], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -3e-64], N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -3.7e-147], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -3.6e-268], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 1.85e+58], N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 9.5e+132], N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{if}\;i \leq -5.6 \cdot 10^{+170}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;i \leq -4.3 \cdot 10^{+70}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;i \leq -1.4 \cdot 10^{-52}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;i \leq -3 \cdot 10^{-64}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\mathbf{elif}\;i \leq -3.7 \cdot 10^{-147}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{elif}\;i \leq -3.6 \cdot 10^{-268}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;i \leq 1.85 \cdot 10^{+58}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
\mathbf{elif}\;i \leq 9.5 \cdot 10^{+132}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if i < -5.6000000000000003e170 or 9.5000000000000005e132 < i Initial program 20.4%
Taylor expanded in x around inf 43.7%
Taylor expanded in j around inf 52.3%
Taylor expanded in i around inf 48.3%
if -5.6000000000000003e170 < i < -4.3000000000000001e70Initial program 22.5%
Taylor expanded in y2 around inf 39.8%
Taylor expanded in t around inf 25.2%
Taylor expanded in a around inf 39.8%
*-commutative39.8%
Simplified39.8%
if -4.3000000000000001e70 < i < -1.39999999999999997e-52Initial program 38.7%
Taylor expanded in y0 around inf 52.3%
+-commutative52.3%
mul-1-neg52.3%
unsub-neg52.3%
*-commutative52.3%
*-commutative52.3%
*-commutative52.3%
*-commutative52.3%
Simplified52.3%
Taylor expanded in k around -inf 22.3%
associate-*r*19.1%
+-commutative19.1%
mul-1-neg19.1%
unsub-neg19.1%
*-commutative19.1%
Simplified19.1%
Taylor expanded in z around inf 22.0%
if -1.39999999999999997e-52 < i < -3.0000000000000001e-64Initial program 33.3%
Taylor expanded in y around inf 66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
*-commutative66.7%
*-commutative66.7%
mul-1-neg66.7%
Simplified66.7%
Taylor expanded in y3 around 0 66.7%
Taylor expanded in y5 around inf 66.7%
if -3.0000000000000001e-64 < i < -3.7000000000000002e-147Initial program 44.3%
Taylor expanded in b around inf 55.7%
Taylor expanded in y4 around inf 45.2%
Taylor expanded in j around inf 34.1%
if -3.7000000000000002e-147 < i < -3.6000000000000001e-268Initial program 38.7%
Taylor expanded in x around inf 40.6%
Taylor expanded in a around inf 34.9%
+-commutative34.9%
mul-1-neg34.9%
unsub-neg34.9%
Simplified34.9%
Taylor expanded in b around inf 29.3%
if -3.6000000000000001e-268 < i < 1.8500000000000001e58Initial program 27.0%
Taylor expanded in y0 around inf 45.3%
+-commutative45.3%
mul-1-neg45.3%
unsub-neg45.3%
*-commutative45.3%
*-commutative45.3%
*-commutative45.3%
*-commutative45.3%
Simplified45.3%
Taylor expanded in k around -inf 39.8%
associate-*r*36.4%
+-commutative36.4%
mul-1-neg36.4%
unsub-neg36.4%
*-commutative36.4%
Simplified36.4%
Taylor expanded in z around inf 26.1%
associate-*r*28.3%
*-commutative28.3%
Simplified28.3%
if 1.8500000000000001e58 < i < 9.5000000000000005e132Initial program 31.1%
Taylor expanded in x around inf 46.4%
Taylor expanded in a around inf 31.8%
+-commutative31.8%
mul-1-neg31.8%
unsub-neg31.8%
Simplified31.8%
Taylor expanded in b around inf 35.9%
Final simplification35.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* y0 (- (* y2 y5))))))
(if (<= y4 -4e+222)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y4 -2.1e+184)
t_1
(if (<= y4 -11200000.0)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= y4 -3.5e-17)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= y4 1.35e-78)
(* b (* y0 (- (* z k) (* x j))))
(if (<= y4 2.4e-39)
t_1
(if (<= y4 2.7e+47)
(* b (* j (- (* t y4) (* x y0))))
(* y1 (* y3 (* j (- y4)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y0 * -(y2 * y5));
double tmp;
if (y4 <= -4e+222) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -2.1e+184) {
tmp = t_1;
} else if (y4 <= -11200000.0) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (y4 <= -3.5e-17) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= 1.35e-78) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y4 <= 2.4e-39) {
tmp = t_1;
} else if (y4 <= 2.7e+47) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else {
tmp = y1 * (y3 * (j * -y4));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = k * (y0 * -(y2 * y5))
if (y4 <= (-4d+222)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y4 <= (-2.1d+184)) then
tmp = t_1
else if (y4 <= (-11200000.0d0)) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (y4 <= (-3.5d-17)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (y4 <= 1.35d-78) then
tmp = b * (y0 * ((z * k) - (x * j)))
else if (y4 <= 2.4d-39) then
tmp = t_1
else if (y4 <= 2.7d+47) then
tmp = b * (j * ((t * y4) - (x * y0)))
else
tmp = y1 * (y3 * (j * -y4))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y0 * -(y2 * y5));
double tmp;
if (y4 <= -4e+222) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -2.1e+184) {
tmp = t_1;
} else if (y4 <= -11200000.0) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (y4 <= -3.5e-17) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= 1.35e-78) {
tmp = b * (y0 * ((z * k) - (x * j)));
} else if (y4 <= 2.4e-39) {
tmp = t_1;
} else if (y4 <= 2.7e+47) {
tmp = b * (j * ((t * y4) - (x * y0)));
} else {
tmp = y1 * (y3 * (j * -y4));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = k * (y0 * -(y2 * y5)) tmp = 0 if y4 <= -4e+222: tmp = b * (y4 * ((t * j) - (y * k))) elif y4 <= -2.1e+184: tmp = t_1 elif y4 <= -11200000.0: tmp = a * (x * ((y * b) - (y1 * y2))) elif y4 <= -3.5e-17: tmp = c * (y0 * ((x * y2) - (z * y3))) elif y4 <= 1.35e-78: tmp = b * (y0 * ((z * k) - (x * j))) elif y4 <= 2.4e-39: tmp = t_1 elif y4 <= 2.7e+47: tmp = b * (j * ((t * y4) - (x * y0))) else: tmp = y1 * (y3 * (j * -y4)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(k * Float64(y0 * Float64(-Float64(y2 * y5)))) tmp = 0.0 if (y4 <= -4e+222) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y4 <= -2.1e+184) tmp = t_1; elseif (y4 <= -11200000.0) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (y4 <= -3.5e-17) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (y4 <= 1.35e-78) tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))); elseif (y4 <= 2.4e-39) tmp = t_1; elseif (y4 <= 2.7e+47) tmp = Float64(b * Float64(j * Float64(Float64(t * y4) - Float64(x * y0)))); else tmp = Float64(y1 * Float64(y3 * Float64(j * Float64(-y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = k * (y0 * -(y2 * y5)); tmp = 0.0; if (y4 <= -4e+222) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y4 <= -2.1e+184) tmp = t_1; elseif (y4 <= -11200000.0) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (y4 <= -3.5e-17) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (y4 <= 1.35e-78) tmp = b * (y0 * ((z * k) - (x * j))); elseif (y4 <= 2.4e-39) tmp = t_1; elseif (y4 <= 2.7e+47) tmp = b * (j * ((t * y4) - (x * y0))); else tmp = y1 * (y3 * (j * -y4)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(k * N[(y0 * (-N[(y2 * y5), $MachinePrecision])), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -4e+222], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.1e+184], t$95$1, If[LessEqual[y4, -11200000.0], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -3.5e-17], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.35e-78], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 2.4e-39], t$95$1, If[LessEqual[y4, 2.7e+47], N[(b * N[(j * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y1 * N[(y3 * N[(j * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y0 \cdot \left(-y2 \cdot y5\right)\right)\\
\mathbf{if}\;y4 \leq -4 \cdot 10^{+222}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y4 \leq -2.1 \cdot 10^{+184}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -11200000:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;y4 \leq -3.5 \cdot 10^{-17}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;y4 \leq 1.35 \cdot 10^{-78}:\\
\;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y4 \leq 2.4 \cdot 10^{-39}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 2.7 \cdot 10^{+47}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(j \cdot \left(-y4\right)\right)\right)\\
\end{array}
\end{array}
if y4 < -4.0000000000000002e222Initial program 0.0%
Taylor expanded in b around inf 55.8%
Taylor expanded in y4 around inf 56.0%
if -4.0000000000000002e222 < y4 < -2.1e184 or 1.34999999999999997e-78 < y4 < 2.40000000000000016e-39Initial program 38.5%
Taylor expanded in y0 around inf 38.6%
+-commutative38.6%
mul-1-neg38.6%
unsub-neg38.6%
*-commutative38.6%
*-commutative38.6%
*-commutative38.6%
*-commutative38.6%
Simplified38.6%
Taylor expanded in y5 around inf 43.3%
Taylor expanded in j around 0 47.3%
associate-*r*47.3%
neg-mul-147.3%
*-commutative47.3%
*-commutative47.3%
Simplified47.3%
if -2.1e184 < y4 < -1.12e7Initial program 20.2%
Taylor expanded in x around inf 60.8%
Taylor expanded in a around inf 41.7%
+-commutative41.7%
mul-1-neg41.7%
unsub-neg41.7%
Simplified41.7%
if -1.12e7 < y4 < -3.5000000000000002e-17Initial program 33.3%
Taylor expanded in y0 around inf 33.7%
+-commutative33.7%
mul-1-neg33.7%
unsub-neg33.7%
*-commutative33.7%
*-commutative33.7%
*-commutative33.7%
*-commutative33.7%
Simplified33.7%
Taylor expanded in c around inf 68.2%
*-commutative68.2%
Simplified68.2%
if -3.5000000000000002e-17 < y4 < 1.34999999999999997e-78Initial program 34.3%
Taylor expanded in b around inf 40.4%
Taylor expanded in y0 around inf 35.4%
if 2.40000000000000016e-39 < y4 < 2.69999999999999996e47Initial program 40.4%
Taylor expanded in b around inf 45.3%
Taylor expanded in j around inf 36.1%
if 2.69999999999999996e47 < y4 Initial program 17.3%
Taylor expanded in y3 around -inf 39.0%
Taylor expanded in y1 around inf 48.5%
+-commutative48.5%
mul-1-neg48.5%
unsub-neg48.5%
Simplified48.5%
Taylor expanded in j around inf 45.1%
Final simplification41.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* x (- (* y b) (* y1 y2))))))
(if (<= y0 -1.6e+104)
(* k (* y0 (- (* y2 y5))))
(if (<= y0 -8.5e+56)
(* j (* x (* i y1)))
(if (<= y0 -1.6e-148)
t_1
(if (<= y0 -1.95e-180)
(* i (* y1 (* x j)))
(if (<= y0 1.8e-190)
t_1
(if (<= y0 2.7e-102)
(* k (* y1 (* y2 y4)))
(if (<= y0 6.4e-8)
(* (- c) (* (* x i) y))
(* z (* b (* k y0))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (x * ((y * b) - (y1 * y2)));
double tmp;
if (y0 <= -1.6e+104) {
tmp = k * (y0 * -(y2 * y5));
} else if (y0 <= -8.5e+56) {
tmp = j * (x * (i * y1));
} else if (y0 <= -1.6e-148) {
tmp = t_1;
} else if (y0 <= -1.95e-180) {
tmp = i * (y1 * (x * j));
} else if (y0 <= 1.8e-190) {
tmp = t_1;
} else if (y0 <= 2.7e-102) {
tmp = k * (y1 * (y2 * y4));
} else if (y0 <= 6.4e-8) {
tmp = -c * ((x * i) * y);
} else {
tmp = z * (b * (k * y0));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = a * (x * ((y * b) - (y1 * y2)))
if (y0 <= (-1.6d+104)) then
tmp = k * (y0 * -(y2 * y5))
else if (y0 <= (-8.5d+56)) then
tmp = j * (x * (i * y1))
else if (y0 <= (-1.6d-148)) then
tmp = t_1
else if (y0 <= (-1.95d-180)) then
tmp = i * (y1 * (x * j))
else if (y0 <= 1.8d-190) then
tmp = t_1
else if (y0 <= 2.7d-102) then
tmp = k * (y1 * (y2 * y4))
else if (y0 <= 6.4d-8) then
tmp = -c * ((x * i) * y)
else
tmp = z * (b * (k * y0))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (x * ((y * b) - (y1 * y2)));
double tmp;
if (y0 <= -1.6e+104) {
tmp = k * (y0 * -(y2 * y5));
} else if (y0 <= -8.5e+56) {
tmp = j * (x * (i * y1));
} else if (y0 <= -1.6e-148) {
tmp = t_1;
} else if (y0 <= -1.95e-180) {
tmp = i * (y1 * (x * j));
} else if (y0 <= 1.8e-190) {
tmp = t_1;
} else if (y0 <= 2.7e-102) {
tmp = k * (y1 * (y2 * y4));
} else if (y0 <= 6.4e-8) {
tmp = -c * ((x * i) * y);
} else {
tmp = z * (b * (k * y0));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (x * ((y * b) - (y1 * y2))) tmp = 0 if y0 <= -1.6e+104: tmp = k * (y0 * -(y2 * y5)) elif y0 <= -8.5e+56: tmp = j * (x * (i * y1)) elif y0 <= -1.6e-148: tmp = t_1 elif y0 <= -1.95e-180: tmp = i * (y1 * (x * j)) elif y0 <= 1.8e-190: tmp = t_1 elif y0 <= 2.7e-102: tmp = k * (y1 * (y2 * y4)) elif y0 <= 6.4e-8: tmp = -c * ((x * i) * y) else: tmp = z * (b * (k * y0)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))) tmp = 0.0 if (y0 <= -1.6e+104) tmp = Float64(k * Float64(y0 * Float64(-Float64(y2 * y5)))); elseif (y0 <= -8.5e+56) tmp = Float64(j * Float64(x * Float64(i * y1))); elseif (y0 <= -1.6e-148) tmp = t_1; elseif (y0 <= -1.95e-180) tmp = Float64(i * Float64(y1 * Float64(x * j))); elseif (y0 <= 1.8e-190) tmp = t_1; elseif (y0 <= 2.7e-102) tmp = Float64(k * Float64(y1 * Float64(y2 * y4))); elseif (y0 <= 6.4e-8) tmp = Float64(Float64(-c) * Float64(Float64(x * i) * y)); else tmp = Float64(z * Float64(b * Float64(k * y0))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (x * ((y * b) - (y1 * y2))); tmp = 0.0; if (y0 <= -1.6e+104) tmp = k * (y0 * -(y2 * y5)); elseif (y0 <= -8.5e+56) tmp = j * (x * (i * y1)); elseif (y0 <= -1.6e-148) tmp = t_1; elseif (y0 <= -1.95e-180) tmp = i * (y1 * (x * j)); elseif (y0 <= 1.8e-190) tmp = t_1; elseif (y0 <= 2.7e-102) tmp = k * (y1 * (y2 * y4)); elseif (y0 <= 6.4e-8) tmp = -c * ((x * i) * y); else tmp = z * (b * (k * y0)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y0, -1.6e+104], N[(k * N[(y0 * (-N[(y2 * y5), $MachinePrecision])), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -8.5e+56], N[(j * N[(x * N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -1.6e-148], t$95$1, If[LessEqual[y0, -1.95e-180], N[(i * N[(y1 * N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 1.8e-190], t$95$1, If[LessEqual[y0, 2.7e-102], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 6.4e-8], N[((-c) * N[(N[(x * i), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision], N[(z * N[(b * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{if}\;y0 \leq -1.6 \cdot 10^{+104}:\\
\;\;\;\;k \cdot \left(y0 \cdot \left(-y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y0 \leq -8.5 \cdot 10^{+56}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1\right)\right)\\
\mathbf{elif}\;y0 \leq -1.6 \cdot 10^{-148}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y0 \leq -1.95 \cdot 10^{-180}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j\right)\right)\\
\mathbf{elif}\;y0 \leq 1.8 \cdot 10^{-190}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y0 \leq 2.7 \cdot 10^{-102}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{elif}\;y0 \leq 6.4 \cdot 10^{-8}:\\
\;\;\;\;\left(-c\right) \cdot \left(\left(x \cdot i\right) \cdot y\right)\\
\mathbf{else}:\\
\;\;\;\;z \cdot \left(b \cdot \left(k \cdot y0\right)\right)\\
\end{array}
\end{array}
if y0 < -1.6e104Initial program 34.2%
Taylor expanded in y0 around inf 60.3%
+-commutative60.3%
mul-1-neg60.3%
unsub-neg60.3%
*-commutative60.3%
*-commutative60.3%
*-commutative60.3%
*-commutative60.3%
Simplified60.3%
Taylor expanded in y5 around inf 45.5%
Taylor expanded in j around 0 43.0%
associate-*r*43.0%
neg-mul-143.0%
*-commutative43.0%
*-commutative43.0%
Simplified43.0%
if -1.6e104 < y0 < -8.4999999999999998e56Initial program 30.8%
Taylor expanded in x around inf 38.5%
Taylor expanded in j around inf 61.6%
Taylor expanded in i around inf 38.7%
if -8.4999999999999998e56 < y0 < -1.59999999999999997e-148 or -1.9500000000000001e-180 < y0 < 1.80000000000000003e-190Initial program 29.5%
Taylor expanded in x around inf 35.7%
Taylor expanded in a around inf 33.9%
+-commutative33.9%
mul-1-neg33.9%
unsub-neg33.9%
Simplified33.9%
if -1.59999999999999997e-148 < y0 < -1.9500000000000001e-180Initial program 24.8%
Taylor expanded in x around inf 50.6%
Taylor expanded in j around inf 63.1%
Taylor expanded in i around inf 51.2%
associate-*r*63.2%
*-commutative63.2%
Simplified63.2%
if 1.80000000000000003e-190 < y0 < 2.7e-102Initial program 9.4%
Taylor expanded in k around inf 37.0%
+-commutative37.0%
mul-1-neg37.0%
unsub-neg37.0%
*-commutative37.0%
associate-*r*37.0%
neg-mul-137.0%
Simplified37.0%
Taylor expanded in y1 around inf 42.2%
Taylor expanded in y2 around inf 37.5%
if 2.7e-102 < y0 < 6.4000000000000004e-8Initial program 49.9%
Taylor expanded in y around inf 34.1%
+-commutative34.1%
mul-1-neg34.1%
unsub-neg34.1%
*-commutative34.1%
*-commutative34.1%
mul-1-neg34.1%
Simplified34.1%
Taylor expanded in y3 around 0 39.4%
Taylor expanded in c around inf 24.7%
mul-1-neg24.7%
distribute-rgt-neg-in24.7%
associate-*r*30.1%
distribute-lft-neg-in30.1%
*-commutative30.1%
distribute-rgt-neg-in30.1%
Simplified30.1%
if 6.4000000000000004e-8 < y0 Initial program 22.4%
Taylor expanded in y0 around inf 47.8%
+-commutative47.8%
mul-1-neg47.8%
unsub-neg47.8%
*-commutative47.8%
*-commutative47.8%
*-commutative47.8%
*-commutative47.8%
Simplified47.8%
Taylor expanded in k around -inf 43.8%
associate-*r*38.3%
+-commutative38.3%
mul-1-neg38.3%
unsub-neg38.3%
*-commutative38.3%
Simplified38.3%
Taylor expanded in z around inf 35.2%
pow135.2%
Applied egg-rr35.2%
unpow135.2%
associate-*r*37.9%
associate-*r*41.9%
Simplified41.9%
Final simplification38.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* x (* y b)))) (t_2 (* a (* t (* y2 y5)))))
(if (<= b -1.66e+72)
t_1
(if (<= b 2.8e-170)
t_2
(if (<= b 7.8e+195)
(* b (* k (* z y0)))
(if (or (<= b 3.3e+226) (not (<= b 4.55e+226))) 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (x * (y * b));
double t_2 = a * (t * (y2 * y5));
double tmp;
if (b <= -1.66e+72) {
tmp = t_1;
} else if (b <= 2.8e-170) {
tmp = t_2;
} else if (b <= 7.8e+195) {
tmp = b * (k * (z * y0));
} else if ((b <= 3.3e+226) || !(b <= 4.55e+226)) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = a * (x * (y * b))
t_2 = a * (t * (y2 * y5))
if (b <= (-1.66d+72)) then
tmp = t_1
else if (b <= 2.8d-170) then
tmp = t_2
else if (b <= 7.8d+195) then
tmp = b * (k * (z * y0))
else if ((b <= 3.3d+226) .or. (.not. (b <= 4.55d+226))) 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (x * (y * b));
double t_2 = a * (t * (y2 * y5));
double tmp;
if (b <= -1.66e+72) {
tmp = t_1;
} else if (b <= 2.8e-170) {
tmp = t_2;
} else if (b <= 7.8e+195) {
tmp = b * (k * (z * y0));
} else if ((b <= 3.3e+226) || !(b <= 4.55e+226)) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (x * (y * b)) t_2 = a * (t * (y2 * y5)) tmp = 0 if b <= -1.66e+72: tmp = t_1 elif b <= 2.8e-170: tmp = t_2 elif b <= 7.8e+195: tmp = b * (k * (z * y0)) elif (b <= 3.3e+226) or not (b <= 4.55e+226): tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(x * Float64(y * b))) t_2 = Float64(a * Float64(t * Float64(y2 * y5))) tmp = 0.0 if (b <= -1.66e+72) tmp = t_1; elseif (b <= 2.8e-170) tmp = t_2; elseif (b <= 7.8e+195) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif ((b <= 3.3e+226) || !(b <= 4.55e+226)) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (x * (y * b)); t_2 = a * (t * (y2 * y5)); tmp = 0.0; if (b <= -1.66e+72) tmp = t_1; elseif (b <= 2.8e-170) tmp = t_2; elseif (b <= 7.8e+195) tmp = b * (k * (z * y0)); elseif ((b <= 3.3e+226) || ~((b <= 4.55e+226))) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -1.66e+72], t$95$1, If[LessEqual[b, 2.8e-170], t$95$2, If[LessEqual[b, 7.8e+195], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[b, 3.3e+226], N[Not[LessEqual[b, 4.55e+226]], $MachinePrecision]], t$95$1, t$95$2]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
t_2 := a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{if}\;b \leq -1.66 \cdot 10^{+72}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;b \leq 2.8 \cdot 10^{-170}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;b \leq 7.8 \cdot 10^{+195}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq 3.3 \cdot 10^{+226} \lor \neg \left(b \leq 4.55 \cdot 10^{+226}\right):\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if b < -1.6599999999999999e72 or 7.7999999999999995e195 < b < 3.29999999999999978e226 or 4.5499999999999999e226 < b Initial program 25.0%
Taylor expanded in x around inf 40.6%
Taylor expanded in a around inf 41.3%
+-commutative41.3%
mul-1-neg41.3%
unsub-neg41.3%
Simplified41.3%
Taylor expanded in b around inf 39.8%
if -1.6599999999999999e72 < b < 2.79999999999999995e-170 or 3.29999999999999978e226 < b < 4.5499999999999999e226Initial program 26.4%
Taylor expanded in y2 around inf 45.7%
Taylor expanded in t around inf 26.9%
Taylor expanded in a around inf 19.0%
*-commutative19.0%
Simplified19.0%
if 2.79999999999999995e-170 < b < 7.7999999999999995e195Initial program 33.2%
Taylor expanded in y0 around inf 37.8%
+-commutative37.8%
mul-1-neg37.8%
unsub-neg37.8%
*-commutative37.8%
*-commutative37.8%
*-commutative37.8%
*-commutative37.8%
Simplified37.8%
Taylor expanded in k around -inf 29.9%
associate-*r*28.6%
+-commutative28.6%
mul-1-neg28.6%
unsub-neg28.6%
*-commutative28.6%
Simplified28.6%
Taylor expanded in z around inf 27.2%
Final simplification26.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* i (* j (* x y1)))))
(if (<= i -7.9e+180)
t_1
(if (<= i -4.2e+131)
(* a (* t (* y2 y5)))
(if (<= i -2.3e-147)
(* b (* k (* z y0)))
(if (<= i -1.35e-271)
(* a (* (* x y) b))
(if (<= i 9e+87) (* b (* z (* k y0))) t_1)))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * (j * (x * y1));
double tmp;
if (i <= -7.9e+180) {
tmp = t_1;
} else if (i <= -4.2e+131) {
tmp = a * (t * (y2 * y5));
} else if (i <= -2.3e-147) {
tmp = b * (k * (z * y0));
} else if (i <= -1.35e-271) {
tmp = a * ((x * y) * b);
} else if (i <= 9e+87) {
tmp = b * (z * (k * y0));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = i * (j * (x * y1))
if (i <= (-7.9d+180)) then
tmp = t_1
else if (i <= (-4.2d+131)) then
tmp = a * (t * (y2 * y5))
else if (i <= (-2.3d-147)) then
tmp = b * (k * (z * y0))
else if (i <= (-1.35d-271)) then
tmp = a * ((x * y) * b)
else if (i <= 9d+87) then
tmp = b * (z * (k * y0))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * (j * (x * y1));
double tmp;
if (i <= -7.9e+180) {
tmp = t_1;
} else if (i <= -4.2e+131) {
tmp = a * (t * (y2 * y5));
} else if (i <= -2.3e-147) {
tmp = b * (k * (z * y0));
} else if (i <= -1.35e-271) {
tmp = a * ((x * y) * b);
} else if (i <= 9e+87) {
tmp = b * (z * (k * y0));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = i * (j * (x * y1)) tmp = 0 if i <= -7.9e+180: tmp = t_1 elif i <= -4.2e+131: tmp = a * (t * (y2 * y5)) elif i <= -2.3e-147: tmp = b * (k * (z * y0)) elif i <= -1.35e-271: tmp = a * ((x * y) * b) elif i <= 9e+87: tmp = b * (z * (k * y0)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(i * Float64(j * Float64(x * y1))) tmp = 0.0 if (i <= -7.9e+180) tmp = t_1; elseif (i <= -4.2e+131) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (i <= -2.3e-147) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (i <= -1.35e-271) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (i <= 9e+87) tmp = Float64(b * Float64(z * Float64(k * y0))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = i * (j * (x * y1)); tmp = 0.0; if (i <= -7.9e+180) tmp = t_1; elseif (i <= -4.2e+131) tmp = a * (t * (y2 * y5)); elseif (i <= -2.3e-147) tmp = b * (k * (z * y0)); elseif (i <= -1.35e-271) tmp = a * ((x * y) * b); elseif (i <= 9e+87) tmp = b * (z * (k * y0)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(i * N[(j * N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, -7.9e+180], t$95$1, If[LessEqual[i, -4.2e+131], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -2.3e-147], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -1.35e-271], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 9e+87], N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(j \cdot \left(x \cdot y1\right)\right)\\
\mathbf{if}\;i \leq -7.9 \cdot 10^{+180}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;i \leq -4.2 \cdot 10^{+131}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;i \leq -2.3 \cdot 10^{-147}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;i \leq -1.35 \cdot 10^{-271}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;i \leq 9 \cdot 10^{+87}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if i < -7.90000000000000012e180 or 9.0000000000000005e87 < i Initial program 24.3%
Taylor expanded in x around inf 48.9%
Taylor expanded in j around inf 49.5%
Taylor expanded in i around inf 33.1%
if -7.90000000000000012e180 < i < -4.19999999999999971e131Initial program 16.7%
Taylor expanded in y2 around inf 28.4%
Taylor expanded in t around inf 18.6%
Taylor expanded in a around inf 28.7%
*-commutative28.7%
Simplified28.7%
if -4.19999999999999971e131 < i < -2.2999999999999999e-147Initial program 38.8%
Taylor expanded in y0 around inf 41.1%
+-commutative41.1%
mul-1-neg41.1%
unsub-neg41.1%
*-commutative41.1%
*-commutative41.1%
*-commutative41.1%
*-commutative41.1%
Simplified41.1%
Taylor expanded in k around -inf 28.9%
associate-*r*26.9%
+-commutative26.9%
mul-1-neg26.9%
unsub-neg26.9%
*-commutative26.9%
Simplified26.9%
Taylor expanded in z around inf 24.6%
if -2.2999999999999999e-147 < i < -1.3499999999999999e-271Initial program 29.8%
Taylor expanded in x around inf 41.3%
Taylor expanded in a around inf 36.5%
+-commutative36.5%
mul-1-neg36.5%
unsub-neg36.5%
Simplified36.5%
Taylor expanded in b around inf 31.4%
if -1.3499999999999999e-271 < i < 9.0000000000000005e87Initial program 27.4%
Taylor expanded in y0 around inf 46.1%
+-commutative46.1%
mul-1-neg46.1%
unsub-neg46.1%
*-commutative46.1%
*-commutative46.1%
*-commutative46.1%
*-commutative46.1%
Simplified46.1%
Taylor expanded in k around -inf 38.7%
associate-*r*36.4%
+-commutative36.4%
mul-1-neg36.4%
unsub-neg36.4%
*-commutative36.4%
Simplified36.4%
Taylor expanded in z around inf 26.4%
associate-*r*28.6%
*-commutative28.6%
Simplified28.6%
Final simplification29.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* t (* y2 y5)))))
(if (<= y4 -2.6e+22)
(* a (* x (* y b)))
(if (<= y4 -2.65e-260)
(* b (* k (* z y0)))
(if (<= y4 3.3e-80)
t_1
(if (<= y4 2.5e-59)
(* b (* (* x y) a))
(if (<= y4 1.32e-37) t_1 (* b (* y4 (* t j))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (t * (y2 * y5));
double tmp;
if (y4 <= -2.6e+22) {
tmp = a * (x * (y * b));
} else if (y4 <= -2.65e-260) {
tmp = b * (k * (z * y0));
} else if (y4 <= 3.3e-80) {
tmp = t_1;
} else if (y4 <= 2.5e-59) {
tmp = b * ((x * y) * a);
} else if (y4 <= 1.32e-37) {
tmp = t_1;
} else {
tmp = b * (y4 * (t * j));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = a * (t * (y2 * y5))
if (y4 <= (-2.6d+22)) then
tmp = a * (x * (y * b))
else if (y4 <= (-2.65d-260)) then
tmp = b * (k * (z * y0))
else if (y4 <= 3.3d-80) then
tmp = t_1
else if (y4 <= 2.5d-59) then
tmp = b * ((x * y) * a)
else if (y4 <= 1.32d-37) then
tmp = t_1
else
tmp = b * (y4 * (t * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (t * (y2 * y5));
double tmp;
if (y4 <= -2.6e+22) {
tmp = a * (x * (y * b));
} else if (y4 <= -2.65e-260) {
tmp = b * (k * (z * y0));
} else if (y4 <= 3.3e-80) {
tmp = t_1;
} else if (y4 <= 2.5e-59) {
tmp = b * ((x * y) * a);
} else if (y4 <= 1.32e-37) {
tmp = t_1;
} else {
tmp = b * (y4 * (t * j));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (t * (y2 * y5)) tmp = 0 if y4 <= -2.6e+22: tmp = a * (x * (y * b)) elif y4 <= -2.65e-260: tmp = b * (k * (z * y0)) elif y4 <= 3.3e-80: tmp = t_1 elif y4 <= 2.5e-59: tmp = b * ((x * y) * a) elif y4 <= 1.32e-37: tmp = t_1 else: tmp = b * (y4 * (t * j)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(t * Float64(y2 * y5))) tmp = 0.0 if (y4 <= -2.6e+22) tmp = Float64(a * Float64(x * Float64(y * b))); elseif (y4 <= -2.65e-260) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (y4 <= 3.3e-80) tmp = t_1; elseif (y4 <= 2.5e-59) tmp = Float64(b * Float64(Float64(x * y) * a)); elseif (y4 <= 1.32e-37) tmp = t_1; else tmp = Float64(b * Float64(y4 * Float64(t * j))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (t * (y2 * y5)); tmp = 0.0; if (y4 <= -2.6e+22) tmp = a * (x * (y * b)); elseif (y4 <= -2.65e-260) tmp = b * (k * (z * y0)); elseif (y4 <= 3.3e-80) tmp = t_1; elseif (y4 <= 2.5e-59) tmp = b * ((x * y) * a); elseif (y4 <= 1.32e-37) tmp = t_1; else tmp = b * (y4 * (t * j)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -2.6e+22], N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.65e-260], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 3.3e-80], t$95$1, If[LessEqual[y4, 2.5e-59], N[(b * N[(N[(x * y), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.32e-37], t$95$1, N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{if}\;y4 \leq -2.6 \cdot 10^{+22}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
\mathbf{elif}\;y4 \leq -2.65 \cdot 10^{-260}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;y4 \leq 3.3 \cdot 10^{-80}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 2.5 \cdot 10^{-59}:\\
\;\;\;\;b \cdot \left(\left(x \cdot y\right) \cdot a\right)\\
\mathbf{elif}\;y4 \leq 1.32 \cdot 10^{-37}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\end{array}
\end{array}
if y4 < -2.6e22Initial program 16.1%
Taylor expanded in x around inf 43.1%
Taylor expanded in a around inf 37.2%
+-commutative37.2%
mul-1-neg37.2%
unsub-neg37.2%
Simplified37.2%
Taylor expanded in b around inf 27.0%
if -2.6e22 < y4 < -2.65e-260Initial program 30.5%
Taylor expanded in y0 around inf 38.2%
+-commutative38.2%
mul-1-neg38.2%
unsub-neg38.2%
*-commutative38.2%
*-commutative38.2%
*-commutative38.2%
*-commutative38.2%
Simplified38.2%
Taylor expanded in k around -inf 35.7%
associate-*r*34.3%
+-commutative34.3%
mul-1-neg34.3%
unsub-neg34.3%
*-commutative34.3%
Simplified34.3%
Taylor expanded in z around inf 28.8%
if -2.65e-260 < y4 < 3.3e-80 or 2.5000000000000001e-59 < y4 < 1.3200000000000001e-37Initial program 32.7%
Taylor expanded in y2 around inf 45.0%
Taylor expanded in t around inf 37.1%
Taylor expanded in a around inf 29.3%
*-commutative29.3%
Simplified29.3%
if 3.3e-80 < y4 < 2.5000000000000001e-59Initial program 85.7%
Taylor expanded in y around inf 29.3%
+-commutative29.3%
mul-1-neg29.3%
unsub-neg29.3%
*-commutative29.3%
*-commutative29.3%
mul-1-neg29.3%
Simplified29.3%
Taylor expanded in y3 around 0 29.5%
Taylor expanded in a around inf 15.7%
*-commutative15.7%
*-commutative15.7%
associate-*l*15.7%
Simplified15.7%
if 1.3200000000000001e-37 < y4 Initial program 24.0%
Taylor expanded in b around inf 44.2%
Taylor expanded in y4 around inf 37.2%
Taylor expanded in j around inf 23.7%
Final simplification26.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* t (* y2 y5)))))
(if (<= y4 -1.06e+19)
(* a (* x (* y b)))
(if (<= y4 -2.8e-269)
(* b (* k (* z y0)))
(if (<= y4 1.05e-76)
t_1
(if (<= y4 1.48e-58)
(* a (* (* x y) b))
(if (<= y4 1.32e-37) t_1 (* b (* y4 (* t j))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (t * (y2 * y5));
double tmp;
if (y4 <= -1.06e+19) {
tmp = a * (x * (y * b));
} else if (y4 <= -2.8e-269) {
tmp = b * (k * (z * y0));
} else if (y4 <= 1.05e-76) {
tmp = t_1;
} else if (y4 <= 1.48e-58) {
tmp = a * ((x * y) * b);
} else if (y4 <= 1.32e-37) {
tmp = t_1;
} else {
tmp = b * (y4 * (t * j));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = a * (t * (y2 * y5))
if (y4 <= (-1.06d+19)) then
tmp = a * (x * (y * b))
else if (y4 <= (-2.8d-269)) then
tmp = b * (k * (z * y0))
else if (y4 <= 1.05d-76) then
tmp = t_1
else if (y4 <= 1.48d-58) then
tmp = a * ((x * y) * b)
else if (y4 <= 1.32d-37) then
tmp = t_1
else
tmp = b * (y4 * (t * 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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (t * (y2 * y5));
double tmp;
if (y4 <= -1.06e+19) {
tmp = a * (x * (y * b));
} else if (y4 <= -2.8e-269) {
tmp = b * (k * (z * y0));
} else if (y4 <= 1.05e-76) {
tmp = t_1;
} else if (y4 <= 1.48e-58) {
tmp = a * ((x * y) * b);
} else if (y4 <= 1.32e-37) {
tmp = t_1;
} else {
tmp = b * (y4 * (t * j));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (t * (y2 * y5)) tmp = 0 if y4 <= -1.06e+19: tmp = a * (x * (y * b)) elif y4 <= -2.8e-269: tmp = b * (k * (z * y0)) elif y4 <= 1.05e-76: tmp = t_1 elif y4 <= 1.48e-58: tmp = a * ((x * y) * b) elif y4 <= 1.32e-37: tmp = t_1 else: tmp = b * (y4 * (t * j)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(t * Float64(y2 * y5))) tmp = 0.0 if (y4 <= -1.06e+19) tmp = Float64(a * Float64(x * Float64(y * b))); elseif (y4 <= -2.8e-269) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (y4 <= 1.05e-76) tmp = t_1; elseif (y4 <= 1.48e-58) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (y4 <= 1.32e-37) tmp = t_1; else tmp = Float64(b * Float64(y4 * Float64(t * j))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (t * (y2 * y5)); tmp = 0.0; if (y4 <= -1.06e+19) tmp = a * (x * (y * b)); elseif (y4 <= -2.8e-269) tmp = b * (k * (z * y0)); elseif (y4 <= 1.05e-76) tmp = t_1; elseif (y4 <= 1.48e-58) tmp = a * ((x * y) * b); elseif (y4 <= 1.32e-37) tmp = t_1; else tmp = b * (y4 * (t * j)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -1.06e+19], N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.8e-269], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.05e-76], t$95$1, If[LessEqual[y4, 1.48e-58], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.32e-37], t$95$1, N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{if}\;y4 \leq -1.06 \cdot 10^{+19}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b\right)\right)\\
\mathbf{elif}\;y4 \leq -2.8 \cdot 10^{-269}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;y4 \leq 1.05 \cdot 10^{-76}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 1.48 \cdot 10^{-58}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;y4 \leq 1.32 \cdot 10^{-37}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\end{array}
\end{array}
if y4 < -1.06e19Initial program 16.1%
Taylor expanded in x around inf 43.1%
Taylor expanded in a around inf 37.2%
+-commutative37.2%
mul-1-neg37.2%
unsub-neg37.2%
Simplified37.2%
Taylor expanded in b around inf 27.0%
if -1.06e19 < y4 < -2.79999999999999995e-269Initial program 30.5%
Taylor expanded in y0 around inf 38.2%
+-commutative38.2%
mul-1-neg38.2%
unsub-neg38.2%
*-commutative38.2%
*-commutative38.2%
*-commutative38.2%
*-commutative38.2%
Simplified38.2%
Taylor expanded in k around -inf 35.7%
associate-*r*34.3%
+-commutative34.3%
mul-1-neg34.3%
unsub-neg34.3%
*-commutative34.3%
Simplified34.3%
Taylor expanded in z around inf 28.8%
if -2.79999999999999995e-269 < y4 < 1.04999999999999996e-76 or 1.48e-58 < y4 < 1.3200000000000001e-37Initial program 32.7%
Taylor expanded in y2 around inf 45.0%
Taylor expanded in t around inf 37.1%
Taylor expanded in a around inf 29.3%
*-commutative29.3%
Simplified29.3%
if 1.04999999999999996e-76 < y4 < 1.48e-58Initial program 85.7%
Taylor expanded in x around inf 29.4%
Taylor expanded in a around inf 29.7%
+-commutative29.7%
mul-1-neg29.7%
unsub-neg29.7%
Simplified29.7%
Taylor expanded in b around inf 15.7%
if 1.3200000000000001e-37 < y4 Initial program 24.0%
Taylor expanded in b around inf 44.2%
Taylor expanded in y4 around inf 37.2%
Taylor expanded in j around inf 23.7%
Final simplification26.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* t (* y2 y5)))))
(if (<= i -2e+99)
t_1
(if (<= i -3.8e-148)
(* b (* k (* z y0)))
(if (<= i -1.2e-275)
(* a (* (* x y) b))
(if (<= i 9.2e+58) (* b (* z (* k y0))) t_1))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (t * (y2 * y5));
double tmp;
if (i <= -2e+99) {
tmp = t_1;
} else if (i <= -3.8e-148) {
tmp = b * (k * (z * y0));
} else if (i <= -1.2e-275) {
tmp = a * ((x * y) * b);
} else if (i <= 9.2e+58) {
tmp = b * (z * (k * y0));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = a * (t * (y2 * y5))
if (i <= (-2d+99)) then
tmp = t_1
else if (i <= (-3.8d-148)) then
tmp = b * (k * (z * y0))
else if (i <= (-1.2d-275)) then
tmp = a * ((x * y) * b)
else if (i <= 9.2d+58) then
tmp = b * (z * (k * y0))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (t * (y2 * y5));
double tmp;
if (i <= -2e+99) {
tmp = t_1;
} else if (i <= -3.8e-148) {
tmp = b * (k * (z * y0));
} else if (i <= -1.2e-275) {
tmp = a * ((x * y) * b);
} else if (i <= 9.2e+58) {
tmp = b * (z * (k * y0));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (t * (y2 * y5)) tmp = 0 if i <= -2e+99: tmp = t_1 elif i <= -3.8e-148: tmp = b * (k * (z * y0)) elif i <= -1.2e-275: tmp = a * ((x * y) * b) elif i <= 9.2e+58: tmp = b * (z * (k * y0)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(t * Float64(y2 * y5))) tmp = 0.0 if (i <= -2e+99) tmp = t_1; elseif (i <= -3.8e-148) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (i <= -1.2e-275) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (i <= 9.2e+58) tmp = Float64(b * Float64(z * Float64(k * y0))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (t * (y2 * y5)); tmp = 0.0; if (i <= -2e+99) tmp = t_1; elseif (i <= -3.8e-148) tmp = b * (k * (z * y0)); elseif (i <= -1.2e-275) tmp = a * ((x * y) * b); elseif (i <= 9.2e+58) tmp = b * (z * (k * y0)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, -2e+99], t$95$1, If[LessEqual[i, -3.8e-148], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -1.2e-275], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 9.2e+58], N[(b * N[(z * N[(k * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{if}\;i \leq -2 \cdot 10^{+99}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;i \leq -3.8 \cdot 10^{-148}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;i \leq -1.2 \cdot 10^{-275}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;i \leq 9.2 \cdot 10^{+58}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if i < -1.9999999999999999e99 or 9.2000000000000001e58 < i Initial program 22.1%
Taylor expanded in y2 around inf 36.4%
Taylor expanded in t around inf 28.6%
Taylor expanded in a around inf 23.2%
*-commutative23.2%
Simplified23.2%
if -1.9999999999999999e99 < i < -3.80000000000000014e-148Initial program 41.4%
Taylor expanded in y0 around inf 43.9%
+-commutative43.9%
mul-1-neg43.9%
unsub-neg43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
*-commutative43.9%
Simplified43.9%
Taylor expanded in k around -inf 28.6%
associate-*r*26.5%
+-commutative26.5%
mul-1-neg26.5%
unsub-neg26.5%
*-commutative26.5%
Simplified26.5%
Taylor expanded in z around inf 26.2%
if -3.80000000000000014e-148 < i < -1.19999999999999995e-275Initial program 29.8%
Taylor expanded in x around inf 41.3%
Taylor expanded in a around inf 36.5%
+-commutative36.5%
mul-1-neg36.5%
unsub-neg36.5%
Simplified36.5%
Taylor expanded in b around inf 31.4%
if -1.19999999999999995e-275 < i < 9.2000000000000001e58Initial program 28.0%
Taylor expanded in y0 around inf 47.0%
+-commutative47.0%
mul-1-neg47.0%
unsub-neg47.0%
*-commutative47.0%
*-commutative47.0%
*-commutative47.0%
*-commutative47.0%
Simplified47.0%
Taylor expanded in k around -inf 40.1%
associate-*r*37.7%
+-commutative37.7%
mul-1-neg37.7%
unsub-neg37.7%
*-commutative37.7%
Simplified37.7%
Taylor expanded in z around inf 26.9%
associate-*r*29.3%
*-commutative29.3%
Simplified29.3%
Final simplification26.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (* a (* t (* y2 y5))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
return a * (t * (y2 * y5));
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
code = a * (t * (y2 * y5))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
return a * (t * (y2 * y5));
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): return a * (t * (y2 * y5))
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) return Float64(a * Float64(t * Float64(y2 * y5))) end
function tmp = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = a * (t * (y2 * y5)); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)
\end{array}
Initial program 27.9%
Taylor expanded in y2 around inf 40.9%
Taylor expanded in t around inf 29.2%
Taylor expanded in a around inf 19.3%
*-commutative19.3%
Simplified19.3%
Final simplification19.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (* a (* x (* y b))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
return a * (x * (y * b));
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
code = a * (x * (y * b))
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
return a * (x * (y * b));
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): return a * (x * (y * b))
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) return Float64(a * Float64(x * Float64(y * b))) end
function tmp = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = a * (x * (y * b)); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := N[(a * N[(x * N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(x \cdot \left(y \cdot b\right)\right)
\end{array}
Initial program 27.9%
Taylor expanded in x around inf 38.7%
Taylor expanded in a around inf 26.6%
+-commutative26.6%
mul-1-neg26.6%
unsub-neg26.6%
Simplified26.6%
Taylor expanded in b around inf 17.8%
Final simplification17.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (* a (* (* x y) b)))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
return a * ((x * y) * b);
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
code = a * ((x * y) * b)
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
return a * ((x * y) * b);
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): return a * ((x * y) * b)
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) return Float64(a * Float64(Float64(x * y) * b)) end
function tmp = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = a * ((x * y) * b); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(\left(x \cdot y\right) \cdot b\right)
\end{array}
Initial program 27.9%
Taylor expanded in x around inf 38.7%
Taylor expanded in a around inf 26.6%
+-commutative26.6%
mul-1-neg26.6%
unsub-neg26.6%
Simplified26.6%
Taylor expanded in b around inf 16.2%
Final simplification16.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* y4 c) (* y5 a)))
(t_2 (- (* x y2) (* z y3)))
(t_3 (- (* y2 t) (* y3 y)))
(t_4 (- (* k y2) (* j y3)))
(t_5 (- (* y4 b) (* y5 i)))
(t_6 (* (- (* j t) (* k y)) t_5))
(t_7 (- (* b a) (* i c)))
(t_8 (* t_7 (- (* y x) (* t z))))
(t_9 (- (* j x) (* k z)))
(t_10 (* (- (* b y0) (* i y1)) t_9))
(t_11 (* t_9 (- (* y0 b) (* i y1))))
(t_12 (- (* y4 y1) (* y5 y0)))
(t_13 (* t_4 t_12))
(t_14 (* (- (* y2 k) (* y3 j)) t_12))
(t_15
(+
(-
(-
(- (* (* k y) (* y5 i)) (* (* y b) (* y4 k)))
(* (* y5 t) (* i j)))
(- (* t_3 t_1) t_14))
(- t_8 (- t_11 (* (- (* y2 x) (* y3 z)) (- (* c y0) (* y1 a)))))))
(t_16
(+
(+
(- t_6 (* (* y3 y) (- (* y5 a) (* y4 c))))
(+ (* (* y5 a) (* t y2)) t_13))
(-
(* t_2 (- (* c y0) (* a y1)))
(- t_10 (* (- (* y x) (* z t)) t_7)))))
(t_17 (- (* t y2) (* y y3))))
(if (< y4 -7.206256231996481e+60)
(- (- t_8 (- t_11 t_6)) (- (/ t_3 (/ 1.0 t_1)) t_14))
(if (< y4 -3.364603505246317e-66)
(+
(-
(- (- (* (* t c) (* i z)) (* (* a t) (* b z))) (* (* y c) (* i x)))
t_10)
(-
(* (- (* y0 c) (* a y1)) t_2)
(- (* t_17 (- (* y4 c) (* a y5))) (* (- (* y1 y4) (* y5 y0)) t_4))))
(if (< y4 -1.2000065055686116e-105)
t_16
(if (< y4 6.718963124057495e-279)
t_15
(if (< y4 4.77962681403792e-222)
t_16
(if (< y4 2.2852241541266835e-175)
t_15
(+
(-
(+
(+
(-
(* (- (* x y) (* z t)) (- (* a b) (* c i)))
(-
(* k (* i (* z y1)))
(+ (* j (* i (* x y1))) (* y0 (* k (* z b))))))
(-
(* z (* y3 (* a y1)))
(+ (* y2 (* x (* a y1))) (* y0 (* z (* c y3))))))
(* (- (* t j) (* y k)) t_5))
(* t_17 t_1))
t_13)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y4 * c) - (y5 * a);
double t_2 = (x * y2) - (z * y3);
double t_3 = (y2 * t) - (y3 * y);
double t_4 = (k * y2) - (j * y3);
double t_5 = (y4 * b) - (y5 * i);
double t_6 = ((j * t) - (k * y)) * t_5;
double t_7 = (b * a) - (i * c);
double t_8 = t_7 * ((y * x) - (t * z));
double t_9 = (j * x) - (k * z);
double t_10 = ((b * y0) - (i * y1)) * t_9;
double t_11 = t_9 * ((y0 * b) - (i * y1));
double t_12 = (y4 * y1) - (y5 * y0);
double t_13 = t_4 * t_12;
double t_14 = ((y2 * k) - (y3 * j)) * t_12;
double t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a)))));
double t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7)));
double t_17 = (t * y2) - (y * y3);
double tmp;
if (y4 < -7.206256231996481e+60) {
tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0 / t_1)) - t_14);
} else if (y4 < -3.364603505246317e-66) {
tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4)));
} else if (y4 < -1.2000065055686116e-105) {
tmp = t_16;
} else if (y4 < 6.718963124057495e-279) {
tmp = t_15;
} else if (y4 < 4.77962681403792e-222) {
tmp = t_16;
} else if (y4 < 2.2852241541266835e-175) {
tmp = t_15;
} else {
tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
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), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_10
real(8) :: t_11
real(8) :: t_12
real(8) :: t_13
real(8) :: t_14
real(8) :: t_15
real(8) :: t_16
real(8) :: t_17
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_1 = (y4 * c) - (y5 * a)
t_2 = (x * y2) - (z * y3)
t_3 = (y2 * t) - (y3 * y)
t_4 = (k * y2) - (j * y3)
t_5 = (y4 * b) - (y5 * i)
t_6 = ((j * t) - (k * y)) * t_5
t_7 = (b * a) - (i * c)
t_8 = t_7 * ((y * x) - (t * z))
t_9 = (j * x) - (k * z)
t_10 = ((b * y0) - (i * y1)) * t_9
t_11 = t_9 * ((y0 * b) - (i * y1))
t_12 = (y4 * y1) - (y5 * y0)
t_13 = t_4 * t_12
t_14 = ((y2 * k) - (y3 * j)) * t_12
t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a)))))
t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7)))
t_17 = (t * y2) - (y * y3)
if (y4 < (-7.206256231996481d+60)) then
tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0d0 / t_1)) - t_14)
else if (y4 < (-3.364603505246317d-66)) then
tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4)))
else if (y4 < (-1.2000065055686116d-105)) then
tmp = t_16
else if (y4 < 6.718963124057495d-279) then
tmp = t_15
else if (y4 < 4.77962681403792d-222) then
tmp = t_16
else if (y4 < 2.2852241541266835d-175) then
tmp = t_15
else
tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13
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 k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y4 * c) - (y5 * a);
double t_2 = (x * y2) - (z * y3);
double t_3 = (y2 * t) - (y3 * y);
double t_4 = (k * y2) - (j * y3);
double t_5 = (y4 * b) - (y5 * i);
double t_6 = ((j * t) - (k * y)) * t_5;
double t_7 = (b * a) - (i * c);
double t_8 = t_7 * ((y * x) - (t * z));
double t_9 = (j * x) - (k * z);
double t_10 = ((b * y0) - (i * y1)) * t_9;
double t_11 = t_9 * ((y0 * b) - (i * y1));
double t_12 = (y4 * y1) - (y5 * y0);
double t_13 = t_4 * t_12;
double t_14 = ((y2 * k) - (y3 * j)) * t_12;
double t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a)))));
double t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7)));
double t_17 = (t * y2) - (y * y3);
double tmp;
if (y4 < -7.206256231996481e+60) {
tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0 / t_1)) - t_14);
} else if (y4 < -3.364603505246317e-66) {
tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4)));
} else if (y4 < -1.2000065055686116e-105) {
tmp = t_16;
} else if (y4 < 6.718963124057495e-279) {
tmp = t_15;
} else if (y4 < 4.77962681403792e-222) {
tmp = t_16;
} else if (y4 < 2.2852241541266835e-175) {
tmp = t_15;
} else {
tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (y4 * c) - (y5 * a) t_2 = (x * y2) - (z * y3) t_3 = (y2 * t) - (y3 * y) t_4 = (k * y2) - (j * y3) t_5 = (y4 * b) - (y5 * i) t_6 = ((j * t) - (k * y)) * t_5 t_7 = (b * a) - (i * c) t_8 = t_7 * ((y * x) - (t * z)) t_9 = (j * x) - (k * z) t_10 = ((b * y0) - (i * y1)) * t_9 t_11 = t_9 * ((y0 * b) - (i * y1)) t_12 = (y4 * y1) - (y5 * y0) t_13 = t_4 * t_12 t_14 = ((y2 * k) - (y3 * j)) * t_12 t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a))))) t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7))) t_17 = (t * y2) - (y * y3) tmp = 0 if y4 < -7.206256231996481e+60: tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0 / t_1)) - t_14) elif y4 < -3.364603505246317e-66: tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4))) elif y4 < -1.2000065055686116e-105: tmp = t_16 elif y4 < 6.718963124057495e-279: tmp = t_15 elif y4 < 4.77962681403792e-222: tmp = t_16 elif y4 < 2.2852241541266835e-175: tmp = t_15 else: tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y4 * c) - Float64(y5 * a)) t_2 = Float64(Float64(x * y2) - Float64(z * y3)) t_3 = Float64(Float64(y2 * t) - Float64(y3 * y)) t_4 = Float64(Float64(k * y2) - Float64(j * y3)) t_5 = Float64(Float64(y4 * b) - Float64(y5 * i)) t_6 = Float64(Float64(Float64(j * t) - Float64(k * y)) * t_5) t_7 = Float64(Float64(b * a) - Float64(i * c)) t_8 = Float64(t_7 * Float64(Float64(y * x) - Float64(t * z))) t_9 = Float64(Float64(j * x) - Float64(k * z)) t_10 = Float64(Float64(Float64(b * y0) - Float64(i * y1)) * t_9) t_11 = Float64(t_9 * Float64(Float64(y0 * b) - Float64(i * y1))) t_12 = Float64(Float64(y4 * y1) - Float64(y5 * y0)) t_13 = Float64(t_4 * t_12) t_14 = Float64(Float64(Float64(y2 * k) - Float64(y3 * j)) * t_12) t_15 = Float64(Float64(Float64(Float64(Float64(Float64(k * y) * Float64(y5 * i)) - Float64(Float64(y * b) * Float64(y4 * k))) - Float64(Float64(y5 * t) * Float64(i * j))) - Float64(Float64(t_3 * t_1) - t_14)) + Float64(t_8 - Float64(t_11 - Float64(Float64(Float64(y2 * x) - Float64(y3 * z)) * Float64(Float64(c * y0) - Float64(y1 * a)))))) t_16 = Float64(Float64(Float64(t_6 - Float64(Float64(y3 * y) * Float64(Float64(y5 * a) - Float64(y4 * c)))) + Float64(Float64(Float64(y5 * a) * Float64(t * y2)) + t_13)) + Float64(Float64(t_2 * Float64(Float64(c * y0) - Float64(a * y1))) - Float64(t_10 - Float64(Float64(Float64(y * x) - Float64(z * t)) * t_7)))) t_17 = Float64(Float64(t * y2) - Float64(y * y3)) tmp = 0.0 if (y4 < -7.206256231996481e+60) tmp = Float64(Float64(t_8 - Float64(t_11 - t_6)) - Float64(Float64(t_3 / Float64(1.0 / t_1)) - t_14)); elseif (y4 < -3.364603505246317e-66) tmp = Float64(Float64(Float64(Float64(Float64(Float64(t * c) * Float64(i * z)) - Float64(Float64(a * t) * Float64(b * z))) - Float64(Float64(y * c) * Float64(i * x))) - t_10) + Float64(Float64(Float64(Float64(y0 * c) - Float64(a * y1)) * t_2) - Float64(Float64(t_17 * Float64(Float64(y4 * c) - Float64(a * y5))) - Float64(Float64(Float64(y1 * y4) - Float64(y5 * y0)) * t_4)))); elseif (y4 < -1.2000065055686116e-105) tmp = t_16; elseif (y4 < 6.718963124057495e-279) tmp = t_15; elseif (y4 < 4.77962681403792e-222) tmp = t_16; elseif (y4 < 2.2852241541266835e-175) tmp = t_15; else tmp = Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(x * y) - Float64(z * t)) * Float64(Float64(a * b) - Float64(c * i))) - Float64(Float64(k * Float64(i * Float64(z * y1))) - Float64(Float64(j * Float64(i * Float64(x * y1))) + Float64(y0 * Float64(k * Float64(z * b)))))) + Float64(Float64(z * Float64(y3 * Float64(a * y1))) - Float64(Float64(y2 * Float64(x * Float64(a * y1))) + Float64(y0 * Float64(z * Float64(c * y3)))))) + Float64(Float64(Float64(t * j) - Float64(y * k)) * t_5)) - Float64(t_17 * t_1)) + t_13); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (y4 * c) - (y5 * a); t_2 = (x * y2) - (z * y3); t_3 = (y2 * t) - (y3 * y); t_4 = (k * y2) - (j * y3); t_5 = (y4 * b) - (y5 * i); t_6 = ((j * t) - (k * y)) * t_5; t_7 = (b * a) - (i * c); t_8 = t_7 * ((y * x) - (t * z)); t_9 = (j * x) - (k * z); t_10 = ((b * y0) - (i * y1)) * t_9; t_11 = t_9 * ((y0 * b) - (i * y1)); t_12 = (y4 * y1) - (y5 * y0); t_13 = t_4 * t_12; t_14 = ((y2 * k) - (y3 * j)) * t_12; t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a))))); t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7))); t_17 = (t * y2) - (y * y3); tmp = 0.0; if (y4 < -7.206256231996481e+60) tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0 / t_1)) - t_14); elseif (y4 < -3.364603505246317e-66) tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4))); elseif (y4 < -1.2000065055686116e-105) tmp = t_16; elseif (y4 < 6.718963124057495e-279) tmp = t_15; elseif (y4 < 4.77962681403792e-222) tmp = t_16; elseif (y4 < 2.2852241541266835e-175) tmp = t_15; else tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(y4 * c), $MachinePrecision] - N[(y5 * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y2 * t), $MachinePrecision] - N[(y3 * y), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(y4 * b), $MachinePrecision] - N[(y5 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(N[(j * t), $MachinePrecision] - N[(k * y), $MachinePrecision]), $MachinePrecision] * t$95$5), $MachinePrecision]}, Block[{t$95$7 = N[(N[(b * a), $MachinePrecision] - N[(i * c), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(t$95$7 * N[(N[(y * x), $MachinePrecision] - N[(t * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(N[(j * x), $MachinePrecision] - N[(k * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$10 = N[(N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision] * t$95$9), $MachinePrecision]}, Block[{t$95$11 = N[(t$95$9 * N[(N[(y0 * b), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$12 = N[(N[(y4 * y1), $MachinePrecision] - N[(y5 * y0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$13 = N[(t$95$4 * t$95$12), $MachinePrecision]}, Block[{t$95$14 = N[(N[(N[(y2 * k), $MachinePrecision] - N[(y3 * j), $MachinePrecision]), $MachinePrecision] * t$95$12), $MachinePrecision]}, Block[{t$95$15 = N[(N[(N[(N[(N[(N[(k * y), $MachinePrecision] * N[(y5 * i), $MachinePrecision]), $MachinePrecision] - N[(N[(y * b), $MachinePrecision] * N[(y4 * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y5 * t), $MachinePrecision] * N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(t$95$3 * t$95$1), $MachinePrecision] - t$95$14), $MachinePrecision]), $MachinePrecision] + N[(t$95$8 - N[(t$95$11 - N[(N[(N[(y2 * x), $MachinePrecision] - N[(y3 * z), $MachinePrecision]), $MachinePrecision] * N[(N[(c * y0), $MachinePrecision] - N[(y1 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$16 = N[(N[(N[(t$95$6 - N[(N[(y3 * y), $MachinePrecision] * N[(N[(y5 * a), $MachinePrecision] - N[(y4 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(y5 * a), $MachinePrecision] * N[(t * y2), $MachinePrecision]), $MachinePrecision] + t$95$13), $MachinePrecision]), $MachinePrecision] + N[(N[(t$95$2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t$95$10 - N[(N[(N[(y * x), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$17 = N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]}, If[Less[y4, -7.206256231996481e+60], N[(N[(t$95$8 - N[(t$95$11 - t$95$6), $MachinePrecision]), $MachinePrecision] - N[(N[(t$95$3 / N[(1.0 / t$95$1), $MachinePrecision]), $MachinePrecision] - t$95$14), $MachinePrecision]), $MachinePrecision], If[Less[y4, -3.364603505246317e-66], N[(N[(N[(N[(N[(N[(t * c), $MachinePrecision] * N[(i * z), $MachinePrecision]), $MachinePrecision] - N[(N[(a * t), $MachinePrecision] * N[(b * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y * c), $MachinePrecision] * N[(i * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - t$95$10), $MachinePrecision] + N[(N[(N[(N[(y0 * c), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision] * t$95$2), $MachinePrecision] - N[(N[(t$95$17 * N[(N[(y4 * c), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(y1 * y4), $MachinePrecision] - N[(y5 * y0), $MachinePrecision]), $MachinePrecision] * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Less[y4, -1.2000065055686116e-105], t$95$16, If[Less[y4, 6.718963124057495e-279], t$95$15, If[Less[y4, 4.77962681403792e-222], t$95$16, If[Less[y4, 2.2852241541266835e-175], t$95$15, N[(N[(N[(N[(N[(N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(k * N[(i * N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(j * N[(i * N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(k * N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(z * N[(y3 * N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y2 * N[(x * N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(z * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision] * t$95$5), $MachinePrecision]), $MachinePrecision] - N[(t$95$17 * t$95$1), $MachinePrecision]), $MachinePrecision] + t$95$13), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y4 \cdot c - y5 \cdot a\\
t_2 := x \cdot y2 - z \cdot y3\\
t_3 := y2 \cdot t - y3 \cdot y\\
t_4 := k \cdot y2 - j \cdot y3\\
t_5 := y4 \cdot b - y5 \cdot i\\
t_6 := \left(j \cdot t - k \cdot y\right) \cdot t\_5\\
t_7 := b \cdot a - i \cdot c\\
t_8 := t\_7 \cdot \left(y \cdot x - t \cdot z\right)\\
t_9 := j \cdot x - k \cdot z\\
t_10 := \left(b \cdot y0 - i \cdot y1\right) \cdot t\_9\\
t_11 := t\_9 \cdot \left(y0 \cdot b - i \cdot y1\right)\\
t_12 := y4 \cdot y1 - y5 \cdot y0\\
t_13 := t\_4 \cdot t\_12\\
t_14 := \left(y2 \cdot k - y3 \cdot j\right) \cdot t\_12\\
t_15 := \left(\left(\left(\left(k \cdot y\right) \cdot \left(y5 \cdot i\right) - \left(y \cdot b\right) \cdot \left(y4 \cdot k\right)\right) - \left(y5 \cdot t\right) \cdot \left(i \cdot j\right)\right) - \left(t\_3 \cdot t\_1 - t\_14\right)\right) + \left(t\_8 - \left(t\_11 - \left(y2 \cdot x - y3 \cdot z\right) \cdot \left(c \cdot y0 - y1 \cdot a\right)\right)\right)\\
t_16 := \left(\left(t\_6 - \left(y3 \cdot y\right) \cdot \left(y5 \cdot a - y4 \cdot c\right)\right) + \left(\left(y5 \cdot a\right) \cdot \left(t \cdot y2\right) + t\_13\right)\right) + \left(t\_2 \cdot \left(c \cdot y0 - a \cdot y1\right) - \left(t\_10 - \left(y \cdot x - z \cdot t\right) \cdot t\_7\right)\right)\\
t_17 := t \cdot y2 - y \cdot y3\\
\mathbf{if}\;y4 < -7.206256231996481 \cdot 10^{+60}:\\
\;\;\;\;\left(t\_8 - \left(t\_11 - t\_6\right)\right) - \left(\frac{t\_3}{\frac{1}{t\_1}} - t\_14\right)\\
\mathbf{elif}\;y4 < -3.364603505246317 \cdot 10^{-66}:\\
\;\;\;\;\left(\left(\left(\left(t \cdot c\right) \cdot \left(i \cdot z\right) - \left(a \cdot t\right) \cdot \left(b \cdot z\right)\right) - \left(y \cdot c\right) \cdot \left(i \cdot x\right)\right) - t\_10\right) + \left(\left(y0 \cdot c - a \cdot y1\right) \cdot t\_2 - \left(t\_17 \cdot \left(y4 \cdot c - a \cdot y5\right) - \left(y1 \cdot y4 - y5 \cdot y0\right) \cdot t\_4\right)\right)\\
\mathbf{elif}\;y4 < -1.2000065055686116 \cdot 10^{-105}:\\
\;\;\;\;t\_16\\
\mathbf{elif}\;y4 < 6.718963124057495 \cdot 10^{-279}:\\
\;\;\;\;t\_15\\
\mathbf{elif}\;y4 < 4.77962681403792 \cdot 10^{-222}:\\
\;\;\;\;t\_16\\
\mathbf{elif}\;y4 < 2.2852241541266835 \cdot 10^{-175}:\\
\;\;\;\;t\_15\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\left(\left(\left(x \cdot y - z \cdot t\right) \cdot \left(a \cdot b - c \cdot i\right) - \left(k \cdot \left(i \cdot \left(z \cdot y1\right)\right) - \left(j \cdot \left(i \cdot \left(x \cdot y1\right)\right) + y0 \cdot \left(k \cdot \left(z \cdot b\right)\right)\right)\right)\right) + \left(z \cdot \left(y3 \cdot \left(a \cdot y1\right)\right) - \left(y2 \cdot \left(x \cdot \left(a \cdot y1\right)\right) + y0 \cdot \left(z \cdot \left(c \cdot y3\right)\right)\right)\right)\right) + \left(t \cdot j - y \cdot k\right) \cdot t\_5\right) - t\_17 \cdot t\_1\right) + t\_13\\
\end{array}
\end{array}
herbie shell --seed 2024107
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:name "Linear.Matrix:det44 from linear-1.19.1.3"
:precision binary64
:alt
(if (< y4 -7.206256231996481e+60) (- (- (* (- (* b a) (* i c)) (- (* y x) (* t z))) (- (* (- (* j x) (* k z)) (- (* y0 b) (* i y1))) (* (- (* j t) (* k y)) (- (* y4 b) (* y5 i))))) (- (/ (- (* y2 t) (* y3 y)) (/ 1.0 (- (* y4 c) (* y5 a)))) (* (- (* y2 k) (* y3 j)) (- (* y4 y1) (* y5 y0))))) (if (< y4 -3.364603505246317e-66) (+ (- (- (- (* (* t c) (* i z)) (* (* a t) (* b z))) (* (* y c) (* i x))) (* (- (* b y0) (* i y1)) (- (* j x) (* k z)))) (- (* (- (* y0 c) (* a y1)) (- (* x y2) (* z y3))) (- (* (- (* t y2) (* y y3)) (- (* y4 c) (* a y5))) (* (- (* y1 y4) (* y5 y0)) (- (* k y2) (* j y3)))))) (if (< y4 -1.2000065055686116e-105) (+ (+ (- (* (- (* j t) (* k y)) (- (* y4 b) (* y5 i))) (* (* y3 y) (- (* y5 a) (* y4 c)))) (+ (* (* y5 a) (* t y2)) (* (- (* k y2) (* j y3)) (- (* y4 y1) (* y5 y0))))) (- (* (- (* x y2) (* z y3)) (- (* c y0) (* a y1))) (- (* (- (* b y0) (* i y1)) (- (* j x) (* k z))) (* (- (* y x) (* z t)) (- (* b a) (* i c)))))) (if (< y4 6.718963124057495e-279) (+ (- (- (- (* (* k y) (* y5 i)) (* (* y b) (* y4 k))) (* (* y5 t) (* i j))) (- (* (- (* y2 t) (* y3 y)) (- (* y4 c) (* y5 a))) (* (- (* y2 k) (* y3 j)) (- (* y4 y1) (* y5 y0))))) (- (* (- (* b a) (* i c)) (- (* y x) (* t z))) (- (* (- (* j x) (* k z)) (- (* y0 b) (* i y1))) (* (- (* y2 x) (* y3 z)) (- (* c y0) (* y1 a)))))) (if (< y4 4.77962681403792e-222) (+ (+ (- (* (- (* j t) (* k y)) (- (* y4 b) (* y5 i))) (* (* y3 y) (- (* y5 a) (* y4 c)))) (+ (* (* y5 a) (* t y2)) (* (- (* k y2) (* j y3)) (- (* y4 y1) (* y5 y0))))) (- (* (- (* x y2) (* z y3)) (- (* c y0) (* a y1))) (- (* (- (* b y0) (* i y1)) (- (* j x) (* k z))) (* (- (* y x) (* z t)) (- (* b a) (* i c)))))) (if (< y4 2.2852241541266835e-175) (+ (- (- (- (* (* k y) (* y5 i)) (* (* y b) (* y4 k))) (* (* y5 t) (* i j))) (- (* (- (* y2 t) (* y3 y)) (- (* y4 c) (* y5 a))) (* (- (* y2 k) (* y3 j)) (- (* y4 y1) (* y5 y0))))) (- (* (- (* b a) (* i c)) (- (* y x) (* t z))) (- (* (- (* j x) (* k z)) (- (* y0 b) (* i y1))) (* (- (* y2 x) (* y3 z)) (- (* c y0) (* y1 a)))))) (+ (- (+ (+ (- (* (- (* x y) (* z t)) (- (* a b) (* c i))) (- (* k (* i (* z y1))) (+ (* j (* i (* x y1))) (* y0 (* k (* z b)))))) (- (* z (* y3 (* a y1))) (+ (* y2 (* x (* a y1))) (* y0 (* z (* c y3)))))) (* (- (* t j) (* y k)) (- (* y4 b) (* y5 i)))) (* (- (* t y2) (* y y3)) (- (* y4 c) (* y5 a)))) (* (- (* k y2) (* j y3)) (- (* y4 y1) (* y5 y0))))))))))
(+ (- (+ (+ (- (* (- (* x y) (* z t)) (- (* a b) (* c i))) (* (- (* x j) (* z k)) (- (* y0 b) (* y1 i)))) (* (- (* x y2) (* z y3)) (- (* y0 c) (* y1 a)))) (* (- (* t j) (* y k)) (- (* y4 b) (* y5 i)))) (* (- (* t y2) (* y y3)) (- (* y4 c) (* y5 a)))) (* (- (* k y2) (* j y3)) (- (* y4 y1) (* y5 y0)))))