
(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 42 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 (- (* y1 y4) (* y0 y5)))
(t_2 (* y2 t_1))
(t_3 (- (* t j) (* y k)))
(t_4 (- (* a b) (* c i)))
(t_5 (* z (- (* y3 (- (* a y1) (* c y0))) (* t t_4))))
(t_6 (- (* j y3) (* k y2)))
(t_7 (- (* y y3) (* t y2)))
(t_8 (* y5 (- (- (* y0 t_6) (* i t_3)) (* a t_7))))
(t_9 (- (* k y2) (* j y3)))
(t_10 (- (* a y5) (* c y4))))
(if (<= y5 -7.2e+202)
t_8
(if (<= y5 -6.4e+168)
(* k t_2)
(if (<= y5 -2.2e+95)
(+
(* t_9 t_1)
(*
t
(+
(+ (* z (- (* c i) (* a b))) (* j (- (* b y4) (* i y5))))
(* y2 t_10))))
(if (<= y5 -1.18e+64)
(*
y0
(-
(+ (* y5 t_6) (* c (- (* x y2) (* z y3))))
(* b (- (* x j) (* z k)))))
(if (<= y5 -3.05e-55)
(* y2 (+ (+ (* k t_1) (* x (- (* c y0) (* a y1)))) (* t t_10)))
(if (<= y5 -2.85e-92)
t_5
(if (<= y5 -9.2e-228)
(*
k
(+
(+ t_2 (* y (- (* i y5) (* b y4))))
(* z (- (* b y0) (* i y1)))))
(if (<= y5 7e-301)
t_5
(if (<= y5 2e-90)
(* y4 (+ (+ (* b t_3) (* y1 t_9)) (* c t_7)))
(if (<= y5 1e+118)
(* y (+ (* x t_4) (* y3 (- (* c y4) (* a y5)))))
t_8))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y1 * y4) - (y0 * y5);
double t_2 = y2 * t_1;
double t_3 = (t * j) - (y * k);
double t_4 = (a * b) - (c * i);
double t_5 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_4));
double t_6 = (j * y3) - (k * y2);
double t_7 = (y * y3) - (t * y2);
double t_8 = y5 * (((y0 * t_6) - (i * t_3)) - (a * t_7));
double t_9 = (k * y2) - (j * y3);
double t_10 = (a * y5) - (c * y4);
double tmp;
if (y5 <= -7.2e+202) {
tmp = t_8;
} else if (y5 <= -6.4e+168) {
tmp = k * t_2;
} else if (y5 <= -2.2e+95) {
tmp = (t_9 * t_1) + (t * (((z * ((c * i) - (a * b))) + (j * ((b * y4) - (i * y5)))) + (y2 * t_10)));
} else if (y5 <= -1.18e+64) {
tmp = y0 * (((y5 * t_6) + (c * ((x * y2) - (z * y3)))) - (b * ((x * j) - (z * k))));
} else if (y5 <= -3.05e-55) {
tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_10));
} else if (y5 <= -2.85e-92) {
tmp = t_5;
} else if (y5 <= -9.2e-228) {
tmp = k * ((t_2 + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (y5 <= 7e-301) {
tmp = t_5;
} else if (y5 <= 2e-90) {
tmp = y4 * (((b * t_3) + (y1 * t_9)) + (c * t_7));
} else if (y5 <= 1e+118) {
tmp = y * ((x * t_4) + (y3 * ((c * y4) - (a * y5))));
} else {
tmp = t_8;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_10
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_1 = (y1 * y4) - (y0 * y5)
t_2 = y2 * t_1
t_3 = (t * j) - (y * k)
t_4 = (a * b) - (c * i)
t_5 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_4))
t_6 = (j * y3) - (k * y2)
t_7 = (y * y3) - (t * y2)
t_8 = y5 * (((y0 * t_6) - (i * t_3)) - (a * t_7))
t_9 = (k * y2) - (j * y3)
t_10 = (a * y5) - (c * y4)
if (y5 <= (-7.2d+202)) then
tmp = t_8
else if (y5 <= (-6.4d+168)) then
tmp = k * t_2
else if (y5 <= (-2.2d+95)) then
tmp = (t_9 * t_1) + (t * (((z * ((c * i) - (a * b))) + (j * ((b * y4) - (i * y5)))) + (y2 * t_10)))
else if (y5 <= (-1.18d+64)) then
tmp = y0 * (((y5 * t_6) + (c * ((x * y2) - (z * y3)))) - (b * ((x * j) - (z * k))))
else if (y5 <= (-3.05d-55)) then
tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_10))
else if (y5 <= (-2.85d-92)) then
tmp = t_5
else if (y5 <= (-9.2d-228)) then
tmp = k * ((t_2 + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
else if (y5 <= 7d-301) then
tmp = t_5
else if (y5 <= 2d-90) then
tmp = y4 * (((b * t_3) + (y1 * t_9)) + (c * t_7))
else if (y5 <= 1d+118) then
tmp = y * ((x * t_4) + (y3 * ((c * y4) - (a * y5))))
else
tmp = t_8
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y1 * y4) - (y0 * y5);
double t_2 = y2 * t_1;
double t_3 = (t * j) - (y * k);
double t_4 = (a * b) - (c * i);
double t_5 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_4));
double t_6 = (j * y3) - (k * y2);
double t_7 = (y * y3) - (t * y2);
double t_8 = y5 * (((y0 * t_6) - (i * t_3)) - (a * t_7));
double t_9 = (k * y2) - (j * y3);
double t_10 = (a * y5) - (c * y4);
double tmp;
if (y5 <= -7.2e+202) {
tmp = t_8;
} else if (y5 <= -6.4e+168) {
tmp = k * t_2;
} else if (y5 <= -2.2e+95) {
tmp = (t_9 * t_1) + (t * (((z * ((c * i) - (a * b))) + (j * ((b * y4) - (i * y5)))) + (y2 * t_10)));
} else if (y5 <= -1.18e+64) {
tmp = y0 * (((y5 * t_6) + (c * ((x * y2) - (z * y3)))) - (b * ((x * j) - (z * k))));
} else if (y5 <= -3.05e-55) {
tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_10));
} else if (y5 <= -2.85e-92) {
tmp = t_5;
} else if (y5 <= -9.2e-228) {
tmp = k * ((t_2 + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (y5 <= 7e-301) {
tmp = t_5;
} else if (y5 <= 2e-90) {
tmp = y4 * (((b * t_3) + (y1 * t_9)) + (c * t_7));
} else if (y5 <= 1e+118) {
tmp = y * ((x * t_4) + (y3 * ((c * y4) - (a * y5))));
} else {
tmp = t_8;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (y1 * y4) - (y0 * y5) t_2 = y2 * t_1 t_3 = (t * j) - (y * k) t_4 = (a * b) - (c * i) t_5 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_4)) t_6 = (j * y3) - (k * y2) t_7 = (y * y3) - (t * y2) t_8 = y5 * (((y0 * t_6) - (i * t_3)) - (a * t_7)) t_9 = (k * y2) - (j * y3) t_10 = (a * y5) - (c * y4) tmp = 0 if y5 <= -7.2e+202: tmp = t_8 elif y5 <= -6.4e+168: tmp = k * t_2 elif y5 <= -2.2e+95: tmp = (t_9 * t_1) + (t * (((z * ((c * i) - (a * b))) + (j * ((b * y4) - (i * y5)))) + (y2 * t_10))) elif y5 <= -1.18e+64: tmp = y0 * (((y5 * t_6) + (c * ((x * y2) - (z * y3)))) - (b * ((x * j) - (z * k)))) elif y5 <= -3.05e-55: tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_10)) elif y5 <= -2.85e-92: tmp = t_5 elif y5 <= -9.2e-228: tmp = k * ((t_2 + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))) elif y5 <= 7e-301: tmp = t_5 elif y5 <= 2e-90: tmp = y4 * (((b * t_3) + (y1 * t_9)) + (c * t_7)) elif y5 <= 1e+118: tmp = y * ((x * t_4) + (y3 * ((c * y4) - (a * y5)))) else: tmp = t_8 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y1 * y4) - Float64(y0 * y5)) t_2 = Float64(y2 * t_1) t_3 = Float64(Float64(t * j) - Float64(y * k)) t_4 = Float64(Float64(a * b) - Float64(c * i)) t_5 = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * t_4))) t_6 = Float64(Float64(j * y3) - Float64(k * y2)) t_7 = Float64(Float64(y * y3) - Float64(t * y2)) t_8 = Float64(y5 * Float64(Float64(Float64(y0 * t_6) - Float64(i * t_3)) - Float64(a * t_7))) t_9 = Float64(Float64(k * y2) - Float64(j * y3)) t_10 = Float64(Float64(a * y5) - Float64(c * y4)) tmp = 0.0 if (y5 <= -7.2e+202) tmp = t_8; elseif (y5 <= -6.4e+168) tmp = Float64(k * t_2); elseif (y5 <= -2.2e+95) tmp = Float64(Float64(t_9 * t_1) + Float64(t * Float64(Float64(Float64(z * Float64(Float64(c * i) - Float64(a * b))) + Float64(j * Float64(Float64(b * y4) - Float64(i * y5)))) + Float64(y2 * t_10)))); elseif (y5 <= -1.18e+64) tmp = Float64(y0 * Float64(Float64(Float64(y5 * t_6) + Float64(c * Float64(Float64(x * y2) - Float64(z * y3)))) - Float64(b * Float64(Float64(x * j) - Float64(z * k))))); elseif (y5 <= -3.05e-55) tmp = Float64(y2 * Float64(Float64(Float64(k * t_1) + Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(t * t_10))); elseif (y5 <= -2.85e-92) tmp = t_5; elseif (y5 <= -9.2e-228) tmp = Float64(k * Float64(Float64(t_2 + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1))))); elseif (y5 <= 7e-301) tmp = t_5; elseif (y5 <= 2e-90) tmp = Float64(y4 * Float64(Float64(Float64(b * t_3) + Float64(y1 * t_9)) + Float64(c * t_7))); elseif (y5 <= 1e+118) tmp = Float64(y * Float64(Float64(x * t_4) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))); else tmp = t_8; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (y1 * y4) - (y0 * y5); t_2 = y2 * t_1; t_3 = (t * j) - (y * k); t_4 = (a * b) - (c * i); t_5 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_4)); t_6 = (j * y3) - (k * y2); t_7 = (y * y3) - (t * y2); t_8 = y5 * (((y0 * t_6) - (i * t_3)) - (a * t_7)); t_9 = (k * y2) - (j * y3); t_10 = (a * y5) - (c * y4); tmp = 0.0; if (y5 <= -7.2e+202) tmp = t_8; elseif (y5 <= -6.4e+168) tmp = k * t_2; elseif (y5 <= -2.2e+95) tmp = (t_9 * t_1) + (t * (((z * ((c * i) - (a * b))) + (j * ((b * y4) - (i * y5)))) + (y2 * t_10))); elseif (y5 <= -1.18e+64) tmp = y0 * (((y5 * t_6) + (c * ((x * y2) - (z * y3)))) - (b * ((x * j) - (z * k)))); elseif (y5 <= -3.05e-55) tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_10)); elseif (y5 <= -2.85e-92) tmp = t_5; elseif (y5 <= -9.2e-228) tmp = k * ((t_2 + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))); elseif (y5 <= 7e-301) tmp = t_5; elseif (y5 <= 2e-90) tmp = y4 * (((b * t_3) + (y1 * t_9)) + (c * t_7)); elseif (y5 <= 1e+118) tmp = y * ((x * t_4) + (y3 * ((c * y4) - (a * y5)))); else tmp = t_8; 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[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y2 * t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(y5 * N[(N[(N[(y0 * t$95$6), $MachinePrecision] - N[(i * t$95$3), $MachinePrecision]), $MachinePrecision] - N[(a * t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$10 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -7.2e+202], t$95$8, If[LessEqual[y5, -6.4e+168], N[(k * t$95$2), $MachinePrecision], If[LessEqual[y5, -2.2e+95], N[(N[(t$95$9 * t$95$1), $MachinePrecision] + N[(t * N[(N[(N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$10), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.18e+64], N[(y0 * N[(N[(N[(y5 * t$95$6), $MachinePrecision] + N[(c * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(b * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -3.05e-55], N[(y2 * N[(N[(N[(k * t$95$1), $MachinePrecision] + N[(x * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$10), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -2.85e-92], t$95$5, If[LessEqual[y5, -9.2e-228], N[(k * N[(N[(t$95$2 + N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 7e-301], t$95$5, If[LessEqual[y5, 2e-90], N[(y4 * N[(N[(N[(b * t$95$3), $MachinePrecision] + N[(y1 * t$95$9), $MachinePrecision]), $MachinePrecision] + N[(c * t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1e+118], N[(y * N[(N[(x * t$95$4), $MachinePrecision] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$8]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y1 \cdot y4 - y0 \cdot y5\\
t_2 := y2 \cdot t\_1\\
t_3 := t \cdot j - y \cdot k\\
t_4 := a \cdot b - c \cdot i\\
t_5 := z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot t\_4\right)\\
t_6 := j \cdot y3 - k \cdot y2\\
t_7 := y \cdot y3 - t \cdot y2\\
t_8 := y5 \cdot \left(\left(y0 \cdot t\_6 - i \cdot t\_3\right) - a \cdot t\_7\right)\\
t_9 := k \cdot y2 - j \cdot y3\\
t_10 := a \cdot y5 - c \cdot y4\\
\mathbf{if}\;y5 \leq -7.2 \cdot 10^{+202}:\\
\;\;\;\;t\_8\\
\mathbf{elif}\;y5 \leq -6.4 \cdot 10^{+168}:\\
\;\;\;\;k \cdot t\_2\\
\mathbf{elif}\;y5 \leq -2.2 \cdot 10^{+95}:\\
\;\;\;\;t\_9 \cdot t\_1 + t \cdot \left(\left(z \cdot \left(c \cdot i - a \cdot b\right) + j \cdot \left(b \cdot y4 - i \cdot y5\right)\right) + y2 \cdot t\_10\right)\\
\mathbf{elif}\;y5 \leq -1.18 \cdot 10^{+64}:\\
\;\;\;\;y0 \cdot \left(\left(y5 \cdot t\_6 + c \cdot \left(x \cdot y2 - z \cdot y3\right)\right) - b \cdot \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{elif}\;y5 \leq -3.05 \cdot 10^{-55}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot t\_1 + x \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + t \cdot t\_10\right)\\
\mathbf{elif}\;y5 \leq -2.85 \cdot 10^{-92}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq -9.2 \cdot 10^{-228}:\\
\;\;\;\;k \cdot \left(\left(t\_2 + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y5 \leq 7 \cdot 10^{-301}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq 2 \cdot 10^{-90}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_3 + y1 \cdot t\_9\right) + c \cdot t\_7\right)\\
\mathbf{elif}\;y5 \leq 10^{+118}:\\
\;\;\;\;y \cdot \left(x \cdot t\_4 + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_8\\
\end{array}
\end{array}
if y5 < -7.20000000000000016e202 or 9.99999999999999967e117 < y5 Initial program 18.5%
Taylor expanded in y5 around -inf 61.7%
if -7.20000000000000016e202 < y5 < -6.4000000000000002e168Initial program 16.7%
Taylor expanded in b around inf 58.3%
Taylor expanded in y2 around inf 75.2%
if -6.4000000000000002e168 < y5 < -2.1999999999999999e95Initial program 46.6%
Taylor expanded in t around inf 70.0%
if -2.1999999999999999e95 < y5 < -1.18000000000000006e64Initial program 28.6%
Taylor expanded in y0 around inf 71.8%
if -1.18000000000000006e64 < y5 < -3.0500000000000001e-55Initial program 46.3%
Taylor expanded in y2 around inf 61.7%
if -3.0500000000000001e-55 < y5 < -2.85000000000000004e-92 or -9.1999999999999995e-228 < y5 < 6.99999999999999984e-301Initial program 47.9%
Taylor expanded in k around 0 35.1%
Taylor expanded in z around -inf 80.3%
if -2.85000000000000004e-92 < y5 < -9.1999999999999995e-228Initial program 37.0%
Taylor expanded in k around inf 66.6%
if 6.99999999999999984e-301 < y5 < 1.99999999999999999e-90Initial program 31.6%
Taylor expanded in y4 around inf 60.9%
if 1.99999999999999999e-90 < y5 < 9.99999999999999967e117Initial program 27.6%
Taylor expanded in k around 0 22.2%
Taylor expanded in y around inf 57.1%
mul-1-neg57.1%
Simplified57.1%
Final simplification65.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(+
(+
(+
(+
(-
(* (- (* a b) (* c i)) (- (* x y) (* z t)))
(* (- (* b y0) (* i y1)) (- (* x j) (* z k))))
(* (- (* x y2) (* z y3)) (- (* c y0) (* a y1))))
(* (- (* t j) (* y k)) (- (* b y4) (* i y5))))
(* (- (* t y2) (* y y3)) (- (* a y5) (* c y4))))
(* (- (* k y2) (* j y3)) (- (* y1 y4) (* y0 y5))))))
(if (<= t_1 INFINITY)
t_1
(* j (+ (* y3 (- (* y0 y5) (* y1 y4))) (* b (- (* t y4) (* x y0))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) - (((b * y0) - (i * y1)) * ((x * j) - (z * k)))) + (((x * y2) - (z * y3)) * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (((t * y2) - (y * y3)) * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
double tmp;
if (t_1 <= ((double) INFINITY)) {
tmp = t_1;
} else {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) - (((b * y0) - (i * y1)) * ((x * j) - (z * k)))) + (((x * y2) - (z * y3)) * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (((t * y2) - (y * y3)) * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
double tmp;
if (t_1 <= Double.POSITIVE_INFINITY) {
tmp = t_1;
} else {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) - (((b * y0) - (i * y1)) * ((x * j) - (z * k)))) + (((x * y2) - (z * y3)) * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (((t * y2) - (y * y3)) * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5))) tmp = 0 if t_1 <= math.inf: tmp = t_1 else: tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(a * b) - Float64(c * i)) * Float64(Float64(x * y) - Float64(z * t))) - Float64(Float64(Float64(b * y0) - Float64(i * y1)) * Float64(Float64(x * j) - Float64(z * k)))) + 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(Float64(Float64(t * y2) - Float64(y * y3)) * Float64(Float64(a * y5) - Float64(c * y4)))) + Float64(Float64(Float64(k * y2) - Float64(j * y3)) * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) tmp = 0.0 if (t_1 <= Inf) tmp = t_1; else tmp = Float64(j * Float64(Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4))) + Float64(b * Float64(Float64(t * y4) - Float64(x * y0))))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) - (((b * y0) - (i * y1)) * ((x * j) - (z * k)))) + (((x * y2) - (z * y3)) * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (((t * y2) - (y * y3)) * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5))); tmp = 0.0; if (t_1 <= Inf) tmp = t_1; else tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(N[(N[(N[(N[(N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision] * N[(N[(x * j), $MachinePrecision] - N[(z * k), $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[(N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, Infinity], t$95$1, N[(j * N[(N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(\left(\left(\left(\left(a \cdot b - c \cdot i\right) \cdot \left(x \cdot y - z \cdot t\right) - \left(b \cdot y0 - i \cdot y1\right) \cdot \left(x \cdot j - z \cdot k\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) + \left(t \cdot y2 - y \cdot y3\right) \cdot \left(a \cdot y5 - c \cdot y4\right)\right) + \left(k \cdot y2 - j \cdot y3\right) \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\\
\mathbf{if}\;t\_1 \leq \infty:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) + b \cdot \left(t \cdot y4 - x \cdot y0\right)\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 93.4%
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 b around inf 36.0%
Taylor expanded in j around inf 44.1%
Final simplification61.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* a b) (* c i)))
(t_2 (* y (+ (* x t_1) (* y3 (- (* c y4) (* a y5))))))
(t_3 (* z (- (* y3 (- (* a y1) (* c y0))) (* t t_1)))))
(if (<= k -2.25e+70)
(* y2 (* k (- (* y1 y4) (* y0 y5))))
(if (<= k -1.18e+28)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= k -2.32e-70)
(* j (* y3 (- (* y0 y5) (* y1 y4))))
(if (<= k -3.3e-218)
t_3
(if (<= k -2.6e-269)
(* i (* x (- (* j y1) (* y c))))
(if (<= k 2.05e-299)
t_3
(if (<= k 1.32e-222)
t_2
(if (<= k 43000000000000.0)
t_3
(if (<= k 1.8e+76)
t_2
(if (<= k 5.8e+131)
t_3
(if (<= k 6.4e+162)
(* y2 (* y4 (- (* k y1) (* t c))))
(if (<= k 2.75e+219)
(*
y5
(-
(* y0 (- (* j y3) (* k y2)))
(* i (- (* t j) (* y k)))))
(* k (* z (- (* b y0) (* i y1))))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (a * b) - (c * i);
double t_2 = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))));
double t_3 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1));
double tmp;
if (k <= -2.25e+70) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (k <= -1.18e+28) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (k <= -2.32e-70) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (k <= -3.3e-218) {
tmp = t_3;
} else if (k <= -2.6e-269) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (k <= 2.05e-299) {
tmp = t_3;
} else if (k <= 1.32e-222) {
tmp = t_2;
} else if (k <= 43000000000000.0) {
tmp = t_3;
} else if (k <= 1.8e+76) {
tmp = t_2;
} else if (k <= 5.8e+131) {
tmp = t_3;
} else if (k <= 6.4e+162) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (k <= 2.75e+219) {
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))));
} else {
tmp = k * (z * ((b * y0) - (i * y1)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = (a * b) - (c * i)
t_2 = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))))
t_3 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1))
if (k <= (-2.25d+70)) then
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)))
else if (k <= (-1.18d+28)) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (k <= (-2.32d-70)) then
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)))
else if (k <= (-3.3d-218)) then
tmp = t_3
else if (k <= (-2.6d-269)) then
tmp = i * (x * ((j * y1) - (y * c)))
else if (k <= 2.05d-299) then
tmp = t_3
else if (k <= 1.32d-222) then
tmp = t_2
else if (k <= 43000000000000.0d0) then
tmp = t_3
else if (k <= 1.8d+76) then
tmp = t_2
else if (k <= 5.8d+131) then
tmp = t_3
else if (k <= 6.4d+162) then
tmp = y2 * (y4 * ((k * y1) - (t * c)))
else if (k <= 2.75d+219) then
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))))
else
tmp = k * (z * ((b * y0) - (i * y1)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (a * b) - (c * i);
double t_2 = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))));
double t_3 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1));
double tmp;
if (k <= -2.25e+70) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (k <= -1.18e+28) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (k <= -2.32e-70) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (k <= -3.3e-218) {
tmp = t_3;
} else if (k <= -2.6e-269) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (k <= 2.05e-299) {
tmp = t_3;
} else if (k <= 1.32e-222) {
tmp = t_2;
} else if (k <= 43000000000000.0) {
tmp = t_3;
} else if (k <= 1.8e+76) {
tmp = t_2;
} else if (k <= 5.8e+131) {
tmp = t_3;
} else if (k <= 6.4e+162) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (k <= 2.75e+219) {
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))));
} else {
tmp = k * (z * ((b * y0) - (i * y1)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (a * b) - (c * i) t_2 = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5)))) t_3 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1)) tmp = 0 if k <= -2.25e+70: tmp = y2 * (k * ((y1 * y4) - (y0 * y5))) elif k <= -1.18e+28: tmp = c * (y4 * ((y * y3) - (t * y2))) elif k <= -2.32e-70: tmp = j * (y3 * ((y0 * y5) - (y1 * y4))) elif k <= -3.3e-218: tmp = t_3 elif k <= -2.6e-269: tmp = i * (x * ((j * y1) - (y * c))) elif k <= 2.05e-299: tmp = t_3 elif k <= 1.32e-222: tmp = t_2 elif k <= 43000000000000.0: tmp = t_3 elif k <= 1.8e+76: tmp = t_2 elif k <= 5.8e+131: tmp = t_3 elif k <= 6.4e+162: tmp = y2 * (y4 * ((k * y1) - (t * c))) elif k <= 2.75e+219: tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k)))) else: tmp = k * (z * ((b * y0) - (i * y1))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(a * b) - Float64(c * i)) t_2 = Float64(y * Float64(Float64(x * t_1) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))) t_3 = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * t_1))) tmp = 0.0 if (k <= -2.25e+70) tmp = Float64(y2 * Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (k <= -1.18e+28) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (k <= -2.32e-70) tmp = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))); elseif (k <= -3.3e-218) tmp = t_3; elseif (k <= -2.6e-269) tmp = Float64(i * Float64(x * Float64(Float64(j * y1) - Float64(y * c)))); elseif (k <= 2.05e-299) tmp = t_3; elseif (k <= 1.32e-222) tmp = t_2; elseif (k <= 43000000000000.0) tmp = t_3; elseif (k <= 1.8e+76) tmp = t_2; elseif (k <= 5.8e+131) tmp = t_3; elseif (k <= 6.4e+162) tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); elseif (k <= 2.75e+219) tmp = Float64(y5 * Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * Float64(Float64(t * j) - Float64(y * k))))); else tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (a * b) - (c * i); t_2 = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5)))); t_3 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1)); tmp = 0.0; if (k <= -2.25e+70) tmp = y2 * (k * ((y1 * y4) - (y0 * y5))); elseif (k <= -1.18e+28) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (k <= -2.32e-70) tmp = j * (y3 * ((y0 * y5) - (y1 * y4))); elseif (k <= -3.3e-218) tmp = t_3; elseif (k <= -2.6e-269) tmp = i * (x * ((j * y1) - (y * c))); elseif (k <= 2.05e-299) tmp = t_3; elseif (k <= 1.32e-222) tmp = t_2; elseif (k <= 43000000000000.0) tmp = t_3; elseif (k <= 1.8e+76) tmp = t_2; elseif (k <= 5.8e+131) tmp = t_3; elseif (k <= 6.4e+162) tmp = y2 * (y4 * ((k * y1) - (t * c))); elseif (k <= 2.75e+219) tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k)))); else tmp = k * (z * ((b * y0) - (i * y1))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y * N[(N[(x * t$95$1), $MachinePrecision] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[k, -2.25e+70], N[(y2 * N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, -1.18e+28], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, -2.32e-70], N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, -3.3e-218], t$95$3, If[LessEqual[k, -2.6e-269], N[(i * N[(x * N[(N[(j * y1), $MachinePrecision] - N[(y * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 2.05e-299], t$95$3, If[LessEqual[k, 1.32e-222], t$95$2, If[LessEqual[k, 43000000000000.0], t$95$3, If[LessEqual[k, 1.8e+76], t$95$2, If[LessEqual[k, 5.8e+131], t$95$3, If[LessEqual[k, 6.4e+162], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 2.75e+219], N[(y5 * N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot b - c \cdot i\\
t_2 := y \cdot \left(x \cdot t\_1 + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
t_3 := z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot t\_1\right)\\
\mathbf{if}\;k \leq -2.25 \cdot 10^{+70}:\\
\;\;\;\;y2 \cdot \left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;k \leq -1.18 \cdot 10^{+28}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;k \leq -2.32 \cdot 10^{-70}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{elif}\;k \leq -3.3 \cdot 10^{-218}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;k \leq -2.6 \cdot 10^{-269}:\\
\;\;\;\;i \cdot \left(x \cdot \left(j \cdot y1 - y \cdot c\right)\right)\\
\mathbf{elif}\;k \leq 2.05 \cdot 10^{-299}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;k \leq 1.32 \cdot 10^{-222}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;k \leq 43000000000000:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;k \leq 1.8 \cdot 10^{+76}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;k \leq 5.8 \cdot 10^{+131}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;k \leq 6.4 \cdot 10^{+162}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{elif}\;k \leq 2.75 \cdot 10^{+219}:\\
\;\;\;\;y5 \cdot \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\end{array}
\end{array}
if k < -2.25e70Initial program 29.1%
Taylor expanded in y2 around inf 34.4%
Taylor expanded in k around inf 49.1%
if -2.25e70 < k < -1.18000000000000009e28Initial program 36.4%
Taylor expanded in y4 around inf 48.1%
Taylor expanded in c around inf 56.5%
if -1.18000000000000009e28 < k < -2.3199999999999999e-70Initial program 19.9%
Taylor expanded in i around -inf 55.4%
Taylor expanded in y3 around inf 61.3%
mul-1-neg61.3%
Simplified61.3%
if -2.3199999999999999e-70 < k < -3.30000000000000023e-218 or -2.6e-269 < k < 2.05e-299 or 1.31999999999999998e-222 < k < 4.3e13 or 1.8000000000000001e76 < k < 5.8000000000000002e131Initial program 37.1%
Taylor expanded in k around 0 35.1%
Taylor expanded in z around -inf 52.8%
if -3.30000000000000023e-218 < k < -2.6e-269Initial program 12.3%
Taylor expanded in i around -inf 50.6%
Taylor expanded in x around inf 64.3%
mul-1-neg64.3%
Simplified64.3%
if 2.05e-299 < k < 1.31999999999999998e-222 or 4.3e13 < k < 1.8000000000000001e76Initial program 37.3%
Taylor expanded in k around 0 29.3%
Taylor expanded in y around inf 60.9%
mul-1-neg60.9%
Simplified60.9%
if 5.8000000000000002e131 < k < 6.4000000000000002e162Initial program 27.3%
Taylor expanded in y4 around inf 54.5%
Taylor expanded in y2 around inf 73.0%
if 6.4000000000000002e162 < k < 2.74999999999999986e219Initial program 39.8%
Taylor expanded in i around -inf 30.7%
Taylor expanded in y5 around -inf 79.7%
if 2.74999999999999986e219 < k Initial program 22.2%
Taylor expanded in k around inf 66.9%
Taylor expanded in z around inf 62.7%
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 (- (* a b) (* c i)))
(t_2 (- (* y y3) (* t y2)))
(t_3 (- (* t j) (* y k)))
(t_4 (* y5 (- (- (* y0 (- (* j y3) (* k y2))) (* i t_3)) (* a t_2))))
(t_5 (* y4 (+ (+ (* b t_3) (* y1 (- (* k y2) (* j y3)))) (* c t_2))))
(t_6 (* z (- (* y3 (- (* a y1) (* c y0))) (* t t_1)))))
(if (<= y5 -7.2e+205)
t_4
(if (<= y5 -4.4e+187)
(* k (* y5 (* y0 (- y2))))
(if (<= y5 -5e+85)
(* j (+ (* y3 (- (* y0 y5) (* y1 y4))) (* b (- (* t y4) (* x y0)))))
(if (<= y5 -2.2e+60)
t_5
(if (<= y5 -5e-55)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x (- (* c y0) (* a y1))))
(* t (- (* a y5) (* c y4)))))
(if (<= y5 -1.55e-96)
t_6
(if (<= y5 -5.8e-202)
t_5
(if (<= y5 6.8e-301)
t_6
(if (<= y5 2.6e-92)
t_5
(if (<= y5 4.7e+122)
(* y (+ (* x t_1) (* y3 (- (* c y4) (* a y5)))))
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 = (a * b) - (c * i);
double t_2 = (y * y3) - (t * y2);
double t_3 = (t * j) - (y * k);
double t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_3)) - (a * t_2));
double t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2));
double t_6 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1));
double tmp;
if (y5 <= -7.2e+205) {
tmp = t_4;
} else if (y5 <= -4.4e+187) {
tmp = k * (y5 * (y0 * -y2));
} else if (y5 <= -5e+85) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else if (y5 <= -2.2e+60) {
tmp = t_5;
} else if (y5 <= -5e-55) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))));
} else if (y5 <= -1.55e-96) {
tmp = t_6;
} else if (y5 <= -5.8e-202) {
tmp = t_5;
} else if (y5 <= 6.8e-301) {
tmp = t_6;
} else if (y5 <= 2.6e-92) {
tmp = t_5;
} else if (y5 <= 4.7e+122) {
tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))));
} 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) :: tmp
t_1 = (a * b) - (c * i)
t_2 = (y * y3) - (t * y2)
t_3 = (t * j) - (y * k)
t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_3)) - (a * t_2))
t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2))
t_6 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1))
if (y5 <= (-7.2d+205)) then
tmp = t_4
else if (y5 <= (-4.4d+187)) then
tmp = k * (y5 * (y0 * -y2))
else if (y5 <= (-5d+85)) then
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))))
else if (y5 <= (-2.2d+60)) then
tmp = t_5
else if (y5 <= (-5d-55)) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))))
else if (y5 <= (-1.55d-96)) then
tmp = t_6
else if (y5 <= (-5.8d-202)) then
tmp = t_5
else if (y5 <= 6.8d-301) then
tmp = t_6
else if (y5 <= 2.6d-92) then
tmp = t_5
else if (y5 <= 4.7d+122) then
tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))))
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 = (a * b) - (c * i);
double t_2 = (y * y3) - (t * y2);
double t_3 = (t * j) - (y * k);
double t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_3)) - (a * t_2));
double t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2));
double t_6 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1));
double tmp;
if (y5 <= -7.2e+205) {
tmp = t_4;
} else if (y5 <= -4.4e+187) {
tmp = k * (y5 * (y0 * -y2));
} else if (y5 <= -5e+85) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else if (y5 <= -2.2e+60) {
tmp = t_5;
} else if (y5 <= -5e-55) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))));
} else if (y5 <= -1.55e-96) {
tmp = t_6;
} else if (y5 <= -5.8e-202) {
tmp = t_5;
} else if (y5 <= 6.8e-301) {
tmp = t_6;
} else if (y5 <= 2.6e-92) {
tmp = t_5;
} else if (y5 <= 4.7e+122) {
tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))));
} 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 = (a * b) - (c * i) t_2 = (y * y3) - (t * y2) t_3 = (t * j) - (y * k) t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_3)) - (a * t_2)) t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2)) t_6 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1)) tmp = 0 if y5 <= -7.2e+205: tmp = t_4 elif y5 <= -4.4e+187: tmp = k * (y5 * (y0 * -y2)) elif y5 <= -5e+85: tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))) elif y5 <= -2.2e+60: tmp = t_5 elif y5 <= -5e-55: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4)))) elif y5 <= -1.55e-96: tmp = t_6 elif y5 <= -5.8e-202: tmp = t_5 elif y5 <= 6.8e-301: tmp = t_6 elif y5 <= 2.6e-92: tmp = t_5 elif y5 <= 4.7e+122: tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5)))) 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(a * b) - Float64(c * i)) t_2 = Float64(Float64(y * y3) - Float64(t * y2)) t_3 = Float64(Float64(t * j) - Float64(y * k)) t_4 = Float64(y5 * Float64(Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * t_3)) - Float64(a * t_2))) t_5 = Float64(y4 * Float64(Float64(Float64(b * t_3) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * t_2))) t_6 = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * t_1))) tmp = 0.0 if (y5 <= -7.2e+205) tmp = t_4; elseif (y5 <= -4.4e+187) tmp = Float64(k * Float64(y5 * Float64(y0 * Float64(-y2)))); elseif (y5 <= -5e+85) tmp = Float64(j * Float64(Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4))) + Float64(b * Float64(Float64(t * y4) - Float64(x * y0))))); elseif (y5 <= -2.2e+60) tmp = t_5; elseif (y5 <= -5e-55) 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 * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (y5 <= -1.55e-96) tmp = t_6; elseif (y5 <= -5.8e-202) tmp = t_5; elseif (y5 <= 6.8e-301) tmp = t_6; elseif (y5 <= 2.6e-92) tmp = t_5; elseif (y5 <= 4.7e+122) tmp = Float64(y * Float64(Float64(x * t_1) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))); 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 = (a * b) - (c * i); t_2 = (y * y3) - (t * y2); t_3 = (t * j) - (y * k); t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_3)) - (a * t_2)); t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * t_2)); t_6 = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1)); tmp = 0.0; if (y5 <= -7.2e+205) tmp = t_4; elseif (y5 <= -4.4e+187) tmp = k * (y5 * (y0 * -y2)); elseif (y5 <= -5e+85) tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))); elseif (y5 <= -2.2e+60) tmp = t_5; elseif (y5 <= -5e-55) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4)))); elseif (y5 <= -1.55e-96) tmp = t_6; elseif (y5 <= -5.8e-202) tmp = t_5; elseif (y5 <= 6.8e-301) tmp = t_6; elseif (y5 <= 2.6e-92) tmp = t_5; elseif (y5 <= 4.7e+122) tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5)))); 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[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(y5 * N[(N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * t$95$3), $MachinePrecision]), $MachinePrecision] - N[(a * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(y4 * N[(N[(N[(b * t$95$3), $MachinePrecision] + N[(y1 * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -7.2e+205], t$95$4, If[LessEqual[y5, -4.4e+187], N[(k * N[(y5 * N[(y0 * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -5e+85], N[(j * N[(N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -2.2e+60], t$95$5, If[LessEqual[y5, -5e-55], 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], If[LessEqual[y5, -1.55e-96], t$95$6, If[LessEqual[y5, -5.8e-202], t$95$5, If[LessEqual[y5, 6.8e-301], t$95$6, If[LessEqual[y5, 2.6e-92], t$95$5, If[LessEqual[y5, 4.7e+122], N[(y * N[(N[(x * t$95$1), $MachinePrecision] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$4]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot b - c \cdot i\\
t_2 := y \cdot y3 - t \cdot y2\\
t_3 := t \cdot j - y \cdot k\\
t_4 := y5 \cdot \left(\left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot t\_3\right) - a \cdot t\_2\right)\\
t_5 := y4 \cdot \left(\left(b \cdot t\_3 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot t\_2\right)\\
t_6 := z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot t\_1\right)\\
\mathbf{if}\;y5 \leq -7.2 \cdot 10^{+205}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y5 \leq -4.4 \cdot 10^{+187}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y0 \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;y5 \leq -5 \cdot 10^{+85}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) + b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;y5 \leq -2.2 \cdot 10^{+60}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq -5 \cdot 10^{-55}:\\
\;\;\;\;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)\\
\mathbf{elif}\;y5 \leq -1.55 \cdot 10^{-96}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y5 \leq -5.8 \cdot 10^{-202}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq 6.8 \cdot 10^{-301}:\\
\;\;\;\;t\_6\\
\mathbf{elif}\;y5 \leq 2.6 \cdot 10^{-92}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq 4.7 \cdot 10^{+122}:\\
\;\;\;\;y \cdot \left(x \cdot t\_1 + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if y5 < -7.20000000000000003e205 or 4.70000000000000023e122 < y5 Initial program 18.9%
Taylor expanded in y5 around -inf 61.0%
if -7.20000000000000003e205 < y5 < -4.3999999999999997e187Initial program 11.1%
Taylor expanded in k around inf 44.4%
Taylor expanded in y5 around inf 77.8%
Taylor expanded in y0 around inf 88.9%
mul-1-neg88.9%
associate-*r*88.9%
distribute-lft-neg-out88.9%
*-commutative88.9%
distribute-lft-neg-in88.9%
Simplified88.9%
if -4.3999999999999997e187 < y5 < -5.0000000000000001e85Initial program 41.2%
Taylor expanded in b around inf 37.9%
Taylor expanded in j around inf 51.4%
if -5.0000000000000001e85 < y5 < -2.19999999999999996e60 or -1.55e-96 < y5 < -5.79999999999999976e-202 or 6.8000000000000004e-301 < y5 < 2.6e-92Initial program 34.2%
Taylor expanded in y4 around inf 62.0%
if -2.19999999999999996e60 < y5 < -5.0000000000000002e-55Initial program 46.3%
Taylor expanded in y2 around inf 61.7%
if -5.0000000000000002e-55 < y5 < -1.55e-96 or -5.79999999999999976e-202 < y5 < 6.8000000000000004e-301Initial program 41.1%
Taylor expanded in k around 0 31.7%
Taylor expanded in z around -inf 70.9%
if 2.6e-92 < y5 < 4.70000000000000023e122Initial program 27.6%
Taylor expanded in k around 0 22.2%
Taylor expanded in y around inf 57.1%
mul-1-neg57.1%
Simplified57.1%
Final simplification62.3%
(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 (- (* y1 y4) (* y0 y5)))
(t_3 (- (* y y3) (* t y2)))
(t_4 (* y5 (- (- (* y0 (- (* j y3) (* k y2))) (* i t_1)) (* a t_3))))
(t_5 (* y4 (+ (+ (* b t_1) (* y1 (- (* k y2) (* j y3)))) (* c t_3))))
(t_6 (- (* a b) (* c i))))
(if (<= y5 -1.06e+206)
t_4
(if (<= y5 -1e+188)
(* k (* y5 (* y0 (- y2))))
(if (<= y5 -4e+85)
(* j (+ (* y3 (- (* y0 y5) (* y1 y4))) (* b (- (* t y4) (* x y0)))))
(if (<= y5 -3.8e+64)
t_5
(if (<= y5 -3.4e-66)
(*
y2
(+
(+ (* k t_2) (* x (- (* c y0) (* a y1))))
(* t (- (* a y5) (* c y4)))))
(if (<= y5 -5.5e-228)
(*
k
(+
(+ (* y2 t_2) (* y (- (* i y5) (* b y4))))
(* z (- (* b y0) (* i y1)))))
(if (<= y5 9.5e-301)
(* z (- (* y3 (- (* a y1) (* c y0))) (* t t_6)))
(if (<= y5 7.2e-91)
t_5
(if (<= y5 3.1e+123)
(* y (+ (* x t_6) (* y3 (- (* c y4) (* a y5)))))
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 = (y1 * y4) - (y0 * y5);
double t_3 = (y * y3) - (t * y2);
double t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_1)) - (a * t_3));
double t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3));
double t_6 = (a * b) - (c * i);
double tmp;
if (y5 <= -1.06e+206) {
tmp = t_4;
} else if (y5 <= -1e+188) {
tmp = k * (y5 * (y0 * -y2));
} else if (y5 <= -4e+85) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else if (y5 <= -3.8e+64) {
tmp = t_5;
} else if (y5 <= -3.4e-66) {
tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))));
} else if (y5 <= -5.5e-228) {
tmp = k * (((y2 * t_2) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (y5 <= 9.5e-301) {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_6));
} else if (y5 <= 7.2e-91) {
tmp = t_5;
} else if (y5 <= 3.1e+123) {
tmp = y * ((x * t_6) + (y3 * ((c * y4) - (a * y5))));
} 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) :: tmp
t_1 = (t * j) - (y * k)
t_2 = (y1 * y4) - (y0 * y5)
t_3 = (y * y3) - (t * y2)
t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_1)) - (a * t_3))
t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3))
t_6 = (a * b) - (c * i)
if (y5 <= (-1.06d+206)) then
tmp = t_4
else if (y5 <= (-1d+188)) then
tmp = k * (y5 * (y0 * -y2))
else if (y5 <= (-4d+85)) then
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))))
else if (y5 <= (-3.8d+64)) then
tmp = t_5
else if (y5 <= (-3.4d-66)) then
tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))))
else if (y5 <= (-5.5d-228)) then
tmp = k * (((y2 * t_2) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
else if (y5 <= 9.5d-301) then
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_6))
else if (y5 <= 7.2d-91) then
tmp = t_5
else if (y5 <= 3.1d+123) then
tmp = y * ((x * t_6) + (y3 * ((c * y4) - (a * y5))))
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 = (y1 * y4) - (y0 * y5);
double t_3 = (y * y3) - (t * y2);
double t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_1)) - (a * t_3));
double t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3));
double t_6 = (a * b) - (c * i);
double tmp;
if (y5 <= -1.06e+206) {
tmp = t_4;
} else if (y5 <= -1e+188) {
tmp = k * (y5 * (y0 * -y2));
} else if (y5 <= -4e+85) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else if (y5 <= -3.8e+64) {
tmp = t_5;
} else if (y5 <= -3.4e-66) {
tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))));
} else if (y5 <= -5.5e-228) {
tmp = k * (((y2 * t_2) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (y5 <= 9.5e-301) {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_6));
} else if (y5 <= 7.2e-91) {
tmp = t_5;
} else if (y5 <= 3.1e+123) {
tmp = y * ((x * t_6) + (y3 * ((c * y4) - (a * y5))));
} 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 = (y1 * y4) - (y0 * y5) t_3 = (y * y3) - (t * y2) t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_1)) - (a * t_3)) t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3)) t_6 = (a * b) - (c * i) tmp = 0 if y5 <= -1.06e+206: tmp = t_4 elif y5 <= -1e+188: tmp = k * (y5 * (y0 * -y2)) elif y5 <= -4e+85: tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))) elif y5 <= -3.8e+64: tmp = t_5 elif y5 <= -3.4e-66: tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4)))) elif y5 <= -5.5e-228: tmp = k * (((y2 * t_2) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))) elif y5 <= 9.5e-301: tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_6)) elif y5 <= 7.2e-91: tmp = t_5 elif y5 <= 3.1e+123: tmp = y * ((x * t_6) + (y3 * ((c * y4) - (a * y5)))) 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(y1 * y4) - Float64(y0 * y5)) t_3 = Float64(Float64(y * y3) - Float64(t * y2)) t_4 = Float64(y5 * Float64(Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * t_1)) - Float64(a * t_3))) t_5 = Float64(y4 * Float64(Float64(Float64(b * t_1) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * t_3))) t_6 = Float64(Float64(a * b) - Float64(c * i)) tmp = 0.0 if (y5 <= -1.06e+206) tmp = t_4; elseif (y5 <= -1e+188) tmp = Float64(k * Float64(y5 * Float64(y0 * Float64(-y2)))); elseif (y5 <= -4e+85) tmp = Float64(j * Float64(Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4))) + Float64(b * Float64(Float64(t * y4) - Float64(x * y0))))); elseif (y5 <= -3.8e+64) tmp = t_5; elseif (y5 <= -3.4e-66) tmp = Float64(y2 * Float64(Float64(Float64(k * t_2) + Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(t * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (y5 <= -5.5e-228) tmp = Float64(k * Float64(Float64(Float64(y2 * t_2) + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1))))); elseif (y5 <= 9.5e-301) tmp = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * t_6))); elseif (y5 <= 7.2e-91) tmp = t_5; elseif (y5 <= 3.1e+123) tmp = Float64(y * Float64(Float64(x * t_6) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))); 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 = (y1 * y4) - (y0 * y5); t_3 = (y * y3) - (t * y2); t_4 = y5 * (((y0 * ((j * y3) - (k * y2))) - (i * t_1)) - (a * t_3)); t_5 = y4 * (((b * t_1) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3)); t_6 = (a * b) - (c * i); tmp = 0.0; if (y5 <= -1.06e+206) tmp = t_4; elseif (y5 <= -1e+188) tmp = k * (y5 * (y0 * -y2)); elseif (y5 <= -4e+85) tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))); elseif (y5 <= -3.8e+64) tmp = t_5; elseif (y5 <= -3.4e-66) tmp = y2 * (((k * t_2) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4)))); elseif (y5 <= -5.5e-228) tmp = k * (((y2 * t_2) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))); elseif (y5 <= 9.5e-301) tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_6)); elseif (y5 <= 7.2e-91) tmp = t_5; elseif (y5 <= 3.1e+123) tmp = y * ((x * t_6) + (y3 * ((c * y4) - (a * y5)))); 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[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(y5 * N[(N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * t$95$1), $MachinePrecision]), $MachinePrecision] - N[(a * t$95$3), $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$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -1.06e+206], t$95$4, If[LessEqual[y5, -1e+188], N[(k * N[(y5 * N[(y0 * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -4e+85], N[(j * N[(N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -3.8e+64], t$95$5, If[LessEqual[y5, -3.4e-66], N[(y2 * N[(N[(N[(k * t$95$2), $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], If[LessEqual[y5, -5.5e-228], N[(k * N[(N[(N[(y2 * t$95$2), $MachinePrecision] + N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 9.5e-301], N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 7.2e-91], t$95$5, If[LessEqual[y5, 3.1e+123], N[(y * N[(N[(x * t$95$6), $MachinePrecision] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$4]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := y1 \cdot y4 - y0 \cdot y5\\
t_3 := y \cdot y3 - t \cdot y2\\
t_4 := y5 \cdot \left(\left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot t\_1\right) - a \cdot t\_3\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\_3\right)\\
t_6 := a \cdot b - c \cdot i\\
\mathbf{if}\;y5 \leq -1.06 \cdot 10^{+206}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y5 \leq -1 \cdot 10^{+188}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y0 \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;y5 \leq -4 \cdot 10^{+85}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) + b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;y5 \leq -3.8 \cdot 10^{+64}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq -3.4 \cdot 10^{-66}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot t\_2 + x \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + t \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq -5.5 \cdot 10^{-228}:\\
\;\;\;\;k \cdot \left(\left(y2 \cdot t\_2 + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y5 \leq 9.5 \cdot 10^{-301}:\\
\;\;\;\;z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot t\_6\right)\\
\mathbf{elif}\;y5 \leq 7.2 \cdot 10^{-91}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq 3.1 \cdot 10^{+123}:\\
\;\;\;\;y \cdot \left(x \cdot t\_6 + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if y5 < -1.0599999999999999e206 or 3.10000000000000006e123 < y5 Initial program 18.9%
Taylor expanded in y5 around -inf 61.0%
if -1.0599999999999999e206 < y5 < -1e188Initial program 11.1%
Taylor expanded in k around inf 44.4%
Taylor expanded in y5 around inf 77.8%
Taylor expanded in y0 around inf 88.9%
mul-1-neg88.9%
associate-*r*88.9%
distribute-lft-neg-out88.9%
*-commutative88.9%
distribute-lft-neg-in88.9%
Simplified88.9%
if -1e188 < y5 < -4.0000000000000001e85Initial program 41.2%
Taylor expanded in b around inf 37.9%
Taylor expanded in j around inf 51.4%
if -4.0000000000000001e85 < y5 < -3.8000000000000001e64 or 9.50000000000000032e-301 < y5 < 7.2000000000000001e-91Initial program 29.8%
Taylor expanded in y4 around inf 62.0%
if -3.8000000000000001e64 < y5 < -3.39999999999999997e-66Initial program 42.3%
Taylor expanded in y2 around inf 58.5%
if -3.39999999999999997e-66 < y5 < -5.49999999999999952e-228Initial program 38.3%
Taylor expanded in k around inf 62.4%
if -5.49999999999999952e-228 < y5 < 9.50000000000000032e-301Initial program 56.3%
Taylor expanded in k around 0 37.5%
Taylor expanded in z around -inf 81.7%
if 7.2000000000000001e-91 < y5 < 3.10000000000000006e123Initial program 27.6%
Taylor expanded in k around 0 22.2%
Taylor expanded in y around inf 57.1%
mul-1-neg57.1%
Simplified57.1%
Final simplification62.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* a b) (* c i)))
(t_2 (- (* a y5) (* c y4)))
(t_3
(*
y4
(+
(+ (* b (- (* t j) (* y k))) (* y1 (- (* k y2) (* j y3))))
(* c (- (* y y3) (* t y2)))))))
(if (<= y5 -1.45e+187)
(* y0 (* y5 (- (* j y3) (* k y2))))
(if (<= y5 -9.5e+145)
(* j (+ (* y3 (- (* y0 y5) (* y1 y4))) (* b (- (* t y4) (* x y0)))))
(if (<= y5 -1.45e+93)
(* t (* y2 t_2))
(if (<= y5 -9e+55)
t_3
(if (<= y5 -2.65e-88)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x (- (* c y0) (* a y1))))
(* t t_2)))
(if (<= y5 -3.6e-201)
t_3
(if (<= y5 1.15e-300)
(* z (- (* y3 (- (* a y1) (* c y0))) (* t t_1)))
(if (<= y5 2.3e-90)
t_3
(if (<= y5 1.02e+121)
(* y (+ (* x t_1) (* y3 (- (* c y4) (* a y5)))))
(*
y1
(+
(* i (* x j))
(-
(* a (- (* z y3) (* x y2)))
(* j (* y3 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 * b) - (c * i);
double t_2 = (a * y5) - (c * y4);
double t_3 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
double tmp;
if (y5 <= -1.45e+187) {
tmp = y0 * (y5 * ((j * y3) - (k * y2)));
} else if (y5 <= -9.5e+145) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else if (y5 <= -1.45e+93) {
tmp = t * (y2 * t_2);
} else if (y5 <= -9e+55) {
tmp = t_3;
} else if (y5 <= -2.65e-88) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2));
} else if (y5 <= -3.6e-201) {
tmp = t_3;
} else if (y5 <= 1.15e-300) {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1));
} else if (y5 <= 2.3e-90) {
tmp = t_3;
} else if (y5 <= 1.02e+121) {
tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))));
} else {
tmp = y1 * ((i * (x * j)) + ((a * ((z * y3) - (x * y2))) - (j * (y3 * 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 * b) - (c * i)
t_2 = (a * y5) - (c * y4)
t_3 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))))
if (y5 <= (-1.45d+187)) then
tmp = y0 * (y5 * ((j * y3) - (k * y2)))
else if (y5 <= (-9.5d+145)) then
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))))
else if (y5 <= (-1.45d+93)) then
tmp = t * (y2 * t_2)
else if (y5 <= (-9d+55)) then
tmp = t_3
else if (y5 <= (-2.65d-88)) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2))
else if (y5 <= (-3.6d-201)) then
tmp = t_3
else if (y5 <= 1.15d-300) then
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1))
else if (y5 <= 2.3d-90) then
tmp = t_3
else if (y5 <= 1.02d+121) then
tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))))
else
tmp = y1 * ((i * (x * j)) + ((a * ((z * y3) - (x * y2))) - (j * (y3 * 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 * b) - (c * i);
double t_2 = (a * y5) - (c * y4);
double t_3 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
double tmp;
if (y5 <= -1.45e+187) {
tmp = y0 * (y5 * ((j * y3) - (k * y2)));
} else if (y5 <= -9.5e+145) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else if (y5 <= -1.45e+93) {
tmp = t * (y2 * t_2);
} else if (y5 <= -9e+55) {
tmp = t_3;
} else if (y5 <= -2.65e-88) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2));
} else if (y5 <= -3.6e-201) {
tmp = t_3;
} else if (y5 <= 1.15e-300) {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1));
} else if (y5 <= 2.3e-90) {
tmp = t_3;
} else if (y5 <= 1.02e+121) {
tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5))));
} else {
tmp = y1 * ((i * (x * j)) + ((a * ((z * y3) - (x * y2))) - (j * (y3 * y4))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (a * b) - (c * i) t_2 = (a * y5) - (c * y4) t_3 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))) tmp = 0 if y5 <= -1.45e+187: tmp = y0 * (y5 * ((j * y3) - (k * y2))) elif y5 <= -9.5e+145: tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))) elif y5 <= -1.45e+93: tmp = t * (y2 * t_2) elif y5 <= -9e+55: tmp = t_3 elif y5 <= -2.65e-88: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2)) elif y5 <= -3.6e-201: tmp = t_3 elif y5 <= 1.15e-300: tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1)) elif y5 <= 2.3e-90: tmp = t_3 elif y5 <= 1.02e+121: tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5)))) else: tmp = y1 * ((i * (x * j)) + ((a * ((z * y3) - (x * y2))) - (j * (y3 * y4)))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(a * b) - Float64(c * i)) t_2 = Float64(Float64(a * y5) - Float64(c * y4)) t_3 = Float64(y4 * Float64(Float64(Float64(b * Float64(Float64(t * j) - Float64(y * k))) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * Float64(Float64(y * y3) - Float64(t * y2))))) tmp = 0.0 if (y5 <= -1.45e+187) tmp = Float64(y0 * Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))); elseif (y5 <= -9.5e+145) tmp = Float64(j * Float64(Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4))) + Float64(b * Float64(Float64(t * y4) - Float64(x * y0))))); elseif (y5 <= -1.45e+93) tmp = Float64(t * Float64(y2 * t_2)); elseif (y5 <= -9e+55) tmp = t_3; elseif (y5 <= -2.65e-88) 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 (y5 <= -3.6e-201) tmp = t_3; elseif (y5 <= 1.15e-300) tmp = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * t_1))); elseif (y5 <= 2.3e-90) tmp = t_3; elseif (y5 <= 1.02e+121) tmp = Float64(y * Float64(Float64(x * t_1) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))); else tmp = Float64(y1 * Float64(Float64(i * Float64(x * j)) + Float64(Float64(a * Float64(Float64(z * y3) - Float64(x * y2))) - Float64(j * Float64(y3 * 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 * b) - (c * i); t_2 = (a * y5) - (c * y4); t_3 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))); tmp = 0.0; if (y5 <= -1.45e+187) tmp = y0 * (y5 * ((j * y3) - (k * y2))); elseif (y5 <= -9.5e+145) tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))); elseif (y5 <= -1.45e+93) tmp = t * (y2 * t_2); elseif (y5 <= -9e+55) tmp = t_3; elseif (y5 <= -2.65e-88) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * t_2)); elseif (y5 <= -3.6e-201) tmp = t_3; elseif (y5 <= 1.15e-300) tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_1)); elseif (y5 <= 2.3e-90) tmp = t_3; elseif (y5 <= 1.02e+121) tmp = y * ((x * t_1) + (y3 * ((c * y4) - (a * y5)))); else tmp = y1 * ((i * (x * j)) + ((a * ((z * y3) - (x * y2))) - (j * (y3 * 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[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y4 * N[(N[(N[(b * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y1 * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -1.45e+187], N[(y0 * N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -9.5e+145], N[(j * N[(N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.45e+93], N[(t * N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -9e+55], t$95$3, If[LessEqual[y5, -2.65e-88], 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[y5, -3.6e-201], t$95$3, If[LessEqual[y5, 1.15e-300], N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.3e-90], t$95$3, If[LessEqual[y5, 1.02e+121], N[(y * N[(N[(x * t$95$1), $MachinePrecision] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y1 * N[(N[(i * N[(x * j), $MachinePrecision]), $MachinePrecision] + N[(N[(a * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(j * N[(y3 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot b - c \cdot i\\
t_2 := a \cdot y5 - c \cdot y4\\
t_3 := y4 \cdot \left(\left(b \cdot \left(t \cdot j - y \cdot k\right) + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{if}\;y5 \leq -1.45 \cdot 10^{+187}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\\
\mathbf{elif}\;y5 \leq -9.5 \cdot 10^{+145}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) + b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;y5 \leq -1.45 \cdot 10^{+93}:\\
\;\;\;\;t \cdot \left(y2 \cdot t\_2\right)\\
\mathbf{elif}\;y5 \leq -9 \cdot 10^{+55}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq -2.65 \cdot 10^{-88}:\\
\;\;\;\;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}\;y5 \leq -3.6 \cdot 10^{-201}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq 1.15 \cdot 10^{-300}:\\
\;\;\;\;z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot t\_1\right)\\
\mathbf{elif}\;y5 \leq 2.3 \cdot 10^{-90}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq 1.02 \cdot 10^{+121}:\\
\;\;\;\;y \cdot \left(x \cdot t\_1 + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y1 \cdot \left(i \cdot \left(x \cdot j\right) + \left(a \cdot \left(z \cdot y3 - x \cdot y2\right) - j \cdot \left(y3 \cdot y4\right)\right)\right)\\
\end{array}
\end{array}
if y5 < -1.45e187Initial program 19.4%
Taylor expanded in i around -inf 36.1%
Taylor expanded in y0 around inf 56.3%
mul-1-neg56.3%
Simplified56.3%
if -1.45e187 < y5 < -9.49999999999999948e145Initial program 41.5%
Taylor expanded in b around inf 51.7%
Taylor expanded in j around inf 67.4%
if -9.49999999999999948e145 < y5 < -1.4499999999999999e93Initial program 43.9%
Taylor expanded in y2 around inf 56.9%
Taylor expanded in t around inf 71.9%
if -1.4499999999999999e93 < y5 < -8.99999999999999996e55 or -2.65000000000000004e-88 < y5 < -3.60000000000000031e-201 or 1.15e-300 < y5 < 2.2999999999999998e-90Initial program 33.3%
Taylor expanded in y4 around inf 60.6%
if -8.99999999999999996e55 < y5 < -2.65000000000000004e-88Initial program 44.3%
Taylor expanded in y2 around inf 56.4%
if -3.60000000000000031e-201 < y5 < 1.15e-300Initial program 45.8%
Taylor expanded in k around 0 33.3%
Taylor expanded in z around -inf 71.2%
if 2.2999999999999998e-90 < y5 < 1.02000000000000005e121Initial program 27.6%
Taylor expanded in k around 0 22.2%
Taylor expanded in y around inf 57.1%
mul-1-neg57.1%
Simplified57.1%
if 1.02000000000000005e121 < y5 Initial program 15.4%
Taylor expanded in k around 0 15.4%
Taylor expanded in y1 around -inf 50.5%
Final simplification59.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x (- (* c y0) (* a y1))))
(* t (- (* a y5) (* c y4)))))))
(if (<= z -9.8e+50)
(* k (* z (- (* b y0) (* i y1))))
(if (<= z -9.5e-62)
(* i (+ (* j (* x y1)) (- (* c (- (* z t) (* x y))) (* j (* t y5)))))
(if (<= z -3e-122)
(* k (* y5 (- (* y i) (* y0 y2))))
(if (<= z -4.45e-187)
(*
y5
(- (- (* j (* y0 y3)) (* i (* t j))) (* a (- (* y y3) (* t y2)))))
(if (<= z -5.3e-266)
t_1
(if (<= z 4.8e-210)
(*
y5
(- (* y0 (- (* j y3) (* k y2))) (* i (- (* t j) (* y k)))))
(if (<= z 1.8e+74)
t_1
(*
z
(-
(* y3 (- (* a y1) (* c y0)))
(* t (- (* a b) (* c i))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))));
double tmp;
if (z <= -9.8e+50) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (z <= -9.5e-62) {
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))));
} else if (z <= -3e-122) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (z <= -4.45e-187) {
tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2))));
} else if (z <= -5.3e-266) {
tmp = t_1;
} else if (z <= 4.8e-210) {
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))));
} else if (z <= 1.8e+74) {
tmp = t_1;
} else {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))))
if (z <= (-9.8d+50)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (z <= (-9.5d-62)) then
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))))
else if (z <= (-3d-122)) then
tmp = k * (y5 * ((y * i) - (y0 * y2)))
else if (z <= (-4.45d-187)) then
tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2))))
else if (z <= (-5.3d-266)) then
tmp = t_1
else if (z <= 4.8d-210) then
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))))
else if (z <= 1.8d+74) then
tmp = t_1
else
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4))));
double tmp;
if (z <= -9.8e+50) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (z <= -9.5e-62) {
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))));
} else if (z <= -3e-122) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (z <= -4.45e-187) {
tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2))));
} else if (z <= -5.3e-266) {
tmp = t_1;
} else if (z <= 4.8e-210) {
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))));
} else if (z <= 1.8e+74) {
tmp = t_1;
} else {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4)))) tmp = 0 if z <= -9.8e+50: tmp = k * (z * ((b * y0) - (i * y1))) elif z <= -9.5e-62: tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5)))) elif z <= -3e-122: tmp = k * (y5 * ((y * i) - (y0 * y2))) elif z <= -4.45e-187: tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2)))) elif z <= -5.3e-266: tmp = t_1 elif z <= 4.8e-210: tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k)))) elif z <= 1.8e+74: tmp = t_1 else: tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i)))) 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(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))))) tmp = 0.0 if (z <= -9.8e+50) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (z <= -9.5e-62) tmp = Float64(i * Float64(Float64(j * Float64(x * y1)) + Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) - Float64(j * Float64(t * y5))))); elseif (z <= -3e-122) tmp = Float64(k * Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2)))); elseif (z <= -4.45e-187) tmp = Float64(y5 * Float64(Float64(Float64(j * Float64(y0 * y3)) - Float64(i * Float64(t * j))) - Float64(a * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (z <= -5.3e-266) tmp = t_1; elseif (z <= 4.8e-210) tmp = Float64(y5 * Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * Float64(Float64(t * j) - Float64(y * k))))); elseif (z <= 1.8e+74) tmp = t_1; else tmp = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * Float64(Float64(a * b) - Float64(c * i))))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * ((c * y0) - (a * y1)))) + (t * ((a * y5) - (c * y4)))); tmp = 0.0; if (z <= -9.8e+50) tmp = k * (z * ((b * y0) - (i * y1))); elseif (z <= -9.5e-62) tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5)))); elseif (z <= -3e-122) tmp = k * (y5 * ((y * i) - (y0 * y2))); elseif (z <= -4.45e-187) tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2)))); elseif (z <= -5.3e-266) tmp = t_1; elseif (z <= 4.8e-210) tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k)))); elseif (z <= 1.8e+74) tmp = t_1; else tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i)))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(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]}, If[LessEqual[z, -9.8e+50], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -9.5e-62], N[(i * N[(N[(j * N[(x * y1), $MachinePrecision]), $MachinePrecision] + N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(j * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -3e-122], N[(k * N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -4.45e-187], N[(y5 * N[(N[(N[(j * N[(y0 * y3), $MachinePrecision]), $MachinePrecision] - N[(i * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(a * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -5.3e-266], t$95$1, If[LessEqual[z, 4.8e-210], N[(y5 * N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.8e+74], t$95$1, N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := 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)\\
\mathbf{if}\;z \leq -9.8 \cdot 10^{+50}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;z \leq -9.5 \cdot 10^{-62}:\\
\;\;\;\;i \cdot \left(j \cdot \left(x \cdot y1\right) + \left(c \cdot \left(z \cdot t - x \cdot y\right) - j \cdot \left(t \cdot y5\right)\right)\right)\\
\mathbf{elif}\;z \leq -3 \cdot 10^{-122}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\mathbf{elif}\;z \leq -4.45 \cdot 10^{-187}:\\
\;\;\;\;y5 \cdot \left(\left(j \cdot \left(y0 \cdot y3\right) - i \cdot \left(t \cdot j\right)\right) - a \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;z \leq -5.3 \cdot 10^{-266}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 4.8 \cdot 10^{-210}:\\
\;\;\;\;y5 \cdot \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;z \leq 1.8 \cdot 10^{+74}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\end{array}
\end{array}
if z < -9.8000000000000003e50Initial program 26.0%
Taylor expanded in k around inf 39.5%
Taylor expanded in z around inf 57.2%
if -9.8000000000000003e50 < z < -9.49999999999999951e-62Initial program 28.4%
Taylor expanded in k around 0 28.7%
Taylor expanded in i around -inf 57.4%
if -9.49999999999999951e-62 < z < -3.00000000000000004e-122Initial program 44.2%
Taylor expanded in k around inf 50.8%
Taylor expanded in y5 around inf 57.2%
if -3.00000000000000004e-122 < z < -4.4500000000000002e-187Initial program 19.2%
Taylor expanded in k around 0 12.9%
Taylor expanded in y5 around inf 57.2%
if -4.4500000000000002e-187 < z < -5.3000000000000003e-266 or 4.80000000000000008e-210 < z < 1.79999999999999994e74Initial program 39.7%
Taylor expanded in y2 around inf 56.8%
if -5.3000000000000003e-266 < z < 4.80000000000000008e-210Initial program 39.0%
Taylor expanded in i around -inf 51.9%
Taylor expanded in y5 around -inf 52.2%
if 1.79999999999999994e74 < z Initial program 22.9%
Taylor expanded in k around 0 16.8%
Taylor expanded in z around -inf 55.6%
Final simplification56.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= b -1.1e+211)
(* y4 (* b (- (* t j) (* y k))))
(if (<= b -4.1e+93)
(* b (- (- (* j (* t y4)) (* a (- (* z t) (* x y)))) (* j (* x y0))))
(if (<= b -4e-133)
(* y2 (* k (- (* y1 y4) (* y0 y5))))
(if (<= b -2.06e-196)
(* z (- (* y3 (- (* a y1) (* c y0))) (* t (- (* a b) (* c i)))))
(if (<= b -4.3e-308)
(* y2 (* c (- (* x y0) (* t y4))))
(if (<= b 1.6e-256)
(* y0 (* y5 (- (* j y3) (* k y2))))
(if (<= b 5e-134)
(* y2 (* y4 (- (* k y1) (* t c))))
(if (<= b 4.6e-36)
(* a (* y2 (- (* t y5) (* x y1))))
(if (<= b 6e-10)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= b 1.05e+179)
(* k (* z (- (* b y0) (* i y1))))
(* (* a b) (- (* 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 tmp;
if (b <= -1.1e+211) {
tmp = y4 * (b * ((t * j) - (y * k)));
} else if (b <= -4.1e+93) {
tmp = b * (((j * (t * y4)) - (a * ((z * t) - (x * y)))) - (j * (x * y0)));
} else if (b <= -4e-133) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (b <= -2.06e-196) {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))));
} else if (b <= -4.3e-308) {
tmp = y2 * (c * ((x * y0) - (t * y4)));
} else if (b <= 1.6e-256) {
tmp = y0 * (y5 * ((j * y3) - (k * y2)));
} else if (b <= 5e-134) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (b <= 4.6e-36) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (b <= 6e-10) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (b <= 1.05e+179) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else {
tmp = (a * b) * ((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) :: tmp
if (b <= (-1.1d+211)) then
tmp = y4 * (b * ((t * j) - (y * k)))
else if (b <= (-4.1d+93)) then
tmp = b * (((j * (t * y4)) - (a * ((z * t) - (x * y)))) - (j * (x * y0)))
else if (b <= (-4d-133)) then
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)))
else if (b <= (-2.06d-196)) then
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))))
else if (b <= (-4.3d-308)) then
tmp = y2 * (c * ((x * y0) - (t * y4)))
else if (b <= 1.6d-256) then
tmp = y0 * (y5 * ((j * y3) - (k * y2)))
else if (b <= 5d-134) then
tmp = y2 * (y4 * ((k * y1) - (t * c)))
else if (b <= 4.6d-36) then
tmp = a * (y2 * ((t * y5) - (x * y1)))
else if (b <= 6d-10) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (b <= 1.05d+179) then
tmp = k * (z * ((b * y0) - (i * y1)))
else
tmp = (a * b) * ((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 tmp;
if (b <= -1.1e+211) {
tmp = y4 * (b * ((t * j) - (y * k)));
} else if (b <= -4.1e+93) {
tmp = b * (((j * (t * y4)) - (a * ((z * t) - (x * y)))) - (j * (x * y0)));
} else if (b <= -4e-133) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (b <= -2.06e-196) {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))));
} else if (b <= -4.3e-308) {
tmp = y2 * (c * ((x * y0) - (t * y4)));
} else if (b <= 1.6e-256) {
tmp = y0 * (y5 * ((j * y3) - (k * y2)));
} else if (b <= 5e-134) {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
} else if (b <= 4.6e-36) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (b <= 6e-10) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (b <= 1.05e+179) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else {
tmp = (a * b) * ((x * y) - (z * t));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if b <= -1.1e+211: tmp = y4 * (b * ((t * j) - (y * k))) elif b <= -4.1e+93: tmp = b * (((j * (t * y4)) - (a * ((z * t) - (x * y)))) - (j * (x * y0))) elif b <= -4e-133: tmp = y2 * (k * ((y1 * y4) - (y0 * y5))) elif b <= -2.06e-196: tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i)))) elif b <= -4.3e-308: tmp = y2 * (c * ((x * y0) - (t * y4))) elif b <= 1.6e-256: tmp = y0 * (y5 * ((j * y3) - (k * y2))) elif b <= 5e-134: tmp = y2 * (y4 * ((k * y1) - (t * c))) elif b <= 4.6e-36: tmp = a * (y2 * ((t * y5) - (x * y1))) elif b <= 6e-10: tmp = c * (y4 * ((y * y3) - (t * y2))) elif b <= 1.05e+179: tmp = k * (z * ((b * y0) - (i * y1))) else: tmp = (a * b) * ((x * y) - (z * 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 (b <= -1.1e+211) tmp = Float64(y4 * Float64(b * Float64(Float64(t * j) - Float64(y * k)))); elseif (b <= -4.1e+93) tmp = Float64(b * Float64(Float64(Float64(j * Float64(t * y4)) - Float64(a * Float64(Float64(z * t) - Float64(x * y)))) - Float64(j * Float64(x * y0)))); elseif (b <= -4e-133) tmp = Float64(y2 * Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (b <= -2.06e-196) tmp = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * Float64(Float64(a * b) - Float64(c * i))))); elseif (b <= -4.3e-308) tmp = Float64(y2 * Float64(c * Float64(Float64(x * y0) - Float64(t * y4)))); elseif (b <= 1.6e-256) tmp = Float64(y0 * Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))); elseif (b <= 5e-134) tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); elseif (b <= 4.6e-36) tmp = Float64(a * Float64(y2 * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (b <= 6e-10) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (b <= 1.05e+179) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); else tmp = Float64(Float64(a * b) * 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) tmp = 0.0; if (b <= -1.1e+211) tmp = y4 * (b * ((t * j) - (y * k))); elseif (b <= -4.1e+93) tmp = b * (((j * (t * y4)) - (a * ((z * t) - (x * y)))) - (j * (x * y0))); elseif (b <= -4e-133) tmp = y2 * (k * ((y1 * y4) - (y0 * y5))); elseif (b <= -2.06e-196) tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i)))); elseif (b <= -4.3e-308) tmp = y2 * (c * ((x * y0) - (t * y4))); elseif (b <= 1.6e-256) tmp = y0 * (y5 * ((j * y3) - (k * y2))); elseif (b <= 5e-134) tmp = y2 * (y4 * ((k * y1) - (t * c))); elseif (b <= 4.6e-36) tmp = a * (y2 * ((t * y5) - (x * y1))); elseif (b <= 6e-10) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (b <= 1.05e+179) tmp = k * (z * ((b * y0) - (i * y1))); else tmp = (a * b) * ((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_] := If[LessEqual[b, -1.1e+211], N[(y4 * N[(b * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -4.1e+93], N[(b * N[(N[(N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision] - N[(a * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(j * N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -4e-133], N[(y2 * N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -2.06e-196], N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, -4.3e-308], N[(y2 * N[(c * N[(N[(x * y0), $MachinePrecision] - N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.6e-256], N[(y0 * N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 5e-134], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 4.6e-36], N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 6e-10], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.05e+179], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(a * b), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq -1.1 \cdot 10^{+211}:\\
\;\;\;\;y4 \cdot \left(b \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;b \leq -4.1 \cdot 10^{+93}:\\
\;\;\;\;b \cdot \left(\left(j \cdot \left(t \cdot y4\right) - a \cdot \left(z \cdot t - x \cdot y\right)\right) - j \cdot \left(x \cdot y0\right)\right)\\
\mathbf{elif}\;b \leq -4 \cdot 10^{-133}:\\
\;\;\;\;y2 \cdot \left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;b \leq -2.06 \cdot 10^{-196}:\\
\;\;\;\;z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;b \leq -4.3 \cdot 10^{-308}:\\
\;\;\;\;y2 \cdot \left(c \cdot \left(x \cdot y0 - t \cdot y4\right)\right)\\
\mathbf{elif}\;b \leq 1.6 \cdot 10^{-256}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq 5 \cdot 10^{-134}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\mathbf{elif}\;b \leq 4.6 \cdot 10^{-36}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;b \leq 6 \cdot 10^{-10}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;b \leq 1.05 \cdot 10^{+179}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(a \cdot b\right) \cdot \left(x \cdot y - z \cdot t\right)\\
\end{array}
\end{array}
if b < -1.10000000000000002e211Initial program 20.0%
Taylor expanded in y4 around inf 65.1%
Taylor expanded in b around inf 80.1%
if -1.10000000000000002e211 < b < -4.1000000000000001e93Initial program 13.0%
Taylor expanded in k around 0 13.0%
Taylor expanded in b around inf 61.5%
if -4.1000000000000001e93 < b < -4.0000000000000003e-133Initial program 34.7%
Taylor expanded in y2 around inf 43.4%
Taylor expanded in k around inf 50.2%
if -4.0000000000000003e-133 < b < -2.0600000000000001e-196Initial program 52.9%
Taylor expanded in k around 0 47.1%
Taylor expanded in z around -inf 53.6%
if -2.0600000000000001e-196 < b < -4.3000000000000002e-308Initial program 41.7%
Taylor expanded in y2 around inf 39.2%
Taylor expanded in c around inf 49.2%
if -4.3000000000000002e-308 < b < 1.6e-256Initial program 39.7%
Taylor expanded in i around -inf 40.5%
Taylor expanded in y0 around inf 60.6%
mul-1-neg60.6%
Simplified60.6%
if 1.6e-256 < b < 5.0000000000000003e-134Initial program 29.2%
Taylor expanded in y4 around inf 36.7%
Taylor expanded in y2 around inf 44.0%
if 5.0000000000000003e-134 < b < 4.59999999999999993e-36Initial program 37.4%
Taylor expanded in y2 around inf 44.9%
Taylor expanded in a around -inf 51.1%
mul-1-neg51.1%
Simplified51.1%
if 4.59999999999999993e-36 < b < 6e-10Initial program 0.0%
Taylor expanded in y4 around inf 50.9%
Taylor expanded in c around inf 75.4%
if 6e-10 < b < 1.0499999999999999e179Initial program 32.2%
Taylor expanded in k around inf 41.9%
Taylor expanded in z around inf 53.9%
if 1.0499999999999999e179 < b Initial program 30.8%
Taylor expanded in b around inf 57.7%
Taylor expanded in a around inf 69.5%
associate-*r*62.3%
Simplified62.3%
Final simplification55.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= z -1.6e+51)
(* k (* z (- (* b y0) (* i y1))))
(if (<= z -1.9e-60)
(* i (+ (* j (* x y1)) (- (* c (- (* z t) (* x y))) (* j (* t y5)))))
(if (<= z -1.7e-120)
(* k (* y5 (- (* y i) (* y0 y2))))
(if (<= z -1.3e-197)
(*
y5
(- (- (* j (* y0 y3)) (* i (* t j))) (* a (- (* y y3) (* t y2)))))
(if (<= z 1.4e-121)
(* y1 (* y4 (* k (- y2 (* j (/ y3 k))))))
(if (<= z 6.6e-70)
(* t (* y2 (- (* a y5) (* c y4))))
(if (<= z 3.5e+43)
(* y2 (* x (- (* c y0) (* a y1))))
(if (<= z 5.6e+136)
(*
j
(+
(* y3 (- (* y0 y5) (* y1 y4)))
(* b (- (* t y4) (* x y0)))))
(*
z
(-
(* y3 (- (* a y1) (* c y0)))
(* t (- (* a b) (* c i))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (z <= -1.6e+51) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (z <= -1.9e-60) {
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))));
} else if (z <= -1.7e-120) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (z <= -1.3e-197) {
tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2))));
} else if (z <= 1.4e-121) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (z <= 6.6e-70) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (z <= 3.5e+43) {
tmp = y2 * (x * ((c * y0) - (a * y1)));
} else if (z <= 5.6e+136) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (z <= (-1.6d+51)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (z <= (-1.9d-60)) then
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))))
else if (z <= (-1.7d-120)) then
tmp = k * (y5 * ((y * i) - (y0 * y2)))
else if (z <= (-1.3d-197)) then
tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2))))
else if (z <= 1.4d-121) then
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))))
else if (z <= 6.6d-70) then
tmp = t * (y2 * ((a * y5) - (c * y4)))
else if (z <= 3.5d+43) then
tmp = y2 * (x * ((c * y0) - (a * y1)))
else if (z <= 5.6d+136) then
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))))
else
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (z <= -1.6e+51) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (z <= -1.9e-60) {
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))));
} else if (z <= -1.7e-120) {
tmp = k * (y5 * ((y * i) - (y0 * y2)));
} else if (z <= -1.3e-197) {
tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2))));
} else if (z <= 1.4e-121) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (z <= 6.6e-70) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (z <= 3.5e+43) {
tmp = y2 * (x * ((c * y0) - (a * y1)));
} else if (z <= 5.6e+136) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if z <= -1.6e+51: tmp = k * (z * ((b * y0) - (i * y1))) elif z <= -1.9e-60: tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5)))) elif z <= -1.7e-120: tmp = k * (y5 * ((y * i) - (y0 * y2))) elif z <= -1.3e-197: tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2)))) elif z <= 1.4e-121: tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))) elif z <= 6.6e-70: tmp = t * (y2 * ((a * y5) - (c * y4))) elif z <= 3.5e+43: tmp = y2 * (x * ((c * y0) - (a * y1))) elif z <= 5.6e+136: tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))) else: tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i)))) 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 <= -1.6e+51) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (z <= -1.9e-60) tmp = Float64(i * Float64(Float64(j * Float64(x * y1)) + Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) - Float64(j * Float64(t * y5))))); elseif (z <= -1.7e-120) tmp = Float64(k * Float64(y5 * Float64(Float64(y * i) - Float64(y0 * y2)))); elseif (z <= -1.3e-197) tmp = Float64(y5 * Float64(Float64(Float64(j * Float64(y0 * y3)) - Float64(i * Float64(t * j))) - Float64(a * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (z <= 1.4e-121) tmp = Float64(y1 * Float64(y4 * Float64(k * Float64(y2 - Float64(j * Float64(y3 / k)))))); elseif (z <= 6.6e-70) tmp = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))); elseif (z <= 3.5e+43) tmp = Float64(y2 * Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (z <= 5.6e+136) tmp = Float64(j * Float64(Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4))) + Float64(b * Float64(Float64(t * y4) - Float64(x * y0))))); else tmp = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * Float64(Float64(a * b) - Float64(c * i))))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (z <= -1.6e+51) tmp = k * (z * ((b * y0) - (i * y1))); elseif (z <= -1.9e-60) tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5)))); elseif (z <= -1.7e-120) tmp = k * (y5 * ((y * i) - (y0 * y2))); elseif (z <= -1.3e-197) tmp = y5 * (((j * (y0 * y3)) - (i * (t * j))) - (a * ((y * y3) - (t * y2)))); elseif (z <= 1.4e-121) tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))); elseif (z <= 6.6e-70) tmp = t * (y2 * ((a * y5) - (c * y4))); elseif (z <= 3.5e+43) tmp = y2 * (x * ((c * y0) - (a * y1))); elseif (z <= 5.6e+136) tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))); else tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i)))); 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, -1.6e+51], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.9e-60], N[(i * N[(N[(j * N[(x * y1), $MachinePrecision]), $MachinePrecision] + N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(j * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.7e-120], N[(k * N[(y5 * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.3e-197], N[(y5 * N[(N[(N[(j * N[(y0 * y3), $MachinePrecision]), $MachinePrecision] - N[(i * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(a * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.4e-121], N[(y1 * N[(y4 * N[(k * N[(y2 - N[(j * N[(y3 / k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 6.6e-70], N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 3.5e+43], N[(y2 * N[(x * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 5.6e+136], N[(j * N[(N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -1.6 \cdot 10^{+51}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;z \leq -1.9 \cdot 10^{-60}:\\
\;\;\;\;i \cdot \left(j \cdot \left(x \cdot y1\right) + \left(c \cdot \left(z \cdot t - x \cdot y\right) - j \cdot \left(t \cdot y5\right)\right)\right)\\
\mathbf{elif}\;z \leq -1.7 \cdot 10^{-120}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\mathbf{elif}\;z \leq -1.3 \cdot 10^{-197}:\\
\;\;\;\;y5 \cdot \left(\left(j \cdot \left(y0 \cdot y3\right) - i \cdot \left(t \cdot j\right)\right) - a \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;z \leq 1.4 \cdot 10^{-121}:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot \left(y2 - j \cdot \frac{y3}{k}\right)\right)\right)\\
\mathbf{elif}\;z \leq 6.6 \cdot 10^{-70}:\\
\;\;\;\;t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;z \leq 3.5 \cdot 10^{+43}:\\
\;\;\;\;y2 \cdot \left(x \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;z \leq 5.6 \cdot 10^{+136}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) + b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{else}:\\
\;\;\;\;z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\end{array}
\end{array}
if z < -1.6000000000000001e51Initial program 26.0%
Taylor expanded in k around inf 39.5%
Taylor expanded in z around inf 57.2%
if -1.6000000000000001e51 < z < -1.89999999999999997e-60Initial program 28.4%
Taylor expanded in k around 0 28.7%
Taylor expanded in i around -inf 57.4%
if -1.89999999999999997e-60 < z < -1.70000000000000005e-120Initial program 44.2%
Taylor expanded in k around inf 50.8%
Taylor expanded in y5 around inf 57.2%
if -1.70000000000000005e-120 < z < -1.3000000000000001e-197Initial program 33.7%
Taylor expanded in k around 0 28.9%
Taylor expanded in y5 around inf 53.0%
if -1.3000000000000001e-197 < z < 1.4000000000000001e-121Initial program 39.1%
Taylor expanded in y4 around inf 41.3%
Taylor expanded in y1 around inf 41.8%
Taylor expanded in k around inf 43.4%
mul-1-neg43.4%
unsub-neg43.4%
associate-/l*43.4%
Simplified43.4%
if 1.4000000000000001e-121 < z < 6.60000000000000033e-70Initial program 62.5%
Taylor expanded in y2 around inf 75.0%
Taylor expanded in t around inf 100.0%
if 6.60000000000000033e-70 < z < 3.5000000000000001e43Initial program 34.6%
Taylor expanded in y2 around inf 54.1%
Taylor expanded in x around inf 47.1%
if 3.5000000000000001e43 < z < 5.6000000000000004e136Initial program 23.1%
Taylor expanded in b around inf 58.0%
Taylor expanded in j around inf 61.9%
if 5.6000000000000004e136 < z Initial program 21.2%
Taylor expanded in k around 0 15.4%
Taylor expanded in z around -inf 56.4%
Final simplification54.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* t (* y2 (- (* a y5) (* c y4))))))
(if (<= z -3.6e+48)
(* k (* z (- (* b y0) (* i y1))))
(if (<= z -6.5e-97)
(* i (+ (* j (* x y1)) (- (* c (- (* z t) (* x y))) (* j (* t y5)))))
(if (<= z -5.9e-145)
(* y2 (* c (- (* x y0) (* t y4))))
(if (<= z -2.8e-198)
t_1
(if (<= z 4.4e-121)
(* y1 (* y4 (* k (- y2 (* j (/ y3 k))))))
(if (<= z 1.45e-75)
t_1
(if (<= z 1.7e+43)
(* y2 (* x (- (* c y0) (* a y1))))
(if (<= z 4.6e+136)
(*
j
(+
(* y3 (- (* y0 y5) (* y1 y4)))
(* b (- (* t y4) (* x y0)))))
(*
z
(-
(* y3 (- (* a y1) (* c y0)))
(* t (- (* a b) (* c i)))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double tmp;
if (z <= -3.6e+48) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (z <= -6.5e-97) {
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))));
} else if (z <= -5.9e-145) {
tmp = y2 * (c * ((x * y0) - (t * y4)));
} else if (z <= -2.8e-198) {
tmp = t_1;
} else if (z <= 4.4e-121) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (z <= 1.45e-75) {
tmp = t_1;
} else if (z <= 1.7e+43) {
tmp = y2 * (x * ((c * y0) - (a * y1)));
} else if (z <= 4.6e+136) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = t * (y2 * ((a * y5) - (c * y4)))
if (z <= (-3.6d+48)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (z <= (-6.5d-97)) then
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))))
else if (z <= (-5.9d-145)) then
tmp = y2 * (c * ((x * y0) - (t * y4)))
else if (z <= (-2.8d-198)) then
tmp = t_1
else if (z <= 4.4d-121) then
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))))
else if (z <= 1.45d-75) then
tmp = t_1
else if (z <= 1.7d+43) then
tmp = y2 * (x * ((c * y0) - (a * y1)))
else if (z <= 4.6d+136) then
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))))
else
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = t * (y2 * ((a * y5) - (c * y4)));
double tmp;
if (z <= -3.6e+48) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (z <= -6.5e-97) {
tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5))));
} else if (z <= -5.9e-145) {
tmp = y2 * (c * ((x * y0) - (t * y4)));
} else if (z <= -2.8e-198) {
tmp = t_1;
} else if (z <= 4.4e-121) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (z <= 1.45e-75) {
tmp = t_1;
} else if (z <= 1.7e+43) {
tmp = y2 * (x * ((c * y0) - (a * y1)));
} else if (z <= 4.6e+136) {
tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
} else {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = t * (y2 * ((a * y5) - (c * y4))) tmp = 0 if z <= -3.6e+48: tmp = k * (z * ((b * y0) - (i * y1))) elif z <= -6.5e-97: tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5)))) elif z <= -5.9e-145: tmp = y2 * (c * ((x * y0) - (t * y4))) elif z <= -2.8e-198: tmp = t_1 elif z <= 4.4e-121: tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))) elif z <= 1.45e-75: tmp = t_1 elif z <= 1.7e+43: tmp = y2 * (x * ((c * y0) - (a * y1))) elif z <= 4.6e+136: tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))) else: tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i)))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))) tmp = 0.0 if (z <= -3.6e+48) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (z <= -6.5e-97) tmp = Float64(i * Float64(Float64(j * Float64(x * y1)) + Float64(Float64(c * Float64(Float64(z * t) - Float64(x * y))) - Float64(j * Float64(t * y5))))); elseif (z <= -5.9e-145) tmp = Float64(y2 * Float64(c * Float64(Float64(x * y0) - Float64(t * y4)))); elseif (z <= -2.8e-198) tmp = t_1; elseif (z <= 4.4e-121) tmp = Float64(y1 * Float64(y4 * Float64(k * Float64(y2 - Float64(j * Float64(y3 / k)))))); elseif (z <= 1.45e-75) tmp = t_1; elseif (z <= 1.7e+43) tmp = Float64(y2 * Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (z <= 4.6e+136) tmp = Float64(j * Float64(Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4))) + Float64(b * Float64(Float64(t * y4) - Float64(x * y0))))); else tmp = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * Float64(Float64(a * b) - Float64(c * i))))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = t * (y2 * ((a * y5) - (c * y4))); tmp = 0.0; if (z <= -3.6e+48) tmp = k * (z * ((b * y0) - (i * y1))); elseif (z <= -6.5e-97) tmp = i * ((j * (x * y1)) + ((c * ((z * t) - (x * y))) - (j * (t * y5)))); elseif (z <= -5.9e-145) tmp = y2 * (c * ((x * y0) - (t * y4))); elseif (z <= -2.8e-198) tmp = t_1; elseif (z <= 4.4e-121) tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))); elseif (z <= 1.45e-75) tmp = t_1; elseif (z <= 1.7e+43) tmp = y2 * (x * ((c * y0) - (a * y1))); elseif (z <= 4.6e+136) tmp = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))); else tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * ((a * b) - (c * i)))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -3.6e+48], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -6.5e-97], N[(i * N[(N[(j * N[(x * y1), $MachinePrecision]), $MachinePrecision] + N[(N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(j * N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -5.9e-145], N[(y2 * N[(c * N[(N[(x * y0), $MachinePrecision] - N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -2.8e-198], t$95$1, If[LessEqual[z, 4.4e-121], N[(y1 * N[(y4 * N[(k * N[(y2 - N[(j * N[(y3 / k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.45e-75], t$95$1, If[LessEqual[z, 1.7e+43], N[(y2 * N[(x * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 4.6e+136], N[(j * N[(N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{if}\;z \leq -3.6 \cdot 10^{+48}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;z \leq -6.5 \cdot 10^{-97}:\\
\;\;\;\;i \cdot \left(j \cdot \left(x \cdot y1\right) + \left(c \cdot \left(z \cdot t - x \cdot y\right) - j \cdot \left(t \cdot y5\right)\right)\right)\\
\mathbf{elif}\;z \leq -5.9 \cdot 10^{-145}:\\
\;\;\;\;y2 \cdot \left(c \cdot \left(x \cdot y0 - t \cdot y4\right)\right)\\
\mathbf{elif}\;z \leq -2.8 \cdot 10^{-198}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 4.4 \cdot 10^{-121}:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot \left(y2 - j \cdot \frac{y3}{k}\right)\right)\right)\\
\mathbf{elif}\;z \leq 1.45 \cdot 10^{-75}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 1.7 \cdot 10^{+43}:\\
\;\;\;\;y2 \cdot \left(x \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;z \leq 4.6 \cdot 10^{+136}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) + b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{else}:\\
\;\;\;\;z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\end{array}
\end{array}
if z < -3.59999999999999983e48Initial program 26.0%
Taylor expanded in k around inf 39.5%
Taylor expanded in z around inf 57.2%
if -3.59999999999999983e48 < z < -6.5000000000000004e-97Initial program 31.1%
Taylor expanded in k around 0 34.5%
Taylor expanded in i around -inf 50.7%
if -6.5000000000000004e-97 < z < -5.8999999999999998e-145Initial program 34.1%
Taylor expanded in y2 around inf 34.0%
Taylor expanded in c around inf 58.8%
if -5.8999999999999998e-145 < z < -2.7999999999999999e-198 or 4.40000000000000042e-121 < z < 1.4500000000000001e-75Initial program 50.3%
Taylor expanded in y2 around inf 59.8%
Taylor expanded in t around inf 73.2%
if -2.7999999999999999e-198 < z < 4.40000000000000042e-121Initial program 39.1%
Taylor expanded in y4 around inf 41.3%
Taylor expanded in y1 around inf 41.8%
Taylor expanded in k around inf 43.4%
mul-1-neg43.4%
unsub-neg43.4%
associate-/l*43.4%
Simplified43.4%
if 1.4500000000000001e-75 < z < 1.70000000000000006e43Initial program 34.6%
Taylor expanded in y2 around inf 54.1%
Taylor expanded in x around inf 47.1%
if 1.70000000000000006e43 < z < 4.6e136Initial program 23.1%
Taylor expanded in b around inf 58.0%
Taylor expanded in j around inf 61.9%
if 4.6e136 < z Initial program 21.2%
Taylor expanded in k around 0 15.4%
Taylor expanded in z around -inf 56.4%
Final simplification54.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -7e+68)
(* y1 (* y4 (* k (- y2 (* j (/ y3 k))))))
(if (<= y1 -1.05e+15)
(* i (* x (- (* j y1) (* y c))))
(if (<= y1 -5.2e-8)
(* y2 (* k (- (* y1 y4) (* y0 y5))))
(if (<= y1 -2.5e-74)
(* y2 (* y1 (- (* k y4) (* x a))))
(if (<= y1 -2.95e-155)
(* k (* y5 (* y0 (- y2))))
(if (<= y1 6.8e-282)
(* (* a b) (- (* x y) (* z t)))
(if (<= y1 1.55e-194)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= y1 8.2e-166)
(* i (* z (- (* t c) (* k y1))))
(if (<= y1 3.6e-27)
(* y (* y4 (- (* c y3) (* b k))))
(* y2 (* y4 (- (* k y1) (* t c))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -7e+68) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (y1 <= -1.05e+15) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (y1 <= -5.2e-8) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= -2.5e-74) {
tmp = y2 * (y1 * ((k * y4) - (x * a)));
} else if (y1 <= -2.95e-155) {
tmp = k * (y5 * (y0 * -y2));
} else if (y1 <= 6.8e-282) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 1.55e-194) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= 8.2e-166) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y1 <= 3.6e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y1 <= (-7d+68)) then
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))))
else if (y1 <= (-1.05d+15)) then
tmp = i * (x * ((j * y1) - (y * c)))
else if (y1 <= (-5.2d-8)) then
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)))
else if (y1 <= (-2.5d-74)) then
tmp = y2 * (y1 * ((k * y4) - (x * a)))
else if (y1 <= (-2.95d-155)) then
tmp = k * (y5 * (y0 * -y2))
else if (y1 <= 6.8d-282) then
tmp = (a * b) * ((x * y) - (z * t))
else if (y1 <= 1.55d-194) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (y1 <= 8.2d-166) then
tmp = i * (z * ((t * c) - (k * y1)))
else if (y1 <= 3.6d-27) then
tmp = y * (y4 * ((c * y3) - (b * k)))
else
tmp = y2 * (y4 * ((k * y1) - (t * c)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -7e+68) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (y1 <= -1.05e+15) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (y1 <= -5.2e-8) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= -2.5e-74) {
tmp = y2 * (y1 * ((k * y4) - (x * a)));
} else if (y1 <= -2.95e-155) {
tmp = k * (y5 * (y0 * -y2));
} else if (y1 <= 6.8e-282) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 1.55e-194) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= 8.2e-166) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y1 <= 3.6e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -7e+68: tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))) elif y1 <= -1.05e+15: tmp = i * (x * ((j * y1) - (y * c))) elif y1 <= -5.2e-8: tmp = y2 * (k * ((y1 * y4) - (y0 * y5))) elif y1 <= -2.5e-74: tmp = y2 * (y1 * ((k * y4) - (x * a))) elif y1 <= -2.95e-155: tmp = k * (y5 * (y0 * -y2)) elif y1 <= 6.8e-282: tmp = (a * b) * ((x * y) - (z * t)) elif y1 <= 1.55e-194: tmp = c * (y4 * ((y * y3) - (t * y2))) elif y1 <= 8.2e-166: tmp = i * (z * ((t * c) - (k * y1))) elif y1 <= 3.6e-27: tmp = y * (y4 * ((c * y3) - (b * k))) else: tmp = y2 * (y4 * ((k * y1) - (t * c))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -7e+68) tmp = Float64(y1 * Float64(y4 * Float64(k * Float64(y2 - Float64(j * Float64(y3 / k)))))); elseif (y1 <= -1.05e+15) tmp = Float64(i * Float64(x * Float64(Float64(j * y1) - Float64(y * c)))); elseif (y1 <= -5.2e-8) tmp = Float64(y2 * Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y1 <= -2.5e-74) tmp = Float64(y2 * Float64(y1 * Float64(Float64(k * y4) - Float64(x * a)))); elseif (y1 <= -2.95e-155) tmp = Float64(k * Float64(y5 * Float64(y0 * Float64(-y2)))); elseif (y1 <= 6.8e-282) tmp = Float64(Float64(a * b) * Float64(Float64(x * y) - Float64(z * t))); elseif (y1 <= 1.55e-194) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (y1 <= 8.2e-166) tmp = Float64(i * Float64(z * Float64(Float64(t * c) - Float64(k * y1)))); elseif (y1 <= 3.6e-27) tmp = Float64(y * Float64(y4 * Float64(Float64(c * y3) - Float64(b * k)))); else tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y1 <= -7e+68) tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))); elseif (y1 <= -1.05e+15) tmp = i * (x * ((j * y1) - (y * c))); elseif (y1 <= -5.2e-8) tmp = y2 * (k * ((y1 * y4) - (y0 * y5))); elseif (y1 <= -2.5e-74) tmp = y2 * (y1 * ((k * y4) - (x * a))); elseif (y1 <= -2.95e-155) tmp = k * (y5 * (y0 * -y2)); elseif (y1 <= 6.8e-282) tmp = (a * b) * ((x * y) - (z * t)); elseif (y1 <= 1.55e-194) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (y1 <= 8.2e-166) tmp = i * (z * ((t * c) - (k * y1))); elseif (y1 <= 3.6e-27) tmp = y * (y4 * ((c * y3) - (b * k))); else tmp = y2 * (y4 * ((k * y1) - (t * c))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -7e+68], N[(y1 * N[(y4 * N[(k * N[(y2 - N[(j * N[(y3 / k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -1.05e+15], N[(i * N[(x * N[(N[(j * y1), $MachinePrecision] - N[(y * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -5.2e-8], N[(y2 * N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -2.5e-74], N[(y2 * N[(y1 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -2.95e-155], N[(k * N[(y5 * N[(y0 * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 6.8e-282], N[(N[(a * b), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 1.55e-194], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 8.2e-166], N[(i * N[(z * N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 3.6e-27], N[(y * N[(y4 * N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -7 \cdot 10^{+68}:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot \left(y2 - j \cdot \frac{y3}{k}\right)\right)\right)\\
\mathbf{elif}\;y1 \leq -1.05 \cdot 10^{+15}:\\
\;\;\;\;i \cdot \left(x \cdot \left(j \cdot y1 - y \cdot c\right)\right)\\
\mathbf{elif}\;y1 \leq -5.2 \cdot 10^{-8}:\\
\;\;\;\;y2 \cdot \left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y1 \leq -2.5 \cdot 10^{-74}:\\
\;\;\;\;y2 \cdot \left(y1 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{elif}\;y1 \leq -2.95 \cdot 10^{-155}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y0 \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;y1 \leq 6.8 \cdot 10^{-282}:\\
\;\;\;\;\left(a \cdot b\right) \cdot \left(x \cdot y - z \cdot t\right)\\
\mathbf{elif}\;y1 \leq 1.55 \cdot 10^{-194}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y1 \leq 8.2 \cdot 10^{-166}:\\
\;\;\;\;i \cdot \left(z \cdot \left(t \cdot c - k \cdot y1\right)\right)\\
\mathbf{elif}\;y1 \leq 3.6 \cdot 10^{-27}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3 - b \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\end{array}
\end{array}
if y1 < -6.99999999999999955e68Initial program 30.4%
Taylor expanded in y4 around inf 46.1%
Taylor expanded in y1 around inf 46.5%
Taylor expanded in k around inf 48.5%
mul-1-neg48.5%
unsub-neg48.5%
associate-/l*48.5%
Simplified48.5%
if -6.99999999999999955e68 < y1 < -1.05e15Initial program 53.8%
Taylor expanded in i around -inf 46.7%
Taylor expanded in x around inf 61.9%
mul-1-neg61.9%
Simplified61.9%
if -1.05e15 < y1 < -5.2000000000000002e-8Initial program 42.9%
Taylor expanded in y2 around inf 43.8%
Taylor expanded in k around inf 72.0%
if -5.2000000000000002e-8 < y1 < -2.49999999999999999e-74Initial program 41.2%
Taylor expanded in y2 around inf 54.6%
Taylor expanded in y1 around inf 48.8%
if -2.49999999999999999e-74 < y1 < -2.95e-155Initial program 30.6%
Taylor expanded in k around inf 39.4%
Taylor expanded in y5 around inf 39.5%
Taylor expanded in y0 around inf 39.8%
mul-1-neg39.8%
associate-*r*47.3%
distribute-lft-neg-out47.3%
*-commutative47.3%
distribute-lft-neg-in47.3%
Simplified47.3%
if -2.95e-155 < y1 < 6.79999999999999997e-282Initial program 32.1%
Taylor expanded in b around inf 51.8%
Taylor expanded in a around inf 58.9%
associate-*r*46.5%
Simplified46.5%
if 6.79999999999999997e-282 < y1 < 1.55000000000000005e-194Initial program 38.5%
Taylor expanded in y4 around inf 44.3%
Taylor expanded in c around inf 39.4%
if 1.55000000000000005e-194 < y1 < 8.1999999999999995e-166Initial program 44.4%
Taylor expanded in i around -inf 67.5%
Taylor expanded in z around -inf 56.7%
if 8.1999999999999995e-166 < y1 < 3.5999999999999999e-27Initial program 30.3%
Taylor expanded in y4 around inf 51.9%
Taylor expanded in y around -inf 55.1%
mul-1-neg55.1%
Simplified55.1%
if 3.5999999999999999e-27 < y1 Initial program 23.0%
Taylor expanded in y4 around inf 43.3%
Taylor expanded in y2 around inf 52.4%
Final simplification50.9%
(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 (* y4 (- (* t j) (* y k))))))
(if (<= y4 -2.6e+230)
t_1
(if (<= y4 -1.45e+156)
(* t (* y4 (- (* b j) (* c y2))))
(if (<= y4 -4.4e+132)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y4 -1.65e-75)
t_2
(if (<= y4 2.3e-223)
(* i (* z (- (* t c) (* k y1))))
(if (<= y4 3.5e-138)
(* b (* j (* x (- y0))))
(if (<= y4 1.54e-55)
(* t (* y2 (- (* a y5) (* c y4))))
(if (<= y4 1.22e-23)
t_2
(if (<= y4 5.8e+253)
(* c (* y4 (- (* y y3) (* t 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 = k * (y1 * ((y2 * y4) - (z * i)));
double t_2 = b * (y4 * ((t * j) - (y * k)));
double tmp;
if (y4 <= -2.6e+230) {
tmp = t_1;
} else if (y4 <= -1.45e+156) {
tmp = t * (y4 * ((b * j) - (c * y2)));
} else if (y4 <= -4.4e+132) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y4 <= -1.65e-75) {
tmp = t_2;
} else if (y4 <= 2.3e-223) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y4 <= 3.5e-138) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 1.54e-55) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y4 <= 1.22e-23) {
tmp = t_2;
} else if (y4 <= 5.8e+253) {
tmp = c * (y4 * ((y * y3) - (t * 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) :: tmp
t_1 = k * (y1 * ((y2 * y4) - (z * i)))
t_2 = b * (y4 * ((t * j) - (y * k)))
if (y4 <= (-2.6d+230)) then
tmp = t_1
else if (y4 <= (-1.45d+156)) then
tmp = t * (y4 * ((b * j) - (c * y2)))
else if (y4 <= (-4.4d+132)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y4 <= (-1.65d-75)) then
tmp = t_2
else if (y4 <= 2.3d-223) then
tmp = i * (z * ((t * c) - (k * y1)))
else if (y4 <= 3.5d-138) then
tmp = b * (j * (x * -y0))
else if (y4 <= 1.54d-55) then
tmp = t * (y2 * ((a * y5) - (c * y4)))
else if (y4 <= 1.22d-23) then
tmp = t_2
else if (y4 <= 5.8d+253) then
tmp = c * (y4 * ((y * y3) - (t * 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 = k * (y1 * ((y2 * y4) - (z * i)));
double t_2 = b * (y4 * ((t * j) - (y * k)));
double tmp;
if (y4 <= -2.6e+230) {
tmp = t_1;
} else if (y4 <= -1.45e+156) {
tmp = t * (y4 * ((b * j) - (c * y2)));
} else if (y4 <= -4.4e+132) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y4 <= -1.65e-75) {
tmp = t_2;
} else if (y4 <= 2.3e-223) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y4 <= 3.5e-138) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 1.54e-55) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y4 <= 1.22e-23) {
tmp = t_2;
} else if (y4 <= 5.8e+253) {
tmp = c * (y4 * ((y * y3) - (t * 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 = k * (y1 * ((y2 * y4) - (z * i))) t_2 = b * (y4 * ((t * j) - (y * k))) tmp = 0 if y4 <= -2.6e+230: tmp = t_1 elif y4 <= -1.45e+156: tmp = t * (y4 * ((b * j) - (c * y2))) elif y4 <= -4.4e+132: tmp = k * (z * ((b * y0) - (i * y1))) elif y4 <= -1.65e-75: tmp = t_2 elif y4 <= 2.3e-223: tmp = i * (z * ((t * c) - (k * y1))) elif y4 <= 3.5e-138: tmp = b * (j * (x * -y0)) elif y4 <= 1.54e-55: tmp = t * (y2 * ((a * y5) - (c * y4))) elif y4 <= 1.22e-23: tmp = t_2 elif y4 <= 5.8e+253: tmp = c * (y4 * ((y * y3) - (t * 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(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))) t_2 = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) tmp = 0.0 if (y4 <= -2.6e+230) tmp = t_1; elseif (y4 <= -1.45e+156) tmp = Float64(t * Float64(y4 * Float64(Float64(b * j) - Float64(c * y2)))); elseif (y4 <= -4.4e+132) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y4 <= -1.65e-75) tmp = t_2; elseif (y4 <= 2.3e-223) tmp = Float64(i * Float64(z * Float64(Float64(t * c) - Float64(k * y1)))); elseif (y4 <= 3.5e-138) tmp = Float64(b * Float64(j * Float64(x * Float64(-y0)))); elseif (y4 <= 1.54e-55) tmp = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))); elseif (y4 <= 1.22e-23) tmp = t_2; elseif (y4 <= 5.8e+253) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * 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 = k * (y1 * ((y2 * y4) - (z * i))); t_2 = b * (y4 * ((t * j) - (y * k))); tmp = 0.0; if (y4 <= -2.6e+230) tmp = t_1; elseif (y4 <= -1.45e+156) tmp = t * (y4 * ((b * j) - (c * y2))); elseif (y4 <= -4.4e+132) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y4 <= -1.65e-75) tmp = t_2; elseif (y4 <= 2.3e-223) tmp = i * (z * ((t * c) - (k * y1))); elseif (y4 <= 3.5e-138) tmp = b * (j * (x * -y0)); elseif (y4 <= 1.54e-55) tmp = t * (y2 * ((a * y5) - (c * y4))); elseif (y4 <= 1.22e-23) tmp = t_2; elseif (y4 <= 5.8e+253) tmp = c * (y4 * ((y * y3) - (t * 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[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -2.6e+230], t$95$1, If[LessEqual[y4, -1.45e+156], N[(t * N[(y4 * N[(N[(b * j), $MachinePrecision] - N[(c * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -4.4e+132], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1.65e-75], t$95$2, If[LessEqual[y4, 2.3e-223], N[(i * N[(z * N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 3.5e-138], N[(b * N[(j * N[(x * (-y0)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.54e-55], N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.22e-23], t$95$2, If[LessEqual[y4, 5.8e+253], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]]]
\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(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{if}\;y4 \leq -2.6 \cdot 10^{+230}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -1.45 \cdot 10^{+156}:\\
\;\;\;\;t \cdot \left(y4 \cdot \left(b \cdot j - c \cdot y2\right)\right)\\
\mathbf{elif}\;y4 \leq -4.4 \cdot 10^{+132}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq -1.65 \cdot 10^{-75}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq 2.3 \cdot 10^{-223}:\\
\;\;\;\;i \cdot \left(z \cdot \left(t \cdot c - k \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 3.5 \cdot 10^{-138}:\\
\;\;\;\;b \cdot \left(j \cdot \left(x \cdot \left(-y0\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 1.54 \cdot 10^{-55}:\\
\;\;\;\;t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y4 \leq 1.22 \cdot 10^{-23}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq 5.8 \cdot 10^{+253}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y4 < -2.5999999999999999e230 or 5.79999999999999976e253 < y4 Initial program 17.3%
Taylor expanded in k around inf 41.6%
Taylor expanded in y1 around inf 55.8%
if -2.5999999999999999e230 < y4 < -1.45000000000000005e156Initial program 38.5%
Taylor expanded in y4 around inf 61.9%
Taylor expanded in t around inf 69.5%
if -1.45000000000000005e156 < y4 < -4.39999999999999977e132Initial program 16.7%
Taylor expanded in k around inf 50.0%
Taylor expanded in z around inf 83.5%
if -4.39999999999999977e132 < y4 < -1.65e-75 or 1.54000000000000007e-55 < y4 < 1.22000000000000007e-23Initial program 34.4%
Taylor expanded in y4 around inf 46.3%
Taylor expanded in b around inf 50.2%
if -1.65e-75 < y4 < 2.3e-223Initial program 43.0%
Taylor expanded in i around -inf 41.7%
Taylor expanded in z around -inf 35.8%
if 2.3e-223 < y4 < 3.4999999999999999e-138Initial program 31.9%
Taylor expanded in k around 0 28.1%
Taylor expanded in b around inf 44.8%
Taylor expanded in y0 around inf 48.9%
if 3.4999999999999999e-138 < y4 < 1.54000000000000007e-55Initial program 42.9%
Taylor expanded in y2 around inf 52.0%
Taylor expanded in t around inf 51.8%
if 1.22000000000000007e-23 < y4 < 5.79999999999999976e253Initial program 22.6%
Taylor expanded in y4 around inf 53.0%
Taylor expanded in c around inf 48.0%
Final simplification48.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (+ (* x (- (* a b) (* c i))) (* y3 (- (* c y4) (* a y5)))))))
(if (<= y1 -2.4e+163)
(* y1 (* y4 (* k (- y2 (* j (/ y3 k))))))
(if (<= y1 -5.8e+16)
t_1
(if (<= y1 -3e-7)
(* y5 (- (* y0 (- (* j y3) (* k y2))) (* i (- (* t j) (* y k)))))
(if (<= y1 -1.15e-74)
(* y2 (* y1 (- (* k y4) (* x a))))
(if (<= y1 -7e-156)
(* k (* y5 (* y0 (- y2))))
(if (<= y1 -1.04e-302)
(* (* a b) (- (* x y) (* z t)))
(if (<= y1 1.15e-161)
t_1
(if (<= y1 3.5e-27)
(* y (* y4 (- (* c y3) (* b k))))
(* y2 (* y4 (- (* k y1) (* t c))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5))));
double tmp;
if (y1 <= -2.4e+163) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (y1 <= -5.8e+16) {
tmp = t_1;
} else if (y1 <= -3e-7) {
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))));
} else if (y1 <= -1.15e-74) {
tmp = y2 * (y1 * ((k * y4) - (x * a)));
} else if (y1 <= -7e-156) {
tmp = k * (y5 * (y0 * -y2));
} else if (y1 <= -1.04e-302) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 1.15e-161) {
tmp = t_1;
} else if (y1 <= 3.5e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5))))
if (y1 <= (-2.4d+163)) then
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))))
else if (y1 <= (-5.8d+16)) then
tmp = t_1
else if (y1 <= (-3d-7)) then
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))))
else if (y1 <= (-1.15d-74)) then
tmp = y2 * (y1 * ((k * y4) - (x * a)))
else if (y1 <= (-7d-156)) then
tmp = k * (y5 * (y0 * -y2))
else if (y1 <= (-1.04d-302)) then
tmp = (a * b) * ((x * y) - (z * t))
else if (y1 <= 1.15d-161) then
tmp = t_1
else if (y1 <= 3.5d-27) then
tmp = y * (y4 * ((c * y3) - (b * k)))
else
tmp = y2 * (y4 * ((k * y1) - (t * c)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5))));
double tmp;
if (y1 <= -2.4e+163) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (y1 <= -5.8e+16) {
tmp = t_1;
} else if (y1 <= -3e-7) {
tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k))));
} else if (y1 <= -1.15e-74) {
tmp = y2 * (y1 * ((k * y4) - (x * a)));
} else if (y1 <= -7e-156) {
tmp = k * (y5 * (y0 * -y2));
} else if (y1 <= -1.04e-302) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 1.15e-161) {
tmp = t_1;
} else if (y1 <= 3.5e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5)))) tmp = 0 if y1 <= -2.4e+163: tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))) elif y1 <= -5.8e+16: tmp = t_1 elif y1 <= -3e-7: tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k)))) elif y1 <= -1.15e-74: tmp = y2 * (y1 * ((k * y4) - (x * a))) elif y1 <= -7e-156: tmp = k * (y5 * (y0 * -y2)) elif y1 <= -1.04e-302: tmp = (a * b) * ((x * y) - (z * t)) elif y1 <= 1.15e-161: tmp = t_1 elif y1 <= 3.5e-27: tmp = y * (y4 * ((c * y3) - (b * k))) else: tmp = y2 * (y4 * ((k * y1) - (t * c))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y * Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))) tmp = 0.0 if (y1 <= -2.4e+163) tmp = Float64(y1 * Float64(y4 * Float64(k * Float64(y2 - Float64(j * Float64(y3 / k)))))); elseif (y1 <= -5.8e+16) tmp = t_1; elseif (y1 <= -3e-7) tmp = Float64(y5 * Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * Float64(Float64(t * j) - Float64(y * k))))); elseif (y1 <= -1.15e-74) tmp = Float64(y2 * Float64(y1 * Float64(Float64(k * y4) - Float64(x * a)))); elseif (y1 <= -7e-156) tmp = Float64(k * Float64(y5 * Float64(y0 * Float64(-y2)))); elseif (y1 <= -1.04e-302) tmp = Float64(Float64(a * b) * Float64(Float64(x * y) - Float64(z * t))); elseif (y1 <= 1.15e-161) tmp = t_1; elseif (y1 <= 3.5e-27) tmp = Float64(y * Float64(y4 * Float64(Float64(c * y3) - Float64(b * k)))); else tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5)))); tmp = 0.0; if (y1 <= -2.4e+163) tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))); elseif (y1 <= -5.8e+16) tmp = t_1; elseif (y1 <= -3e-7) tmp = y5 * ((y0 * ((j * y3) - (k * y2))) - (i * ((t * j) - (y * k)))); elseif (y1 <= -1.15e-74) tmp = y2 * (y1 * ((k * y4) - (x * a))); elseif (y1 <= -7e-156) tmp = k * (y5 * (y0 * -y2)); elseif (y1 <= -1.04e-302) tmp = (a * b) * ((x * y) - (z * t)); elseif (y1 <= 1.15e-161) tmp = t_1; elseif (y1 <= 3.5e-27) tmp = y * (y4 * ((c * y3) - (b * k))); else tmp = y2 * (y4 * ((k * y1) - (t * c))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y1, -2.4e+163], N[(y1 * N[(y4 * N[(k * N[(y2 - N[(j * N[(y3 / k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -5.8e+16], t$95$1, If[LessEqual[y1, -3e-7], N[(y5 * N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -1.15e-74], N[(y2 * N[(y1 * N[(N[(k * y4), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -7e-156], N[(k * N[(y5 * N[(y0 * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -1.04e-302], N[(N[(a * b), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 1.15e-161], t$95$1, If[LessEqual[y1, 3.5e-27], N[(y * N[(y4 * N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(x \cdot \left(a \cdot b - c \cdot i\right) + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{if}\;y1 \leq -2.4 \cdot 10^{+163}:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot \left(y2 - j \cdot \frac{y3}{k}\right)\right)\right)\\
\mathbf{elif}\;y1 \leq -5.8 \cdot 10^{+16}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y1 \leq -3 \cdot 10^{-7}:\\
\;\;\;\;y5 \cdot \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y1 \leq -1.15 \cdot 10^{-74}:\\
\;\;\;\;y2 \cdot \left(y1 \cdot \left(k \cdot y4 - x \cdot a\right)\right)\\
\mathbf{elif}\;y1 \leq -7 \cdot 10^{-156}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y0 \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;y1 \leq -1.04 \cdot 10^{-302}:\\
\;\;\;\;\left(a \cdot b\right) \cdot \left(x \cdot y - z \cdot t\right)\\
\mathbf{elif}\;y1 \leq 1.15 \cdot 10^{-161}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y1 \leq 3.5 \cdot 10^{-27}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3 - b \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\end{array}
\end{array}
if y1 < -2.3999999999999999e163Initial program 36.0%
Taylor expanded in y4 around inf 44.6%
Taylor expanded in y1 around inf 52.9%
Taylor expanded in k around inf 56.6%
mul-1-neg56.6%
unsub-neg56.6%
associate-/l*56.6%
Simplified56.6%
if -2.3999999999999999e163 < y1 < -5.8e16 or -1.04000000000000002e-302 < y1 < 1.15e-161Initial program 35.3%
Taylor expanded in k around 0 27.0%
Taylor expanded in y around inf 46.0%
mul-1-neg46.0%
Simplified46.0%
if -5.8e16 < y1 < -2.9999999999999999e-7Initial program 50.0%
Taylor expanded in i around -inf 66.7%
Taylor expanded in y5 around -inf 100.0%
if -2.9999999999999999e-7 < y1 < -1.1499999999999999e-74Initial program 42.1%
Taylor expanded in y2 around inf 54.2%
Taylor expanded in y1 around inf 43.8%
if -1.1499999999999999e-74 < y1 < -6.9999999999999999e-156Initial program 30.6%
Taylor expanded in k around inf 39.4%
Taylor expanded in y5 around inf 39.5%
Taylor expanded in y0 around inf 39.8%
mul-1-neg39.8%
associate-*r*47.3%
distribute-lft-neg-out47.3%
*-commutative47.3%
distribute-lft-neg-in47.3%
Simplified47.3%
if -6.9999999999999999e-156 < y1 < -1.04000000000000002e-302Initial program 34.6%
Taylor expanded in b around inf 65.2%
Taylor expanded in a around inf 65.8%
associate-*r*53.3%
Simplified53.3%
if 1.15e-161 < y1 < 3.5000000000000001e-27Initial program 30.3%
Taylor expanded in y4 around inf 51.9%
Taylor expanded in y around -inf 55.1%
mul-1-neg55.1%
Simplified55.1%
if 3.5000000000000001e-27 < y1 Initial program 23.0%
Taylor expanded in y4 around inf 43.3%
Taylor expanded in y2 around inf 52.4%
Final simplification51.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (+ (* x (- (* a b) (* c i))) (* y3 (- (* c y4) (* a y5)))))))
(if (<= y1 -1.45e+165)
(* y1 (* y4 (* k (- y2 (* j (/ y3 k))))))
(if (<= y1 -2.35e+17)
t_1
(if (<= y1 -3.8e-85)
(* a (* y2 (- (* t y5) (* x y1))))
(if (<= y1 -6e-190)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= y1 -8.5e-209)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y1 -6.8e-298)
(* (* a b) (- (* x y) (* z t)))
(if (<= y1 3.3e-165)
t_1
(if (<= y1 2.9e-27)
(* y (* y4 (- (* c y3) (* b k))))
(* y2 (* y4 (- (* k y1) (* t c))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5))));
double tmp;
if (y1 <= -1.45e+165) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (y1 <= -2.35e+17) {
tmp = t_1;
} else if (y1 <= -3.8e-85) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (y1 <= -6e-190) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= -8.5e-209) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y1 <= -6.8e-298) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 3.3e-165) {
tmp = t_1;
} else if (y1 <= 2.9e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5))))
if (y1 <= (-1.45d+165)) then
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))))
else if (y1 <= (-2.35d+17)) then
tmp = t_1
else if (y1 <= (-3.8d-85)) then
tmp = a * (y2 * ((t * y5) - (x * y1)))
else if (y1 <= (-6d-190)) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (y1 <= (-8.5d-209)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y1 <= (-6.8d-298)) then
tmp = (a * b) * ((x * y) - (z * t))
else if (y1 <= 3.3d-165) then
tmp = t_1
else if (y1 <= 2.9d-27) then
tmp = y * (y4 * ((c * y3) - (b * k)))
else
tmp = y2 * (y4 * ((k * y1) - (t * c)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5))));
double tmp;
if (y1 <= -1.45e+165) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (y1 <= -2.35e+17) {
tmp = t_1;
} else if (y1 <= -3.8e-85) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (y1 <= -6e-190) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= -8.5e-209) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y1 <= -6.8e-298) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 3.3e-165) {
tmp = t_1;
} else if (y1 <= 2.9e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5)))) tmp = 0 if y1 <= -1.45e+165: tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))) elif y1 <= -2.35e+17: tmp = t_1 elif y1 <= -3.8e-85: tmp = a * (y2 * ((t * y5) - (x * y1))) elif y1 <= -6e-190: tmp = c * (y4 * ((y * y3) - (t * y2))) elif y1 <= -8.5e-209: tmp = b * (y4 * ((t * j) - (y * k))) elif y1 <= -6.8e-298: tmp = (a * b) * ((x * y) - (z * t)) elif y1 <= 3.3e-165: tmp = t_1 elif y1 <= 2.9e-27: tmp = y * (y4 * ((c * y3) - (b * k))) else: tmp = y2 * (y4 * ((k * y1) - (t * c))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y * Float64(Float64(x * Float64(Float64(a * b) - Float64(c * i))) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))) tmp = 0.0 if (y1 <= -1.45e+165) tmp = Float64(y1 * Float64(y4 * Float64(k * Float64(y2 - Float64(j * Float64(y3 / k)))))); elseif (y1 <= -2.35e+17) tmp = t_1; elseif (y1 <= -3.8e-85) tmp = Float64(a * Float64(y2 * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (y1 <= -6e-190) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (y1 <= -8.5e-209) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y1 <= -6.8e-298) tmp = Float64(Float64(a * b) * Float64(Float64(x * y) - Float64(z * t))); elseif (y1 <= 3.3e-165) tmp = t_1; elseif (y1 <= 2.9e-27) tmp = Float64(y * Float64(y4 * Float64(Float64(c * y3) - Float64(b * k)))); else tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y * ((x * ((a * b) - (c * i))) + (y3 * ((c * y4) - (a * y5)))); tmp = 0.0; if (y1 <= -1.45e+165) tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))); elseif (y1 <= -2.35e+17) tmp = t_1; elseif (y1 <= -3.8e-85) tmp = a * (y2 * ((t * y5) - (x * y1))); elseif (y1 <= -6e-190) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (y1 <= -8.5e-209) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y1 <= -6.8e-298) tmp = (a * b) * ((x * y) - (z * t)); elseif (y1 <= 3.3e-165) tmp = t_1; elseif (y1 <= 2.9e-27) tmp = y * (y4 * ((c * y3) - (b * k))); else tmp = y2 * (y4 * ((k * y1) - (t * c))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(N[(x * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y1, -1.45e+165], N[(y1 * N[(y4 * N[(k * N[(y2 - N[(j * N[(y3 / k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -2.35e+17], t$95$1, If[LessEqual[y1, -3.8e-85], N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -6e-190], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -8.5e-209], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -6.8e-298], N[(N[(a * b), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 3.3e-165], t$95$1, If[LessEqual[y1, 2.9e-27], N[(y * N[(y4 * N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(x \cdot \left(a \cdot b - c \cdot i\right) + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{if}\;y1 \leq -1.45 \cdot 10^{+165}:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot \left(y2 - j \cdot \frac{y3}{k}\right)\right)\right)\\
\mathbf{elif}\;y1 \leq -2.35 \cdot 10^{+17}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y1 \leq -3.8 \cdot 10^{-85}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;y1 \leq -6 \cdot 10^{-190}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y1 \leq -8.5 \cdot 10^{-209}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y1 \leq -6.8 \cdot 10^{-298}:\\
\;\;\;\;\left(a \cdot b\right) \cdot \left(x \cdot y - z \cdot t\right)\\
\mathbf{elif}\;y1 \leq 3.3 \cdot 10^{-165}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y1 \leq 2.9 \cdot 10^{-27}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3 - b \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\end{array}
\end{array}
if y1 < -1.45000000000000003e165Initial program 36.0%
Taylor expanded in y4 around inf 44.6%
Taylor expanded in y1 around inf 52.9%
Taylor expanded in k around inf 56.6%
mul-1-neg56.6%
unsub-neg56.6%
associate-/l*56.6%
Simplified56.6%
if -1.45000000000000003e165 < y1 < -2.35e17 or -6.8e-298 < y1 < 3.2999999999999998e-165Initial program 34.4%
Taylor expanded in k around 0 25.9%
Taylor expanded in y around inf 46.6%
mul-1-neg46.6%
Simplified46.6%
if -2.35e17 < y1 < -3.7999999999999999e-85Initial program 42.9%
Taylor expanded in y2 around inf 47.7%
Taylor expanded in a around -inf 47.7%
mul-1-neg47.7%
Simplified47.7%
if -3.7999999999999999e-85 < y1 < -5.9999999999999996e-190Initial program 30.6%
Taylor expanded in y4 around inf 32.4%
Taylor expanded in c around inf 47.0%
if -5.9999999999999996e-190 < y1 < -8.5e-209Initial program 66.7%
Taylor expanded in y4 around inf 83.3%
Taylor expanded in b around inf 83.8%
if -8.5e-209 < y1 < -6.8e-298Initial program 26.5%
Taylor expanded in b around inf 53.3%
Taylor expanded in a around inf 67.2%
associate-*r*54.6%
Simplified54.6%
if 3.2999999999999998e-165 < y1 < 2.90000000000000004e-27Initial program 30.3%
Taylor expanded in y4 around inf 51.9%
Taylor expanded in y around -inf 55.1%
mul-1-neg55.1%
Simplified55.1%
if 2.90000000000000004e-27 < y1 Initial program 23.0%
Taylor expanded in y4 around inf 43.3%
Taylor expanded in y2 around inf 52.4%
Final simplification51.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* y1 (- (* y2 y4) (* z i))))))
(if (<= y4 -1.2e+232)
t_1
(if (<= y4 -4.3e+155)
(* t (* y4 (- (* b j) (* c y2))))
(if (<= y4 -4.3e+125)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y4 -6.2e-75)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y4 6.5e-227)
(* i (* z (- (* t c) (* k y1))))
(if (<= y4 3.7e-117)
(* b (* j (* x (- y0))))
(if (<= y4 3.3e+71)
(* y2 (* x (- (* c y0) (* a y1))))
(if (<= y4 1.2e+253)
(* c (* y4 (- (* y y3) (* t 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 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (y4 <= -1.2e+232) {
tmp = t_1;
} else if (y4 <= -4.3e+155) {
tmp = t * (y4 * ((b * j) - (c * y2)));
} else if (y4 <= -4.3e+125) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y4 <= -6.2e-75) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= 6.5e-227) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y4 <= 3.7e-117) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 3.3e+71) {
tmp = y2 * (x * ((c * y0) - (a * y1)));
} else if (y4 <= 1.2e+253) {
tmp = c * (y4 * ((y * y3) - (t * 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) :: tmp
t_1 = k * (y1 * ((y2 * y4) - (z * i)))
if (y4 <= (-1.2d+232)) then
tmp = t_1
else if (y4 <= (-4.3d+155)) then
tmp = t * (y4 * ((b * j) - (c * y2)))
else if (y4 <= (-4.3d+125)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y4 <= (-6.2d-75)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y4 <= 6.5d-227) then
tmp = i * (z * ((t * c) - (k * y1)))
else if (y4 <= 3.7d-117) then
tmp = b * (j * (x * -y0))
else if (y4 <= 3.3d+71) then
tmp = y2 * (x * ((c * y0) - (a * y1)))
else if (y4 <= 1.2d+253) then
tmp = c * (y4 * ((y * y3) - (t * 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 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (y4 <= -1.2e+232) {
tmp = t_1;
} else if (y4 <= -4.3e+155) {
tmp = t * (y4 * ((b * j) - (c * y2)));
} else if (y4 <= -4.3e+125) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y4 <= -6.2e-75) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= 6.5e-227) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y4 <= 3.7e-117) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 3.3e+71) {
tmp = y2 * (x * ((c * y0) - (a * y1)));
} else if (y4 <= 1.2e+253) {
tmp = c * (y4 * ((y * y3) - (t * 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 = k * (y1 * ((y2 * y4) - (z * i))) tmp = 0 if y4 <= -1.2e+232: tmp = t_1 elif y4 <= -4.3e+155: tmp = t * (y4 * ((b * j) - (c * y2))) elif y4 <= -4.3e+125: tmp = k * (z * ((b * y0) - (i * y1))) elif y4 <= -6.2e-75: tmp = b * (y4 * ((t * j) - (y * k))) elif y4 <= 6.5e-227: tmp = i * (z * ((t * c) - (k * y1))) elif y4 <= 3.7e-117: tmp = b * (j * (x * -y0)) elif y4 <= 3.3e+71: tmp = y2 * (x * ((c * y0) - (a * y1))) elif y4 <= 1.2e+253: tmp = c * (y4 * ((y * y3) - (t * 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(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))) tmp = 0.0 if (y4 <= -1.2e+232) tmp = t_1; elseif (y4 <= -4.3e+155) tmp = Float64(t * Float64(y4 * Float64(Float64(b * j) - Float64(c * y2)))); elseif (y4 <= -4.3e+125) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y4 <= -6.2e-75) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y4 <= 6.5e-227) tmp = Float64(i * Float64(z * Float64(Float64(t * c) - Float64(k * y1)))); elseif (y4 <= 3.7e-117) tmp = Float64(b * Float64(j * Float64(x * Float64(-y0)))); elseif (y4 <= 3.3e+71) tmp = Float64(y2 * Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (y4 <= 1.2e+253) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * 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 = k * (y1 * ((y2 * y4) - (z * i))); tmp = 0.0; if (y4 <= -1.2e+232) tmp = t_1; elseif (y4 <= -4.3e+155) tmp = t * (y4 * ((b * j) - (c * y2))); elseif (y4 <= -4.3e+125) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y4 <= -6.2e-75) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y4 <= 6.5e-227) tmp = i * (z * ((t * c) - (k * y1))); elseif (y4 <= 3.7e-117) tmp = b * (j * (x * -y0)); elseif (y4 <= 3.3e+71) tmp = y2 * (x * ((c * y0) - (a * y1))); elseif (y4 <= 1.2e+253) tmp = c * (y4 * ((y * y3) - (t * 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[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -1.2e+232], t$95$1, If[LessEqual[y4, -4.3e+155], N[(t * N[(y4 * N[(N[(b * j), $MachinePrecision] - N[(c * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -4.3e+125], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -6.2e-75], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 6.5e-227], N[(i * N[(z * N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 3.7e-117], N[(b * N[(j * N[(x * (-y0)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 3.3e+71], N[(y2 * N[(x * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.2e+253], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{if}\;y4 \leq -1.2 \cdot 10^{+232}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -4.3 \cdot 10^{+155}:\\
\;\;\;\;t \cdot \left(y4 \cdot \left(b \cdot j - c \cdot y2\right)\right)\\
\mathbf{elif}\;y4 \leq -4.3 \cdot 10^{+125}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq -6.2 \cdot 10^{-75}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y4 \leq 6.5 \cdot 10^{-227}:\\
\;\;\;\;i \cdot \left(z \cdot \left(t \cdot c - k \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 3.7 \cdot 10^{-117}:\\
\;\;\;\;b \cdot \left(j \cdot \left(x \cdot \left(-y0\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 3.3 \cdot 10^{+71}:\\
\;\;\;\;y2 \cdot \left(x \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 1.2 \cdot 10^{+253}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y4 < -1.2000000000000001e232 or 1.19999999999999996e253 < y4 Initial program 17.3%
Taylor expanded in k around inf 41.6%
Taylor expanded in y1 around inf 55.8%
if -1.2000000000000001e232 < y4 < -4.3000000000000002e155Initial program 38.5%
Taylor expanded in y4 around inf 61.9%
Taylor expanded in t around inf 69.5%
if -4.3000000000000002e155 < y4 < -4.30000000000000035e125Initial program 16.7%
Taylor expanded in k around inf 50.0%
Taylor expanded in z around inf 83.5%
if -4.30000000000000035e125 < y4 < -6.20000000000000013e-75Initial program 39.0%
Taylor expanded in y4 around inf 50.8%
Taylor expanded in b around inf 46.7%
if -6.20000000000000013e-75 < y4 < 6.4999999999999996e-227Initial program 43.0%
Taylor expanded in i around -inf 41.7%
Taylor expanded in z around -inf 35.8%
if 6.4999999999999996e-227 < y4 < 3.7000000000000002e-117Initial program 29.6%
Taylor expanded in k around 0 29.7%
Taylor expanded in b around inf 41.7%
Taylor expanded in y0 around inf 45.5%
if 3.7000000000000002e-117 < y4 < 3.2999999999999998e71Initial program 33.3%
Taylor expanded in y2 around inf 49.5%
Taylor expanded in x around inf 46.3%
if 3.2999999999999998e71 < y4 < 1.19999999999999996e253Initial program 19.5%
Taylor expanded in y4 around inf 63.6%
Taylor expanded in c around inf 51.9%
Final simplification47.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* y1 (- (* y2 y4) (* z i))))))
(if (<= y4 -9e+226)
t_1
(if (<= y4 -5.2e+155)
(* t (* y4 (- (* b j) (* c y2))))
(if (<= y4 -3.5e+130)
(* k (* z (- (* b y0) (* i y1))))
(if (<= y4 -6.2e-75)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y4 1.75e-227)
(* i (* z (- (* t c) (* k y1))))
(if (<= y4 8.5e-115)
(* b (* j (* x (- y0))))
(if (<= y4 2.05e+77)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= y4 6.5e+253)
(* c (* y4 (- (* y y3) (* t 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 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (y4 <= -9e+226) {
tmp = t_1;
} else if (y4 <= -5.2e+155) {
tmp = t * (y4 * ((b * j) - (c * y2)));
} else if (y4 <= -3.5e+130) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y4 <= -6.2e-75) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= 1.75e-227) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y4 <= 8.5e-115) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 2.05e+77) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y4 <= 6.5e+253) {
tmp = c * (y4 * ((y * y3) - (t * 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) :: tmp
t_1 = k * (y1 * ((y2 * y4) - (z * i)))
if (y4 <= (-9d+226)) then
tmp = t_1
else if (y4 <= (-5.2d+155)) then
tmp = t * (y4 * ((b * j) - (c * y2)))
else if (y4 <= (-3.5d+130)) then
tmp = k * (z * ((b * y0) - (i * y1)))
else if (y4 <= (-6.2d-75)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y4 <= 1.75d-227) then
tmp = i * (z * ((t * c) - (k * y1)))
else if (y4 <= 8.5d-115) then
tmp = b * (j * (x * -y0))
else if (y4 <= 2.05d+77) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (y4 <= 6.5d+253) then
tmp = c * (y4 * ((y * y3) - (t * 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 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (y4 <= -9e+226) {
tmp = t_1;
} else if (y4 <= -5.2e+155) {
tmp = t * (y4 * ((b * j) - (c * y2)));
} else if (y4 <= -3.5e+130) {
tmp = k * (z * ((b * y0) - (i * y1)));
} else if (y4 <= -6.2e-75) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= 1.75e-227) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y4 <= 8.5e-115) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 2.05e+77) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y4 <= 6.5e+253) {
tmp = c * (y4 * ((y * y3) - (t * 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 = k * (y1 * ((y2 * y4) - (z * i))) tmp = 0 if y4 <= -9e+226: tmp = t_1 elif y4 <= -5.2e+155: tmp = t * (y4 * ((b * j) - (c * y2))) elif y4 <= -3.5e+130: tmp = k * (z * ((b * y0) - (i * y1))) elif y4 <= -6.2e-75: tmp = b * (y4 * ((t * j) - (y * k))) elif y4 <= 1.75e-227: tmp = i * (z * ((t * c) - (k * y1))) elif y4 <= 8.5e-115: tmp = b * (j * (x * -y0)) elif y4 <= 2.05e+77: tmp = x * (y2 * ((c * y0) - (a * y1))) elif y4 <= 6.5e+253: tmp = c * (y4 * ((y * y3) - (t * 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(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))) tmp = 0.0 if (y4 <= -9e+226) tmp = t_1; elseif (y4 <= -5.2e+155) tmp = Float64(t * Float64(y4 * Float64(Float64(b * j) - Float64(c * y2)))); elseif (y4 <= -3.5e+130) tmp = Float64(k * Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))); elseif (y4 <= -6.2e-75) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y4 <= 1.75e-227) tmp = Float64(i * Float64(z * Float64(Float64(t * c) - Float64(k * y1)))); elseif (y4 <= 8.5e-115) tmp = Float64(b * Float64(j * Float64(x * Float64(-y0)))); elseif (y4 <= 2.05e+77) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (y4 <= 6.5e+253) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * 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 = k * (y1 * ((y2 * y4) - (z * i))); tmp = 0.0; if (y4 <= -9e+226) tmp = t_1; elseif (y4 <= -5.2e+155) tmp = t * (y4 * ((b * j) - (c * y2))); elseif (y4 <= -3.5e+130) tmp = k * (z * ((b * y0) - (i * y1))); elseif (y4 <= -6.2e-75) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y4 <= 1.75e-227) tmp = i * (z * ((t * c) - (k * y1))); elseif (y4 <= 8.5e-115) tmp = b * (j * (x * -y0)); elseif (y4 <= 2.05e+77) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (y4 <= 6.5e+253) tmp = c * (y4 * ((y * y3) - (t * 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[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -9e+226], t$95$1, If[LessEqual[y4, -5.2e+155], N[(t * N[(y4 * N[(N[(b * j), $MachinePrecision] - N[(c * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -3.5e+130], N[(k * N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -6.2e-75], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.75e-227], N[(i * N[(z * N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 8.5e-115], N[(b * N[(j * N[(x * (-y0)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 2.05e+77], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 6.5e+253], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{if}\;y4 \leq -9 \cdot 10^{+226}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -5.2 \cdot 10^{+155}:\\
\;\;\;\;t \cdot \left(y4 \cdot \left(b \cdot j - c \cdot y2\right)\right)\\
\mathbf{elif}\;y4 \leq -3.5 \cdot 10^{+130}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq -6.2 \cdot 10^{-75}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y4 \leq 1.75 \cdot 10^{-227}:\\
\;\;\;\;i \cdot \left(z \cdot \left(t \cdot c - k \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 8.5 \cdot 10^{-115}:\\
\;\;\;\;b \cdot \left(j \cdot \left(x \cdot \left(-y0\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 2.05 \cdot 10^{+77}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 6.5 \cdot 10^{+253}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y4 < -8.99999999999999978e226 or 6.5000000000000002e253 < y4 Initial program 17.3%
Taylor expanded in k around inf 41.6%
Taylor expanded in y1 around inf 55.8%
if -8.99999999999999978e226 < y4 < -5.2000000000000004e155Initial program 38.5%
Taylor expanded in y4 around inf 61.9%
Taylor expanded in t around inf 69.5%
if -5.2000000000000004e155 < y4 < -3.5000000000000001e130Initial program 16.7%
Taylor expanded in k around inf 50.0%
Taylor expanded in z around inf 83.5%
if -3.5000000000000001e130 < y4 < -6.20000000000000013e-75Initial program 39.0%
Taylor expanded in y4 around inf 50.8%
Taylor expanded in b around inf 46.7%
if -6.20000000000000013e-75 < y4 < 1.75000000000000005e-227Initial program 43.0%
Taylor expanded in i around -inf 41.7%
Taylor expanded in z around -inf 35.8%
if 1.75000000000000005e-227 < y4 < 8.49999999999999953e-115Initial program 29.6%
Taylor expanded in k around 0 29.7%
Taylor expanded in b around inf 41.7%
Taylor expanded in y0 around inf 45.5%
if 8.49999999999999953e-115 < y4 < 2.05e77Initial program 33.3%
Taylor expanded in y2 around inf 49.5%
Taylor expanded in x around inf 46.2%
if 2.05e77 < y4 < 6.5000000000000002e253Initial program 19.5%
Taylor expanded in y4 around inf 63.6%
Taylor expanded in c around inf 51.9%
Final simplification47.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(* j (+ (* y3 (- (* y0 y5) (* y1 y4))) (* b (- (* t y4) (* x y0))))))
(t_2 (- (* a b) (* c i)))
(t_3 (- (* j y3) (* k y2))))
(if (<= y5 -3.2e+189)
(* y0 (* y5 t_3))
(if (<= y5 -1.3e-58)
t_1
(if (<= y5 -1.06e-218)
(* i (* z (- (* t c) (* k y1))))
(if (<= y5 9.2e-303)
(* z (- (* y3 (- (* a y1) (* c y0))) (* t t_2)))
(if (<= y5 1.25e-97)
t_1
(if (<= y5 6.2e+121)
(* y (+ (* x t_2) (* y3 (- (* c y4) (* a y5)))))
(* y5 (- (* y0 t_3) (* i (- (* t j) (* y k)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
double t_2 = (a * b) - (c * i);
double t_3 = (j * y3) - (k * y2);
double tmp;
if (y5 <= -3.2e+189) {
tmp = y0 * (y5 * t_3);
} else if (y5 <= -1.3e-58) {
tmp = t_1;
} else if (y5 <= -1.06e-218) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y5 <= 9.2e-303) {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_2));
} else if (y5 <= 1.25e-97) {
tmp = t_1;
} else if (y5 <= 6.2e+121) {
tmp = y * ((x * t_2) + (y3 * ((c * y4) - (a * y5))));
} else {
tmp = y5 * ((y0 * t_3) - (i * ((t * j) - (y * k))));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))))
t_2 = (a * b) - (c * i)
t_3 = (j * y3) - (k * y2)
if (y5 <= (-3.2d+189)) then
tmp = y0 * (y5 * t_3)
else if (y5 <= (-1.3d-58)) then
tmp = t_1
else if (y5 <= (-1.06d-218)) then
tmp = i * (z * ((t * c) - (k * y1)))
else if (y5 <= 9.2d-303) then
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_2))
else if (y5 <= 1.25d-97) then
tmp = t_1
else if (y5 <= 6.2d+121) then
tmp = y * ((x * t_2) + (y3 * ((c * y4) - (a * y5))))
else
tmp = y5 * ((y0 * t_3) - (i * ((t * j) - (y * k))))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0))));
double t_2 = (a * b) - (c * i);
double t_3 = (j * y3) - (k * y2);
double tmp;
if (y5 <= -3.2e+189) {
tmp = y0 * (y5 * t_3);
} else if (y5 <= -1.3e-58) {
tmp = t_1;
} else if (y5 <= -1.06e-218) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y5 <= 9.2e-303) {
tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_2));
} else if (y5 <= 1.25e-97) {
tmp = t_1;
} else if (y5 <= 6.2e+121) {
tmp = y * ((x * t_2) + (y3 * ((c * y4) - (a * y5))));
} else {
tmp = y5 * ((y0 * t_3) - (i * ((t * j) - (y * k))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))) t_2 = (a * b) - (c * i) t_3 = (j * y3) - (k * y2) tmp = 0 if y5 <= -3.2e+189: tmp = y0 * (y5 * t_3) elif y5 <= -1.3e-58: tmp = t_1 elif y5 <= -1.06e-218: tmp = i * (z * ((t * c) - (k * y1))) elif y5 <= 9.2e-303: tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_2)) elif y5 <= 1.25e-97: tmp = t_1 elif y5 <= 6.2e+121: tmp = y * ((x * t_2) + (y3 * ((c * y4) - (a * y5)))) else: tmp = y5 * ((y0 * t_3) - (i * ((t * j) - (y * k)))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4))) + Float64(b * Float64(Float64(t * y4) - Float64(x * y0))))) t_2 = Float64(Float64(a * b) - Float64(c * i)) t_3 = Float64(Float64(j * y3) - Float64(k * y2)) tmp = 0.0 if (y5 <= -3.2e+189) tmp = Float64(y0 * Float64(y5 * t_3)); elseif (y5 <= -1.3e-58) tmp = t_1; elseif (y5 <= -1.06e-218) tmp = Float64(i * Float64(z * Float64(Float64(t * c) - Float64(k * y1)))); elseif (y5 <= 9.2e-303) tmp = Float64(z * Float64(Float64(y3 * Float64(Float64(a * y1) - Float64(c * y0))) - Float64(t * t_2))); elseif (y5 <= 1.25e-97) tmp = t_1; elseif (y5 <= 6.2e+121) tmp = Float64(y * Float64(Float64(x * t_2) + Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5))))); else tmp = Float64(y5 * Float64(Float64(y0 * t_3) - Float64(i * Float64(Float64(t * j) - Float64(y * k))))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * ((y3 * ((y0 * y5) - (y1 * y4))) + (b * ((t * y4) - (x * y0)))); t_2 = (a * b) - (c * i); t_3 = (j * y3) - (k * y2); tmp = 0.0; if (y5 <= -3.2e+189) tmp = y0 * (y5 * t_3); elseif (y5 <= -1.3e-58) tmp = t_1; elseif (y5 <= -1.06e-218) tmp = i * (z * ((t * c) - (k * y1))); elseif (y5 <= 9.2e-303) tmp = z * ((y3 * ((a * y1) - (c * y0))) - (t * t_2)); elseif (y5 <= 1.25e-97) tmp = t_1; elseif (y5 <= 6.2e+121) tmp = y * ((x * t_2) + (y3 * ((c * y4) - (a * y5)))); else tmp = y5 * ((y0 * t_3) - (i * ((t * j) - (y * k)))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -3.2e+189], N[(y0 * N[(y5 * t$95$3), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.3e-58], t$95$1, If[LessEqual[y5, -1.06e-218], N[(i * N[(z * N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 9.2e-303], N[(z * N[(N[(y3 * N[(N[(a * y1), $MachinePrecision] - N[(c * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.25e-97], t$95$1, If[LessEqual[y5, 6.2e+121], N[(y * N[(N[(x * t$95$2), $MachinePrecision] + N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y5 * N[(N[(y0 * t$95$3), $MachinePrecision] - N[(i * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) + b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
t_2 := a \cdot b - c \cdot i\\
t_3 := j \cdot y3 - k \cdot y2\\
\mathbf{if}\;y5 \leq -3.2 \cdot 10^{+189}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot t\_3\right)\\
\mathbf{elif}\;y5 \leq -1.3 \cdot 10^{-58}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq -1.06 \cdot 10^{-218}:\\
\;\;\;\;i \cdot \left(z \cdot \left(t \cdot c - k \cdot y1\right)\right)\\
\mathbf{elif}\;y5 \leq 9.2 \cdot 10^{-303}:\\
\;\;\;\;z \cdot \left(y3 \cdot \left(a \cdot y1 - c \cdot y0\right) - t \cdot t\_2\right)\\
\mathbf{elif}\;y5 \leq 1.25 \cdot 10^{-97}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 6.2 \cdot 10^{+121}:\\
\;\;\;\;y \cdot \left(x \cdot t\_2 + y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y5 \cdot \left(y0 \cdot t\_3 - i \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\end{array}
\end{array}
if y5 < -3.2000000000000001e189Initial program 17.6%
Taylor expanded in i around -inf 35.3%
Taylor expanded in y0 around inf 56.7%
mul-1-neg56.7%
Simplified56.7%
if -3.2000000000000001e189 < y5 < -1.30000000000000003e-58 or 9.19999999999999981e-303 < y5 < 1.2499999999999999e-97Initial program 36.4%
Taylor expanded in b around inf 47.1%
Taylor expanded in j around inf 48.3%
if -1.30000000000000003e-58 < y5 < -1.0600000000000001e-218Initial program 36.4%
Taylor expanded in i around -inf 39.8%
Taylor expanded in z around -inf 45.2%
if -1.0600000000000001e-218 < y5 < 9.19999999999999981e-303Initial program 58.8%
Taylor expanded in k around 0 41.2%
Taylor expanded in z around -inf 82.9%
if 1.2499999999999999e-97 < y5 < 6.20000000000000016e121Initial program 28.8%
Taylor expanded in k around 0 23.7%
Taylor expanded in y around inf 54.4%
mul-1-neg54.4%
Simplified54.4%
if 6.20000000000000016e121 < y5 Initial program 15.4%
Taylor expanded in i around -inf 38.6%
Taylor expanded in y5 around -inf 50.4%
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 (* y4 (- (* t j) (* y k)))))
(t_2 (* k (* y1 (- (* y2 y4) (* z i))))))
(if (<= y4 -8.2e+190)
t_2
(if (<= y4 -1.1e-75)
t_1
(if (<= y4 1.35e-223)
(* i (* z (- (* t c) (* k y1))))
(if (<= y4 1.65e-136)
(* b (* j (* x (- y0))))
(if (<= y4 1.04e-54)
(* t (* y2 (- (* a y5) (* c y4))))
(if (<= y4 6.2e-24)
t_1
(if (<= y4 1.6e+253)
(* c (* y4 (- (* y y3) (* t y2))))
t_2)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y4 * ((t * j) - (y * k)));
double t_2 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (y4 <= -8.2e+190) {
tmp = t_2;
} else if (y4 <= -1.1e-75) {
tmp = t_1;
} else if (y4 <= 1.35e-223) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y4 <= 1.65e-136) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 1.04e-54) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y4 <= 6.2e-24) {
tmp = t_1;
} else if (y4 <= 1.6e+253) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = b * (y4 * ((t * j) - (y * k)))
t_2 = k * (y1 * ((y2 * y4) - (z * i)))
if (y4 <= (-8.2d+190)) then
tmp = t_2
else if (y4 <= (-1.1d-75)) then
tmp = t_1
else if (y4 <= 1.35d-223) then
tmp = i * (z * ((t * c) - (k * y1)))
else if (y4 <= 1.65d-136) then
tmp = b * (j * (x * -y0))
else if (y4 <= 1.04d-54) then
tmp = t * (y2 * ((a * y5) - (c * y4)))
else if (y4 <= 6.2d-24) then
tmp = t_1
else if (y4 <= 1.6d+253) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y4 * ((t * j) - (y * k)));
double t_2 = k * (y1 * ((y2 * y4) - (z * i)));
double tmp;
if (y4 <= -8.2e+190) {
tmp = t_2;
} else if (y4 <= -1.1e-75) {
tmp = t_1;
} else if (y4 <= 1.35e-223) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y4 <= 1.65e-136) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 1.04e-54) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y4 <= 6.2e-24) {
tmp = t_1;
} else if (y4 <= 1.6e+253) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (y4 * ((t * j) - (y * k))) t_2 = k * (y1 * ((y2 * y4) - (z * i))) tmp = 0 if y4 <= -8.2e+190: tmp = t_2 elif y4 <= -1.1e-75: tmp = t_1 elif y4 <= 1.35e-223: tmp = i * (z * ((t * c) - (k * y1))) elif y4 <= 1.65e-136: tmp = b * (j * (x * -y0)) elif y4 <= 1.04e-54: tmp = t * (y2 * ((a * y5) - (c * y4))) elif y4 <= 6.2e-24: tmp = t_1 elif y4 <= 1.6e+253: tmp = c * (y4 * ((y * y3) - (t * y2))) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) t_2 = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))) tmp = 0.0 if (y4 <= -8.2e+190) tmp = t_2; elseif (y4 <= -1.1e-75) tmp = t_1; elseif (y4 <= 1.35e-223) tmp = Float64(i * Float64(z * Float64(Float64(t * c) - Float64(k * y1)))); elseif (y4 <= 1.65e-136) tmp = Float64(b * Float64(j * Float64(x * Float64(-y0)))); elseif (y4 <= 1.04e-54) tmp = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))); elseif (y4 <= 6.2e-24) tmp = t_1; elseif (y4 <= 1.6e+253) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (y4 * ((t * j) - (y * k))); t_2 = k * (y1 * ((y2 * y4) - (z * i))); tmp = 0.0; if (y4 <= -8.2e+190) tmp = t_2; elseif (y4 <= -1.1e-75) tmp = t_1; elseif (y4 <= 1.35e-223) tmp = i * (z * ((t * c) - (k * y1))); elseif (y4 <= 1.65e-136) tmp = b * (j * (x * -y0)); elseif (y4 <= 1.04e-54) tmp = t * (y2 * ((a * y5) - (c * y4))); elseif (y4 <= 6.2e-24) tmp = t_1; elseif (y4 <= 1.6e+253) tmp = c * (y4 * ((y * y3) - (t * y2))); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -8.2e+190], t$95$2, If[LessEqual[y4, -1.1e-75], t$95$1, If[LessEqual[y4, 1.35e-223], N[(i * N[(z * N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.65e-136], N[(b * N[(j * N[(x * (-y0)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.04e-54], N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 6.2e-24], t$95$1, If[LessEqual[y4, 1.6e+253], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
t_2 := k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{if}\;y4 \leq -8.2 \cdot 10^{+190}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq -1.1 \cdot 10^{-75}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 1.35 \cdot 10^{-223}:\\
\;\;\;\;i \cdot \left(z \cdot \left(t \cdot c - k \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 1.65 \cdot 10^{-136}:\\
\;\;\;\;b \cdot \left(j \cdot \left(x \cdot \left(-y0\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 1.04 \cdot 10^{-54}:\\
\;\;\;\;t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y4 \leq 6.2 \cdot 10^{-24}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 1.6 \cdot 10^{+253}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y4 < -8.2000000000000004e190 or 1.6000000000000002e253 < y4 Initial program 21.1%
Taylor expanded in k around inf 37.0%
Taylor expanded in y1 around inf 53.2%
if -8.2000000000000004e190 < y4 < -1.10000000000000003e-75 or 1.04e-54 < y4 < 6.2000000000000001e-24Initial program 33.8%
Taylor expanded in y4 around inf 43.9%
Taylor expanded in b around inf 48.9%
if -1.10000000000000003e-75 < y4 < 1.34999999999999994e-223Initial program 43.0%
Taylor expanded in i around -inf 41.7%
Taylor expanded in z around -inf 35.8%
if 1.34999999999999994e-223 < y4 < 1.65000000000000009e-136Initial program 31.9%
Taylor expanded in k around 0 28.1%
Taylor expanded in b around inf 44.8%
Taylor expanded in y0 around inf 48.9%
if 1.65000000000000009e-136 < y4 < 1.04e-54Initial program 42.9%
Taylor expanded in y2 around inf 52.0%
Taylor expanded in t around inf 51.8%
if 6.2000000000000001e-24 < y4 < 1.6000000000000002e253Initial program 22.6%
Taylor expanded in y4 around inf 53.0%
Taylor expanded in c around inf 48.0%
Final simplification46.4%
(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 (* i (* z (- (* t c) (* k y1))))))
(if (<= z -1850.0)
t_2
(if (<= z -1.6e-300)
t_1
(if (<= z 7.8e-219)
(* k (* y5 (* y0 (- y2))))
(if (<= z 2.3e-194)
(* (* x y) (* a b))
(if (<= z 5.8e-140)
(* (* j y0) (* y3 y5))
(if (<= z 1.95e-47)
t_1
(if (<= z 1.42e+144)
(* b (* y4 (- (* t j) (* y k))))
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 = c * (y4 * ((y * y3) - (t * y2)));
double t_2 = i * (z * ((t * c) - (k * y1)));
double tmp;
if (z <= -1850.0) {
tmp = t_2;
} else if (z <= -1.6e-300) {
tmp = t_1;
} else if (z <= 7.8e-219) {
tmp = k * (y5 * (y0 * -y2));
} else if (z <= 2.3e-194) {
tmp = (x * y) * (a * b);
} else if (z <= 5.8e-140) {
tmp = (j * y0) * (y3 * y5);
} else if (z <= 1.95e-47) {
tmp = t_1;
} else if (z <= 1.42e+144) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = c * (y4 * ((y * y3) - (t * y2)))
t_2 = i * (z * ((t * c) - (k * y1)))
if (z <= (-1850.0d0)) then
tmp = t_2
else if (z <= (-1.6d-300)) then
tmp = t_1
else if (z <= 7.8d-219) then
tmp = k * (y5 * (y0 * -y2))
else if (z <= 2.3d-194) then
tmp = (x * y) * (a * b)
else if (z <= 5.8d-140) then
tmp = (j * y0) * (y3 * y5)
else if (z <= 1.95d-47) then
tmp = t_1
else if (z <= 1.42d+144) then
tmp = b * (y4 * ((t * j) - (y * k)))
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 = c * (y4 * ((y * y3) - (t * y2)));
double t_2 = i * (z * ((t * c) - (k * y1)));
double tmp;
if (z <= -1850.0) {
tmp = t_2;
} else if (z <= -1.6e-300) {
tmp = t_1;
} else if (z <= 7.8e-219) {
tmp = k * (y5 * (y0 * -y2));
} else if (z <= 2.3e-194) {
tmp = (x * y) * (a * b);
} else if (z <= 5.8e-140) {
tmp = (j * y0) * (y3 * y5);
} else if (z <= 1.95e-47) {
tmp = t_1;
} else if (z <= 1.42e+144) {
tmp = b * (y4 * ((t * j) - (y * k)));
} 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 = c * (y4 * ((y * y3) - (t * y2))) t_2 = i * (z * ((t * c) - (k * y1))) tmp = 0 if z <= -1850.0: tmp = t_2 elif z <= -1.6e-300: tmp = t_1 elif z <= 7.8e-219: tmp = k * (y5 * (y0 * -y2)) elif z <= 2.3e-194: tmp = (x * y) * (a * b) elif z <= 5.8e-140: tmp = (j * y0) * (y3 * y5) elif z <= 1.95e-47: tmp = t_1 elif z <= 1.42e+144: tmp = b * (y4 * ((t * j) - (y * k))) 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(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))) t_2 = Float64(i * Float64(z * Float64(Float64(t * c) - Float64(k * y1)))) tmp = 0.0 if (z <= -1850.0) tmp = t_2; elseif (z <= -1.6e-300) tmp = t_1; elseif (z <= 7.8e-219) tmp = Float64(k * Float64(y5 * Float64(y0 * Float64(-y2)))); elseif (z <= 2.3e-194) tmp = Float64(Float64(x * y) * Float64(a * b)); elseif (z <= 5.8e-140) tmp = Float64(Float64(j * y0) * Float64(y3 * y5)); elseif (z <= 1.95e-47) tmp = t_1; elseif (z <= 1.42e+144) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); 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 = c * (y4 * ((y * y3) - (t * y2))); t_2 = i * (z * ((t * c) - (k * y1))); tmp = 0.0; if (z <= -1850.0) tmp = t_2; elseif (z <= -1.6e-300) tmp = t_1; elseif (z <= 7.8e-219) tmp = k * (y5 * (y0 * -y2)); elseif (z <= 2.3e-194) tmp = (x * y) * (a * b); elseif (z <= 5.8e-140) tmp = (j * y0) * (y3 * y5); elseif (z <= 1.95e-47) tmp = t_1; elseif (z <= 1.42e+144) tmp = b * (y4 * ((t * j) - (y * k))); 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[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(i * N[(z * N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -1850.0], t$95$2, If[LessEqual[z, -1.6e-300], t$95$1, If[LessEqual[z, 7.8e-219], N[(k * N[(y5 * N[(y0 * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.3e-194], N[(N[(x * y), $MachinePrecision] * N[(a * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 5.8e-140], N[(N[(j * y0), $MachinePrecision] * N[(y3 * y5), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.95e-47], t$95$1, If[LessEqual[z, 1.42e+144], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_2 := i \cdot \left(z \cdot \left(t \cdot c - k \cdot y1\right)\right)\\
\mathbf{if}\;z \leq -1850:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;z \leq -1.6 \cdot 10^{-300}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 7.8 \cdot 10^{-219}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y0 \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;z \leq 2.3 \cdot 10^{-194}:\\
\;\;\;\;\left(x \cdot y\right) \cdot \left(a \cdot b\right)\\
\mathbf{elif}\;z \leq 5.8 \cdot 10^{-140}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5\right)\\
\mathbf{elif}\;z \leq 1.95 \cdot 10^{-47}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 1.42 \cdot 10^{+144}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if z < -1850 or 1.42000000000000009e144 < z Initial program 25.8%
Taylor expanded in i around -inf 37.0%
Taylor expanded in z around -inf 45.7%
if -1850 < z < -1.60000000000000011e-300 or 5.79999999999999995e-140 < z < 1.94999999999999989e-47Initial program 37.6%
Taylor expanded in y4 around inf 42.8%
Taylor expanded in c around inf 37.6%
if -1.60000000000000011e-300 < z < 7.79999999999999974e-219Initial program 38.0%
Taylor expanded in k around inf 34.3%
Taylor expanded in y5 around inf 43.9%
Taylor expanded in y0 around inf 43.5%
mul-1-neg43.5%
associate-*r*43.5%
distribute-lft-neg-out43.5%
*-commutative43.5%
distribute-lft-neg-in43.5%
Simplified43.5%
if 7.79999999999999974e-219 < z < 2.30000000000000003e-194Initial program 30.5%
Taylor expanded in k around 0 30.5%
Taylor expanded in b around inf 57.2%
Taylor expanded in y around inf 57.3%
pow157.3%
Applied egg-rr57.3%
unpow157.3%
associate-*r*57.3%
Simplified57.3%
if 2.30000000000000003e-194 < z < 5.79999999999999995e-140Initial program 33.3%
Taylor expanded in b around inf 33.3%
Taylor expanded in j around inf 68.1%
Taylor expanded in y5 around inf 47.0%
associate-*r*57.1%
Simplified57.1%
if 1.94999999999999989e-47 < z < 1.42000000000000009e144Initial program 30.4%
Taylor expanded in y4 around inf 48.8%
Taylor expanded in b around inf 48.8%
Final simplification44.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y4 (- (* t j) (* y k)))))
(t_2 (* c (* y4 (- (* y y3) (* t y2))))))
(if (<= y4 -2.15e+203)
t_2
(if (<= y4 -4.1e-77)
t_1
(if (<= y4 -2.6e-253)
(* i (* k (- (* y y5) (* z y1))))
(if (<= y4 4.1e-226)
(* a (* (* z t) (- b)))
(if (<= y4 5.2e-134)
(* b (* j (* x (- y0))))
(if (<= y4 2.4e-94)
(* t (* a (* y2 y5)))
(if (<= y4 4e-20) t_1 t_2)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y4 * ((t * j) - (y * k)));
double t_2 = c * (y4 * ((y * y3) - (t * y2)));
double tmp;
if (y4 <= -2.15e+203) {
tmp = t_2;
} else if (y4 <= -4.1e-77) {
tmp = t_1;
} else if (y4 <= -2.6e-253) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y4 <= 4.1e-226) {
tmp = a * ((z * t) * -b);
} else if (y4 <= 5.2e-134) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 2.4e-94) {
tmp = t * (a * (y2 * y5));
} else if (y4 <= 4e-20) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = b * (y4 * ((t * j) - (y * k)))
t_2 = c * (y4 * ((y * y3) - (t * y2)))
if (y4 <= (-2.15d+203)) then
tmp = t_2
else if (y4 <= (-4.1d-77)) then
tmp = t_1
else if (y4 <= (-2.6d-253)) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (y4 <= 4.1d-226) then
tmp = a * ((z * t) * -b)
else if (y4 <= 5.2d-134) then
tmp = b * (j * (x * -y0))
else if (y4 <= 2.4d-94) then
tmp = t * (a * (y2 * y5))
else if (y4 <= 4d-20) then
tmp = t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y4 * ((t * j) - (y * k)));
double t_2 = c * (y4 * ((y * y3) - (t * y2)));
double tmp;
if (y4 <= -2.15e+203) {
tmp = t_2;
} else if (y4 <= -4.1e-77) {
tmp = t_1;
} else if (y4 <= -2.6e-253) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (y4 <= 4.1e-226) {
tmp = a * ((z * t) * -b);
} else if (y4 <= 5.2e-134) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 2.4e-94) {
tmp = t * (a * (y2 * y5));
} else if (y4 <= 4e-20) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (y4 * ((t * j) - (y * k))) t_2 = c * (y4 * ((y * y3) - (t * y2))) tmp = 0 if y4 <= -2.15e+203: tmp = t_2 elif y4 <= -4.1e-77: tmp = t_1 elif y4 <= -2.6e-253: tmp = i * (k * ((y * y5) - (z * y1))) elif y4 <= 4.1e-226: tmp = a * ((z * t) * -b) elif y4 <= 5.2e-134: tmp = b * (j * (x * -y0)) elif y4 <= 2.4e-94: tmp = t * (a * (y2 * y5)) elif y4 <= 4e-20: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) t_2 = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))) tmp = 0.0 if (y4 <= -2.15e+203) tmp = t_2; elseif (y4 <= -4.1e-77) tmp = t_1; elseif (y4 <= -2.6e-253) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (y4 <= 4.1e-226) tmp = Float64(a * Float64(Float64(z * t) * Float64(-b))); elseif (y4 <= 5.2e-134) tmp = Float64(b * Float64(j * Float64(x * Float64(-y0)))); elseif (y4 <= 2.4e-94) tmp = Float64(t * Float64(a * Float64(y2 * y5))); elseif (y4 <= 4e-20) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (y4 * ((t * j) - (y * k))); t_2 = c * (y4 * ((y * y3) - (t * y2))); tmp = 0.0; if (y4 <= -2.15e+203) tmp = t_2; elseif (y4 <= -4.1e-77) tmp = t_1; elseif (y4 <= -2.6e-253) tmp = i * (k * ((y * y5) - (z * y1))); elseif (y4 <= 4.1e-226) tmp = a * ((z * t) * -b); elseif (y4 <= 5.2e-134) tmp = b * (j * (x * -y0)); elseif (y4 <= 2.4e-94) tmp = t * (a * (y2 * y5)); elseif (y4 <= 4e-20) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -2.15e+203], t$95$2, If[LessEqual[y4, -4.1e-77], t$95$1, If[LessEqual[y4, -2.6e-253], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 4.1e-226], N[(a * N[(N[(z * t), $MachinePrecision] * (-b)), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 5.2e-134], N[(b * N[(j * N[(x * (-y0)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 2.4e-94], N[(t * N[(a * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 4e-20], t$95$1, t$95$2]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
t_2 := c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{if}\;y4 \leq -2.15 \cdot 10^{+203}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq -4.1 \cdot 10^{-77}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -2.6 \cdot 10^{-253}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 4.1 \cdot 10^{-226}:\\
\;\;\;\;a \cdot \left(\left(z \cdot t\right) \cdot \left(-b\right)\right)\\
\mathbf{elif}\;y4 \leq 5.2 \cdot 10^{-134}:\\
\;\;\;\;b \cdot \left(j \cdot \left(x \cdot \left(-y0\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 2.4 \cdot 10^{-94}:\\
\;\;\;\;t \cdot \left(a \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y4 \leq 4 \cdot 10^{-20}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y4 < -2.15e203 or 3.99999999999999978e-20 < y4 Initial program 21.6%
Taylor expanded in y4 around inf 52.7%
Taylor expanded in c around inf 46.1%
if -2.15e203 < y4 < -4.09999999999999962e-77 or 2.4e-94 < y4 < 3.99999999999999978e-20Initial program 35.9%
Taylor expanded in y4 around inf 46.2%
Taylor expanded in b around inf 45.3%
if -4.09999999999999962e-77 < y4 < -2.6e-253Initial program 49.0%
Taylor expanded in k around inf 40.0%
Taylor expanded in i around inf 32.3%
if -2.6e-253 < y4 < 4.10000000000000037e-226Initial program 35.0%
Taylor expanded in k around 0 30.8%
Taylor expanded in b around inf 24.6%
Taylor expanded in z around inf 32.2%
mul-1-neg32.2%
distribute-rgt-neg-in32.2%
Simplified32.2%
if 4.10000000000000037e-226 < y4 < 5.20000000000000045e-134Initial program 31.9%
Taylor expanded in k around 0 28.1%
Taylor expanded in b around inf 44.8%
Taylor expanded in y0 around inf 48.9%
if 5.20000000000000045e-134 < y4 < 2.4e-94Initial program 33.3%
Taylor expanded in y2 around inf 56.9%
Taylor expanded in t around inf 56.6%
Taylor expanded in a around inf 56.4%
Final simplification43.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y4 (- (* t j) (* y k)))))
(t_2 (* c (* y4 (- (* y y3) (* t y2))))))
(if (<= y4 -2.2e+204)
t_2
(if (<= y4 -7e-30)
t_1
(if (<= y4 2.5e-244)
(* k (* y5 (* y0 (- y2))))
(if (<= y4 1.65e-136)
(* b (* j (* x (- y0))))
(if (<= y4 1.4e-87)
(* t (* a (* y2 y5)))
(if (<= y4 4.2e-21) t_1 t_2))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y4 * ((t * j) - (y * k)));
double t_2 = c * (y4 * ((y * y3) - (t * y2)));
double tmp;
if (y4 <= -2.2e+204) {
tmp = t_2;
} else if (y4 <= -7e-30) {
tmp = t_1;
} else if (y4 <= 2.5e-244) {
tmp = k * (y5 * (y0 * -y2));
} else if (y4 <= 1.65e-136) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 1.4e-87) {
tmp = t * (a * (y2 * y5));
} else if (y4 <= 4.2e-21) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = b * (y4 * ((t * j) - (y * k)))
t_2 = c * (y4 * ((y * y3) - (t * y2)))
if (y4 <= (-2.2d+204)) then
tmp = t_2
else if (y4 <= (-7d-30)) then
tmp = t_1
else if (y4 <= 2.5d-244) then
tmp = k * (y5 * (y0 * -y2))
else if (y4 <= 1.65d-136) then
tmp = b * (j * (x * -y0))
else if (y4 <= 1.4d-87) then
tmp = t * (a * (y2 * y5))
else if (y4 <= 4.2d-21) then
tmp = t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (y4 * ((t * j) - (y * k)));
double t_2 = c * (y4 * ((y * y3) - (t * y2)));
double tmp;
if (y4 <= -2.2e+204) {
tmp = t_2;
} else if (y4 <= -7e-30) {
tmp = t_1;
} else if (y4 <= 2.5e-244) {
tmp = k * (y5 * (y0 * -y2));
} else if (y4 <= 1.65e-136) {
tmp = b * (j * (x * -y0));
} else if (y4 <= 1.4e-87) {
tmp = t * (a * (y2 * y5));
} else if (y4 <= 4.2e-21) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (y4 * ((t * j) - (y * k))) t_2 = c * (y4 * ((y * y3) - (t * y2))) tmp = 0 if y4 <= -2.2e+204: tmp = t_2 elif y4 <= -7e-30: tmp = t_1 elif y4 <= 2.5e-244: tmp = k * (y5 * (y0 * -y2)) elif y4 <= 1.65e-136: tmp = b * (j * (x * -y0)) elif y4 <= 1.4e-87: tmp = t * (a * (y2 * y5)) elif y4 <= 4.2e-21: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) t_2 = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))) tmp = 0.0 if (y4 <= -2.2e+204) tmp = t_2; elseif (y4 <= -7e-30) tmp = t_1; elseif (y4 <= 2.5e-244) tmp = Float64(k * Float64(y5 * Float64(y0 * Float64(-y2)))); elseif (y4 <= 1.65e-136) tmp = Float64(b * Float64(j * Float64(x * Float64(-y0)))); elseif (y4 <= 1.4e-87) tmp = Float64(t * Float64(a * Float64(y2 * y5))); elseif (y4 <= 4.2e-21) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (y4 * ((t * j) - (y * k))); t_2 = c * (y4 * ((y * y3) - (t * y2))); tmp = 0.0; if (y4 <= -2.2e+204) tmp = t_2; elseif (y4 <= -7e-30) tmp = t_1; elseif (y4 <= 2.5e-244) tmp = k * (y5 * (y0 * -y2)); elseif (y4 <= 1.65e-136) tmp = b * (j * (x * -y0)); elseif (y4 <= 1.4e-87) tmp = t * (a * (y2 * y5)); elseif (y4 <= 4.2e-21) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -2.2e+204], t$95$2, If[LessEqual[y4, -7e-30], t$95$1, If[LessEqual[y4, 2.5e-244], N[(k * N[(y5 * N[(y0 * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.65e-136], N[(b * N[(j * N[(x * (-y0)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.4e-87], N[(t * N[(a * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 4.2e-21], t$95$1, t$95$2]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
t_2 := c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{if}\;y4 \leq -2.2 \cdot 10^{+204}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq -7 \cdot 10^{-30}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 2.5 \cdot 10^{-244}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y0 \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 1.65 \cdot 10^{-136}:\\
\;\;\;\;b \cdot \left(j \cdot \left(x \cdot \left(-y0\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 1.4 \cdot 10^{-87}:\\
\;\;\;\;t \cdot \left(a \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y4 \leq 4.2 \cdot 10^{-21}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y4 < -2.20000000000000011e204 or 4.20000000000000025e-21 < y4 Initial program 21.6%
Taylor expanded in y4 around inf 52.7%
Taylor expanded in c around inf 46.1%
if -2.20000000000000011e204 < y4 < -7.0000000000000006e-30 or 1.4e-87 < y4 < 4.20000000000000025e-21Initial program 35.4%
Taylor expanded in y4 around inf 47.6%
Taylor expanded in b around inf 51.2%
if -7.0000000000000006e-30 < y4 < 2.49999999999999999e-244Initial program 42.4%
Taylor expanded in k around inf 31.6%
Taylor expanded in y5 around inf 30.5%
Taylor expanded in y0 around inf 23.6%
mul-1-neg23.6%
associate-*r*23.6%
distribute-lft-neg-out23.6%
*-commutative23.6%
distribute-lft-neg-in23.6%
Simplified23.6%
if 2.49999999999999999e-244 < y4 < 1.65000000000000009e-136Initial program 32.0%
Taylor expanded in k around 0 28.8%
Taylor expanded in b around inf 43.7%
Taylor expanded in y0 around inf 43.9%
if 1.65000000000000009e-136 < y4 < 1.4e-87Initial program 33.3%
Taylor expanded in y2 around inf 56.9%
Taylor expanded in t around inf 56.6%
Taylor expanded in a around inf 56.4%
Final simplification41.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y4 (* t j)))))
(if (<= j -9.5e+227)
(* j (* y0 (* y3 y5)))
(if (<= j -1.95e+169)
(* a (* y (* x b)))
(if (<= j -7e+128)
t_1
(if (<= j -3.2e-283)
(* k (* y4 (* y1 y2)))
(if (<= j 8.2e-148)
(* a (* (* x y) b))
(if (<= j 22000000000.0) (* y1 (* y4 (* k 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 = b * (y4 * (t * j));
double tmp;
if (j <= -9.5e+227) {
tmp = j * (y0 * (y3 * y5));
} else if (j <= -1.95e+169) {
tmp = a * (y * (x * b));
} else if (j <= -7e+128) {
tmp = t_1;
} else if (j <= -3.2e-283) {
tmp = k * (y4 * (y1 * y2));
} else if (j <= 8.2e-148) {
tmp = a * ((x * y) * b);
} else if (j <= 22000000000.0) {
tmp = y1 * (y4 * (k * 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) :: tmp
t_1 = b * (y4 * (t * j))
if (j <= (-9.5d+227)) then
tmp = j * (y0 * (y3 * y5))
else if (j <= (-1.95d+169)) then
tmp = a * (y * (x * b))
else if (j <= (-7d+128)) then
tmp = t_1
else if (j <= (-3.2d-283)) then
tmp = k * (y4 * (y1 * y2))
else if (j <= 8.2d-148) then
tmp = a * ((x * y) * b)
else if (j <= 22000000000.0d0) then
tmp = y1 * (y4 * (k * 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 = b * (y4 * (t * j));
double tmp;
if (j <= -9.5e+227) {
tmp = j * (y0 * (y3 * y5));
} else if (j <= -1.95e+169) {
tmp = a * (y * (x * b));
} else if (j <= -7e+128) {
tmp = t_1;
} else if (j <= -3.2e-283) {
tmp = k * (y4 * (y1 * y2));
} else if (j <= 8.2e-148) {
tmp = a * ((x * y) * b);
} else if (j <= 22000000000.0) {
tmp = y1 * (y4 * (k * 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 = b * (y4 * (t * j)) tmp = 0 if j <= -9.5e+227: tmp = j * (y0 * (y3 * y5)) elif j <= -1.95e+169: tmp = a * (y * (x * b)) elif j <= -7e+128: tmp = t_1 elif j <= -3.2e-283: tmp = k * (y4 * (y1 * y2)) elif j <= 8.2e-148: tmp = a * ((x * y) * b) elif j <= 22000000000.0: tmp = y1 * (y4 * (k * 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(b * Float64(y4 * Float64(t * j))) tmp = 0.0 if (j <= -9.5e+227) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (j <= -1.95e+169) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (j <= -7e+128) tmp = t_1; elseif (j <= -3.2e-283) tmp = Float64(k * Float64(y4 * Float64(y1 * y2))); elseif (j <= 8.2e-148) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (j <= 22000000000.0) tmp = Float64(y1 * Float64(y4 * Float64(k * 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 = b * (y4 * (t * j)); tmp = 0.0; if (j <= -9.5e+227) tmp = j * (y0 * (y3 * y5)); elseif (j <= -1.95e+169) tmp = a * (y * (x * b)); elseif (j <= -7e+128) tmp = t_1; elseif (j <= -3.2e-283) tmp = k * (y4 * (y1 * y2)); elseif (j <= 8.2e-148) tmp = a * ((x * y) * b); elseif (j <= 22000000000.0) tmp = y1 * (y4 * (k * 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[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, -9.5e+227], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -1.95e+169], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -7e+128], t$95$1, If[LessEqual[j, -3.2e-283], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 8.2e-148], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 22000000000.0], N[(y1 * N[(y4 * N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{if}\;j \leq -9.5 \cdot 10^{+227}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;j \leq -1.95 \cdot 10^{+169}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;j \leq -7 \cdot 10^{+128}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -3.2 \cdot 10^{-283}:\\
\;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\
\mathbf{elif}\;j \leq 8.2 \cdot 10^{-148}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;j \leq 22000000000:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if j < -9.5000000000000005e227Initial program 24.9%
Taylor expanded in i around -inf 49.9%
Taylor expanded in y3 around inf 67.5%
mul-1-neg67.5%
Simplified67.5%
Taylor expanded in y1 around 0 49.7%
if -9.5000000000000005e227 < j < -1.94999999999999991e169Initial program 25.0%
Taylor expanded in k around 0 25.0%
Taylor expanded in b around inf 17.4%
Taylor expanded in y around inf 34.9%
associate-*r*43.0%
Simplified43.0%
if -1.94999999999999991e169 < j < -6.99999999999999937e128 or 2.2e10 < j Initial program 27.0%
Taylor expanded in y4 around inf 47.0%
Taylor expanded in b around inf 35.4%
Taylor expanded in j around inf 39.9%
if -6.99999999999999937e128 < j < -3.20000000000000012e-283Initial program 30.2%
Taylor expanded in y4 around inf 36.3%
Taylor expanded in y1 around inf 26.1%
Taylor expanded in k around inf 26.1%
associate-*r*27.1%
Simplified27.1%
if -3.20000000000000012e-283 < j < 8.2000000000000005e-148Initial program 38.9%
Taylor expanded in k around 0 24.7%
Taylor expanded in b around inf 37.8%
Taylor expanded in y around inf 26.0%
if 8.2000000000000005e-148 < j < 2.2e10Initial program 46.6%
Taylor expanded in y4 around inf 50.7%
Taylor expanded in y1 around inf 34.6%
Taylor expanded in k around inf 31.5%
Final simplification33.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y4 (* t j)))))
(if (<= j -7.8e+223)
(* j (* y0 (* y3 y5)))
(if (<= j -7.5e+168)
(* a (* y (* x b)))
(if (<= j -4.6e+129)
t_1
(if (<= j -3e-284)
(* k (* y4 (* y1 y2)))
(if (<= j 3.6e-182)
(* a (* (* x y) b))
(if (<= j 6.2e+47) (* t (* a (* 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 = b * (y4 * (t * j));
double tmp;
if (j <= -7.8e+223) {
tmp = j * (y0 * (y3 * y5));
} else if (j <= -7.5e+168) {
tmp = a * (y * (x * b));
} else if (j <= -4.6e+129) {
tmp = t_1;
} else if (j <= -3e-284) {
tmp = k * (y4 * (y1 * y2));
} else if (j <= 3.6e-182) {
tmp = a * ((x * y) * b);
} else if (j <= 6.2e+47) {
tmp = t * (a * (y2 * y5));
} 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 * (y4 * (t * j))
if (j <= (-7.8d+223)) then
tmp = j * (y0 * (y3 * y5))
else if (j <= (-7.5d+168)) then
tmp = a * (y * (x * b))
else if (j <= (-4.6d+129)) then
tmp = t_1
else if (j <= (-3d-284)) then
tmp = k * (y4 * (y1 * y2))
else if (j <= 3.6d-182) then
tmp = a * ((x * y) * b)
else if (j <= 6.2d+47) then
tmp = t * (a * (y2 * y5))
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 * (y4 * (t * j));
double tmp;
if (j <= -7.8e+223) {
tmp = j * (y0 * (y3 * y5));
} else if (j <= -7.5e+168) {
tmp = a * (y * (x * b));
} else if (j <= -4.6e+129) {
tmp = t_1;
} else if (j <= -3e-284) {
tmp = k * (y4 * (y1 * y2));
} else if (j <= 3.6e-182) {
tmp = a * ((x * y) * b);
} else if (j <= 6.2e+47) {
tmp = t * (a * (y2 * y5));
} 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 * (y4 * (t * j)) tmp = 0 if j <= -7.8e+223: tmp = j * (y0 * (y3 * y5)) elif j <= -7.5e+168: tmp = a * (y * (x * b)) elif j <= -4.6e+129: tmp = t_1 elif j <= -3e-284: tmp = k * (y4 * (y1 * y2)) elif j <= 3.6e-182: tmp = a * ((x * y) * b) elif j <= 6.2e+47: tmp = t * (a * (y2 * y5)) 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(y4 * Float64(t * j))) tmp = 0.0 if (j <= -7.8e+223) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (j <= -7.5e+168) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (j <= -4.6e+129) tmp = t_1; elseif (j <= -3e-284) tmp = Float64(k * Float64(y4 * Float64(y1 * y2))); elseif (j <= 3.6e-182) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (j <= 6.2e+47) tmp = Float64(t * Float64(a * Float64(y2 * y5))); 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 * (y4 * (t * j)); tmp = 0.0; if (j <= -7.8e+223) tmp = j * (y0 * (y3 * y5)); elseif (j <= -7.5e+168) tmp = a * (y * (x * b)); elseif (j <= -4.6e+129) tmp = t_1; elseif (j <= -3e-284) tmp = k * (y4 * (y1 * y2)); elseif (j <= 3.6e-182) tmp = a * ((x * y) * b); elseif (j <= 6.2e+47) tmp = t * (a * (y2 * y5)); 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[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, -7.8e+223], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -7.5e+168], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -4.6e+129], t$95$1, If[LessEqual[j, -3e-284], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.6e-182], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 6.2e+47], N[(t * N[(a * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{if}\;j \leq -7.8 \cdot 10^{+223}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;j \leq -7.5 \cdot 10^{+168}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;j \leq -4.6 \cdot 10^{+129}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -3 \cdot 10^{-284}:\\
\;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\
\mathbf{elif}\;j \leq 3.6 \cdot 10^{-182}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;j \leq 6.2 \cdot 10^{+47}:\\
\;\;\;\;t \cdot \left(a \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if j < -7.7999999999999997e223Initial program 24.9%
Taylor expanded in i around -inf 49.9%
Taylor expanded in y3 around inf 67.5%
mul-1-neg67.5%
Simplified67.5%
Taylor expanded in y1 around 0 49.7%
if -7.7999999999999997e223 < j < -7.4999999999999999e168Initial program 25.0%
Taylor expanded in k around 0 25.0%
Taylor expanded in b around inf 17.4%
Taylor expanded in y around inf 34.9%
associate-*r*43.0%
Simplified43.0%
if -7.4999999999999999e168 < j < -4.59999999999999981e129 or 6.2000000000000001e47 < j Initial program 26.8%
Taylor expanded in y4 around inf 47.4%
Taylor expanded in b around inf 34.4%
Taylor expanded in j around inf 39.4%
if -4.59999999999999981e129 < j < -3e-284Initial program 30.2%
Taylor expanded in y4 around inf 36.3%
Taylor expanded in y1 around inf 26.1%
Taylor expanded in k around inf 26.1%
associate-*r*27.1%
Simplified27.1%
if -3e-284 < j < 3.59999999999999977e-182Initial program 40.5%
Taylor expanded in k around 0 24.6%
Taylor expanded in b around inf 36.3%
Taylor expanded in y around inf 28.6%
if 3.59999999999999977e-182 < j < 6.2000000000000001e47Initial program 41.4%
Taylor expanded in y2 around inf 51.8%
Taylor expanded in t around inf 35.5%
Taylor expanded in a around inf 28.2%
Final simplification32.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y4 (* t j)))))
(if (<= j -3.7e+224)
(* j (* y0 (* y3 y5)))
(if (<= j -1.5e+169)
(* a (* y (* x b)))
(if (<= j -4.15e+133)
t_1
(if (<= j -9e-286)
(* k (* y4 (* y1 y2)))
(if (<= j 4.6e-149)
(* a (* (* x y) b))
(if (<= j 14000000000000.0) (* k (* y1 (* y2 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 * (y4 * (t * j));
double tmp;
if (j <= -3.7e+224) {
tmp = j * (y0 * (y3 * y5));
} else if (j <= -1.5e+169) {
tmp = a * (y * (x * b));
} else if (j <= -4.15e+133) {
tmp = t_1;
} else if (j <= -9e-286) {
tmp = k * (y4 * (y1 * y2));
} else if (j <= 4.6e-149) {
tmp = a * ((x * y) * b);
} else if (j <= 14000000000000.0) {
tmp = k * (y1 * (y2 * 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) :: tmp
t_1 = b * (y4 * (t * j))
if (j <= (-3.7d+224)) then
tmp = j * (y0 * (y3 * y5))
else if (j <= (-1.5d+169)) then
tmp = a * (y * (x * b))
else if (j <= (-4.15d+133)) then
tmp = t_1
else if (j <= (-9d-286)) then
tmp = k * (y4 * (y1 * y2))
else if (j <= 4.6d-149) then
tmp = a * ((x * y) * b)
else if (j <= 14000000000000.0d0) then
tmp = k * (y1 * (y2 * 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 * (y4 * (t * j));
double tmp;
if (j <= -3.7e+224) {
tmp = j * (y0 * (y3 * y5));
} else if (j <= -1.5e+169) {
tmp = a * (y * (x * b));
} else if (j <= -4.15e+133) {
tmp = t_1;
} else if (j <= -9e-286) {
tmp = k * (y4 * (y1 * y2));
} else if (j <= 4.6e-149) {
tmp = a * ((x * y) * b);
} else if (j <= 14000000000000.0) {
tmp = k * (y1 * (y2 * 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 * (y4 * (t * j)) tmp = 0 if j <= -3.7e+224: tmp = j * (y0 * (y3 * y5)) elif j <= -1.5e+169: tmp = a * (y * (x * b)) elif j <= -4.15e+133: tmp = t_1 elif j <= -9e-286: tmp = k * (y4 * (y1 * y2)) elif j <= 4.6e-149: tmp = a * ((x * y) * b) elif j <= 14000000000000.0: tmp = k * (y1 * (y2 * 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(y4 * Float64(t * j))) tmp = 0.0 if (j <= -3.7e+224) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (j <= -1.5e+169) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (j <= -4.15e+133) tmp = t_1; elseif (j <= -9e-286) tmp = Float64(k * Float64(y4 * Float64(y1 * y2))); elseif (j <= 4.6e-149) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (j <= 14000000000000.0) tmp = Float64(k * Float64(y1 * Float64(y2 * 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 * (y4 * (t * j)); tmp = 0.0; if (j <= -3.7e+224) tmp = j * (y0 * (y3 * y5)); elseif (j <= -1.5e+169) tmp = a * (y * (x * b)); elseif (j <= -4.15e+133) tmp = t_1; elseif (j <= -9e-286) tmp = k * (y4 * (y1 * y2)); elseif (j <= 4.6e-149) tmp = a * ((x * y) * b); elseif (j <= 14000000000000.0) tmp = k * (y1 * (y2 * 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[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, -3.7e+224], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -1.5e+169], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -4.15e+133], t$95$1, If[LessEqual[j, -9e-286], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 4.6e-149], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 14000000000000.0], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{if}\;j \leq -3.7 \cdot 10^{+224}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;j \leq -1.5 \cdot 10^{+169}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;j \leq -4.15 \cdot 10^{+133}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -9 \cdot 10^{-286}:\\
\;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\
\mathbf{elif}\;j \leq 4.6 \cdot 10^{-149}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;j \leq 14000000000000:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if j < -3.70000000000000003e224Initial program 24.9%
Taylor expanded in i around -inf 49.9%
Taylor expanded in y3 around inf 67.5%
mul-1-neg67.5%
Simplified67.5%
Taylor expanded in y1 around 0 49.7%
if -3.70000000000000003e224 < j < -1.5e169Initial program 25.0%
Taylor expanded in k around 0 25.0%
Taylor expanded in b around inf 17.4%
Taylor expanded in y around inf 34.9%
associate-*r*43.0%
Simplified43.0%
if -1.5e169 < j < -4.14999999999999976e133 or 1.4e13 < j Initial program 27.0%
Taylor expanded in y4 around inf 47.0%
Taylor expanded in b around inf 35.4%
Taylor expanded in j around inf 39.9%
if -4.14999999999999976e133 < j < -9.0000000000000001e-286Initial program 30.2%
Taylor expanded in y4 around inf 36.3%
Taylor expanded in y1 around inf 26.1%
Taylor expanded in k around inf 26.1%
associate-*r*27.1%
Simplified27.1%
if -9.0000000000000001e-286 < j < 4.5999999999999999e-149Initial program 38.9%
Taylor expanded in k around 0 24.7%
Taylor expanded in b around inf 37.8%
Taylor expanded in y around inf 26.0%
if 4.5999999999999999e-149 < j < 1.4e13Initial program 46.6%
Taylor expanded in y4 around inf 50.7%
Taylor expanded in y1 around inf 34.6%
Taylor expanded in k around inf 25.8%
Final simplification32.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* b (* y4 (* t j)))) (t_2 (* k (* y1 (* y2 y4)))))
(if (<= j -4.8e+224)
(* j (* y0 (* y3 y5)))
(if (<= j -1.95e+169)
(* a (* y (* x b)))
(if (<= j -7e+133)
t_1
(if (<= j -6.2e-294)
t_2
(if (<= j 4.8e-148)
(* a (* (* x y) b))
(if (<= j 7500000000.0) 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 * (y4 * (t * j));
double t_2 = k * (y1 * (y2 * y4));
double tmp;
if (j <= -4.8e+224) {
tmp = j * (y0 * (y3 * y5));
} else if (j <= -1.95e+169) {
tmp = a * (y * (x * b));
} else if (j <= -7e+133) {
tmp = t_1;
} else if (j <= -6.2e-294) {
tmp = t_2;
} else if (j <= 4.8e-148) {
tmp = a * ((x * y) * b);
} else if (j <= 7500000000.0) {
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 * (y4 * (t * j))
t_2 = k * (y1 * (y2 * y4))
if (j <= (-4.8d+224)) then
tmp = j * (y0 * (y3 * y5))
else if (j <= (-1.95d+169)) then
tmp = a * (y * (x * b))
else if (j <= (-7d+133)) then
tmp = t_1
else if (j <= (-6.2d-294)) then
tmp = t_2
else if (j <= 4.8d-148) then
tmp = a * ((x * y) * b)
else if (j <= 7500000000.0d0) 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 * (y4 * (t * j));
double t_2 = k * (y1 * (y2 * y4));
double tmp;
if (j <= -4.8e+224) {
tmp = j * (y0 * (y3 * y5));
} else if (j <= -1.95e+169) {
tmp = a * (y * (x * b));
} else if (j <= -7e+133) {
tmp = t_1;
} else if (j <= -6.2e-294) {
tmp = t_2;
} else if (j <= 4.8e-148) {
tmp = a * ((x * y) * b);
} else if (j <= 7500000000.0) {
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 * (y4 * (t * j)) t_2 = k * (y1 * (y2 * y4)) tmp = 0 if j <= -4.8e+224: tmp = j * (y0 * (y3 * y5)) elif j <= -1.95e+169: tmp = a * (y * (x * b)) elif j <= -7e+133: tmp = t_1 elif j <= -6.2e-294: tmp = t_2 elif j <= 4.8e-148: tmp = a * ((x * y) * b) elif j <= 7500000000.0: 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(y4 * Float64(t * j))) t_2 = Float64(k * Float64(y1 * Float64(y2 * y4))) tmp = 0.0 if (j <= -4.8e+224) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (j <= -1.95e+169) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (j <= -7e+133) tmp = t_1; elseif (j <= -6.2e-294) tmp = t_2; elseif (j <= 4.8e-148) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (j <= 7500000000.0) 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 * (y4 * (t * j)); t_2 = k * (y1 * (y2 * y4)); tmp = 0.0; if (j <= -4.8e+224) tmp = j * (y0 * (y3 * y5)); elseif (j <= -1.95e+169) tmp = a * (y * (x * b)); elseif (j <= -7e+133) tmp = t_1; elseif (j <= -6.2e-294) tmp = t_2; elseif (j <= 4.8e-148) tmp = a * ((x * y) * b); elseif (j <= 7500000000.0) 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[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, -4.8e+224], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -1.95e+169], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -7e+133], t$95$1, If[LessEqual[j, -6.2e-294], t$95$2, If[LessEqual[j, 4.8e-148], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 7500000000.0], t$95$2, t$95$1]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
t_2 := k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{if}\;j \leq -4.8 \cdot 10^{+224}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;j \leq -1.95 \cdot 10^{+169}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;j \leq -7 \cdot 10^{+133}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -6.2 \cdot 10^{-294}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;j \leq 4.8 \cdot 10^{-148}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;j \leq 7500000000:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if j < -4.80000000000000002e224Initial program 24.9%
Taylor expanded in i around -inf 49.9%
Taylor expanded in y3 around inf 67.5%
mul-1-neg67.5%
Simplified67.5%
Taylor expanded in y1 around 0 49.7%
if -4.80000000000000002e224 < j < -1.94999999999999991e169Initial program 25.0%
Taylor expanded in k around 0 25.0%
Taylor expanded in b around inf 17.4%
Taylor expanded in y around inf 34.9%
associate-*r*43.0%
Simplified43.0%
if -1.94999999999999991e169 < j < -6.9999999999999997e133 or 7.5e9 < j Initial program 27.0%
Taylor expanded in y4 around inf 47.0%
Taylor expanded in b around inf 35.4%
Taylor expanded in j around inf 39.9%
if -6.9999999999999997e133 < j < -6.20000000000000007e-294 or 4.8000000000000002e-148 < j < 7.5e9Initial program 34.3%
Taylor expanded in y4 around inf 39.9%
Taylor expanded in y1 around inf 28.2%
Taylor expanded in k around inf 26.1%
if -6.20000000000000007e-294 < j < 4.8000000000000002e-148Initial program 38.9%
Taylor expanded in k around 0 24.7%
Taylor expanded in b around inf 37.8%
Taylor expanded in y around inf 26.0%
Final simplification31.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -9.5e+132)
(* y1 (* y4 (* k (- y2 (* j (/ y3 k))))))
(if (<= y1 -1.2e+27)
(* (* j y0) (- (* y3 y5) (* x b)))
(if (<= y1 -1.4e-90)
(* a (* y2 (- (* t y5) (* x y1))))
(if (<= y1 1.6e-291)
(* (* a b) (- (* x y) (* z t)))
(if (<= y1 2e-27)
(* y (* y4 (- (* c y3) (* b k))))
(* y2 (* y4 (- (* k y1) (* t c))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -9.5e+132) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (y1 <= -1.2e+27) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y1 <= -1.4e-90) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (y1 <= 1.6e-291) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 2e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y1 <= (-9.5d+132)) then
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))))
else if (y1 <= (-1.2d+27)) then
tmp = (j * y0) * ((y3 * y5) - (x * b))
else if (y1 <= (-1.4d-90)) then
tmp = a * (y2 * ((t * y5) - (x * y1)))
else if (y1 <= 1.6d-291) then
tmp = (a * b) * ((x * y) - (z * t))
else if (y1 <= 2d-27) then
tmp = y * (y4 * ((c * y3) - (b * k)))
else
tmp = y2 * (y4 * ((k * y1) - (t * c)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -9.5e+132) {
tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k)))));
} else if (y1 <= -1.2e+27) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (y1 <= -1.4e-90) {
tmp = a * (y2 * ((t * y5) - (x * y1)));
} else if (y1 <= 1.6e-291) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 2e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -9.5e+132: tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))) elif y1 <= -1.2e+27: tmp = (j * y0) * ((y3 * y5) - (x * b)) elif y1 <= -1.4e-90: tmp = a * (y2 * ((t * y5) - (x * y1))) elif y1 <= 1.6e-291: tmp = (a * b) * ((x * y) - (z * t)) elif y1 <= 2e-27: tmp = y * (y4 * ((c * y3) - (b * k))) else: tmp = y2 * (y4 * ((k * y1) - (t * c))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -9.5e+132) tmp = Float64(y1 * Float64(y4 * Float64(k * Float64(y2 - Float64(j * Float64(y3 / k)))))); elseif (y1 <= -1.2e+27) tmp = Float64(Float64(j * y0) * Float64(Float64(y3 * y5) - Float64(x * b))); elseif (y1 <= -1.4e-90) tmp = Float64(a * Float64(y2 * Float64(Float64(t * y5) - Float64(x * y1)))); elseif (y1 <= 1.6e-291) tmp = Float64(Float64(a * b) * Float64(Float64(x * y) - Float64(z * t))); elseif (y1 <= 2e-27) tmp = Float64(y * Float64(y4 * Float64(Float64(c * y3) - Float64(b * k)))); else tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y1 <= -9.5e+132) tmp = y1 * (y4 * (k * (y2 - (j * (y3 / k))))); elseif (y1 <= -1.2e+27) tmp = (j * y0) * ((y3 * y5) - (x * b)); elseif (y1 <= -1.4e-90) tmp = a * (y2 * ((t * y5) - (x * y1))); elseif (y1 <= 1.6e-291) tmp = (a * b) * ((x * y) - (z * t)); elseif (y1 <= 2e-27) tmp = y * (y4 * ((c * y3) - (b * k))); else tmp = y2 * (y4 * ((k * y1) - (t * c))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -9.5e+132], N[(y1 * N[(y4 * N[(k * N[(y2 - N[(j * N[(y3 / k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -1.2e+27], N[(N[(j * y0), $MachinePrecision] * N[(N[(y3 * y5), $MachinePrecision] - N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -1.4e-90], N[(a * N[(y2 * N[(N[(t * y5), $MachinePrecision] - N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 1.6e-291], N[(N[(a * b), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2e-27], N[(y * N[(y4 * N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -9.5 \cdot 10^{+132}:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot \left(y2 - j \cdot \frac{y3}{k}\right)\right)\right)\\
\mathbf{elif}\;y1 \leq -1.2 \cdot 10^{+27}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5 - x \cdot b\right)\\
\mathbf{elif}\;y1 \leq -1.4 \cdot 10^{-90}:\\
\;\;\;\;a \cdot \left(y2 \cdot \left(t \cdot y5 - x \cdot y1\right)\right)\\
\mathbf{elif}\;y1 \leq 1.6 \cdot 10^{-291}:\\
\;\;\;\;\left(a \cdot b\right) \cdot \left(x \cdot y - z \cdot t\right)\\
\mathbf{elif}\;y1 \leq 2 \cdot 10^{-27}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3 - b \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\end{array}
\end{array}
if y1 < -9.5000000000000005e132Initial program 28.6%
Taylor expanded in y4 around inf 49.0%
Taylor expanded in y1 around inf 49.3%
Taylor expanded in k around inf 52.0%
mul-1-neg52.0%
unsub-neg52.0%
associate-/l*52.0%
Simplified52.0%
if -9.5000000000000005e132 < y1 < -1.19999999999999999e27Initial program 42.1%
Taylor expanded in b around inf 32.7%
Taylor expanded in j around inf 48.9%
Taylor expanded in y4 around 0 53.8%
+-commutative53.8%
*-commutative53.8%
mul-1-neg53.8%
associate-*r*53.8%
distribute-lft-neg-in53.8%
mul-1-neg53.8%
distribute-rgt-in53.8%
+-commutative53.8%
associate-*r*53.8%
+-commutative53.8%
mul-1-neg53.8%
unsub-neg53.8%
Simplified53.8%
if -1.19999999999999999e27 < y1 < -1.3999999999999999e-90Initial program 40.6%
Taylor expanded in y2 around inf 45.5%
Taylor expanded in a around -inf 45.2%
mul-1-neg45.2%
Simplified45.2%
if -1.3999999999999999e-90 < y1 < 1.6000000000000001e-291Initial program 33.2%
Taylor expanded in b around inf 51.5%
Taylor expanded in a around inf 49.8%
associate-*r*39.7%
Simplified39.7%
if 1.6000000000000001e-291 < y1 < 2.0000000000000001e-27Initial program 35.5%
Taylor expanded in y4 around inf 45.6%
Taylor expanded in y around -inf 42.6%
mul-1-neg42.6%
Simplified42.6%
if 2.0000000000000001e-27 < y1 Initial program 23.0%
Taylor expanded in y4 around inf 43.3%
Taylor expanded in y2 around inf 52.4%
Final simplification47.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -2.15e-145)
(* y2 (* k (- (* y1 y4) (* y0 y5))))
(if (<= y1 7.8e-282)
(* (* a b) (- (* x y) (* z t)))
(if (<= y1 9e-194)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= y1 2.8e-166)
(* i (* z (- (* t c) (* k y1))))
(if (<= y1 5.1e-27)
(* y (* y4 (- (* c y3) (* b k))))
(* y2 (* y4 (- (* k y1) (* t c))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -2.15e-145) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 7.8e-282) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 9e-194) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= 2.8e-166) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y1 <= 5.1e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y1 <= (-2.15d-145)) then
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)))
else if (y1 <= 7.8d-282) then
tmp = (a * b) * ((x * y) - (z * t))
else if (y1 <= 9d-194) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (y1 <= 2.8d-166) then
tmp = i * (z * ((t * c) - (k * y1)))
else if (y1 <= 5.1d-27) then
tmp = y * (y4 * ((c * y3) - (b * k)))
else
tmp = y2 * (y4 * ((k * y1) - (t * c)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -2.15e-145) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 7.8e-282) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 9e-194) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= 2.8e-166) {
tmp = i * (z * ((t * c) - (k * y1)));
} else if (y1 <= 5.1e-27) {
tmp = y * (y4 * ((c * y3) - (b * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -2.15e-145: tmp = y2 * (k * ((y1 * y4) - (y0 * y5))) elif y1 <= 7.8e-282: tmp = (a * b) * ((x * y) - (z * t)) elif y1 <= 9e-194: tmp = c * (y4 * ((y * y3) - (t * y2))) elif y1 <= 2.8e-166: tmp = i * (z * ((t * c) - (k * y1))) elif y1 <= 5.1e-27: tmp = y * (y4 * ((c * y3) - (b * k))) else: tmp = y2 * (y4 * ((k * y1) - (t * c))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -2.15e-145) tmp = Float64(y2 * Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y1 <= 7.8e-282) tmp = Float64(Float64(a * b) * Float64(Float64(x * y) - Float64(z * t))); elseif (y1 <= 9e-194) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (y1 <= 2.8e-166) tmp = Float64(i * Float64(z * Float64(Float64(t * c) - Float64(k * y1)))); elseif (y1 <= 5.1e-27) tmp = Float64(y * Float64(y4 * Float64(Float64(c * y3) - Float64(b * k)))); else tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y1 <= -2.15e-145) tmp = y2 * (k * ((y1 * y4) - (y0 * y5))); elseif (y1 <= 7.8e-282) tmp = (a * b) * ((x * y) - (z * t)); elseif (y1 <= 9e-194) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (y1 <= 2.8e-166) tmp = i * (z * ((t * c) - (k * y1))); elseif (y1 <= 5.1e-27) tmp = y * (y4 * ((c * y3) - (b * k))); else tmp = y2 * (y4 * ((k * y1) - (t * c))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -2.15e-145], N[(y2 * N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 7.8e-282], N[(N[(a * b), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 9e-194], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.8e-166], N[(i * N[(z * N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 5.1e-27], N[(y * N[(y4 * N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -2.15 \cdot 10^{-145}:\\
\;\;\;\;y2 \cdot \left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y1 \leq 7.8 \cdot 10^{-282}:\\
\;\;\;\;\left(a \cdot b\right) \cdot \left(x \cdot y - z \cdot t\right)\\
\mathbf{elif}\;y1 \leq 9 \cdot 10^{-194}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y1 \leq 2.8 \cdot 10^{-166}:\\
\;\;\;\;i \cdot \left(z \cdot \left(t \cdot c - k \cdot y1\right)\right)\\
\mathbf{elif}\;y1 \leq 5.1 \cdot 10^{-27}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3 - b \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\end{array}
\end{array}
if y1 < -2.15e-145Initial program 36.2%
Taylor expanded in y2 around inf 42.5%
Taylor expanded in k around inf 40.6%
if -2.15e-145 < y1 < 7.80000000000000076e-282Initial program 33.2%
Taylor expanded in b around inf 54.7%
Taylor expanded in a around inf 58.4%
associate-*r*46.7%
Simplified46.7%
if 7.80000000000000076e-282 < y1 < 8.9999999999999997e-194Initial program 38.5%
Taylor expanded in y4 around inf 44.3%
Taylor expanded in c around inf 39.4%
if 8.9999999999999997e-194 < y1 < 2.7999999999999999e-166Initial program 44.4%
Taylor expanded in i around -inf 67.5%
Taylor expanded in z around -inf 56.7%
if 2.7999999999999999e-166 < y1 < 5.0999999999999999e-27Initial program 30.3%
Taylor expanded in y4 around inf 51.9%
Taylor expanded in y around -inf 55.1%
mul-1-neg55.1%
Simplified55.1%
if 5.0999999999999999e-27 < y1 Initial program 23.0%
Taylor expanded in y4 around inf 43.3%
Taylor expanded in y2 around inf 52.4%
Final simplification46.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -1.46e-145)
(* y2 (* k (- (* y1 y4) (* y0 y5))))
(if (<= y1 1.35e-282)
(* (* a b) (- (* x y) (* z t)))
(if (<= y1 2.05e-194)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= y1 6.4e-44)
(* y4 (* b (- (* t j) (* y k))))
(* y2 (* y4 (- (* k y1) (* t c)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -1.46e-145) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 1.35e-282) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 2.05e-194) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= 6.4e-44) {
tmp = y4 * (b * ((t * j) - (y * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y1 <= (-1.46d-145)) then
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)))
else if (y1 <= 1.35d-282) then
tmp = (a * b) * ((x * y) - (z * t))
else if (y1 <= 2.05d-194) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (y1 <= 6.4d-44) then
tmp = y4 * (b * ((t * j) - (y * k)))
else
tmp = y2 * (y4 * ((k * y1) - (t * c)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -1.46e-145) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 1.35e-282) {
tmp = (a * b) * ((x * y) - (z * t));
} else if (y1 <= 2.05e-194) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= 6.4e-44) {
tmp = y4 * (b * ((t * j) - (y * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -1.46e-145: tmp = y2 * (k * ((y1 * y4) - (y0 * y5))) elif y1 <= 1.35e-282: tmp = (a * b) * ((x * y) - (z * t)) elif y1 <= 2.05e-194: tmp = c * (y4 * ((y * y3) - (t * y2))) elif y1 <= 6.4e-44: tmp = y4 * (b * ((t * j) - (y * k))) else: tmp = y2 * (y4 * ((k * y1) - (t * c))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -1.46e-145) tmp = Float64(y2 * Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y1 <= 1.35e-282) tmp = Float64(Float64(a * b) * Float64(Float64(x * y) - Float64(z * t))); elseif (y1 <= 2.05e-194) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (y1 <= 6.4e-44) tmp = Float64(y4 * Float64(b * Float64(Float64(t * j) - Float64(y * k)))); else tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y1 <= -1.46e-145) tmp = y2 * (k * ((y1 * y4) - (y0 * y5))); elseif (y1 <= 1.35e-282) tmp = (a * b) * ((x * y) - (z * t)); elseif (y1 <= 2.05e-194) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (y1 <= 6.4e-44) tmp = y4 * (b * ((t * j) - (y * k))); else tmp = y2 * (y4 * ((k * y1) - (t * c))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -1.46e-145], N[(y2 * N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 1.35e-282], N[(N[(a * b), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.05e-194], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 6.4e-44], N[(y4 * N[(b * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -1.46 \cdot 10^{-145}:\\
\;\;\;\;y2 \cdot \left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y1 \leq 1.35 \cdot 10^{-282}:\\
\;\;\;\;\left(a \cdot b\right) \cdot \left(x \cdot y - z \cdot t\right)\\
\mathbf{elif}\;y1 \leq 2.05 \cdot 10^{-194}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y1 \leq 6.4 \cdot 10^{-44}:\\
\;\;\;\;y4 \cdot \left(b \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\end{array}
\end{array}
if y1 < -1.45999999999999993e-145Initial program 36.2%
Taylor expanded in y2 around inf 42.5%
Taylor expanded in k around inf 40.6%
if -1.45999999999999993e-145 < y1 < 1.34999999999999991e-282Initial program 33.2%
Taylor expanded in b around inf 54.7%
Taylor expanded in a around inf 58.4%
associate-*r*46.7%
Simplified46.7%
if 1.34999999999999991e-282 < y1 < 2.0500000000000001e-194Initial program 38.5%
Taylor expanded in y4 around inf 44.3%
Taylor expanded in c around inf 39.4%
if 2.0500000000000001e-194 < y1 < 6.3999999999999999e-44Initial program 33.3%
Taylor expanded in y4 around inf 46.8%
Taylor expanded in b around inf 42.1%
if 6.3999999999999999e-44 < y1 Initial program 23.4%
Taylor expanded in y4 around inf 44.3%
Taylor expanded in y2 around inf 50.2%
Final simplification44.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -8.2e-147)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= y1 9.2e-283)
(* a (* y (* x b)))
(if (<= y1 2.05e-142)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= y1 6.8e-48)
(* (* b k) (* y (- y4)))
(* k (* y1 (- (* y2 y4) (* z i)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -8.2e-147) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 9.2e-283) {
tmp = a * (y * (x * b));
} else if (y1 <= 2.05e-142) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= 6.8e-48) {
tmp = (b * k) * (y * -y4);
} else {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y1 <= (-8.2d-147)) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (y1 <= 9.2d-283) then
tmp = a * (y * (x * b))
else if (y1 <= 2.05d-142) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (y1 <= 6.8d-48) then
tmp = (b * k) * (y * -y4)
else
tmp = k * (y1 * ((y2 * y4) - (z * i)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -8.2e-147) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 9.2e-283) {
tmp = a * (y * (x * b));
} else if (y1 <= 2.05e-142) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y1 <= 6.8e-48) {
tmp = (b * k) * (y * -y4);
} else {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -8.2e-147: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif y1 <= 9.2e-283: tmp = a * (y * (x * b)) elif y1 <= 2.05e-142: tmp = c * (y4 * ((y * y3) - (t * y2))) elif y1 <= 6.8e-48: tmp = (b * k) * (y * -y4) else: tmp = k * (y1 * ((y2 * y4) - (z * i))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -8.2e-147) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y1 <= 9.2e-283) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (y1 <= 2.05e-142) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (y1 <= 6.8e-48) tmp = Float64(Float64(b * k) * Float64(y * Float64(-y4))); else tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y1 <= -8.2e-147) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (y1 <= 9.2e-283) tmp = a * (y * (x * b)); elseif (y1 <= 2.05e-142) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (y1 <= 6.8e-48) tmp = (b * k) * (y * -y4); else tmp = k * (y1 * ((y2 * y4) - (z * i))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -8.2e-147], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 9.2e-283], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.05e-142], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 6.8e-48], N[(N[(b * k), $MachinePrecision] * N[(y * (-y4)), $MachinePrecision]), $MachinePrecision], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -8.2 \cdot 10^{-147}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y1 \leq 9.2 \cdot 10^{-283}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;y1 \leq 2.05 \cdot 10^{-142}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y1 \leq 6.8 \cdot 10^{-48}:\\
\;\;\;\;\left(b \cdot k\right) \cdot \left(y \cdot \left(-y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\end{array}
\end{array}
if y1 < -8.1999999999999999e-147Initial program 36.2%
Taylor expanded in b around inf 38.8%
Taylor expanded in y2 around inf 39.6%
if -8.1999999999999999e-147 < y1 < 9.1999999999999996e-283Initial program 33.2%
Taylor expanded in k around 0 20.8%
Taylor expanded in b around inf 49.6%
Taylor expanded in y around inf 38.1%
associate-*r*38.1%
Simplified38.1%
if 9.1999999999999996e-283 < y1 < 2.05e-142Initial program 33.6%
Taylor expanded in y4 around inf 40.3%
Taylor expanded in c around inf 31.9%
if 2.05e-142 < y1 < 6.80000000000000056e-48Initial program 37.4%
Taylor expanded in y4 around inf 54.4%
Taylor expanded in b around inf 38.9%
Taylor expanded in j around 0 30.9%
mul-1-neg30.9%
associate-*r*46.5%
*-commutative46.5%
Simplified46.5%
if 6.80000000000000056e-48 < y1 Initial program 23.4%
Taylor expanded in k around inf 36.9%
Taylor expanded in y1 around inf 45.5%
Final simplification40.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -1.6e+64)
(* j (* y3 (* y1 (- y4))))
(if (<= y1 -5.6e-147)
(* k (* y5 (* y0 (- y2))))
(if (<= y1 7.2e-205)
(* a (* y (* x b)))
(if (<= y1 2.15e+55)
(* (* b k) (* y (- y4)))
(* k (* y4 (* y1 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 tmp;
if (y1 <= -1.6e+64) {
tmp = j * (y3 * (y1 * -y4));
} else if (y1 <= -5.6e-147) {
tmp = k * (y5 * (y0 * -y2));
} else if (y1 <= 7.2e-205) {
tmp = a * (y * (x * b));
} else if (y1 <= 2.15e+55) {
tmp = (b * k) * (y * -y4);
} else {
tmp = k * (y4 * (y1 * 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) :: tmp
if (y1 <= (-1.6d+64)) then
tmp = j * (y3 * (y1 * -y4))
else if (y1 <= (-5.6d-147)) then
tmp = k * (y5 * (y0 * -y2))
else if (y1 <= 7.2d-205) then
tmp = a * (y * (x * b))
else if (y1 <= 2.15d+55) then
tmp = (b * k) * (y * -y4)
else
tmp = k * (y4 * (y1 * 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 tmp;
if (y1 <= -1.6e+64) {
tmp = j * (y3 * (y1 * -y4));
} else if (y1 <= -5.6e-147) {
tmp = k * (y5 * (y0 * -y2));
} else if (y1 <= 7.2e-205) {
tmp = a * (y * (x * b));
} else if (y1 <= 2.15e+55) {
tmp = (b * k) * (y * -y4);
} else {
tmp = k * (y4 * (y1 * y2));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -1.6e+64: tmp = j * (y3 * (y1 * -y4)) elif y1 <= -5.6e-147: tmp = k * (y5 * (y0 * -y2)) elif y1 <= 7.2e-205: tmp = a * (y * (x * b)) elif y1 <= 2.15e+55: tmp = (b * k) * (y * -y4) else: tmp = k * (y4 * (y1 * y2)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -1.6e+64) tmp = Float64(j * Float64(y3 * Float64(y1 * Float64(-y4)))); elseif (y1 <= -5.6e-147) tmp = Float64(k * Float64(y5 * Float64(y0 * Float64(-y2)))); elseif (y1 <= 7.2e-205) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (y1 <= 2.15e+55) tmp = Float64(Float64(b * k) * Float64(y * Float64(-y4))); else tmp = Float64(k * Float64(y4 * Float64(y1 * 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) tmp = 0.0; if (y1 <= -1.6e+64) tmp = j * (y3 * (y1 * -y4)); elseif (y1 <= -5.6e-147) tmp = k * (y5 * (y0 * -y2)); elseif (y1 <= 7.2e-205) tmp = a * (y * (x * b)); elseif (y1 <= 2.15e+55) tmp = (b * k) * (y * -y4); else tmp = k * (y4 * (y1 * y2)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -1.6e+64], N[(j * N[(y3 * N[(y1 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -5.6e-147], N[(k * N[(y5 * N[(y0 * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 7.2e-205], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.15e+55], N[(N[(b * k), $MachinePrecision] * N[(y * (-y4)), $MachinePrecision]), $MachinePrecision], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -1.6 \cdot 10^{+64}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y1 \cdot \left(-y4\right)\right)\right)\\
\mathbf{elif}\;y1 \leq -5.6 \cdot 10^{-147}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y0 \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;y1 \leq 7.2 \cdot 10^{-205}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;y1 \leq 2.15 \cdot 10^{+55}:\\
\;\;\;\;\left(b \cdot k\right) \cdot \left(y \cdot \left(-y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\
\end{array}
\end{array}
if y1 < -1.60000000000000009e64Initial program 31.9%
Taylor expanded in i around -inf 40.9%
Taylor expanded in y3 around inf 41.2%
mul-1-neg41.2%
Simplified41.2%
Taylor expanded in y1 around inf 41.0%
if -1.60000000000000009e64 < y1 < -5.6000000000000001e-147Initial program 40.4%
Taylor expanded in k around inf 41.0%
Taylor expanded in y5 around inf 33.4%
Taylor expanded in y0 around inf 29.3%
mul-1-neg29.3%
associate-*r*31.5%
distribute-lft-neg-out31.5%
*-commutative31.5%
distribute-lft-neg-in31.5%
Simplified31.5%
if -5.6000000000000001e-147 < y1 < 7.1999999999999997e-205Initial program 34.1%
Taylor expanded in k around 0 22.0%
Taylor expanded in b around inf 41.6%
Taylor expanded in y around inf 30.0%
associate-*r*33.7%
Simplified33.7%
if 7.1999999999999997e-205 < y1 < 2.1499999999999999e55Initial program 33.3%
Taylor expanded in y4 around inf 47.8%
Taylor expanded in b around inf 31.2%
Taylor expanded in j around 0 21.1%
mul-1-neg21.1%
associate-*r*29.3%
*-commutative29.3%
Simplified29.3%
if 2.1499999999999999e55 < y1 Initial program 22.1%
Taylor expanded in y4 around inf 44.6%
Taylor expanded in y1 around inf 45.3%
Taylor expanded in k around inf 35.8%
associate-*r*37.7%
Simplified37.7%
Final simplification34.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -8e+16)
(* j (* y3 (* y1 (- y4))))
(if (<= y1 -3.9e-91)
(* t (* a (* y2 y5)))
(if (<= y1 1.05e-203)
(* a (* y (* x b)))
(if (<= y1 1.6e+52) (* (* b k) (* y (- y4))) (* k (* y4 (* y1 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 tmp;
if (y1 <= -8e+16) {
tmp = j * (y3 * (y1 * -y4));
} else if (y1 <= -3.9e-91) {
tmp = t * (a * (y2 * y5));
} else if (y1 <= 1.05e-203) {
tmp = a * (y * (x * b));
} else if (y1 <= 1.6e+52) {
tmp = (b * k) * (y * -y4);
} else {
tmp = k * (y4 * (y1 * 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) :: tmp
if (y1 <= (-8d+16)) then
tmp = j * (y3 * (y1 * -y4))
else if (y1 <= (-3.9d-91)) then
tmp = t * (a * (y2 * y5))
else if (y1 <= 1.05d-203) then
tmp = a * (y * (x * b))
else if (y1 <= 1.6d+52) then
tmp = (b * k) * (y * -y4)
else
tmp = k * (y4 * (y1 * 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 tmp;
if (y1 <= -8e+16) {
tmp = j * (y3 * (y1 * -y4));
} else if (y1 <= -3.9e-91) {
tmp = t * (a * (y2 * y5));
} else if (y1 <= 1.05e-203) {
tmp = a * (y * (x * b));
} else if (y1 <= 1.6e+52) {
tmp = (b * k) * (y * -y4);
} else {
tmp = k * (y4 * (y1 * y2));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -8e+16: tmp = j * (y3 * (y1 * -y4)) elif y1 <= -3.9e-91: tmp = t * (a * (y2 * y5)) elif y1 <= 1.05e-203: tmp = a * (y * (x * b)) elif y1 <= 1.6e+52: tmp = (b * k) * (y * -y4) else: tmp = k * (y4 * (y1 * y2)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -8e+16) tmp = Float64(j * Float64(y3 * Float64(y1 * Float64(-y4)))); elseif (y1 <= -3.9e-91) tmp = Float64(t * Float64(a * Float64(y2 * y5))); elseif (y1 <= 1.05e-203) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (y1 <= 1.6e+52) tmp = Float64(Float64(b * k) * Float64(y * Float64(-y4))); else tmp = Float64(k * Float64(y4 * Float64(y1 * 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) tmp = 0.0; if (y1 <= -8e+16) tmp = j * (y3 * (y1 * -y4)); elseif (y1 <= -3.9e-91) tmp = t * (a * (y2 * y5)); elseif (y1 <= 1.05e-203) tmp = a * (y * (x * b)); elseif (y1 <= 1.6e+52) tmp = (b * k) * (y * -y4); else tmp = k * (y4 * (y1 * y2)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -8e+16], N[(j * N[(y3 * N[(y1 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -3.9e-91], N[(t * N[(a * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 1.05e-203], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 1.6e+52], N[(N[(b * k), $MachinePrecision] * N[(y * (-y4)), $MachinePrecision]), $MachinePrecision], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -8 \cdot 10^{+16}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y1 \cdot \left(-y4\right)\right)\right)\\
\mathbf{elif}\;y1 \leq -3.9 \cdot 10^{-91}:\\
\;\;\;\;t \cdot \left(a \cdot \left(y2 \cdot y5\right)\right)\\
\mathbf{elif}\;y1 \leq 1.05 \cdot 10^{-203}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;y1 \leq 1.6 \cdot 10^{+52}:\\
\;\;\;\;\left(b \cdot k\right) \cdot \left(y \cdot \left(-y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\
\end{array}
\end{array}
if y1 < -8e16Initial program 33.3%
Taylor expanded in i around -inf 40.9%
Taylor expanded in y3 around inf 41.1%
mul-1-neg41.1%
Simplified41.1%
Taylor expanded in y1 around inf 37.6%
if -8e16 < y1 < -3.89999999999999994e-91Initial program 41.4%
Taylor expanded in y2 around inf 46.1%
Taylor expanded in t around inf 35.6%
Taylor expanded in a around inf 32.7%
if -3.89999999999999994e-91 < y1 < 1.05000000000000001e-203Initial program 34.5%
Taylor expanded in k around 0 22.4%
Taylor expanded in b around inf 37.8%
Taylor expanded in y around inf 26.1%
associate-*r*29.3%
Simplified29.3%
if 1.05000000000000001e-203 < y1 < 1.6e52Initial program 33.3%
Taylor expanded in y4 around inf 47.8%
Taylor expanded in b around inf 31.2%
Taylor expanded in j around 0 21.1%
mul-1-neg21.1%
associate-*r*29.3%
*-commutative29.3%
Simplified29.3%
if 1.6e52 < y1 Initial program 22.1%
Taylor expanded in y4 around inf 44.6%
Taylor expanded in y1 around inf 45.3%
Taylor expanded in k around inf 35.8%
associate-*r*37.7%
Simplified37.7%
Final simplification33.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= x -5.2e+20)
(* a (* (* x y) b))
(if (<= x -9e-65)
(* y1 (* y4 (* k y2)))
(if (<= x 7e-72)
(* j (* y3 (* y1 (- y4))))
(if (<= x 2.9e+143) (* k (* y4 (* y1 y2))) (* a (* y (* x 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 <= -5.2e+20) {
tmp = a * ((x * y) * b);
} else if (x <= -9e-65) {
tmp = y1 * (y4 * (k * y2));
} else if (x <= 7e-72) {
tmp = j * (y3 * (y1 * -y4));
} else if (x <= 2.9e+143) {
tmp = k * (y4 * (y1 * y2));
} else {
tmp = a * (y * (x * 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 <= (-5.2d+20)) then
tmp = a * ((x * y) * b)
else if (x <= (-9d-65)) then
tmp = y1 * (y4 * (k * y2))
else if (x <= 7d-72) then
tmp = j * (y3 * (y1 * -y4))
else if (x <= 2.9d+143) then
tmp = k * (y4 * (y1 * y2))
else
tmp = a * (y * (x * 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 <= -5.2e+20) {
tmp = a * ((x * y) * b);
} else if (x <= -9e-65) {
tmp = y1 * (y4 * (k * y2));
} else if (x <= 7e-72) {
tmp = j * (y3 * (y1 * -y4));
} else if (x <= 2.9e+143) {
tmp = k * (y4 * (y1 * y2));
} else {
tmp = a * (y * (x * 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 <= -5.2e+20: tmp = a * ((x * y) * b) elif x <= -9e-65: tmp = y1 * (y4 * (k * y2)) elif x <= 7e-72: tmp = j * (y3 * (y1 * -y4)) elif x <= 2.9e+143: tmp = k * (y4 * (y1 * y2)) else: tmp = a * (y * (x * 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 <= -5.2e+20) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (x <= -9e-65) tmp = Float64(y1 * Float64(y4 * Float64(k * y2))); elseif (x <= 7e-72) tmp = Float64(j * Float64(y3 * Float64(y1 * Float64(-y4)))); elseif (x <= 2.9e+143) tmp = Float64(k * Float64(y4 * Float64(y1 * y2))); else tmp = Float64(a * Float64(y * Float64(x * 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 <= -5.2e+20) tmp = a * ((x * y) * b); elseif (x <= -9e-65) tmp = y1 * (y4 * (k * y2)); elseif (x <= 7e-72) tmp = j * (y3 * (y1 * -y4)); elseif (x <= 2.9e+143) tmp = k * (y4 * (y1 * y2)); else tmp = a * (y * (x * 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[x, -5.2e+20], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -9e-65], N[(y1 * N[(y4 * N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 7e-72], N[(j * N[(y3 * N[(y1 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.9e+143], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -5.2 \cdot 10^{+20}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;x \leq -9 \cdot 10^{-65}:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq 7 \cdot 10^{-72}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y1 \cdot \left(-y4\right)\right)\right)\\
\mathbf{elif}\;x \leq 2.9 \cdot 10^{+143}:\\
\;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\end{array}
\end{array}
if x < -5.2e20Initial program 21.6%
Taylor expanded in k around 0 21.7%
Taylor expanded in b around inf 40.3%
Taylor expanded in y around inf 35.2%
if -5.2e20 < x < -8.9999999999999995e-65Initial program 34.0%
Taylor expanded in y4 around inf 53.5%
Taylor expanded in y1 around inf 53.4%
Taylor expanded in k around inf 43.8%
if -8.9999999999999995e-65 < x < 7.00000000000000001e-72Initial program 36.5%
Taylor expanded in i around -inf 38.9%
Taylor expanded in y3 around inf 27.9%
mul-1-neg27.9%
Simplified27.9%
Taylor expanded in y1 around inf 22.8%
if 7.00000000000000001e-72 < x < 2.8999999999999998e143Initial program 35.2%
Taylor expanded in y4 around inf 45.7%
Taylor expanded in y1 around inf 28.9%
Taylor expanded in k around inf 27.0%
associate-*r*31.5%
Simplified31.5%
if 2.8999999999999998e143 < x Initial program 29.6%
Taylor expanded in k around 0 26.1%
Taylor expanded in b around inf 45.3%
Taylor expanded in y around inf 41.9%
associate-*r*49.0%
Simplified49.0%
Final simplification31.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= j -3.5e+137)
(* (* j y0) (* y3 y5))
(if (<= j -4.6e-296)
(* k (* y4 (* y1 y2)))
(if (<= j 1.32e-148)
(* a (* (* x y) b))
(if (<= j 5.5e+15) (* y1 (* y4 (* k y2))) (* b (* y4 (* t j))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (j <= -3.5e+137) {
tmp = (j * y0) * (y3 * y5);
} else if (j <= -4.6e-296) {
tmp = k * (y4 * (y1 * y2));
} else if (j <= 1.32e-148) {
tmp = a * ((x * y) * b);
} else if (j <= 5.5e+15) {
tmp = y1 * (y4 * (k * y2));
} else {
tmp = b * (y4 * (t * j));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (j <= (-3.5d+137)) then
tmp = (j * y0) * (y3 * y5)
else if (j <= (-4.6d-296)) then
tmp = k * (y4 * (y1 * y2))
else if (j <= 1.32d-148) then
tmp = a * ((x * y) * b)
else if (j <= 5.5d+15) then
tmp = y1 * (y4 * (k * y2))
else
tmp = b * (y4 * (t * j))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (j <= -3.5e+137) {
tmp = (j * y0) * (y3 * y5);
} else if (j <= -4.6e-296) {
tmp = k * (y4 * (y1 * y2));
} else if (j <= 1.32e-148) {
tmp = a * ((x * y) * b);
} else if (j <= 5.5e+15) {
tmp = y1 * (y4 * (k * y2));
} else {
tmp = b * (y4 * (t * j));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if j <= -3.5e+137: tmp = (j * y0) * (y3 * y5) elif j <= -4.6e-296: tmp = k * (y4 * (y1 * y2)) elif j <= 1.32e-148: tmp = a * ((x * y) * b) elif j <= 5.5e+15: tmp = y1 * (y4 * (k * y2)) else: tmp = b * (y4 * (t * j)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (j <= -3.5e+137) tmp = Float64(Float64(j * y0) * Float64(y3 * y5)); elseif (j <= -4.6e-296) tmp = Float64(k * Float64(y4 * Float64(y1 * y2))); elseif (j <= 1.32e-148) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (j <= 5.5e+15) tmp = Float64(y1 * Float64(y4 * Float64(k * y2))); else tmp = Float64(b * Float64(y4 * Float64(t * j))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (j <= -3.5e+137) tmp = (j * y0) * (y3 * y5); elseif (j <= -4.6e-296) tmp = k * (y4 * (y1 * y2)); elseif (j <= 1.32e-148) tmp = a * ((x * y) * b); elseif (j <= 5.5e+15) tmp = y1 * (y4 * (k * y2)); else tmp = b * (y4 * (t * j)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[j, -3.5e+137], N[(N[(j * y0), $MachinePrecision] * N[(y3 * y5), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -4.6e-296], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1.32e-148], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 5.5e+15], N[(y1 * N[(y4 * N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;j \leq -3.5 \cdot 10^{+137}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5\right)\\
\mathbf{elif}\;j \leq -4.6 \cdot 10^{-296}:\\
\;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\
\mathbf{elif}\;j \leq 1.32 \cdot 10^{-148}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;j \leq 5.5 \cdot 10^{+15}:\\
\;\;\;\;y1 \cdot \left(y4 \cdot \left(k \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\end{array}
\end{array}
if j < -3.5000000000000001e137Initial program 22.8%
Taylor expanded in b around inf 34.6%
Taylor expanded in j around inf 55.2%
Taylor expanded in y5 around inf 32.4%
associate-*r*37.9%
Simplified37.9%
if -3.5000000000000001e137 < j < -4.60000000000000008e-296Initial program 31.3%
Taylor expanded in y4 around inf 36.2%
Taylor expanded in y1 around inf 25.3%
Taylor expanded in k around inf 25.3%
associate-*r*26.3%
Simplified26.3%
if -4.60000000000000008e-296 < j < 1.32000000000000007e-148Initial program 37.4%
Taylor expanded in k around 0 25.3%
Taylor expanded in b around inf 38.7%
Taylor expanded in y around inf 26.6%
if 1.32000000000000007e-148 < j < 5.5e15Initial program 46.6%
Taylor expanded in y4 around inf 50.7%
Taylor expanded in y1 around inf 34.6%
Taylor expanded in k around inf 31.5%
if 5.5e15 < j Initial program 27.7%
Taylor expanded in y4 around inf 43.9%
Taylor expanded in b around inf 32.2%
Taylor expanded in j around inf 37.4%
Final simplification31.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -1.12e-147)
(* y2 (* k (- (* y1 y4) (* y0 y5))))
(if (<= y1 2.3e-204)
(* a (* y (* x b)))
(if (<= y1 2.4e-44)
(* y4 (* b (- (* t j) (* y k))))
(* y2 (* y4 (- (* k y1) (* t c))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -1.12e-147) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 2.3e-204) {
tmp = a * (y * (x * b));
} else if (y1 <= 2.4e-44) {
tmp = y4 * (b * ((t * j) - (y * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y1 <= (-1.12d-147)) then
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)))
else if (y1 <= 2.3d-204) then
tmp = a * (y * (x * b))
else if (y1 <= 2.4d-44) then
tmp = y4 * (b * ((t * j) - (y * k)))
else
tmp = y2 * (y4 * ((k * y1) - (t * c)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -1.12e-147) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 2.3e-204) {
tmp = a * (y * (x * b));
} else if (y1 <= 2.4e-44) {
tmp = y4 * (b * ((t * j) - (y * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -1.12e-147: tmp = y2 * (k * ((y1 * y4) - (y0 * y5))) elif y1 <= 2.3e-204: tmp = a * (y * (x * b)) elif y1 <= 2.4e-44: tmp = y4 * (b * ((t * j) - (y * k))) else: tmp = y2 * (y4 * ((k * y1) - (t * c))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -1.12e-147) tmp = Float64(y2 * Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y1 <= 2.3e-204) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (y1 <= 2.4e-44) tmp = Float64(y4 * Float64(b * Float64(Float64(t * j) - Float64(y * k)))); else tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y1 <= -1.12e-147) tmp = y2 * (k * ((y1 * y4) - (y0 * y5))); elseif (y1 <= 2.3e-204) tmp = a * (y * (x * b)); elseif (y1 <= 2.4e-44) tmp = y4 * (b * ((t * j) - (y * k))); else tmp = y2 * (y4 * ((k * y1) - (t * c))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -1.12e-147], N[(y2 * N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.3e-204], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.4e-44], N[(y4 * N[(b * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -1.12 \cdot 10^{-147}:\\
\;\;\;\;y2 \cdot \left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y1 \leq 2.3 \cdot 10^{-204}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;y1 \leq 2.4 \cdot 10^{-44}:\\
\;\;\;\;y4 \cdot \left(b \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\end{array}
\end{array}
if y1 < -1.12e-147Initial program 36.2%
Taylor expanded in y2 around inf 42.5%
Taylor expanded in k around inf 40.6%
if -1.12e-147 < y1 < 2.2999999999999999e-204Initial program 34.1%
Taylor expanded in k around 0 22.0%
Taylor expanded in b around inf 41.6%
Taylor expanded in y around inf 30.0%
associate-*r*33.7%
Simplified33.7%
if 2.2999999999999999e-204 < y1 < 2.40000000000000009e-44Initial program 34.8%
Taylor expanded in y4 around inf 49.4%
Taylor expanded in b around inf 40.5%
if 2.40000000000000009e-44 < y1 Initial program 23.4%
Taylor expanded in y4 around inf 44.3%
Taylor expanded in y2 around inf 50.2%
Final simplification41.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -2.05e-147)
(* y2 (* k (- (* y1 y4) (* y0 y5))))
(if (<= y1 3.1e-206)
(* a (* y (* x b)))
(if (<= y1 4.3e-51)
(* b (* y4 (- (* t j) (* y k))))
(* y2 (* y4 (- (* k y1) (* t c))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -2.05e-147) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 3.1e-206) {
tmp = a * (y * (x * b));
} else if (y1 <= 4.3e-51) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y1 <= (-2.05d-147)) then
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)))
else if (y1 <= 3.1d-206) then
tmp = a * (y * (x * b))
else if (y1 <= 4.3d-51) then
tmp = b * (y4 * ((t * j) - (y * k)))
else
tmp = y2 * (y4 * ((k * y1) - (t * c)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y1 <= -2.05e-147) {
tmp = y2 * (k * ((y1 * y4) - (y0 * y5)));
} else if (y1 <= 3.1e-206) {
tmp = a * (y * (x * b));
} else if (y1 <= 4.3e-51) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = y2 * (y4 * ((k * y1) - (t * c)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -2.05e-147: tmp = y2 * (k * ((y1 * y4) - (y0 * y5))) elif y1 <= 3.1e-206: tmp = a * (y * (x * b)) elif y1 <= 4.3e-51: tmp = b * (y4 * ((t * j) - (y * k))) else: tmp = y2 * (y4 * ((k * y1) - (t * c))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -2.05e-147) tmp = Float64(y2 * Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y1 <= 3.1e-206) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (y1 <= 4.3e-51) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); else tmp = Float64(y2 * Float64(y4 * Float64(Float64(k * y1) - Float64(t * c)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y1 <= -2.05e-147) tmp = y2 * (k * ((y1 * y4) - (y0 * y5))); elseif (y1 <= 3.1e-206) tmp = a * (y * (x * b)); elseif (y1 <= 4.3e-51) tmp = b * (y4 * ((t * j) - (y * k))); else tmp = y2 * (y4 * ((k * y1) - (t * c))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -2.05e-147], N[(y2 * N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 3.1e-206], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 4.3e-51], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y2 * N[(y4 * N[(N[(k * y1), $MachinePrecision] - N[(t * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -2.05 \cdot 10^{-147}:\\
\;\;\;\;y2 \cdot \left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y1 \leq 3.1 \cdot 10^{-206}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;y1 \leq 4.3 \cdot 10^{-51}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y2 \cdot \left(y4 \cdot \left(k \cdot y1 - t \cdot c\right)\right)\\
\end{array}
\end{array}
if y1 < -2.05e-147Initial program 36.2%
Taylor expanded in y2 around inf 42.5%
Taylor expanded in k around inf 40.6%
if -2.05e-147 < y1 < 3.1000000000000003e-206Initial program 34.1%
Taylor expanded in k around 0 22.0%
Taylor expanded in b around inf 41.6%
Taylor expanded in y around inf 30.0%
associate-*r*33.7%
Simplified33.7%
if 3.1000000000000003e-206 < y1 < 4.2999999999999997e-51Initial program 34.8%
Taylor expanded in y4 around inf 49.4%
Taylor expanded in b around inf 36.2%
if 4.2999999999999997e-51 < y1 Initial program 23.4%
Taylor expanded in y4 around inf 44.3%
Taylor expanded in y2 around inf 50.2%
Final simplification41.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -3e+61)
(* j (* y3 (* y1 (- y4))))
(if (<= y1 -9.5e-149)
(* k (* y5 (* y0 (- y2))))
(if (<= y1 210000000.0)
(* b (* y4 (- (* t j) (* y k))))
(* k (* y4 (* y1 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 tmp;
if (y1 <= -3e+61) {
tmp = j * (y3 * (y1 * -y4));
} else if (y1 <= -9.5e-149) {
tmp = k * (y5 * (y0 * -y2));
} else if (y1 <= 210000000.0) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = k * (y4 * (y1 * 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) :: tmp
if (y1 <= (-3d+61)) then
tmp = j * (y3 * (y1 * -y4))
else if (y1 <= (-9.5d-149)) then
tmp = k * (y5 * (y0 * -y2))
else if (y1 <= 210000000.0d0) then
tmp = b * (y4 * ((t * j) - (y * k)))
else
tmp = k * (y4 * (y1 * 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 tmp;
if (y1 <= -3e+61) {
tmp = j * (y3 * (y1 * -y4));
} else if (y1 <= -9.5e-149) {
tmp = k * (y5 * (y0 * -y2));
} else if (y1 <= 210000000.0) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else {
tmp = k * (y4 * (y1 * y2));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -3e+61: tmp = j * (y3 * (y1 * -y4)) elif y1 <= -9.5e-149: tmp = k * (y5 * (y0 * -y2)) elif y1 <= 210000000.0: tmp = b * (y4 * ((t * j) - (y * k))) else: tmp = k * (y4 * (y1 * y2)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y1 <= -3e+61) tmp = Float64(j * Float64(y3 * Float64(y1 * Float64(-y4)))); elseif (y1 <= -9.5e-149) tmp = Float64(k * Float64(y5 * Float64(y0 * Float64(-y2)))); elseif (y1 <= 210000000.0) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); else tmp = Float64(k * Float64(y4 * Float64(y1 * 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) tmp = 0.0; if (y1 <= -3e+61) tmp = j * (y3 * (y1 * -y4)); elseif (y1 <= -9.5e-149) tmp = k * (y5 * (y0 * -y2)); elseif (y1 <= 210000000.0) tmp = b * (y4 * ((t * j) - (y * k))); else tmp = k * (y4 * (y1 * y2)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y1, -3e+61], N[(j * N[(y3 * N[(y1 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, -9.5e-149], N[(k * N[(y5 * N[(y0 * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 210000000.0], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -3 \cdot 10^{+61}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y1 \cdot \left(-y4\right)\right)\right)\\
\mathbf{elif}\;y1 \leq -9.5 \cdot 10^{-149}:\\
\;\;\;\;k \cdot \left(y5 \cdot \left(y0 \cdot \left(-y2\right)\right)\right)\\
\mathbf{elif}\;y1 \leq 210000000:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\
\end{array}
\end{array}
if y1 < -3e61Initial program 31.9%
Taylor expanded in i around -inf 40.9%
Taylor expanded in y3 around inf 41.2%
mul-1-neg41.2%
Simplified41.2%
Taylor expanded in y1 around inf 41.0%
if -3e61 < y1 < -9.50000000000000034e-149Initial program 39.6%
Taylor expanded in k around inf 40.2%
Taylor expanded in y5 around inf 34.8%
Taylor expanded in y0 around inf 30.8%
mul-1-neg30.8%
associate-*r*32.9%
distribute-lft-neg-out32.9%
*-commutative32.9%
distribute-lft-neg-in32.9%
Simplified32.9%
if -9.50000000000000034e-149 < y1 < 2.1e8Initial program 35.3%
Taylor expanded in y4 around inf 42.0%
Taylor expanded in b around inf 29.7%
if 2.1e8 < y1 Initial program 20.6%
Taylor expanded in y4 around inf 41.6%
Taylor expanded in y1 around inf 44.0%
Taylor expanded in k around inf 35.2%
associate-*r*36.9%
Simplified36.9%
Final simplification34.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y5 -2.55e+50)
(* j (* y0 (* y3 y5)))
(if (<= y5 3.2e-301)
(* a (* y (* x b)))
(if (<= y5 1e+168) (* b (* y4 (* t j))) (* i (* k (* y 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 (y5 <= -2.55e+50) {
tmp = j * (y0 * (y3 * y5));
} else if (y5 <= 3.2e-301) {
tmp = a * (y * (x * b));
} else if (y5 <= 1e+168) {
tmp = b * (y4 * (t * j));
} else {
tmp = i * (k * (y * 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 (y5 <= (-2.55d+50)) then
tmp = j * (y0 * (y3 * y5))
else if (y5 <= 3.2d-301) then
tmp = a * (y * (x * b))
else if (y5 <= 1d+168) then
tmp = b * (y4 * (t * j))
else
tmp = i * (k * (y * 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 (y5 <= -2.55e+50) {
tmp = j * (y0 * (y3 * y5));
} else if (y5 <= 3.2e-301) {
tmp = a * (y * (x * b));
} else if (y5 <= 1e+168) {
tmp = b * (y4 * (t * j));
} else {
tmp = i * (k * (y * y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y5 <= -2.55e+50: tmp = j * (y0 * (y3 * y5)) elif y5 <= 3.2e-301: tmp = a * (y * (x * b)) elif y5 <= 1e+168: tmp = b * (y4 * (t * j)) else: tmp = i * (k * (y * 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 (y5 <= -2.55e+50) tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); elseif (y5 <= 3.2e-301) tmp = Float64(a * Float64(y * Float64(x * b))); elseif (y5 <= 1e+168) tmp = Float64(b * Float64(y4 * Float64(t * j))); else tmp = Float64(i * Float64(k * Float64(y * 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 (y5 <= -2.55e+50) tmp = j * (y0 * (y3 * y5)); elseif (y5 <= 3.2e-301) tmp = a * (y * (x * b)); elseif (y5 <= 1e+168) tmp = b * (y4 * (t * j)); else tmp = i * (k * (y * y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y5, -2.55e+50], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 3.2e-301], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1e+168], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y5 \leq -2.55 \cdot 10^{+50}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 3.2 \cdot 10^{-301}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\mathbf{elif}\;y5 \leq 10^{+168}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\end{array}
\end{array}
if y5 < -2.5499999999999999e50Initial program 26.6%
Taylor expanded in i around -inf 40.0%
Taylor expanded in y3 around inf 41.8%
mul-1-neg41.8%
Simplified41.8%
Taylor expanded in y1 around 0 35.9%
if -2.5499999999999999e50 < y5 < 3.1999999999999999e-301Initial program 44.1%
Taylor expanded in k around 0 31.6%
Taylor expanded in b around inf 34.5%
Taylor expanded in y around inf 18.0%
associate-*r*21.3%
Simplified21.3%
if 3.1999999999999999e-301 < y5 < 9.9999999999999993e167Initial program 29.5%
Taylor expanded in y4 around inf 46.2%
Taylor expanded in b around inf 29.2%
Taylor expanded in j around inf 21.8%
if 9.9999999999999993e167 < y5 Initial program 10.0%
Taylor expanded in k around inf 25.5%
Taylor expanded in y5 around inf 45.8%
Taylor expanded in y0 around 0 35.8%
*-commutative35.8%
Simplified35.8%
Final simplification26.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (<= x -1550000.0) (* a (* (* x y) b)) (if (<= x 3.2e+85) (* b (* y4 (* t j))) (* a (* y (* x 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 <= -1550000.0) {
tmp = a * ((x * y) * b);
} else if (x <= 3.2e+85) {
tmp = b * (y4 * (t * j));
} else {
tmp = a * (y * (x * 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 <= (-1550000.0d0)) then
tmp = a * ((x * y) * b)
else if (x <= 3.2d+85) then
tmp = b * (y4 * (t * j))
else
tmp = a * (y * (x * 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 <= -1550000.0) {
tmp = a * ((x * y) * b);
} else if (x <= 3.2e+85) {
tmp = b * (y4 * (t * j));
} else {
tmp = a * (y * (x * 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 <= -1550000.0: tmp = a * ((x * y) * b) elif x <= 3.2e+85: tmp = b * (y4 * (t * j)) else: tmp = a * (y * (x * 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 <= -1550000.0) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (x <= 3.2e+85) tmp = Float64(b * Float64(y4 * Float64(t * j))); else tmp = Float64(a * Float64(y * Float64(x * 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 <= -1550000.0) tmp = a * ((x * y) * b); elseif (x <= 3.2e+85) tmp = b * (y4 * (t * j)); else tmp = a * (y * (x * 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[x, -1550000.0], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 3.2e+85], N[(b * N[(y4 * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -1550000:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;x \leq 3.2 \cdot 10^{+85}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\end{array}
\end{array}
if x < -1.55e6Initial program 22.6%
Taylor expanded in k around 0 22.7%
Taylor expanded in b around inf 39.0%
Taylor expanded in y around inf 34.1%
if -1.55e6 < x < 3.20000000000000018e85Initial program 37.4%
Taylor expanded in y4 around inf 46.2%
Taylor expanded in b around inf 25.3%
Taylor expanded in j around inf 16.8%
if 3.20000000000000018e85 < x Initial program 23.1%
Taylor expanded in k around 0 20.4%
Taylor expanded in b around inf 37.9%
Taylor expanded in y around inf 38.4%
associate-*r*43.9%
Simplified43.9%
Final simplification24.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (<= x -225000.0) (* a (* (* x y) b)) (if (<= x 7e+85) (* b (* j (* t y4))) (* a (* y (* x 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 <= -225000.0) {
tmp = a * ((x * y) * b);
} else if (x <= 7e+85) {
tmp = b * (j * (t * y4));
} else {
tmp = a * (y * (x * 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 <= (-225000.0d0)) then
tmp = a * ((x * y) * b)
else if (x <= 7d+85) then
tmp = b * (j * (t * y4))
else
tmp = a * (y * (x * 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 <= -225000.0) {
tmp = a * ((x * y) * b);
} else if (x <= 7e+85) {
tmp = b * (j * (t * y4));
} else {
tmp = a * (y * (x * 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 <= -225000.0: tmp = a * ((x * y) * b) elif x <= 7e+85: tmp = b * (j * (t * y4)) else: tmp = a * (y * (x * 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 <= -225000.0) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (x <= 7e+85) tmp = Float64(b * Float64(j * Float64(t * y4))); else tmp = Float64(a * Float64(y * Float64(x * 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 <= -225000.0) tmp = a * ((x * y) * b); elseif (x <= 7e+85) tmp = b * (j * (t * y4)); else tmp = a * (y * (x * 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[x, -225000.0], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 7e+85], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -225000:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;x \leq 7 \cdot 10^{+85}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\end{array}
\end{array}
if x < -225000Initial program 22.2%
Taylor expanded in k around 0 22.3%
Taylor expanded in b around inf 40.0%
Taylor expanded in y around inf 33.5%
if -225000 < x < 7.0000000000000001e85Initial program 37.7%
Taylor expanded in y4 around inf 46.5%
Taylor expanded in b around inf 25.5%
Taylor expanded in j around inf 16.4%
*-commutative16.4%
Simplified16.4%
if 7.0000000000000001e85 < x Initial program 23.1%
Taylor expanded in k around 0 20.4%
Taylor expanded in b around inf 37.9%
Taylor expanded in y around inf 38.4%
associate-*r*43.9%
Simplified43.9%
Final simplification24.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (<= x -3.2e+25) (* a (* (* x y) b)) (if (<= x 2.9e+85) (* a (* y5 (* t y2))) (* a (* y (* x 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 <= -3.2e+25) {
tmp = a * ((x * y) * b);
} else if (x <= 2.9e+85) {
tmp = a * (y5 * (t * y2));
} else {
tmp = a * (y * (x * 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 <= (-3.2d+25)) then
tmp = a * ((x * y) * b)
else if (x <= 2.9d+85) then
tmp = a * (y5 * (t * y2))
else
tmp = a * (y * (x * 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 <= -3.2e+25) {
tmp = a * ((x * y) * b);
} else if (x <= 2.9e+85) {
tmp = a * (y5 * (t * y2));
} else {
tmp = a * (y * (x * 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 <= -3.2e+25: tmp = a * ((x * y) * b) elif x <= 2.9e+85: tmp = a * (y5 * (t * y2)) else: tmp = a * (y * (x * 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 <= -3.2e+25) tmp = Float64(a * Float64(Float64(x * y) * b)); elseif (x <= 2.9e+85) tmp = Float64(a * Float64(y5 * Float64(t * y2))); else tmp = Float64(a * Float64(y * Float64(x * 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 <= -3.2e+25) tmp = a * ((x * y) * b); elseif (x <= 2.9e+85) tmp = a * (y5 * (t * y2)); else tmp = a * (y * (x * 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[x, -3.2e+25], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.9e+85], N[(a * N[(y5 * N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -3.2 \cdot 10^{+25}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\mathbf{elif}\;x \leq 2.9 \cdot 10^{+85}:\\
\;\;\;\;a \cdot \left(y5 \cdot \left(t \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\
\end{array}
\end{array}
if x < -3.1999999999999999e25Initial program 21.6%
Taylor expanded in k around 0 21.7%
Taylor expanded in b around inf 40.3%
Taylor expanded in y around inf 35.2%
if -3.1999999999999999e25 < x < 2.89999999999999997e85Initial program 37.6%
Taylor expanded in y2 around inf 39.6%
Taylor expanded in t around inf 26.3%
Taylor expanded in a around inf 16.1%
associate-*r*14.9%
Simplified14.9%
if 2.89999999999999997e85 < x Initial program 23.1%
Taylor expanded in k around 0 20.4%
Taylor expanded in b around inf 37.9%
Taylor expanded in y around inf 38.4%
associate-*r*43.9%
Simplified43.9%
Final simplification23.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (* a (* y (* x 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 * (y * (x * 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 * (y * (x * 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 * (y * (x * b));
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): return a * (y * (x * b))
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) return Float64(a * Float64(y * Float64(x * b))) end
function tmp = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = a * (y * (x * b)); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(y \cdot \left(x \cdot b\right)\right)
\end{array}
Initial program 32.1%
Taylor expanded in k around 0 25.6%
Taylor expanded in b around inf 32.3%
Taylor expanded in y around inf 17.3%
associate-*r*17.6%
Simplified17.6%
Final simplification17.6%
(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 32.1%
Taylor expanded in k around 0 25.6%
Taylor expanded in b around inf 32.3%
Taylor expanded in y around inf 17.3%
Final simplification17.3%
(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 2024110
(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)))))