
(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 41 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
(+
(* y1 (- (* x j) (* z k)))
(+ (* y5 (- (* y k) (* t j))) (* c (- (* z t) (* x y)))))))
(t_2 (- (* x y) (* z t)))
(t_3
(*
y
(+
(+ (* x (- (* a b) (* c i))) (* k (- (* i y5) (* b y4))))
(* y3 (- (* c y4) (* a y5))))))
(t_4
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x (- (* c y0) (* a y1))))
(* t (- (* a y5) (* c y4))))))
(t_5 (- (* t j) (* y k)))
(t_6
(*
a
(+
(+ (* b t_2) (* y1 (- (* z y3) (* x y2))))
(* y5 (- (* t y2) (* y y3))))))
(t_7
(*
j
(+
(+ (* t (- (* b y4) (* i y5))) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0)))))))
(if (<= a -6.6e+140)
t_6
(if (<= a -1e+98)
(* b (* x (- (* y a) (* j y0))))
(if (<= a -3.3e+52)
(* b (+ (+ (* a t_2) (* y4 t_5)) (* y0 (- (* z k) (* x j)))))
(if (<= a -4.2e+21)
t_3
(if (<= a -7.8e-25)
t_4
(if (<= a -1.12e-82)
t_3
(if (<= a -6.3e-215)
t_4
(if (<= a 1e-279)
t_7
(if (<= a 8e-86)
t_1
(if (<= a 2.8e-56)
(* k (* b (- (* z y0) (* y y4))))
(if (<= a 1.15e-38)
t_1
(if (<= a 2.9e+25)
t_7
(if (<= a 1.2e+130)
(*
y4
(+
(+ (* b t_5) (* y1 (- (* k y2) (* j y3))))
(* c (- (* y y3) (* t y2)))))
t_6)))))))))))))))
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 * ((x * j) - (z * k))) + ((y5 * ((y * k) - (t * j))) + (c * ((z * t) - (x * y)))));
double t_2 = (x * y) - (z * t);
double t_3 = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))));
double t_4 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))));
double t_5 = (t * j) - (y * k);
double t_6 = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
double t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double tmp;
if (a <= -6.6e+140) {
tmp = t_6;
} else if (a <= -1e+98) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (a <= -3.3e+52) {
tmp = b * (((a * t_2) + (y4 * t_5)) + (y0 * ((z * k) - (x * j))));
} else if (a <= -4.2e+21) {
tmp = t_3;
} else if (a <= -7.8e-25) {
tmp = t_4;
} else if (a <= -1.12e-82) {
tmp = t_3;
} else if (a <= -6.3e-215) {
tmp = t_4;
} else if (a <= 1e-279) {
tmp = t_7;
} else if (a <= 8e-86) {
tmp = t_1;
} else if (a <= 2.8e-56) {
tmp = k * (b * ((z * y0) - (y * y4)));
} else if (a <= 1.15e-38) {
tmp = t_1;
} else if (a <= 2.9e+25) {
tmp = t_7;
} else if (a <= 1.2e+130) {
tmp = y4 * (((b * t_5) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
} else {
tmp = t_6;
}
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 = i * ((y1 * ((x * j) - (z * k))) + ((y5 * ((y * k) - (t * j))) + (c * ((z * t) - (x * y)))))
t_2 = (x * y) - (z * t)
t_3 = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))))
t_4 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))))
t_5 = (t * j) - (y * k)
t_6 = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))))
t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
if (a <= (-6.6d+140)) then
tmp = t_6
else if (a <= (-1d+98)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (a <= (-3.3d+52)) then
tmp = b * (((a * t_2) + (y4 * t_5)) + (y0 * ((z * k) - (x * j))))
else if (a <= (-4.2d+21)) then
tmp = t_3
else if (a <= (-7.8d-25)) then
tmp = t_4
else if (a <= (-1.12d-82)) then
tmp = t_3
else if (a <= (-6.3d-215)) then
tmp = t_4
else if (a <= 1d-279) then
tmp = t_7
else if (a <= 8d-86) then
tmp = t_1
else if (a <= 2.8d-56) then
tmp = k * (b * ((z * y0) - (y * y4)))
else if (a <= 1.15d-38) then
tmp = t_1
else if (a <= 2.9d+25) then
tmp = t_7
else if (a <= 1.2d+130) then
tmp = y4 * (((b * t_5) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))))
else
tmp = t_6
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 * ((x * j) - (z * k))) + ((y5 * ((y * k) - (t * j))) + (c * ((z * t) - (x * y)))));
double t_2 = (x * y) - (z * t);
double t_3 = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))));
double t_4 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))));
double t_5 = (t * j) - (y * k);
double t_6 = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
double t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double tmp;
if (a <= -6.6e+140) {
tmp = t_6;
} else if (a <= -1e+98) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (a <= -3.3e+52) {
tmp = b * (((a * t_2) + (y4 * t_5)) + (y0 * ((z * k) - (x * j))));
} else if (a <= -4.2e+21) {
tmp = t_3;
} else if (a <= -7.8e-25) {
tmp = t_4;
} else if (a <= -1.12e-82) {
tmp = t_3;
} else if (a <= -6.3e-215) {
tmp = t_4;
} else if (a <= 1e-279) {
tmp = t_7;
} else if (a <= 8e-86) {
tmp = t_1;
} else if (a <= 2.8e-56) {
tmp = k * (b * ((z * y0) - (y * y4)));
} else if (a <= 1.15e-38) {
tmp = t_1;
} else if (a <= 2.9e+25) {
tmp = t_7;
} else if (a <= 1.2e+130) {
tmp = y4 * (((b * t_5) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
} else {
tmp = t_6;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = i * ((y1 * ((x * j) - (z * k))) + ((y5 * ((y * k) - (t * j))) + (c * ((z * t) - (x * y))))) t_2 = (x * y) - (z * t) t_3 = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5)))) t_4 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4)))) t_5 = (t * j) - (y * k) t_6 = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3)))) t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) tmp = 0 if a <= -6.6e+140: tmp = t_6 elif a <= -1e+98: tmp = b * (x * ((y * a) - (j * y0))) elif a <= -3.3e+52: tmp = b * (((a * t_2) + (y4 * t_5)) + (y0 * ((z * k) - (x * j)))) elif a <= -4.2e+21: tmp = t_3 elif a <= -7.8e-25: tmp = t_4 elif a <= -1.12e-82: tmp = t_3 elif a <= -6.3e-215: tmp = t_4 elif a <= 1e-279: tmp = t_7 elif a <= 8e-86: tmp = t_1 elif a <= 2.8e-56: tmp = k * (b * ((z * y0) - (y * y4))) elif a <= 1.15e-38: tmp = t_1 elif a <= 2.9e+25: tmp = t_7 elif a <= 1.2e+130: tmp = y4 * (((b * t_5) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))) else: tmp = t_6 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(y1 * Float64(Float64(x * j) - Float64(z * k))) + Float64(Float64(y5 * Float64(Float64(y * k) - Float64(t * j))) + Float64(c * Float64(Float64(z * t) - Float64(x * y)))))) t_2 = Float64(Float64(x * y) - Float64(z * t)) t_3 = Float64(y * Float64(Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))) t_4 = Float64(y2 * Float64(Float64(Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(t * Float64(Float64(a * y5) - Float64(c * y4))))) t_5 = Float64(Float64(t * j) - Float64(y * k)) t_6 = 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))))) 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))))) tmp = 0.0 if (a <= -6.6e+140) tmp = t_6; elseif (a <= -1e+98) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (a <= -3.3e+52) tmp = Float64(b * Float64(Float64(Float64(a * t_2) + Float64(y4 * t_5)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))); elseif (a <= -4.2e+21) tmp = t_3; elseif (a <= -7.8e-25) tmp = t_4; elseif (a <= -1.12e-82) tmp = t_3; elseif (a <= -6.3e-215) tmp = t_4; elseif (a <= 1e-279) tmp = t_7; elseif (a <= 8e-86) tmp = t_1; elseif (a <= 2.8e-56) tmp = Float64(k * Float64(b * Float64(Float64(z * y0) - Float64(y * y4)))); elseif (a <= 1.15e-38) tmp = t_1; elseif (a <= 2.9e+25) tmp = t_7; elseif (a <= 1.2e+130) tmp = Float64(y4 * Float64(Float64(Float64(b * t_5) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * Float64(Float64(y * y3) - Float64(t * y2))))); else tmp = t_6; 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 * ((x * j) - (z * k))) + ((y5 * ((y * k) - (t * j))) + (c * ((z * t) - (x * y))))); t_2 = (x * y) - (z * t); t_3 = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5)))); t_4 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4)))); t_5 = (t * j) - (y * k); t_6 = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3)))); t_7 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); tmp = 0.0; if (a <= -6.6e+140) tmp = t_6; elseif (a <= -1e+98) tmp = b * (x * ((y * a) - (j * y0))); elseif (a <= -3.3e+52) tmp = b * (((a * t_2) + (y4 * t_5)) + (y0 * ((z * k) - (x * j)))); elseif (a <= -4.2e+21) tmp = t_3; elseif (a <= -7.8e-25) tmp = t_4; elseif (a <= -1.12e-82) tmp = t_3; elseif (a <= -6.3e-215) tmp = t_4; elseif (a <= 1e-279) tmp = t_7; elseif (a <= 8e-86) tmp = t_1; elseif (a <= 2.8e-56) tmp = k * (b * ((z * y0) - (y * y4))); elseif (a <= 1.15e-38) tmp = t_1; elseif (a <= 2.9e+25) tmp = t_7; elseif (a <= 1.2e+130) tmp = y4 * (((b * t_5) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))); else tmp = t_6; 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[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(y5 * N[(N[(y * k), $MachinePrecision] - N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y * N[(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] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = 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 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = 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]}, 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]}, If[LessEqual[a, -6.6e+140], t$95$6, If[LessEqual[a, -1e+98], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -3.3e+52], N[(b * N[(N[(N[(a * t$95$2), $MachinePrecision] + N[(y4 * t$95$5), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -4.2e+21], t$95$3, If[LessEqual[a, -7.8e-25], t$95$4, If[LessEqual[a, -1.12e-82], t$95$3, If[LessEqual[a, -6.3e-215], t$95$4, If[LessEqual[a, 1e-279], t$95$7, If[LessEqual[a, 8e-86], t$95$1, If[LessEqual[a, 2.8e-56], N[(k * N[(b * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 1.15e-38], t$95$1, If[LessEqual[a, 2.9e+25], t$95$7, If[LessEqual[a, 1.2e+130], N[(y4 * N[(N[(N[(b * t$95$5), $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], t$95$6]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(y1 \cdot \left(x \cdot j - z \cdot k\right) + \left(y5 \cdot \left(y \cdot k - t \cdot j\right) + c \cdot \left(z \cdot t - x \cdot y\right)\right)\right)\\
t_2 := x \cdot y - z \cdot t\\
t_3 := y \cdot \left(\left(x \cdot \left(a \cdot b - c \cdot i\right) + k \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
t_4 := 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 \left(a \cdot y5 - c \cdot y4\right)\right)\\
t_5 := t \cdot j - y \cdot k\\
t_6 := 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)\\
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)\\
\mathbf{if}\;a \leq -6.6 \cdot 10^{+140}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;a \leq -1 \cdot 10^{+98}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;a \leq -3.3 \cdot 10^{+52}:\\
\;\;\;\;b \cdot \left(\left(a \cdot t\_2 + y4 \cdot t\_5\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;a \leq -4.2 \cdot 10^{+21}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;a \leq -7.8 \cdot 10^{-25}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;a \leq -1.12 \cdot 10^{-82}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;a \leq -6.3 \cdot 10^{-215}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;a \leq 10^{-279}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;a \leq 8 \cdot 10^{-86}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 2.8 \cdot 10^{-56}:\\
\;\;\;\;k \cdot \left(b \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
\mathbf{elif}\;a \leq 1.15 \cdot 10^{-38}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 2.9 \cdot 10^{+25}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;a \leq 1.2 \cdot 10^{+130}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_5 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_6\\
\end{array}
\end{array}
if a < -6.6000000000000003e140 or 1.20000000000000012e130 < a Initial program 22.0%
Taylor expanded in a around inf 74.2%
+-commutative74.2%
mul-1-neg74.2%
unsub-neg74.2%
*-commutative74.2%
*-commutative74.2%
*-commutative74.2%
mul-1-neg74.2%
*-commutative74.2%
Simplified74.2%
if -6.6000000000000003e140 < a < -9.99999999999999998e97Initial program 19.5%
Taylor expanded in b around inf 19.0%
Taylor expanded in x around inf 62.9%
if -9.99999999999999998e97 < a < -3.3e52Initial program 33.3%
Taylor expanded in b around inf 66.8%
if -3.3e52 < a < -4.2e21 or -7.8e-25 < a < -1.12e-82Initial program 21.0%
Taylor expanded in y around inf 76.5%
+-commutative76.5%
mul-1-neg76.5%
unsub-neg76.5%
*-commutative76.5%
*-commutative76.5%
mul-1-neg76.5%
Simplified76.5%
if -4.2e21 < a < -7.8e-25 or -1.12e-82 < a < -6.29999999999999955e-215Initial program 21.5%
Taylor expanded in y2 around inf 68.0%
if -6.29999999999999955e-215 < a < 1.00000000000000006e-279 or 1.15000000000000001e-38 < a < 2.8999999999999999e25Initial program 37.4%
Taylor expanded in j around inf 66.1%
+-commutative66.1%
mul-1-neg66.1%
unsub-neg66.1%
*-commutative66.1%
Simplified66.1%
if 1.00000000000000006e-279 < a < 8.00000000000000068e-86 or 2.79999999999999993e-56 < a < 1.15000000000000001e-38Initial program 25.8%
Taylor expanded in i around -inf 56.4%
if 8.00000000000000068e-86 < a < 2.79999999999999993e-56Initial program 14.3%
Taylor expanded in k around inf 71.4%
+-commutative71.4%
mul-1-neg71.4%
unsub-neg71.4%
*-commutative71.4%
associate-*r*71.4%
neg-mul-171.4%
Simplified71.4%
Taylor expanded in b around -inf 85.9%
+-commutative85.9%
mul-1-neg85.9%
unsub-neg85.9%
Simplified85.9%
if 2.8999999999999999e25 < a < 1.20000000000000012e130Initial program 58.2%
Taylor expanded in y4 around inf 75.6%
Final simplification68.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* t y2) (* y y3)))
(t_2 (- (* x y) (* z t)))
(t_3
(+
(+
(+
(+
(+
(* (- (* a b) (* c i)) t_2)
(* (- (* b y0) (* i y1)) (- (* z k) (* x j))))
(* (- (* x y2) (* z y3)) (- (* c y0) (* a y1))))
(* (- (* t j) (* y k)) (- (* b y4) (* i y5))))
(* t_1 (- (* a y5) (* c y4))))
(* (- (* y1 y4) (* y0 y5)) (- (* k y2) (* j y3))))))
(if (<= t_3 INFINITY)
t_3
(* a (+ (+ (* b t_2) (* y1 (- (* z y3) (* x y2)))) (* y5 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) - (y * y3);
double t_2 = (x * y) - (z * t);
double t_3 = (((((((a * b) - (c * i)) * t_2) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((x * y2) - (z * y3)) * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (t_1 * ((a * y5) - (c * y4)))) + (((y1 * y4) - (y0 * y5)) * ((k * y2) - (j * y3)));
double tmp;
if (t_3 <= ((double) INFINITY)) {
tmp = t_3;
} else {
tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * 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 = (t * y2) - (y * y3);
double t_2 = (x * y) - (z * t);
double t_3 = (((((((a * b) - (c * i)) * t_2) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((x * y2) - (z * y3)) * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (t_1 * ((a * y5) - (c * y4)))) + (((y1 * y4) - (y0 * y5)) * ((k * y2) - (j * y3)));
double tmp;
if (t_3 <= Double.POSITIVE_INFINITY) {
tmp = t_3;
} else {
tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * 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) - (y * y3) t_2 = (x * y) - (z * t) t_3 = (((((((a * b) - (c * i)) * t_2) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((x * y2) - (z * y3)) * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (t_1 * ((a * y5) - (c * y4)))) + (((y1 * y4) - (y0 * y5)) * ((k * y2) - (j * y3))) tmp = 0 if t_3 <= math.inf: tmp = t_3 else: tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * 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(t * y2) - Float64(y * y3)) t_2 = Float64(Float64(x * y) - Float64(z * t)) t_3 = Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(a * b) - Float64(c * i)) * t_2) + Float64(Float64(Float64(b * y0) - Float64(i * y1)) * Float64(Float64(z * k) - Float64(x * j)))) + Float64(Float64(Float64(x * y2) - Float64(z * y3)) * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(Float64(Float64(t * j) - Float64(y * k)) * Float64(Float64(b * y4) - Float64(i * y5)))) + Float64(t_1 * Float64(Float64(a * y5) - Float64(c * y4)))) + Float64(Float64(Float64(y1 * y4) - Float64(y0 * y5)) * Float64(Float64(k * y2) - Float64(j * y3)))) tmp = 0.0 if (t_3 <= Inf) tmp = t_3; else tmp = Float64(a * Float64(Float64(Float64(b * t_2) + Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) + Float64(y5 * 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) - (y * y3); t_2 = (x * y) - (z * t); t_3 = (((((((a * b) - (c * i)) * t_2) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((x * y2) - (z * y3)) * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (t_1 * ((a * y5) - (c * y4)))) + (((y1 * y4) - (y0 * y5)) * ((k * y2) - (j * y3))); tmp = 0.0; if (t_3 <= Inf) tmp = t_3; else tmp = a * (((b * t_2) + (y1 * ((z * y3) - (x * y2)))) + (y5 * 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[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[(N[(N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision] * t$95$2), $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[(N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision] * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision] * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$3, Infinity], t$95$3, 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 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot y2 - y \cdot y3\\
t_2 := x \cdot y - z \cdot t\\
t_3 := \left(\left(\left(\left(\left(a \cdot b - c \cdot i\right) \cdot t\_2 + \left(b \cdot y0 - i \cdot y1\right) \cdot \left(z \cdot k - x \cdot j\right)\right) + \left(x \cdot y2 - z \cdot y3\right) \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + \left(t \cdot j - y \cdot k\right) \cdot \left(b \cdot y4 - i \cdot y5\right)\right) + t\_1 \cdot \left(a \cdot y5 - c \cdot y4\right)\right) + \left(y1 \cdot y4 - y0 \cdot y5\right) \cdot \left(k \cdot y2 - j \cdot y3\right)\\
\mathbf{if}\;t\_3 \leq \infty:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(\left(b \cdot t\_2 + y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right) + y5 \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 91.1%
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 a around inf 41.6%
+-commutative41.6%
mul-1-neg41.6%
unsub-neg41.6%
*-commutative41.6%
*-commutative41.6%
*-commutative41.6%
mul-1-neg41.6%
*-commutative41.6%
Simplified41.6%
Final simplification55.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j))))))
(t_2 (- (* b y4) (* i y5)))
(t_3 (* y5 (- (* y i) (* y0 y2))))
(t_4 (* k t_3)))
(if (<= b -1.6e+184)
t_1
(if (<= b -8.2e+104)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= b -3.4e+20)
(* k (* z (+ (* b y0) (- (/ t_3 z) (* i y1)))))
(if (<= b -3.1e-62)
(* a (* y1 (- (* z y3) (* x y2))))
(if (<= b -2.7e-262)
(*
j
(+
(+ (* t t_2) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0)))))
(if (<= b 7.5e-266)
t_4
(if (<= b 4.5e-171)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= b 8.2e-161)
(* c (* z (- (* t i) (* y0 y3))))
(if (<= b 2.05e-112)
t_4
(if (<= b 1.35e-85)
(* a (* y3 (- (* z y1) (* y y5))))
(if (<= b 5.2e-42)
(*
c
(+
(+
(* y0 (- (* x y2) (* z y3)))
(* i (- (* z t) (* x y))))
(* y4 (- (* y y3) (* t y2)))))
(if (<= b 4e+171)
(*
t
(+
(+ (* j t_2) (* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4)))))
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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_2 = (b * y4) - (i * y5);
double t_3 = y5 * ((y * i) - (y0 * y2));
double t_4 = k * t_3;
double tmp;
if (b <= -1.6e+184) {
tmp = t_1;
} else if (b <= -8.2e+104) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -3.4e+20) {
tmp = k * (z * ((b * y0) + ((t_3 / z) - (i * y1))));
} else if (b <= -3.1e-62) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (b <= -2.7e-262) {
tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
} else if (b <= 7.5e-266) {
tmp = t_4;
} else if (b <= 4.5e-171) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (b <= 8.2e-161) {
tmp = c * (z * ((t * i) - (y0 * y3)));
} else if (b <= 2.05e-112) {
tmp = t_4;
} else if (b <= 1.35e-85) {
tmp = a * (y3 * ((z * y1) - (y * y5)));
} else if (b <= 5.2e-42) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
} else if (b <= 4e+171) {
tmp = t * (((j * t_2) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} 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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
t_2 = (b * y4) - (i * y5)
t_3 = y5 * ((y * i) - (y0 * y2))
t_4 = k * t_3
if (b <= (-1.6d+184)) then
tmp = t_1
else if (b <= (-8.2d+104)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (b <= (-3.4d+20)) then
tmp = k * (z * ((b * y0) + ((t_3 / z) - (i * y1))))
else if (b <= (-3.1d-62)) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else if (b <= (-2.7d-262)) then
tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
else if (b <= 7.5d-266) then
tmp = t_4
else if (b <= 4.5d-171) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (b <= 8.2d-161) then
tmp = c * (z * ((t * i) - (y0 * y3)))
else if (b <= 2.05d-112) then
tmp = t_4
else if (b <= 1.35d-85) then
tmp = a * (y3 * ((z * y1) - (y * y5)))
else if (b <= 5.2d-42) then
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))))
else if (b <= 4d+171) then
tmp = t * (((j * t_2) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_2 = (b * y4) - (i * y5);
double t_3 = y5 * ((y * i) - (y0 * y2));
double t_4 = k * t_3;
double tmp;
if (b <= -1.6e+184) {
tmp = t_1;
} else if (b <= -8.2e+104) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -3.4e+20) {
tmp = k * (z * ((b * y0) + ((t_3 / z) - (i * y1))));
} else if (b <= -3.1e-62) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (b <= -2.7e-262) {
tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
} else if (b <= 7.5e-266) {
tmp = t_4;
} else if (b <= 4.5e-171) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (b <= 8.2e-161) {
tmp = c * (z * ((t * i) - (y0 * y3)));
} else if (b <= 2.05e-112) {
tmp = t_4;
} else if (b <= 1.35e-85) {
tmp = a * (y3 * ((z * y1) - (y * y5)));
} else if (b <= 5.2e-42) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
} else if (b <= 4e+171) {
tmp = t * (((j * t_2) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} 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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) t_2 = (b * y4) - (i * y5) t_3 = y5 * ((y * i) - (y0 * y2)) t_4 = k * t_3 tmp = 0 if b <= -1.6e+184: tmp = t_1 elif b <= -8.2e+104: tmp = a * (z * ((y1 * y3) - (t * b))) elif b <= -3.4e+20: tmp = k * (z * ((b * y0) + ((t_3 / z) - (i * y1)))) elif b <= -3.1e-62: tmp = a * (y1 * ((z * y3) - (x * y2))) elif b <= -2.7e-262: tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) elif b <= 7.5e-266: tmp = t_4 elif b <= 4.5e-171: tmp = x * (y2 * ((c * y0) - (a * y1))) elif b <= 8.2e-161: tmp = c * (z * ((t * i) - (y0 * y3))) elif b <= 2.05e-112: tmp = t_4 elif b <= 1.35e-85: tmp = a * (y3 * ((z * y1) - (y * y5))) elif b <= 5.2e-42: tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))) elif b <= 4e+171: tmp = t * (((j * t_2) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) 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(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_2 = Float64(Float64(b * y4) - Float64(i * y5)) t_3 = Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) t_4 = Float64(k * t_3) tmp = 0.0 if (b <= -1.6e+184) tmp = t_1; elseif (b <= -8.2e+104) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (b <= -3.4e+20) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(t_3 / z) - Float64(i * y1))))); elseif (b <= -3.1e-62) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); elseif (b <= -2.7e-262) tmp = Float64(j * Float64(Float64(Float64(t * t_2) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * Float64(Float64(i * y1) - Float64(b * y0))))); elseif (b <= 7.5e-266) tmp = t_4; elseif (b <= 4.5e-171) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (b <= 8.2e-161) tmp = Float64(c * Float64(z * Float64(Float64(t * i) - Float64(y0 * y3)))); elseif (b <= 2.05e-112) tmp = t_4; elseif (b <= 1.35e-85) tmp = Float64(a * Float64(y3 * Float64(Float64(z * y1) - Float64(y * y5)))); elseif (b <= 5.2e-42) tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (b <= 4e+171) tmp = Float64(t * Float64(Float64(Float64(j * t_2) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))); 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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); t_2 = (b * y4) - (i * y5); t_3 = y5 * ((y * i) - (y0 * y2)); t_4 = k * t_3; tmp = 0.0; if (b <= -1.6e+184) tmp = t_1; elseif (b <= -8.2e+104) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (b <= -3.4e+20) tmp = k * (z * ((b * y0) + ((t_3 / z) - (i * y1)))); elseif (b <= -3.1e-62) tmp = a * (y1 * ((z * y3) - (x * y2))); elseif (b <= -2.7e-262) tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); elseif (b <= 7.5e-266) tmp = t_4; elseif (b <= 4.5e-171) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (b <= 8.2e-161) tmp = c * (z * ((t * i) - (y0 * y3))); elseif (b <= 2.05e-112) tmp = t_4; elseif (b <= 1.35e-85) tmp = a * (y3 * ((z * y1) - (y * y5))); elseif (b <= 5.2e-42) tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))); elseif (b <= 4e+171) tmp = t * (((j * t_2) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); 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[(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$2 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(k * t$95$3), $MachinePrecision]}, If[LessEqual[b, -1.6e+184], t$95$1, If[LessEqual[b, -8.2e+104], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -3.4e+20], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(t$95$3 / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -3.1e-62], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2.7e-262], N[(j * N[(N[(N[(t * t$95$2), $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[b, 7.5e-266], t$95$4, If[LessEqual[b, 4.5e-171], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 8.2e-161], N[(c * N[(z * N[(N[(t * i), $MachinePrecision] - N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.05e-112], t$95$4, If[LessEqual[b, 1.35e-85], N[(a * N[(y3 * N[(N[(z * y1), $MachinePrecision] - N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 5.2e-42], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 4e+171], N[(t * N[(N[(N[(j * t$95$2), $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], t$95$1]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := 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_2 := b \cdot y4 - i \cdot y5\\
t_3 := y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\\
t_4 := k \cdot t\_3\\
\mathbf{if}\;b \leq -1.6 \cdot 10^{+184}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;b \leq -8.2 \cdot 10^{+104}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;b \leq -3.4 \cdot 10^{+20}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{t\_3}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{elif}\;b \leq -3.1 \cdot 10^{-62}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq -2.7 \cdot 10^{-262}:\\
\;\;\;\;j \cdot \left(\left(t \cdot t\_2 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq 7.5 \cdot 10^{-266}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;b \leq 4.5 \cdot 10^{-171}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;b \leq 8.2 \cdot 10^{-161}:\\
\;\;\;\;c \cdot \left(z \cdot \left(t \cdot i - y0 \cdot y3\right)\right)\\
\mathbf{elif}\;b \leq 2.05 \cdot 10^{-112}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;b \leq 1.35 \cdot 10^{-85}:\\
\;\;\;\;a \cdot \left(y3 \cdot \left(z \cdot y1 - y \cdot y5\right)\right)\\
\mathbf{elif}\;b \leq 5.2 \cdot 10^{-42}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq 4 \cdot 10^{+171}:\\
\;\;\;\;t \cdot \left(\left(j \cdot t\_2 + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if b < -1.59999999999999991e184 or 3.99999999999999982e171 < b Initial program 26.3%
Taylor expanded in b around inf 69.1%
if -1.59999999999999991e184 < b < -8.1999999999999997e104Initial program 31.3%
Taylor expanded in a around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in z around -inf 81.7%
mul-1-neg81.7%
Simplified81.7%
if -8.1999999999999997e104 < b < -3.4e20Initial program 7.7%
Taylor expanded in k around inf 54.4%
+-commutative54.4%
mul-1-neg54.4%
unsub-neg54.4%
*-commutative54.4%
associate-*r*54.4%
neg-mul-154.4%
Simplified54.4%
Taylor expanded in z around -inf 69.2%
associate-*r*69.2%
neg-mul-169.2%
+-commutative69.2%
mul-1-neg69.2%
unsub-neg69.2%
Simplified69.2%
Taylor expanded in y5 around -inf 77.4%
if -3.4e20 < b < -3.0999999999999999e-62Initial program 27.3%
Taylor expanded in a around inf 73.0%
+-commutative73.0%
mul-1-neg73.0%
unsub-neg73.0%
*-commutative73.0%
*-commutative73.0%
*-commutative73.0%
mul-1-neg73.0%
*-commutative73.0%
Simplified73.0%
Taylor expanded in y1 around inf 64.9%
if -3.0999999999999999e-62 < b < -2.7000000000000001e-262Initial program 20.4%
Taylor expanded in j around inf 50.6%
+-commutative50.6%
mul-1-neg50.6%
unsub-neg50.6%
*-commutative50.6%
Simplified50.6%
if -2.7000000000000001e-262 < b < 7.4999999999999995e-266 or 8.1999999999999994e-161 < b < 2.04999999999999998e-112Initial program 25.1%
Taylor expanded in k around inf 46.2%
+-commutative46.2%
mul-1-neg46.2%
unsub-neg46.2%
*-commutative46.2%
associate-*r*46.2%
neg-mul-146.2%
Simplified46.2%
Taylor expanded in y5 around -inf 54.7%
associate-*r*54.7%
neg-mul-154.7%
Simplified54.7%
if 7.4999999999999995e-266 < b < 4.5000000000000004e-171Initial program 22.6%
Taylor expanded in x around inf 45.8%
Taylor expanded in y2 around inf 51.7%
if 4.5000000000000004e-171 < b < 8.1999999999999994e-161Initial program 25.0%
Taylor expanded in z around -inf 1.1%
Taylor expanded in c around inf 76.1%
+-commutative76.1%
mul-1-neg76.1%
unsub-neg76.1%
Simplified76.1%
if 2.04999999999999998e-112 < b < 1.3500000000000001e-85Initial program 18.8%
Taylor expanded in a around inf 35.0%
+-commutative35.0%
mul-1-neg35.0%
unsub-neg35.0%
*-commutative35.0%
*-commutative35.0%
*-commutative35.0%
mul-1-neg35.0%
*-commutative35.0%
Simplified35.0%
Taylor expanded in y3 around -inf 68.3%
mul-1-neg68.3%
Simplified68.3%
if 1.3500000000000001e-85 < b < 5.2e-42Initial program 42.9%
Taylor expanded in c around inf 85.8%
+-commutative85.8%
mul-1-neg85.8%
unsub-neg85.8%
*-commutative85.8%
*-commutative85.8%
*-commutative85.8%
*-commutative85.8%
Simplified85.8%
if 5.2e-42 < b < 3.99999999999999982e171Initial program 32.7%
Taylor expanded in t around inf 47.6%
+-commutative47.6%
mul-1-neg47.6%
unsub-neg47.6%
*-commutative47.6%
Simplified47.6%
Final simplification61.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y2 (- (* c y0) (* a y1))))
(t_2
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j))))))
(t_3
(*
c
(+
(+ (* y0 (- (* x y2) (* z y3))) (* i (- (* z t) (* x y))))
(* y4 (- (* y y3) (* t y2))))))
(t_4 (* y5 (- (* y i) (* y0 y2))))
(t_5 (* k (* z (+ (* b y0) (- (/ t_4 z) (* i y1)))))))
(if (<= b -1.32e+184)
t_2
(if (<= b -3.6e+109)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= b -2.15e+39)
t_5
(if (<= b -6.8e-211)
t_3
(if (<= b -2.3e-246)
(*
x
(+
(+ (* y (- (* a b) (* c i))) t_1)
(* j (- (* i y1) (* b y0)))))
(if (<= b 1.1e-270)
(* k t_4)
(if (<= b 4.8e-170)
(* x t_1)
(if (<= b 4e-160)
(* c (* z (- (* t i) (* y0 y3))))
(if (<= b 2.7e-131)
t_5
(if (<= b 2.5e-90)
(* a (* y2 (- (* t y5) (* x y1))))
(if (<= b 1.04e-41)
t_3
(if (<= b 4.8e+172)
(*
t
(+
(+
(* j (- (* b y4) (* i y5)))
(* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4)))))
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 = y2 * ((c * y0) - (a * y1));
double t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_3 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
double t_4 = y5 * ((y * i) - (y0 * y2));
double t_5 = k * (z * ((b * y0) + ((t_4 / z) - (i * y1))));
double tmp;
if (b <= -1.32e+184) {
tmp = t_2;
} else if (b <= -3.6e+109) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -2.15e+39) {
tmp = t_5;
} else if (b <= -6.8e-211) {
tmp = t_3;
} else if (b <= -2.3e-246) {
tmp = x * (((y * ((a * b) - (c * i))) + t_1) + (j * ((i * y1) - (b * y0))));
} else if (b <= 1.1e-270) {
tmp = k * t_4;
} else if (b <= 4.8e-170) {
tmp = x * t_1;
} else if (b <= 4e-160) {
tmp = c * (z * ((t * i) - (y0 * y3)));
} else if (b <= 2.7e-131) {
tmp = t_5;
} else if (b <= 2.5e-90) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (b <= 1.04e-41) {
tmp = t_3;
} else if (b <= 4.8e+172) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} 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) :: t_5
real(8) :: tmp
t_1 = y2 * ((c * y0) - (a * y1))
t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
t_3 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))))
t_4 = y5 * ((y * i) - (y0 * y2))
t_5 = k * (z * ((b * y0) + ((t_4 / z) - (i * y1))))
if (b <= (-1.32d+184)) then
tmp = t_2
else if (b <= (-3.6d+109)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (b <= (-2.15d+39)) then
tmp = t_5
else if (b <= (-6.8d-211)) then
tmp = t_3
else if (b <= (-2.3d-246)) then
tmp = x * (((y * ((a * b) - (c * i))) + t_1) + (j * ((i * y1) - (b * y0))))
else if (b <= 1.1d-270) then
tmp = k * t_4
else if (b <= 4.8d-170) then
tmp = x * t_1
else if (b <= 4d-160) then
tmp = c * (z * ((t * i) - (y0 * y3)))
else if (b <= 2.7d-131) then
tmp = t_5
else if (b <= 2.5d-90) then
tmp = a * (y2 * ((t * y5) - (x * y1)))
else if (b <= 1.04d-41) then
tmp = t_3
else if (b <= 4.8d+172) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
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 = y2 * ((c * y0) - (a * y1));
double t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_3 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
double t_4 = y5 * ((y * i) - (y0 * y2));
double t_5 = k * (z * ((b * y0) + ((t_4 / z) - (i * y1))));
double tmp;
if (b <= -1.32e+184) {
tmp = t_2;
} else if (b <= -3.6e+109) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -2.15e+39) {
tmp = t_5;
} else if (b <= -6.8e-211) {
tmp = t_3;
} else if (b <= -2.3e-246) {
tmp = x * (((y * ((a * b) - (c * i))) + t_1) + (j * ((i * y1) - (b * y0))));
} else if (b <= 1.1e-270) {
tmp = k * t_4;
} else if (b <= 4.8e-170) {
tmp = x * t_1;
} else if (b <= 4e-160) {
tmp = c * (z * ((t * i) - (y0 * y3)));
} else if (b <= 2.7e-131) {
tmp = t_5;
} else if (b <= 2.5e-90) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (b <= 1.04e-41) {
tmp = t_3;
} else if (b <= 4.8e+172) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} 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 = y2 * ((c * y0) - (a * y1)) t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) t_3 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))) t_4 = y5 * ((y * i) - (y0 * y2)) t_5 = k * (z * ((b * y0) + ((t_4 / z) - (i * y1)))) tmp = 0 if b <= -1.32e+184: tmp = t_2 elif b <= -3.6e+109: tmp = a * (z * ((y1 * y3) - (t * b))) elif b <= -2.15e+39: tmp = t_5 elif b <= -6.8e-211: tmp = t_3 elif b <= -2.3e-246: tmp = x * (((y * ((a * b) - (c * i))) + t_1) + (j * ((i * y1) - (b * y0)))) elif b <= 1.1e-270: tmp = k * t_4 elif b <= 4.8e-170: tmp = x * t_1 elif b <= 4e-160: tmp = c * (z * ((t * i) - (y0 * y3))) elif b <= 2.7e-131: tmp = t_5 elif b <= 2.5e-90: tmp = a * (y2 * ((t * y5) - (x * y1))) elif b <= 1.04e-41: tmp = t_3 elif b <= 4.8e+172: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) 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(y2 * Float64(Float64(c * y0) - Float64(a * y1))) 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(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))) t_4 = Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) t_5 = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(t_4 / z) - Float64(i * y1))))) tmp = 0.0 if (b <= -1.32e+184) tmp = t_2; elseif (b <= -3.6e+109) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (b <= -2.15e+39) tmp = t_5; elseif (b <= -6.8e-211) tmp = t_3; elseif (b <= -2.3e-246) tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + t_1) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0))))); elseif (b <= 1.1e-270) tmp = Float64(k * t_4); elseif (b <= 4.8e-170) tmp = Float64(x * t_1); elseif (b <= 4e-160) tmp = Float64(c * Float64(z * Float64(Float64(t * i) - Float64(y0 * y3)))); elseif (b <= 2.7e-131) tmp = t_5; elseif (b <= 2.5e-90) tmp = Float64(a * Float64(y2 * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (b <= 1.04e-41) tmp = t_3; elseif (b <= 4.8e+172) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))); 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 = y2 * ((c * y0) - (a * y1)); t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); t_3 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))); t_4 = y5 * ((y * i) - (y0 * y2)); t_5 = k * (z * ((b * y0) + ((t_4 / z) - (i * y1)))); tmp = 0.0; if (b <= -1.32e+184) tmp = t_2; elseif (b <= -3.6e+109) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (b <= -2.15e+39) tmp = t_5; elseif (b <= -6.8e-211) tmp = t_3; elseif (b <= -2.3e-246) tmp = x * (((y * ((a * b) - (c * i))) + t_1) + (j * ((i * y1) - (b * y0)))); elseif (b <= 1.1e-270) tmp = k * t_4; elseif (b <= 4.8e-170) tmp = x * t_1; elseif (b <= 4e-160) tmp = c * (z * ((t * i) - (y0 * y3))); elseif (b <= 2.7e-131) tmp = t_5; elseif (b <= 2.5e-90) tmp = a * (y2 * ((t * y5) - (x * y1))); elseif (b <= 1.04e-41) tmp = t_3; elseif (b <= 4.8e+172) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); 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[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $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[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(t$95$4 / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -1.32e+184], t$95$2, If[LessEqual[b, -3.6e+109], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2.15e+39], t$95$5, If[LessEqual[b, -6.8e-211], t$95$3, If[LessEqual[b, -2.3e-246], N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + N[(j * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.1e-270], N[(k * t$95$4), $MachinePrecision], If[LessEqual[b, 4.8e-170], N[(x * t$95$1), $MachinePrecision], If[LessEqual[b, 4e-160], N[(c * N[(z * N[(N[(t * i), $MachinePrecision] - N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.7e-131], t$95$5, If[LessEqual[b, 2.5e-90], N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.04e-41], t$95$3, If[LessEqual[b, 4.8e+172], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $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], t$95$2]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y2 \cdot \left(c \cdot y0 - a \cdot y1\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 := c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_4 := y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\\
t_5 := k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{t\_4}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{if}\;b \leq -1.32 \cdot 10^{+184}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;b \leq -3.6 \cdot 10^{+109}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;b \leq -2.15 \cdot 10^{+39}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;b \leq -6.8 \cdot 10^{-211}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;b \leq -2.3 \cdot 10^{-246}:\\
\;\;\;\;x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + t\_1\right) + j \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq 1.1 \cdot 10^{-270}:\\
\;\;\;\;k \cdot t\_4\\
\mathbf{elif}\;b \leq 4.8 \cdot 10^{-170}:\\
\;\;\;\;x \cdot t\_1\\
\mathbf{elif}\;b \leq 4 \cdot 10^{-160}:\\
\;\;\;\;c \cdot \left(z \cdot \left(t \cdot i - y0 \cdot y3\right)\right)\\
\mathbf{elif}\;b \leq 2.7 \cdot 10^{-131}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;b \leq 2.5 \cdot 10^{-90}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;b \leq 1.04 \cdot 10^{-41}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;b \leq 4.8 \cdot 10^{+172}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if b < -1.32000000000000004e184 or 4.8000000000000001e172 < b Initial program 26.3%
Taylor expanded in b around inf 69.1%
if -1.32000000000000004e184 < b < -3.6e109Initial program 31.3%
Taylor expanded in a around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in z around -inf 81.7%
mul-1-neg81.7%
Simplified81.7%
if -3.6e109 < b < -2.15e39 or 4e-160 < b < 2.70000000000000021e-131Initial program 23.4%
Taylor expanded in k around inf 69.6%
+-commutative69.6%
mul-1-neg69.6%
unsub-neg69.6%
*-commutative69.6%
associate-*r*69.6%
neg-mul-169.6%
Simplified69.6%
Taylor expanded in z around -inf 84.6%
associate-*r*84.6%
neg-mul-184.6%
+-commutative84.6%
mul-1-neg84.6%
unsub-neg84.6%
Simplified84.6%
Taylor expanded in y5 around -inf 84.9%
if -2.15e39 < b < -6.8000000000000002e-211 or 2.5000000000000001e-90 < b < 1.04e-41Initial program 28.3%
Taylor expanded in c around inf 59.2%
+-commutative59.2%
mul-1-neg59.2%
unsub-neg59.2%
*-commutative59.2%
*-commutative59.2%
*-commutative59.2%
*-commutative59.2%
Simplified59.2%
if -6.8000000000000002e-211 < b < -2.2999999999999998e-246Initial program 16.7%
Taylor expanded in x around inf 84.0%
if -2.2999999999999998e-246 < b < 1.0999999999999999e-270Initial program 15.7%
Taylor expanded in k around inf 37.4%
+-commutative37.4%
mul-1-neg37.4%
unsub-neg37.4%
*-commutative37.4%
associate-*r*37.4%
neg-mul-137.4%
Simplified37.4%
Taylor expanded in y5 around -inf 53.1%
associate-*r*53.1%
neg-mul-153.1%
Simplified53.1%
if 1.0999999999999999e-270 < b < 4.7999999999999999e-170Initial program 22.6%
Taylor expanded in x around inf 45.8%
Taylor expanded in y2 around inf 51.7%
if 4.7999999999999999e-170 < b < 4e-160Initial program 20.0%
Taylor expanded in z around -inf 0.9%
Taylor expanded in c around inf 60.9%
+-commutative60.9%
mul-1-neg60.9%
unsub-neg60.9%
Simplified60.9%
if 2.70000000000000021e-131 < b < 2.5000000000000001e-90Initial program 12.5%
Taylor expanded in a around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
unsub-neg37.5%
*-commutative37.5%
*-commutative37.5%
*-commutative37.5%
mul-1-neg37.5%
*-commutative37.5%
Simplified37.5%
Taylor expanded in y2 around inf 75.1%
if 1.04e-41 < b < 4.8000000000000001e172Initial program 32.7%
Taylor expanded in t around inf 47.6%
+-commutative47.6%
mul-1-neg47.6%
unsub-neg47.6%
*-commutative47.6%
Simplified47.6%
Final simplification62.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* b y4) (* i y5)))
(t_2
(*
t
(+
(+ (* j t_1) (* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4))))))
(t_3 (- (* i y1) (* b y0)))
(t_4 (* j (+ (+ (* t t_1) (* y3 (- (* y0 y5) (* y1 y4)))) (* x t_3)))))
(if (<= x -1.38e+32)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= x -2.75e-36)
(*
y0
(-
(+ (* c (- (* x y2) (* z y3))) (* y5 (- (* j y3) (* k y2))))
(* b (- (* x j) (* z k)))))
(if (<= x -1.75e-240)
t_2
(if (<= x -4.2e-272)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= x 6.6e-282)
(* b (* y (* x (- a (* k (/ y4 x))))))
(if (<= x 2.6e-200)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= x 5e-121)
(* a (* t (* y5 (- y2 (* b (/ z y5))))))
(if (<= x 4.8e-114)
t_4
(if (<= x 4.2e-91)
t_2
(if (<= x 9.5e+102)
t_4
(if (<= x 1.46e+209)
(*
x
(+
(+
(* y (- (* a b) (* c i)))
(* y2 (- (* c y0) (* a y1))))
(* j t_3)))
(* a (* y1 (- (* z y3) (* x 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 = (b * y4) - (i * y5);
double t_2 = t * (((j * t_1) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
double t_3 = (i * y1) - (b * y0);
double t_4 = j * (((t * t_1) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3));
double tmp;
if (x <= -1.38e+32) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (x <= -2.75e-36) {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) - (b * ((x * j) - (z * k))));
} else if (x <= -1.75e-240) {
tmp = t_2;
} else if (x <= -4.2e-272) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (x <= 6.6e-282) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (x <= 2.6e-200) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (x <= 5e-121) {
tmp = a * (t * (y5 * (y2 - (b * (z / y5)))));
} else if (x <= 4.8e-114) {
tmp = t_4;
} else if (x <= 4.2e-91) {
tmp = t_2;
} else if (x <= 9.5e+102) {
tmp = t_4;
} else if (x <= 1.46e+209) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3));
} else {
tmp = a * (y1 * ((z * y3) - (x * 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 = (b * y4) - (i * y5)
t_2 = t * (((j * t_1) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
t_3 = (i * y1) - (b * y0)
t_4 = j * (((t * t_1) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3))
if (x <= (-1.38d+32)) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (x <= (-2.75d-36)) then
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) - (b * ((x * j) - (z * k))))
else if (x <= (-1.75d-240)) then
tmp = t_2
else if (x <= (-4.2d-272)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (x <= 6.6d-282) then
tmp = b * (y * (x * (a - (k * (y4 / x)))))
else if (x <= 2.6d-200) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (x <= 5d-121) then
tmp = a * (t * (y5 * (y2 - (b * (z / y5)))))
else if (x <= 4.8d-114) then
tmp = t_4
else if (x <= 4.2d-91) then
tmp = t_2
else if (x <= 9.5d+102) then
tmp = t_4
else if (x <= 1.46d+209) then
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3))
else
tmp = a * (y1 * ((z * y3) - (x * 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 = (b * y4) - (i * y5);
double t_2 = t * (((j * t_1) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
double t_3 = (i * y1) - (b * y0);
double t_4 = j * (((t * t_1) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3));
double tmp;
if (x <= -1.38e+32) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (x <= -2.75e-36) {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) - (b * ((x * j) - (z * k))));
} else if (x <= -1.75e-240) {
tmp = t_2;
} else if (x <= -4.2e-272) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (x <= 6.6e-282) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (x <= 2.6e-200) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (x <= 5e-121) {
tmp = a * (t * (y5 * (y2 - (b * (z / y5)))));
} else if (x <= 4.8e-114) {
tmp = t_4;
} else if (x <= 4.2e-91) {
tmp = t_2;
} else if (x <= 9.5e+102) {
tmp = t_4;
} else if (x <= 1.46e+209) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3));
} else {
tmp = a * (y1 * ((z * y3) - (x * y2)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (b * y4) - (i * y5) t_2 = t * (((j * t_1) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) t_3 = (i * y1) - (b * y0) t_4 = j * (((t * t_1) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3)) tmp = 0 if x <= -1.38e+32: tmp = a * (x * ((y * b) - (y1 * y2))) elif x <= -2.75e-36: tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) - (b * ((x * j) - (z * k)))) elif x <= -1.75e-240: tmp = t_2 elif x <= -4.2e-272: tmp = a * (z * ((y1 * y3) - (t * b))) elif x <= 6.6e-282: tmp = b * (y * (x * (a - (k * (y4 / x))))) elif x <= 2.6e-200: tmp = c * (y4 * ((y * y3) - (t * y2))) elif x <= 5e-121: tmp = a * (t * (y5 * (y2 - (b * (z / y5))))) elif x <= 4.8e-114: tmp = t_4 elif x <= 4.2e-91: tmp = t_2 elif x <= 9.5e+102: tmp = t_4 elif x <= 1.46e+209: tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3)) else: tmp = a * (y1 * ((z * y3) - (x * y2))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(b * y4) - Float64(i * y5)) t_2 = Float64(t * Float64(Float64(Float64(j * t_1) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))) t_3 = Float64(Float64(i * y1) - Float64(b * y0)) t_4 = Float64(j * Float64(Float64(Float64(t * t_1) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * t_3))) tmp = 0.0 if (x <= -1.38e+32) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (x <= -2.75e-36) 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 * Float64(Float64(x * j) - Float64(z * k))))); elseif (x <= -1.75e-240) tmp = t_2; elseif (x <= -4.2e-272) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (x <= 6.6e-282) tmp = Float64(b * Float64(y * Float64(x * Float64(a - Float64(k * Float64(y4 / x)))))); elseif (x <= 2.6e-200) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (x <= 5e-121) tmp = Float64(a * Float64(t * Float64(y5 * Float64(y2 - Float64(b * Float64(z / y5)))))); elseif (x <= 4.8e-114) tmp = t_4; elseif (x <= 4.2e-91) tmp = t_2; elseif (x <= 9.5e+102) tmp = t_4; elseif (x <= 1.46e+209) tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(j * t_3))); else tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * 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 = (b * y4) - (i * y5); t_2 = t * (((j * t_1) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); t_3 = (i * y1) - (b * y0); t_4 = j * (((t * t_1) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3)); tmp = 0.0; if (x <= -1.38e+32) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (x <= -2.75e-36) tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) - (b * ((x * j) - (z * k)))); elseif (x <= -1.75e-240) tmp = t_2; elseif (x <= -4.2e-272) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (x <= 6.6e-282) tmp = b * (y * (x * (a - (k * (y4 / x))))); elseif (x <= 2.6e-200) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (x <= 5e-121) tmp = a * (t * (y5 * (y2 - (b * (z / y5))))); elseif (x <= 4.8e-114) tmp = t_4; elseif (x <= 4.2e-91) tmp = t_2; elseif (x <= 9.5e+102) tmp = t_4; elseif (x <= 1.46e+209) tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3)); else tmp = a * (y1 * ((z * y3) - (x * 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[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t * N[(N[(N[(j * t$95$1), $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]}, Block[{t$95$3 = N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(j * N[(N[(N[(t * t$95$1), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.38e+32], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -2.75e-36], 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 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -1.75e-240], t$95$2, If[LessEqual[x, -4.2e-272], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.6e-282], N[(b * N[(y * N[(x * N[(a - N[(k * N[(y4 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.6e-200], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 5e-121], N[(a * N[(t * N[(y5 * N[(y2 - N[(b * N[(z / y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4.8e-114], t$95$4, If[LessEqual[x, 4.2e-91], t$95$2, If[LessEqual[x, 9.5e+102], t$95$4, If[LessEqual[x, 1.46e+209], N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot y4 - i \cdot y5\\
t_2 := t \cdot \left(\left(j \cdot t\_1 + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
t_3 := i \cdot y1 - b \cdot y0\\
t_4 := j \cdot \left(\left(t \cdot t\_1 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot t\_3\right)\\
\mathbf{if}\;x \leq -1.38 \cdot 10^{+32}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq -2.75 \cdot 10^{-36}:\\
\;\;\;\;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 \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{elif}\;x \leq -1.75 \cdot 10^{-240}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq -4.2 \cdot 10^{-272}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;x \leq 6.6 \cdot 10^{-282}:\\
\;\;\;\;b \cdot \left(y \cdot \left(x \cdot \left(a - k \cdot \frac{y4}{x}\right)\right)\right)\\
\mathbf{elif}\;x \leq 2.6 \cdot 10^{-200}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq 5 \cdot 10^{-121}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y5 \cdot \left(y2 - b \cdot \frac{z}{y5}\right)\right)\right)\\
\mathbf{elif}\;x \leq 4.8 \cdot 10^{-114}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;x \leq 4.2 \cdot 10^{-91}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 9.5 \cdot 10^{+102}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;x \leq 1.46 \cdot 10^{+209}:\\
\;\;\;\;x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + j \cdot t\_3\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\end{array}
\end{array}
if x < -1.38e32Initial program 18.2%
Taylor expanded in a around inf 46.3%
+-commutative46.3%
mul-1-neg46.3%
unsub-neg46.3%
*-commutative46.3%
*-commutative46.3%
*-commutative46.3%
mul-1-neg46.3%
*-commutative46.3%
Simplified46.3%
Taylor expanded in x around inf 56.6%
if -1.38e32 < x < -2.74999999999999992e-36Initial program 31.8%
Taylor expanded in y0 around inf 70.1%
+-commutative70.1%
mul-1-neg70.1%
unsub-neg70.1%
*-commutative70.1%
*-commutative70.1%
*-commutative70.1%
*-commutative70.1%
Simplified70.1%
if -2.74999999999999992e-36 < x < -1.75000000000000008e-240 or 4.8000000000000002e-114 < x < 4.1999999999999998e-91Initial program 25.5%
Taylor expanded in t around inf 57.2%
+-commutative57.2%
mul-1-neg57.2%
unsub-neg57.2%
*-commutative57.2%
Simplified57.2%
if -1.75000000000000008e-240 < x < -4.19999999999999974e-272Initial program 0.0%
Taylor expanded in a around inf 60.0%
+-commutative60.0%
mul-1-neg60.0%
unsub-neg60.0%
*-commutative60.0%
*-commutative60.0%
*-commutative60.0%
mul-1-neg60.0%
*-commutative60.0%
Simplified60.0%
Taylor expanded in z around -inf 100.0%
mul-1-neg100.0%
Simplified100.0%
if -4.19999999999999974e-272 < x < 6.6e-282Initial program 34.0%
Taylor expanded in b around inf 43.9%
Taylor expanded in y around inf 26.2%
+-commutative26.2%
mul-1-neg26.2%
unsub-neg26.2%
Simplified26.2%
Taylor expanded in x around inf 44.2%
mul-1-neg44.2%
unsub-neg44.2%
associate-/l*53.5%
Simplified53.5%
if 6.6e-282 < x < 2.5999999999999999e-200Initial program 57.8%
Taylor expanded in y4 around inf 64.0%
Taylor expanded in c around inf 64.0%
*-commutative64.0%
*-commutative64.0%
Simplified64.0%
if 2.5999999999999999e-200 < x < 4.99999999999999989e-121Initial program 33.9%
Taylor expanded in a around inf 42.8%
+-commutative42.8%
mul-1-neg42.8%
unsub-neg42.8%
*-commutative42.8%
*-commutative42.8%
*-commutative42.8%
mul-1-neg42.8%
*-commutative42.8%
Simplified42.8%
Taylor expanded in t around inf 51.8%
+-commutative51.8%
mul-1-neg51.8%
sub-neg51.8%
Simplified51.8%
Taylor expanded in y5 around inf 51.8%
mul-1-neg51.8%
unsub-neg51.8%
associate-/l*59.9%
Simplified59.9%
if 4.99999999999999989e-121 < x < 4.8000000000000002e-114 or 4.1999999999999998e-91 < x < 9.4999999999999992e102Initial program 22.9%
Taylor expanded in j around inf 57.0%
+-commutative57.0%
mul-1-neg57.0%
unsub-neg57.0%
*-commutative57.0%
Simplified57.0%
if 9.4999999999999992e102 < x < 1.45999999999999998e209Initial program 24.3%
Taylor expanded in x around inf 72.9%
if 1.45999999999999998e209 < x Initial program 15.3%
Taylor expanded in a around inf 38.9%
+-commutative38.9%
mul-1-neg38.9%
unsub-neg38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
mul-1-neg38.9%
*-commutative38.9%
Simplified38.9%
Taylor expanded in y1 around inf 62.1%
Final simplification61.0%
(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
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 t_1))
(* y0 (- (* z k) (* x j))))))
(t_3 (- (* a y5) (* c y4)))
(t_4 (- (* c y0) (* a y1)))
(t_5 (- (* y y3) (* t y2)))
(t_6 (* y5 (- (* y i) (* y0 y2)))))
(if (<= b -6.2e+182)
t_2
(if (<= b -7.2e+108)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= b -4.1e+19)
(* k (* z (+ (* b y0) (- (/ t_6 z) (* i y1)))))
(if (<= b -9.6e-67)
(* a (* y1 (- (* z y3) (* x y2))))
(if (<= b -2.8e-212)
(* y4 (+ (+ (* b t_1) (* y1 (- (* k y2) (* j y3)))) (* c t_5)))
(if (<= b -2.25e-247)
(*
x
(+
(+ (* y (- (* a b) (* c i))) (* y2 t_4))
(* j (- (* i y1) (* b y0)))))
(if (<= b 1.55e-284)
(* k t_6)
(if (<= b 2.15e-278)
(* (* c (* y i)) (- x))
(if (<= b 2.05e-97)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x t_4))
(* t t_3)))
(if (<= b 8.5e-42)
(*
c
(+
(+
(* y0 (- (* x y2) (* z y3)))
(* i (- (* z t) (* x y))))
(* y4 t_5)))
(if (<= b 5.8e+171)
(*
t
(+
(+
(* j (- (* b y4) (* i y5)))
(* z (- (* c i) (* a b))))
(* y2 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 = (t * j) - (y * k);
double t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
double t_3 = (a * y5) - (c * y4);
double t_4 = (c * y0) - (a * y1);
double t_5 = (y * y3) - (t * y2);
double t_6 = y5 * ((y * i) - (y0 * y2));
double tmp;
if (b <= -6.2e+182) {
tmp = t_2;
} else if (b <= -7.2e+108) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -4.1e+19) {
tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1))));
} else if (b <= -9.6e-67) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (b <= -2.8e-212) {
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_5));
} else if (b <= -2.25e-247) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_4)) + (j * ((i * y1) - (b * y0))));
} else if (b <= 1.55e-284) {
tmp = k * t_6;
} else if (b <= 2.15e-278) {
tmp = (c * (y * i)) * -x;
} else if (b <= 2.05e-97) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_3));
} else if (b <= 8.5e-42) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_5));
} else if (b <= 5.8e+171) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * 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) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: tmp
t_1 = (t * j) - (y * k)
t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))))
t_3 = (a * y5) - (c * y4)
t_4 = (c * y0) - (a * y1)
t_5 = (y * y3) - (t * y2)
t_6 = y5 * ((y * i) - (y0 * y2))
if (b <= (-6.2d+182)) then
tmp = t_2
else if (b <= (-7.2d+108)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (b <= (-4.1d+19)) then
tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1))))
else if (b <= (-9.6d-67)) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else if (b <= (-2.8d-212)) then
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_5))
else if (b <= (-2.25d-247)) then
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_4)) + (j * ((i * y1) - (b * y0))))
else if (b <= 1.55d-284) then
tmp = k * t_6
else if (b <= 2.15d-278) then
tmp = (c * (y * i)) * -x
else if (b <= 2.05d-97) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_3))
else if (b <= 8.5d-42) then
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_5))
else if (b <= 5.8d+171) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * 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 = (t * j) - (y * k);
double t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
double t_3 = (a * y5) - (c * y4);
double t_4 = (c * y0) - (a * y1);
double t_5 = (y * y3) - (t * y2);
double t_6 = y5 * ((y * i) - (y0 * y2));
double tmp;
if (b <= -6.2e+182) {
tmp = t_2;
} else if (b <= -7.2e+108) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -4.1e+19) {
tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1))));
} else if (b <= -9.6e-67) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (b <= -2.8e-212) {
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_5));
} else if (b <= -2.25e-247) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_4)) + (j * ((i * y1) - (b * y0))));
} else if (b <= 1.55e-284) {
tmp = k * t_6;
} else if (b <= 2.15e-278) {
tmp = (c * (y * i)) * -x;
} else if (b <= 2.05e-97) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_3));
} else if (b <= 8.5e-42) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_5));
} else if (b <= 5.8e+171) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * 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 = (t * j) - (y * k) t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))) t_3 = (a * y5) - (c * y4) t_4 = (c * y0) - (a * y1) t_5 = (y * y3) - (t * y2) t_6 = y5 * ((y * i) - (y0 * y2)) tmp = 0 if b <= -6.2e+182: tmp = t_2 elif b <= -7.2e+108: tmp = a * (z * ((y1 * y3) - (t * b))) elif b <= -4.1e+19: tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1)))) elif b <= -9.6e-67: tmp = a * (y1 * ((z * y3) - (x * y2))) elif b <= -2.8e-212: tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_5)) elif b <= -2.25e-247: tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_4)) + (j * ((i * y1) - (b * y0)))) elif b <= 1.55e-284: tmp = k * t_6 elif b <= 2.15e-278: tmp = (c * (y * i)) * -x elif b <= 2.05e-97: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_3)) elif b <= 8.5e-42: tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_5)) elif b <= 5.8e+171: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * 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(Float64(t * j) - Float64(y * k)) t_2 = 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))))) t_3 = Float64(Float64(a * y5) - Float64(c * y4)) t_4 = Float64(Float64(c * y0) - Float64(a * y1)) t_5 = Float64(Float64(y * y3) - Float64(t * y2)) t_6 = Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) tmp = 0.0 if (b <= -6.2e+182) tmp = t_2; elseif (b <= -7.2e+108) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (b <= -4.1e+19) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(t_6 / z) - Float64(i * y1))))); elseif (b <= -9.6e-67) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); elseif (b <= -2.8e-212) tmp = Float64(y4 * Float64(Float64(Float64(b * t_1) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * t_5))); elseif (b <= -2.25e-247) tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * t_4)) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0))))); elseif (b <= 1.55e-284) tmp = Float64(k * t_6); elseif (b <= 2.15e-278) tmp = Float64(Float64(c * Float64(y * i)) * Float64(-x)); elseif (b <= 2.05e-97) tmp = Float64(y2 * Float64(Float64(Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(x * t_4)) + Float64(t * t_3))); elseif (b <= 8.5e-42) tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * t_5))); elseif (b <= 5.8e+171) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * 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 = (t * j) - (y * k); t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))); t_3 = (a * y5) - (c * y4); t_4 = (c * y0) - (a * y1); t_5 = (y * y3) - (t * y2); t_6 = y5 * ((y * i) - (y0 * y2)); tmp = 0.0; if (b <= -6.2e+182) tmp = t_2; elseif (b <= -7.2e+108) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (b <= -4.1e+19) tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1)))); elseif (b <= -9.6e-67) tmp = a * (y1 * ((z * y3) - (x * y2))); elseif (b <= -2.8e-212) tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_5)); elseif (b <= -2.25e-247) tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_4)) + (j * ((i * y1) - (b * y0)))); elseif (b <= 1.55e-284) tmp = k * t_6; elseif (b <= 2.15e-278) tmp = (c * (y * i)) * -x; elseif (b <= 2.05e-97) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_4)) + (t * t_3)); elseif (b <= 8.5e-42) tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_5)); elseif (b <= 5.8e+171) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * 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[(N[(t * j), $MachinePrecision] - N[(y * k), $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 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -6.2e+182], t$95$2, If[LessEqual[b, -7.2e+108], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -4.1e+19], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(t$95$6 / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -9.6e-67], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2.8e-212], 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 * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2.25e-247], N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$4), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.55e-284], N[(k * t$95$6), $MachinePrecision], If[LessEqual[b, 2.15e-278], N[(N[(c * N[(y * i), $MachinePrecision]), $MachinePrecision] * (-x)), $MachinePrecision], If[LessEqual[b, 2.05e-97], 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$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 8.5e-42], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 5.8e+171], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := 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)\\
t_3 := a \cdot y5 - c \cdot y4\\
t_4 := c \cdot y0 - a \cdot y1\\
t_5 := y \cdot y3 - t \cdot y2\\
t_6 := y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\\
\mathbf{if}\;b \leq -6.2 \cdot 10^{+182}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;b \leq -7.2 \cdot 10^{+108}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;b \leq -4.1 \cdot 10^{+19}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{t\_6}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{elif}\;b \leq -9.6 \cdot 10^{-67}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq -2.8 \cdot 10^{-212}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_1 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot t\_5\right)\\
\mathbf{elif}\;b \leq -2.25 \cdot 10^{-247}:\\
\;\;\;\;x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + y2 \cdot t\_4\right) + j \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq 1.55 \cdot 10^{-284}:\\
\;\;\;\;k \cdot t\_6\\
\mathbf{elif}\;b \leq 2.15 \cdot 10^{-278}:\\
\;\;\;\;\left(c \cdot \left(y \cdot i\right)\right) \cdot \left(-x\right)\\
\mathbf{elif}\;b \leq 2.05 \cdot 10^{-97}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + x \cdot t\_4\right) + t \cdot t\_3\right)\\
\mathbf{elif}\;b \leq 8.5 \cdot 10^{-42}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot t\_5\right)\\
\mathbf{elif}\;b \leq 5.8 \cdot 10^{+171}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot t\_3\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if b < -6.19999999999999993e182 or 5.79999999999999969e171 < b Initial program 26.3%
Taylor expanded in b around inf 69.1%
if -6.19999999999999993e182 < b < -7.2e108Initial program 31.3%
Taylor expanded in a around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in z around -inf 81.7%
mul-1-neg81.7%
Simplified81.7%
if -7.2e108 < b < -4.1e19Initial program 7.7%
Taylor expanded in k around inf 54.4%
+-commutative54.4%
mul-1-neg54.4%
unsub-neg54.4%
*-commutative54.4%
associate-*r*54.4%
neg-mul-154.4%
Simplified54.4%
Taylor expanded in z around -inf 69.2%
associate-*r*69.2%
neg-mul-169.2%
+-commutative69.2%
mul-1-neg69.2%
unsub-neg69.2%
Simplified69.2%
Taylor expanded in y5 around -inf 77.4%
if -4.1e19 < b < -9.6e-67Initial program 28.6%
Taylor expanded in a around inf 78.8%
+-commutative78.8%
mul-1-neg78.8%
unsub-neg78.8%
*-commutative78.8%
*-commutative78.8%
*-commutative78.8%
mul-1-neg78.8%
*-commutative78.8%
Simplified78.8%
Taylor expanded in y1 around inf 65.4%
if -9.6e-67 < b < -2.80000000000000014e-212Initial program 22.7%
Taylor expanded in y4 around inf 67.2%
if -2.80000000000000014e-212 < b < -2.2500000000000001e-247Initial program 16.7%
Taylor expanded in x around inf 84.0%
if -2.2500000000000001e-247 < b < 1.5499999999999999e-284Initial program 21.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 y5 around -inf 57.5%
associate-*r*57.5%
neg-mul-157.5%
Simplified57.5%
if 1.5499999999999999e-284 < b < 2.15e-278Initial program 0.0%
Taylor expanded in x around inf 50.6%
Taylor expanded in y around inf 75.6%
Taylor expanded in a around 0 75.6%
mul-1-neg75.6%
Simplified75.6%
if 2.15e-278 < b < 2.04999999999999996e-97Initial program 26.0%
Taylor expanded in y2 around inf 47.2%
if 2.04999999999999996e-97 < b < 8.4999999999999996e-42Initial program 36.0%
Taylor expanded in c around inf 76.8%
+-commutative76.8%
mul-1-neg76.8%
unsub-neg76.8%
*-commutative76.8%
*-commutative76.8%
*-commutative76.8%
*-commutative76.8%
Simplified76.8%
if 8.4999999999999996e-42 < b < 5.79999999999999969e171Initial program 32.7%
Taylor expanded in t around inf 47.6%
+-commutative47.6%
mul-1-neg47.6%
unsub-neg47.6%
*-commutative47.6%
Simplified47.6%
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 j) (* y k)))
(t_2 (- (* y y3) (* t y2)))
(t_3 (- (* x y) (* z t)))
(t_4 (* b (+ (+ (* a t_3) (* y4 t_1)) (* y0 (- (* z k) (* x j))))))
(t_5 (- (* a y5) (* c y4)))
(t_6 (* y5 (- (* y i) (* y0 y2))))
(t_7 (- (* c y0) (* a y1))))
(if (<= b -1e+183)
t_4
(if (<= b -3.45e+106)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= b -1.6e+26)
(* k (* z (+ (* b y0) (- (/ t_6 z) (* i y1)))))
(if (<= b -8.5e-67)
(*
a
(+
(+ (* b t_3) (* y1 (- (* z y3) (* x y2))))
(* y5 (- (* t y2) (* y y3)))))
(if (<= b -1.42e-210)
(* y4 (+ (+ (* b t_1) (* y1 (- (* k y2) (* j y3)))) (* c t_2)))
(if (<= b -4.4e-247)
(*
x
(+
(+ (* y (- (* a b) (* c i))) (* y2 t_7))
(* j (- (* i y1) (* b y0)))))
(if (<= b 4.1e-286)
(* k t_6)
(if (<= b 2.15e-278)
(* (* c (* y i)) (- x))
(if (<= b 3.4e-100)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x t_7))
(* t t_5)))
(if (<= b 9.2e-42)
(*
c
(+
(+
(* y0 (- (* x y2) (* z y3)))
(* i (- (* z t) (* x y))))
(* y4 t_2)))
(if (<= b 4.2e+171)
(*
t
(+
(+
(* j (- (* b y4) (* i y5)))
(* z (- (* c i) (* a b))))
(* y2 t_5)))
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 = (y * y3) - (t * y2);
double t_3 = (x * y) - (z * t);
double t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
double t_5 = (a * y5) - (c * y4);
double t_6 = y5 * ((y * i) - (y0 * y2));
double t_7 = (c * y0) - (a * y1);
double tmp;
if (b <= -1e+183) {
tmp = t_4;
} else if (b <= -3.45e+106) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -1.6e+26) {
tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1))));
} else if (b <= -8.5e-67) {
tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
} else if (b <= -1.42e-210) {
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2));
} else if (b <= -4.4e-247) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_7)) + (j * ((i * y1) - (b * y0))));
} else if (b <= 4.1e-286) {
tmp = k * t_6;
} else if (b <= 2.15e-278) {
tmp = (c * (y * i)) * -x;
} else if (b <= 3.4e-100) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_7)) + (t * t_5));
} else if (b <= 9.2e-42) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2));
} else if (b <= 4.2e+171) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_5));
} 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) :: tmp
t_1 = (t * j) - (y * k)
t_2 = (y * y3) - (t * y2)
t_3 = (x * y) - (z * t)
t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))))
t_5 = (a * y5) - (c * y4)
t_6 = y5 * ((y * i) - (y0 * y2))
t_7 = (c * y0) - (a * y1)
if (b <= (-1d+183)) then
tmp = t_4
else if (b <= (-3.45d+106)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (b <= (-1.6d+26)) then
tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1))))
else if (b <= (-8.5d-67)) then
tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))))
else if (b <= (-1.42d-210)) then
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2))
else if (b <= (-4.4d-247)) then
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_7)) + (j * ((i * y1) - (b * y0))))
else if (b <= 4.1d-286) then
tmp = k * t_6
else if (b <= 2.15d-278) then
tmp = (c * (y * i)) * -x
else if (b <= 3.4d-100) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_7)) + (t * t_5))
else if (b <= 9.2d-42) then
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2))
else if (b <= 4.2d+171) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_5))
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 = (y * y3) - (t * y2);
double t_3 = (x * y) - (z * t);
double t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
double t_5 = (a * y5) - (c * y4);
double t_6 = y5 * ((y * i) - (y0 * y2));
double t_7 = (c * y0) - (a * y1);
double tmp;
if (b <= -1e+183) {
tmp = t_4;
} else if (b <= -3.45e+106) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -1.6e+26) {
tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1))));
} else if (b <= -8.5e-67) {
tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
} else if (b <= -1.42e-210) {
tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2));
} else if (b <= -4.4e-247) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_7)) + (j * ((i * y1) - (b * y0))));
} else if (b <= 4.1e-286) {
tmp = k * t_6;
} else if (b <= 2.15e-278) {
tmp = (c * (y * i)) * -x;
} else if (b <= 3.4e-100) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_7)) + (t * t_5));
} else if (b <= 9.2e-42) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2));
} else if (b <= 4.2e+171) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_5));
} 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 = (y * y3) - (t * y2) t_3 = (x * y) - (z * t) t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))) t_5 = (a * y5) - (c * y4) t_6 = y5 * ((y * i) - (y0 * y2)) t_7 = (c * y0) - (a * y1) tmp = 0 if b <= -1e+183: tmp = t_4 elif b <= -3.45e+106: tmp = a * (z * ((y1 * y3) - (t * b))) elif b <= -1.6e+26: tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1)))) elif b <= -8.5e-67: tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3)))) elif b <= -1.42e-210: tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2)) elif b <= -4.4e-247: tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_7)) + (j * ((i * y1) - (b * y0)))) elif b <= 4.1e-286: tmp = k * t_6 elif b <= 2.15e-278: tmp = (c * (y * i)) * -x elif b <= 3.4e-100: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_7)) + (t * t_5)) elif b <= 9.2e-42: tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2)) elif b <= 4.2e+171: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_5)) 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(y * y3) - Float64(t * y2)) t_3 = Float64(Float64(x * y) - Float64(z * t)) t_4 = Float64(b * Float64(Float64(Float64(a * t_3) + Float64(y4 * t_1)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) t_5 = Float64(Float64(a * y5) - Float64(c * y4)) t_6 = Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) t_7 = Float64(Float64(c * y0) - Float64(a * y1)) tmp = 0.0 if (b <= -1e+183) tmp = t_4; elseif (b <= -3.45e+106) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (b <= -1.6e+26) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(t_6 / z) - Float64(i * y1))))); elseif (b <= -8.5e-67) tmp = Float64(a * Float64(Float64(Float64(b * t_3) + Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) + Float64(y5 * Float64(Float64(t * y2) - Float64(y * y3))))); elseif (b <= -1.42e-210) tmp = Float64(y4 * Float64(Float64(Float64(b * t_1) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * t_2))); elseif (b <= -4.4e-247) tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * t_7)) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0))))); elseif (b <= 4.1e-286) tmp = Float64(k * t_6); elseif (b <= 2.15e-278) tmp = Float64(Float64(c * Float64(y * i)) * Float64(-x)); elseif (b <= 3.4e-100) tmp = Float64(y2 * Float64(Float64(Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(x * t_7)) + Float64(t * t_5))); elseif (b <= 9.2e-42) tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * t_2))); elseif (b <= 4.2e+171) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * t_5))); 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 = (y * y3) - (t * y2); t_3 = (x * y) - (z * t); t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))); t_5 = (a * y5) - (c * y4); t_6 = y5 * ((y * i) - (y0 * y2)); t_7 = (c * y0) - (a * y1); tmp = 0.0; if (b <= -1e+183) tmp = t_4; elseif (b <= -3.45e+106) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (b <= -1.6e+26) tmp = k * (z * ((b * y0) + ((t_6 / z) - (i * y1)))); elseif (b <= -8.5e-67) tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3)))); elseif (b <= -1.42e-210) tmp = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2)); elseif (b <= -4.4e-247) tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_7)) + (j * ((i * y1) - (b * y0)))); elseif (b <= 4.1e-286) tmp = k * t_6; elseif (b <= 2.15e-278) tmp = (c * (y * i)) * -x; elseif (b <= 3.4e-100) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_7)) + (t * t_5)); elseif (b <= 9.2e-42) tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2)); elseif (b <= 4.2e+171) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_5)); 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[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(b * N[(N[(N[(a * t$95$3), $MachinePrecision] + N[(y4 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -1e+183], t$95$4, If[LessEqual[b, -3.45e+106], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.6e+26], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(t$95$6 / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -8.5e-67], N[(a * N[(N[(N[(b * t$95$3), $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[b, -1.42e-210], 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 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -4.4e-247], N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$7), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 4.1e-286], N[(k * t$95$6), $MachinePrecision], If[LessEqual[b, 2.15e-278], N[(N[(c * N[(y * i), $MachinePrecision]), $MachinePrecision] * (-x)), $MachinePrecision], If[LessEqual[b, 3.4e-100], N[(y2 * N[(N[(N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$7), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 9.2e-42], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 4.2e+171], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$4]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := y \cdot y3 - t \cdot y2\\
t_3 := x \cdot y - z \cdot t\\
t_4 := b \cdot \left(\left(a \cdot t\_3 + y4 \cdot t\_1\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
t_5 := a \cdot y5 - c \cdot y4\\
t_6 := y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\\
t_7 := c \cdot y0 - a \cdot y1\\
\mathbf{if}\;b \leq -1 \cdot 10^{+183}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;b \leq -3.45 \cdot 10^{+106}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;b \leq -1.6 \cdot 10^{+26}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{t\_6}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{elif}\;b \leq -8.5 \cdot 10^{-67}:\\
\;\;\;\;a \cdot \left(\left(b \cdot t\_3 + y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right) + y5 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\
\mathbf{elif}\;b \leq -1.42 \cdot 10^{-210}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_1 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot t\_2\right)\\
\mathbf{elif}\;b \leq -4.4 \cdot 10^{-247}:\\
\;\;\;\;x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + y2 \cdot t\_7\right) + j \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq 4.1 \cdot 10^{-286}:\\
\;\;\;\;k \cdot t\_6\\
\mathbf{elif}\;b \leq 2.15 \cdot 10^{-278}:\\
\;\;\;\;\left(c \cdot \left(y \cdot i\right)\right) \cdot \left(-x\right)\\
\mathbf{elif}\;b \leq 3.4 \cdot 10^{-100}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + x \cdot t\_7\right) + t \cdot t\_5\right)\\
\mathbf{elif}\;b \leq 9.2 \cdot 10^{-42}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot t\_2\right)\\
\mathbf{elif}\;b \leq 4.2 \cdot 10^{+171}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot t\_5\right)\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if b < -9.99999999999999947e182 or 4.2000000000000003e171 < b Initial program 26.3%
Taylor expanded in b around inf 69.1%
if -9.99999999999999947e182 < b < -3.4499999999999999e106Initial program 31.3%
Taylor expanded in a around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in z around -inf 81.7%
mul-1-neg81.7%
Simplified81.7%
if -3.4499999999999999e106 < b < -1.60000000000000014e26Initial program 9.1%
Taylor expanded in k around inf 55.1%
+-commutative55.1%
mul-1-neg55.1%
unsub-neg55.1%
*-commutative55.1%
associate-*r*55.1%
neg-mul-155.1%
Simplified55.1%
Taylor expanded in z around -inf 72.7%
associate-*r*72.7%
neg-mul-172.7%
+-commutative72.7%
mul-1-neg72.7%
unsub-neg72.7%
Simplified72.7%
Taylor expanded in y5 around -inf 81.8%
if -1.60000000000000014e26 < b < -8.49999999999999993e-67Initial program 25.0%
Taylor expanded in a around inf 81.4%
+-commutative81.4%
mul-1-neg81.4%
unsub-neg81.4%
*-commutative81.4%
*-commutative81.4%
*-commutative81.4%
mul-1-neg81.4%
*-commutative81.4%
Simplified81.4%
if -8.49999999999999993e-67 < b < -1.41999999999999997e-210Initial program 22.7%
Taylor expanded in y4 around inf 67.2%
if -1.41999999999999997e-210 < b < -4.39999999999999983e-247Initial program 16.7%
Taylor expanded in x around inf 84.0%
if -4.39999999999999983e-247 < b < 4.1e-286Initial program 21.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 y5 around -inf 57.5%
associate-*r*57.5%
neg-mul-157.5%
Simplified57.5%
if 4.1e-286 < b < 2.15e-278Initial program 0.0%
Taylor expanded in x around inf 50.6%
Taylor expanded in y around inf 75.6%
Taylor expanded in a around 0 75.6%
mul-1-neg75.6%
Simplified75.6%
if 2.15e-278 < b < 3.39999999999999976e-100Initial program 26.0%
Taylor expanded in y2 around inf 47.2%
if 3.39999999999999976e-100 < b < 9.20000000000000015e-42Initial program 36.0%
Taylor expanded in c around inf 76.8%
+-commutative76.8%
mul-1-neg76.8%
unsub-neg76.8%
*-commutative76.8%
*-commutative76.8%
*-commutative76.8%
*-commutative76.8%
Simplified76.8%
if 9.20000000000000015e-42 < b < 4.2000000000000003e171Initial program 32.7%
Taylor expanded in t around inf 47.6%
+-commutative47.6%
mul-1-neg47.6%
unsub-neg47.6%
*-commutative47.6%
Simplified47.6%
Final simplification64.2%
(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 (- (* y y3) (* t y2)))
(t_3 (- (* x y) (* z t)))
(t_4 (* b (+ (+ (* a t_3) (* y4 t_1)) (* y0 (- (* z k) (* x j))))))
(t_5 (* y4 (+ (+ (* b t_1) (* y1 (- (* k y2) (* j y3)))) (* c t_2)))))
(if (<= b -5.5e+182)
t_4
(if (<= b -5.3e+113)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= b -2e+26)
(*
k
(* z (+ (* b y0) (- (/ (* y5 (- (* y i) (* y0 y2))) z) (* i y1)))))
(if (<= b -3.9e-67)
(*
a
(+
(+ (* b t_3) (* y1 (- (* z y3) (* x y2))))
(* y5 (- (* t y2) (* y y3)))))
(if (<= b -6.5e-213)
t_5
(if (<= b -3.3e-257)
(* k (* (* z y1) (- (* y2 (/ y4 z)) i)))
(if (<= b 1.65e-189)
(*
y
(+
(+ (* x (- (* a b) (* c i))) (* k (- (* i y5) (* b y4))))
(* y3 (- (* c y4) (* a y5)))))
(if (<= b 5.2e-123)
t_5
(if (<= b 4.4e-86)
(* a (* y3 (- (* z y1) (* y y5))))
(if (<= b 1.05e-41)
(*
c
(+
(+
(* y0 (- (* x y2) (* z y3)))
(* i (- (* z t) (* x y))))
(* y4 t_2)))
(if (<= b 3.4e+171)
(*
t
(+
(+
(* j (- (* b y4) (* i y5)))
(* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4)))))
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 = (y * y3) - (t * y2);
double t_3 = (x * y) - (z * t);
double t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
double t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2));
double tmp;
if (b <= -5.5e+182) {
tmp = t_4;
} else if (b <= -5.3e+113) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -2e+26) {
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
} else if (b <= -3.9e-67) {
tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
} else if (b <= -6.5e-213) {
tmp = t_5;
} else if (b <= -3.3e-257) {
tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i));
} else if (b <= 1.65e-189) {
tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))));
} else if (b <= 5.2e-123) {
tmp = t_5;
} else if (b <= 4.4e-86) {
tmp = a * (y3 * ((z * y1) - (y * y5)));
} else if (b <= 1.05e-41) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2));
} else if (b <= 3.4e+171) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} 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) :: tmp
t_1 = (t * j) - (y * k)
t_2 = (y * y3) - (t * y2)
t_3 = (x * y) - (z * t)
t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))))
t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2))
if (b <= (-5.5d+182)) then
tmp = t_4
else if (b <= (-5.3d+113)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (b <= (-2d+26)) then
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))))
else if (b <= (-3.9d-67)) then
tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))))
else if (b <= (-6.5d-213)) then
tmp = t_5
else if (b <= (-3.3d-257)) then
tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i))
else if (b <= 1.65d-189) then
tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))))
else if (b <= 5.2d-123) then
tmp = t_5
else if (b <= 4.4d-86) then
tmp = a * (y3 * ((z * y1) - (y * y5)))
else if (b <= 1.05d-41) then
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2))
else if (b <= 3.4d+171) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
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 = (y * y3) - (t * y2);
double t_3 = (x * y) - (z * t);
double t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
double t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2));
double tmp;
if (b <= -5.5e+182) {
tmp = t_4;
} else if (b <= -5.3e+113) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -2e+26) {
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
} else if (b <= -3.9e-67) {
tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
} else if (b <= -6.5e-213) {
tmp = t_5;
} else if (b <= -3.3e-257) {
tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i));
} else if (b <= 1.65e-189) {
tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))));
} else if (b <= 5.2e-123) {
tmp = t_5;
} else if (b <= 4.4e-86) {
tmp = a * (y3 * ((z * y1) - (y * y5)));
} else if (b <= 1.05e-41) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2));
} else if (b <= 3.4e+171) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} 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 = (y * y3) - (t * y2) t_3 = (x * y) - (z * t) t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))) t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2)) tmp = 0 if b <= -5.5e+182: tmp = t_4 elif b <= -5.3e+113: tmp = a * (z * ((y1 * y3) - (t * b))) elif b <= -2e+26: tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))) elif b <= -3.9e-67: tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3)))) elif b <= -6.5e-213: tmp = t_5 elif b <= -3.3e-257: tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i)) elif b <= 1.65e-189: tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5)))) elif b <= 5.2e-123: tmp = t_5 elif b <= 4.4e-86: tmp = a * (y3 * ((z * y1) - (y * y5))) elif b <= 1.05e-41: tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2)) elif b <= 3.4e+171: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) 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(y * y3) - Float64(t * y2)) t_3 = Float64(Float64(x * y) - Float64(z * t)) t_4 = Float64(b * Float64(Float64(Float64(a * t_3) + Float64(y4 * t_1)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) t_5 = Float64(y4 * Float64(Float64(Float64(b * t_1) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * t_2))) tmp = 0.0 if (b <= -5.5e+182) tmp = t_4; elseif (b <= -5.3e+113) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (b <= -2e+26) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) / z) - Float64(i * y1))))); elseif (b <= -3.9e-67) tmp = Float64(a * Float64(Float64(Float64(b * t_3) + Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) + Float64(y5 * Float64(Float64(t * y2) - Float64(y * y3))))); elseif (b <= -6.5e-213) tmp = t_5; elseif (b <= -3.3e-257) tmp = Float64(k * Float64(Float64(z * y1) * Float64(Float64(y2 * Float64(y4 / z)) - i))); elseif (b <= 1.65e-189) tmp = Float64(y * Float64(Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))); elseif (b <= 5.2e-123) tmp = t_5; elseif (b <= 4.4e-86) tmp = Float64(a * Float64(y3 * Float64(Float64(z * y1) - Float64(y * y5)))); elseif (b <= 1.05e-41) tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * t_2))); elseif (b <= 3.4e+171) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))); 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 = (y * y3) - (t * y2); t_3 = (x * y) - (z * t); t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))); t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2)); tmp = 0.0; if (b <= -5.5e+182) tmp = t_4; elseif (b <= -5.3e+113) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (b <= -2e+26) tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))); elseif (b <= -3.9e-67) tmp = a * (((b * t_3) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3)))); elseif (b <= -6.5e-213) tmp = t_5; elseif (b <= -3.3e-257) tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i)); elseif (b <= 1.65e-189) tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5)))); elseif (b <= 5.2e-123) tmp = t_5; elseif (b <= 4.4e-86) tmp = a * (y3 * ((z * y1) - (y * y5))); elseif (b <= 1.05e-41) tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2)); elseif (b <= 3.4e+171) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); 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[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(b * N[(N[(N[(a * t$95$3), $MachinePrecision] + N[(y4 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = 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 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -5.5e+182], t$95$4, If[LessEqual[b, -5.3e+113], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2e+26], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -3.9e-67], N[(a * N[(N[(N[(b * t$95$3), $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[b, -6.5e-213], t$95$5, If[LessEqual[b, -3.3e-257], N[(k * N[(N[(z * y1), $MachinePrecision] * N[(N[(y2 * N[(y4 / z), $MachinePrecision]), $MachinePrecision] - i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.65e-189], N[(y * N[(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] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 5.2e-123], t$95$5, If[LessEqual[b, 4.4e-86], N[(a * N[(y3 * N[(N[(z * y1), $MachinePrecision] - N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.05e-41], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 3.4e+171], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $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], t$95$4]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := y \cdot y3 - t \cdot y2\\
t_3 := x \cdot y - z \cdot t\\
t_4 := b \cdot \left(\left(a \cdot t\_3 + y4 \cdot t\_1\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
t_5 := y4 \cdot \left(\left(b \cdot t\_1 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot t\_2\right)\\
\mathbf{if}\;b \leq -5.5 \cdot 10^{+182}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;b \leq -5.3 \cdot 10^{+113}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;b \leq -2 \cdot 10^{+26}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{y5 \cdot \left(y \cdot i - y0 \cdot y2\right)}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{elif}\;b \leq -3.9 \cdot 10^{-67}:\\
\;\;\;\;a \cdot \left(\left(b \cdot t\_3 + y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right) + y5 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\
\mathbf{elif}\;b \leq -6.5 \cdot 10^{-213}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;b \leq -3.3 \cdot 10^{-257}:\\
\;\;\;\;k \cdot \left(\left(z \cdot y1\right) \cdot \left(y2 \cdot \frac{y4}{z} - i\right)\right)\\
\mathbf{elif}\;b \leq 1.65 \cdot 10^{-189}:\\
\;\;\;\;y \cdot \left(\left(x \cdot \left(a \cdot b - c \cdot i\right) + k \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;b \leq 5.2 \cdot 10^{-123}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;b \leq 4.4 \cdot 10^{-86}:\\
\;\;\;\;a \cdot \left(y3 \cdot \left(z \cdot y1 - y \cdot y5\right)\right)\\
\mathbf{elif}\;b \leq 1.05 \cdot 10^{-41}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot t\_2\right)\\
\mathbf{elif}\;b \leq 3.4 \cdot 10^{+171}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if b < -5.49999999999999977e182 or 3.4000000000000001e171 < b Initial program 26.3%
Taylor expanded in b around inf 69.1%
if -5.49999999999999977e182 < b < -5.29999999999999967e113Initial program 31.3%
Taylor expanded in a around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in z around -inf 81.7%
mul-1-neg81.7%
Simplified81.7%
if -5.29999999999999967e113 < b < -2.0000000000000001e26Initial program 9.1%
Taylor expanded in k around inf 55.1%
+-commutative55.1%
mul-1-neg55.1%
unsub-neg55.1%
*-commutative55.1%
associate-*r*55.1%
neg-mul-155.1%
Simplified55.1%
Taylor expanded in z around -inf 72.7%
associate-*r*72.7%
neg-mul-172.7%
+-commutative72.7%
mul-1-neg72.7%
unsub-neg72.7%
Simplified72.7%
Taylor expanded in y5 around -inf 81.8%
if -2.0000000000000001e26 < b < -3.8999999999999998e-67Initial program 25.0%
Taylor expanded in a around inf 81.4%
+-commutative81.4%
mul-1-neg81.4%
unsub-neg81.4%
*-commutative81.4%
*-commutative81.4%
*-commutative81.4%
mul-1-neg81.4%
*-commutative81.4%
Simplified81.4%
if -3.8999999999999998e-67 < b < -6.5e-213 or 1.65e-189 < b < 5.1999999999999999e-123Initial program 23.7%
Taylor expanded in y4 around inf 61.0%
if -6.5e-213 < b < -3.3e-257Initial program 12.5%
Taylor expanded in k around inf 38.0%
+-commutative38.0%
mul-1-neg38.0%
unsub-neg38.0%
*-commutative38.0%
associate-*r*38.0%
neg-mul-138.0%
Simplified38.0%
Taylor expanded in z around -inf 38.0%
associate-*r*38.0%
neg-mul-138.0%
+-commutative38.0%
mul-1-neg38.0%
unsub-neg38.0%
Simplified38.0%
Taylor expanded in y1 around inf 63.5%
associate-*r*63.5%
neg-mul-163.5%
associate-*r*63.5%
*-commutative63.5%
associate-/l*63.5%
Simplified63.5%
if -3.3e-257 < b < 1.65e-189Initial program 22.8%
Taylor expanded in y around inf 58.3%
+-commutative58.3%
mul-1-neg58.3%
unsub-neg58.3%
*-commutative58.3%
*-commutative58.3%
mul-1-neg58.3%
Simplified58.3%
if 5.1999999999999999e-123 < b < 4.4000000000000003e-86Initial program 16.1%
Taylor expanded in a around inf 44.3%
+-commutative44.3%
mul-1-neg44.3%
unsub-neg44.3%
*-commutative44.3%
*-commutative44.3%
*-commutative44.3%
mul-1-neg44.3%
*-commutative44.3%
Simplified44.3%
Taylor expanded in y3 around -inf 58.9%
mul-1-neg58.9%
Simplified58.9%
if 4.4000000000000003e-86 < b < 1.05000000000000006e-41Initial program 42.9%
Taylor expanded in c around inf 85.8%
+-commutative85.8%
mul-1-neg85.8%
unsub-neg85.8%
*-commutative85.8%
*-commutative85.8%
*-commutative85.8%
*-commutative85.8%
Simplified85.8%
if 1.05000000000000006e-41 < b < 3.4000000000000001e171Initial program 32.7%
Taylor expanded in t around inf 47.6%
+-commutative47.6%
mul-1-neg47.6%
unsub-neg47.6%
*-commutative47.6%
Simplified47.6%
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 (* a (* z (- (* y1 y3) (* t b)))))
(t_2 (* y5 (- (* y i) (* y0 y2))))
(t_3 (* k (* z (+ (* b y0) (- (/ t_2 z) (* i y1)))))))
(if (<= a -5.7e+282)
t_1
(if (<= a -5.2e+204)
(* a (* y2 (- (* t y5) (* x y1))))
(if (<= a -4.8e+22)
(* b (* y (* x (- a (* k (/ y4 x))))))
(if (<= a -5.5e-46)
(* k t_2)
(if (<= a -9.5e-89)
(* b (* y4 (* k (- y))))
(if (<= a -2.3e-189)
(* k (* (* z y1) (- (* y2 (/ y4 z)) i)))
(if (<= a -6.2e-270)
(*
x
(+
(- (* a (* y b)) (* a (* y1 y2)))
(* j (- (* i y1) (* b y0)))))
(if (<= a 1.26e-127)
t_3
(if (<= a 5e-100)
(* (- (* t b) (* y1 y3)) (* j y4))
(if (<= a 2.4e-23)
t_3
(if (<= a 1.8e+78)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= a 9.6e+142) t_3 t_1))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (z * ((y1 * y3) - (t * b)));
double t_2 = y5 * ((y * i) - (y0 * y2));
double t_3 = k * (z * ((b * y0) + ((t_2 / z) - (i * y1))));
double tmp;
if (a <= -5.7e+282) {
tmp = t_1;
} else if (a <= -5.2e+204) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (a <= -4.8e+22) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (a <= -5.5e-46) {
tmp = k * t_2;
} else if (a <= -9.5e-89) {
tmp = b * (y4 * (k * -y));
} else if (a <= -2.3e-189) {
tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i));
} else if (a <= -6.2e-270) {
tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))));
} else if (a <= 1.26e-127) {
tmp = t_3;
} else if (a <= 5e-100) {
tmp = ((t * b) - (y1 * y3)) * (j * y4);
} else if (a <= 2.4e-23) {
tmp = t_3;
} else if (a <= 1.8e+78) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (a <= 9.6e+142) {
tmp = t_3;
} 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 = a * (z * ((y1 * y3) - (t * b)))
t_2 = y5 * ((y * i) - (y0 * y2))
t_3 = k * (z * ((b * y0) + ((t_2 / z) - (i * y1))))
if (a <= (-5.7d+282)) then
tmp = t_1
else if (a <= (-5.2d+204)) then
tmp = a * (y2 * ((t * y5) - (x * y1)))
else if (a <= (-4.8d+22)) then
tmp = b * (y * (x * (a - (k * (y4 / x)))))
else if (a <= (-5.5d-46)) then
tmp = k * t_2
else if (a <= (-9.5d-89)) then
tmp = b * (y4 * (k * -y))
else if (a <= (-2.3d-189)) then
tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i))
else if (a <= (-6.2d-270)) then
tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))))
else if (a <= 1.26d-127) then
tmp = t_3
else if (a <= 5d-100) then
tmp = ((t * b) - (y1 * y3)) * (j * y4)
else if (a <= 2.4d-23) then
tmp = t_3
else if (a <= 1.8d+78) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (a <= 9.6d+142) then
tmp = t_3
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (z * ((y1 * y3) - (t * b)));
double t_2 = y5 * ((y * i) - (y0 * y2));
double t_3 = k * (z * ((b * y0) + ((t_2 / z) - (i * y1))));
double tmp;
if (a <= -5.7e+282) {
tmp = t_1;
} else if (a <= -5.2e+204) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (a <= -4.8e+22) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (a <= -5.5e-46) {
tmp = k * t_2;
} else if (a <= -9.5e-89) {
tmp = b * (y4 * (k * -y));
} else if (a <= -2.3e-189) {
tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i));
} else if (a <= -6.2e-270) {
tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))));
} else if (a <= 1.26e-127) {
tmp = t_3;
} else if (a <= 5e-100) {
tmp = ((t * b) - (y1 * y3)) * (j * y4);
} else if (a <= 2.4e-23) {
tmp = t_3;
} else if (a <= 1.8e+78) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (a <= 9.6e+142) {
tmp = t_3;
} 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 * (z * ((y1 * y3) - (t * b))) t_2 = y5 * ((y * i) - (y0 * y2)) t_3 = k * (z * ((b * y0) + ((t_2 / z) - (i * y1)))) tmp = 0 if a <= -5.7e+282: tmp = t_1 elif a <= -5.2e+204: tmp = a * (y2 * ((t * y5) - (x * y1))) elif a <= -4.8e+22: tmp = b * (y * (x * (a - (k * (y4 / x))))) elif a <= -5.5e-46: tmp = k * t_2 elif a <= -9.5e-89: tmp = b * (y4 * (k * -y)) elif a <= -2.3e-189: tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i)) elif a <= -6.2e-270: tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0)))) elif a <= 1.26e-127: tmp = t_3 elif a <= 5e-100: tmp = ((t * b) - (y1 * y3)) * (j * y4) elif a <= 2.4e-23: tmp = t_3 elif a <= 1.8e+78: tmp = c * (y4 * ((y * y3) - (t * y2))) elif a <= 9.6e+142: tmp = t_3 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(z * Float64(Float64(y1 * y3) - Float64(t * b)))) t_2 = Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) t_3 = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(t_2 / z) - Float64(i * y1))))) tmp = 0.0 if (a <= -5.7e+282) tmp = t_1; elseif (a <= -5.2e+204) tmp = Float64(a * Float64(y2 * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (a <= -4.8e+22) tmp = Float64(b * Float64(y * Float64(x * Float64(a - Float64(k * Float64(y4 / x)))))); elseif (a <= -5.5e-46) tmp = Float64(k * t_2); elseif (a <= -9.5e-89) tmp = Float64(b * Float64(y4 * Float64(k * Float64(-y)))); elseif (a <= -2.3e-189) tmp = Float64(k * Float64(Float64(z * y1) * Float64(Float64(y2 * Float64(y4 / z)) - i))); elseif (a <= -6.2e-270) tmp = Float64(x * Float64(Float64(Float64(a * Float64(y * b)) - Float64(a * Float64(y1 * y2))) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0))))); elseif (a <= 1.26e-127) tmp = t_3; elseif (a <= 5e-100) tmp = Float64(Float64(Float64(t * b) - Float64(y1 * y3)) * Float64(j * y4)); elseif (a <= 2.4e-23) tmp = t_3; elseif (a <= 1.8e+78) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (a <= 9.6e+142) tmp = t_3; 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 * (z * ((y1 * y3) - (t * b))); t_2 = y5 * ((y * i) - (y0 * y2)); t_3 = k * (z * ((b * y0) + ((t_2 / z) - (i * y1)))); tmp = 0.0; if (a <= -5.7e+282) tmp = t_1; elseif (a <= -5.2e+204) tmp = a * (y2 * ((t * y5) - (x * y1))); elseif (a <= -4.8e+22) tmp = b * (y * (x * (a - (k * (y4 / x))))); elseif (a <= -5.5e-46) tmp = k * t_2; elseif (a <= -9.5e-89) tmp = b * (y4 * (k * -y)); elseif (a <= -2.3e-189) tmp = k * ((z * y1) * ((y2 * (y4 / z)) - i)); elseif (a <= -6.2e-270) tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0)))); elseif (a <= 1.26e-127) tmp = t_3; elseif (a <= 5e-100) tmp = ((t * b) - (y1 * y3)) * (j * y4); elseif (a <= 2.4e-23) tmp = t_3; elseif (a <= 1.8e+78) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (a <= 9.6e+142) tmp = t_3; 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[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(t$95$2 / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -5.7e+282], t$95$1, If[LessEqual[a, -5.2e+204], N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -4.8e+22], N[(b * N[(y * N[(x * N[(a - N[(k * N[(y4 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -5.5e-46], N[(k * t$95$2), $MachinePrecision], If[LessEqual[a, -9.5e-89], N[(b * N[(y4 * N[(k * (-y)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -2.3e-189], N[(k * N[(N[(z * y1), $MachinePrecision] * N[(N[(y2 * N[(y4 / z), $MachinePrecision]), $MachinePrecision] - i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -6.2e-270], N[(x * N[(N[(N[(a * N[(y * b), $MachinePrecision]), $MachinePrecision] - N[(a * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 1.26e-127], t$95$3, If[LessEqual[a, 5e-100], N[(N[(N[(t * b), $MachinePrecision] - N[(y1 * y3), $MachinePrecision]), $MachinePrecision] * N[(j * y4), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.4e-23], t$95$3, If[LessEqual[a, 1.8e+78], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 9.6e+142], t$95$3, t$95$1]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
t_2 := y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\\
t_3 := k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{t\_2}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{if}\;a \leq -5.7 \cdot 10^{+282}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -5.2 \cdot 10^{+204}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;a \leq -4.8 \cdot 10^{+22}:\\
\;\;\;\;b \cdot \left(y \cdot \left(x \cdot \left(a - k \cdot \frac{y4}{x}\right)\right)\right)\\
\mathbf{elif}\;a \leq -5.5 \cdot 10^{-46}:\\
\;\;\;\;k \cdot t\_2\\
\mathbf{elif}\;a \leq -9.5 \cdot 10^{-89}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(k \cdot \left(-y\right)\right)\right)\\
\mathbf{elif}\;a \leq -2.3 \cdot 10^{-189}:\\
\;\;\;\;k \cdot \left(\left(z \cdot y1\right) \cdot \left(y2 \cdot \frac{y4}{z} - i\right)\right)\\
\mathbf{elif}\;a \leq -6.2 \cdot 10^{-270}:\\
\;\;\;\;x \cdot \left(\left(a \cdot \left(y \cdot b\right) - a \cdot \left(y1 \cdot y2\right)\right) + j \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;a \leq 1.26 \cdot 10^{-127}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;a \leq 5 \cdot 10^{-100}:\\
\;\;\;\;\left(t \cdot b - y1 \cdot y3\right) \cdot \left(j \cdot y4\right)\\
\mathbf{elif}\;a \leq 2.4 \cdot 10^{-23}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;a \leq 1.8 \cdot 10^{+78}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;a \leq 9.6 \cdot 10^{+142}:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if a < -5.70000000000000051e282 or 9.5999999999999996e142 < a Initial program 16.7%
Taylor expanded in a around inf 69.3%
+-commutative69.3%
mul-1-neg69.3%
unsub-neg69.3%
*-commutative69.3%
*-commutative69.3%
*-commutative69.3%
mul-1-neg69.3%
*-commutative69.3%
Simplified69.3%
Taylor expanded in z around -inf 67.5%
mul-1-neg67.5%
Simplified67.5%
if -5.70000000000000051e282 < a < -5.2000000000000002e204Initial program 20.0%
Taylor expanded in a around inf 75.2%
+-commutative75.2%
mul-1-neg75.2%
unsub-neg75.2%
*-commutative75.2%
*-commutative75.2%
*-commutative75.2%
mul-1-neg75.2%
*-commutative75.2%
Simplified75.2%
Taylor expanded in y2 around inf 70.8%
if -5.2000000000000002e204 < a < -4.8e22Initial program 29.0%
Taylor expanded in b around inf 38.4%
Taylor expanded in y around inf 53.3%
+-commutative53.3%
mul-1-neg53.3%
unsub-neg53.3%
Simplified53.3%
Taylor expanded in x around inf 55.6%
mul-1-neg55.6%
unsub-neg55.6%
associate-/l*57.9%
Simplified57.9%
if -4.8e22 < a < -5.49999999999999983e-46Initial program 7.7%
Taylor expanded in k around inf 46.9%
+-commutative46.9%
mul-1-neg46.9%
unsub-neg46.9%
*-commutative46.9%
associate-*r*46.9%
neg-mul-146.9%
Simplified46.9%
Taylor expanded in y5 around -inf 61.8%
associate-*r*61.8%
neg-mul-161.8%
Simplified61.8%
if -5.49999999999999983e-46 < a < -9.50000000000000028e-89Initial program 27.5%
Taylor expanded in b around inf 46.9%
Taylor expanded in y around inf 38.2%
+-commutative38.2%
mul-1-neg38.2%
unsub-neg38.2%
Simplified38.2%
Taylor expanded in a around 0 38.3%
associate-*r*38.3%
neg-mul-138.3%
associate-*r*47.1%
Simplified47.1%
if -9.50000000000000028e-89 < a < -2.2999999999999998e-189Initial program 27.2%
Taylor expanded in k around inf 37.4%
+-commutative37.4%
mul-1-neg37.4%
unsub-neg37.4%
*-commutative37.4%
associate-*r*37.4%
neg-mul-137.4%
Simplified37.4%
Taylor expanded in z around -inf 42.0%
associate-*r*42.0%
neg-mul-142.0%
+-commutative42.0%
mul-1-neg42.0%
unsub-neg42.0%
Simplified42.0%
Taylor expanded in y1 around inf 51.2%
associate-*r*51.2%
neg-mul-151.2%
associate-*r*51.2%
*-commutative51.2%
associate-/l*51.2%
Simplified51.2%
if -2.2999999999999998e-189 < a < -6.2e-270Initial program 22.1%
Taylor expanded in x around inf 58.1%
Taylor expanded in c around 0 65.7%
+-commutative65.7%
mul-1-neg65.7%
unsub-neg65.7%
Simplified65.7%
if -6.2e-270 < a < 1.2600000000000001e-127 or 5.0000000000000001e-100 < a < 2.39999999999999996e-23 or 1.8000000000000001e78 < a < 9.5999999999999996e142Initial program 34.8%
Taylor expanded in k around inf 47.1%
+-commutative47.1%
mul-1-neg47.1%
unsub-neg47.1%
*-commutative47.1%
associate-*r*47.1%
neg-mul-147.1%
Simplified47.1%
Taylor expanded in z around -inf 51.1%
associate-*r*51.1%
neg-mul-151.1%
+-commutative51.1%
mul-1-neg51.1%
unsub-neg51.1%
Simplified51.1%
Taylor expanded in y5 around -inf 48.6%
if 1.2600000000000001e-127 < a < 5.0000000000000001e-100Initial program 28.6%
Taylor expanded in y4 around inf 71.4%
Taylor expanded in j around inf 71.4%
associate-*r*71.4%
*-commutative71.4%
+-commutative71.4%
mul-1-neg71.4%
unsub-neg71.4%
*-commutative71.4%
Simplified71.4%
if 2.39999999999999996e-23 < a < 1.8000000000000001e78Initial program 30.0%
Taylor expanded in y4 around inf 70.3%
Taylor expanded in c around inf 80.5%
*-commutative80.5%
*-commutative80.5%
Simplified80.5%
Final simplification58.6%
(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) (- (/ (* y5 (- (* y i) (* y0 y2))) z) (* i y1))))))
(t_2
(*
c
(+
(+ (* y0 (- (* x y2) (* z y3))) (* i (- (* z t) (* x y))))
(* y4 (- (* y y3) (* t y2))))))
(t_3 (* a (- (* x y) (* z t)))))
(if (<= t -1.85e+140)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= t -5.4e+117)
(* a (* y2 (- (* t y5) (* x y1))))
(if (<= t -1.65e+45)
(* b t_3)
(if (<= t -1.25e-134)
t_2
(if (<= t -4.8e-207)
(* b (* y (* x (- a (* k (/ y4 x))))))
(if (<= t 2.85e-275)
t_1
(if (<= t 3.6e-237)
(* a (* y1 (- (* z y3) (* x y2))))
(if (<= t 1.12e-79)
t_1
(if (<= t 2.9e+33)
(*
b
(+
(+ t_3 (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j)))))
(if (<= t 1.15e+190)
t_2
(* a (* t (* y5 (- y2 (* b (/ z 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 = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
double t_2 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
double t_3 = a * ((x * y) - (z * t));
double tmp;
if (t <= -1.85e+140) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (t <= -5.4e+117) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (t <= -1.65e+45) {
tmp = b * t_3;
} else if (t <= -1.25e-134) {
tmp = t_2;
} else if (t <= -4.8e-207) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (t <= 2.85e-275) {
tmp = t_1;
} else if (t <= 3.6e-237) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (t <= 1.12e-79) {
tmp = t_1;
} else if (t <= 2.9e+33) {
tmp = b * ((t_3 + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
} else if (t <= 1.15e+190) {
tmp = t_2;
} else {
tmp = a * (t * (y5 * (y2 - (b * (z / 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 = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))))
t_2 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))))
t_3 = a * ((x * y) - (z * t))
if (t <= (-1.85d+140)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (t <= (-5.4d+117)) then
tmp = a * (y2 * ((t * y5) - (x * y1)))
else if (t <= (-1.65d+45)) then
tmp = b * t_3
else if (t <= (-1.25d-134)) then
tmp = t_2
else if (t <= (-4.8d-207)) then
tmp = b * (y * (x * (a - (k * (y4 / x)))))
else if (t <= 2.85d-275) then
tmp = t_1
else if (t <= 3.6d-237) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else if (t <= 1.12d-79) then
tmp = t_1
else if (t <= 2.9d+33) then
tmp = b * ((t_3 + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
else if (t <= 1.15d+190) then
tmp = t_2
else
tmp = a * (t * (y5 * (y2 - (b * (z / 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 = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
double t_2 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
double t_3 = a * ((x * y) - (z * t));
double tmp;
if (t <= -1.85e+140) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (t <= -5.4e+117) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (t <= -1.65e+45) {
tmp = b * t_3;
} else if (t <= -1.25e-134) {
tmp = t_2;
} else if (t <= -4.8e-207) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (t <= 2.85e-275) {
tmp = t_1;
} else if (t <= 3.6e-237) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (t <= 1.12e-79) {
tmp = t_1;
} else if (t <= 2.9e+33) {
tmp = b * ((t_3 + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
} else if (t <= 1.15e+190) {
tmp = t_2;
} else {
tmp = a * (t * (y5 * (y2 - (b * (z / y5)))));
}
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) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))) t_2 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))) t_3 = a * ((x * y) - (z * t)) tmp = 0 if t <= -1.85e+140: tmp = a * (z * ((y1 * y3) - (t * b))) elif t <= -5.4e+117: tmp = a * (y2 * ((t * y5) - (x * y1))) elif t <= -1.65e+45: tmp = b * t_3 elif t <= -1.25e-134: tmp = t_2 elif t <= -4.8e-207: tmp = b * (y * (x * (a - (k * (y4 / x))))) elif t <= 2.85e-275: tmp = t_1 elif t <= 3.6e-237: tmp = a * (y1 * ((z * y3) - (x * y2))) elif t <= 1.12e-79: tmp = t_1 elif t <= 2.9e+33: tmp = b * ((t_3 + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) elif t <= 1.15e+190: tmp = t_2 else: tmp = a * (t * (y5 * (y2 - (b * (z / y5))))) 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(Float64(Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) / z) - Float64(i * y1))))) t_2 = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))) t_3 = Float64(a * Float64(Float64(x * y) - Float64(z * t))) tmp = 0.0 if (t <= -1.85e+140) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (t <= -5.4e+117) tmp = Float64(a * Float64(y2 * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (t <= -1.65e+45) tmp = Float64(b * t_3); elseif (t <= -1.25e-134) tmp = t_2; elseif (t <= -4.8e-207) tmp = Float64(b * Float64(y * Float64(x * Float64(a - Float64(k * Float64(y4 / x)))))); elseif (t <= 2.85e-275) tmp = t_1; elseif (t <= 3.6e-237) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); elseif (t <= 1.12e-79) tmp = t_1; elseif (t <= 2.9e+33) tmp = Float64(b * Float64(Float64(t_3 + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))); elseif (t <= 1.15e+190) tmp = t_2; else tmp = Float64(a * Float64(t * Float64(y5 * Float64(y2 - Float64(b * Float64(z / 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 = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))); t_2 = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))); t_3 = a * ((x * y) - (z * t)); tmp = 0.0; if (t <= -1.85e+140) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (t <= -5.4e+117) tmp = a * (y2 * ((t * y5) - (x * y1))); elseif (t <= -1.65e+45) tmp = b * t_3; elseif (t <= -1.25e-134) tmp = t_2; elseif (t <= -4.8e-207) tmp = b * (y * (x * (a - (k * (y4 / x))))); elseif (t <= 2.85e-275) tmp = t_1; elseif (t <= 3.6e-237) tmp = a * (y1 * ((z * y3) - (x * y2))); elseif (t <= 1.12e-79) tmp = t_1; elseif (t <= 2.9e+33) tmp = b * ((t_3 + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); elseif (t <= 1.15e+190) tmp = t_2; else tmp = a * (t * (y5 * (y2 - (b * (z / 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[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -1.85e+140], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -5.4e+117], N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1.65e+45], N[(b * t$95$3), $MachinePrecision], If[LessEqual[t, -1.25e-134], t$95$2, If[LessEqual[t, -4.8e-207], N[(b * N[(y * N[(x * N[(a - N[(k * N[(y4 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 2.85e-275], t$95$1, If[LessEqual[t, 3.6e-237], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 1.12e-79], t$95$1, If[LessEqual[t, 2.9e+33], N[(b * N[(N[(t$95$3 + 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[t, 1.15e+190], t$95$2, N[(a * N[(t * N[(y5 * N[(y2 - N[(b * N[(z / y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{y5 \cdot \left(y \cdot i - y0 \cdot y2\right)}{z} - i \cdot y1\right)\right)\right)\\
t_2 := c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_3 := a \cdot \left(x \cdot y - z \cdot t\right)\\
\mathbf{if}\;t \leq -1.85 \cdot 10^{+140}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;t \leq -5.4 \cdot 10^{+117}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;t \leq -1.65 \cdot 10^{+45}:\\
\;\;\;\;b \cdot t\_3\\
\mathbf{elif}\;t \leq -1.25 \cdot 10^{-134}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t \leq -4.8 \cdot 10^{-207}:\\
\;\;\;\;b \cdot \left(y \cdot \left(x \cdot \left(a - k \cdot \frac{y4}{x}\right)\right)\right)\\
\mathbf{elif}\;t \leq 2.85 \cdot 10^{-275}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 3.6 \cdot 10^{-237}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{elif}\;t \leq 1.12 \cdot 10^{-79}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 2.9 \cdot 10^{+33}:\\
\;\;\;\;b \cdot \left(\left(t\_3 + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;t \leq 1.15 \cdot 10^{+190}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y5 \cdot \left(y2 - b \cdot \frac{z}{y5}\right)\right)\right)\\
\end{array}
\end{array}
if t < -1.85000000000000001e140Initial program 20.0%
Taylor expanded in a around inf 40.4%
+-commutative40.4%
mul-1-neg40.4%
unsub-neg40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
mul-1-neg40.4%
*-commutative40.4%
Simplified40.4%
Taylor expanded in z around -inf 57.8%
mul-1-neg57.8%
Simplified57.8%
if -1.85000000000000001e140 < t < -5.4000000000000005e117Initial program 0.8%
Taylor expanded in a around inf 50.8%
+-commutative50.8%
mul-1-neg50.8%
unsub-neg50.8%
*-commutative50.8%
*-commutative50.8%
*-commutative50.8%
mul-1-neg50.8%
*-commutative50.8%
Simplified50.8%
Taylor expanded in y2 around inf 75.4%
if -5.4000000000000005e117 < t < -1.65e45Initial program 19.5%
Taylor expanded in b around inf 34.4%
Taylor expanded in a around inf 52.6%
if -1.65e45 < t < -1.2500000000000001e-134 or 2.90000000000000025e33 < t < 1.15e190Initial program 34.3%
Taylor expanded in c around inf 53.0%
+-commutative53.0%
mul-1-neg53.0%
unsub-neg53.0%
*-commutative53.0%
*-commutative53.0%
*-commutative53.0%
*-commutative53.0%
Simplified53.0%
if -1.2500000000000001e-134 < t < -4.79999999999999978e-207Initial program 23.5%
Taylor expanded in b around inf 53.3%
Taylor expanded in y around inf 53.6%
+-commutative53.6%
mul-1-neg53.6%
unsub-neg53.6%
Simplified53.6%
Taylor expanded in x around inf 53.6%
mul-1-neg53.6%
unsub-neg53.6%
associate-/l*65.2%
Simplified65.2%
if -4.79999999999999978e-207 < t < 2.84999999999999995e-275 or 3.59999999999999997e-237 < t < 1.11999999999999996e-79Initial program 23.5%
Taylor expanded in k around inf 47.7%
+-commutative47.7%
mul-1-neg47.7%
unsub-neg47.7%
*-commutative47.7%
associate-*r*47.7%
neg-mul-147.7%
Simplified47.7%
Taylor expanded in z around -inf 51.6%
associate-*r*51.6%
neg-mul-151.6%
+-commutative51.6%
mul-1-neg51.6%
unsub-neg51.6%
Simplified51.6%
Taylor expanded in y5 around -inf 60.3%
if 2.84999999999999995e-275 < t < 3.59999999999999997e-237Initial program 45.3%
Taylor expanded in a around inf 88.6%
+-commutative88.6%
mul-1-neg88.6%
unsub-neg88.6%
*-commutative88.6%
*-commutative88.6%
*-commutative88.6%
mul-1-neg88.6%
*-commutative88.6%
Simplified88.6%
Taylor expanded in y1 around inf 56.4%
if 1.11999999999999996e-79 < t < 2.90000000000000025e33Initial program 38.5%
Taylor expanded in b around inf 58.0%
if 1.15e190 < t Initial program 11.1%
Taylor expanded in a around inf 45.1%
+-commutative45.1%
mul-1-neg45.1%
unsub-neg45.1%
*-commutative45.1%
*-commutative45.1%
*-commutative45.1%
mul-1-neg45.1%
*-commutative45.1%
Simplified45.1%
Taylor expanded in t around inf 56.2%
+-commutative56.2%
mul-1-neg56.2%
sub-neg56.2%
Simplified56.2%
Taylor expanded in y5 around inf 56.2%
mul-1-neg56.2%
unsub-neg56.2%
associate-/l*61.6%
Simplified61.6%
Final simplification57.7%
(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 (- (* y y3) (* t y2)))
(t_3 (- (* x y) (* z t)))
(t_4 (* b (+ (+ (* a t_3) (* y4 t_1)) (* y0 (- (* z k) (* x j))))))
(t_5 (- (* k y2) (* j y3)))
(t_6 (- (* z y3) (* x y2)))
(t_7 (* y1 (+ (* i (- (* x j) (* z k))) (+ (* y4 t_5) (* a t_6))))))
(if (<= b -6.4e+183)
t_4
(if (<= b -1.4e+104)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= b -5.2e+25)
(*
k
(* z (+ (* b y0) (- (/ (* y5 (- (* y i) (* y0 y2))) z) (* i y1)))))
(if (<= b -6.2e-67)
(* a (+ (+ (* b t_3) (* y1 t_6)) (* y5 (- (* t y2) (* y y3)))))
(if (<= b -4.3e-211)
(* y4 (+ (+ (* b t_1) (* y1 t_5)) (* c t_2)))
(if (<= b -1.2e-255)
t_7
(if (<= b 1.4e-276)
(*
y
(+
(+ (* x (- (* a b) (* c i))) (* k (- (* i y5) (* b y4))))
(* y3 (- (* c y4) (* a y5)))))
(if (<= b 2.6e-85)
t_7
(if (<= b 5.3e-42)
(*
c
(+
(+
(* y0 (- (* x y2) (* z y3)))
(* i (- (* z t) (* x y))))
(* y4 t_2)))
(if (<= b 1.26e+172)
(*
t
(+
(+
(* j (- (* b y4) (* i y5)))
(* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4)))))
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 = (y * y3) - (t * y2);
double t_3 = (x * y) - (z * t);
double t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
double t_5 = (k * y2) - (j * y3);
double t_6 = (z * y3) - (x * y2);
double t_7 = y1 * ((i * ((x * j) - (z * k))) + ((y4 * t_5) + (a * t_6)));
double tmp;
if (b <= -6.4e+183) {
tmp = t_4;
} else if (b <= -1.4e+104) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -5.2e+25) {
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
} else if (b <= -6.2e-67) {
tmp = a * (((b * t_3) + (y1 * t_6)) + (y5 * ((t * y2) - (y * y3))));
} else if (b <= -4.3e-211) {
tmp = y4 * (((b * t_1) + (y1 * t_5)) + (c * t_2));
} else if (b <= -1.2e-255) {
tmp = t_7;
} else if (b <= 1.4e-276) {
tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))));
} else if (b <= 2.6e-85) {
tmp = t_7;
} else if (b <= 5.3e-42) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2));
} else if (b <= 1.26e+172) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} 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) :: tmp
t_1 = (t * j) - (y * k)
t_2 = (y * y3) - (t * y2)
t_3 = (x * y) - (z * t)
t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))))
t_5 = (k * y2) - (j * y3)
t_6 = (z * y3) - (x * y2)
t_7 = y1 * ((i * ((x * j) - (z * k))) + ((y4 * t_5) + (a * t_6)))
if (b <= (-6.4d+183)) then
tmp = t_4
else if (b <= (-1.4d+104)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (b <= (-5.2d+25)) then
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))))
else if (b <= (-6.2d-67)) then
tmp = a * (((b * t_3) + (y1 * t_6)) + (y5 * ((t * y2) - (y * y3))))
else if (b <= (-4.3d-211)) then
tmp = y4 * (((b * t_1) + (y1 * t_5)) + (c * t_2))
else if (b <= (-1.2d-255)) then
tmp = t_7
else if (b <= 1.4d-276) then
tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))))
else if (b <= 2.6d-85) then
tmp = t_7
else if (b <= 5.3d-42) then
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2))
else if (b <= 1.26d+172) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
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 = (y * y3) - (t * y2);
double t_3 = (x * y) - (z * t);
double t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j))));
double t_5 = (k * y2) - (j * y3);
double t_6 = (z * y3) - (x * y2);
double t_7 = y1 * ((i * ((x * j) - (z * k))) + ((y4 * t_5) + (a * t_6)));
double tmp;
if (b <= -6.4e+183) {
tmp = t_4;
} else if (b <= -1.4e+104) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -5.2e+25) {
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
} else if (b <= -6.2e-67) {
tmp = a * (((b * t_3) + (y1 * t_6)) + (y5 * ((t * y2) - (y * y3))));
} else if (b <= -4.3e-211) {
tmp = y4 * (((b * t_1) + (y1 * t_5)) + (c * t_2));
} else if (b <= -1.2e-255) {
tmp = t_7;
} else if (b <= 1.4e-276) {
tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5))));
} else if (b <= 2.6e-85) {
tmp = t_7;
} else if (b <= 5.3e-42) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2));
} else if (b <= 1.26e+172) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} 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 = (y * y3) - (t * y2) t_3 = (x * y) - (z * t) t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))) t_5 = (k * y2) - (j * y3) t_6 = (z * y3) - (x * y2) t_7 = y1 * ((i * ((x * j) - (z * k))) + ((y4 * t_5) + (a * t_6))) tmp = 0 if b <= -6.4e+183: tmp = t_4 elif b <= -1.4e+104: tmp = a * (z * ((y1 * y3) - (t * b))) elif b <= -5.2e+25: tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))) elif b <= -6.2e-67: tmp = a * (((b * t_3) + (y1 * t_6)) + (y5 * ((t * y2) - (y * y3)))) elif b <= -4.3e-211: tmp = y4 * (((b * t_1) + (y1 * t_5)) + (c * t_2)) elif b <= -1.2e-255: tmp = t_7 elif b <= 1.4e-276: tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5)))) elif b <= 2.6e-85: tmp = t_7 elif b <= 5.3e-42: tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2)) elif b <= 1.26e+172: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) 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(y * y3) - Float64(t * y2)) t_3 = Float64(Float64(x * y) - Float64(z * t)) t_4 = Float64(b * Float64(Float64(Float64(a * t_3) + Float64(y4 * t_1)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) t_5 = Float64(Float64(k * y2) - Float64(j * y3)) t_6 = Float64(Float64(z * y3) - Float64(x * y2)) t_7 = Float64(y1 * Float64(Float64(i * Float64(Float64(x * j) - Float64(z * k))) + Float64(Float64(y4 * t_5) + Float64(a * t_6)))) tmp = 0.0 if (b <= -6.4e+183) tmp = t_4; elseif (b <= -1.4e+104) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (b <= -5.2e+25) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) / z) - Float64(i * y1))))); elseif (b <= -6.2e-67) tmp = Float64(a * Float64(Float64(Float64(b * t_3) + Float64(y1 * t_6)) + Float64(y5 * Float64(Float64(t * y2) - Float64(y * y3))))); elseif (b <= -4.3e-211) tmp = Float64(y4 * Float64(Float64(Float64(b * t_1) + Float64(y1 * t_5)) + Float64(c * t_2))); elseif (b <= -1.2e-255) tmp = t_7; elseif (b <= 1.4e-276) tmp = Float64(y * Float64(Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(k * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))); elseif (b <= 2.6e-85) tmp = t_7; elseif (b <= 5.3e-42) tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * t_2))); elseif (b <= 1.26e+172) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))); 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 = (y * y3) - (t * y2); t_3 = (x * y) - (z * t); t_4 = b * (((a * t_3) + (y4 * t_1)) + (y0 * ((z * k) - (x * j)))); t_5 = (k * y2) - (j * y3); t_6 = (z * y3) - (x * y2); t_7 = y1 * ((i * ((x * j) - (z * k))) + ((y4 * t_5) + (a * t_6))); tmp = 0.0; if (b <= -6.4e+183) tmp = t_4; elseif (b <= -1.4e+104) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (b <= -5.2e+25) tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))); elseif (b <= -6.2e-67) tmp = a * (((b * t_3) + (y1 * t_6)) + (y5 * ((t * y2) - (y * y3)))); elseif (b <= -4.3e-211) tmp = y4 * (((b * t_1) + (y1 * t_5)) + (c * t_2)); elseif (b <= -1.2e-255) tmp = t_7; elseif (b <= 1.4e-276) tmp = y * (((x * ((a * b) - (c * i))) + (k * ((i * y5) - (b * y4)))) + (y3 * ((c * y4) - (a * y5)))); elseif (b <= 2.6e-85) tmp = t_7; elseif (b <= 5.3e-42) tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * t_2)); elseif (b <= 1.26e+172) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); 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[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(b * N[(N[(N[(a * t$95$3), $MachinePrecision] + N[(y4 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(y1 * N[(N[(i * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(y4 * t$95$5), $MachinePrecision] + N[(a * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -6.4e+183], t$95$4, If[LessEqual[b, -1.4e+104], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -5.2e+25], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -6.2e-67], N[(a * N[(N[(N[(b * t$95$3), $MachinePrecision] + N[(y1 * t$95$6), $MachinePrecision]), $MachinePrecision] + N[(y5 * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -4.3e-211], N[(y4 * N[(N[(N[(b * t$95$1), $MachinePrecision] + N[(y1 * t$95$5), $MachinePrecision]), $MachinePrecision] + N[(c * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.2e-255], t$95$7, If[LessEqual[b, 1.4e-276], N[(y * N[(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] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.6e-85], t$95$7, If[LessEqual[b, 5.3e-42], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.26e+172], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $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], t$95$4]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := y \cdot y3 - t \cdot y2\\
t_3 := x \cdot y - z \cdot t\\
t_4 := b \cdot \left(\left(a \cdot t\_3 + y4 \cdot t\_1\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
t_5 := k \cdot y2 - j \cdot y3\\
t_6 := z \cdot y3 - x \cdot y2\\
t_7 := y1 \cdot \left(i \cdot \left(x \cdot j - z \cdot k\right) + \left(y4 \cdot t\_5 + a \cdot t\_6\right)\right)\\
\mathbf{if}\;b \leq -6.4 \cdot 10^{+183}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;b \leq -1.4 \cdot 10^{+104}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;b \leq -5.2 \cdot 10^{+25}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{y5 \cdot \left(y \cdot i - y0 \cdot y2\right)}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{elif}\;b \leq -6.2 \cdot 10^{-67}:\\
\;\;\;\;a \cdot \left(\left(b \cdot t\_3 + y1 \cdot t\_6\right) + y5 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\
\mathbf{elif}\;b \leq -4.3 \cdot 10^{-211}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_1 + y1 \cdot t\_5\right) + c \cdot t\_2\right)\\
\mathbf{elif}\;b \leq -1.2 \cdot 10^{-255}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;b \leq 1.4 \cdot 10^{-276}:\\
\;\;\;\;y \cdot \left(\left(x \cdot \left(a \cdot b - c \cdot i\right) + k \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;b \leq 2.6 \cdot 10^{-85}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;b \leq 5.3 \cdot 10^{-42}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot t\_2\right)\\
\mathbf{elif}\;b \leq 1.26 \cdot 10^{+172}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if b < -6.4000000000000004e183 or 1.2600000000000001e172 < b Initial program 26.3%
Taylor expanded in b around inf 69.1%
if -6.4000000000000004e183 < b < -1.4e104Initial program 31.3%
Taylor expanded in a around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in z around -inf 81.7%
mul-1-neg81.7%
Simplified81.7%
if -1.4e104 < b < -5.1999999999999997e25Initial program 9.1%
Taylor expanded in k around inf 55.1%
+-commutative55.1%
mul-1-neg55.1%
unsub-neg55.1%
*-commutative55.1%
associate-*r*55.1%
neg-mul-155.1%
Simplified55.1%
Taylor expanded in z around -inf 72.7%
associate-*r*72.7%
neg-mul-172.7%
+-commutative72.7%
mul-1-neg72.7%
unsub-neg72.7%
Simplified72.7%
Taylor expanded in y5 around -inf 81.8%
if -5.1999999999999997e25 < b < -6.2000000000000005e-67Initial program 25.0%
Taylor expanded in a around inf 81.4%
+-commutative81.4%
mul-1-neg81.4%
unsub-neg81.4%
*-commutative81.4%
*-commutative81.4%
*-commutative81.4%
mul-1-neg81.4%
*-commutative81.4%
Simplified81.4%
if -6.2000000000000005e-67 < b < -4.3000000000000001e-211Initial program 22.7%
Taylor expanded in y4 around inf 67.2%
if -4.3000000000000001e-211 < b < -1.1999999999999999e-255 or 1.39999999999999993e-276 < b < 2.60000000000000011e-85Initial program 22.7%
Taylor expanded in y1 around -inf 56.4%
associate-*r*56.4%
neg-mul-156.4%
+-commutative56.4%
mul-1-neg56.4%
unsub-neg56.4%
*-commutative56.4%
*-commutative56.4%
*-commutative56.4%
*-commutative56.4%
Simplified56.4%
if -1.1999999999999999e-255 < b < 1.39999999999999993e-276Initial program 17.6%
Taylor expanded in y around inf 64.9%
+-commutative64.9%
mul-1-neg64.9%
unsub-neg64.9%
*-commutative64.9%
*-commutative64.9%
mul-1-neg64.9%
Simplified64.9%
if 2.60000000000000011e-85 < b < 5.3e-42Initial program 42.9%
Taylor expanded in c around inf 85.8%
+-commutative85.8%
mul-1-neg85.8%
unsub-neg85.8%
*-commutative85.8%
*-commutative85.8%
*-commutative85.8%
*-commutative85.8%
Simplified85.8%
if 5.3e-42 < b < 1.2600000000000001e172Initial program 32.7%
Taylor expanded in t around inf 47.6%
+-commutative47.6%
mul-1-neg47.6%
unsub-neg47.6%
*-commutative47.6%
Simplified47.6%
Final simplification65.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* y1 (- (* z y3) (* x y2)))))
(t_2 (* b (* y (- (* x a) (* k y4)))))
(t_3 (* k (* y1 (- (* y2 y4) (* z i))))))
(if (<= a -4.2e+265)
t_1
(if (<= a -8.8e+139)
(* a (* t (- (* y2 y5) (* z b))))
(if (<= a -1.4e+114)
(* a (* y (- (* x b) (* y3 y5))))
(if (<= a -4.5e+21)
t_2
(if (<= a -4.3e-56)
t_1
(if (<= a -9.5e-89)
(* b (* y4 (* k (- y))))
(if (<= a -3.95e-190)
t_3
(if (<= a -7e-297)
(* b (* x (- (* y a) (* j y0))))
(if (<= a 4e-48)
t_3
(if (<= a 2.35e-23)
(* x (* y (- (* a b) (* c i))))
(if (<= a 1.75e+78)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= a 3e+224)
t_2
(if (<= a 4.2e+271)
(* a (* (* t b) (- z)))
(* b (* a (- (* x y) (* z t)))))))))))))))))))
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 * (y1 * ((z * y3) - (x * y2)));
double t_2 = b * (y * ((x * a) - (k * y4)));
double t_3 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (a <= -4.2e+265) {
tmp = t_1;
} else if (a <= -8.8e+139) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (a <= -1.4e+114) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else if (a <= -4.5e+21) {
tmp = t_2;
} else if (a <= -4.3e-56) {
tmp = t_1;
} else if (a <= -9.5e-89) {
tmp = b * (y4 * (k * -y));
} else if (a <= -3.95e-190) {
tmp = t_3;
} else if (a <= -7e-297) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (a <= 4e-48) {
tmp = t_3;
} else if (a <= 2.35e-23) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (a <= 1.75e+78) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (a <= 3e+224) {
tmp = t_2;
} else if (a <= 4.2e+271) {
tmp = a * ((t * b) * -z);
} else {
tmp = b * (a * ((x * y) - (z * t)));
}
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 = a * (y1 * ((z * y3) - (x * y2)))
t_2 = b * (y * ((x * a) - (k * y4)))
t_3 = k * (y1 * ((y2 * y4) - (z * i)))
if (a <= (-4.2d+265)) then
tmp = t_1
else if (a <= (-8.8d+139)) then
tmp = a * (t * ((y2 * y5) - (z * b)))
else if (a <= (-1.4d+114)) then
tmp = a * (y * ((x * b) - (y3 * y5)))
else if (a <= (-4.5d+21)) then
tmp = t_2
else if (a <= (-4.3d-56)) then
tmp = t_1
else if (a <= (-9.5d-89)) then
tmp = b * (y4 * (k * -y))
else if (a <= (-3.95d-190)) then
tmp = t_3
else if (a <= (-7d-297)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (a <= 4d-48) then
tmp = t_3
else if (a <= 2.35d-23) then
tmp = x * (y * ((a * b) - (c * i)))
else if (a <= 1.75d+78) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (a <= 3d+224) then
tmp = t_2
else if (a <= 4.2d+271) then
tmp = a * ((t * b) * -z)
else
tmp = b * (a * ((x * y) - (z * t)))
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 * (y1 * ((z * y3) - (x * y2)));
double t_2 = b * (y * ((x * a) - (k * y4)));
double t_3 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (a <= -4.2e+265) {
tmp = t_1;
} else if (a <= -8.8e+139) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (a <= -1.4e+114) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else if (a <= -4.5e+21) {
tmp = t_2;
} else if (a <= -4.3e-56) {
tmp = t_1;
} else if (a <= -9.5e-89) {
tmp = b * (y4 * (k * -y));
} else if (a <= -3.95e-190) {
tmp = t_3;
} else if (a <= -7e-297) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (a <= 4e-48) {
tmp = t_3;
} else if (a <= 2.35e-23) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (a <= 1.75e+78) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (a <= 3e+224) {
tmp = t_2;
} else if (a <= 4.2e+271) {
tmp = a * ((t * b) * -z);
} else {
tmp = b * (a * ((x * y) - (z * t)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (y1 * ((z * y3) - (x * y2))) t_2 = b * (y * ((x * a) - (k * y4))) t_3 = k * (y1 * ((y2 * y4) - (z * i))) tmp = 0 if a <= -4.2e+265: tmp = t_1 elif a <= -8.8e+139: tmp = a * (t * ((y2 * y5) - (z * b))) elif a <= -1.4e+114: tmp = a * (y * ((x * b) - (y3 * y5))) elif a <= -4.5e+21: tmp = t_2 elif a <= -4.3e-56: tmp = t_1 elif a <= -9.5e-89: tmp = b * (y4 * (k * -y)) elif a <= -3.95e-190: tmp = t_3 elif a <= -7e-297: tmp = b * (x * ((y * a) - (j * y0))) elif a <= 4e-48: tmp = t_3 elif a <= 2.35e-23: tmp = x * (y * ((a * b) - (c * i))) elif a <= 1.75e+78: tmp = c * (y4 * ((y * y3) - (t * y2))) elif a <= 3e+224: tmp = t_2 elif a <= 4.2e+271: tmp = a * ((t * b) * -z) else: tmp = b * (a * ((x * y) - (z * t))) 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(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) t_2 = Float64(b * Float64(y * Float64(Float64(x * a) - Float64(k * y4)))) t_3 = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))) tmp = 0.0 if (a <= -4.2e+265) tmp = t_1; elseif (a <= -8.8e+139) tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); elseif (a <= -1.4e+114) tmp = Float64(a * Float64(y * Float64(Float64(x * b) - Float64(y3 * y5)))); elseif (a <= -4.5e+21) tmp = t_2; elseif (a <= -4.3e-56) tmp = t_1; elseif (a <= -9.5e-89) tmp = Float64(b * Float64(y4 * Float64(k * Float64(-y)))); elseif (a <= -3.95e-190) tmp = t_3; elseif (a <= -7e-297) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (a <= 4e-48) tmp = t_3; elseif (a <= 2.35e-23) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (a <= 1.75e+78) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (a <= 3e+224) tmp = t_2; elseif (a <= 4.2e+271) tmp = Float64(a * Float64(Float64(t * b) * Float64(-z))); else tmp = Float64(b * Float64(a * Float64(Float64(x * y) - Float64(z * t)))); 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 * (y1 * ((z * y3) - (x * y2))); t_2 = b * (y * ((x * a) - (k * y4))); t_3 = k * (y1 * ((y2 * y4) - (z * i))); tmp = 0.0; if (a <= -4.2e+265) tmp = t_1; elseif (a <= -8.8e+139) tmp = a * (t * ((y2 * y5) - (z * b))); elseif (a <= -1.4e+114) tmp = a * (y * ((x * b) - (y3 * y5))); elseif (a <= -4.5e+21) tmp = t_2; elseif (a <= -4.3e-56) tmp = t_1; elseif (a <= -9.5e-89) tmp = b * (y4 * (k * -y)); elseif (a <= -3.95e-190) tmp = t_3; elseif (a <= -7e-297) tmp = b * (x * ((y * a) - (j * y0))); elseif (a <= 4e-48) tmp = t_3; elseif (a <= 2.35e-23) tmp = x * (y * ((a * b) - (c * i))); elseif (a <= 1.75e+78) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (a <= 3e+224) tmp = t_2; elseif (a <= 4.2e+271) tmp = a * ((t * b) * -z); else tmp = b * (a * ((x * y) - (z * t))); 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[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(y * N[(N[(x * a), $MachinePrecision] - N[(k * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -4.2e+265], t$95$1, If[LessEqual[a, -8.8e+139], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.4e+114], N[(a * N[(y * N[(N[(x * b), $MachinePrecision] - N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -4.5e+21], t$95$2, If[LessEqual[a, -4.3e-56], t$95$1, If[LessEqual[a, -9.5e-89], N[(b * N[(y4 * N[(k * (-y)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -3.95e-190], t$95$3, If[LessEqual[a, -7e-297], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 4e-48], t$95$3, If[LessEqual[a, 2.35e-23], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 1.75e+78], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 3e+224], t$95$2, If[LessEqual[a, 4.2e+271], N[(a * N[(N[(t * b), $MachinePrecision] * (-z)), $MachinePrecision]), $MachinePrecision], N[(b * N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
t_2 := b \cdot \left(y \cdot \left(x \cdot a - k \cdot y4\right)\right)\\
t_3 := k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{if}\;a \leq -4.2 \cdot 10^{+265}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -8.8 \cdot 10^{+139}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{elif}\;a \leq -1.4 \cdot 10^{+114}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b - y3 \cdot y5\right)\right)\\
\mathbf{elif}\;a \leq -4.5 \cdot 10^{+21}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq -4.3 \cdot 10^{-56}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -9.5 \cdot 10^{-89}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(k \cdot \left(-y\right)\right)\right)\\
\mathbf{elif}\;a \leq -3.95 \cdot 10^{-190}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;a \leq -7 \cdot 10^{-297}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;a \leq 4 \cdot 10^{-48}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;a \leq 2.35 \cdot 10^{-23}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;a \leq 1.75 \cdot 10^{+78}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;a \leq 3 \cdot 10^{+224}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq 4.2 \cdot 10^{+271}:\\
\;\;\;\;a \cdot \left(\left(t \cdot b\right) \cdot \left(-z\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(a \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\end{array}
\end{array}
if a < -4.1999999999999997e265 or -4.5e21 < a < -4.3000000000000001e-56Initial program 14.8%
Taylor expanded in a around inf 48.4%
+-commutative48.4%
mul-1-neg48.4%
unsub-neg48.4%
*-commutative48.4%
*-commutative48.4%
*-commutative48.4%
mul-1-neg48.4%
*-commutative48.4%
Simplified48.4%
Taylor expanded in y1 around inf 56.4%
if -4.1999999999999997e265 < a < -8.7999999999999998e139Initial program 30.7%
Taylor expanded in a around inf 82.8%
+-commutative82.8%
mul-1-neg82.8%
unsub-neg82.8%
*-commutative82.8%
*-commutative82.8%
*-commutative82.8%
mul-1-neg82.8%
*-commutative82.8%
Simplified82.8%
Taylor expanded in t around inf 57.6%
+-commutative57.6%
mul-1-neg57.6%
sub-neg57.6%
Simplified57.6%
if -8.7999999999999998e139 < a < -1.4e114Initial program 12.5%
Taylor expanded in a around inf 24.4%
+-commutative24.4%
mul-1-neg24.4%
unsub-neg24.4%
*-commutative24.4%
*-commutative24.4%
*-commutative24.4%
mul-1-neg24.4%
*-commutative24.4%
Simplified24.4%
Taylor expanded in y around inf 57.0%
+-commutative57.0%
mul-1-neg57.0%
unsub-neg57.0%
Simplified57.0%
if -1.4e114 < a < -4.5e21 or 1.7500000000000001e78 < a < 3.0000000000000001e224Initial program 32.6%
Taylor expanded in b around inf 45.0%
Taylor expanded in y around inf 59.7%
+-commutative59.7%
mul-1-neg59.7%
unsub-neg59.7%
Simplified59.7%
if -4.3000000000000001e-56 < a < -9.50000000000000028e-89Initial program 25.4%
Taylor expanded in b around inf 51.3%
Taylor expanded in y around inf 51.5%
+-commutative51.5%
mul-1-neg51.5%
unsub-neg51.5%
Simplified51.5%
Taylor expanded in a around 0 51.7%
associate-*r*51.7%
neg-mul-151.7%
associate-*r*63.7%
Simplified63.7%
if -9.50000000000000028e-89 < a < -3.94999999999999976e-190 or -6.9999999999999998e-297 < a < 3.9999999999999999e-48Initial program 31.3%
Taylor expanded in k around inf 43.4%
+-commutative43.4%
mul-1-neg43.4%
unsub-neg43.4%
*-commutative43.4%
associate-*r*43.4%
neg-mul-143.4%
Simplified43.4%
Taylor expanded in y1 around inf 45.1%
if -3.94999999999999976e-190 < a < -6.9999999999999998e-297Initial program 24.3%
Taylor expanded in b around inf 34.3%
Taylor expanded in x around inf 44.6%
if 3.9999999999999999e-48 < a < 2.35e-23Initial program 25.0%
Taylor expanded in x around inf 50.8%
Taylor expanded in y around inf 51.3%
if 2.35e-23 < a < 1.7500000000000001e78Initial program 30.0%
Taylor expanded in y4 around inf 70.3%
Taylor expanded in c around inf 80.5%
*-commutative80.5%
*-commutative80.5%
Simplified80.5%
if 3.0000000000000001e224 < a < 4.1999999999999999e271Initial program 16.7%
Taylor expanded in a around inf 75.0%
+-commutative75.0%
mul-1-neg75.0%
unsub-neg75.0%
*-commutative75.0%
*-commutative75.0%
*-commutative75.0%
mul-1-neg75.0%
*-commutative75.0%
Simplified75.0%
Taylor expanded in t around inf 67.2%
+-commutative67.2%
mul-1-neg67.2%
sub-neg67.2%
Simplified67.2%
Taylor expanded in y2 around 0 75.8%
associate-*r*75.8%
mul-1-neg75.8%
associate-*r*83.4%
Simplified83.4%
if 4.1999999999999999e271 < a Initial program 0.0%
Taylor expanded in b around inf 50.0%
Taylor expanded in a around inf 87.5%
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 (* a (* z (- (* y1 y3) (* t b)))))
(t_2 (* k (* y5 (- (* y i) (* y0 y2)))))
(t_3 (* k (* (* z y1) (- (* y2 (/ y4 z)) i)))))
(if (<= a -1.66e+282)
t_1
(if (<= a -5.5e+204)
(* a (* y2 (- (* t y5) (* x y1))))
(if (<= a -1.45e+22)
(* b (* y (* x (- a (* k (/ y4 x))))))
(if (<= a -1.52e-46)
t_2
(if (<= a -6.2e-86)
(* b (* y4 (* k (- y))))
(if (<= a -2.4e-189)
t_3
(if (<= a -2.5e-278)
(*
x
(+
(- (* a (* y b)) (* a (* y1 y2)))
(* j (- (* i y1) (* b y0)))))
(if (<= a 2.65e-169)
(* y2 (* y4 (- (* k y1) (* t c))))
(if (<= a 8.2e-50)
t_3
(if (<= a 9.8e-24)
(* x (* y (- (* a b) (* c i))))
(if (<= a 7e+79)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= a 2.7e+139)
t_2
(if (<= a 1.45e+232)
(* a (* x (- (* y b) (* y1 y2))))
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 * (z * ((y1 * y3) - (t * b)));
double t_2 = k * (y5 * ((y * i) - (y0 * y2)));
double t_3 = k * ((z * y1) * ((y2 * (y4 / z)) - i));
double tmp;
if (a <= -1.66e+282) {
tmp = t_1;
} else if (a <= -5.5e+204) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (a <= -1.45e+22) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (a <= -1.52e-46) {
tmp = t_2;
} else if (a <= -6.2e-86) {
tmp = b * (y4 * (k * -y));
} else if (a <= -2.4e-189) {
tmp = t_3;
} else if (a <= -2.5e-278) {
tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))));
} else if (a <= 2.65e-169) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (a <= 8.2e-50) {
tmp = t_3;
} else if (a <= 9.8e-24) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (a <= 7e+79) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (a <= 2.7e+139) {
tmp = t_2;
} else if (a <= 1.45e+232) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} 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 = a * (z * ((y1 * y3) - (t * b)))
t_2 = k * (y5 * ((y * i) - (y0 * y2)))
t_3 = k * ((z * y1) * ((y2 * (y4 / z)) - i))
if (a <= (-1.66d+282)) then
tmp = t_1
else if (a <= (-5.5d+204)) then
tmp = a * (y2 * ((t * y5) - (x * y1)))
else if (a <= (-1.45d+22)) then
tmp = b * (y * (x * (a - (k * (y4 / x)))))
else if (a <= (-1.52d-46)) then
tmp = t_2
else if (a <= (-6.2d-86)) then
tmp = b * (y4 * (k * -y))
else if (a <= (-2.4d-189)) then
tmp = t_3
else if (a <= (-2.5d-278)) then
tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))))
else if (a <= 2.65d-169) then
tmp = y2 * (y4 * ((k * y1) - (t * c)))
else if (a <= 8.2d-50) then
tmp = t_3
else if (a <= 9.8d-24) then
tmp = x * (y * ((a * b) - (c * i)))
else if (a <= 7d+79) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (a <= 2.7d+139) then
tmp = t_2
else if (a <= 1.45d+232) then
tmp = a * (x * ((y * b) - (y1 * y2)))
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 * (z * ((y1 * y3) - (t * b)));
double t_2 = k * (y5 * ((y * i) - (y0 * y2)));
double t_3 = k * ((z * y1) * ((y2 * (y4 / z)) - i));
double tmp;
if (a <= -1.66e+282) {
tmp = t_1;
} else if (a <= -5.5e+204) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (a <= -1.45e+22) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (a <= -1.52e-46) {
tmp = t_2;
} else if (a <= -6.2e-86) {
tmp = b * (y4 * (k * -y));
} else if (a <= -2.4e-189) {
tmp = t_3;
} else if (a <= -2.5e-278) {
tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))));
} else if (a <= 2.65e-169) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (a <= 8.2e-50) {
tmp = t_3;
} else if (a <= 9.8e-24) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (a <= 7e+79) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (a <= 2.7e+139) {
tmp = t_2;
} else if (a <= 1.45e+232) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} 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 * (z * ((y1 * y3) - (t * b))) t_2 = k * (y5 * ((y * i) - (y0 * y2))) t_3 = k * ((z * y1) * ((y2 * (y4 / z)) - i)) tmp = 0 if a <= -1.66e+282: tmp = t_1 elif a <= -5.5e+204: tmp = a * (y2 * ((t * y5) - (x * y1))) elif a <= -1.45e+22: tmp = b * (y * (x * (a - (k * (y4 / x))))) elif a <= -1.52e-46: tmp = t_2 elif a <= -6.2e-86: tmp = b * (y4 * (k * -y)) elif a <= -2.4e-189: tmp = t_3 elif a <= -2.5e-278: tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0)))) elif a <= 2.65e-169: tmp = y2 * (y4 * ((k * y1) - (t * c))) elif a <= 8.2e-50: tmp = t_3 elif a <= 9.8e-24: tmp = x * (y * ((a * b) - (c * i))) elif a <= 7e+79: tmp = c * (y4 * ((y * y3) - (t * y2))) elif a <= 2.7e+139: tmp = t_2 elif a <= 1.45e+232: tmp = a * (x * ((y * b) - (y1 * y2))) 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(z * Float64(Float64(y1 * y3) - Float64(t * b)))) t_2 = Float64(k * Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2)))) t_3 = Float64(k * Float64(Float64(z * y1) * Float64(Float64(y2 * Float64(y4 / z)) - i))) tmp = 0.0 if (a <= -1.66e+282) tmp = t_1; elseif (a <= -5.5e+204) tmp = Float64(a * Float64(y2 * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (a <= -1.45e+22) tmp = Float64(b * Float64(y * Float64(x * Float64(a - Float64(k * Float64(y4 / x)))))); elseif (a <= -1.52e-46) tmp = t_2; elseif (a <= -6.2e-86) tmp = Float64(b * Float64(y4 * Float64(k * Float64(-y)))); elseif (a <= -2.4e-189) tmp = t_3; elseif (a <= -2.5e-278) tmp = Float64(x * Float64(Float64(Float64(a * Float64(y * b)) - Float64(a * Float64(y1 * y2))) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0))))); elseif (a <= 2.65e-169) tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); elseif (a <= 8.2e-50) tmp = t_3; elseif (a <= 9.8e-24) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (a <= 7e+79) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (a <= 2.7e+139) tmp = t_2; elseif (a <= 1.45e+232) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); 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 * (z * ((y1 * y3) - (t * b))); t_2 = k * (y5 * ((y * i) - (y0 * y2))); t_3 = k * ((z * y1) * ((y2 * (y4 / z)) - i)); tmp = 0.0; if (a <= -1.66e+282) tmp = t_1; elseif (a <= -5.5e+204) tmp = a * (y2 * ((t * y5) - (x * y1))); elseif (a <= -1.45e+22) tmp = b * (y * (x * (a - (k * (y4 / x))))); elseif (a <= -1.52e-46) tmp = t_2; elseif (a <= -6.2e-86) tmp = b * (y4 * (k * -y)); elseif (a <= -2.4e-189) tmp = t_3; elseif (a <= -2.5e-278) tmp = x * (((a * (y * b)) - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0)))); elseif (a <= 2.65e-169) tmp = y2 * (y4 * ((k * y1) - (t * c))); elseif (a <= 8.2e-50) tmp = t_3; elseif (a <= 9.8e-24) tmp = x * (y * ((a * b) - (c * i))); elseif (a <= 7e+79) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (a <= 2.7e+139) tmp = t_2; elseif (a <= 1.45e+232) tmp = a * (x * ((y * b) - (y1 * y2))); 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[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(k * N[(N[(z * y1), $MachinePrecision] * N[(N[(y2 * N[(y4 / z), $MachinePrecision]), $MachinePrecision] - i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -1.66e+282], t$95$1, If[LessEqual[a, -5.5e+204], N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.45e+22], N[(b * N[(y * N[(x * N[(a - N[(k * N[(y4 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.52e-46], t$95$2, If[LessEqual[a, -6.2e-86], N[(b * N[(y4 * N[(k * (-y)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -2.4e-189], t$95$3, If[LessEqual[a, -2.5e-278], N[(x * N[(N[(N[(a * N[(y * b), $MachinePrecision]), $MachinePrecision] - N[(a * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.65e-169], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 8.2e-50], t$95$3, If[LessEqual[a, 9.8e-24], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 7e+79], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.7e+139], t$95$2, If[LessEqual[a, 1.45e+232], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
t_2 := k \cdot \left(y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
t_3 := k \cdot \left(\left(z \cdot y1\right) \cdot \left(y2 \cdot \frac{y4}{z} - i\right)\right)\\
\mathbf{if}\;a \leq -1.66 \cdot 10^{+282}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq -5.5 \cdot 10^{+204}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;a \leq -1.45 \cdot 10^{+22}:\\
\;\;\;\;b \cdot \left(y \cdot \left(x \cdot \left(a - k \cdot \frac{y4}{x}\right)\right)\right)\\
\mathbf{elif}\;a \leq -1.52 \cdot 10^{-46}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq -6.2 \cdot 10^{-86}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(k \cdot \left(-y\right)\right)\right)\\
\mathbf{elif}\;a \leq -2.4 \cdot 10^{-189}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;a \leq -2.5 \cdot 10^{-278}:\\
\;\;\;\;x \cdot \left(\left(a \cdot \left(y \cdot b\right) - a \cdot \left(y1 \cdot y2\right)\right) + j \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;a \leq 2.65 \cdot 10^{-169}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{elif}\;a \leq 8.2 \cdot 10^{-50}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;a \leq 9.8 \cdot 10^{-24}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;a \leq 7 \cdot 10^{+79}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;a \leq 2.7 \cdot 10^{+139}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;a \leq 1.45 \cdot 10^{+232}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if a < -1.65999999999999999e282 or 1.45000000000000012e232 < a Initial program 8.7%
Taylor expanded in a around inf 69.5%
+-commutative69.5%
mul-1-neg69.5%
unsub-neg69.5%
*-commutative69.5%
*-commutative69.5%
*-commutative69.5%
mul-1-neg69.5%
*-commutative69.5%
Simplified69.5%
Taylor expanded in z around -inf 83.2%
mul-1-neg83.2%
Simplified83.2%
if -1.65999999999999999e282 < a < -5.4999999999999996e204Initial program 20.0%
Taylor expanded in a around inf 75.2%
+-commutative75.2%
mul-1-neg75.2%
unsub-neg75.2%
*-commutative75.2%
*-commutative75.2%
*-commutative75.2%
mul-1-neg75.2%
*-commutative75.2%
Simplified75.2%
Taylor expanded in y2 around inf 70.8%
if -5.4999999999999996e204 < a < -1.45e22Initial program 29.0%
Taylor expanded in b around inf 38.4%
Taylor expanded in y around inf 53.3%
+-commutative53.3%
mul-1-neg53.3%
unsub-neg53.3%
Simplified53.3%
Taylor expanded in x around inf 55.6%
mul-1-neg55.6%
unsub-neg55.6%
associate-/l*57.9%
Simplified57.9%
if -1.45e22 < a < -1.52000000000000006e-46 or 6.99999999999999961e79 < a < 2.6999999999999998e139Initial program 28.5%
Taylor expanded in k around inf 58.1%
+-commutative58.1%
mul-1-neg58.1%
unsub-neg58.1%
*-commutative58.1%
associate-*r*58.1%
neg-mul-158.1%
Simplified58.1%
Taylor expanded in y5 around -inf 62.3%
associate-*r*62.3%
neg-mul-162.3%
Simplified62.3%
if -1.52000000000000006e-46 < a < -6.19999999999999977e-86Initial program 27.5%
Taylor expanded in b around inf 46.9%
Taylor expanded in y around inf 38.2%
+-commutative38.2%
mul-1-neg38.2%
unsub-neg38.2%
Simplified38.2%
Taylor expanded in a around 0 38.3%
associate-*r*38.3%
neg-mul-138.3%
associate-*r*47.1%
Simplified47.1%
if -6.19999999999999977e-86 < a < -2.3999999999999998e-189 or 2.65e-169 < a < 8.19999999999999971e-50Initial program 27.8%
Taylor expanded in k around inf 47.4%
+-commutative47.4%
mul-1-neg47.4%
unsub-neg47.4%
*-commutative47.4%
associate-*r*47.4%
neg-mul-147.4%
Simplified47.4%
Taylor expanded in z around -inf 49.5%
associate-*r*49.5%
neg-mul-149.5%
+-commutative49.5%
mul-1-neg49.5%
unsub-neg49.5%
Simplified49.5%
Taylor expanded in y1 around inf 50.0%
associate-*r*50.0%
neg-mul-150.0%
associate-*r*51.8%
*-commutative51.8%
associate-/l*51.8%
Simplified51.8%
if -2.3999999999999998e-189 < a < -2.49999999999999992e-278Initial program 24.1%
Taylor expanded in x around inf 53.7%
Taylor expanded in c around 0 60.0%
+-commutative60.0%
mul-1-neg60.0%
unsub-neg60.0%
Simplified60.0%
if -2.49999999999999992e-278 < a < 2.65e-169Initial program 35.4%
Taylor expanded in y4 around inf 48.3%
Taylor expanded in y2 around inf 42.1%
*-commutative42.1%
Simplified42.1%
if 8.19999999999999971e-50 < a < 9.8000000000000002e-24Initial program 25.0%
Taylor expanded in x around inf 50.8%
Taylor expanded in y around inf 51.3%
if 9.8000000000000002e-24 < a < 6.99999999999999961e79Initial program 30.0%
Taylor expanded in y4 around inf 70.3%
Taylor expanded in c around inf 80.5%
*-commutative80.5%
*-commutative80.5%
Simplified80.5%
if 2.6999999999999998e139 < a < 1.45000000000000012e232Initial program 26.3%
Taylor expanded in a around inf 69.1%
+-commutative69.1%
mul-1-neg69.1%
unsub-neg69.1%
*-commutative69.1%
*-commutative69.1%
*-commutative69.1%
mul-1-neg69.1%
*-commutative69.1%
Simplified69.1%
Taylor expanded in x around inf 64.3%
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 (* a (* y b)))
(t_2
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j))))))
(t_3 (* y2 (* y4 (- (* k y1) (* t c))))))
(if (<= y -8.5e+139)
(* b (* y (* x (- a (* k (/ y4 x))))))
(if (<= y -5e+90)
(* (- (* t b) (* y1 y3)) (* j y4))
(if (<= y -6.8e+22)
t_3
(if (<= y 1.02e-305)
t_2
(if (<= y 2.5e-179)
t_3
(if (<= y 3.9e-110)
t_2
(if (<= y 1.9e-26)
(*
k
(*
z
(+
(* b y0)
(- (/ (* y5 (- (* y i) (* y0 y2))) z) (* i y1)))))
(if (<= y 4.5e+21)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= y 4.1e+92)
(* a (* y1 (- (* z y3) (* x y2))))
(if (<= y 5.4e+163)
(*
x
(+
(- t_1 (* a (* y1 y2)))
(* j (- (* i y1) (* b y0)))))
(if (<= y 1.05e+195)
(* y (* y4 (- (* c y3) (* b k))))
(if (<= y 4.8e+255)
(* x t_1)
(* k (* y (- (* i y5) (* b 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 = a * (y * b);
double t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_3 = y2 * (y4 * ((k * y1) - (t * c)));
double tmp;
if (y <= -8.5e+139) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (y <= -5e+90) {
tmp = ((t * b) - (y1 * y3)) * (j * y4);
} else if (y <= -6.8e+22) {
tmp = t_3;
} else if (y <= 1.02e-305) {
tmp = t_2;
} else if (y <= 2.5e-179) {
tmp = t_3;
} else if (y <= 3.9e-110) {
tmp = t_2;
} else if (y <= 1.9e-26) {
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
} else if (y <= 4.5e+21) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (y <= 4.1e+92) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (y <= 5.4e+163) {
tmp = x * ((t_1 - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))));
} else if (y <= 1.05e+195) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else if (y <= 4.8e+255) {
tmp = x * t_1;
} else {
tmp = k * (y * ((i * y5) - (b * 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) :: tmp
t_1 = a * (y * b)
t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
t_3 = y2 * (y4 * ((k * y1) - (t * c)))
if (y <= (-8.5d+139)) then
tmp = b * (y * (x * (a - (k * (y4 / x)))))
else if (y <= (-5d+90)) then
tmp = ((t * b) - (y1 * y3)) * (j * y4)
else if (y <= (-6.8d+22)) then
tmp = t_3
else if (y <= 1.02d-305) then
tmp = t_2
else if (y <= 2.5d-179) then
tmp = t_3
else if (y <= 3.9d-110) then
tmp = t_2
else if (y <= 1.9d-26) then
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))))
else if (y <= 4.5d+21) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (y <= 4.1d+92) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else if (y <= 5.4d+163) then
tmp = x * ((t_1 - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))))
else if (y <= 1.05d+195) then
tmp = y * (y4 * ((c * y3) - (b * k)))
else if (y <= 4.8d+255) then
tmp = x * t_1
else
tmp = k * (y * ((i * y5) - (b * 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 = a * (y * b);
double t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_3 = y2 * (y4 * ((k * y1) - (t * c)));
double tmp;
if (y <= -8.5e+139) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (y <= -5e+90) {
tmp = ((t * b) - (y1 * y3)) * (j * y4);
} else if (y <= -6.8e+22) {
tmp = t_3;
} else if (y <= 1.02e-305) {
tmp = t_2;
} else if (y <= 2.5e-179) {
tmp = t_3;
} else if (y <= 3.9e-110) {
tmp = t_2;
} else if (y <= 1.9e-26) {
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
} else if (y <= 4.5e+21) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (y <= 4.1e+92) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (y <= 5.4e+163) {
tmp = x * ((t_1 - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0))));
} else if (y <= 1.05e+195) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else if (y <= 4.8e+255) {
tmp = x * t_1;
} else {
tmp = k * (y * ((i * y5) - (b * y4)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (y * b) t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) t_3 = y2 * (y4 * ((k * y1) - (t * c))) tmp = 0 if y <= -8.5e+139: tmp = b * (y * (x * (a - (k * (y4 / x))))) elif y <= -5e+90: tmp = ((t * b) - (y1 * y3)) * (j * y4) elif y <= -6.8e+22: tmp = t_3 elif y <= 1.02e-305: tmp = t_2 elif y <= 2.5e-179: tmp = t_3 elif y <= 3.9e-110: tmp = t_2 elif y <= 1.9e-26: tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))) elif y <= 4.5e+21: tmp = a * (x * ((y * b) - (y1 * y2))) elif y <= 4.1e+92: tmp = a * (y1 * ((z * y3) - (x * y2))) elif y <= 5.4e+163: tmp = x * ((t_1 - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0)))) elif y <= 1.05e+195: tmp = y * (y4 * ((c * y3) - (b * k))) elif y <= 4.8e+255: tmp = x * t_1 else: tmp = k * (y * ((i * y5) - (b * y4))) 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(y * b)) 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(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))) tmp = 0.0 if (y <= -8.5e+139) tmp = Float64(b * Float64(y * Float64(x * Float64(a - Float64(k * Float64(y4 / x)))))); elseif (y <= -5e+90) tmp = Float64(Float64(Float64(t * b) - Float64(y1 * y3)) * Float64(j * y4)); elseif (y <= -6.8e+22) tmp = t_3; elseif (y <= 1.02e-305) tmp = t_2; elseif (y <= 2.5e-179) tmp = t_3; elseif (y <= 3.9e-110) tmp = t_2; elseif (y <= 1.9e-26) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) / z) - Float64(i * y1))))); elseif (y <= 4.5e+21) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (y <= 4.1e+92) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); elseif (y <= 5.4e+163) tmp = Float64(x * Float64(Float64(t_1 - Float64(a * Float64(y1 * y2))) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0))))); elseif (y <= 1.05e+195) tmp = Float64(y * Float64(y4 * Float64(Float64(c * y3) - Float64(b * k)))); elseif (y <= 4.8e+255) tmp = Float64(x * t_1); else tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * 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 = a * (y * b); t_2 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); t_3 = y2 * (y4 * ((k * y1) - (t * c))); tmp = 0.0; if (y <= -8.5e+139) tmp = b * (y * (x * (a - (k * (y4 / x))))); elseif (y <= -5e+90) tmp = ((t * b) - (y1 * y3)) * (j * y4); elseif (y <= -6.8e+22) tmp = t_3; elseif (y <= 1.02e-305) tmp = t_2; elseif (y <= 2.5e-179) tmp = t_3; elseif (y <= 3.9e-110) tmp = t_2; elseif (y <= 1.9e-26) tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))); elseif (y <= 4.5e+21) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (y <= 4.1e+92) tmp = a * (y1 * ((z * y3) - (x * y2))); elseif (y <= 5.4e+163) tmp = x * ((t_1 - (a * (y1 * y2))) + (j * ((i * y1) - (b * y0)))); elseif (y <= 1.05e+195) tmp = y * (y4 * ((c * y3) - (b * k))); elseif (y <= 4.8e+255) tmp = x * t_1; else tmp = k * (y * ((i * y5) - (b * 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[(a * N[(y * b), $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[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -8.5e+139], N[(b * N[(y * N[(x * N[(a - N[(k * N[(y4 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -5e+90], N[(N[(N[(t * b), $MachinePrecision] - N[(y1 * y3), $MachinePrecision]), $MachinePrecision] * N[(j * y4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -6.8e+22], t$95$3, If[LessEqual[y, 1.02e-305], t$95$2, If[LessEqual[y, 2.5e-179], t$95$3, If[LessEqual[y, 3.9e-110], t$95$2, If[LessEqual[y, 1.9e-26], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.5e+21], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.1e+92], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 5.4e+163], N[(x * N[(N[(t$95$1 - N[(a * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.05e+195], N[(y * N[(y4 * N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.8e+255], N[(x * t$95$1), $MachinePrecision], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y \cdot b\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 := y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{if}\;y \leq -8.5 \cdot 10^{+139}:\\
\;\;\;\;b \cdot \left(y \cdot \left(x \cdot \left(a - k \cdot \frac{y4}{x}\right)\right)\right)\\
\mathbf{elif}\;y \leq -5 \cdot 10^{+90}:\\
\;\;\;\;\left(t \cdot b - y1 \cdot y3\right) \cdot \left(j \cdot y4\right)\\
\mathbf{elif}\;y \leq -6.8 \cdot 10^{+22}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y \leq 1.02 \cdot 10^{-305}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 2.5 \cdot 10^{-179}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y \leq 3.9 \cdot 10^{-110}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 1.9 \cdot 10^{-26}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{y5 \cdot \left(y \cdot i - y0 \cdot y2\right)}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{elif}\;y \leq 4.5 \cdot 10^{+21}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;y \leq 4.1 \cdot 10^{+92}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{elif}\;y \leq 5.4 \cdot 10^{+163}:\\
\;\;\;\;x \cdot \left(\left(t\_1 - a \cdot \left(y1 \cdot y2\right)\right) + j \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;y \leq 1.05 \cdot 10^{+195}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3 - b \cdot k\right)\right)\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{+255}:\\
\;\;\;\;x \cdot t\_1\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\end{array}
\end{array}
if y < -8.5e139Initial program 19.1%
Taylor expanded in b around inf 30.1%
Taylor expanded in y around inf 62.6%
+-commutative62.6%
mul-1-neg62.6%
unsub-neg62.6%
Simplified62.6%
Taylor expanded in x around inf 65.2%
mul-1-neg65.2%
unsub-neg65.2%
associate-/l*65.1%
Simplified65.1%
if -8.5e139 < y < -5.0000000000000004e90Initial program 33.3%
Taylor expanded in y4 around inf 40.5%
Taylor expanded in j around inf 74.1%
associate-*r*67.8%
*-commutative67.8%
+-commutative67.8%
mul-1-neg67.8%
unsub-neg67.8%
*-commutative67.8%
Simplified67.8%
if -5.0000000000000004e90 < y < -6.8e22 or 1.01999999999999994e-305 < y < 2.4999999999999999e-179Initial program 27.6%
Taylor expanded in y4 around inf 45.5%
Taylor expanded in y2 around inf 50.9%
*-commutative50.9%
Simplified50.9%
if -6.8e22 < y < 1.01999999999999994e-305 or 2.4999999999999999e-179 < y < 3.9e-110Initial program 23.8%
Taylor expanded in b around inf 48.0%
if 3.9e-110 < y < 1.90000000000000007e-26Initial program 33.1%
Taylor expanded in k around inf 48.2%
+-commutative48.2%
mul-1-neg48.2%
unsub-neg48.2%
*-commutative48.2%
associate-*r*48.2%
neg-mul-148.2%
Simplified48.2%
Taylor expanded in z around -inf 48.4%
associate-*r*48.4%
neg-mul-148.4%
+-commutative48.4%
mul-1-neg48.4%
unsub-neg48.4%
Simplified48.4%
Taylor expanded in y5 around -inf 53.9%
if 1.90000000000000007e-26 < y < 4.5e21Initial program 37.1%
Taylor expanded in a around inf 38.0%
+-commutative38.0%
mul-1-neg38.0%
unsub-neg38.0%
*-commutative38.0%
*-commutative38.0%
*-commutative38.0%
mul-1-neg38.0%
*-commutative38.0%
Simplified38.0%
Taylor expanded in x around inf 51.1%
if 4.5e21 < y < 4.10000000000000024e92Initial program 27.1%
Taylor expanded in a around inf 73.1%
+-commutative73.1%
mul-1-neg73.1%
unsub-neg73.1%
*-commutative73.1%
*-commutative73.1%
*-commutative73.1%
mul-1-neg73.1%
*-commutative73.1%
Simplified73.1%
Taylor expanded in y1 around inf 67.2%
if 4.10000000000000024e92 < y < 5.39999999999999998e163Initial program 22.6%
Taylor expanded in x around inf 50.5%
Taylor expanded in c around 0 56.3%
+-commutative56.3%
mul-1-neg56.3%
unsub-neg56.3%
Simplified56.3%
if 5.39999999999999998e163 < y < 1.05000000000000005e195Initial program 14.3%
Taylor expanded in y4 around inf 72.0%
Taylor expanded in y around inf 86.2%
distribute-lft-out--86.2%
*-commutative86.2%
*-commutative86.2%
Simplified86.2%
if 1.05000000000000005e195 < y < 4.80000000000000011e255Initial program 33.3%
Taylor expanded in x around inf 33.3%
Taylor expanded in y around inf 34.0%
Taylor expanded in a around inf 67.4%
if 4.80000000000000011e255 < y Initial program 36.4%
Taylor expanded in k around inf 78.6%
+-commutative78.6%
mul-1-neg78.6%
unsub-neg78.6%
*-commutative78.6%
associate-*r*78.6%
neg-mul-178.6%
Simplified78.6%
Taylor expanded in y around inf 85.7%
Final simplification58.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j))))))
(t_2 (* a (* y1 (- (* z y3) (* x y2))))))
(if (<= y -1e+140)
(* b (* y (* x (- a (* k (/ y4 x))))))
(if (<= y -1.15e+99)
(*
j
(+
(+ (* t (- (* b y4) (* i y5))) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0)))))
(if (<= y -6.7e+22)
(* y2 (* y4 (- (* k y1) (* t c))))
(if (<= y -1.42e-9)
t_1
(if (<= y -2.7e-37)
t_2
(if (<= y -8.2e-103)
(* a (* t (* y5 (- y2 (* b (/ z y5))))))
(if (<= y -2.1e-290)
t_1
(if (<= y 2.9e-258)
(*
c
(+
(+ (* y0 (- (* x y2) (* z y3))) (* i (- (* z t) (* x y))))
(* y4 (- (* y y3) (* t y2)))))
(if (<= y 1.85e-62)
(* a (* t (- (* y2 y5) (* z b))))
(if (<= y 3.15e+94)
t_2
(if (<= y 5.2e+200)
(* a (* x (- (* y b) (* y1 y2))))
(* k (* y (- (* i y5) (* b 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 * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_2 = a * (y1 * ((z * y3) - (x * y2)));
double tmp;
if (y <= -1e+140) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (y <= -1.15e+99) {
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
} else if (y <= -6.7e+22) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (y <= -1.42e-9) {
tmp = t_1;
} else if (y <= -2.7e-37) {
tmp = t_2;
} else if (y <= -8.2e-103) {
tmp = a * (t * (y5 * (y2 - (b * (z / y5)))));
} else if (y <= -2.1e-290) {
tmp = t_1;
} else if (y <= 2.9e-258) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
} else if (y <= 1.85e-62) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (y <= 3.15e+94) {
tmp = t_2;
} else if (y <= 5.2e+200) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else {
tmp = k * (y * ((i * y5) - (b * 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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
t_2 = a * (y1 * ((z * y3) - (x * y2)))
if (y <= (-1d+140)) then
tmp = b * (y * (x * (a - (k * (y4 / x)))))
else if (y <= (-1.15d+99)) then
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
else if (y <= (-6.7d+22)) then
tmp = y2 * (y4 * ((k * y1) - (t * c)))
else if (y <= (-1.42d-9)) then
tmp = t_1
else if (y <= (-2.7d-37)) then
tmp = t_2
else if (y <= (-8.2d-103)) then
tmp = a * (t * (y5 * (y2 - (b * (z / y5)))))
else if (y <= (-2.1d-290)) then
tmp = t_1
else if (y <= 2.9d-258) then
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))))
else if (y <= 1.85d-62) then
tmp = a * (t * ((y2 * y5) - (z * b)))
else if (y <= 3.15d+94) then
tmp = t_2
else if (y <= 5.2d+200) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else
tmp = k * (y * ((i * y5) - (b * 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 * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_2 = a * (y1 * ((z * y3) - (x * y2)));
double tmp;
if (y <= -1e+140) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (y <= -1.15e+99) {
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
} else if (y <= -6.7e+22) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (y <= -1.42e-9) {
tmp = t_1;
} else if (y <= -2.7e-37) {
tmp = t_2;
} else if (y <= -8.2e-103) {
tmp = a * (t * (y5 * (y2 - (b * (z / y5)))));
} else if (y <= -2.1e-290) {
tmp = t_1;
} else if (y <= 2.9e-258) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
} else if (y <= 1.85e-62) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (y <= 3.15e+94) {
tmp = t_2;
} else if (y <= 5.2e+200) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else {
tmp = k * (y * ((i * y5) - (b * y4)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) t_2 = a * (y1 * ((z * y3) - (x * y2))) tmp = 0 if y <= -1e+140: tmp = b * (y * (x * (a - (k * (y4 / x))))) elif y <= -1.15e+99: tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) elif y <= -6.7e+22: tmp = y2 * (y4 * ((k * y1) - (t * c))) elif y <= -1.42e-9: tmp = t_1 elif y <= -2.7e-37: tmp = t_2 elif y <= -8.2e-103: tmp = a * (t * (y5 * (y2 - (b * (z / y5))))) elif y <= -2.1e-290: tmp = t_1 elif y <= 2.9e-258: tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))) elif y <= 1.85e-62: tmp = a * (t * ((y2 * y5) - (z * b))) elif y <= 3.15e+94: tmp = t_2 elif y <= 5.2e+200: tmp = a * (x * ((y * b) - (y1 * y2))) else: tmp = k * (y * ((i * y5) - (b * 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(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_2 = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) tmp = 0.0 if (y <= -1e+140) tmp = Float64(b * Float64(y * Float64(x * Float64(a - Float64(k * Float64(y4 / x)))))); elseif (y <= -1.15e+99) tmp = 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))))); elseif (y <= -6.7e+22) tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); elseif (y <= -1.42e-9) tmp = t_1; elseif (y <= -2.7e-37) tmp = t_2; elseif (y <= -8.2e-103) tmp = Float64(a * Float64(t * Float64(y5 * Float64(y2 - Float64(b * Float64(z / y5)))))); elseif (y <= -2.1e-290) tmp = t_1; elseif (y <= 2.9e-258) tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (y <= 1.85e-62) tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); elseif (y <= 3.15e+94) tmp = t_2; elseif (y <= 5.2e+200) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); else tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * 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 * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); t_2 = a * (y1 * ((z * y3) - (x * y2))); tmp = 0.0; if (y <= -1e+140) tmp = b * (y * (x * (a - (k * (y4 / x))))); elseif (y <= -1.15e+99) tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); elseif (y <= -6.7e+22) tmp = y2 * (y4 * ((k * y1) - (t * c))); elseif (y <= -1.42e-9) tmp = t_1; elseif (y <= -2.7e-37) tmp = t_2; elseif (y <= -8.2e-103) tmp = a * (t * (y5 * (y2 - (b * (z / y5))))); elseif (y <= -2.1e-290) tmp = t_1; elseif (y <= 2.9e-258) tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))); elseif (y <= 1.85e-62) tmp = a * (t * ((y2 * y5) - (z * b))); elseif (y <= 3.15e+94) tmp = t_2; elseif (y <= 5.2e+200) tmp = a * (x * ((y * b) - (y1 * y2))); else tmp = k * (y * ((i * y5) - (b * 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[(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$2 = N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1e+140], N[(b * N[(y * N[(x * N[(a - N[(k * N[(y4 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.15e+99], 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], If[LessEqual[y, -6.7e+22], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.42e-9], t$95$1, If[LessEqual[y, -2.7e-37], t$95$2, If[LessEqual[y, -8.2e-103], N[(a * N[(t * N[(y5 * N[(y2 - N[(b * N[(z / y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.1e-290], t$95$1, If[LessEqual[y, 2.9e-258], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.85e-62], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.15e+94], t$95$2, If[LessEqual[y, 5.2e+200], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := 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_2 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{if}\;y \leq -1 \cdot 10^{+140}:\\
\;\;\;\;b \cdot \left(y \cdot \left(x \cdot \left(a - k \cdot \frac{y4}{x}\right)\right)\right)\\
\mathbf{elif}\;y \leq -1.15 \cdot 10^{+99}:\\
\;\;\;\;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)\\
\mathbf{elif}\;y \leq -6.7 \cdot 10^{+22}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{elif}\;y \leq -1.42 \cdot 10^{-9}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -2.7 \cdot 10^{-37}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -8.2 \cdot 10^{-103}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y5 \cdot \left(y2 - b \cdot \frac{z}{y5}\right)\right)\right)\\
\mathbf{elif}\;y \leq -2.1 \cdot 10^{-290}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 2.9 \cdot 10^{-258}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y \leq 1.85 \cdot 10^{-62}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{elif}\;y \leq 3.15 \cdot 10^{+94}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 5.2 \cdot 10^{+200}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\end{array}
\end{array}
if y < -1.00000000000000006e140Initial program 19.1%
Taylor expanded in b around inf 30.1%
Taylor expanded in y around inf 62.6%
+-commutative62.6%
mul-1-neg62.6%
unsub-neg62.6%
Simplified62.6%
Taylor expanded in x around inf 65.2%
mul-1-neg65.2%
unsub-neg65.2%
associate-/l*65.1%
Simplified65.1%
if -1.00000000000000006e140 < y < -1.1500000000000001e99Initial program 33.3%
Taylor expanded in j around inf 75.4%
+-commutative75.4%
mul-1-neg75.4%
unsub-neg75.4%
*-commutative75.4%
Simplified75.4%
if -1.1500000000000001e99 < y < -6.7000000000000002e22Initial program 35.2%
Taylor expanded in y4 around inf 53.0%
Taylor expanded in y2 around inf 59.8%
*-commutative59.8%
Simplified59.8%
if -6.7000000000000002e22 < y < -1.4200000000000001e-9 or -8.19999999999999992e-103 < y < -2.1000000000000001e-290Initial program 24.1%
Taylor expanded in b around inf 53.4%
if -1.4200000000000001e-9 < y < -2.70000000000000016e-37 or 1.8499999999999999e-62 < y < 3.15e94Initial program 26.8%
Taylor expanded in a around inf 51.7%
+-commutative51.7%
mul-1-neg51.7%
unsub-neg51.7%
*-commutative51.7%
*-commutative51.7%
*-commutative51.7%
mul-1-neg51.7%
*-commutative51.7%
Simplified51.7%
Taylor expanded in y1 around inf 49.7%
if -2.70000000000000016e-37 < y < -8.19999999999999992e-103Initial program 0.0%
Taylor expanded in a around inf 45.8%
+-commutative45.8%
mul-1-neg45.8%
unsub-neg45.8%
*-commutative45.8%
*-commutative45.8%
*-commutative45.8%
mul-1-neg45.8%
*-commutative45.8%
Simplified45.8%
Taylor expanded in t around inf 56.1%
+-commutative56.1%
mul-1-neg56.1%
sub-neg56.1%
Simplified56.1%
Taylor expanded in y5 around inf 56.1%
mul-1-neg56.1%
unsub-neg56.1%
associate-/l*66.9%
Simplified66.9%
if -2.1000000000000001e-290 < y < 2.9e-258Initial program 52.8%
Taylor expanded in c around inf 76.5%
+-commutative76.5%
mul-1-neg76.5%
unsub-neg76.5%
*-commutative76.5%
*-commutative76.5%
*-commutative76.5%
*-commutative76.5%
Simplified76.5%
if 2.9e-258 < y < 1.8499999999999999e-62Initial program 21.8%
Taylor expanded in a around inf 44.1%
+-commutative44.1%
mul-1-neg44.1%
unsub-neg44.1%
*-commutative44.1%
*-commutative44.1%
*-commutative44.1%
mul-1-neg44.1%
*-commutative44.1%
Simplified44.1%
Taylor expanded in t around inf 46.9%
+-commutative46.9%
mul-1-neg46.9%
sub-neg46.9%
Simplified46.9%
if 3.15e94 < y < 5.2000000000000003e200Initial program 25.2%
Taylor expanded in a around inf 39.6%
+-commutative39.6%
mul-1-neg39.6%
unsub-neg39.6%
*-commutative39.6%
*-commutative39.6%
*-commutative39.6%
mul-1-neg39.6%
*-commutative39.6%
Simplified39.6%
Taylor expanded in x around inf 47.7%
if 5.2000000000000003e200 < y Initial program 30.5%
Taylor expanded in k around inf 70.0%
+-commutative70.0%
mul-1-neg70.0%
unsub-neg70.0%
*-commutative70.0%
associate-*r*70.0%
neg-mul-170.0%
Simplified70.0%
Taylor expanded in y around inf 75.1%
Final simplification58.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j))))))
(t_2 (- (* a y5) (* c y4))))
(if (<= b -8.6e+182)
t_1
(if (<= b -4.4e+108)
(* a (* z (- (* y1 y3) (* t b))))
(if (<= b -5.8e+21)
(*
k
(* z (+ (* b y0) (- (/ (* y5 (- (* y i) (* y0 y2))) z) (* i y1)))))
(if (<= b -1.22e-84)
(* a (* y1 (- (* z y3) (* x y2))))
(if (<= b 2e-99)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x (- (* c y0) (* a y1))))
(* t t_2)))
(if (<= b 1.05e-41)
(*
c
(+
(+ (* y0 (- (* x y2) (* z y3))) (* i (- (* z t) (* x y))))
(* y4 (- (* y y3) (* t y2)))))
(if (<= b 3.6e+171)
(*
t
(+
(+ (* j (- (* b y4) (* i y5))) (* z (- (* c i) (* a b))))
(* y2 t_2)))
t_1)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_2 = (a * y5) - (c * y4);
double tmp;
if (b <= -8.6e+182) {
tmp = t_1;
} else if (b <= -4.4e+108) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -5.8e+21) {
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
} else if (b <= -1.22e-84) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (b <= 2e-99) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2));
} else if (b <= 1.05e-41) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
} else if (b <= 3.6e+171) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2));
} 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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
t_2 = (a * y5) - (c * y4)
if (b <= (-8.6d+182)) then
tmp = t_1
else if (b <= (-4.4d+108)) then
tmp = a * (z * ((y1 * y3) - (t * b)))
else if (b <= (-5.8d+21)) then
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))))
else if (b <= (-1.22d-84)) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else if (b <= 2d-99) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2))
else if (b <= 1.05d-41) then
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))))
else if (b <= 3.6d+171) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double t_2 = (a * y5) - (c * y4);
double tmp;
if (b <= -8.6e+182) {
tmp = t_1;
} else if (b <= -4.4e+108) {
tmp = a * (z * ((y1 * y3) - (t * b)));
} else if (b <= -5.8e+21) {
tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1))));
} else if (b <= -1.22e-84) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (b <= 2e-99) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2));
} else if (b <= 1.05e-41) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
} else if (b <= 3.6e+171) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2));
} 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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) t_2 = (a * y5) - (c * y4) tmp = 0 if b <= -8.6e+182: tmp = t_1 elif b <= -4.4e+108: tmp = a * (z * ((y1 * y3) - (t * b))) elif b <= -5.8e+21: tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))) elif b <= -1.22e-84: tmp = a * (y1 * ((z * y3) - (x * y2))) elif b <= 2e-99: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2)) elif b <= 1.05e-41: tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))) elif b <= 3.6e+171: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2)) 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(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_2 = Float64(Float64(a * y5) - Float64(c * y4)) tmp = 0.0 if (b <= -8.6e+182) tmp = t_1; elseif (b <= -4.4e+108) tmp = Float64(a * Float64(z * Float64(Float64(y1 * y3) - Float64(t * b)))); elseif (b <= -5.8e+21) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) + Float64(Float64(Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2))) / z) - Float64(i * y1))))); elseif (b <= -1.22e-84) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); elseif (b <= 2e-99) 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_2))); elseif (b <= 1.05e-41) tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (b <= 3.6e+171) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * t_2))); 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 = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); t_2 = (a * y5) - (c * y4); tmp = 0.0; if (b <= -8.6e+182) tmp = t_1; elseif (b <= -4.4e+108) tmp = a * (z * ((y1 * y3) - (t * b))); elseif (b <= -5.8e+21) tmp = k * (z * ((b * y0) + (((y5 * ((y * i) - (y0 * y2))) / z) - (i * y1)))); elseif (b <= -1.22e-84) tmp = a * (y1 * ((z * y3) - (x * y2))); elseif (b <= 2e-99) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2)); elseif (b <= 1.05e-41) tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2)))); elseif (b <= 3.6e+171) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2)); 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[(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$2 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -8.6e+182], t$95$1, If[LessEqual[b, -4.4e+108], N[(a * N[(z * N[(N[(y1 * y3), $MachinePrecision] - N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -5.8e+21], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] + N[(N[(N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / z), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -1.22e-84], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2e-99], 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$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.05e-41], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 3.6e+171], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := 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_2 := a \cdot y5 - c \cdot y4\\
\mathbf{if}\;b \leq -8.6 \cdot 10^{+182}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;b \leq -4.4 \cdot 10^{+108}:\\
\;\;\;\;a \cdot \left(z \cdot \left(y1 \cdot y3 - t \cdot b\right)\right)\\
\mathbf{elif}\;b \leq -5.8 \cdot 10^{+21}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 + \left(\frac{y5 \cdot \left(y \cdot i - y0 \cdot y2\right)}{z} - i \cdot y1\right)\right)\right)\\
\mathbf{elif}\;b \leq -1.22 \cdot 10^{-84}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq 2 \cdot 10^{-99}:\\
\;\;\;\;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\_2\right)\\
\mathbf{elif}\;b \leq 1.05 \cdot 10^{-41}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq 3.6 \cdot 10^{+171}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot t\_2\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if b < -8.6000000000000003e182 or 3.60000000000000018e171 < b Initial program 26.3%
Taylor expanded in b around inf 69.1%
if -8.6000000000000003e182 < b < -4.4000000000000003e108Initial program 31.3%
Taylor expanded in a around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in z around -inf 81.7%
mul-1-neg81.7%
Simplified81.7%
if -4.4000000000000003e108 < b < -5.8e21Initial program 7.7%
Taylor expanded in k around inf 54.4%
+-commutative54.4%
mul-1-neg54.4%
unsub-neg54.4%
*-commutative54.4%
associate-*r*54.4%
neg-mul-154.4%
Simplified54.4%
Taylor expanded in z around -inf 69.2%
associate-*r*69.2%
neg-mul-169.2%
+-commutative69.2%
mul-1-neg69.2%
unsub-neg69.2%
Simplified69.2%
Taylor expanded in y5 around -inf 77.4%
if -5.8e21 < b < -1.21999999999999998e-84Initial program 25.0%
Taylor expanded in a around inf 75.2%
+-commutative75.2%
mul-1-neg75.2%
unsub-neg75.2%
*-commutative75.2%
*-commutative75.2%
*-commutative75.2%
mul-1-neg75.2%
*-commutative75.2%
Simplified75.2%
Taylor expanded in y1 around inf 63.5%
if -1.21999999999999998e-84 < b < 2e-99Initial program 22.9%
Taylor expanded in y2 around inf 47.4%
if 2e-99 < b < 1.05000000000000006e-41Initial program 36.0%
Taylor expanded in c around inf 76.8%
+-commutative76.8%
mul-1-neg76.8%
unsub-neg76.8%
*-commutative76.8%
*-commutative76.8%
*-commutative76.8%
*-commutative76.8%
Simplified76.8%
if 1.05000000000000006e-41 < b < 3.60000000000000018e171Initial program 32.7%
Taylor expanded in t around inf 47.6%
+-commutative47.6%
mul-1-neg47.6%
unsub-neg47.6%
*-commutative47.6%
Simplified47.6%
Final simplification59.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* c (* y4 (- (* y y3) (* t y2)))))
(t_2 (* k (* b (- (* z y0) (* y y4)))))
(t_3 (* a (* t (- (* y2 y5) (* z b))))))
(if (<= x -8.4e+23)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= x -2.4e-95)
t_1
(if (<= x -7.5e-139)
t_3
(if (<= x -2.05e-194)
t_2
(if (<= x -4.6e-272)
(* a (* y1 (- (* z y3) (* x y2))))
(if (<= x 4.4e-281)
t_2
(if (<= x 8.4e-199)
t_1
(if (<= x 2.15e-52)
t_3
(if (<= x 4.2e-41)
(* k (* y (- (* i y5) (* b y4))))
(if (<= x 4.5e+67)
(* b (* y4 (- (* t j) (* y k))))
(* b (* x (- (* y a) (* j 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 = c * (y4 * ((y * y3) - (t * y2)));
double t_2 = k * (b * ((z * y0) - (y * y4)));
double t_3 = a * (t * ((y2 * y5) - (z * b)));
double tmp;
if (x <= -8.4e+23) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (x <= -2.4e-95) {
tmp = t_1;
} else if (x <= -7.5e-139) {
tmp = t_3;
} else if (x <= -2.05e-194) {
tmp = t_2;
} else if (x <= -4.6e-272) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (x <= 4.4e-281) {
tmp = t_2;
} else if (x <= 8.4e-199) {
tmp = t_1;
} else if (x <= 2.15e-52) {
tmp = t_3;
} else if (x <= 4.2e-41) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (x <= 4.5e+67) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = b * (x * ((y * a) - (j * 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_2
real(8) :: t_3
real(8) :: tmp
t_1 = c * (y4 * ((y * y3) - (t * y2)))
t_2 = k * (b * ((z * y0) - (y * y4)))
t_3 = a * (t * ((y2 * y5) - (z * b)))
if (x <= (-8.4d+23)) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (x <= (-2.4d-95)) then
tmp = t_1
else if (x <= (-7.5d-139)) then
tmp = t_3
else if (x <= (-2.05d-194)) then
tmp = t_2
else if (x <= (-4.6d-272)) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else if (x <= 4.4d-281) then
tmp = t_2
else if (x <= 8.4d-199) then
tmp = t_1
else if (x <= 2.15d-52) then
tmp = t_3
else if (x <= 4.2d-41) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (x <= 4.5d+67) then
tmp = b * (y4 * ((t * j) - (y * k)))
else
tmp = b * (x * ((y * a) - (j * 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 = c * (y4 * ((y * y3) - (t * y2)));
double t_2 = k * (b * ((z * y0) - (y * y4)));
double t_3 = a * (t * ((y2 * y5) - (z * b)));
double tmp;
if (x <= -8.4e+23) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (x <= -2.4e-95) {
tmp = t_1;
} else if (x <= -7.5e-139) {
tmp = t_3;
} else if (x <= -2.05e-194) {
tmp = t_2;
} else if (x <= -4.6e-272) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (x <= 4.4e-281) {
tmp = t_2;
} else if (x <= 8.4e-199) {
tmp = t_1;
} else if (x <= 2.15e-52) {
tmp = t_3;
} else if (x <= 4.2e-41) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (x <= 4.5e+67) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = b * (x * ((y * a) - (j * y0)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = c * (y4 * ((y * y3) - (t * y2))) t_2 = k * (b * ((z * y0) - (y * y4))) t_3 = a * (t * ((y2 * y5) - (z * b))) tmp = 0 if x <= -8.4e+23: tmp = a * (x * ((y * b) - (y1 * y2))) elif x <= -2.4e-95: tmp = t_1 elif x <= -7.5e-139: tmp = t_3 elif x <= -2.05e-194: tmp = t_2 elif x <= -4.6e-272: tmp = a * (y1 * ((z * y3) - (x * y2))) elif x <= 4.4e-281: tmp = t_2 elif x <= 8.4e-199: tmp = t_1 elif x <= 2.15e-52: tmp = t_3 elif x <= 4.2e-41: tmp = k * (y * ((i * y5) - (b * y4))) elif x <= 4.5e+67: tmp = b * (y4 * ((t * j) - (y * k))) else: tmp = b * (x * ((y * a) - (j * y0))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))) t_2 = Float64(k * Float64(b * Float64(Float64(z * y0) - Float64(y * y4)))) t_3 = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))) tmp = 0.0 if (x <= -8.4e+23) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (x <= -2.4e-95) tmp = t_1; elseif (x <= -7.5e-139) tmp = t_3; elseif (x <= -2.05e-194) tmp = t_2; elseif (x <= -4.6e-272) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); elseif (x <= 4.4e-281) tmp = t_2; elseif (x <= 8.4e-199) tmp = t_1; elseif (x <= 2.15e-52) tmp = t_3; elseif (x <= 4.2e-41) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (x <= 4.5e+67) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); else tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * 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 = c * (y4 * ((y * y3) - (t * y2))); t_2 = k * (b * ((z * y0) - (y * y4))); t_3 = a * (t * ((y2 * y5) - (z * b))); tmp = 0.0; if (x <= -8.4e+23) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (x <= -2.4e-95) tmp = t_1; elseif (x <= -7.5e-139) tmp = t_3; elseif (x <= -2.05e-194) tmp = t_2; elseif (x <= -4.6e-272) tmp = a * (y1 * ((z * y3) - (x * y2))); elseif (x <= 4.4e-281) tmp = t_2; elseif (x <= 8.4e-199) tmp = t_1; elseif (x <= 2.15e-52) tmp = t_3; elseif (x <= 4.2e-41) tmp = k * (y * ((i * y5) - (b * y4))); elseif (x <= 4.5e+67) tmp = b * (y4 * ((t * j) - (y * k))); else tmp = b * (x * ((y * a) - (j * 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[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(b * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -8.4e+23], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -2.4e-95], t$95$1, If[LessEqual[x, -7.5e-139], t$95$3, If[LessEqual[x, -2.05e-194], t$95$2, If[LessEqual[x, -4.6e-272], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4.4e-281], t$95$2, If[LessEqual[x, 8.4e-199], t$95$1, If[LessEqual[x, 2.15e-52], t$95$3, If[LessEqual[x, 4.2e-41], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4.5e+67], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_2 := k \cdot \left(b \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
t_3 := a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{if}\;x \leq -8.4 \cdot 10^{+23}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq -2.4 \cdot 10^{-95}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -7.5 \cdot 10^{-139}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x \leq -2.05 \cdot 10^{-194}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq -4.6 \cdot 10^{-272}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq 4.4 \cdot 10^{-281}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 8.4 \cdot 10^{-199}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 2.15 \cdot 10^{-52}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;x \leq 4.2 \cdot 10^{-41}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;x \leq 4.5 \cdot 10^{+67}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\end{array}
\end{array}
if x < -8.4000000000000005e23Initial program 19.4%
Taylor expanded in a around inf 46.5%
+-commutative46.5%
mul-1-neg46.5%
unsub-neg46.5%
*-commutative46.5%
*-commutative46.5%
*-commutative46.5%
mul-1-neg46.5%
*-commutative46.5%
Simplified46.5%
Taylor expanded in x around inf 56.5%
if -8.4000000000000005e23 < x < -2.4e-95 or 4.40000000000000008e-281 < x < 8.40000000000000008e-199Initial program 43.8%
Taylor expanded in y4 around inf 49.5%
Taylor expanded in c around inf 52.4%
*-commutative52.4%
*-commutative52.4%
Simplified52.4%
if -2.4e-95 < x < -7.5000000000000001e-139 or 8.40000000000000008e-199 < x < 2.1500000000000002e-52Initial program 21.8%
Taylor expanded in a around inf 46.4%
+-commutative46.4%
mul-1-neg46.4%
unsub-neg46.4%
*-commutative46.4%
*-commutative46.4%
*-commutative46.4%
mul-1-neg46.4%
*-commutative46.4%
Simplified46.4%
Taylor expanded in t around inf 38.5%
+-commutative38.5%
mul-1-neg38.5%
sub-neg38.5%
Simplified38.5%
if -7.5000000000000001e-139 < x < -2.0500000000000001e-194 or -4.59999999999999978e-272 < x < 4.40000000000000008e-281Initial program 32.7%
Taylor expanded in k around inf 47.2%
+-commutative47.2%
mul-1-neg47.2%
unsub-neg47.2%
*-commutative47.2%
associate-*r*47.2%
neg-mul-147.2%
Simplified47.2%
Taylor expanded in b around -inf 58.9%
+-commutative58.9%
mul-1-neg58.9%
unsub-neg58.9%
Simplified58.9%
if -2.0500000000000001e-194 < x < -4.59999999999999978e-272Initial program 15.4%
Taylor expanded in a around inf 54.4%
+-commutative54.4%
mul-1-neg54.4%
unsub-neg54.4%
*-commutative54.4%
*-commutative54.4%
*-commutative54.4%
mul-1-neg54.4%
*-commutative54.4%
Simplified54.4%
Taylor expanded in y1 around inf 55.1%
if 2.1500000000000002e-52 < x < 4.20000000000000025e-41Initial program 50.0%
Taylor expanded in k around inf 75.0%
+-commutative75.0%
mul-1-neg75.0%
unsub-neg75.0%
*-commutative75.0%
associate-*r*75.0%
neg-mul-175.0%
Simplified75.0%
Taylor expanded in y around inf 75.8%
if 4.20000000000000025e-41 < x < 4.4999999999999998e67Initial program 27.3%
Taylor expanded in b around inf 42.9%
Taylor expanded in y4 around inf 52.1%
if 4.4999999999999998e67 < x Initial program 19.7%
Taylor expanded in b around inf 39.6%
Taylor expanded in x around inf 46.8%
Final simplification51.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* b (- (* z y0) (* y y4)))))
(t_2 (* a (* y1 (- (* z y3) (* x y2))))))
(if (<= x -1.02e+26)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= x -2.5e-103)
(* k (* y1 (- (* y2 y4) (* z i))))
(if (<= x -1.85e-132)
t_2
(if (<= x -1.8e-194)
t_1
(if (<= x -4.3e-272)
t_2
(if (<= x 4e-282)
t_1
(if (<= x 4.6e-195)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= x 1.32e-52)
(* a (* t (- (* y2 y5) (* z b))))
(if (<= x 8e-41)
(* k (* y (- (* i y5) (* b y4))))
(if (<= x 2.05e+70)
(* b (* y4 (- (* t j) (* y k))))
(* b (* x (- (* y a) (* j 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 = k * (b * ((z * y0) - (y * y4)));
double t_2 = a * (y1 * ((z * y3) - (x * y2)));
double tmp;
if (x <= -1.02e+26) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (x <= -2.5e-103) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (x <= -1.85e-132) {
tmp = t_2;
} else if (x <= -1.8e-194) {
tmp = t_1;
} else if (x <= -4.3e-272) {
tmp = t_2;
} else if (x <= 4e-282) {
tmp = t_1;
} else if (x <= 4.6e-195) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (x <= 1.32e-52) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (x <= 8e-41) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (x <= 2.05e+70) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = b * (x * ((y * a) - (j * 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_2
real(8) :: tmp
t_1 = k * (b * ((z * y0) - (y * y4)))
t_2 = a * (y1 * ((z * y3) - (x * y2)))
if (x <= (-1.02d+26)) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (x <= (-2.5d-103)) then
tmp = k * (y1 * ((y2 * y4) - (z * i)))
else if (x <= (-1.85d-132)) then
tmp = t_2
else if (x <= (-1.8d-194)) then
tmp = t_1
else if (x <= (-4.3d-272)) then
tmp = t_2
else if (x <= 4d-282) then
tmp = t_1
else if (x <= 4.6d-195) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (x <= 1.32d-52) then
tmp = a * (t * ((y2 * y5) - (z * b)))
else if (x <= 8d-41) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (x <= 2.05d+70) then
tmp = b * (y4 * ((t * j) - (y * k)))
else
tmp = b * (x * ((y * a) - (j * 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 = k * (b * ((z * y0) - (y * y4)));
double t_2 = a * (y1 * ((z * y3) - (x * y2)));
double tmp;
if (x <= -1.02e+26) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (x <= -2.5e-103) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (x <= -1.85e-132) {
tmp = t_2;
} else if (x <= -1.8e-194) {
tmp = t_1;
} else if (x <= -4.3e-272) {
tmp = t_2;
} else if (x <= 4e-282) {
tmp = t_1;
} else if (x <= 4.6e-195) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (x <= 1.32e-52) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (x <= 8e-41) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (x <= 2.05e+70) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = b * (x * ((y * a) - (j * y0)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = k * (b * ((z * y0) - (y * y4))) t_2 = a * (y1 * ((z * y3) - (x * y2))) tmp = 0 if x <= -1.02e+26: tmp = a * (x * ((y * b) - (y1 * y2))) elif x <= -2.5e-103: tmp = k * (y1 * ((y2 * y4) - (z * i))) elif x <= -1.85e-132: tmp = t_2 elif x <= -1.8e-194: tmp = t_1 elif x <= -4.3e-272: tmp = t_2 elif x <= 4e-282: tmp = t_1 elif x <= 4.6e-195: tmp = c * (y4 * ((y * y3) - (t * y2))) elif x <= 1.32e-52: tmp = a * (t * ((y2 * y5) - (z * b))) elif x <= 8e-41: tmp = k * (y * ((i * y5) - (b * y4))) elif x <= 2.05e+70: tmp = b * (y4 * ((t * j) - (y * k))) else: tmp = b * (x * ((y * a) - (j * y0))) 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(b * Float64(Float64(z * y0) - Float64(y * y4)))) t_2 = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) tmp = 0.0 if (x <= -1.02e+26) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (x <= -2.5e-103) tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); elseif (x <= -1.85e-132) tmp = t_2; elseif (x <= -1.8e-194) tmp = t_1; elseif (x <= -4.3e-272) tmp = t_2; elseif (x <= 4e-282) tmp = t_1; elseif (x <= 4.6e-195) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (x <= 1.32e-52) tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); elseif (x <= 8e-41) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (x <= 2.05e+70) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); else tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * 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 = k * (b * ((z * y0) - (y * y4))); t_2 = a * (y1 * ((z * y3) - (x * y2))); tmp = 0.0; if (x <= -1.02e+26) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (x <= -2.5e-103) tmp = k * (y1 * ((y2 * y4) - (z * i))); elseif (x <= -1.85e-132) tmp = t_2; elseif (x <= -1.8e-194) tmp = t_1; elseif (x <= -4.3e-272) tmp = t_2; elseif (x <= 4e-282) tmp = t_1; elseif (x <= 4.6e-195) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (x <= 1.32e-52) tmp = a * (t * ((y2 * y5) - (z * b))); elseif (x <= 8e-41) tmp = k * (y * ((i * y5) - (b * y4))); elseif (x <= 2.05e+70) tmp = b * (y4 * ((t * j) - (y * k))); else tmp = b * (x * ((y * a) - (j * 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[(k * N[(b * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.02e+26], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -2.5e-103], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -1.85e-132], t$95$2, If[LessEqual[x, -1.8e-194], t$95$1, If[LessEqual[x, -4.3e-272], t$95$2, If[LessEqual[x, 4e-282], t$95$1, If[LessEqual[x, 4.6e-195], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.32e-52], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 8e-41], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.05e+70], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(b \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
t_2 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{if}\;x \leq -1.02 \cdot 10^{+26}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq -2.5 \cdot 10^{-103}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{elif}\;x \leq -1.85 \cdot 10^{-132}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq -1.8 \cdot 10^{-194}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -4.3 \cdot 10^{-272}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 4 \cdot 10^{-282}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 4.6 \cdot 10^{-195}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq 1.32 \cdot 10^{-52}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{elif}\;x \leq 8 \cdot 10^{-41}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;x \leq 2.05 \cdot 10^{+70}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\end{array}
\end{array}
if x < -1.0200000000000001e26Initial program 17.8%
Taylor expanded in a around inf 47.4%
+-commutative47.4%
mul-1-neg47.4%
unsub-neg47.4%
*-commutative47.4%
*-commutative47.4%
*-commutative47.4%
mul-1-neg47.4%
*-commutative47.4%
Simplified47.4%
Taylor expanded in x around inf 57.5%
if -1.0200000000000001e26 < x < -2.49999999999999983e-103Initial program 30.8%
Taylor expanded in k around inf 39.0%
+-commutative39.0%
mul-1-neg39.0%
unsub-neg39.0%
*-commutative39.0%
associate-*r*39.0%
neg-mul-139.0%
Simplified39.0%
Taylor expanded in y1 around inf 39.9%
if -2.49999999999999983e-103 < x < -1.8500000000000001e-132 or -1.8e-194 < x < -4.2999999999999997e-272Initial program 23.7%
Taylor expanded in a around inf 57.6%
+-commutative57.6%
mul-1-neg57.6%
unsub-neg57.6%
*-commutative57.6%
*-commutative57.6%
*-commutative57.6%
mul-1-neg57.6%
*-commutative57.6%
Simplified57.6%
Taylor expanded in y1 around inf 53.5%
if -1.8500000000000001e-132 < x < -1.8e-194 or -4.2999999999999997e-272 < x < 4.0000000000000001e-282Initial program 32.7%
Taylor expanded in k around inf 47.2%
+-commutative47.2%
mul-1-neg47.2%
unsub-neg47.2%
*-commutative47.2%
associate-*r*47.2%
neg-mul-147.2%
Simplified47.2%
Taylor expanded in b around -inf 58.9%
+-commutative58.9%
mul-1-neg58.9%
unsub-neg58.9%
Simplified58.9%
if 4.0000000000000001e-282 < x < 4.6000000000000004e-195Initial program 57.8%
Taylor expanded in y4 around inf 64.0%
Taylor expanded in c around inf 64.0%
*-commutative64.0%
*-commutative64.0%
Simplified64.0%
if 4.6000000000000004e-195 < x < 1.32000000000000002e-52Initial program 19.6%
Taylor expanded in a around inf 42.5%
+-commutative42.5%
mul-1-neg42.5%
unsub-neg42.5%
*-commutative42.5%
*-commutative42.5%
*-commutative42.5%
mul-1-neg42.5%
*-commutative42.5%
Simplified42.5%
Taylor expanded in t around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
sub-neg37.5%
Simplified37.5%
if 1.32000000000000002e-52 < x < 8.00000000000000005e-41Initial program 50.0%
Taylor expanded in k around inf 75.0%
+-commutative75.0%
mul-1-neg75.0%
unsub-neg75.0%
*-commutative75.0%
associate-*r*75.0%
neg-mul-175.0%
Simplified75.0%
Taylor expanded in y around inf 75.8%
if 8.00000000000000005e-41 < x < 2.0500000000000001e70Initial program 27.3%
Taylor expanded in b around inf 42.9%
Taylor expanded in y4 around inf 52.1%
if 2.0500000000000001e70 < x Initial program 19.7%
Taylor expanded in b around inf 39.6%
Taylor expanded in x around inf 46.8%
Final simplification51.3%
(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) (* z i)))))
(t_2 (* b (* a (- (* x y) (* z t))))))
(if (<= j -2.6e+258)
t_1
(if (<= j -1.45e+175)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= j -8.5e+147)
t_2
(if (<= j -3.1e+100)
t_1
(if (<= j -1.65)
(* b (* x (- (* y a) (* j y0))))
(if (<= j 1.9e-250)
(* y2 (* y4 (- (* k y1) (* t c))))
(if (<= j 1.8e-127)
t_2
(if (<= j 5800000000.0)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= j 2.2e+56)
(* j (* x (- (* i y1) (* b y0))))
(if (<= j 3.2e+112)
(* a (* y1 (- (* z y3) (* x y2))))
(* (- (* t b) (* 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 * (y1 * ((y2 * y4) - (z * i)));
double t_2 = b * (a * ((x * y) - (z * t)));
double tmp;
if (j <= -2.6e+258) {
tmp = t_1;
} else if (j <= -1.45e+175) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (j <= -8.5e+147) {
tmp = t_2;
} else if (j <= -3.1e+100) {
tmp = t_1;
} else if (j <= -1.65) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (j <= 1.9e-250) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (j <= 1.8e-127) {
tmp = t_2;
} else if (j <= 5800000000.0) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (j <= 2.2e+56) {
tmp = j * (x * ((i * y1) - (b * y0)));
} else if (j <= 3.2e+112) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = ((t * b) - (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 * (y1 * ((y2 * y4) - (z * i)))
t_2 = b * (a * ((x * y) - (z * t)))
if (j <= (-2.6d+258)) then
tmp = t_1
else if (j <= (-1.45d+175)) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (j <= (-8.5d+147)) then
tmp = t_2
else if (j <= (-3.1d+100)) then
tmp = t_1
else if (j <= (-1.65d0)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (j <= 1.9d-250) then
tmp = y2 * (y4 * ((k * y1) - (t * c)))
else if (j <= 1.8d-127) then
tmp = t_2
else if (j <= 5800000000.0d0) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (j <= 2.2d+56) then
tmp = j * (x * ((i * y1) - (b * y0)))
else if (j <= 3.2d+112) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else
tmp = ((t * b) - (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 * (y1 * ((y2 * y4) - (z * i)));
double t_2 = b * (a * ((x * y) - (z * t)));
double tmp;
if (j <= -2.6e+258) {
tmp = t_1;
} else if (j <= -1.45e+175) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (j <= -8.5e+147) {
tmp = t_2;
} else if (j <= -3.1e+100) {
tmp = t_1;
} else if (j <= -1.65) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (j <= 1.9e-250) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (j <= 1.8e-127) {
tmp = t_2;
} else if (j <= 5800000000.0) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (j <= 2.2e+56) {
tmp = j * (x * ((i * y1) - (b * y0)));
} else if (j <= 3.2e+112) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = ((t * b) - (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 * (y1 * ((y2 * y4) - (z * i))) t_2 = b * (a * ((x * y) - (z * t))) tmp = 0 if j <= -2.6e+258: tmp = t_1 elif j <= -1.45e+175: tmp = x * (y2 * ((c * y0) - (a * y1))) elif j <= -8.5e+147: tmp = t_2 elif j <= -3.1e+100: tmp = t_1 elif j <= -1.65: tmp = b * (x * ((y * a) - (j * y0))) elif j <= 1.9e-250: tmp = y2 * (y4 * ((k * y1) - (t * c))) elif j <= 1.8e-127: tmp = t_2 elif j <= 5800000000.0: tmp = a * (x * ((y * b) - (y1 * y2))) elif j <= 2.2e+56: tmp = j * (x * ((i * y1) - (b * y0))) elif j <= 3.2e+112: tmp = a * (y1 * ((z * y3) - (x * y2))) else: tmp = ((t * b) - (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(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))) t_2 = Float64(b * Float64(a * Float64(Float64(x * y) - Float64(z * t)))) tmp = 0.0 if (j <= -2.6e+258) tmp = t_1; elseif (j <= -1.45e+175) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (j <= -8.5e+147) tmp = t_2; elseif (j <= -3.1e+100) tmp = t_1; elseif (j <= -1.65) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (j <= 1.9e-250) tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); elseif (j <= 1.8e-127) tmp = t_2; elseif (j <= 5800000000.0) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (j <= 2.2e+56) tmp = Float64(j * Float64(x * Float64(Float64(i * y1) - Float64(b * y0)))); elseif (j <= 3.2e+112) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); else tmp = Float64(Float64(Float64(t * b) - Float64(y1 * y3)) * Float64(j * 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 * (y1 * ((y2 * y4) - (z * i))); t_2 = b * (a * ((x * y) - (z * t))); tmp = 0.0; if (j <= -2.6e+258) tmp = t_1; elseif (j <= -1.45e+175) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (j <= -8.5e+147) tmp = t_2; elseif (j <= -3.1e+100) tmp = t_1; elseif (j <= -1.65) tmp = b * (x * ((y * a) - (j * y0))); elseif (j <= 1.9e-250) tmp = y2 * (y4 * ((k * y1) - (t * c))); elseif (j <= 1.8e-127) tmp = t_2; elseif (j <= 5800000000.0) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (j <= 2.2e+56) tmp = j * (x * ((i * y1) - (b * y0))); elseif (j <= 3.2e+112) tmp = a * (y1 * ((z * y3) - (x * y2))); else tmp = ((t * b) - (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[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, -2.6e+258], t$95$1, If[LessEqual[j, -1.45e+175], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -8.5e+147], t$95$2, If[LessEqual[j, -3.1e+100], t$95$1, If[LessEqual[j, -1.65], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1.9e-250], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1.8e-127], t$95$2, If[LessEqual[j, 5800000000.0], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 2.2e+56], N[(j * N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.2e+112], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(t * b), $MachinePrecision] - N[(y1 * y3), $MachinePrecision]), $MachinePrecision] * N[(j * y4), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
t_2 := b \cdot \left(a \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{if}\;j \leq -2.6 \cdot 10^{+258}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -1.45 \cdot 10^{+175}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;j \leq -8.5 \cdot 10^{+147}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;j \leq -3.1 \cdot 10^{+100}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -1.65:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;j \leq 1.9 \cdot 10^{-250}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{elif}\;j \leq 1.8 \cdot 10^{-127}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;j \leq 5800000000:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;j \leq 2.2 \cdot 10^{+56}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{elif}\;j \leq 3.2 \cdot 10^{+112}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(t \cdot b - y1 \cdot y3\right) \cdot \left(j \cdot y4\right)\\
\end{array}
\end{array}
if j < -2.60000000000000011e258 or -8.5000000000000007e147 < j < -3.10000000000000007e100Initial program 9.5%
Taylor expanded in k around inf 57.2%
+-commutative57.2%
mul-1-neg57.2%
unsub-neg57.2%
*-commutative57.2%
associate-*r*57.2%
neg-mul-157.2%
Simplified57.2%
Taylor expanded in y1 around inf 62.6%
if -2.60000000000000011e258 < j < -1.45e175Initial program 23.1%
Taylor expanded in x around inf 53.9%
Taylor expanded in y2 around inf 70.3%
if -1.45e175 < j < -8.5000000000000007e147 or 1.89999999999999985e-250 < j < 1.8e-127Initial program 31.8%
Taylor expanded in b around inf 57.4%
Taylor expanded in a around inf 57.0%
if -3.10000000000000007e100 < j < -1.6499999999999999Initial program 24.8%
Taylor expanded in b around inf 41.0%
Taylor expanded in x around inf 56.3%
if -1.6499999999999999 < j < 1.89999999999999985e-250Initial program 30.5%
Taylor expanded in y4 around inf 48.8%
Taylor expanded in y2 around inf 52.8%
*-commutative52.8%
Simplified52.8%
if 1.8e-127 < j < 5.8e9Initial program 36.6%
Taylor expanded in a around inf 40.5%
+-commutative40.5%
mul-1-neg40.5%
unsub-neg40.5%
*-commutative40.5%
*-commutative40.5%
*-commutative40.5%
mul-1-neg40.5%
*-commutative40.5%
Simplified40.5%
Taylor expanded in x around inf 50.8%
if 5.8e9 < j < 2.20000000000000016e56Initial program 30.0%
Taylor expanded in x around inf 60.1%
Taylor expanded in j around inf 51.2%
if 2.20000000000000016e56 < j < 3.19999999999999986e112Initial program 36.4%
Taylor expanded in a around inf 55.1%
+-commutative55.1%
mul-1-neg55.1%
unsub-neg55.1%
*-commutative55.1%
*-commutative55.1%
*-commutative55.1%
mul-1-neg55.1%
*-commutative55.1%
Simplified55.1%
Taylor expanded in y1 around inf 73.4%
if 3.19999999999999986e112 < j Initial program 14.0%
Taylor expanded in y4 around inf 49.4%
Taylor expanded in j around inf 50.1%
associate-*r*54.5%
*-commutative54.5%
+-commutative54.5%
mul-1-neg54.5%
unsub-neg54.5%
*-commutative54.5%
Simplified54.5%
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 (* k (* y1 (- (* y2 y4) (* z i)))))
(t_2 (* b (* a (- (* x y) (* z t))))))
(if (<= j -9e+258)
t_1
(if (<= j -7.5e+178)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= j -1.3e+148)
t_2
(if (<= j -1.6e+99)
t_1
(if (<= j -220.0)
(* b (* x (- (* y a) (* j y0))))
(if (<= j 5.5e-251)
(* y2 (* y4 (- (* k y1) (* t c))))
(if (<= j 1.9e-127)
t_2
(if (<= j 27000000000000.0)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= j 3.5e+54)
(* i (* x (- (* j y1) (* y c))))
(if (<= j 7e+112)
(* a (* y1 (- (* z y3) (* x y2))))
(* (- (* t b) (* 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 * (y1 * ((y2 * y4) - (z * i)));
double t_2 = b * (a * ((x * y) - (z * t)));
double tmp;
if (j <= -9e+258) {
tmp = t_1;
} else if (j <= -7.5e+178) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (j <= -1.3e+148) {
tmp = t_2;
} else if (j <= -1.6e+99) {
tmp = t_1;
} else if (j <= -220.0) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (j <= 5.5e-251) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (j <= 1.9e-127) {
tmp = t_2;
} else if (j <= 27000000000000.0) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (j <= 3.5e+54) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (j <= 7e+112) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = ((t * b) - (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 * (y1 * ((y2 * y4) - (z * i)))
t_2 = b * (a * ((x * y) - (z * t)))
if (j <= (-9d+258)) then
tmp = t_1
else if (j <= (-7.5d+178)) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (j <= (-1.3d+148)) then
tmp = t_2
else if (j <= (-1.6d+99)) then
tmp = t_1
else if (j <= (-220.0d0)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (j <= 5.5d-251) then
tmp = y2 * (y4 * ((k * y1) - (t * c)))
else if (j <= 1.9d-127) then
tmp = t_2
else if (j <= 27000000000000.0d0) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (j <= 3.5d+54) then
tmp = i * (x * ((j * y1) - (y * c)))
else if (j <= 7d+112) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else
tmp = ((t * b) - (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 * (y1 * ((y2 * y4) - (z * i)));
double t_2 = b * (a * ((x * y) - (z * t)));
double tmp;
if (j <= -9e+258) {
tmp = t_1;
} else if (j <= -7.5e+178) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (j <= -1.3e+148) {
tmp = t_2;
} else if (j <= -1.6e+99) {
tmp = t_1;
} else if (j <= -220.0) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (j <= 5.5e-251) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (j <= 1.9e-127) {
tmp = t_2;
} else if (j <= 27000000000000.0) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (j <= 3.5e+54) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (j <= 7e+112) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = ((t * b) - (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 * (y1 * ((y2 * y4) - (z * i))) t_2 = b * (a * ((x * y) - (z * t))) tmp = 0 if j <= -9e+258: tmp = t_1 elif j <= -7.5e+178: tmp = x * (y2 * ((c * y0) - (a * y1))) elif j <= -1.3e+148: tmp = t_2 elif j <= -1.6e+99: tmp = t_1 elif j <= -220.0: tmp = b * (x * ((y * a) - (j * y0))) elif j <= 5.5e-251: tmp = y2 * (y4 * ((k * y1) - (t * c))) elif j <= 1.9e-127: tmp = t_2 elif j <= 27000000000000.0: tmp = a * (x * ((y * b) - (y1 * y2))) elif j <= 3.5e+54: tmp = i * (x * ((j * y1) - (y * c))) elif j <= 7e+112: tmp = a * (y1 * ((z * y3) - (x * y2))) else: tmp = ((t * b) - (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(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))) t_2 = Float64(b * Float64(a * Float64(Float64(x * y) - Float64(z * t)))) tmp = 0.0 if (j <= -9e+258) tmp = t_1; elseif (j <= -7.5e+178) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (j <= -1.3e+148) tmp = t_2; elseif (j <= -1.6e+99) tmp = t_1; elseif (j <= -220.0) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (j <= 5.5e-251) tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); elseif (j <= 1.9e-127) tmp = t_2; elseif (j <= 27000000000000.0) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (j <= 3.5e+54) tmp = Float64(i * Float64(x * Float64(Float64(j * y1) - Float64(y * c)))); elseif (j <= 7e+112) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); else tmp = Float64(Float64(Float64(t * b) - Float64(y1 * y3)) * Float64(j * 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 * (y1 * ((y2 * y4) - (z * i))); t_2 = b * (a * ((x * y) - (z * t))); tmp = 0.0; if (j <= -9e+258) tmp = t_1; elseif (j <= -7.5e+178) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (j <= -1.3e+148) tmp = t_2; elseif (j <= -1.6e+99) tmp = t_1; elseif (j <= -220.0) tmp = b * (x * ((y * a) - (j * y0))); elseif (j <= 5.5e-251) tmp = y2 * (y4 * ((k * y1) - (t * c))); elseif (j <= 1.9e-127) tmp = t_2; elseif (j <= 27000000000000.0) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (j <= 3.5e+54) tmp = i * (x * ((j * y1) - (y * c))); elseif (j <= 7e+112) tmp = a * (y1 * ((z * y3) - (x * y2))); else tmp = ((t * b) - (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[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, -9e+258], t$95$1, If[LessEqual[j, -7.5e+178], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -1.3e+148], t$95$2, If[LessEqual[j, -1.6e+99], t$95$1, If[LessEqual[j, -220.0], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 5.5e-251], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1.9e-127], t$95$2, If[LessEqual[j, 27000000000000.0], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.5e+54], N[(i * N[(x * N[(N[(j * y1), $MachinePrecision] - N[(y * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 7e+112], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(t * b), $MachinePrecision] - N[(y1 * y3), $MachinePrecision]), $MachinePrecision] * N[(j * y4), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
t_2 := b \cdot \left(a \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{if}\;j \leq -9 \cdot 10^{+258}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -7.5 \cdot 10^{+178}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;j \leq -1.3 \cdot 10^{+148}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;j \leq -1.6 \cdot 10^{+99}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -220:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;j \leq 5.5 \cdot 10^{-251}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{elif}\;j \leq 1.9 \cdot 10^{-127}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;j \leq 27000000000000:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;j \leq 3.5 \cdot 10^{+54}:\\
\;\;\;\;i \cdot \left(x \cdot \left(j \cdot y1 - y \cdot c\right)\right)\\
\mathbf{elif}\;j \leq 7 \cdot 10^{+112}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(t \cdot b - y1 \cdot y3\right) \cdot \left(j \cdot y4\right)\\
\end{array}
\end{array}
if j < -9.0000000000000007e258 or -1.3e148 < j < -1.6e99Initial program 9.5%
Taylor expanded in k around inf 57.2%
+-commutative57.2%
mul-1-neg57.2%
unsub-neg57.2%
*-commutative57.2%
associate-*r*57.2%
neg-mul-157.2%
Simplified57.2%
Taylor expanded in y1 around inf 62.6%
if -9.0000000000000007e258 < j < -7.4999999999999995e178Initial program 23.1%
Taylor expanded in x around inf 53.9%
Taylor expanded in y2 around inf 70.3%
if -7.4999999999999995e178 < j < -1.3e148 or 5.5e-251 < j < 1.90000000000000001e-127Initial program 31.8%
Taylor expanded in b around inf 57.4%
Taylor expanded in a around inf 57.0%
if -1.6e99 < j < -220Initial program 24.8%
Taylor expanded in b around inf 41.0%
Taylor expanded in x around inf 56.3%
if -220 < j < 5.5e-251Initial program 30.5%
Taylor expanded in y4 around inf 48.8%
Taylor expanded in y2 around inf 52.8%
*-commutative52.8%
Simplified52.8%
if 1.90000000000000001e-127 < j < 2.7e13Initial program 36.6%
Taylor expanded in a around inf 40.5%
+-commutative40.5%
mul-1-neg40.5%
unsub-neg40.5%
*-commutative40.5%
*-commutative40.5%
*-commutative40.5%
mul-1-neg40.5%
*-commutative40.5%
Simplified40.5%
Taylor expanded in x around inf 50.8%
if 2.7e13 < j < 3.5000000000000001e54Initial program 30.0%
Taylor expanded in x around inf 60.1%
Taylor expanded in i around -inf 60.5%
mul-1-neg60.5%
Simplified60.5%
if 3.5000000000000001e54 < j < 6.99999999999999994e112Initial program 36.4%
Taylor expanded in a around inf 55.1%
+-commutative55.1%
mul-1-neg55.1%
unsub-neg55.1%
*-commutative55.1%
*-commutative55.1%
*-commutative55.1%
mul-1-neg55.1%
*-commutative55.1%
Simplified55.1%
Taylor expanded in y1 around inf 73.4%
if 6.99999999999999994e112 < j Initial program 14.0%
Taylor expanded in y4 around inf 49.4%
Taylor expanded in j around inf 50.1%
associate-*r*54.5%
*-commutative54.5%
+-commutative54.5%
mul-1-neg54.5%
unsub-neg54.5%
*-commutative54.5%
Simplified54.5%
Final simplification56.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y2 (* y4 (- (* k y1) (* t c))))))
(if (<= x -2.15e+26)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= x -4.8e-249)
t_1
(if (<= x 3.25e-282)
(* k (* b (- (* z y0) (* y y4))))
(if (<= x 1.2e-200)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= x 4.2e-67)
(* a (* t (- (* y2 y5) (* z b))))
(if (<= x 2.15e-36)
t_1
(if (<= x 1.35e+64)
(* b (* y4 (- (* t j) (* y k))))
(if (or (<= x 2.1e+175) (not (<= x 3.2e+260)))
(* x (* y (- (* a b) (* c i))))
(* x (* y2 (- (* c y0) (* a 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 * (y4 * ((k * y1) - (t * c)));
double tmp;
if (x <= -2.15e+26) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (x <= -4.8e-249) {
tmp = t_1;
} else if (x <= 3.25e-282) {
tmp = k * (b * ((z * y0) - (y * y4)));
} else if (x <= 1.2e-200) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (x <= 4.2e-67) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (x <= 2.15e-36) {
tmp = t_1;
} else if (x <= 1.35e+64) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if ((x <= 2.1e+175) || !(x <= 3.2e+260)) {
tmp = x * (y * ((a * b) - (c * i)));
} else {
tmp = x * (y2 * ((c * y0) - (a * 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 = y2 * (y4 * ((k * y1) - (t * c)))
if (x <= (-2.15d+26)) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (x <= (-4.8d-249)) then
tmp = t_1
else if (x <= 3.25d-282) then
tmp = k * (b * ((z * y0) - (y * y4)))
else if (x <= 1.2d-200) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (x <= 4.2d-67) then
tmp = a * (t * ((y2 * y5) - (z * b)))
else if (x <= 2.15d-36) then
tmp = t_1
else if (x <= 1.35d+64) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if ((x <= 2.1d+175) .or. (.not. (x <= 3.2d+260))) then
tmp = x * (y * ((a * b) - (c * i)))
else
tmp = x * (y2 * ((c * y0) - (a * 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 * (y4 * ((k * y1) - (t * c)));
double tmp;
if (x <= -2.15e+26) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (x <= -4.8e-249) {
tmp = t_1;
} else if (x <= 3.25e-282) {
tmp = k * (b * ((z * y0) - (y * y4)));
} else if (x <= 1.2e-200) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (x <= 4.2e-67) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (x <= 2.15e-36) {
tmp = t_1;
} else if (x <= 1.35e+64) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if ((x <= 2.1e+175) || !(x <= 3.2e+260)) {
tmp = x * (y * ((a * b) - (c * i)));
} else {
tmp = x * (y2 * ((c * y0) - (a * y1)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y2 * (y4 * ((k * y1) - (t * c))) tmp = 0 if x <= -2.15e+26: tmp = a * (x * ((y * b) - (y1 * y2))) elif x <= -4.8e-249: tmp = t_1 elif x <= 3.25e-282: tmp = k * (b * ((z * y0) - (y * y4))) elif x <= 1.2e-200: tmp = c * (y4 * ((y * y3) - (t * y2))) elif x <= 4.2e-67: tmp = a * (t * ((y2 * y5) - (z * b))) elif x <= 2.15e-36: tmp = t_1 elif x <= 1.35e+64: tmp = b * (y4 * ((t * j) - (y * k))) elif (x <= 2.1e+175) or not (x <= 3.2e+260): tmp = x * (y * ((a * b) - (c * i))) else: tmp = x * (y2 * ((c * y0) - (a * 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(y4 * Float64(Float64(k * y1) - Float64(t * c)))) tmp = 0.0 if (x <= -2.15e+26) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (x <= -4.8e-249) tmp = t_1; elseif (x <= 3.25e-282) tmp = Float64(k * Float64(b * Float64(Float64(z * y0) - Float64(y * y4)))); elseif (x <= 1.2e-200) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (x <= 4.2e-67) tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); elseif (x <= 2.15e-36) tmp = t_1; elseif (x <= 1.35e+64) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif ((x <= 2.1e+175) || !(x <= 3.2e+260)) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); else tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * 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 * (y4 * ((k * y1) - (t * c))); tmp = 0.0; if (x <= -2.15e+26) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (x <= -4.8e-249) tmp = t_1; elseif (x <= 3.25e-282) tmp = k * (b * ((z * y0) - (y * y4))); elseif (x <= 1.2e-200) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (x <= 4.2e-67) tmp = a * (t * ((y2 * y5) - (z * b))); elseif (x <= 2.15e-36) tmp = t_1; elseif (x <= 1.35e+64) tmp = b * (y4 * ((t * j) - (y * k))); elseif ((x <= 2.1e+175) || ~((x <= 3.2e+260))) tmp = x * (y * ((a * b) - (c * i))); else tmp = x * (y2 * ((c * y0) - (a * 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[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -2.15e+26], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -4.8e-249], t$95$1, If[LessEqual[x, 3.25e-282], N[(k * N[(b * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.2e-200], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4.2e-67], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.15e-36], t$95$1, If[LessEqual[x, 1.35e+64], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[x, 2.1e+175], N[Not[LessEqual[x, 3.2e+260]], $MachinePrecision]], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{if}\;x \leq -2.15 \cdot 10^{+26}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq -4.8 \cdot 10^{-249}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 3.25 \cdot 10^{-282}:\\
\;\;\;\;k \cdot \left(b \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
\mathbf{elif}\;x \leq 1.2 \cdot 10^{-200}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq 4.2 \cdot 10^{-67}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{elif}\;x \leq 2.15 \cdot 10^{-36}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 1.35 \cdot 10^{+64}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;x \leq 2.1 \cdot 10^{+175} \lor \neg \left(x \leq 3.2 \cdot 10^{+260}\right):\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{else}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\end{array}
\end{array}
if x < -2.1499999999999999e26Initial program 17.8%
Taylor expanded in a around inf 47.4%
+-commutative47.4%
mul-1-neg47.4%
unsub-neg47.4%
*-commutative47.4%
*-commutative47.4%
*-commutative47.4%
mul-1-neg47.4%
*-commutative47.4%
Simplified47.4%
Taylor expanded in x around inf 57.5%
if -2.1499999999999999e26 < x < -4.80000000000000026e-249 or 4.2000000000000003e-67 < x < 2.1500000000000001e-36Initial program 31.8%
Taylor expanded in y4 around inf 30.6%
Taylor expanded in y2 around inf 45.8%
*-commutative45.8%
Simplified45.8%
if -4.80000000000000026e-249 < x < 3.25000000000000006e-282Initial program 28.5%
Taylor expanded in k around inf 40.2%
+-commutative40.2%
mul-1-neg40.2%
unsub-neg40.2%
*-commutative40.2%
associate-*r*40.2%
neg-mul-140.2%
Simplified40.2%
Taylor expanded in b around -inf 47.8%
+-commutative47.8%
mul-1-neg47.8%
unsub-neg47.8%
Simplified47.8%
if 3.25000000000000006e-282 < x < 1.20000000000000001e-200Initial program 57.8%
Taylor expanded in y4 around inf 64.0%
Taylor expanded in c around inf 64.0%
*-commutative64.0%
*-commutative64.0%
Simplified64.0%
if 1.20000000000000001e-200 < x < 4.2000000000000003e-67Initial program 18.3%
Taylor expanded in a around inf 43.1%
+-commutative43.1%
mul-1-neg43.1%
unsub-neg43.1%
*-commutative43.1%
*-commutative43.1%
*-commutative43.1%
mul-1-neg43.1%
*-commutative43.1%
Simplified43.1%
Taylor expanded in t around inf 40.6%
+-commutative40.6%
mul-1-neg40.6%
sub-neg40.6%
Simplified40.6%
if 2.1500000000000001e-36 < x < 1.35e64Initial program 27.3%
Taylor expanded in b around inf 42.9%
Taylor expanded in y4 around inf 52.1%
if 1.35e64 < x < 2.0999999999999999e175 or 3.2e260 < x Initial program 28.2%
Taylor expanded in x around inf 56.5%
Taylor expanded in y around inf 56.8%
if 2.0999999999999999e175 < x < 3.2e260Initial program 9.4%
Taylor expanded in x around inf 52.6%
Taylor expanded in y2 around inf 67.5%
Final simplification52.4%
(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))))
(t_2 (* b (* x (- (* y a) (* j y0)))))
(t_3 (* a (* t (- (* y2 y5) (* z b)))))
(t_4 (* c (* y4 (- (* y y3) (* t y2))))))
(if (<= t -2.15e+209)
t_1
(if (<= t -1.95e+129)
t_4
(if (<= t -2.85e+100)
t_1
(if (<= t -2.02e-53)
t_3
(if (<= t -4.2e-165)
t_2
(if (<= t 1.9e+33)
(* a (* y (- (* x b) (* y3 y5))))
(if (<= t 1.22e+57)
t_4
(if (<= t 2.2e+81) t_2 (if (<= t 3.1e+235) t_4 t_3)))))))))))
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));
double t_2 = b * (x * ((y * a) - (j * y0)));
double t_3 = a * (t * ((y2 * y5) - (z * b)));
double t_4 = c * (y4 * ((y * y3) - (t * y2)));
double tmp;
if (t <= -2.15e+209) {
tmp = t_1;
} else if (t <= -1.95e+129) {
tmp = t_4;
} else if (t <= -2.85e+100) {
tmp = t_1;
} else if (t <= -2.02e-53) {
tmp = t_3;
} else if (t <= -4.2e-165) {
tmp = t_2;
} else if (t <= 1.9e+33) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else if (t <= 1.22e+57) {
tmp = t_4;
} else if (t <= 2.2e+81) {
tmp = t_2;
} else if (t <= 3.1e+235) {
tmp = t_4;
} else {
tmp = t_3;
}
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 * (j * (t * y4))
t_2 = b * (x * ((y * a) - (j * y0)))
t_3 = a * (t * ((y2 * y5) - (z * b)))
t_4 = c * (y4 * ((y * y3) - (t * y2)))
if (t <= (-2.15d+209)) then
tmp = t_1
else if (t <= (-1.95d+129)) then
tmp = t_4
else if (t <= (-2.85d+100)) then
tmp = t_1
else if (t <= (-2.02d-53)) then
tmp = t_3
else if (t <= (-4.2d-165)) then
tmp = t_2
else if (t <= 1.9d+33) then
tmp = a * (y * ((x * b) - (y3 * y5)))
else if (t <= 1.22d+57) then
tmp = t_4
else if (t <= 2.2d+81) then
tmp = t_2
else if (t <= 3.1d+235) then
tmp = t_4
else
tmp = t_3
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (j * (t * y4));
double t_2 = b * (x * ((y * a) - (j * y0)));
double t_3 = a * (t * ((y2 * y5) - (z * b)));
double t_4 = c * (y4 * ((y * y3) - (t * y2)));
double tmp;
if (t <= -2.15e+209) {
tmp = t_1;
} else if (t <= -1.95e+129) {
tmp = t_4;
} else if (t <= -2.85e+100) {
tmp = t_1;
} else if (t <= -2.02e-53) {
tmp = t_3;
} else if (t <= -4.2e-165) {
tmp = t_2;
} else if (t <= 1.9e+33) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else if (t <= 1.22e+57) {
tmp = t_4;
} else if (t <= 2.2e+81) {
tmp = t_2;
} else if (t <= 3.1e+235) {
tmp = t_4;
} else {
tmp = t_3;
}
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)) t_2 = b * (x * ((y * a) - (j * y0))) t_3 = a * (t * ((y2 * y5) - (z * b))) t_4 = c * (y4 * ((y * y3) - (t * y2))) tmp = 0 if t <= -2.15e+209: tmp = t_1 elif t <= -1.95e+129: tmp = t_4 elif t <= -2.85e+100: tmp = t_1 elif t <= -2.02e-53: tmp = t_3 elif t <= -4.2e-165: tmp = t_2 elif t <= 1.9e+33: tmp = a * (y * ((x * b) - (y3 * y5))) elif t <= 1.22e+57: tmp = t_4 elif t <= 2.2e+81: tmp = t_2 elif t <= 3.1e+235: tmp = t_4 else: tmp = t_3 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(t * y4))) t_2 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))) t_3 = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))) t_4 = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))) tmp = 0.0 if (t <= -2.15e+209) tmp = t_1; elseif (t <= -1.95e+129) tmp = t_4; elseif (t <= -2.85e+100) tmp = t_1; elseif (t <= -2.02e-53) tmp = t_3; elseif (t <= -4.2e-165) tmp = t_2; elseif (t <= 1.9e+33) tmp = Float64(a * Float64(y * Float64(Float64(x * b) - Float64(y3 * y5)))); elseif (t <= 1.22e+57) tmp = t_4; elseif (t <= 2.2e+81) tmp = t_2; elseif (t <= 3.1e+235) tmp = t_4; else tmp = t_3; 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)); t_2 = b * (x * ((y * a) - (j * y0))); t_3 = a * (t * ((y2 * y5) - (z * b))); t_4 = c * (y4 * ((y * y3) - (t * y2))); tmp = 0.0; if (t <= -2.15e+209) tmp = t_1; elseif (t <= -1.95e+129) tmp = t_4; elseif (t <= -2.85e+100) tmp = t_1; elseif (t <= -2.02e-53) tmp = t_3; elseif (t <= -4.2e-165) tmp = t_2; elseif (t <= 1.9e+33) tmp = a * (y * ((x * b) - (y3 * y5))); elseif (t <= 1.22e+57) tmp = t_4; elseif (t <= 2.2e+81) tmp = t_2; elseif (t <= 3.1e+235) tmp = t_4; else tmp = t_3; 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[(t * y4), $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[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -2.15e+209], t$95$1, If[LessEqual[t, -1.95e+129], t$95$4, If[LessEqual[t, -2.85e+100], t$95$1, If[LessEqual[t, -2.02e-53], t$95$3, If[LessEqual[t, -4.2e-165], t$95$2, If[LessEqual[t, 1.9e+33], N[(a * N[(y * N[(N[(x * b), $MachinePrecision] - N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 1.22e+57], t$95$4, If[LessEqual[t, 2.2e+81], t$95$2, If[LessEqual[t, 3.1e+235], t$95$4, t$95$3]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
t_2 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
t_3 := a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
t_4 := c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{if}\;t \leq -2.15 \cdot 10^{+209}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq -1.95 \cdot 10^{+129}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t \leq -2.85 \cdot 10^{+100}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq -2.02 \cdot 10^{-53}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t \leq -4.2 \cdot 10^{-165}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t \leq 1.9 \cdot 10^{+33}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b - y3 \cdot y5\right)\right)\\
\mathbf{elif}\;t \leq 1.22 \cdot 10^{+57}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t \leq 2.2 \cdot 10^{+81}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t \leq 3.1 \cdot 10^{+235}:\\
\;\;\;\;t\_4\\
\mathbf{else}:\\
\;\;\;\;t\_3\\
\end{array}
\end{array}
if t < -2.14999999999999994e209 or -1.9499999999999999e129 < t < -2.84999999999999992e100Initial program 20.0%
Taylor expanded in b around inf 40.8%
Taylor expanded in y4 around inf 45.2%
Taylor expanded in j around inf 64.6%
*-commutative64.6%
Simplified64.6%
if -2.14999999999999994e209 < t < -1.9499999999999999e129 or 1.90000000000000001e33 < t < 1.22e57 or 2.19999999999999987e81 < t < 3.10000000000000011e235Initial program 17.3%
Taylor expanded in y4 around inf 42.5%
Taylor expanded in c around inf 53.8%
*-commutative53.8%
*-commutative53.8%
Simplified53.8%
if -2.84999999999999992e100 < t < -2.02000000000000005e-53 or 3.10000000000000011e235 < t Initial program 23.1%
Taylor expanded in a around inf 36.9%
+-commutative36.9%
mul-1-neg36.9%
unsub-neg36.9%
*-commutative36.9%
*-commutative36.9%
*-commutative36.9%
mul-1-neg36.9%
*-commutative36.9%
Simplified36.9%
Taylor expanded in t around inf 51.0%
+-commutative51.0%
mul-1-neg51.0%
sub-neg51.0%
Simplified51.0%
if -2.02000000000000005e-53 < t < -4.1999999999999999e-165 or 1.22e57 < t < 2.19999999999999987e81Initial program 43.0%
Taylor expanded in b around inf 54.6%
Taylor expanded in x around inf 54.9%
if -4.1999999999999999e-165 < t < 1.90000000000000001e33Initial program 29.7%
Taylor expanded in a around inf 41.9%
+-commutative41.9%
mul-1-neg41.9%
unsub-neg41.9%
*-commutative41.9%
*-commutative41.9%
*-commutative41.9%
mul-1-neg41.9%
*-commutative41.9%
Simplified41.9%
Taylor expanded in y around inf 40.2%
+-commutative40.2%
mul-1-neg40.2%
unsub-neg40.2%
Simplified40.2%
Final simplification49.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= j -2.7e+258)
(* k (* y1 (- (* y2 y4) (* z i))))
(if (<= j -4e+179)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= j -520.0)
(* b (* x (- (* y a) (* j y0))))
(if (<= j 2.06e-252)
(* y2 (* y4 (- (* k y1) (* t c))))
(if (<= j 1.95e-126)
(* b (* a (- (* x y) (* z t))))
(if (<= j 1750000000000.0)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= j 8.8e+49)
(* k (* y5 (- (* y i) (* y0 y2))))
(if (<= j 3.4e+112)
(* a (* y1 (- (* z y3) (* x y2))))
(* (- (* t b) (* 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 tmp;
if (j <= -2.7e+258) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (j <= -4e+179) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (j <= -520.0) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (j <= 2.06e-252) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (j <= 1.95e-126) {
tmp = b * (a * ((x * y) - (z * t)));
} else if (j <= 1750000000000.0) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (j <= 8.8e+49) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (j <= 3.4e+112) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = ((t * b) - (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) :: tmp
if (j <= (-2.7d+258)) then
tmp = k * (y1 * ((y2 * y4) - (z * i)))
else if (j <= (-4d+179)) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (j <= (-520.0d0)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (j <= 2.06d-252) then
tmp = y2 * (y4 * ((k * y1) - (t * c)))
else if (j <= 1.95d-126) then
tmp = b * (a * ((x * y) - (z * t)))
else if (j <= 1750000000000.0d0) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (j <= 8.8d+49) then
tmp = k * (y5 * ((y * i) - (y0 * y2)))
else if (j <= 3.4d+112) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else
tmp = ((t * b) - (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 tmp;
if (j <= -2.7e+258) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (j <= -4e+179) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (j <= -520.0) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (j <= 2.06e-252) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (j <= 1.95e-126) {
tmp = b * (a * ((x * y) - (z * t)));
} else if (j <= 1750000000000.0) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (j <= 8.8e+49) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (j <= 3.4e+112) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = ((t * b) - (y1 * y3)) * (j * y4);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if j <= -2.7e+258: tmp = k * (y1 * ((y2 * y4) - (z * i))) elif j <= -4e+179: tmp = x * (y2 * ((c * y0) - (a * y1))) elif j <= -520.0: tmp = b * (x * ((y * a) - (j * y0))) elif j <= 2.06e-252: tmp = y2 * (y4 * ((k * y1) - (t * c))) elif j <= 1.95e-126: tmp = b * (a * ((x * y) - (z * t))) elif j <= 1750000000000.0: tmp = a * (x * ((y * b) - (y1 * y2))) elif j <= 8.8e+49: tmp = k * (y5 * ((y * i) - (y0 * y2))) elif j <= 3.4e+112: tmp = a * (y1 * ((z * y3) - (x * y2))) else: tmp = ((t * b) - (y1 * y3)) * (j * y4) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (j <= -2.7e+258) tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); elseif (j <= -4e+179) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (j <= -520.0) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (j <= 2.06e-252) tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); elseif (j <= 1.95e-126) tmp = Float64(b * Float64(a * Float64(Float64(x * y) - Float64(z * t)))); elseif (j <= 1750000000000.0) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (j <= 8.8e+49) tmp = Float64(k * Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2)))); elseif (j <= 3.4e+112) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); else tmp = Float64(Float64(Float64(t * b) - Float64(y1 * y3)) * Float64(j * 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) tmp = 0.0; if (j <= -2.7e+258) tmp = k * (y1 * ((y2 * y4) - (z * i))); elseif (j <= -4e+179) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (j <= -520.0) tmp = b * (x * ((y * a) - (j * y0))); elseif (j <= 2.06e-252) tmp = y2 * (y4 * ((k * y1) - (t * c))); elseif (j <= 1.95e-126) tmp = b * (a * ((x * y) - (z * t))); elseif (j <= 1750000000000.0) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (j <= 8.8e+49) tmp = k * (y5 * ((y * i) - (y0 * y2))); elseif (j <= 3.4e+112) tmp = a * (y1 * ((z * y3) - (x * y2))); else tmp = ((t * b) - (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_] := If[LessEqual[j, -2.7e+258], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -4e+179], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -520.0], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 2.06e-252], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1.95e-126], N[(b * N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1750000000000.0], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 8.8e+49], N[(k * N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.4e+112], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(t * b), $MachinePrecision] - N[(y1 * y3), $MachinePrecision]), $MachinePrecision] * N[(j * y4), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;j \leq -2.7 \cdot 10^{+258}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{elif}\;j \leq -4 \cdot 10^{+179}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;j \leq -520:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;j \leq 2.06 \cdot 10^{-252}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{elif}\;j \leq 1.95 \cdot 10^{-126}:\\
\;\;\;\;b \cdot \left(a \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{elif}\;j \leq 1750000000000:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;j \leq 8.8 \cdot 10^{+49}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\mathbf{elif}\;j \leq 3.4 \cdot 10^{+112}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(t \cdot b - y1 \cdot y3\right) \cdot \left(j \cdot y4\right)\\
\end{array}
\end{array}
if j < -2.69999999999999996e258Initial program 10.0%
Taylor expanded in k around inf 70.0%
+-commutative70.0%
mul-1-neg70.0%
unsub-neg70.0%
*-commutative70.0%
associate-*r*70.0%
neg-mul-170.0%
Simplified70.0%
Taylor expanded in y1 around inf 70.9%
if -2.69999999999999996e258 < j < -3.99999999999999992e179Initial program 23.1%
Taylor expanded in x around inf 53.9%
Taylor expanded in y2 around inf 70.3%
if -3.99999999999999992e179 < j < -520Initial program 20.6%
Taylor expanded in b around inf 36.5%
Taylor expanded in x around inf 47.4%
if -520 < j < 2.06000000000000011e-252Initial program 30.5%
Taylor expanded in y4 around inf 48.8%
Taylor expanded in y2 around inf 52.8%
*-commutative52.8%
Simplified52.8%
if 2.06000000000000011e-252 < j < 1.9499999999999999e-126Initial program 35.2%
Taylor expanded in b around inf 60.2%
Taylor expanded in a around inf 51.1%
if 1.9499999999999999e-126 < j < 1.75e12Initial program 34.4%
Taylor expanded in a around inf 41.7%
+-commutative41.7%
mul-1-neg41.7%
unsub-neg41.7%
*-commutative41.7%
*-commutative41.7%
*-commutative41.7%
mul-1-neg41.7%
*-commutative41.7%
Simplified41.7%
Taylor expanded in x around inf 52.4%
if 1.75e12 < j < 8.8000000000000003e49Initial program 30.0%
Taylor expanded in k around inf 40.1%
+-commutative40.1%
mul-1-neg40.1%
unsub-neg40.1%
*-commutative40.1%
associate-*r*40.1%
neg-mul-140.1%
Simplified40.1%
Taylor expanded in y5 around -inf 60.6%
associate-*r*60.6%
neg-mul-160.6%
Simplified60.6%
if 8.8000000000000003e49 < j < 3.39999999999999993e112Initial program 36.4%
Taylor expanded in a around inf 55.1%
+-commutative55.1%
mul-1-neg55.1%
unsub-neg55.1%
*-commutative55.1%
*-commutative55.1%
*-commutative55.1%
mul-1-neg55.1%
*-commutative55.1%
Simplified55.1%
Taylor expanded in y1 around inf 73.4%
if 3.39999999999999993e112 < j Initial program 14.0%
Taylor expanded in y4 around inf 49.4%
Taylor expanded in j around inf 50.1%
associate-*r*54.5%
*-commutative54.5%
+-commutative54.5%
mul-1-neg54.5%
unsub-neg54.5%
*-commutative54.5%
Simplified54.5%
Final simplification54.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* x (- (* y a) (* j y0))))))
(if (<= t -2.8e+100)
(* b (* j (* t y4)))
(if (<= t -2.05e-53)
(* a (* t (- (* y2 y5) (* z b))))
(if (<= t -2.85e-167)
t_1
(if (<= t 3.8e+35)
(* a (* y (- (* x b) (* y3 y5))))
(if (<= t 6e+49)
(* b (* y4 (- (* t j) (* y k))))
(if (<= t 5e+148) t_1 (* a (* y2 (- (* 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 = b * (x * ((y * a) - (j * y0)));
double tmp;
if (t <= -2.8e+100) {
tmp = b * (j * (t * y4));
} else if (t <= -2.05e-53) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (t <= -2.85e-167) {
tmp = t_1;
} else if (t <= 3.8e+35) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else if (t <= 6e+49) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (t <= 5e+148) {
tmp = t_1;
} else {
tmp = a * (y2 * ((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) :: tmp
t_1 = b * (x * ((y * a) - (j * y0)))
if (t <= (-2.8d+100)) then
tmp = b * (j * (t * y4))
else if (t <= (-2.05d-53)) then
tmp = a * (t * ((y2 * y5) - (z * b)))
else if (t <= (-2.85d-167)) then
tmp = t_1
else if (t <= 3.8d+35) then
tmp = a * (y * ((x * b) - (y3 * y5)))
else if (t <= 6d+49) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (t <= 5d+148) then
tmp = t_1
else
tmp = a * (y2 * ((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 = b * (x * ((y * a) - (j * y0)));
double tmp;
if (t <= -2.8e+100) {
tmp = b * (j * (t * y4));
} else if (t <= -2.05e-53) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (t <= -2.85e-167) {
tmp = t_1;
} else if (t <= 3.8e+35) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else if (t <= 6e+49) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (t <= 5e+148) {
tmp = t_1;
} else {
tmp = a * (y2 * ((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 = b * (x * ((y * a) - (j * y0))) tmp = 0 if t <= -2.8e+100: tmp = b * (j * (t * y4)) elif t <= -2.05e-53: tmp = a * (t * ((y2 * y5) - (z * b))) elif t <= -2.85e-167: tmp = t_1 elif t <= 3.8e+35: tmp = a * (y * ((x * b) - (y3 * y5))) elif t <= 6e+49: tmp = b * (y4 * ((t * j) - (y * k))) elif t <= 5e+148: tmp = t_1 else: tmp = a * (y2 * ((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(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))) tmp = 0.0 if (t <= -2.8e+100) tmp = Float64(b * Float64(j * Float64(t * y4))); elseif (t <= -2.05e-53) tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); elseif (t <= -2.85e-167) tmp = t_1; elseif (t <= 3.8e+35) tmp = Float64(a * Float64(y * Float64(Float64(x * b) - Float64(y3 * y5)))); elseif (t <= 6e+49) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (t <= 5e+148) tmp = t_1; else tmp = Float64(a * Float64(y2 * 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 = b * (x * ((y * a) - (j * y0))); tmp = 0.0; if (t <= -2.8e+100) tmp = b * (j * (t * y4)); elseif (t <= -2.05e-53) tmp = a * (t * ((y2 * y5) - (z * b))); elseif (t <= -2.85e-167) tmp = t_1; elseif (t <= 3.8e+35) tmp = a * (y * ((x * b) - (y3 * y5))); elseif (t <= 6e+49) tmp = b * (y4 * ((t * j) - (y * k))); elseif (t <= 5e+148) tmp = t_1; else tmp = a * (y2 * ((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[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -2.8e+100], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.05e-53], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.85e-167], t$95$1, If[LessEqual[t, 3.8e+35], N[(a * N[(y * N[(N[(x * b), $MachinePrecision] - N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 6e+49], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 5e+148], t$95$1, N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{if}\;t \leq -2.8 \cdot 10^{+100}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{elif}\;t \leq -2.05 \cdot 10^{-53}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{elif}\;t \leq -2.85 \cdot 10^{-167}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t \leq 3.8 \cdot 10^{+35}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b - y3 \cdot y5\right)\right)\\
\mathbf{elif}\;t \leq 6 \cdot 10^{+49}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;t \leq 5 \cdot 10^{+148}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\end{array}
\end{array}
if t < -2.7999999999999998e100Initial program 15.0%
Taylor expanded in b around inf 36.8%
Taylor expanded in y4 around inf 37.1%
Taylor expanded in j around inf 45.5%
*-commutative45.5%
Simplified45.5%
if -2.7999999999999998e100 < t < -2.05e-53Initial program 26.9%
Taylor expanded in a around inf 30.1%
+-commutative30.1%
mul-1-neg30.1%
unsub-neg30.1%
*-commutative30.1%
*-commutative30.1%
*-commutative30.1%
mul-1-neg30.1%
*-commutative30.1%
Simplified30.1%
Taylor expanded in t around inf 42.4%
+-commutative42.4%
mul-1-neg42.4%
sub-neg42.4%
Simplified42.4%
if -2.05e-53 < t < -2.84999999999999994e-167 or 6.0000000000000005e49 < t < 5.00000000000000024e148Initial program 32.7%
Taylor expanded in b around inf 49.2%
Taylor expanded in x around inf 49.7%
if -2.84999999999999994e-167 < t < 3.8e35Initial program 29.4%
Taylor expanded in a around inf 42.5%
+-commutative42.5%
mul-1-neg42.5%
unsub-neg42.5%
*-commutative42.5%
*-commutative42.5%
*-commutative42.5%
mul-1-neg42.5%
*-commutative42.5%
Simplified42.5%
Taylor expanded in y around inf 40.9%
+-commutative40.9%
mul-1-neg40.9%
unsub-neg40.9%
Simplified40.9%
if 3.8e35 < t < 6.0000000000000005e49Initial program 55.6%
Taylor expanded in b around inf 44.7%
Taylor expanded in y4 around inf 67.0%
if 5.00000000000000024e148 < t Initial program 14.3%
Taylor expanded in a around inf 43.4%
+-commutative43.4%
mul-1-neg43.4%
unsub-neg43.4%
*-commutative43.4%
*-commutative43.4%
*-commutative43.4%
mul-1-neg43.4%
*-commutative43.4%
Simplified43.4%
Taylor expanded in y2 around inf 50.8%
Final simplification45.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= j -4.3e+257)
(* k (* y1 (- (* y2 y4) (* z i))))
(if (<= j -4e+179)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= j -9.5)
(* b (* x (- (* y a) (* j y0))))
(if (<= j 3.75e-249)
(* y2 (* y4 (- (* k y1) (* t c))))
(if (<= j 1600000000000.0)
(* b (* y (* x (- a (* k (/ y4 x))))))
(if (<= j 3.4e+112)
(* a (* y1 (- (* z y3) (* x y2))))
(* (- (* t b) (* 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 tmp;
if (j <= -4.3e+257) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (j <= -4e+179) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (j <= -9.5) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (j <= 3.75e-249) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (j <= 1600000000000.0) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (j <= 3.4e+112) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = ((t * b) - (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) :: tmp
if (j <= (-4.3d+257)) then
tmp = k * (y1 * ((y2 * y4) - (z * i)))
else if (j <= (-4d+179)) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (j <= (-9.5d0)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (j <= 3.75d-249) then
tmp = y2 * (y4 * ((k * y1) - (t * c)))
else if (j <= 1600000000000.0d0) then
tmp = b * (y * (x * (a - (k * (y4 / x)))))
else if (j <= 3.4d+112) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else
tmp = ((t * b) - (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 tmp;
if (j <= -4.3e+257) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (j <= -4e+179) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (j <= -9.5) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (j <= 3.75e-249) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (j <= 1600000000000.0) {
tmp = b * (y * (x * (a - (k * (y4 / x)))));
} else if (j <= 3.4e+112) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = ((t * b) - (y1 * y3)) * (j * y4);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if j <= -4.3e+257: tmp = k * (y1 * ((y2 * y4) - (z * i))) elif j <= -4e+179: tmp = x * (y2 * ((c * y0) - (a * y1))) elif j <= -9.5: tmp = b * (x * ((y * a) - (j * y0))) elif j <= 3.75e-249: tmp = y2 * (y4 * ((k * y1) - (t * c))) elif j <= 1600000000000.0: tmp = b * (y * (x * (a - (k * (y4 / x))))) elif j <= 3.4e+112: tmp = a * (y1 * ((z * y3) - (x * y2))) else: tmp = ((t * b) - (y1 * y3)) * (j * y4) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (j <= -4.3e+257) tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); elseif (j <= -4e+179) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (j <= -9.5) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (j <= 3.75e-249) tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); elseif (j <= 1600000000000.0) tmp = Float64(b * Float64(y * Float64(x * Float64(a - Float64(k * Float64(y4 / x)))))); elseif (j <= 3.4e+112) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); else tmp = Float64(Float64(Float64(t * b) - Float64(y1 * y3)) * Float64(j * 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) tmp = 0.0; if (j <= -4.3e+257) tmp = k * (y1 * ((y2 * y4) - (z * i))); elseif (j <= -4e+179) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (j <= -9.5) tmp = b * (x * ((y * a) - (j * y0))); elseif (j <= 3.75e-249) tmp = y2 * (y4 * ((k * y1) - (t * c))); elseif (j <= 1600000000000.0) tmp = b * (y * (x * (a - (k * (y4 / x))))); elseif (j <= 3.4e+112) tmp = a * (y1 * ((z * y3) - (x * y2))); else tmp = ((t * b) - (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_] := If[LessEqual[j, -4.3e+257], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -4e+179], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -9.5], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.75e-249], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1600000000000.0], N[(b * N[(y * N[(x * N[(a - N[(k * N[(y4 / x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.4e+112], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(t * b), $MachinePrecision] - N[(y1 * y3), $MachinePrecision]), $MachinePrecision] * N[(j * y4), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;j \leq -4.3 \cdot 10^{+257}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{elif}\;j \leq -4 \cdot 10^{+179}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;j \leq -9.5:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;j \leq 3.75 \cdot 10^{-249}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{elif}\;j \leq 1600000000000:\\
\;\;\;\;b \cdot \left(y \cdot \left(x \cdot \left(a - k \cdot \frac{y4}{x}\right)\right)\right)\\
\mathbf{elif}\;j \leq 3.4 \cdot 10^{+112}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(t \cdot b - y1 \cdot y3\right) \cdot \left(j \cdot y4\right)\\
\end{array}
\end{array}
if j < -4.2999999999999998e257Initial program 10.0%
Taylor expanded in k around inf 70.0%
+-commutative70.0%
mul-1-neg70.0%
unsub-neg70.0%
*-commutative70.0%
associate-*r*70.0%
neg-mul-170.0%
Simplified70.0%
Taylor expanded in y1 around inf 70.9%
if -4.2999999999999998e257 < j < -3.99999999999999992e179Initial program 23.1%
Taylor expanded in x around inf 53.9%
Taylor expanded in y2 around inf 70.3%
if -3.99999999999999992e179 < j < -9.5Initial program 20.6%
Taylor expanded in b around inf 36.5%
Taylor expanded in x around inf 47.4%
if -9.5 < j < 3.75000000000000017e-249Initial program 31.1%
Taylor expanded in y4 around inf 50.3%
Taylor expanded in y2 around inf 52.8%
*-commutative52.8%
Simplified52.8%
if 3.75000000000000017e-249 < j < 1.6e12Initial program 34.3%
Taylor expanded in b around inf 43.8%
Taylor expanded in y around inf 44.2%
+-commutative44.2%
mul-1-neg44.2%
unsub-neg44.2%
Simplified44.2%
Taylor expanded in x around inf 45.8%
mul-1-neg45.8%
unsub-neg45.8%
associate-/l*47.4%
Simplified47.4%
if 1.6e12 < j < 3.39999999999999993e112Initial program 33.3%
Taylor expanded in a around inf 43.7%
+-commutative43.7%
mul-1-neg43.7%
unsub-neg43.7%
*-commutative43.7%
*-commutative43.7%
*-commutative43.7%
mul-1-neg43.7%
*-commutative43.7%
Simplified43.7%
Taylor expanded in y1 around inf 53.2%
if 3.39999999999999993e112 < j Initial program 14.0%
Taylor expanded in y4 around inf 49.4%
Taylor expanded in j around inf 50.1%
associate-*r*54.5%
*-commutative54.5%
+-commutative54.5%
mul-1-neg54.5%
unsub-neg54.5%
*-commutative54.5%
Simplified54.5%
Final simplification52.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y (* x a)))) (t_2 (* b (* y4 (* t j)))))
(if (<= x -6e-35)
t_1
(if (<= x -4.8e-155)
t_2
(if (<= x -7e-296)
(* (- b) (* y (* k y4)))
(if (<= x 2.16e-240)
(* (* t y4) (* b j))
(if (<= x 1.05e-80)
(* a (* t (* y2 y5)))
(if (<= x 2.5e+42) t_2 t_1))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y * (x * a));
double t_2 = b * (y4 * (t * j));
double tmp;
if (x <= -6e-35) {
tmp = t_1;
} else if (x <= -4.8e-155) {
tmp = t_2;
} else if (x <= -7e-296) {
tmp = -b * (y * (k * y4));
} else if (x <= 2.16e-240) {
tmp = (t * y4) * (b * j);
} else if (x <= 1.05e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 2.5e+42) {
tmp = t_2;
} 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 = b * (y * (x * a))
t_2 = b * (y4 * (t * j))
if (x <= (-6d-35)) then
tmp = t_1
else if (x <= (-4.8d-155)) then
tmp = t_2
else if (x <= (-7d-296)) then
tmp = -b * (y * (k * y4))
else if (x <= 2.16d-240) then
tmp = (t * y4) * (b * j)
else if (x <= 1.05d-80) then
tmp = a * (t * (y2 * y5))
else if (x <= 2.5d+42) then
tmp = t_2
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y * (x * a));
double t_2 = b * (y4 * (t * j));
double tmp;
if (x <= -6e-35) {
tmp = t_1;
} else if (x <= -4.8e-155) {
tmp = t_2;
} else if (x <= -7e-296) {
tmp = -b * (y * (k * y4));
} else if (x <= 2.16e-240) {
tmp = (t * y4) * (b * j);
} else if (x <= 1.05e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 2.5e+42) {
tmp = t_2;
} 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 = b * (y * (x * a)) t_2 = b * (y4 * (t * j)) tmp = 0 if x <= -6e-35: tmp = t_1 elif x <= -4.8e-155: tmp = t_2 elif x <= -7e-296: tmp = -b * (y * (k * y4)) elif x <= 2.16e-240: tmp = (t * y4) * (b * j) elif x <= 1.05e-80: tmp = a * (t * (y2 * y5)) elif x <= 2.5e+42: tmp = t_2 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(b * Float64(y * Float64(x * a))) t_2 = Float64(b * Float64(y4 * Float64(t * j))) tmp = 0.0 if (x <= -6e-35) tmp = t_1; elseif (x <= -4.8e-155) tmp = t_2; elseif (x <= -7e-296) tmp = Float64(Float64(-b) * Float64(y * Float64(k * y4))); elseif (x <= 2.16e-240) tmp = Float64(Float64(t * y4) * Float64(b * j)); elseif (x <= 1.05e-80) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= 2.5e+42) tmp = t_2; 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 = b * (y * (x * a)); t_2 = b * (y4 * (t * j)); tmp = 0.0; if (x <= -6e-35) tmp = t_1; elseif (x <= -4.8e-155) tmp = t_2; elseif (x <= -7e-296) tmp = -b * (y * (k * y4)); elseif (x <= 2.16e-240) tmp = (t * y4) * (b * j); elseif (x <= 1.05e-80) tmp = a * (t * (y2 * y5)); elseif (x <= 2.5e+42) tmp = t_2; 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[(b * N[(y * N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -6e-35], t$95$1, If[LessEqual[x, -4.8e-155], t$95$2, If[LessEqual[x, -7e-296], N[((-b) * N[(y * N[(k * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.16e-240], N[(N[(t * y4), $MachinePrecision] * N[(b * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.05e-80], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.5e+42], t$95$2, t$95$1]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y \cdot \left(x \cdot a\right)\right)\\
t_2 := b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{if}\;x \leq -6 \cdot 10^{-35}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -4.8 \cdot 10^{-155}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq -7 \cdot 10^{-296}:\\
\;\;\;\;\left(-b\right) \cdot \left(y \cdot \left(k \cdot y4\right)\right)\\
\mathbf{elif}\;x \leq 2.16 \cdot 10^{-240}:\\
\;\;\;\;\left(t \cdot y4\right) \cdot \left(b \cdot j\right)\\
\mathbf{elif}\;x \leq 1.05 \cdot 10^{-80}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 2.5 \cdot 10^{+42}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -5.99999999999999978e-35 or 2.50000000000000003e42 < x Initial program 21.9%
Taylor expanded in b around inf 41.4%
Taylor expanded in y around inf 44.2%
+-commutative44.2%
mul-1-neg44.2%
unsub-neg44.2%
Simplified44.2%
Taylor expanded in a around inf 41.8%
if -5.99999999999999978e-35 < x < -4.8e-155 or 1.05000000000000001e-80 < x < 2.50000000000000003e42Initial program 25.5%
Taylor expanded in b around inf 35.4%
Taylor expanded in y4 around inf 35.5%
Taylor expanded in j around inf 35.5%
if -4.8e-155 < x < -6.9999999999999998e-296Initial program 25.1%
Taylor expanded in b around inf 39.9%
Taylor expanded in y around inf 37.0%
+-commutative37.0%
mul-1-neg37.0%
unsub-neg37.0%
Simplified37.0%
Taylor expanded in a around 0 30.1%
neg-mul-130.1%
distribute-lft-neg-in30.1%
*-commutative30.1%
Simplified30.1%
if -6.9999999999999998e-296 < x < 2.1599999999999999e-240Initial program 56.3%
Taylor expanded in b around inf 41.3%
Taylor expanded in y4 around inf 30.0%
Taylor expanded in j around inf 33.0%
associate-*r*33.0%
*-commutative33.0%
*-commutative33.0%
Simplified33.0%
if 2.1599999999999999e-240 < x < 1.05000000000000001e-80Initial program 22.4%
Taylor expanded in a around inf 37.0%
+-commutative37.0%
mul-1-neg37.0%
unsub-neg37.0%
*-commutative37.0%
*-commutative37.0%
*-commutative37.0%
mul-1-neg37.0%
*-commutative37.0%
Simplified37.0%
Taylor expanded in t around inf 34.4%
+-commutative34.4%
mul-1-neg34.4%
sub-neg34.4%
Simplified34.4%
Taylor expanded in y2 around inf 29.4%
*-commutative29.4%
Simplified29.4%
Final simplification36.8%
(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 (<= y -1.18e+145)
t_1
(if (<= y -7.5e+103)
(* b (* j (* t y4)))
(if (<= y -9e-256)
t_1
(if (<= y 4.4e-5)
(* a (* t (- (* y2 y5) (* z b))))
(if (<= y 8.8e+265) t_1 (* (- 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 = a * (x * ((y * b) - (y1 * y2)));
double tmp;
if (y <= -1.18e+145) {
tmp = t_1;
} else if (y <= -7.5e+103) {
tmp = b * (j * (t * y4));
} else if (y <= -9e-256) {
tmp = t_1;
} else if (y <= 4.4e-5) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (y <= 8.8e+265) {
tmp = t_1;
} 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) :: tmp
t_1 = a * (x * ((y * b) - (y1 * y2)))
if (y <= (-1.18d+145)) then
tmp = t_1
else if (y <= (-7.5d+103)) then
tmp = b * (j * (t * y4))
else if (y <= (-9d-256)) then
tmp = t_1
else if (y <= 4.4d-5) then
tmp = a * (t * ((y2 * y5) - (z * b)))
else if (y <= 8.8d+265) then
tmp = t_1
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 = a * (x * ((y * b) - (y1 * y2)));
double tmp;
if (y <= -1.18e+145) {
tmp = t_1;
} else if (y <= -7.5e+103) {
tmp = b * (j * (t * y4));
} else if (y <= -9e-256) {
tmp = t_1;
} else if (y <= 4.4e-5) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (y <= 8.8e+265) {
tmp = t_1;
} 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 = a * (x * ((y * b) - (y1 * y2))) tmp = 0 if y <= -1.18e+145: tmp = t_1 elif y <= -7.5e+103: tmp = b * (j * (t * y4)) elif y <= -9e-256: tmp = t_1 elif y <= 4.4e-5: tmp = a * (t * ((y2 * y5) - (z * b))) elif y <= 8.8e+265: tmp = t_1 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(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))) tmp = 0.0 if (y <= -1.18e+145) tmp = t_1; elseif (y <= -7.5e+103) tmp = Float64(b * Float64(j * Float64(t * y4))); elseif (y <= -9e-256) tmp = t_1; elseif (y <= 4.4e-5) tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); elseif (y <= 8.8e+265) tmp = t_1; else tmp = Float64(Float64(-b) * Float64(k * Float64(y * 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 = a * (x * ((y * b) - (y1 * y2))); tmp = 0.0; if (y <= -1.18e+145) tmp = t_1; elseif (y <= -7.5e+103) tmp = b * (j * (t * y4)); elseif (y <= -9e-256) tmp = t_1; elseif (y <= 4.4e-5) tmp = a * (t * ((y2 * y5) - (z * b))); elseif (y <= 8.8e+265) tmp = t_1; 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[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.18e+145], t$95$1, If[LessEqual[y, -7.5e+103], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -9e-256], t$95$1, If[LessEqual[y, 4.4e-5], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 8.8e+265], t$95$1, N[((-b) * N[(k * N[(y * y4), $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}\;y \leq -1.18 \cdot 10^{+145}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -7.5 \cdot 10^{+103}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{elif}\;y \leq -9 \cdot 10^{-256}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 4.4 \cdot 10^{-5}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{elif}\;y \leq 8.8 \cdot 10^{+265}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;\left(-b\right) \cdot \left(k \cdot \left(y \cdot y4\right)\right)\\
\end{array}
\end{array}
if y < -1.17999999999999998e145 or -7.49999999999999922e103 < y < -9.0000000000000005e-256 or 4.3999999999999999e-5 < y < 8.7999999999999996e265Initial program 23.5%
Taylor expanded in a around inf 44.8%
+-commutative44.8%
mul-1-neg44.8%
unsub-neg44.8%
*-commutative44.8%
*-commutative44.8%
*-commutative44.8%
mul-1-neg44.8%
*-commutative44.8%
Simplified44.8%
Taylor expanded in x around inf 40.8%
if -1.17999999999999998e145 < y < -7.49999999999999922e103Initial program 41.7%
Taylor expanded in b around inf 42.0%
Taylor expanded in y4 around inf 42.6%
Taylor expanded in j around inf 67.2%
*-commutative67.2%
Simplified67.2%
if -9.0000000000000005e-256 < y < 4.3999999999999999e-5Initial program 28.2%
Taylor expanded in a around inf 39.2%
+-commutative39.2%
mul-1-neg39.2%
unsub-neg39.2%
*-commutative39.2%
*-commutative39.2%
*-commutative39.2%
mul-1-neg39.2%
*-commutative39.2%
Simplified39.2%
Taylor expanded in t around inf 38.2%
+-commutative38.2%
mul-1-neg38.2%
sub-neg38.2%
Simplified38.2%
if 8.7999999999999996e265 < y Initial program 34.2%
Taylor expanded in b around inf 59.2%
Taylor expanded in y around inf 84.2%
+-commutative84.2%
mul-1-neg84.2%
unsub-neg84.2%
Simplified84.2%
Taylor expanded in a around 0 75.8%
mul-1-neg75.8%
*-commutative75.8%
distribute-lft-neg-in75.8%
mul-1-neg75.8%
associate-*r*75.8%
neg-mul-175.8%
Simplified75.8%
Final simplification42.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y (* x a)))) (t_2 (* b (* y4 (* t j)))))
(if (<= x -1.85e-36)
t_1
(if (<= x -6.8e-155)
t_2
(if (<= x 5.5e-232)
(* (- b) (* k (* y y4)))
(if (<= x 6.2e-80)
(* a (* t (* y2 y5)))
(if (<= x 1.1e+42) t_2 t_1)))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y * (x * a));
double t_2 = b * (y4 * (t * j));
double tmp;
if (x <= -1.85e-36) {
tmp = t_1;
} else if (x <= -6.8e-155) {
tmp = t_2;
} else if (x <= 5.5e-232) {
tmp = -b * (k * (y * y4));
} else if (x <= 6.2e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 1.1e+42) {
tmp = t_2;
} 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 = b * (y * (x * a))
t_2 = b * (y4 * (t * j))
if (x <= (-1.85d-36)) then
tmp = t_1
else if (x <= (-6.8d-155)) then
tmp = t_2
else if (x <= 5.5d-232) then
tmp = -b * (k * (y * y4))
else if (x <= 6.2d-80) then
tmp = a * (t * (y2 * y5))
else if (x <= 1.1d+42) then
tmp = t_2
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y * (x * a));
double t_2 = b * (y4 * (t * j));
double tmp;
if (x <= -1.85e-36) {
tmp = t_1;
} else if (x <= -6.8e-155) {
tmp = t_2;
} else if (x <= 5.5e-232) {
tmp = -b * (k * (y * y4));
} else if (x <= 6.2e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 1.1e+42) {
tmp = t_2;
} 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 = b * (y * (x * a)) t_2 = b * (y4 * (t * j)) tmp = 0 if x <= -1.85e-36: tmp = t_1 elif x <= -6.8e-155: tmp = t_2 elif x <= 5.5e-232: tmp = -b * (k * (y * y4)) elif x <= 6.2e-80: tmp = a * (t * (y2 * y5)) elif x <= 1.1e+42: tmp = t_2 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(b * Float64(y * Float64(x * a))) t_2 = Float64(b * Float64(y4 * Float64(t * j))) tmp = 0.0 if (x <= -1.85e-36) tmp = t_1; elseif (x <= -6.8e-155) tmp = t_2; elseif (x <= 5.5e-232) tmp = Float64(Float64(-b) * Float64(k * Float64(y * y4))); elseif (x <= 6.2e-80) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= 1.1e+42) tmp = t_2; 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 = b * (y * (x * a)); t_2 = b * (y4 * (t * j)); tmp = 0.0; if (x <= -1.85e-36) tmp = t_1; elseif (x <= -6.8e-155) tmp = t_2; elseif (x <= 5.5e-232) tmp = -b * (k * (y * y4)); elseif (x <= 6.2e-80) tmp = a * (t * (y2 * y5)); elseif (x <= 1.1e+42) tmp = t_2; 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[(b * N[(y * N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.85e-36], t$95$1, If[LessEqual[x, -6.8e-155], t$95$2, If[LessEqual[x, 5.5e-232], N[((-b) * N[(k * N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.2e-80], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.1e+42], t$95$2, t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y \cdot \left(x \cdot a\right)\right)\\
t_2 := b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{if}\;x \leq -1.85 \cdot 10^{-36}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -6.8 \cdot 10^{-155}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 5.5 \cdot 10^{-232}:\\
\;\;\;\;\left(-b\right) \cdot \left(k \cdot \left(y \cdot y4\right)\right)\\
\mathbf{elif}\;x \leq 6.2 \cdot 10^{-80}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 1.1 \cdot 10^{+42}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -1.85000000000000001e-36 or 1.1000000000000001e42 < x Initial program 21.9%
Taylor expanded in b around inf 41.4%
Taylor expanded in y around inf 44.2%
+-commutative44.2%
mul-1-neg44.2%
unsub-neg44.2%
Simplified44.2%
Taylor expanded in a around inf 41.8%
if -1.85000000000000001e-36 < x < -6.8e-155 or 6.20000000000000032e-80 < x < 1.1000000000000001e42Initial program 25.5%
Taylor expanded in b around inf 35.4%
Taylor expanded in y4 around inf 35.5%
Taylor expanded in j around inf 35.5%
if -6.8e-155 < x < 5.50000000000000023e-232Initial program 39.5%
Taylor expanded in b around inf 41.9%
Taylor expanded in y around inf 30.2%
+-commutative30.2%
mul-1-neg30.2%
unsub-neg30.2%
Simplified30.2%
Taylor expanded in a around 0 30.2%
mul-1-neg30.2%
*-commutative30.2%
distribute-lft-neg-in30.2%
mul-1-neg30.2%
associate-*r*30.2%
neg-mul-130.2%
Simplified30.2%
if 5.50000000000000023e-232 < x < 6.20000000000000032e-80Initial program 21.4%
Taylor expanded in a around inf 37.3%
+-commutative37.3%
mul-1-neg37.3%
unsub-neg37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
mul-1-neg37.3%
*-commutative37.3%
Simplified37.3%
Taylor expanded in t around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
sub-neg37.5%
Simplified37.5%
Taylor expanded in y2 around inf 31.8%
*-commutative31.8%
Simplified31.8%
Final simplification36.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y (* x a)))))
(if (<= x -7.5e-45)
t_1
(if (<= x 3.8e-305)
(* a (* (* t b) (- z)))
(if (<= x 4e-232)
(* (- b) (* k (* y y4)))
(if (<= x 7.6e-80)
(* a (* t (* y2 y5)))
(if (<= x 3.2e+42) (* b (* y4 (* t 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 = b * (y * (x * a));
double tmp;
if (x <= -7.5e-45) {
tmp = t_1;
} else if (x <= 3.8e-305) {
tmp = a * ((t * b) * -z);
} else if (x <= 4e-232) {
tmp = -b * (k * (y * y4));
} else if (x <= 7.6e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 3.2e+42) {
tmp = b * (y4 * (t * 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) :: tmp
t_1 = b * (y * (x * a))
if (x <= (-7.5d-45)) then
tmp = t_1
else if (x <= 3.8d-305) then
tmp = a * ((t * b) * -z)
else if (x <= 4d-232) then
tmp = -b * (k * (y * y4))
else if (x <= 7.6d-80) then
tmp = a * (t * (y2 * y5))
else if (x <= 3.2d+42) then
tmp = b * (y4 * (t * 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 = b * (y * (x * a));
double tmp;
if (x <= -7.5e-45) {
tmp = t_1;
} else if (x <= 3.8e-305) {
tmp = a * ((t * b) * -z);
} else if (x <= 4e-232) {
tmp = -b * (k * (y * y4));
} else if (x <= 7.6e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 3.2e+42) {
tmp = b * (y4 * (t * 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 = b * (y * (x * a)) tmp = 0 if x <= -7.5e-45: tmp = t_1 elif x <= 3.8e-305: tmp = a * ((t * b) * -z) elif x <= 4e-232: tmp = -b * (k * (y * y4)) elif x <= 7.6e-80: tmp = a * (t * (y2 * y5)) elif x <= 3.2e+42: tmp = b * (y4 * (t * 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(b * Float64(y * Float64(x * a))) tmp = 0.0 if (x <= -7.5e-45) tmp = t_1; elseif (x <= 3.8e-305) tmp = Float64(a * Float64(Float64(t * b) * Float64(-z))); elseif (x <= 4e-232) tmp = Float64(Float64(-b) * Float64(k * Float64(y * y4))); elseif (x <= 7.6e-80) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= 3.2e+42) tmp = Float64(b * Float64(y4 * Float64(t * 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 = b * (y * (x * a)); tmp = 0.0; if (x <= -7.5e-45) tmp = t_1; elseif (x <= 3.8e-305) tmp = a * ((t * b) * -z); elseif (x <= 4e-232) tmp = -b * (k * (y * y4)); elseif (x <= 7.6e-80) tmp = a * (t * (y2 * y5)); elseif (x <= 3.2e+42) tmp = b * (y4 * (t * 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[(b * N[(y * N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -7.5e-45], t$95$1, If[LessEqual[x, 3.8e-305], N[(a * N[(N[(t * b), $MachinePrecision] * (-z)), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 4e-232], N[((-b) * N[(k * N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 7.6e-80], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 3.2e+42], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y \cdot \left(x \cdot a\right)\right)\\
\mathbf{if}\;x \leq -7.5 \cdot 10^{-45}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 3.8 \cdot 10^{-305}:\\
\;\;\;\;a \cdot \left(\left(t \cdot b\right) \cdot \left(-z\right)\right)\\
\mathbf{elif}\;x \leq 4 \cdot 10^{-232}:\\
\;\;\;\;\left(-b\right) \cdot \left(k \cdot \left(y \cdot y4\right)\right)\\
\mathbf{elif}\;x \leq 7.6 \cdot 10^{-80}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 3.2 \cdot 10^{+42}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -7.5000000000000006e-45 or 3.20000000000000002e42 < x Initial program 22.3%
Taylor expanded in b around inf 40.7%
Taylor expanded in y around inf 43.5%
+-commutative43.5%
mul-1-neg43.5%
unsub-neg43.5%
Simplified43.5%
Taylor expanded in a around inf 41.2%
if -7.5000000000000006e-45 < x < 3.8e-305Initial program 25.5%
Taylor expanded in a around inf 42.6%
+-commutative42.6%
mul-1-neg42.6%
unsub-neg42.6%
*-commutative42.6%
*-commutative42.6%
*-commutative42.6%
mul-1-neg42.6%
*-commutative42.6%
Simplified42.6%
Taylor expanded in t around inf 35.7%
+-commutative35.7%
mul-1-neg35.7%
sub-neg35.7%
Simplified35.7%
Taylor expanded in y2 around 0 32.1%
associate-*r*32.1%
mul-1-neg32.1%
associate-*r*35.5%
Simplified35.5%
if 3.8e-305 < x < 4.0000000000000001e-232Initial program 60.4%
Taylor expanded in b around inf 46.2%
Taylor expanded in y around inf 31.8%
+-commutative31.8%
mul-1-neg31.8%
unsub-neg31.8%
Simplified31.8%
Taylor expanded in a around 0 36.7%
mul-1-neg36.7%
*-commutative36.7%
distribute-lft-neg-in36.7%
mul-1-neg36.7%
associate-*r*36.7%
neg-mul-136.7%
Simplified36.7%
if 4.0000000000000001e-232 < x < 7.59999999999999933e-80Initial program 21.4%
Taylor expanded in a around inf 37.3%
+-commutative37.3%
mul-1-neg37.3%
unsub-neg37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
mul-1-neg37.3%
*-commutative37.3%
Simplified37.3%
Taylor expanded in t around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
sub-neg37.5%
Simplified37.5%
Taylor expanded in y2 around inf 31.8%
*-commutative31.8%
Simplified31.8%
if 7.59999999999999933e-80 < x < 3.20000000000000002e42Initial program 26.9%
Taylor expanded in b around inf 40.2%
Taylor expanded in y4 around inf 40.5%
Taylor expanded in j around inf 35.8%
Final simplification37.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y (* x a)))))
(if (<= x -6e-54)
t_1
(if (<= x 1.15e-304)
(* a (* z (* b (- t))))
(if (<= x 8.5e-231)
(* (* y y4) (* b (- k)))
(if (<= x 5.4e-80)
(* a (* t (* y2 y5)))
(if (<= x 2.5e+42) (* b (* y4 (* t 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 = b * (y * (x * a));
double tmp;
if (x <= -6e-54) {
tmp = t_1;
} else if (x <= 1.15e-304) {
tmp = a * (z * (b * -t));
} else if (x <= 8.5e-231) {
tmp = (y * y4) * (b * -k);
} else if (x <= 5.4e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 2.5e+42) {
tmp = b * (y4 * (t * 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) :: tmp
t_1 = b * (y * (x * a))
if (x <= (-6d-54)) then
tmp = t_1
else if (x <= 1.15d-304) then
tmp = a * (z * (b * -t))
else if (x <= 8.5d-231) then
tmp = (y * y4) * (b * -k)
else if (x <= 5.4d-80) then
tmp = a * (t * (y2 * y5))
else if (x <= 2.5d+42) then
tmp = b * (y4 * (t * 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 = b * (y * (x * a));
double tmp;
if (x <= -6e-54) {
tmp = t_1;
} else if (x <= 1.15e-304) {
tmp = a * (z * (b * -t));
} else if (x <= 8.5e-231) {
tmp = (y * y4) * (b * -k);
} else if (x <= 5.4e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 2.5e+42) {
tmp = b * (y4 * (t * 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 = b * (y * (x * a)) tmp = 0 if x <= -6e-54: tmp = t_1 elif x <= 1.15e-304: tmp = a * (z * (b * -t)) elif x <= 8.5e-231: tmp = (y * y4) * (b * -k) elif x <= 5.4e-80: tmp = a * (t * (y2 * y5)) elif x <= 2.5e+42: tmp = b * (y4 * (t * 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(b * Float64(y * Float64(x * a))) tmp = 0.0 if (x <= -6e-54) tmp = t_1; elseif (x <= 1.15e-304) tmp = Float64(a * Float64(z * Float64(b * Float64(-t)))); elseif (x <= 8.5e-231) tmp = Float64(Float64(y * y4) * Float64(b * Float64(-k))); elseif (x <= 5.4e-80) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= 2.5e+42) tmp = Float64(b * Float64(y4 * Float64(t * 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 = b * (y * (x * a)); tmp = 0.0; if (x <= -6e-54) tmp = t_1; elseif (x <= 1.15e-304) tmp = a * (z * (b * -t)); elseif (x <= 8.5e-231) tmp = (y * y4) * (b * -k); elseif (x <= 5.4e-80) tmp = a * (t * (y2 * y5)); elseif (x <= 2.5e+42) tmp = b * (y4 * (t * 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[(b * N[(y * N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -6e-54], t$95$1, If[LessEqual[x, 1.15e-304], N[(a * N[(z * N[(b * (-t)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 8.5e-231], N[(N[(y * y4), $MachinePrecision] * N[(b * (-k)), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 5.4e-80], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.5e+42], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y \cdot \left(x \cdot a\right)\right)\\
\mathbf{if}\;x \leq -6 \cdot 10^{-54}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 1.15 \cdot 10^{-304}:\\
\;\;\;\;a \cdot \left(z \cdot \left(b \cdot \left(-t\right)\right)\right)\\
\mathbf{elif}\;x \leq 8.5 \cdot 10^{-231}:\\
\;\;\;\;\left(y \cdot y4\right) \cdot \left(b \cdot \left(-k\right)\right)\\
\mathbf{elif}\;x \leq 5.4 \cdot 10^{-80}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 2.5 \cdot 10^{+42}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -6.00000000000000018e-54 or 2.50000000000000003e42 < x Initial program 22.3%
Taylor expanded in b around inf 40.7%
Taylor expanded in y around inf 43.5%
+-commutative43.5%
mul-1-neg43.5%
unsub-neg43.5%
Simplified43.5%
Taylor expanded in a around inf 41.2%
if -6.00000000000000018e-54 < x < 1.15e-304Initial program 25.5%
Taylor expanded in a around inf 42.6%
+-commutative42.6%
mul-1-neg42.6%
unsub-neg42.6%
*-commutative42.6%
*-commutative42.6%
*-commutative42.6%
mul-1-neg42.6%
*-commutative42.6%
Simplified42.6%
Taylor expanded in t around inf 35.7%
+-commutative35.7%
mul-1-neg35.7%
sub-neg35.7%
Simplified35.7%
Taylor expanded in y2 around 0 32.1%
associate-*r*32.1%
mul-1-neg32.1%
associate-*r*35.5%
Simplified35.5%
if 1.15e-304 < x < 8.5e-231Initial program 60.4%
Taylor expanded in b around inf 46.2%
Taylor expanded in y around inf 31.8%
+-commutative31.8%
mul-1-neg31.8%
unsub-neg31.8%
Simplified31.8%
Taylor expanded in a around 0 36.7%
associate-*r*36.7%
neg-mul-136.7%
associate-*r*31.9%
Simplified31.9%
Taylor expanded in b around 0 36.7%
neg-mul-136.7%
associate-*r*40.2%
distribute-lft-neg-in40.2%
*-commutative40.2%
distribute-rgt-neg-in40.2%
*-commutative40.2%
Simplified40.2%
if 8.5e-231 < x < 5.4000000000000004e-80Initial program 21.4%
Taylor expanded in a around inf 37.3%
+-commutative37.3%
mul-1-neg37.3%
unsub-neg37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
mul-1-neg37.3%
*-commutative37.3%
Simplified37.3%
Taylor expanded in t around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
sub-neg37.5%
Simplified37.5%
Taylor expanded in y2 around inf 31.8%
*-commutative31.8%
Simplified31.8%
if 5.4000000000000004e-80 < x < 2.50000000000000003e42Initial program 26.9%
Taylor expanded in b around inf 40.2%
Taylor expanded in y4 around inf 40.5%
Taylor expanded in j around inf 35.8%
Final simplification38.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= t -3e+100)
(* b (* j (* t y4)))
(if (<= t -2.3e-53)
(* a (* t (- (* y2 y5) (* z b))))
(if (<= t -1.2e-164)
(* b (* x (- (* y a) (* j y0))))
(if (<= t 5e+96)
(* a (* y (- (* x b) (* y3 y5))))
(* a (* y2 (- (* 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 tmp;
if (t <= -3e+100) {
tmp = b * (j * (t * y4));
} else if (t <= -2.3e-53) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (t <= -1.2e-164) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (t <= 5e+96) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else {
tmp = a * (y2 * ((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) :: tmp
if (t <= (-3d+100)) then
tmp = b * (j * (t * y4))
else if (t <= (-2.3d-53)) then
tmp = a * (t * ((y2 * y5) - (z * b)))
else if (t <= (-1.2d-164)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (t <= 5d+96) then
tmp = a * (y * ((x * b) - (y3 * y5)))
else
tmp = a * (y2 * ((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 tmp;
if (t <= -3e+100) {
tmp = b * (j * (t * y4));
} else if (t <= -2.3e-53) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (t <= -1.2e-164) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (t <= 5e+96) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else {
tmp = a * (y2 * ((t * y5) - (x * y1)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if t <= -3e+100: tmp = b * (j * (t * y4)) elif t <= -2.3e-53: tmp = a * (t * ((y2 * y5) - (z * b))) elif t <= -1.2e-164: tmp = b * (x * ((y * a) - (j * y0))) elif t <= 5e+96: tmp = a * (y * ((x * b) - (y3 * y5))) else: tmp = a * (y2 * ((t * y5) - (x * y1))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (t <= -3e+100) tmp = Float64(b * Float64(j * Float64(t * y4))); elseif (t <= -2.3e-53) tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); elseif (t <= -1.2e-164) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (t <= 5e+96) tmp = Float64(a * Float64(y * Float64(Float64(x * b) - Float64(y3 * y5)))); else tmp = Float64(a * Float64(y2 * 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) tmp = 0.0; if (t <= -3e+100) tmp = b * (j * (t * y4)); elseif (t <= -2.3e-53) tmp = a * (t * ((y2 * y5) - (z * b))); elseif (t <= -1.2e-164) tmp = b * (x * ((y * a) - (j * y0))); elseif (t <= 5e+96) tmp = a * (y * ((x * b) - (y3 * y5))); else tmp = a * (y2 * ((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_] := If[LessEqual[t, -3e+100], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.3e-53], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1.2e-164], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 5e+96], N[(a * N[(y * N[(N[(x * b), $MachinePrecision] - N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -3 \cdot 10^{+100}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{elif}\;t \leq -2.3 \cdot 10^{-53}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{elif}\;t \leq -1.2 \cdot 10^{-164}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;t \leq 5 \cdot 10^{+96}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b - y3 \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\end{array}
\end{array}
if t < -2.99999999999999985e100Initial program 15.0%
Taylor expanded in b around inf 36.8%
Taylor expanded in y4 around inf 37.1%
Taylor expanded in j around inf 45.5%
*-commutative45.5%
Simplified45.5%
if -2.99999999999999985e100 < t < -2.3000000000000001e-53Initial program 26.9%
Taylor expanded in a around inf 30.1%
+-commutative30.1%
mul-1-neg30.1%
unsub-neg30.1%
*-commutative30.1%
*-commutative30.1%
*-commutative30.1%
mul-1-neg30.1%
*-commutative30.1%
Simplified30.1%
Taylor expanded in t around inf 42.4%
+-commutative42.4%
mul-1-neg42.4%
sub-neg42.4%
Simplified42.4%
if -2.3000000000000001e-53 < t < -1.19999999999999992e-164Initial program 40.9%
Taylor expanded in b around inf 56.0%
Taylor expanded in x around inf 52.6%
if -1.19999999999999992e-164 < t < 5.0000000000000004e96Initial program 31.6%
Taylor expanded in a around inf 45.0%
+-commutative45.0%
mul-1-neg45.0%
unsub-neg45.0%
*-commutative45.0%
*-commutative45.0%
*-commutative45.0%
mul-1-neg45.0%
*-commutative45.0%
Simplified45.0%
Taylor expanded in y around inf 39.4%
+-commutative39.4%
mul-1-neg39.4%
unsub-neg39.4%
Simplified39.4%
if 5.0000000000000004e96 < t Initial program 13.5%
Taylor expanded in a around inf 41.0%
+-commutative41.0%
mul-1-neg41.0%
unsub-neg41.0%
*-commutative41.0%
*-commutative41.0%
*-commutative41.0%
mul-1-neg41.0%
*-commutative41.0%
Simplified41.0%
Taylor expanded in y2 around inf 46.6%
Final simplification43.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))) (t_2 (* b (* j (* t y4)))))
(if (<= x -8.2e-34)
t_1
(if (<= x 2.35e-240)
t_2
(if (<= x 2.8e-81)
(* a (* t (* y2 y5)))
(if (<= x 2.3e+42) t_2 t_1))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * ((x * y) * b);
double t_2 = b * (j * (t * y4));
double tmp;
if (x <= -8.2e-34) {
tmp = t_1;
} else if (x <= 2.35e-240) {
tmp = t_2;
} else if (x <= 2.8e-81) {
tmp = a * (t * (y2 * y5));
} else if (x <= 2.3e+42) {
tmp = t_2;
} 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 = a * ((x * y) * b)
t_2 = b * (j * (t * y4))
if (x <= (-8.2d-34)) then
tmp = t_1
else if (x <= 2.35d-240) then
tmp = t_2
else if (x <= 2.8d-81) then
tmp = a * (t * (y2 * y5))
else if (x <= 2.3d+42) then
tmp = t_2
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * ((x * y) * b);
double t_2 = b * (j * (t * y4));
double tmp;
if (x <= -8.2e-34) {
tmp = t_1;
} else if (x <= 2.35e-240) {
tmp = t_2;
} else if (x <= 2.8e-81) {
tmp = a * (t * (y2 * y5));
} else if (x <= 2.3e+42) {
tmp = t_2;
} 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 * ((x * y) * b) t_2 = b * (j * (t * y4)) tmp = 0 if x <= -8.2e-34: tmp = t_1 elif x <= 2.35e-240: tmp = t_2 elif x <= 2.8e-81: tmp = a * (t * (y2 * y5)) elif x <= 2.3e+42: tmp = t_2 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(Float64(x * y) * b)) t_2 = Float64(b * Float64(j * Float64(t * y4))) tmp = 0.0 if (x <= -8.2e-34) tmp = t_1; elseif (x <= 2.35e-240) tmp = t_2; elseif (x <= 2.8e-81) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= 2.3e+42) tmp = t_2; 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 * ((x * y) * b); t_2 = b * (j * (t * y4)); tmp = 0.0; if (x <= -8.2e-34) tmp = t_1; elseif (x <= 2.35e-240) tmp = t_2; elseif (x <= 2.8e-81) tmp = a * (t * (y2 * y5)); elseif (x <= 2.3e+42) tmp = t_2; 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[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -8.2e-34], t$95$1, If[LessEqual[x, 2.35e-240], t$95$2, If[LessEqual[x, 2.8e-81], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.3e+42], t$95$2, t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
t_2 := b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{if}\;x \leq -8.2 \cdot 10^{-34}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 2.35 \cdot 10^{-240}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 2.8 \cdot 10^{-81}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 2.3 \cdot 10^{+42}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -8.2000000000000007e-34 or 2.3e42 < x Initial program 21.9%
Taylor expanded in b around inf 41.4%
Taylor expanded in y around inf 44.2%
+-commutative44.2%
mul-1-neg44.2%
unsub-neg44.2%
Simplified44.2%
Taylor expanded in a around inf 37.1%
if -8.2000000000000007e-34 < x < 2.35000000000000006e-240 or 2.7999999999999999e-81 < x < 2.3e42Initial program 32.8%
Taylor expanded in b around inf 38.7%
Taylor expanded in y4 around inf 32.3%
Taylor expanded in j around inf 25.2%
*-commutative25.2%
Simplified25.2%
if 2.35000000000000006e-240 < x < 2.7999999999999999e-81Initial program 23.0%
Taylor expanded in a around inf 38.0%
+-commutative38.0%
mul-1-neg38.0%
unsub-neg38.0%
*-commutative38.0%
*-commutative38.0%
*-commutative38.0%
mul-1-neg38.0%
*-commutative38.0%
Simplified38.0%
Taylor expanded in t around inf 32.6%
+-commutative32.6%
mul-1-neg32.6%
sub-neg32.6%
Simplified32.6%
Taylor expanded in y2 around inf 27.3%
*-commutative27.3%
Simplified27.3%
Final simplification31.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y (* x a)))) (t_2 (* b (* j (* t y4)))))
(if (<= x -5.3e-36)
t_1
(if (<= x 5.8e-240)
t_2
(if (<= x 2.1e-81)
(* a (* t (* y2 y5)))
(if (<= x 6.3e+41) t_2 t_1))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y * (x * a));
double t_2 = b * (j * (t * y4));
double tmp;
if (x <= -5.3e-36) {
tmp = t_1;
} else if (x <= 5.8e-240) {
tmp = t_2;
} else if (x <= 2.1e-81) {
tmp = a * (t * (y2 * y5));
} else if (x <= 6.3e+41) {
tmp = t_2;
} 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 = b * (y * (x * a))
t_2 = b * (j * (t * y4))
if (x <= (-5.3d-36)) then
tmp = t_1
else if (x <= 5.8d-240) then
tmp = t_2
else if (x <= 2.1d-81) then
tmp = a * (t * (y2 * y5))
else if (x <= 6.3d+41) then
tmp = t_2
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y * (x * a));
double t_2 = b * (j * (t * y4));
double tmp;
if (x <= -5.3e-36) {
tmp = t_1;
} else if (x <= 5.8e-240) {
tmp = t_2;
} else if (x <= 2.1e-81) {
tmp = a * (t * (y2 * y5));
} else if (x <= 6.3e+41) {
tmp = t_2;
} 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 = b * (y * (x * a)) t_2 = b * (j * (t * y4)) tmp = 0 if x <= -5.3e-36: tmp = t_1 elif x <= 5.8e-240: tmp = t_2 elif x <= 2.1e-81: tmp = a * (t * (y2 * y5)) elif x <= 6.3e+41: tmp = t_2 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(b * Float64(y * Float64(x * a))) t_2 = Float64(b * Float64(j * Float64(t * y4))) tmp = 0.0 if (x <= -5.3e-36) tmp = t_1; elseif (x <= 5.8e-240) tmp = t_2; elseif (x <= 2.1e-81) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= 6.3e+41) tmp = t_2; 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 = b * (y * (x * a)); t_2 = b * (j * (t * y4)); tmp = 0.0; if (x <= -5.3e-36) tmp = t_1; elseif (x <= 5.8e-240) tmp = t_2; elseif (x <= 2.1e-81) tmp = a * (t * (y2 * y5)); elseif (x <= 6.3e+41) tmp = t_2; 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[(b * N[(y * N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -5.3e-36], t$95$1, If[LessEqual[x, 5.8e-240], t$95$2, If[LessEqual[x, 2.1e-81], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.3e+41], t$95$2, t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y \cdot \left(x \cdot a\right)\right)\\
t_2 := b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{if}\;x \leq -5.3 \cdot 10^{-36}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 5.8 \cdot 10^{-240}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 2.1 \cdot 10^{-81}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 6.3 \cdot 10^{+41}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -5.2999999999999998e-36 or 6.2999999999999999e41 < x Initial program 21.9%
Taylor expanded in b around inf 41.4%
Taylor expanded in y around inf 44.2%
+-commutative44.2%
mul-1-neg44.2%
unsub-neg44.2%
Simplified44.2%
Taylor expanded in a around inf 41.8%
if -5.2999999999999998e-36 < x < 5.8000000000000004e-240 or 2.0999999999999999e-81 < x < 6.2999999999999999e41Initial program 32.8%
Taylor expanded in b around inf 38.7%
Taylor expanded in y4 around inf 32.3%
Taylor expanded in j around inf 25.2%
*-commutative25.2%
Simplified25.2%
if 5.8000000000000004e-240 < x < 2.0999999999999999e-81Initial program 23.0%
Taylor expanded in a around inf 38.0%
+-commutative38.0%
mul-1-neg38.0%
unsub-neg38.0%
*-commutative38.0%
*-commutative38.0%
*-commutative38.0%
mul-1-neg38.0%
*-commutative38.0%
Simplified38.0%
Taylor expanded in t around inf 32.6%
+-commutative32.6%
mul-1-neg32.6%
sub-neg32.6%
Simplified32.6%
Taylor expanded in y2 around inf 27.3%
*-commutative27.3%
Simplified27.3%
Final simplification33.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y (* x a)))))
(if (<= x -4.7e-35)
t_1
(if (<= x 3e-240)
(* b (* j (* t y4)))
(if (<= x 5.2e-81)
(* a (* t (* y2 y5)))
(if (<= x 1.6e+42) (* b (* y4 (* t 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 = b * (y * (x * a));
double tmp;
if (x <= -4.7e-35) {
tmp = t_1;
} else if (x <= 3e-240) {
tmp = b * (j * (t * y4));
} else if (x <= 5.2e-81) {
tmp = a * (t * (y2 * y5));
} else if (x <= 1.6e+42) {
tmp = b * (y4 * (t * 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) :: tmp
t_1 = b * (y * (x * a))
if (x <= (-4.7d-35)) then
tmp = t_1
else if (x <= 3d-240) then
tmp = b * (j * (t * y4))
else if (x <= 5.2d-81) then
tmp = a * (t * (y2 * y5))
else if (x <= 1.6d+42) then
tmp = b * (y4 * (t * 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 = b * (y * (x * a));
double tmp;
if (x <= -4.7e-35) {
tmp = t_1;
} else if (x <= 3e-240) {
tmp = b * (j * (t * y4));
} else if (x <= 5.2e-81) {
tmp = a * (t * (y2 * y5));
} else if (x <= 1.6e+42) {
tmp = b * (y4 * (t * 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 = b * (y * (x * a)) tmp = 0 if x <= -4.7e-35: tmp = t_1 elif x <= 3e-240: tmp = b * (j * (t * y4)) elif x <= 5.2e-81: tmp = a * (t * (y2 * y5)) elif x <= 1.6e+42: tmp = b * (y4 * (t * 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(b * Float64(y * Float64(x * a))) tmp = 0.0 if (x <= -4.7e-35) tmp = t_1; elseif (x <= 3e-240) tmp = Float64(b * Float64(j * Float64(t * y4))); elseif (x <= 5.2e-81) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= 1.6e+42) tmp = Float64(b * Float64(y4 * Float64(t * 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 = b * (y * (x * a)); tmp = 0.0; if (x <= -4.7e-35) tmp = t_1; elseif (x <= 3e-240) tmp = b * (j * (t * y4)); elseif (x <= 5.2e-81) tmp = a * (t * (y2 * y5)); elseif (x <= 1.6e+42) tmp = b * (y4 * (t * 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[(b * N[(y * N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -4.7e-35], t$95$1, If[LessEqual[x, 3e-240], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 5.2e-81], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.6e+42], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y \cdot \left(x \cdot a\right)\right)\\
\mathbf{if}\;x \leq -4.7 \cdot 10^{-35}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 3 \cdot 10^{-240}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-81}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 1.6 \cdot 10^{+42}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -4.7e-35 or 1.60000000000000001e42 < x Initial program 21.9%
Taylor expanded in b around inf 41.4%
Taylor expanded in y around inf 44.2%
+-commutative44.2%
mul-1-neg44.2%
unsub-neg44.2%
Simplified44.2%
Taylor expanded in a around inf 41.8%
if -4.7e-35 < x < 2.99999999999999991e-240Initial program 35.3%
Taylor expanded in b around inf 37.4%
Taylor expanded in y4 around inf 29.9%
Taylor expanded in j around inf 23.1%
*-commutative23.1%
Simplified23.1%
if 2.99999999999999991e-240 < x < 5.1999999999999998e-81Initial program 22.4%
Taylor expanded in a around inf 37.0%
+-commutative37.0%
mul-1-neg37.0%
unsub-neg37.0%
*-commutative37.0%
*-commutative37.0%
*-commutative37.0%
mul-1-neg37.0%
*-commutative37.0%
Simplified37.0%
Taylor expanded in t around inf 34.4%
+-commutative34.4%
mul-1-neg34.4%
sub-neg34.4%
Simplified34.4%
Taylor expanded in y2 around inf 29.4%
*-commutative29.4%
Simplified29.4%
if 5.1999999999999998e-81 < x < 1.60000000000000001e42Initial program 26.9%
Taylor expanded in b around inf 40.2%
Taylor expanded in y4 around inf 40.5%
Taylor expanded in j around inf 35.8%
Final simplification34.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y (* x a)))))
(if (<= x -3.2e-35)
t_1
(if (<= x 1.88e-239)
(* (* t y4) (* b j))
(if (<= x 9.6e-80)
(* a (* t (* y2 y5)))
(if (<= x 9.5e+41) (* b (* y4 (* t 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 = b * (y * (x * a));
double tmp;
if (x <= -3.2e-35) {
tmp = t_1;
} else if (x <= 1.88e-239) {
tmp = (t * y4) * (b * j);
} else if (x <= 9.6e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 9.5e+41) {
tmp = b * (y4 * (t * 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) :: tmp
t_1 = b * (y * (x * a))
if (x <= (-3.2d-35)) then
tmp = t_1
else if (x <= 1.88d-239) then
tmp = (t * y4) * (b * j)
else if (x <= 9.6d-80) then
tmp = a * (t * (y2 * y5))
else if (x <= 9.5d+41) then
tmp = b * (y4 * (t * 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 = b * (y * (x * a));
double tmp;
if (x <= -3.2e-35) {
tmp = t_1;
} else if (x <= 1.88e-239) {
tmp = (t * y4) * (b * j);
} else if (x <= 9.6e-80) {
tmp = a * (t * (y2 * y5));
} else if (x <= 9.5e+41) {
tmp = b * (y4 * (t * 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 = b * (y * (x * a)) tmp = 0 if x <= -3.2e-35: tmp = t_1 elif x <= 1.88e-239: tmp = (t * y4) * (b * j) elif x <= 9.6e-80: tmp = a * (t * (y2 * y5)) elif x <= 9.5e+41: tmp = b * (y4 * (t * 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(b * Float64(y * Float64(x * a))) tmp = 0.0 if (x <= -3.2e-35) tmp = t_1; elseif (x <= 1.88e-239) tmp = Float64(Float64(t * y4) * Float64(b * j)); elseif (x <= 9.6e-80) tmp = Float64(a * Float64(t * Float64(y2 * y5))); elseif (x <= 9.5e+41) tmp = Float64(b * Float64(y4 * Float64(t * 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 = b * (y * (x * a)); tmp = 0.0; if (x <= -3.2e-35) tmp = t_1; elseif (x <= 1.88e-239) tmp = (t * y4) * (b * j); elseif (x <= 9.6e-80) tmp = a * (t * (y2 * y5)); elseif (x <= 9.5e+41) tmp = b * (y4 * (t * 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[(b * N[(y * N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -3.2e-35], t$95$1, If[LessEqual[x, 1.88e-239], N[(N[(t * y4), $MachinePrecision] * N[(b * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 9.6e-80], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 9.5e+41], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y \cdot \left(x \cdot a\right)\right)\\
\mathbf{if}\;x \leq -3.2 \cdot 10^{-35}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 1.88 \cdot 10^{-239}:\\
\;\;\;\;\left(t \cdot y4\right) \cdot \left(b \cdot j\right)\\
\mathbf{elif}\;x \leq 9.6 \cdot 10^{-80}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 9.5 \cdot 10^{+41}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -3.1999999999999998e-35 or 9.4999999999999996e41 < x Initial program 21.9%
Taylor expanded in b around inf 41.4%
Taylor expanded in y around inf 44.2%
+-commutative44.2%
mul-1-neg44.2%
unsub-neg44.2%
Simplified44.2%
Taylor expanded in a around inf 41.8%
if -3.1999999999999998e-35 < x < 1.88000000000000005e-239Initial program 35.3%
Taylor expanded in b around inf 37.4%
Taylor expanded in y4 around inf 29.9%
Taylor expanded in j around inf 23.1%
associate-*r*25.6%
*-commutative25.6%
*-commutative25.6%
Simplified25.6%
if 1.88000000000000005e-239 < x < 9.5999999999999996e-80Initial program 22.4%
Taylor expanded in a around inf 37.0%
+-commutative37.0%
mul-1-neg37.0%
unsub-neg37.0%
*-commutative37.0%
*-commutative37.0%
*-commutative37.0%
mul-1-neg37.0%
*-commutative37.0%
Simplified37.0%
Taylor expanded in t around inf 34.4%
+-commutative34.4%
mul-1-neg34.4%
sub-neg34.4%
Simplified34.4%
Taylor expanded in y2 around inf 29.4%
*-commutative29.4%
Simplified29.4%
if 9.5999999999999996e-80 < x < 9.4999999999999996e41Initial program 26.9%
Taylor expanded in b around inf 40.2%
Taylor expanded in y4 around inf 40.5%
Taylor expanded in j around inf 35.8%
Final simplification34.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= t -1.65e+100)
(* b (* j (* t y4)))
(if (<= t -2.9e-40)
(* a (* z (* b (- t))))
(if (<= t 4.1e+93)
(* a (* y (- (* x b) (* y3 y5))))
(* a (* t (- (* y2 y5) (* z 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) {
double tmp;
if (t <= -1.65e+100) {
tmp = b * (j * (t * y4));
} else if (t <= -2.9e-40) {
tmp = a * (z * (b * -t));
} else if (t <= 4.1e+93) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else {
tmp = a * (t * ((y2 * y5) - (z * b)));
}
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 (t <= (-1.65d+100)) then
tmp = b * (j * (t * y4))
else if (t <= (-2.9d-40)) then
tmp = a * (z * (b * -t))
else if (t <= 4.1d+93) then
tmp = a * (y * ((x * b) - (y3 * y5)))
else
tmp = a * (t * ((y2 * y5) - (z * b)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (t <= -1.65e+100) {
tmp = b * (j * (t * y4));
} else if (t <= -2.9e-40) {
tmp = a * (z * (b * -t));
} else if (t <= 4.1e+93) {
tmp = a * (y * ((x * b) - (y3 * y5)));
} else {
tmp = a * (t * ((y2 * y5) - (z * b)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if t <= -1.65e+100: tmp = b * (j * (t * y4)) elif t <= -2.9e-40: tmp = a * (z * (b * -t)) elif t <= 4.1e+93: tmp = a * (y * ((x * b) - (y3 * y5))) else: tmp = a * (t * ((y2 * y5) - (z * b))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (t <= -1.65e+100) tmp = Float64(b * Float64(j * Float64(t * y4))); elseif (t <= -2.9e-40) tmp = Float64(a * Float64(z * Float64(b * Float64(-t)))); elseif (t <= 4.1e+93) tmp = Float64(a * Float64(y * Float64(Float64(x * b) - Float64(y3 * y5)))); else tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); 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 (t <= -1.65e+100) tmp = b * (j * (t * y4)); elseif (t <= -2.9e-40) tmp = a * (z * (b * -t)); elseif (t <= 4.1e+93) tmp = a * (y * ((x * b) - (y3 * y5))); else tmp = a * (t * ((y2 * y5) - (z * b))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[t, -1.65e+100], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.9e-40], N[(a * N[(z * N[(b * (-t)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 4.1e+93], N[(a * N[(y * N[(N[(x * b), $MachinePrecision] - N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;t \leq -1.65 \cdot 10^{+100}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{elif}\;t \leq -2.9 \cdot 10^{-40}:\\
\;\;\;\;a \cdot \left(z \cdot \left(b \cdot \left(-t\right)\right)\right)\\
\mathbf{elif}\;t \leq 4.1 \cdot 10^{+93}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b - y3 \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\end{array}
\end{array}
if t < -1.6500000000000001e100Initial program 15.0%
Taylor expanded in b around inf 36.8%
Taylor expanded in y4 around inf 37.1%
Taylor expanded in j around inf 45.5%
*-commutative45.5%
Simplified45.5%
if -1.6500000000000001e100 < t < -2.8999999999999999e-40Initial program 27.0%
Taylor expanded in a around inf 30.4%
+-commutative30.4%
mul-1-neg30.4%
unsub-neg30.4%
*-commutative30.4%
*-commutative30.4%
*-commutative30.4%
mul-1-neg30.4%
*-commutative30.4%
Simplified30.4%
Taylor expanded in t around inf 44.3%
+-commutative44.3%
mul-1-neg44.3%
sub-neg44.3%
Simplified44.3%
Taylor expanded in y2 around 0 44.7%
associate-*r*44.7%
mul-1-neg44.7%
associate-*r*47.7%
Simplified47.7%
if -2.8999999999999999e-40 < t < 4.1000000000000001e93Initial program 33.5%
Taylor expanded in a around inf 44.9%
+-commutative44.9%
mul-1-neg44.9%
unsub-neg44.9%
*-commutative44.9%
*-commutative44.9%
*-commutative44.9%
mul-1-neg44.9%
*-commutative44.9%
Simplified44.9%
Taylor expanded in y around inf 35.7%
+-commutative35.7%
mul-1-neg35.7%
unsub-neg35.7%
Simplified35.7%
if 4.1000000000000001e93 < t Initial program 13.2%
Taylor expanded in a around inf 39.9%
+-commutative39.9%
mul-1-neg39.9%
unsub-neg39.9%
*-commutative39.9%
*-commutative39.9%
*-commutative39.9%
mul-1-neg39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in t around inf 45.4%
+-commutative45.4%
mul-1-neg45.4%
sub-neg45.4%
Simplified45.4%
Final simplification40.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= z -2.2e+46)
(* a (* t (- (* y2 y5) (* z b))))
(if (<= z 5.2e-121)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= z 5.2e+224)
(* a (* y1 (- (* z y3) (* x y2))))
(* a (* z (* b (- t))))))))
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 (z <= -2.2e+46) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (z <= 5.2e-121) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (z <= 5.2e+224) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = a * (z * (b * -t));
}
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 (z <= (-2.2d+46)) then
tmp = a * (t * ((y2 * y5) - (z * b)))
else if (z <= 5.2d-121) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (z <= 5.2d+224) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else
tmp = a * (z * (b * -t))
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 (z <= -2.2e+46) {
tmp = a * (t * ((y2 * y5) - (z * b)));
} else if (z <= 5.2e-121) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (z <= 5.2e+224) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = a * (z * (b * -t));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if z <= -2.2e+46: tmp = a * (t * ((y2 * y5) - (z * b))) elif z <= 5.2e-121: tmp = a * (x * ((y * b) - (y1 * y2))) elif z <= 5.2e+224: tmp = a * (y1 * ((z * y3) - (x * y2))) else: tmp = a * (z * (b * -t)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (z <= -2.2e+46) tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); elseif (z <= 5.2e-121) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (z <= 5.2e+224) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); else tmp = Float64(a * Float64(z * Float64(b * Float64(-t)))); 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 (z <= -2.2e+46) tmp = a * (t * ((y2 * y5) - (z * b))); elseif (z <= 5.2e-121) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (z <= 5.2e+224) tmp = a * (y1 * ((z * y3) - (x * y2))); else tmp = a * (z * (b * -t)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[z, -2.2e+46], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 5.2e-121], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 5.2e+224], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(z * N[(b * (-t)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -2.2 \cdot 10^{+46}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\mathbf{elif}\;z \leq 5.2 \cdot 10^{-121}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;z \leq 5.2 \cdot 10^{+224}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(z \cdot \left(b \cdot \left(-t\right)\right)\right)\\
\end{array}
\end{array}
if z < -2.2e46Initial program 19.4%
Taylor expanded in a around inf 37.2%
+-commutative37.2%
mul-1-neg37.2%
unsub-neg37.2%
*-commutative37.2%
*-commutative37.2%
*-commutative37.2%
mul-1-neg37.2%
*-commutative37.2%
Simplified37.2%
Taylor expanded in t around inf 39.5%
+-commutative39.5%
mul-1-neg39.5%
sub-neg39.5%
Simplified39.5%
if -2.2e46 < z < 5.19999999999999972e-121Initial program 25.6%
Taylor expanded in a around inf 49.0%
+-commutative49.0%
mul-1-neg49.0%
unsub-neg49.0%
*-commutative49.0%
*-commutative49.0%
*-commutative49.0%
mul-1-neg49.0%
*-commutative49.0%
Simplified49.0%
Taylor expanded in x around inf 43.6%
if 5.19999999999999972e-121 < z < 5.2000000000000001e224Initial program 30.0%
Taylor expanded in a around inf 37.3%
+-commutative37.3%
mul-1-neg37.3%
unsub-neg37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
mul-1-neg37.3%
*-commutative37.3%
Simplified37.3%
Taylor expanded in y1 around inf 36.6%
if 5.2000000000000001e224 < z Initial program 36.8%
Taylor expanded in a around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
unsub-neg37.5%
*-commutative37.5%
*-commutative37.5%
*-commutative37.5%
mul-1-neg37.5%
*-commutative37.5%
Simplified37.5%
Taylor expanded in t around inf 52.9%
+-commutative52.9%
mul-1-neg52.9%
sub-neg52.9%
Simplified52.9%
Taylor expanded in y2 around 0 53.0%
associate-*r*53.0%
mul-1-neg53.0%
associate-*r*53.0%
Simplified53.0%
Final simplification41.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= z -2.4e+149)
(* b (* a (- (* x y) (* z t))))
(if (<= z 3e-123)
(* a (* x (- (* y b) (* y1 y2))))
(if (<= z 7.6e+226)
(* a (* y1 (- (* z y3) (* x y2))))
(* a (* z (* b (- t))))))))
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 (z <= -2.4e+149) {
tmp = b * (a * ((x * y) - (z * t)));
} else if (z <= 3e-123) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (z <= 7.6e+226) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = a * (z * (b * -t));
}
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 (z <= (-2.4d+149)) then
tmp = b * (a * ((x * y) - (z * t)))
else if (z <= 3d-123) then
tmp = a * (x * ((y * b) - (y1 * y2)))
else if (z <= 7.6d+226) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else
tmp = a * (z * (b * -t))
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 (z <= -2.4e+149) {
tmp = b * (a * ((x * y) - (z * t)));
} else if (z <= 3e-123) {
tmp = a * (x * ((y * b) - (y1 * y2)));
} else if (z <= 7.6e+226) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else {
tmp = a * (z * (b * -t));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if z <= -2.4e+149: tmp = b * (a * ((x * y) - (z * t))) elif z <= 3e-123: tmp = a * (x * ((y * b) - (y1 * y2))) elif z <= 7.6e+226: tmp = a * (y1 * ((z * y3) - (x * y2))) else: tmp = a * (z * (b * -t)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (z <= -2.4e+149) tmp = Float64(b * Float64(a * Float64(Float64(x * y) - Float64(z * t)))); elseif (z <= 3e-123) tmp = Float64(a * Float64(x * Float64(Float64(y * b) - Float64(y1 * y2)))); elseif (z <= 7.6e+226) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); else tmp = Float64(a * Float64(z * Float64(b * Float64(-t)))); 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 (z <= -2.4e+149) tmp = b * (a * ((x * y) - (z * t))); elseif (z <= 3e-123) tmp = a * (x * ((y * b) - (y1 * y2))); elseif (z <= 7.6e+226) tmp = a * (y1 * ((z * y3) - (x * y2))); else tmp = a * (z * (b * -t)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[z, -2.4e+149], N[(b * N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 3e-123], N[(a * N[(x * N[(N[(y * b), $MachinePrecision] - N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 7.6e+226], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(z * N[(b * (-t)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -2.4 \cdot 10^{+149}:\\
\;\;\;\;b \cdot \left(a \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{elif}\;z \leq 3 \cdot 10^{-123}:\\
\;\;\;\;a \cdot \left(x \cdot \left(y \cdot b - y1 \cdot y2\right)\right)\\
\mathbf{elif}\;z \leq 7.6 \cdot 10^{+226}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(z \cdot \left(b \cdot \left(-t\right)\right)\right)\\
\end{array}
\end{array}
if z < -2.40000000000000012e149Initial program 20.0%
Taylor expanded in b around inf 38.2%
Taylor expanded in a around inf 49.5%
if -2.40000000000000012e149 < z < 2.99999999999999984e-123Initial program 24.4%
Taylor expanded in a around inf 46.1%
+-commutative46.1%
mul-1-neg46.1%
unsub-neg46.1%
*-commutative46.1%
*-commutative46.1%
*-commutative46.1%
mul-1-neg46.1%
*-commutative46.1%
Simplified46.1%
Taylor expanded in x around inf 40.3%
if 2.99999999999999984e-123 < z < 7.59999999999999965e226Initial program 30.0%
Taylor expanded in a around inf 37.3%
+-commutative37.3%
mul-1-neg37.3%
unsub-neg37.3%
*-commutative37.3%
*-commutative37.3%
*-commutative37.3%
mul-1-neg37.3%
*-commutative37.3%
Simplified37.3%
Taylor expanded in y1 around inf 36.6%
if 7.59999999999999965e226 < z Initial program 36.8%
Taylor expanded in a around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
unsub-neg37.5%
*-commutative37.5%
*-commutative37.5%
*-commutative37.5%
mul-1-neg37.5%
*-commutative37.5%
Simplified37.5%
Taylor expanded in t around inf 52.9%
+-commutative52.9%
mul-1-neg52.9%
sub-neg52.9%
Simplified52.9%
Taylor expanded in y2 around 0 53.0%
associate-*r*53.0%
mul-1-neg53.0%
associate-*r*53.0%
Simplified53.0%
Final simplification41.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= x -8e-86) (not (<= x 2.15e-35))) (* b (* y (* x a))) (* a (* t (- (* y2 y5) (* z 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) {
double tmp;
if ((x <= -8e-86) || !(x <= 2.15e-35)) {
tmp = b * (y * (x * a));
} else {
tmp = a * (t * ((y2 * y5) - (z * b)));
}
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 ((x <= (-8d-86)) .or. (.not. (x <= 2.15d-35))) then
tmp = b * (y * (x * a))
else
tmp = a * (t * ((y2 * y5) - (z * b)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if ((x <= -8e-86) || !(x <= 2.15e-35)) {
tmp = b * (y * (x * a));
} else {
tmp = a * (t * ((y2 * y5) - (z * b)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if (x <= -8e-86) or not (x <= 2.15e-35): tmp = b * (y * (x * a)) else: tmp = a * (t * ((y2 * y5) - (z * b))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((x <= -8e-86) || !(x <= 2.15e-35)) tmp = Float64(b * Float64(y * Float64(x * a))); else tmp = Float64(a * Float64(t * Float64(Float64(y2 * y5) - Float64(z * b)))); 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 ((x <= -8e-86) || ~((x <= 2.15e-35))) tmp = b * (y * (x * a)); else tmp = a * (t * ((y2 * y5) - (z * b))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[x, -8e-86], N[Not[LessEqual[x, 2.15e-35]], $MachinePrecision]], N[(b * N[(y * N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(t * N[(N[(y2 * y5), $MachinePrecision] - N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -8 \cdot 10^{-86} \lor \neg \left(x \leq 2.15 \cdot 10^{-35}\right):\\
\;\;\;\;b \cdot \left(y \cdot \left(x \cdot a\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5 - z \cdot b\right)\right)\\
\end{array}
\end{array}
if x < -8.00000000000000068e-86 or 2.1500000000000001e-35 < x Initial program 21.9%
Taylor expanded in b around inf 38.9%
Taylor expanded in y around inf 41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
Simplified41.5%
Taylor expanded in a around inf 38.7%
if -8.00000000000000068e-86 < x < 2.1500000000000001e-35Initial program 31.5%
Taylor expanded in a around inf 41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
mul-1-neg41.5%
*-commutative41.5%
Simplified41.5%
Taylor expanded in t around inf 32.7%
+-commutative32.7%
mul-1-neg32.7%
sub-neg32.7%
Simplified32.7%
Final simplification35.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= x -5.2e-87) (not (<= x 1.42e-74))) (* a (* (* x y) b)) (* 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) {
double tmp;
if ((x <= -5.2e-87) || !(x <= 1.42e-74)) {
tmp = a * ((x * y) * b);
} else {
tmp = a * (t * (y2 * 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) :: tmp
if ((x <= (-5.2d-87)) .or. (.not. (x <= 1.42d-74))) then
tmp = a * ((x * y) * b)
else
tmp = a * (t * (y2 * 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 tmp;
if ((x <= -5.2e-87) || !(x <= 1.42e-74)) {
tmp = a * ((x * y) * b);
} else {
tmp = a * (t * (y2 * y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if (x <= -5.2e-87) or not (x <= 1.42e-74): tmp = a * ((x * y) * b) else: tmp = a * (t * (y2 * y5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((x <= -5.2e-87) || !(x <= 1.42e-74)) tmp = Float64(a * Float64(Float64(x * y) * b)); else tmp = Float64(a * Float64(t * Float64(y2 * 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) tmp = 0.0; if ((x <= -5.2e-87) || ~((x <= 1.42e-74))) tmp = a * ((x * y) * b); else tmp = a * (t * (y2 * y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[x, -5.2e-87], N[Not[LessEqual[x, 1.42e-74]], $MachinePrecision]], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -5.2 \cdot 10^{-87} \lor \neg \left(x \leq 1.42 \cdot 10^{-74}\right):\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\
\end{array}
\end{array}
if x < -5.20000000000000005e-87 or 1.4200000000000001e-74 < x Initial program 23.1%
Taylor expanded in b around inf 39.3%
Taylor expanded in y around inf 41.0%
+-commutative41.0%
mul-1-neg41.0%
unsub-neg41.0%
Simplified41.0%
Taylor expanded in a around inf 33.1%
if -5.20000000000000005e-87 < x < 1.4200000000000001e-74Initial program 30.7%
Taylor expanded in a around inf 41.6%
+-commutative41.6%
mul-1-neg41.6%
unsub-neg41.6%
*-commutative41.6%
*-commutative41.6%
*-commutative41.6%
mul-1-neg41.6%
*-commutative41.6%
Simplified41.6%
Taylor expanded in t around inf 34.5%
+-commutative34.5%
mul-1-neg34.5%
sub-neg34.5%
Simplified34.5%
Taylor expanded in y2 around inf 21.1%
*-commutative21.1%
Simplified21.1%
Final simplification28.0%
(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 26.3%
Taylor expanded in b around inf 37.5%
Taylor expanded in y around inf 32.5%
+-commutative32.5%
mul-1-neg32.5%
unsub-neg32.5%
Simplified32.5%
Taylor expanded in a around inf 21.1%
Final simplification21.1%
(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 2024096
(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)))))