
(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 (- (* c y0) (* a y1)))
(t_2 (- (* j y3) (* k y2)))
(t_3 (- (* t j) (* y k)))
(t_4 (* y5 (+ (* a (- (* t y2) (* y y3))) (- (* y0 t_2) (* i t_3)))))
(t_5
(*
y4
(+
(+ (* b t_3) (* y1 (- (* k y2) (* j y3))))
(* c (- (* y y3) (* t y2))))))
(t_6 (* z t_1))
(t_7 (* y3 (- (* c (* y y4)) (+ (* j (* y1 y4)) t_6)))))
(if (<= y5 -7.2e-13)
t_4
(if (<= y5 -7.2e-78)
t_5
(if (<= y5 -2.35e-235)
(*
y1
(+
(* i (- (* x j) (* z k)))
(- (* a (- (* z y3) (* x y2))) (* y4 t_2))))
(if (<= y5 2.05e-264)
t_5
(if (<= y5 6e-176)
t_7
(if (<= y5 1.15e-143)
(* (* x c) (- (* y0 y2) (* y i)))
(if (<= y5 3.5e-103)
t_7
(if (<= y5 2.5e+54)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x t_1))
(* t (- (* a y5) (* c y4)))))
(if (<= y5 1.65e+91)
(*
y3
(+
(* y (- (* c y4) (* a y5)))
(- (* j (- (* y0 y5) (* y1 y4))) t_6)))
(if (<= y5 6.5e+112)
(* y1 (* y3 (- (* z a) (* j y4))))
t_4))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (c * y0) - (a * y1);
double t_2 = (j * y3) - (k * y2);
double t_3 = (t * j) - (y * k);
double t_4 = y5 * ((a * ((t * y2) - (y * y3))) + ((y0 * t_2) - (i * t_3)));
double t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
double t_6 = z * t_1;
double t_7 = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + t_6));
double tmp;
if (y5 <= -7.2e-13) {
tmp = t_4;
} else if (y5 <= -7.2e-78) {
tmp = t_5;
} else if (y5 <= -2.35e-235) {
tmp = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * t_2)));
} else if (y5 <= 2.05e-264) {
tmp = t_5;
} else if (y5 <= 6e-176) {
tmp = t_7;
} else if (y5 <= 1.15e-143) {
tmp = (x * c) * ((y0 * y2) - (y * i));
} else if (y5 <= 3.5e-103) {
tmp = t_7;
} else if (y5 <= 2.5e+54) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4))));
} else if (y5 <= 1.65e+91) {
tmp = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - t_6));
} else if (y5 <= 6.5e+112) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else {
tmp = t_4;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: tmp
t_1 = (c * y0) - (a * y1)
t_2 = (j * y3) - (k * y2)
t_3 = (t * j) - (y * k)
t_4 = y5 * ((a * ((t * y2) - (y * y3))) + ((y0 * t_2) - (i * t_3)))
t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))))
t_6 = z * t_1
t_7 = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + t_6))
if (y5 <= (-7.2d-13)) then
tmp = t_4
else if (y5 <= (-7.2d-78)) then
tmp = t_5
else if (y5 <= (-2.35d-235)) then
tmp = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * t_2)))
else if (y5 <= 2.05d-264) then
tmp = t_5
else if (y5 <= 6d-176) then
tmp = t_7
else if (y5 <= 1.15d-143) then
tmp = (x * c) * ((y0 * y2) - (y * i))
else if (y5 <= 3.5d-103) then
tmp = t_7
else if (y5 <= 2.5d+54) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4))))
else if (y5 <= 1.65d+91) then
tmp = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - t_6))
else if (y5 <= 6.5d+112) then
tmp = y1 * (y3 * ((z * a) - (j * y4)))
else
tmp = t_4
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (c * y0) - (a * y1);
double t_2 = (j * y3) - (k * y2);
double t_3 = (t * j) - (y * k);
double t_4 = y5 * ((a * ((t * y2) - (y * y3))) + ((y0 * t_2) - (i * t_3)));
double t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
double t_6 = z * t_1;
double t_7 = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + t_6));
double tmp;
if (y5 <= -7.2e-13) {
tmp = t_4;
} else if (y5 <= -7.2e-78) {
tmp = t_5;
} else if (y5 <= -2.35e-235) {
tmp = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * t_2)));
} else if (y5 <= 2.05e-264) {
tmp = t_5;
} else if (y5 <= 6e-176) {
tmp = t_7;
} else if (y5 <= 1.15e-143) {
tmp = (x * c) * ((y0 * y2) - (y * i));
} else if (y5 <= 3.5e-103) {
tmp = t_7;
} else if (y5 <= 2.5e+54) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4))));
} else if (y5 <= 1.65e+91) {
tmp = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - t_6));
} else if (y5 <= 6.5e+112) {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
} else {
tmp = t_4;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (c * y0) - (a * y1) t_2 = (j * y3) - (k * y2) t_3 = (t * j) - (y * k) t_4 = y5 * ((a * ((t * y2) - (y * y3))) + ((y0 * t_2) - (i * t_3))) t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))) t_6 = z * t_1 t_7 = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + t_6)) tmp = 0 if y5 <= -7.2e-13: tmp = t_4 elif y5 <= -7.2e-78: tmp = t_5 elif y5 <= -2.35e-235: tmp = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * t_2))) elif y5 <= 2.05e-264: tmp = t_5 elif y5 <= 6e-176: tmp = t_7 elif y5 <= 1.15e-143: tmp = (x * c) * ((y0 * y2) - (y * i)) elif y5 <= 3.5e-103: tmp = t_7 elif y5 <= 2.5e+54: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4)))) elif y5 <= 1.65e+91: tmp = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - t_6)) elif y5 <= 6.5e+112: tmp = y1 * (y3 * ((z * a) - (j * y4))) else: tmp = t_4 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(c * y0) - Float64(a * y1)) t_2 = Float64(Float64(j * y3) - Float64(k * y2)) t_3 = Float64(Float64(t * j) - Float64(y * k)) t_4 = Float64(y5 * Float64(Float64(a * Float64(Float64(t * y2) - Float64(y * y3))) + Float64(Float64(y0 * t_2) - Float64(i * t_3)))) t_5 = Float64(y4 * Float64(Float64(Float64(b * t_3) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * Float64(Float64(y * y3) - Float64(t * y2))))) t_6 = Float64(z * t_1) t_7 = Float64(y3 * Float64(Float64(c * Float64(y * y4)) - Float64(Float64(j * Float64(y1 * y4)) + t_6))) tmp = 0.0 if (y5 <= -7.2e-13) tmp = t_4; elseif (y5 <= -7.2e-78) tmp = t_5; elseif (y5 <= -2.35e-235) tmp = Float64(y1 * Float64(Float64(i * Float64(Float64(x * j) - Float64(z * k))) + Float64(Float64(a * Float64(Float64(z * y3) - Float64(x * y2))) - Float64(y4 * t_2)))); elseif (y5 <= 2.05e-264) tmp = t_5; elseif (y5 <= 6e-176) tmp = t_7; elseif (y5 <= 1.15e-143) tmp = Float64(Float64(x * c) * Float64(Float64(y0 * y2) - Float64(y * i))); elseif (y5 <= 3.5e-103) tmp = t_7; elseif (y5 <= 2.5e+54) tmp = Float64(y2 * Float64(Float64(Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(x * t_1)) + Float64(t * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (y5 <= 1.65e+91) tmp = Float64(y3 * Float64(Float64(y * Float64(Float64(c * y4) - Float64(a * y5))) + Float64(Float64(j * Float64(Float64(y0 * y5) - Float64(y1 * y4))) - t_6))); elseif (y5 <= 6.5e+112) tmp = Float64(y1 * Float64(y3 * Float64(Float64(z * a) - Float64(j * y4)))); else tmp = t_4; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (c * y0) - (a * y1); t_2 = (j * y3) - (k * y2); t_3 = (t * j) - (y * k); t_4 = y5 * ((a * ((t * y2) - (y * y3))) + ((y0 * t_2) - (i * t_3))); t_5 = y4 * (((b * t_3) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))); t_6 = z * t_1; t_7 = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + t_6)); tmp = 0.0; if (y5 <= -7.2e-13) tmp = t_4; elseif (y5 <= -7.2e-78) tmp = t_5; elseif (y5 <= -2.35e-235) tmp = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * t_2))); elseif (y5 <= 2.05e-264) tmp = t_5; elseif (y5 <= 6e-176) tmp = t_7; elseif (y5 <= 1.15e-143) tmp = (x * c) * ((y0 * y2) - (y * i)); elseif (y5 <= 3.5e-103) tmp = t_7; elseif (y5 <= 2.5e+54) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4)))); elseif (y5 <= 1.65e+91) tmp = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - t_6)); elseif (y5 <= 6.5e+112) tmp = y1 * (y3 * ((z * a) - (j * y4))); else tmp = t_4; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(j * y3), $MachinePrecision] - N[(k * 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[(a * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(y0 * t$95$2), $MachinePrecision] - N[(i * t$95$3), $MachinePrecision]), $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 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(z * t$95$1), $MachinePrecision]}, Block[{t$95$7 = N[(y3 * N[(N[(c * N[(y * y4), $MachinePrecision]), $MachinePrecision] - N[(N[(j * N[(y1 * y4), $MachinePrecision]), $MachinePrecision] + t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -7.2e-13], t$95$4, If[LessEqual[y5, -7.2e-78], t$95$5, If[LessEqual[y5, -2.35e-235], N[(y1 * N[(N[(i * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(a * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y4 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.05e-264], t$95$5, If[LessEqual[y5, 6e-176], t$95$7, If[LessEqual[y5, 1.15e-143], N[(N[(x * c), $MachinePrecision] * N[(N[(y0 * y2), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 3.5e-103], t$95$7, If[LessEqual[y5, 2.5e+54], N[(y2 * N[(N[(N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(t * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.65e+91], N[(y3 * N[(N[(y * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(j * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 6.5e+112], N[(y1 * N[(y3 * N[(N[(z * a), $MachinePrecision] - N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$4]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot y0 - a \cdot y1\\
t_2 := j \cdot y3 - k \cdot y2\\
t_3 := t \cdot j - y \cdot k\\
t_4 := y5 \cdot \left(a \cdot \left(t \cdot y2 - y \cdot y3\right) + \left(y0 \cdot t\_2 - i \cdot t\_3\right)\right)\\
t_5 := y4 \cdot \left(\left(b \cdot t\_3 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_6 := z \cdot t\_1\\
t_7 := y3 \cdot \left(c \cdot \left(y \cdot y4\right) - \left(j \cdot \left(y1 \cdot y4\right) + t\_6\right)\right)\\
\mathbf{if}\;y5 \leq -7.2 \cdot 10^{-13}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y5 \leq -7.2 \cdot 10^{-78}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq -2.35 \cdot 10^{-235}:\\
\;\;\;\;y1 \cdot \left(i \cdot \left(x \cdot j - z \cdot k\right) + \left(a \cdot \left(z \cdot y3 - x \cdot y2\right) - y4 \cdot t\_2\right)\right)\\
\mathbf{elif}\;y5 \leq 2.05 \cdot 10^{-264}:\\
\;\;\;\;t\_5\\
\mathbf{elif}\;y5 \leq 6 \cdot 10^{-176}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;y5 \leq 1.15 \cdot 10^{-143}:\\
\;\;\;\;\left(x \cdot c\right) \cdot \left(y0 \cdot y2 - y \cdot i\right)\\
\mathbf{elif}\;y5 \leq 3.5 \cdot 10^{-103}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;y5 \leq 2.5 \cdot 10^{+54}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + x \cdot t\_1\right) + t \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 1.65 \cdot 10^{+91}:\\
\;\;\;\;y3 \cdot \left(y \cdot \left(c \cdot y4 - a \cdot y5\right) + \left(j \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) - t\_6\right)\right)\\
\mathbf{elif}\;y5 \leq 6.5 \cdot 10^{+112}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(z \cdot a - j \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_4\\
\end{array}
\end{array}
if y5 < -7.1999999999999996e-13 or 6.4999999999999998e112 < y5 Initial program 28.3%
Taylor expanded in y5 around -inf 65.0%
if -7.1999999999999996e-13 < y5 < -7.2000000000000005e-78 or -2.35e-235 < y5 < 2.05000000000000011e-264Initial program 26.2%
Taylor expanded in y4 around inf 56.9%
if -7.2000000000000005e-78 < y5 < -2.35e-235Initial program 37.9%
Taylor expanded in y1 around -inf 53.0%
mul-1-neg53.0%
distribute-rgt-neg-in53.0%
+-commutative53.0%
mul-1-neg53.0%
unsub-neg53.0%
*-commutative53.0%
*-commutative53.0%
*-commutative53.0%
Simplified53.0%
if 2.05000000000000011e-264 < y5 < 6e-176 or 1.15000000000000006e-143 < y5 < 3.50000000000000016e-103Initial program 29.6%
Taylor expanded in y5 around 0 25.9%
Taylor expanded in y3 around -inf 60.0%
if 6e-176 < y5 < 1.15000000000000006e-143Initial program 33.3%
Taylor expanded in y5 around 0 22.2%
Taylor expanded in x around inf 34.1%
Taylor expanded in c around inf 45.4%
associate-*r*56.0%
+-commutative56.0%
mul-1-neg56.0%
unsub-neg56.0%
*-commutative56.0%
Simplified56.0%
if 3.50000000000000016e-103 < y5 < 2.50000000000000003e54Initial program 59.9%
Taylor expanded in y2 around inf 68.5%
if 2.50000000000000003e54 < y5 < 1.65000000000000009e91Initial program 16.4%
Taylor expanded in y3 around -inf 83.1%
if 1.65000000000000009e91 < y5 < 6.4999999999999998e112Initial program 42.9%
Taylor expanded in y1 around -inf 43.5%
mul-1-neg43.5%
distribute-rgt-neg-in43.5%
+-commutative43.5%
mul-1-neg43.5%
unsub-neg43.5%
*-commutative43.5%
*-commutative43.5%
*-commutative43.5%
Simplified43.5%
Taylor expanded in y3 around -inf 71.8%
Final simplification61.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* t j) (* y k)))
(t_2 (- (* x y2) (* z y3)))
(t_3 (- (* a b) (* c i)))
(t_4 (* (- (* k y2) (* j y3)) (- (* y1 y4) (* y0 y5))))
(t_5 (- (* b y4) (* i y5)))
(t_6 (- (* t y2) (* y y3)))
(t_7 (* t_6 (- (* a y5) (* c y4))))
(t_8 (cbrt t_4)))
(if (<=
(+
(+
(+
(+
(+
(* t_3 (- (* x y) (* z t)))
(* (- (* b y0) (* i y1)) (- (* z k) (* x j))))
(* (- (* c y0) (* a y1)) t_2))
(* t_5 t_1))
t_7)
t_4)
INFINITY)
(fma
(* t_8 t_8)
t_8
(+
(fma
t_1
t_5
(fma
t_2
(fma c y0 (* a (- y1)))
(-
(* t_3 (fma x y (* z (- t))))
(* (fma x j (* z (- k))) (fma b y0 (* i (- y1)))))))
t_7))
(* y5 (+ (* a t_6) (- (* y0 (- (* j y3) (* k y2))) (* i t_1)))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = (x * y2) - (z * y3);
double t_3 = (a * b) - (c * i);
double t_4 = ((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5));
double t_5 = (b * y4) - (i * y5);
double t_6 = (t * y2) - (y * y3);
double t_7 = t_6 * ((a * y5) - (c * y4));
double t_8 = cbrt(t_4);
double tmp;
if (((((((t_3 * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((c * y0) - (a * y1)) * t_2)) + (t_5 * t_1)) + t_7) + t_4) <= ((double) INFINITY)) {
tmp = fma((t_8 * t_8), t_8, (fma(t_1, t_5, fma(t_2, fma(c, y0, (a * -y1)), ((t_3 * fma(x, y, (z * -t))) - (fma(x, j, (z * -k)) * fma(b, y0, (i * -y1)))))) + t_7));
} else {
tmp = y5 * ((a * t_6) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1)));
}
return tmp;
}
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(t * j) - Float64(y * k)) t_2 = Float64(Float64(x * y2) - Float64(z * y3)) t_3 = Float64(Float64(a * b) - Float64(c * i)) t_4 = Float64(Float64(Float64(k * y2) - Float64(j * y3)) * Float64(Float64(y1 * y4) - Float64(y0 * y5))) t_5 = Float64(Float64(b * y4) - Float64(i * y5)) t_6 = Float64(Float64(t * y2) - Float64(y * y3)) t_7 = Float64(t_6 * Float64(Float64(a * y5) - Float64(c * y4))) t_8 = cbrt(t_4) tmp = 0.0 if (Float64(Float64(Float64(Float64(Float64(Float64(t_3 * Float64(Float64(x * y) - Float64(z * t))) + Float64(Float64(Float64(b * y0) - Float64(i * y1)) * Float64(Float64(z * k) - Float64(x * j)))) + Float64(Float64(Float64(c * y0) - Float64(a * y1)) * t_2)) + Float64(t_5 * t_1)) + t_7) + t_4) <= Inf) tmp = fma(Float64(t_8 * t_8), t_8, Float64(fma(t_1, t_5, fma(t_2, fma(c, y0, Float64(a * Float64(-y1))), Float64(Float64(t_3 * fma(x, y, Float64(z * Float64(-t)))) - Float64(fma(x, j, Float64(z * Float64(-k))) * fma(b, y0, Float64(i * Float64(-y1))))))) + t_7)); else tmp = Float64(y5 * Float64(Float64(a * t_6) + Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * t_1)))); end return tmp end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(t$95$6 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[Power[t$95$4, 1/3], $MachinePrecision]}, If[LessEqual[N[(N[(N[(N[(N[(N[(t$95$3 * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision] * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(t$95$5 * t$95$1), $MachinePrecision]), $MachinePrecision] + t$95$7), $MachinePrecision] + t$95$4), $MachinePrecision], Infinity], N[(N[(t$95$8 * t$95$8), $MachinePrecision] * t$95$8 + N[(N[(t$95$1 * t$95$5 + N[(t$95$2 * N[(c * y0 + N[(a * (-y1)), $MachinePrecision]), $MachinePrecision] + N[(N[(t$95$3 * N[(x * y + N[(z * (-t)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(x * j + N[(z * (-k)), $MachinePrecision]), $MachinePrecision] * N[(b * y0 + N[(i * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$7), $MachinePrecision]), $MachinePrecision], N[(y5 * N[(N[(a * t$95$6), $MachinePrecision] + N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := x \cdot y2 - z \cdot y3\\
t_3 := a \cdot b - c \cdot i\\
t_4 := \left(k \cdot y2 - j \cdot y3\right) \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\\
t_5 := b \cdot y4 - i \cdot y5\\
t_6 := t \cdot y2 - y \cdot y3\\
t_7 := t\_6 \cdot \left(a \cdot y5 - c \cdot y4\right)\\
t_8 := \sqrt[3]{t\_4}\\
\mathbf{if}\;\left(\left(\left(\left(t\_3 \cdot \left(x \cdot y - z \cdot t\right) + \left(b \cdot y0 - i \cdot y1\right) \cdot \left(z \cdot k - x \cdot j\right)\right) + \left(c \cdot y0 - a \cdot y1\right) \cdot t\_2\right) + t\_5 \cdot t\_1\right) + t\_7\right) + t\_4 \leq \infty:\\
\;\;\;\;\mathsf{fma}\left(t\_8 \cdot t\_8, t\_8, \mathsf{fma}\left(t\_1, t\_5, \mathsf{fma}\left(t\_2, \mathsf{fma}\left(c, y0, a \cdot \left(-y1\right)\right), t\_3 \cdot \mathsf{fma}\left(x, y, z \cdot \left(-t\right)\right) - \mathsf{fma}\left(x, j, z \cdot \left(-k\right)\right) \cdot \mathsf{fma}\left(b, y0, i \cdot \left(-y1\right)\right)\right)\right) + t\_7\right)\\
\mathbf{else}:\\
\;\;\;\;y5 \cdot \left(a \cdot t\_6 + \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot t\_1\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 95.5%
Applied egg-rr95.6%
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 y5 around -inf 40.3%
Final simplification59.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 (- (* t y2) (* y y3)))
(t_3
(+
(+
(+
(+
(+
(* (- (* a b) (* c i)) (- (* x y) (* z t)))
(* (- (* b y0) (* i y1)) (- (* z k) (* x j))))
(* (- (* c y0) (* a y1)) (- (* x y2) (* z y3))))
(* (- (* b y4) (* i y5)) t_1))
(* t_2 (- (* a y5) (* c y4))))
(* (- (* k y2) (* j y3)) (- (* y1 y4) (* y0 y5))))))
(if (<= t_3 INFINITY)
t_3
(* y5 (+ (* a t_2) (- (* y0 (- (* j y3) (* k y2))) (* i t_1)))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = (t * y2) - (y * y3);
double t_3 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((c * y0) - (a * y1)) * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * t_1)) + (t_2 * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
double tmp;
if (t_3 <= ((double) INFINITY)) {
tmp = t_3;
} else {
tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1)));
}
return tmp;
}
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (t * j) - (y * k);
double t_2 = (t * y2) - (y * y3);
double t_3 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((c * y0) - (a * y1)) * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * t_1)) + (t_2 * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
double tmp;
if (t_3 <= Double.POSITIVE_INFINITY) {
tmp = t_3;
} else {
tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (t * j) - (y * k) t_2 = (t * y2) - (y * y3) t_3 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((c * y0) - (a * y1)) * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * t_1)) + (t_2 * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5))) tmp = 0 if t_3 <= math.inf: tmp = t_3 else: tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(t * j) - Float64(y * k)) t_2 = Float64(Float64(t * y2) - Float64(y * y3)) t_3 = Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(a * b) - Float64(c * i)) * Float64(Float64(x * y) - Float64(z * t))) + Float64(Float64(Float64(b * y0) - Float64(i * y1)) * Float64(Float64(z * k) - Float64(x * j)))) + Float64(Float64(Float64(c * y0) - Float64(a * y1)) * Float64(Float64(x * y2) - Float64(z * y3)))) + Float64(Float64(Float64(b * y4) - Float64(i * y5)) * t_1)) + Float64(t_2 * 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_3 <= Inf) tmp = t_3; else tmp = Float64(y5 * Float64(Float64(a * t_2) + Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * t_1)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (t * j) - (y * k); t_2 = (t * y2) - (y * y3); t_3 = (((((((a * b) - (c * i)) * ((x * y) - (z * t))) + (((b * y0) - (i * y1)) * ((z * k) - (x * j)))) + (((c * y0) - (a * y1)) * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * t_1)) + (t_2 * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5))); tmp = 0.0; if (t_3 <= Inf) tmp = t_3; else tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[(N[(N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision] * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision] * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision] * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision] * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(t$95$2 * 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$3, Infinity], t$95$3, N[(y5 * N[(N[(a * t$95$2), $MachinePrecision] + N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := t \cdot j - y \cdot k\\
t_2 := t \cdot y2 - y \cdot y3\\
t_3 := \left(\left(\left(\left(\left(a \cdot b - c \cdot i\right) \cdot \left(x \cdot y - z \cdot t\right) + \left(b \cdot y0 - i \cdot y1\right) \cdot \left(z \cdot k - x \cdot j\right)\right) + \left(c \cdot y0 - a \cdot y1\right) \cdot \left(x \cdot y2 - z \cdot y3\right)\right) + \left(b \cdot y4 - i \cdot y5\right) \cdot t\_1\right) + t\_2 \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\_3 \leq \infty:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;y5 \cdot \left(a \cdot t\_2 + \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot t\_1\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 95.5%
if +inf.0 < (+.f64 (-.f64 (+.f64 (+.f64 (-.f64 (*.f64 (-.f64 (*.f64 x y) (*.f64 z t)) (-.f64 (*.f64 a b) (*.f64 c i))) (*.f64 (-.f64 (*.f64 x j) (*.f64 z k)) (-.f64 (*.f64 y0 b) (*.f64 y1 i)))) (*.f64 (-.f64 (*.f64 x y2) (*.f64 z y3)) (-.f64 (*.f64 y0 c) (*.f64 y1 a)))) (*.f64 (-.f64 (*.f64 t j) (*.f64 y k)) (-.f64 (*.f64 y4 b) (*.f64 y5 i)))) (*.f64 (-.f64 (*.f64 t y2) (*.f64 y y3)) (-.f64 (*.f64 y4 c) (*.f64 y5 a)))) (*.f64 (-.f64 (*.f64 k y2) (*.f64 j y3)) (-.f64 (*.f64 y4 y1) (*.f64 y5 y0)))) Initial program 0.0%
Taylor expanded in y5 around -inf 40.3%
Final simplification59.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(*
k
(+
(+ (* y2 (- (* y1 y4) (* y0 y5))) (* y (- (* i y5) (* b y4))))
(* z (- (* b y0) (* i y1))))))
(t_2 (- (* b y4) (* i y5)))
(t_3 (- (* i y1) (* b y0)))
(t_4
(*
x
(+
(+ (* y (- (* a b) (* c i))) (* y2 (- (* c y0) (* a y1))))
(* j t_3)))))
(if (<= k -6.5e+89)
t_1
(if (<= k -1.25e-23)
t_4
(if (<= k -9.2e-272)
(* j (+ (+ (* t t_2) (* y3 (- (* y0 y5) (* y1 y4)))) (* x t_3)))
(if (<= k 1.7e-160)
t_4
(if (<= k 2.7e-97)
(* t_2 (* t j))
(if (<= k 2.9e+20)
(* a (+ (* y1 (- (* z y3) (* x y2))) (* b (- (* x y) (* z t)))))
(if (<= k 1.85e+108)
(* (- (* c y4) (* a y5)) (* y y3))
(if (<= k 1.05e+152)
t_1
(if (<= k 1.4e+162)
(* y0 (+ (* y5 (- (* j y3) (* k y2))) (* c (* x y2))))
(if (<= k 4.6e+192)
(* i (* z (* k (- y1))))
(if (<= k 2.5e+233)
(* c (- (* x (* y0 y2)) (* y4 (- (* t y2) (* y y3)))))
(if (<= k 4e+251)
(* y0 (* k (* y2 (- y5))))
(if (<= k 3.7e+273)
(* i (* y1 (- (* x j) (* z k))))
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 * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
double t_2 = (b * y4) - (i * y5);
double t_3 = (i * y1) - (b * y0);
double t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3));
double tmp;
if (k <= -6.5e+89) {
tmp = t_1;
} else if (k <= -1.25e-23) {
tmp = t_4;
} else if (k <= -9.2e-272) {
tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3));
} else if (k <= 1.7e-160) {
tmp = t_4;
} else if (k <= 2.7e-97) {
tmp = t_2 * (t * j);
} else if (k <= 2.9e+20) {
tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))));
} else if (k <= 1.85e+108) {
tmp = ((c * y4) - (a * y5)) * (y * y3);
} else if (k <= 1.05e+152) {
tmp = t_1;
} else if (k <= 1.4e+162) {
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)));
} else if (k <= 4.6e+192) {
tmp = i * (z * (k * -y1));
} else if (k <= 2.5e+233) {
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))));
} else if (k <= 4e+251) {
tmp = y0 * (k * (y2 * -y5));
} else if (k <= 3.7e+273) {
tmp = i * (y1 * ((x * j) - (z * k)));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
t_2 = (b * y4) - (i * y5)
t_3 = (i * y1) - (b * y0)
t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3))
if (k <= (-6.5d+89)) then
tmp = t_1
else if (k <= (-1.25d-23)) then
tmp = t_4
else if (k <= (-9.2d-272)) then
tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3))
else if (k <= 1.7d-160) then
tmp = t_4
else if (k <= 2.7d-97) then
tmp = t_2 * (t * j)
else if (k <= 2.9d+20) then
tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))))
else if (k <= 1.85d+108) then
tmp = ((c * y4) - (a * y5)) * (y * y3)
else if (k <= 1.05d+152) then
tmp = t_1
else if (k <= 1.4d+162) then
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)))
else if (k <= 4.6d+192) then
tmp = i * (z * (k * -y1))
else if (k <= 2.5d+233) then
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))))
else if (k <= 4d+251) then
tmp = y0 * (k * (y2 * -y5))
else if (k <= 3.7d+273) then
tmp = i * (y1 * ((x * j) - (z * k)))
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 * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
double t_2 = (b * y4) - (i * y5);
double t_3 = (i * y1) - (b * y0);
double t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3));
double tmp;
if (k <= -6.5e+89) {
tmp = t_1;
} else if (k <= -1.25e-23) {
tmp = t_4;
} else if (k <= -9.2e-272) {
tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3));
} else if (k <= 1.7e-160) {
tmp = t_4;
} else if (k <= 2.7e-97) {
tmp = t_2 * (t * j);
} else if (k <= 2.9e+20) {
tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))));
} else if (k <= 1.85e+108) {
tmp = ((c * y4) - (a * y5)) * (y * y3);
} else if (k <= 1.05e+152) {
tmp = t_1;
} else if (k <= 1.4e+162) {
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)));
} else if (k <= 4.6e+192) {
tmp = i * (z * (k * -y1));
} else if (k <= 2.5e+233) {
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))));
} else if (k <= 4e+251) {
tmp = y0 * (k * (y2 * -y5));
} else if (k <= 3.7e+273) {
tmp = i * (y1 * ((x * j) - (z * k)));
} 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 * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))) t_2 = (b * y4) - (i * y5) t_3 = (i * y1) - (b * y0) t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3)) tmp = 0 if k <= -6.5e+89: tmp = t_1 elif k <= -1.25e-23: tmp = t_4 elif k <= -9.2e-272: tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3)) elif k <= 1.7e-160: tmp = t_4 elif k <= 2.7e-97: tmp = t_2 * (t * j) elif k <= 2.9e+20: tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t)))) elif k <= 1.85e+108: tmp = ((c * y4) - (a * y5)) * (y * y3) elif k <= 1.05e+152: tmp = t_1 elif k <= 1.4e+162: tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2))) elif k <= 4.6e+192: tmp = i * (z * (k * -y1)) elif k <= 2.5e+233: tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3)))) elif k <= 4e+251: tmp = y0 * (k * (y2 * -y5)) elif k <= 3.7e+273: tmp = i * (y1 * ((x * j) - (z * k))) 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(Float64(Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1))))) t_2 = Float64(Float64(b * y4) - Float64(i * y5)) t_3 = Float64(Float64(i * y1) - Float64(b * y0)) t_4 = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(j * t_3))) tmp = 0.0 if (k <= -6.5e+89) tmp = t_1; elseif (k <= -1.25e-23) tmp = t_4; elseif (k <= -9.2e-272) tmp = Float64(j * Float64(Float64(Float64(t * t_2) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * t_3))); elseif (k <= 1.7e-160) tmp = t_4; elseif (k <= 2.7e-97) tmp = Float64(t_2 * Float64(t * j)); elseif (k <= 2.9e+20) tmp = Float64(a * Float64(Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2))) + Float64(b * Float64(Float64(x * y) - Float64(z * t))))); elseif (k <= 1.85e+108) tmp = Float64(Float64(Float64(c * y4) - Float64(a * y5)) * Float64(y * y3)); elseif (k <= 1.05e+152) tmp = t_1; elseif (k <= 1.4e+162) tmp = Float64(y0 * Float64(Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2))) + Float64(c * Float64(x * y2)))); elseif (k <= 4.6e+192) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); elseif (k <= 2.5e+233) tmp = Float64(c * Float64(Float64(x * Float64(y0 * y2)) - Float64(y4 * Float64(Float64(t * y2) - Float64(y * y3))))); elseif (k <= 4e+251) tmp = Float64(y0 * Float64(k * Float64(y2 * Float64(-y5)))); elseif (k <= 3.7e+273) tmp = Float64(i * Float64(y1 * Float64(Float64(x * j) - Float64(z * k)))); 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 * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))); t_2 = (b * y4) - (i * y5); t_3 = (i * y1) - (b * y0); t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_3)); tmp = 0.0; if (k <= -6.5e+89) tmp = t_1; elseif (k <= -1.25e-23) tmp = t_4; elseif (k <= -9.2e-272) tmp = j * (((t * t_2) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3)); elseif (k <= 1.7e-160) tmp = t_4; elseif (k <= 2.7e-97) tmp = t_2 * (t * j); elseif (k <= 2.9e+20) tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t)))); elseif (k <= 1.85e+108) tmp = ((c * y4) - (a * y5)) * (y * y3); elseif (k <= 1.05e+152) tmp = t_1; elseif (k <= 1.4e+162) tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2))); elseif (k <= 4.6e+192) tmp = i * (z * (k * -y1)); elseif (k <= 2.5e+233) tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3)))); elseif (k <= 4e+251) tmp = y0 * (k * (y2 * -y5)); elseif (k <= 3.7e+273) tmp = i * (y1 * ((x * j) - (z * k))); 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[(N[(N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[k, -6.5e+89], t$95$1, If[LessEqual[k, -1.25e-23], t$95$4, If[LessEqual[k, -9.2e-272], N[(j * N[(N[(N[(t * t$95$2), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 1.7e-160], t$95$4, If[LessEqual[k, 2.7e-97], N[(t$95$2 * N[(t * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 2.9e+20], N[(a * N[(N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 1.85e+108], N[(N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision] * N[(y * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 1.05e+152], t$95$1, If[LessEqual[k, 1.4e+162], N[(y0 * N[(N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 4.6e+192], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 2.5e+233], N[(c * N[(N[(x * N[(y0 * y2), $MachinePrecision]), $MachinePrecision] - N[(y4 * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 4e+251], N[(y0 * N[(k * N[(y2 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 3.7e+273], N[(i * N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(\left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
t_2 := b \cdot y4 - i \cdot y5\\
t_3 := i \cdot y1 - b \cdot y0\\
t_4 := x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + j \cdot t\_3\right)\\
\mathbf{if}\;k \leq -6.5 \cdot 10^{+89}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;k \leq -1.25 \cdot 10^{-23}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;k \leq -9.2 \cdot 10^{-272}:\\
\;\;\;\;j \cdot \left(\left(t \cdot t\_2 + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot t\_3\right)\\
\mathbf{elif}\;k \leq 1.7 \cdot 10^{-160}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;k \leq 2.7 \cdot 10^{-97}:\\
\;\;\;\;t\_2 \cdot \left(t \cdot j\right)\\
\mathbf{elif}\;k \leq 2.9 \cdot 10^{+20}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right) + b \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{elif}\;k \leq 1.85 \cdot 10^{+108}:\\
\;\;\;\;\left(c \cdot y4 - a \cdot y5\right) \cdot \left(y \cdot y3\right)\\
\mathbf{elif}\;k \leq 1.05 \cdot 10^{+152}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;k \leq 1.4 \cdot 10^{+162}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3 - k \cdot y2\right) + c \cdot \left(x \cdot y2\right)\right)\\
\mathbf{elif}\;k \leq 4.6 \cdot 10^{+192}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;k \leq 2.5 \cdot 10^{+233}:\\
\;\;\;\;c \cdot \left(x \cdot \left(y0 \cdot y2\right) - y4 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\
\mathbf{elif}\;k \leq 4 \cdot 10^{+251}:\\
\;\;\;\;y0 \cdot \left(k \cdot \left(y2 \cdot \left(-y5\right)\right)\right)\\
\mathbf{elif}\;k \leq 3.7 \cdot 10^{+273}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if k < -6.4999999999999996e89 or 1.8499999999999999e108 < k < 1.0500000000000001e152 or 3.6999999999999999e273 < k Initial program 21.3%
Taylor expanded in k around inf 64.8%
sub-neg64.8%
+-commutative64.8%
mul-1-neg64.8%
unsub-neg64.8%
*-commutative64.8%
mul-1-neg64.8%
remove-double-neg64.8%
Simplified64.8%
if -6.4999999999999996e89 < k < -1.2500000000000001e-23 or -9.19999999999999955e-272 < k < 1.70000000000000011e-160Initial program 41.9%
Taylor expanded in y5 around 0 42.0%
Taylor expanded in x around inf 63.3%
if -1.2500000000000001e-23 < k < -9.19999999999999955e-272Initial program 37.2%
Taylor expanded in j around inf 51.3%
+-commutative51.3%
mul-1-neg51.3%
unsub-neg51.3%
*-commutative51.3%
Simplified51.3%
if 1.70000000000000011e-160 < k < 2.69999999999999985e-97Initial program 25.0%
Taylor expanded in j around inf 50.6%
+-commutative50.6%
mul-1-neg50.6%
unsub-neg50.6%
*-commutative50.6%
Simplified50.6%
Taylor expanded in t around inf 50.9%
associate-*r*50.9%
*-commutative50.9%
Simplified50.9%
if 2.69999999999999985e-97 < k < 2.9e20Initial program 57.0%
Taylor expanded in y5 around 0 47.9%
Taylor expanded in a around inf 62.7%
if 2.9e20 < k < 1.8499999999999999e108Initial program 20.0%
Taylor expanded in y2 around inf 50.0%
*-commutative50.0%
Simplified50.0%
Taylor expanded in y around inf 51.4%
associate-*r*51.5%
*-commutative51.5%
*-commutative51.5%
*-commutative51.5%
Simplified51.5%
if 1.0500000000000001e152 < k < 1.39999999999999995e162Initial program 0.0%
Taylor expanded in y2 around inf 60.0%
*-commutative60.0%
Simplified60.0%
Taylor expanded in y0 around inf 100.0%
if 1.39999999999999995e162 < k < 4.5999999999999999e192Initial program 30.0%
Taylor expanded in y1 around -inf 50.5%
mul-1-neg50.5%
distribute-rgt-neg-in50.5%
+-commutative50.5%
mul-1-neg50.5%
unsub-neg50.5%
*-commutative50.5%
*-commutative50.5%
*-commutative50.5%
Simplified50.5%
Taylor expanded in z around -inf 22.3%
mul-1-neg22.3%
associate-*r*22.3%
*-commutative22.3%
*-commutative22.3%
Simplified22.3%
Taylor expanded in k around inf 22.1%
add022.1%
associate-*r*22.0%
Applied egg-rr22.0%
add022.0%
associate-*l*22.1%
associate-*r*50.8%
*-commutative50.8%
Simplified50.8%
if 4.5999999999999999e192 < k < 2.50000000000000004e233Initial program 37.5%
Taylor expanded in y2 around inf 37.9%
*-commutative37.9%
Simplified37.9%
Taylor expanded in c around inf 75.4%
*-commutative75.4%
*-commutative75.4%
*-commutative75.4%
*-commutative75.4%
Simplified75.4%
if 2.50000000000000004e233 < k < 4.0000000000000002e251Initial program 16.7%
Taylor expanded in y2 around inf 50.0%
*-commutative50.0%
Simplified50.0%
Taylor expanded in y0 around inf 83.3%
Taylor expanded in k around inf 83.3%
mul-1-neg83.3%
Simplified83.3%
if 4.0000000000000002e251 < k < 3.6999999999999999e273Initial program 20.0%
Taylor expanded in y1 around -inf 100.0%
mul-1-neg100.0%
distribute-rgt-neg-in100.0%
+-commutative100.0%
mul-1-neg100.0%
unsub-neg100.0%
*-commutative100.0%
*-commutative100.0%
*-commutative100.0%
Simplified100.0%
Taylor expanded in i around inf 80.0%
Final simplification61.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* c y0) (* a y1)))
(t_2 (- (* i y1) (* b y0)))
(t_3
(*
j
(+
(+ (* t (- (* b y4) (* i y5))) (* y3 (- (* y0 y5) (* y1 y4))))
(* x t_2))))
(t_4 (* y1 (- (* z y3) (* x y2)))))
(if (<= y5 -1.6e+245)
(* x (+ (+ (* y (- (* a b) (* c i))) (* y2 t_1)) (* j t_2)))
(if (<= y5 -1.5e+179)
(* y5 (* k (- (* y i) (* y0 y2))))
(if (<= y5 -3.3e-18)
t_3
(if (<= y5 -4.4e-59)
(* c (- (* x (* y0 y2)) (* y4 (- (* t y2) (* y y3)))))
(if (<= y5 -1.9e-83)
t_3
(if (<= y5 -8e-278)
(* a t_4)
(if (<= y5 3.9e-290)
(* i (* x (- (* j y1) (* y c))))
(if (<= y5 1.25e-172)
(* y3 (- (* c (* y y4)) (+ (* j (* y1 y4)) (* z t_1))))
(if (<= y5 2.2e-106)
(* (* x c) (- (* y0 y2) (* y i)))
(if (<= y5 2.3e+144)
(*
y2
(+
(+ (* k (- (* y1 y4) (* y0 y5))) (* x t_1))
(* t (- (* a y5) (* c y4)))))
(if (<= y5 1.55e+171)
(* (* y y5) (- (* i k) (* a y3)))
(if (<= y5 1.2e+208)
(* a (+ t_4 (* b (- (* x y) (* z t)))))
(* (* i y5) (- (* y k) (* t j)))))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (c * y0) - (a * y1);
double t_2 = (i * y1) - (b * y0);
double t_3 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_2));
double t_4 = y1 * ((z * y3) - (x * y2));
double tmp;
if (y5 <= -1.6e+245) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_1)) + (j * t_2));
} else if (y5 <= -1.5e+179) {
tmp = y5 * (k * ((y * i) - (y0 * y2)));
} else if (y5 <= -3.3e-18) {
tmp = t_3;
} else if (y5 <= -4.4e-59) {
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))));
} else if (y5 <= -1.9e-83) {
tmp = t_3;
} else if (y5 <= -8e-278) {
tmp = a * t_4;
} else if (y5 <= 3.9e-290) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (y5 <= 1.25e-172) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_1)));
} else if (y5 <= 2.2e-106) {
tmp = (x * c) * ((y0 * y2) - (y * i));
} else if (y5 <= 2.3e+144) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4))));
} else if (y5 <= 1.55e+171) {
tmp = (y * y5) * ((i * k) - (a * y3));
} else if (y5 <= 1.2e+208) {
tmp = a * (t_4 + (b * ((x * y) - (z * t))));
} else {
tmp = (i * y5) * ((y * k) - (t * j));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = (c * y0) - (a * y1)
t_2 = (i * y1) - (b * y0)
t_3 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_2))
t_4 = y1 * ((z * y3) - (x * y2))
if (y5 <= (-1.6d+245)) then
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_1)) + (j * t_2))
else if (y5 <= (-1.5d+179)) then
tmp = y5 * (k * ((y * i) - (y0 * y2)))
else if (y5 <= (-3.3d-18)) then
tmp = t_3
else if (y5 <= (-4.4d-59)) then
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))))
else if (y5 <= (-1.9d-83)) then
tmp = t_3
else if (y5 <= (-8d-278)) then
tmp = a * t_4
else if (y5 <= 3.9d-290) then
tmp = i * (x * ((j * y1) - (y * c)))
else if (y5 <= 1.25d-172) then
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_1)))
else if (y5 <= 2.2d-106) then
tmp = (x * c) * ((y0 * y2) - (y * i))
else if (y5 <= 2.3d+144) then
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4))))
else if (y5 <= 1.55d+171) then
tmp = (y * y5) * ((i * k) - (a * y3))
else if (y5 <= 1.2d+208) then
tmp = a * (t_4 + (b * ((x * y) - (z * t))))
else
tmp = (i * y5) * ((y * k) - (t * j))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (c * y0) - (a * y1);
double t_2 = (i * y1) - (b * y0);
double t_3 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_2));
double t_4 = y1 * ((z * y3) - (x * y2));
double tmp;
if (y5 <= -1.6e+245) {
tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_1)) + (j * t_2));
} else if (y5 <= -1.5e+179) {
tmp = y5 * (k * ((y * i) - (y0 * y2)));
} else if (y5 <= -3.3e-18) {
tmp = t_3;
} else if (y5 <= -4.4e-59) {
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))));
} else if (y5 <= -1.9e-83) {
tmp = t_3;
} else if (y5 <= -8e-278) {
tmp = a * t_4;
} else if (y5 <= 3.9e-290) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (y5 <= 1.25e-172) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_1)));
} else if (y5 <= 2.2e-106) {
tmp = (x * c) * ((y0 * y2) - (y * i));
} else if (y5 <= 2.3e+144) {
tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4))));
} else if (y5 <= 1.55e+171) {
tmp = (y * y5) * ((i * k) - (a * y3));
} else if (y5 <= 1.2e+208) {
tmp = a * (t_4 + (b * ((x * y) - (z * t))));
} else {
tmp = (i * y5) * ((y * k) - (t * j));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (c * y0) - (a * y1) t_2 = (i * y1) - (b * y0) t_3 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_2)) t_4 = y1 * ((z * y3) - (x * y2)) tmp = 0 if y5 <= -1.6e+245: tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_1)) + (j * t_2)) elif y5 <= -1.5e+179: tmp = y5 * (k * ((y * i) - (y0 * y2))) elif y5 <= -3.3e-18: tmp = t_3 elif y5 <= -4.4e-59: tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3)))) elif y5 <= -1.9e-83: tmp = t_3 elif y5 <= -8e-278: tmp = a * t_4 elif y5 <= 3.9e-290: tmp = i * (x * ((j * y1) - (y * c))) elif y5 <= 1.25e-172: tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_1))) elif y5 <= 2.2e-106: tmp = (x * c) * ((y0 * y2) - (y * i)) elif y5 <= 2.3e+144: tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4)))) elif y5 <= 1.55e+171: tmp = (y * y5) * ((i * k) - (a * y3)) elif y5 <= 1.2e+208: tmp = a * (t_4 + (b * ((x * y) - (z * t)))) else: tmp = (i * y5) * ((y * k) - (t * j)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(c * y0) - Float64(a * y1)) t_2 = Float64(Float64(i * y1) - Float64(b * y0)) t_3 = Float64(j * Float64(Float64(Float64(t * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * t_2))) t_4 = Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2))) tmp = 0.0 if (y5 <= -1.6e+245) tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * t_1)) + Float64(j * t_2))); elseif (y5 <= -1.5e+179) tmp = Float64(y5 * Float64(k * Float64(Float64(y * i) - Float64(y0 * y2)))); elseif (y5 <= -3.3e-18) tmp = t_3; elseif (y5 <= -4.4e-59) tmp = Float64(c * Float64(Float64(x * Float64(y0 * y2)) - Float64(y4 * Float64(Float64(t * y2) - Float64(y * y3))))); elseif (y5 <= -1.9e-83) tmp = t_3; elseif (y5 <= -8e-278) tmp = Float64(a * t_4); elseif (y5 <= 3.9e-290) tmp = Float64(i * Float64(x * Float64(Float64(j * y1) - Float64(y * c)))); elseif (y5 <= 1.25e-172) tmp = Float64(y3 * Float64(Float64(c * Float64(y * y4)) - Float64(Float64(j * Float64(y1 * y4)) + Float64(z * t_1)))); elseif (y5 <= 2.2e-106) tmp = Float64(Float64(x * c) * Float64(Float64(y0 * y2) - Float64(y * i))); elseif (y5 <= 2.3e+144) tmp = Float64(y2 * Float64(Float64(Float64(k * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(x * t_1)) + Float64(t * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (y5 <= 1.55e+171) tmp = Float64(Float64(y * y5) * Float64(Float64(i * k) - Float64(a * y3))); elseif (y5 <= 1.2e+208) tmp = Float64(a * Float64(t_4 + Float64(b * Float64(Float64(x * y) - Float64(z * t))))); else tmp = Float64(Float64(i * y5) * Float64(Float64(y * k) - Float64(t * j))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (c * y0) - (a * y1); t_2 = (i * y1) - (b * y0); t_3 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_2)); t_4 = y1 * ((z * y3) - (x * y2)); tmp = 0.0; if (y5 <= -1.6e+245) tmp = x * (((y * ((a * b) - (c * i))) + (y2 * t_1)) + (j * t_2)); elseif (y5 <= -1.5e+179) tmp = y5 * (k * ((y * i) - (y0 * y2))); elseif (y5 <= -3.3e-18) tmp = t_3; elseif (y5 <= -4.4e-59) tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3)))); elseif (y5 <= -1.9e-83) tmp = t_3; elseif (y5 <= -8e-278) tmp = a * t_4; elseif (y5 <= 3.9e-290) tmp = i * (x * ((j * y1) - (y * c))); elseif (y5 <= 1.25e-172) tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_1))); elseif (y5 <= 2.2e-106) tmp = (x * c) * ((y0 * y2) - (y * i)); elseif (y5 <= 2.3e+144) tmp = y2 * (((k * ((y1 * y4) - (y0 * y5))) + (x * t_1)) + (t * ((a * y5) - (c * y4)))); elseif (y5 <= 1.55e+171) tmp = (y * y5) * ((i * k) - (a * y3)); elseif (y5 <= 1.2e+208) tmp = a * (t_4 + (b * ((x * y) - (z * t)))); else tmp = (i * y5) * ((y * k) - (t * j)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(j * N[(N[(N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -1.6e+245], N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(j * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.5e+179], N[(y5 * N[(k * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -3.3e-18], t$95$3, If[LessEqual[y5, -4.4e-59], N[(c * N[(N[(x * N[(y0 * y2), $MachinePrecision]), $MachinePrecision] - N[(y4 * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, -1.9e-83], t$95$3, If[LessEqual[y5, -8e-278], N[(a * t$95$4), $MachinePrecision], If[LessEqual[y5, 3.9e-290], N[(i * N[(x * N[(N[(j * y1), $MachinePrecision] - N[(y * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.25e-172], N[(y3 * N[(N[(c * N[(y * y4), $MachinePrecision]), $MachinePrecision] - N[(N[(j * N[(y1 * y4), $MachinePrecision]), $MachinePrecision] + N[(z * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.2e-106], N[(N[(x * c), $MachinePrecision] * N[(N[(y0 * y2), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.3e+144], N[(y2 * N[(N[(N[(k * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(t * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.55e+171], N[(N[(y * y5), $MachinePrecision] * N[(N[(i * k), $MachinePrecision] - N[(a * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 1.2e+208], N[(a * N[(t$95$4 + N[(b * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(i * y5), $MachinePrecision] * N[(N[(y * k), $MachinePrecision] - N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot y0 - a \cdot y1\\
t_2 := i \cdot y1 - b \cdot y0\\
t_3 := j \cdot \left(\left(t \cdot \left(b \cdot y4 - i \cdot y5\right) + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot t\_2\right)\\
t_4 := y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\\
\mathbf{if}\;y5 \leq -1.6 \cdot 10^{+245}:\\
\;\;\;\;x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + y2 \cdot t\_1\right) + j \cdot t\_2\right)\\
\mathbf{elif}\;y5 \leq -1.5 \cdot 10^{+179}:\\
\;\;\;\;y5 \cdot \left(k \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\mathbf{elif}\;y5 \leq -3.3 \cdot 10^{-18}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq -4.4 \cdot 10^{-59}:\\
\;\;\;\;c \cdot \left(x \cdot \left(y0 \cdot y2\right) - y4 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\
\mathbf{elif}\;y5 \leq -1.9 \cdot 10^{-83}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y5 \leq -8 \cdot 10^{-278}:\\
\;\;\;\;a \cdot t\_4\\
\mathbf{elif}\;y5 \leq 3.9 \cdot 10^{-290}:\\
\;\;\;\;i \cdot \left(x \cdot \left(j \cdot y1 - y \cdot c\right)\right)\\
\mathbf{elif}\;y5 \leq 1.25 \cdot 10^{-172}:\\
\;\;\;\;y3 \cdot \left(c \cdot \left(y \cdot y4\right) - \left(j \cdot \left(y1 \cdot y4\right) + z \cdot t\_1\right)\right)\\
\mathbf{elif}\;y5 \leq 2.2 \cdot 10^{-106}:\\
\;\;\;\;\left(x \cdot c\right) \cdot \left(y0 \cdot y2 - y \cdot i\right)\\
\mathbf{elif}\;y5 \leq 2.3 \cdot 10^{+144}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + x \cdot t\_1\right) + t \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 1.55 \cdot 10^{+171}:\\
\;\;\;\;\left(y \cdot y5\right) \cdot \left(i \cdot k - a \cdot y3\right)\\
\mathbf{elif}\;y5 \leq 1.2 \cdot 10^{+208}:\\
\;\;\;\;a \cdot \left(t\_4 + b \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(i \cdot y5\right) \cdot \left(y \cdot k - t \cdot j\right)\\
\end{array}
\end{array}
if y5 < -1.60000000000000012e245Initial program 28.6%
Taylor expanded in y5 around 0 42.9%
Taylor expanded in x around inf 64.5%
if -1.60000000000000012e245 < y5 < -1.4999999999999999e179Initial program 40.0%
Taylor expanded in y5 around -inf 70.0%
Taylor expanded in k around inf 80.0%
if -1.4999999999999999e179 < y5 < -3.3000000000000002e-18 or -4.3999999999999998e-59 < y5 < -1.89999999999999988e-83Initial program 34.1%
Taylor expanded in j around inf 60.1%
+-commutative60.1%
mul-1-neg60.1%
unsub-neg60.1%
*-commutative60.1%
Simplified60.1%
if -3.3000000000000002e-18 < y5 < -4.3999999999999998e-59Initial program 33.2%
Taylor expanded in y2 around inf 39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in c around inf 54.0%
*-commutative54.0%
*-commutative54.0%
*-commutative54.0%
*-commutative54.0%
Simplified54.0%
if -1.89999999999999988e-83 < y5 < -7.9999999999999995e-278Initial program 32.0%
Taylor expanded in y1 around -inf 48.2%
mul-1-neg48.2%
distribute-rgt-neg-in48.2%
+-commutative48.2%
mul-1-neg48.2%
unsub-neg48.2%
*-commutative48.2%
*-commutative48.2%
*-commutative48.2%
Simplified48.2%
Taylor expanded in a around inf 47.8%
if -7.9999999999999995e-278 < y5 < 3.89999999999999973e-290Initial program 29.4%
Taylor expanded in y5 around 0 29.4%
Taylor expanded in x around inf 57.9%
Taylor expanded in i around inf 86.9%
distribute-lft-out--86.9%
*-commutative86.9%
Simplified86.9%
if 3.89999999999999973e-290 < y5 < 1.25e-172Initial program 25.0%
Taylor expanded in y5 around 0 29.2%
Taylor expanded in y3 around -inf 54.7%
if 1.25e-172 < y5 < 2.19999999999999994e-106Initial program 38.5%
Taylor expanded in y5 around 0 23.1%
Taylor expanded in x around inf 39.2%
Taylor expanded in c around inf 47.0%
associate-*r*54.4%
+-commutative54.4%
mul-1-neg54.4%
unsub-neg54.4%
*-commutative54.4%
Simplified54.4%
if 2.19999999999999994e-106 < y5 < 2.3000000000000001e144Initial program 46.7%
Taylor expanded in y2 around inf 59.9%
if 2.3000000000000001e144 < y5 < 1.5499999999999999e171Initial program 0.0%
Taylor expanded in y5 around -inf 57.1%
Taylor expanded in y around -inf 85.7%
mul-1-neg85.7%
associate-*r*85.7%
*-commutative85.7%
*-commutative85.7%
Simplified85.7%
if 1.5499999999999999e171 < y5 < 1.19999999999999993e208Initial program 0.0%
Taylor expanded in y5 around 0 16.7%
Taylor expanded in a around inf 83.8%
if 1.19999999999999993e208 < y5 Initial program 26.3%
Taylor expanded in y5 around -inf 78.9%
Taylor expanded in i around inf 79.2%
associate-*r*74.1%
*-commutative74.1%
Simplified74.1%
Final simplification60.7%
(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 (- (* c y0) (* a y1)))
(t_3
(*
y1
(+
(* i (- (* x j) (* z k)))
(- (* a (- (* z y3) (* x y2))) (* y4 (- (* j y3) (* k y2)))))))
(t_4
(*
y3
(+
(* y (- (* c y4) (* a y5)))
(- (* j (- (* y0 y5) (* y1 y4))) (* z t_2)))))
(t_5 (- (* b y4) (* i y5))))
(if (<= t -7.7e+217)
(* (* i j) (- (* x y1) (* t y5)))
(if (<= t -1.95e+164)
(* x (* y2 t_2))
(if (<= t -7.5e+63)
(* t_5 (* t j))
(if (<= t -1.45e-185)
t_3
(if (<= t 6.5e-201)
(*
k
(+
(+ (* y2 t_1) (* y (- (* i y5) (* b y4))))
(* z (- (* b y0) (* i y1)))))
(if (<= t 1.85e-162)
t_3
(if (<= t 2.06e-54)
(* y2 (+ (+ (* k t_1) (* x t_2)) (* t (- (* a y5) (* c y4)))))
(if (<= t 3.7e-7)
t_4
(if (<= t 7.6e+115)
(* i (* x (- (* j y1) (* y c))))
(if (<= t 8.5e+183) t_4 (* j (* t t_5))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y1 * y4) - (y0 * y5);
double t_2 = (c * y0) - (a * y1);
double t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2)))));
double t_4 = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - (z * t_2)));
double t_5 = (b * y4) - (i * y5);
double tmp;
if (t <= -7.7e+217) {
tmp = (i * j) * ((x * y1) - (t * y5));
} else if (t <= -1.95e+164) {
tmp = x * (y2 * t_2);
} else if (t <= -7.5e+63) {
tmp = t_5 * (t * j);
} else if (t <= -1.45e-185) {
tmp = t_3;
} else if (t <= 6.5e-201) {
tmp = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (t <= 1.85e-162) {
tmp = t_3;
} else if (t <= 2.06e-54) {
tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4))));
} else if (t <= 3.7e-7) {
tmp = t_4;
} else if (t <= 7.6e+115) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (t <= 8.5e+183) {
tmp = t_4;
} else {
tmp = j * (t * t_5);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: tmp
t_1 = (y1 * y4) - (y0 * y5)
t_2 = (c * y0) - (a * y1)
t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2)))))
t_4 = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - (z * t_2)))
t_5 = (b * y4) - (i * y5)
if (t <= (-7.7d+217)) then
tmp = (i * j) * ((x * y1) - (t * y5))
else if (t <= (-1.95d+164)) then
tmp = x * (y2 * t_2)
else if (t <= (-7.5d+63)) then
tmp = t_5 * (t * j)
else if (t <= (-1.45d-185)) then
tmp = t_3
else if (t <= 6.5d-201) then
tmp = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
else if (t <= 1.85d-162) then
tmp = t_3
else if (t <= 2.06d-54) then
tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4))))
else if (t <= 3.7d-7) then
tmp = t_4
else if (t <= 7.6d+115) then
tmp = i * (x * ((j * y1) - (y * c)))
else if (t <= 8.5d+183) then
tmp = t_4
else
tmp = j * (t * t_5)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y1 * y4) - (y0 * y5);
double t_2 = (c * y0) - (a * y1);
double t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2)))));
double t_4 = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - (z * t_2)));
double t_5 = (b * y4) - (i * y5);
double tmp;
if (t <= -7.7e+217) {
tmp = (i * j) * ((x * y1) - (t * y5));
} else if (t <= -1.95e+164) {
tmp = x * (y2 * t_2);
} else if (t <= -7.5e+63) {
tmp = t_5 * (t * j);
} else if (t <= -1.45e-185) {
tmp = t_3;
} else if (t <= 6.5e-201) {
tmp = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (t <= 1.85e-162) {
tmp = t_3;
} else if (t <= 2.06e-54) {
tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4))));
} else if (t <= 3.7e-7) {
tmp = t_4;
} else if (t <= 7.6e+115) {
tmp = i * (x * ((j * y1) - (y * c)));
} else if (t <= 8.5e+183) {
tmp = t_4;
} else {
tmp = j * (t * t_5);
}
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 = (c * y0) - (a * y1) t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2))))) t_4 = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - (z * t_2))) t_5 = (b * y4) - (i * y5) tmp = 0 if t <= -7.7e+217: tmp = (i * j) * ((x * y1) - (t * y5)) elif t <= -1.95e+164: tmp = x * (y2 * t_2) elif t <= -7.5e+63: tmp = t_5 * (t * j) elif t <= -1.45e-185: tmp = t_3 elif t <= 6.5e-201: tmp = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))) elif t <= 1.85e-162: tmp = t_3 elif t <= 2.06e-54: tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4)))) elif t <= 3.7e-7: tmp = t_4 elif t <= 7.6e+115: tmp = i * (x * ((j * y1) - (y * c))) elif t <= 8.5e+183: tmp = t_4 else: tmp = j * (t * t_5) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y1 * y4) - Float64(y0 * y5)) t_2 = Float64(Float64(c * y0) - Float64(a * y1)) t_3 = Float64(y1 * Float64(Float64(i * Float64(Float64(x * j) - Float64(z * k))) + Float64(Float64(a * Float64(Float64(z * y3) - Float64(x * y2))) - Float64(y4 * Float64(Float64(j * y3) - Float64(k * y2)))))) t_4 = Float64(y3 * Float64(Float64(y * Float64(Float64(c * y4) - Float64(a * y5))) + Float64(Float64(j * Float64(Float64(y0 * y5) - Float64(y1 * y4))) - Float64(z * t_2)))) t_5 = Float64(Float64(b * y4) - Float64(i * y5)) tmp = 0.0 if (t <= -7.7e+217) tmp = Float64(Float64(i * j) * Float64(Float64(x * y1) - Float64(t * y5))); elseif (t <= -1.95e+164) tmp = Float64(x * Float64(y2 * t_2)); elseif (t <= -7.5e+63) tmp = Float64(t_5 * Float64(t * j)); elseif (t <= -1.45e-185) tmp = t_3; elseif (t <= 6.5e-201) tmp = Float64(k * Float64(Float64(Float64(y2 * t_1) + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1))))); elseif (t <= 1.85e-162) tmp = t_3; elseif (t <= 2.06e-54) tmp = Float64(y2 * Float64(Float64(Float64(k * t_1) + Float64(x * t_2)) + Float64(t * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (t <= 3.7e-7) tmp = t_4; elseif (t <= 7.6e+115) tmp = Float64(i * Float64(x * Float64(Float64(j * y1) - Float64(y * c)))); elseif (t <= 8.5e+183) tmp = t_4; else tmp = Float64(j * Float64(t * t_5)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (y1 * y4) - (y0 * y5); t_2 = (c * y0) - (a * y1); t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2))))); t_4 = y3 * ((y * ((c * y4) - (a * y5))) + ((j * ((y0 * y5) - (y1 * y4))) - (z * t_2))); t_5 = (b * y4) - (i * y5); tmp = 0.0; if (t <= -7.7e+217) tmp = (i * j) * ((x * y1) - (t * y5)); elseif (t <= -1.95e+164) tmp = x * (y2 * t_2); elseif (t <= -7.5e+63) tmp = t_5 * (t * j); elseif (t <= -1.45e-185) tmp = t_3; elseif (t <= 6.5e-201) tmp = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))); elseif (t <= 1.85e-162) tmp = t_3; elseif (t <= 2.06e-54) tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4)))); elseif (t <= 3.7e-7) tmp = t_4; elseif (t <= 7.6e+115) tmp = i * (x * ((j * y1) - (y * c))); elseif (t <= 8.5e+183) tmp = t_4; else tmp = j * (t * t_5); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y1 * N[(N[(i * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(a * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y4 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(y3 * N[(N[(y * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(j * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(z * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -7.7e+217], N[(N[(i * j), $MachinePrecision] * N[(N[(x * y1), $MachinePrecision] - N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1.95e+164], N[(x * N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -7.5e+63], N[(t$95$5 * N[(t * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1.45e-185], t$95$3, If[LessEqual[t, 6.5e-201], N[(k * N[(N[(N[(y2 * t$95$1), $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[t, 1.85e-162], t$95$3, If[LessEqual[t, 2.06e-54], N[(y2 * N[(N[(N[(k * t$95$1), $MachinePrecision] + N[(x * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(t * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 3.7e-7], t$95$4, If[LessEqual[t, 7.6e+115], N[(i * N[(x * N[(N[(j * y1), $MachinePrecision] - N[(y * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 8.5e+183], t$95$4, N[(j * N[(t * t$95$5), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y1 \cdot y4 - y0 \cdot y5\\
t_2 := c \cdot y0 - a \cdot y1\\
t_3 := y1 \cdot \left(i \cdot \left(x \cdot j - z \cdot k\right) + \left(a \cdot \left(z \cdot y3 - x \cdot y2\right) - y4 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\right)\\
t_4 := y3 \cdot \left(y \cdot \left(c \cdot y4 - a \cdot y5\right) + \left(j \cdot \left(y0 \cdot y5 - y1 \cdot y4\right) - z \cdot t\_2\right)\right)\\
t_5 := b \cdot y4 - i \cdot y5\\
\mathbf{if}\;t \leq -7.7 \cdot 10^{+217}:\\
\;\;\;\;\left(i \cdot j\right) \cdot \left(x \cdot y1 - t \cdot y5\right)\\
\mathbf{elif}\;t \leq -1.95 \cdot 10^{+164}:\\
\;\;\;\;x \cdot \left(y2 \cdot t\_2\right)\\
\mathbf{elif}\;t \leq -7.5 \cdot 10^{+63}:\\
\;\;\;\;t\_5 \cdot \left(t \cdot j\right)\\
\mathbf{elif}\;t \leq -1.45 \cdot 10^{-185}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t \leq 6.5 \cdot 10^{-201}:\\
\;\;\;\;k \cdot \left(\left(y2 \cdot t\_1 + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;t \leq 1.85 \cdot 10^{-162}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t \leq 2.06 \cdot 10^{-54}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot t\_1 + x \cdot t\_2\right) + t \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;t \leq 3.7 \cdot 10^{-7}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t \leq 7.6 \cdot 10^{+115}:\\
\;\;\;\;i \cdot \left(x \cdot \left(j \cdot y1 - y \cdot c\right)\right)\\
\mathbf{elif}\;t \leq 8.5 \cdot 10^{+183}:\\
\;\;\;\;t\_4\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(t \cdot t\_5\right)\\
\end{array}
\end{array}
if t < -7.7e217Initial program 15.4%
Taylor expanded in j around inf 38.6%
+-commutative38.6%
mul-1-neg38.6%
unsub-neg38.6%
*-commutative38.6%
Simplified38.6%
Taylor expanded in i around -inf 69.8%
mul-1-neg69.8%
associate-*r*69.8%
*-commutative69.8%
*-commutative69.8%
Simplified69.8%
if -7.7e217 < t < -1.94999999999999993e164Initial program 12.4%
Taylor expanded in y2 around inf 31.2%
*-commutative31.2%
Simplified31.2%
Taylor expanded in x around inf 57.4%
*-commutative57.4%
Simplified57.4%
if -1.94999999999999993e164 < t < -7.5000000000000005e63Initial program 34.8%
Taylor expanded in j around inf 50.5%
+-commutative50.5%
mul-1-neg50.5%
unsub-neg50.5%
*-commutative50.5%
Simplified50.5%
Taylor expanded in t around inf 51.6%
associate-*r*56.1%
*-commutative56.1%
Simplified56.1%
if -7.5000000000000005e63 < t < -1.44999999999999997e-185 or 6.49999999999999974e-201 < t < 1.8500000000000001e-162Initial program 42.8%
Taylor expanded in y1 around -inf 63.8%
mul-1-neg63.8%
distribute-rgt-neg-in63.8%
+-commutative63.8%
mul-1-neg63.8%
unsub-neg63.8%
*-commutative63.8%
*-commutative63.8%
*-commutative63.8%
Simplified63.8%
if -1.44999999999999997e-185 < t < 6.49999999999999974e-201Initial program 34.2%
Taylor expanded in k around inf 50.6%
sub-neg50.6%
+-commutative50.6%
mul-1-neg50.6%
unsub-neg50.6%
*-commutative50.6%
mul-1-neg50.6%
remove-double-neg50.6%
Simplified50.6%
if 1.8500000000000001e-162 < t < 2.06000000000000009e-54Initial program 55.8%
Taylor expanded in y2 around inf 67.0%
if 2.06000000000000009e-54 < t < 3.70000000000000004e-7 or 7.6000000000000001e115 < t < 8.5000000000000004e183Initial program 32.5%
Taylor expanded in y3 around -inf 71.5%
if 3.70000000000000004e-7 < t < 7.6000000000000001e115Initial program 16.7%
Taylor expanded in y5 around 0 17.0%
Taylor expanded in x around inf 27.9%
Taylor expanded in i around inf 56.1%
distribute-lft-out--56.1%
*-commutative56.1%
Simplified56.1%
if 8.5000000000000004e183 < t Initial program 24.2%
Taylor expanded in j around inf 44.8%
+-commutative44.8%
mul-1-neg44.8%
unsub-neg44.8%
*-commutative44.8%
Simplified44.8%
Taylor expanded in t around inf 66.0%
*-commutative66.0%
Simplified66.0%
Final simplification61.7%
(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 (- (* c y0) (* a y1)))
(t_3
(*
y1
(+
(* i (- (* x j) (* z k)))
(- (* a (- (* z y3) (* x y2))) (* y4 (- (* j y3) (* k y2)))))))
(t_4
(*
k
(+
(+ (* y2 t_1) (* y (- (* i y5) (* b y4))))
(* z (- (* b y0) (* i y1))))))
(t_5 (- (* b y4) (* i y5))))
(if (<= t -1.72e+218)
(* (* i j) (- (* x y1) (* t y5)))
(if (<= t -8e+160)
(* x (* y2 t_2))
(if (<= t -1.55e+63)
(* t_5 (* t j))
(if (<= t -2.75e-183)
t_3
(if (<= t 6.3e-201)
t_4
(if (<= t 4.9e-162)
t_3
(if (<= t 5.5e-62)
(* y2 (+ (+ (* k t_1) (* x t_2)) (* t (- (* a y5) (* c y4)))))
(if (<= t 8.6e+17)
t_4
(if (<= t 5.2e+185)
(* y3 (- (* c (* y y4)) (+ (* j (* y1 y4)) (* z t_2))))
(* j (* t t_5)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y1 * y4) - (y0 * y5);
double t_2 = (c * y0) - (a * y1);
double t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2)))));
double t_4 = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
double t_5 = (b * y4) - (i * y5);
double tmp;
if (t <= -1.72e+218) {
tmp = (i * j) * ((x * y1) - (t * y5));
} else if (t <= -8e+160) {
tmp = x * (y2 * t_2);
} else if (t <= -1.55e+63) {
tmp = t_5 * (t * j);
} else if (t <= -2.75e-183) {
tmp = t_3;
} else if (t <= 6.3e-201) {
tmp = t_4;
} else if (t <= 4.9e-162) {
tmp = t_3;
} else if (t <= 5.5e-62) {
tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4))));
} else if (t <= 8.6e+17) {
tmp = t_4;
} else if (t <= 5.2e+185) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2)));
} else {
tmp = j * (t * t_5);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: tmp
t_1 = (y1 * y4) - (y0 * y5)
t_2 = (c * y0) - (a * y1)
t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2)))))
t_4 = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
t_5 = (b * y4) - (i * y5)
if (t <= (-1.72d+218)) then
tmp = (i * j) * ((x * y1) - (t * y5))
else if (t <= (-8d+160)) then
tmp = x * (y2 * t_2)
else if (t <= (-1.55d+63)) then
tmp = t_5 * (t * j)
else if (t <= (-2.75d-183)) then
tmp = t_3
else if (t <= 6.3d-201) then
tmp = t_4
else if (t <= 4.9d-162) then
tmp = t_3
else if (t <= 5.5d-62) then
tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4))))
else if (t <= 8.6d+17) then
tmp = t_4
else if (t <= 5.2d+185) then
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2)))
else
tmp = j * (t * t_5)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y1 * y4) - (y0 * y5);
double t_2 = (c * y0) - (a * y1);
double t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2)))));
double t_4 = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
double t_5 = (b * y4) - (i * y5);
double tmp;
if (t <= -1.72e+218) {
tmp = (i * j) * ((x * y1) - (t * y5));
} else if (t <= -8e+160) {
tmp = x * (y2 * t_2);
} else if (t <= -1.55e+63) {
tmp = t_5 * (t * j);
} else if (t <= -2.75e-183) {
tmp = t_3;
} else if (t <= 6.3e-201) {
tmp = t_4;
} else if (t <= 4.9e-162) {
tmp = t_3;
} else if (t <= 5.5e-62) {
tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4))));
} else if (t <= 8.6e+17) {
tmp = t_4;
} else if (t <= 5.2e+185) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2)));
} else {
tmp = j * (t * t_5);
}
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 = (c * y0) - (a * y1) t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2))))) t_4 = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))) t_5 = (b * y4) - (i * y5) tmp = 0 if t <= -1.72e+218: tmp = (i * j) * ((x * y1) - (t * y5)) elif t <= -8e+160: tmp = x * (y2 * t_2) elif t <= -1.55e+63: tmp = t_5 * (t * j) elif t <= -2.75e-183: tmp = t_3 elif t <= 6.3e-201: tmp = t_4 elif t <= 4.9e-162: tmp = t_3 elif t <= 5.5e-62: tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4)))) elif t <= 8.6e+17: tmp = t_4 elif t <= 5.2e+185: tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2))) else: tmp = j * (t * t_5) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y1 * y4) - Float64(y0 * y5)) t_2 = Float64(Float64(c * y0) - Float64(a * y1)) t_3 = Float64(y1 * Float64(Float64(i * Float64(Float64(x * j) - Float64(z * k))) + Float64(Float64(a * Float64(Float64(z * y3) - Float64(x * y2))) - Float64(y4 * Float64(Float64(j * y3) - Float64(k * y2)))))) t_4 = Float64(k * Float64(Float64(Float64(y2 * t_1) + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1))))) t_5 = Float64(Float64(b * y4) - Float64(i * y5)) tmp = 0.0 if (t <= -1.72e+218) tmp = Float64(Float64(i * j) * Float64(Float64(x * y1) - Float64(t * y5))); elseif (t <= -8e+160) tmp = Float64(x * Float64(y2 * t_2)); elseif (t <= -1.55e+63) tmp = Float64(t_5 * Float64(t * j)); elseif (t <= -2.75e-183) tmp = t_3; elseif (t <= 6.3e-201) tmp = t_4; elseif (t <= 4.9e-162) tmp = t_3; elseif (t <= 5.5e-62) tmp = Float64(y2 * Float64(Float64(Float64(k * t_1) + Float64(x * t_2)) + Float64(t * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (t <= 8.6e+17) tmp = t_4; elseif (t <= 5.2e+185) tmp = Float64(y3 * Float64(Float64(c * Float64(y * y4)) - Float64(Float64(j * Float64(y1 * y4)) + Float64(z * t_2)))); else tmp = Float64(j * Float64(t * t_5)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (y1 * y4) - (y0 * y5); t_2 = (c * y0) - (a * y1); t_3 = y1 * ((i * ((x * j) - (z * k))) + ((a * ((z * y3) - (x * y2))) - (y4 * ((j * y3) - (k * y2))))); t_4 = k * (((y2 * t_1) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))); t_5 = (b * y4) - (i * y5); tmp = 0.0; if (t <= -1.72e+218) tmp = (i * j) * ((x * y1) - (t * y5)); elseif (t <= -8e+160) tmp = x * (y2 * t_2); elseif (t <= -1.55e+63) tmp = t_5 * (t * j); elseif (t <= -2.75e-183) tmp = t_3; elseif (t <= 6.3e-201) tmp = t_4; elseif (t <= 4.9e-162) tmp = t_3; elseif (t <= 5.5e-62) tmp = y2 * (((k * t_1) + (x * t_2)) + (t * ((a * y5) - (c * y4)))); elseif (t <= 8.6e+17) tmp = t_4; elseif (t <= 5.2e+185) tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2))); else tmp = j * (t * t_5); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y1 * N[(N[(i * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(a * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(y4 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(k * N[(N[(N[(y2 * t$95$1), $MachinePrecision] + N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -1.72e+218], N[(N[(i * j), $MachinePrecision] * N[(N[(x * y1), $MachinePrecision] - N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -8e+160], N[(x * N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1.55e+63], N[(t$95$5 * N[(t * j), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.75e-183], t$95$3, If[LessEqual[t, 6.3e-201], t$95$4, If[LessEqual[t, 4.9e-162], t$95$3, If[LessEqual[t, 5.5e-62], N[(y2 * N[(N[(N[(k * t$95$1), $MachinePrecision] + N[(x * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(t * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 8.6e+17], t$95$4, If[LessEqual[t, 5.2e+185], N[(y3 * N[(N[(c * N[(y * y4), $MachinePrecision]), $MachinePrecision] - N[(N[(j * N[(y1 * y4), $MachinePrecision]), $MachinePrecision] + N[(z * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(t * t$95$5), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y1 \cdot y4 - y0 \cdot y5\\
t_2 := c \cdot y0 - a \cdot y1\\
t_3 := y1 \cdot \left(i \cdot \left(x \cdot j - z \cdot k\right) + \left(a \cdot \left(z \cdot y3 - x \cdot y2\right) - y4 \cdot \left(j \cdot y3 - k \cdot y2\right)\right)\right)\\
t_4 := k \cdot \left(\left(y2 \cdot t\_1 + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
t_5 := b \cdot y4 - i \cdot y5\\
\mathbf{if}\;t \leq -1.72 \cdot 10^{+218}:\\
\;\;\;\;\left(i \cdot j\right) \cdot \left(x \cdot y1 - t \cdot y5\right)\\
\mathbf{elif}\;t \leq -8 \cdot 10^{+160}:\\
\;\;\;\;x \cdot \left(y2 \cdot t\_2\right)\\
\mathbf{elif}\;t \leq -1.55 \cdot 10^{+63}:\\
\;\;\;\;t\_5 \cdot \left(t \cdot j\right)\\
\mathbf{elif}\;t \leq -2.75 \cdot 10^{-183}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t \leq 6.3 \cdot 10^{-201}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t \leq 4.9 \cdot 10^{-162}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t \leq 5.5 \cdot 10^{-62}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot t\_1 + x \cdot t\_2\right) + t \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;t \leq 8.6 \cdot 10^{+17}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;t \leq 5.2 \cdot 10^{+185}:\\
\;\;\;\;y3 \cdot \left(c \cdot \left(y \cdot y4\right) - \left(j \cdot \left(y1 \cdot y4\right) + z \cdot t\_2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(t \cdot t\_5\right)\\
\end{array}
\end{array}
if t < -1.72e218Initial program 15.4%
Taylor expanded in j around inf 38.6%
+-commutative38.6%
mul-1-neg38.6%
unsub-neg38.6%
*-commutative38.6%
Simplified38.6%
Taylor expanded in i around -inf 69.8%
mul-1-neg69.8%
associate-*r*69.8%
*-commutative69.8%
*-commutative69.8%
Simplified69.8%
if -1.72e218 < t < -8.00000000000000005e160Initial program 12.4%
Taylor expanded in y2 around inf 31.2%
*-commutative31.2%
Simplified31.2%
Taylor expanded in x around inf 57.4%
*-commutative57.4%
Simplified57.4%
if -8.00000000000000005e160 < t < -1.55e63Initial program 34.8%
Taylor expanded in j around inf 50.5%
+-commutative50.5%
mul-1-neg50.5%
unsub-neg50.5%
*-commutative50.5%
Simplified50.5%
Taylor expanded in t around inf 51.6%
associate-*r*56.1%
*-commutative56.1%
Simplified56.1%
if -1.55e63 < t < -2.75e-183 or 6.3e-201 < t < 4.89999999999999976e-162Initial program 42.8%
Taylor expanded in y1 around -inf 63.8%
mul-1-neg63.8%
distribute-rgt-neg-in63.8%
+-commutative63.8%
mul-1-neg63.8%
unsub-neg63.8%
*-commutative63.8%
*-commutative63.8%
*-commutative63.8%
Simplified63.8%
if -2.75e-183 < t < 6.3e-201 or 5.50000000000000022e-62 < t < 8.6e17Initial program 33.4%
Taylor expanded in k around inf 52.2%
sub-neg52.2%
+-commutative52.2%
mul-1-neg52.2%
unsub-neg52.2%
*-commutative52.2%
mul-1-neg52.2%
remove-double-neg52.2%
Simplified52.2%
if 4.89999999999999976e-162 < t < 5.50000000000000022e-62Initial program 56.5%
Taylor expanded in y2 around inf 69.1%
if 8.6e17 < t < 5.20000000000000001e185Initial program 24.4%
Taylor expanded in y5 around 0 27.7%
Taylor expanded in y3 around -inf 52.7%
if 5.20000000000000001e185 < t Initial program 24.2%
Taylor expanded in j around inf 44.8%
+-commutative44.8%
mul-1-neg44.8%
unsub-neg44.8%
*-commutative44.8%
Simplified44.8%
Taylor expanded in t around inf 66.0%
*-commutative66.0%
Simplified66.0%
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
(*
y4
(+
(+ (* b (- (* t j) (* y k))) (* y1 (- (* k y2) (* j y3))))
(* c (- (* y y3) (* t y2))))))
(t_2 (- (* c y0) (* a y1)))
(t_3 (- (* i y1) (* b y0)))
(t_4 (* x (+ (+ (* y (- (* a b) (* c i))) (* y2 t_2)) (* j t_3)))))
(if (<= k -2e+93)
(*
k
(+
(+ (* y2 (- (* y1 y4) (* y0 y5))) (* y (- (* i y5) (* b y4))))
(* z (- (* b y0) (* i y1)))))
(if (<= k -9.2e-23)
t_4
(if (<= k -6e-272)
(*
j
(+
(+ (* t (- (* b y4) (* i y5))) (* y3 (- (* y0 y5) (* y1 y4))))
(* x t_3)))
(if (<= k 2.4e-160)
t_4
(if (<= k 2.9e-97)
t_1
(if (<= k 4e+17)
(* a (+ (* y1 (- (* z y3) (* x y2))) (* b (- (* x y) (* z t)))))
(if (<= k 5.6e+144)
t_1
(if (<= k 5.6e+153)
(* y3 (- (* c (* y y4)) (+ (* j (* y1 y4)) (* z t_2))))
(if (<= k 4.2e+208)
(* (* i y5) (- (* y k) (* t j)))
(*
y0
(+
(* y5 (- (* j y3) (* k y2)))
(* c (* x y2)))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
double t_2 = (c * y0) - (a * y1);
double t_3 = (i * y1) - (b * y0);
double t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_3));
double tmp;
if (k <= -2e+93) {
tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (k <= -9.2e-23) {
tmp = t_4;
} else if (k <= -6e-272) {
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3));
} else if (k <= 2.4e-160) {
tmp = t_4;
} else if (k <= 2.9e-97) {
tmp = t_1;
} else if (k <= 4e+17) {
tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))));
} else if (k <= 5.6e+144) {
tmp = t_1;
} else if (k <= 5.6e+153) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2)));
} else if (k <= 4.2e+208) {
tmp = (i * y5) * ((y * k) - (t * j));
} else {
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))))
t_2 = (c * y0) - (a * y1)
t_3 = (i * y1) - (b * y0)
t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_3))
if (k <= (-2d+93)) then
tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
else if (k <= (-9.2d-23)) then
tmp = t_4
else if (k <= (-6d-272)) then
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3))
else if (k <= 2.4d-160) then
tmp = t_4
else if (k <= 2.9d-97) then
tmp = t_1
else if (k <= 4d+17) then
tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))))
else if (k <= 5.6d+144) then
tmp = t_1
else if (k <= 5.6d+153) then
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2)))
else if (k <= 4.2d+208) then
tmp = (i * y5) * ((y * k) - (t * j))
else
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2))));
double t_2 = (c * y0) - (a * y1);
double t_3 = (i * y1) - (b * y0);
double t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_3));
double tmp;
if (k <= -2e+93) {
tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (k <= -9.2e-23) {
tmp = t_4;
} else if (k <= -6e-272) {
tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3));
} else if (k <= 2.4e-160) {
tmp = t_4;
} else if (k <= 2.9e-97) {
tmp = t_1;
} else if (k <= 4e+17) {
tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))));
} else if (k <= 5.6e+144) {
tmp = t_1;
} else if (k <= 5.6e+153) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2)));
} else if (k <= 4.2e+208) {
tmp = (i * y5) * ((y * k) - (t * j));
} else {
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))) t_2 = (c * y0) - (a * y1) t_3 = (i * y1) - (b * y0) t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_3)) tmp = 0 if k <= -2e+93: tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))) elif k <= -9.2e-23: tmp = t_4 elif k <= -6e-272: tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3)) elif k <= 2.4e-160: tmp = t_4 elif k <= 2.9e-97: tmp = t_1 elif k <= 4e+17: tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t)))) elif k <= 5.6e+144: tmp = t_1 elif k <= 5.6e+153: tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2))) elif k <= 4.2e+208: tmp = (i * y5) * ((y * k) - (t * j)) else: tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(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))))) t_2 = Float64(Float64(c * y0) - Float64(a * y1)) t_3 = Float64(Float64(i * y1) - Float64(b * y0)) t_4 = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * t_2)) + Float64(j * t_3))) tmp = 0.0 if (k <= -2e+93) tmp = Float64(k * Float64(Float64(Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1))))); elseif (k <= -9.2e-23) tmp = t_4; elseif (k <= -6e-272) tmp = Float64(j * Float64(Float64(Float64(t * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * t_3))); elseif (k <= 2.4e-160) tmp = t_4; elseif (k <= 2.9e-97) tmp = t_1; elseif (k <= 4e+17) tmp = Float64(a * Float64(Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2))) + Float64(b * Float64(Float64(x * y) - Float64(z * t))))); elseif (k <= 5.6e+144) tmp = t_1; elseif (k <= 5.6e+153) tmp = Float64(y3 * Float64(Float64(c * Float64(y * y4)) - Float64(Float64(j * Float64(y1 * y4)) + Float64(z * t_2)))); elseif (k <= 4.2e+208) tmp = Float64(Float64(i * y5) * Float64(Float64(y * k) - Float64(t * j))); else tmp = Float64(y0 * Float64(Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2))) + Float64(c * Float64(x * y2)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y4 * (((b * ((t * j) - (y * k))) + (y1 * ((k * y2) - (j * y3)))) + (c * ((y * y3) - (t * y2)))); t_2 = (c * y0) - (a * y1); t_3 = (i * y1) - (b * y0); t_4 = x * (((y * ((a * b) - (c * i))) + (y2 * t_2)) + (j * t_3)); tmp = 0.0; if (k <= -2e+93) tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))); elseif (k <= -9.2e-23) tmp = t_4; elseif (k <= -6e-272) tmp = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * t_3)); elseif (k <= 2.4e-160) tmp = t_4; elseif (k <= 2.9e-97) tmp = t_1; elseif (k <= 4e+17) tmp = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t)))); elseif (k <= 5.6e+144) tmp = t_1; elseif (k <= 5.6e+153) tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * t_2))); elseif (k <= 4.2e+208) tmp = (i * y5) * ((y * k) - (t * j)); else tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(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]}, Block[{t$95$2 = N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(j * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[k, -2e+93], N[(k * N[(N[(N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $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[k, -9.2e-23], t$95$4, If[LessEqual[k, -6e-272], N[(j * N[(N[(N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 2.4e-160], t$95$4, If[LessEqual[k, 2.9e-97], t$95$1, If[LessEqual[k, 4e+17], N[(a * N[(N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 5.6e+144], t$95$1, If[LessEqual[k, 5.6e+153], N[(y3 * N[(N[(c * N[(y * y4), $MachinePrecision]), $MachinePrecision] - N[(N[(j * N[(y1 * y4), $MachinePrecision]), $MachinePrecision] + N[(z * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 4.2e+208], N[(N[(i * y5), $MachinePrecision] * N[(N[(y * k), $MachinePrecision] - N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y0 * N[(N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := 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)\\
t_2 := c \cdot y0 - a \cdot y1\\
t_3 := i \cdot y1 - b \cdot y0\\
t_4 := x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + y2 \cdot t\_2\right) + j \cdot t\_3\right)\\
\mathbf{if}\;k \leq -2 \cdot 10^{+93}:\\
\;\;\;\;k \cdot \left(\left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;k \leq -9.2 \cdot 10^{-23}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;k \leq -6 \cdot 10^{-272}:\\
\;\;\;\;j \cdot \left(\left(t \cdot \left(b \cdot y4 - i \cdot y5\right) + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot t\_3\right)\\
\mathbf{elif}\;k \leq 2.4 \cdot 10^{-160}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;k \leq 2.9 \cdot 10^{-97}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;k \leq 4 \cdot 10^{+17}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right) + b \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{elif}\;k \leq 5.6 \cdot 10^{+144}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;k \leq 5.6 \cdot 10^{+153}:\\
\;\;\;\;y3 \cdot \left(c \cdot \left(y \cdot y4\right) - \left(j \cdot \left(y1 \cdot y4\right) + z \cdot t\_2\right)\right)\\
\mathbf{elif}\;k \leq 4.2 \cdot 10^{+208}:\\
\;\;\;\;\left(i \cdot y5\right) \cdot \left(y \cdot k - t \cdot j\right)\\
\mathbf{else}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3 - k \cdot y2\right) + c \cdot \left(x \cdot y2\right)\right)\\
\end{array}
\end{array}
if k < -2.00000000000000009e93Initial program 25.3%
Taylor expanded in k around inf 60.5%
sub-neg60.5%
+-commutative60.5%
mul-1-neg60.5%
unsub-neg60.5%
*-commutative60.5%
mul-1-neg60.5%
remove-double-neg60.5%
Simplified60.5%
if -2.00000000000000009e93 < k < -9.2000000000000004e-23 or -6.0000000000000006e-272 < k < 2.39999999999999991e-160Initial program 41.9%
Taylor expanded in y5 around 0 42.0%
Taylor expanded in x around inf 63.3%
if -9.2000000000000004e-23 < k < -6.0000000000000006e-272Initial program 37.2%
Taylor expanded in j around inf 51.3%
+-commutative51.3%
mul-1-neg51.3%
unsub-neg51.3%
*-commutative51.3%
Simplified51.3%
if 2.39999999999999991e-160 < k < 2.8999999999999999e-97 or 4e17 < k < 5.60000000000000013e144Initial program 19.1%
Taylor expanded in y4 around inf 54.9%
if 2.8999999999999999e-97 < k < 4e17Initial program 57.0%
Taylor expanded in y5 around 0 47.9%
Taylor expanded in a around inf 62.7%
if 5.60000000000000013e144 < k < 5.5999999999999997e153Initial program 0.0%
Taylor expanded in y5 around 0 0.0%
Taylor expanded in y3 around -inf 85.7%
if 5.5999999999999997e153 < k < 4.1999999999999997e208Initial program 25.0%
Taylor expanded in y5 around -inf 31.6%
Taylor expanded in i around inf 56.6%
associate-*r*50.3%
*-commutative50.3%
Simplified50.3%
if 4.1999999999999997e208 < k Initial program 27.3%
Taylor expanded in y2 around inf 32.2%
*-commutative32.2%
Simplified32.2%
Taylor expanded in y0 around inf 55.2%
Final simplification58.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (+ (* y1 (- (* z y3) (* x y2))) (* b (- (* x y) (* z t))))))
(t_2
(*
j
(+
(+ (* t (- (* b y4) (* i y5))) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0)))))))
(if (<= k -4.5e+96)
(* k (+ (* z (- (* b y0) (* i y1))) (- (* y1 (* y2 y4)) (* b (* y y4)))))
(if (<= k -3.2e-22)
t_1
(if (<= k -3.8e-284)
t_2
(if (<= k 2.15e-185)
(* i (+ (* y1 (- (* x j) (* z k))) (* c (- (* z t) (* x y)))))
(if (<= k 2.7e-97)
t_2
(if (<= k 2.8e+20)
t_1
(if (<= k 5.7e+113)
(* (- (* c y4) (* a y5)) (* y y3))
(if (<= k 1.95e+153)
(*
y3
(-
(* c (* y y4))
(+ (* j (* y1 y4)) (* z (- (* c y0) (* a y1))))))
(* y5 (* k (- (* y i) (* y0 y2))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))));
double t_2 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double tmp;
if (k <= -4.5e+96) {
tmp = k * ((z * ((b * y0) - (i * y1))) + ((y1 * (y2 * y4)) - (b * (y * y4))));
} else if (k <= -3.2e-22) {
tmp = t_1;
} else if (k <= -3.8e-284) {
tmp = t_2;
} else if (k <= 2.15e-185) {
tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y))));
} else if (k <= 2.7e-97) {
tmp = t_2;
} else if (k <= 2.8e+20) {
tmp = t_1;
} else if (k <= 5.7e+113) {
tmp = ((c * y4) - (a * y5)) * (y * y3);
} else if (k <= 1.95e+153) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1)))));
} else {
tmp = y5 * (k * ((y * i) - (y0 * y2)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))))
t_2 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
if (k <= (-4.5d+96)) then
tmp = k * ((z * ((b * y0) - (i * y1))) + ((y1 * (y2 * y4)) - (b * (y * y4))))
else if (k <= (-3.2d-22)) then
tmp = t_1
else if (k <= (-3.8d-284)) then
tmp = t_2
else if (k <= 2.15d-185) then
tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y))))
else if (k <= 2.7d-97) then
tmp = t_2
else if (k <= 2.8d+20) then
tmp = t_1
else if (k <= 5.7d+113) then
tmp = ((c * y4) - (a * y5)) * (y * y3)
else if (k <= 1.95d+153) then
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1)))))
else
tmp = y5 * (k * ((y * i) - (y0 * y2)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))));
double t_2 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double tmp;
if (k <= -4.5e+96) {
tmp = k * ((z * ((b * y0) - (i * y1))) + ((y1 * (y2 * y4)) - (b * (y * y4))));
} else if (k <= -3.2e-22) {
tmp = t_1;
} else if (k <= -3.8e-284) {
tmp = t_2;
} else if (k <= 2.15e-185) {
tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y))));
} else if (k <= 2.7e-97) {
tmp = t_2;
} else if (k <= 2.8e+20) {
tmp = t_1;
} else if (k <= 5.7e+113) {
tmp = ((c * y4) - (a * y5)) * (y * y3);
} else if (k <= 1.95e+153) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1)))));
} else {
tmp = y5 * (k * ((y * i) - (y0 * y2)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t)))) t_2 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) tmp = 0 if k <= -4.5e+96: tmp = k * ((z * ((b * y0) - (i * y1))) + ((y1 * (y2 * y4)) - (b * (y * y4)))) elif k <= -3.2e-22: tmp = t_1 elif k <= -3.8e-284: tmp = t_2 elif k <= 2.15e-185: tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y)))) elif k <= 2.7e-97: tmp = t_2 elif k <= 2.8e+20: tmp = t_1 elif k <= 5.7e+113: tmp = ((c * y4) - (a * y5)) * (y * y3) elif k <= 1.95e+153: tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1))))) else: tmp = y5 * (k * ((y * i) - (y0 * y2))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2))) + Float64(b * Float64(Float64(x * y) - Float64(z * t))))) t_2 = Float64(j * Float64(Float64(Float64(t * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * Float64(Float64(i * y1) - Float64(b * y0))))) tmp = 0.0 if (k <= -4.5e+96) tmp = Float64(k * Float64(Float64(z * Float64(Float64(b * y0) - Float64(i * y1))) + Float64(Float64(y1 * Float64(y2 * y4)) - Float64(b * Float64(y * y4))))); elseif (k <= -3.2e-22) tmp = t_1; elseif (k <= -3.8e-284) tmp = t_2; elseif (k <= 2.15e-185) tmp = Float64(i * Float64(Float64(y1 * Float64(Float64(x * j) - Float64(z * k))) + Float64(c * Float64(Float64(z * t) - Float64(x * y))))); elseif (k <= 2.7e-97) tmp = t_2; elseif (k <= 2.8e+20) tmp = t_1; elseif (k <= 5.7e+113) tmp = Float64(Float64(Float64(c * y4) - Float64(a * y5)) * Float64(y * y3)); elseif (k <= 1.95e+153) tmp = Float64(y3 * Float64(Float64(c * Float64(y * y4)) - Float64(Float64(j * Float64(y1 * y4)) + Float64(z * Float64(Float64(c * y0) - Float64(a * y1)))))); else tmp = Float64(y5 * Float64(k * Float64(Float64(y * i) - Float64(y0 * y2)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t)))); t_2 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); tmp = 0.0; if (k <= -4.5e+96) tmp = k * ((z * ((b * y0) - (i * y1))) + ((y1 * (y2 * y4)) - (b * (y * y4)))); elseif (k <= -3.2e-22) tmp = t_1; elseif (k <= -3.8e-284) tmp = t_2; elseif (k <= 2.15e-185) tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y)))); elseif (k <= 2.7e-97) tmp = t_2; elseif (k <= 2.8e+20) tmp = t_1; elseif (k <= 5.7e+113) tmp = ((c * y4) - (a * y5)) * (y * y3); elseif (k <= 1.95e+153) tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1))))); else tmp = y5 * (k * ((y * i) - (y0 * y2))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(j * N[(N[(N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[k, -4.5e+96], N[(k * N[(N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision] - N[(b * N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, -3.2e-22], t$95$1, If[LessEqual[k, -3.8e-284], t$95$2, If[LessEqual[k, 2.15e-185], N[(i * N[(N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 2.7e-97], t$95$2, If[LessEqual[k, 2.8e+20], t$95$1, If[LessEqual[k, 5.7e+113], N[(N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision] * N[(y * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 1.95e+153], N[(y3 * N[(N[(c * N[(y * y4), $MachinePrecision]), $MachinePrecision] - N[(N[(j * N[(y1 * y4), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y5 * N[(k * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right) + b \cdot \left(x \cdot y - z \cdot t\right)\right)\\
t_2 := j \cdot \left(\left(t \cdot \left(b \cdot y4 - i \cdot y5\right) + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{if}\;k \leq -4.5 \cdot 10^{+96}:\\
\;\;\;\;k \cdot \left(z \cdot \left(b \cdot y0 - i \cdot y1\right) + \left(y1 \cdot \left(y2 \cdot y4\right) - b \cdot \left(y \cdot y4\right)\right)\right)\\
\mathbf{elif}\;k \leq -3.2 \cdot 10^{-22}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;k \leq -3.8 \cdot 10^{-284}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;k \leq 2.15 \cdot 10^{-185}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j - z \cdot k\right) + c \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{elif}\;k \leq 2.7 \cdot 10^{-97}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;k \leq 2.8 \cdot 10^{+20}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;k \leq 5.7 \cdot 10^{+113}:\\
\;\;\;\;\left(c \cdot y4 - a \cdot y5\right) \cdot \left(y \cdot y3\right)\\
\mathbf{elif}\;k \leq 1.95 \cdot 10^{+153}:\\
\;\;\;\;y3 \cdot \left(c \cdot \left(y \cdot y4\right) - \left(j \cdot \left(y1 \cdot y4\right) + z \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y5 \cdot \left(k \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\end{array}
\end{array}
if k < -4.49999999999999957e96Initial program 25.3%
Taylor expanded in y5 around 0 15.3%
Taylor expanded in k around inf 53.0%
if -4.49999999999999957e96 < k < -3.19999999999999987e-22 or 2.69999999999999985e-97 < k < 2.8e20Initial program 44.6%
Taylor expanded in y5 around 0 42.6%
Taylor expanded in a around inf 54.2%
if -3.19999999999999987e-22 < k < -3.7999999999999999e-284 or 2.15e-185 < k < 2.69999999999999985e-97Initial program 36.4%
Taylor expanded in j around inf 51.9%
+-commutative51.9%
mul-1-neg51.9%
unsub-neg51.9%
*-commutative51.9%
Simplified51.9%
if -3.7999999999999999e-284 < k < 2.15e-185Initial program 44.8%
Taylor expanded in y5 around 0 45.0%
Taylor expanded in i around -inf 62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
if 2.8e20 < k < 5.6999999999999998e113Initial program 16.7%
Taylor expanded in y2 around inf 41.7%
*-commutative41.7%
Simplified41.7%
Taylor expanded in y around inf 59.5%
associate-*r*59.6%
*-commutative59.6%
*-commutative59.6%
*-commutative59.6%
Simplified59.6%
if 5.6999999999999998e113 < k < 1.94999999999999992e153Initial program 6.6%
Taylor expanded in y5 around 0 12.9%
Taylor expanded in y3 around -inf 57.1%
if 1.94999999999999992e153 < k Initial program 26.3%
Taylor expanded in y5 around -inf 44.9%
Taylor expanded in k around inf 50.3%
Final simplification54.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(*
j
(+
(+ (* t (- (* b y4) (* i y5))) (* y3 (- (* y0 y5) (* y1 y4))))
(* x (- (* i y1) (* b y0))))))
(t_2 (* a (+ (* y1 (- (* z y3) (* x y2))) (* b (- (* x y) (* z t)))))))
(if (<= k -3.5e+86)
(*
k
(+
(+ (* y2 (- (* y1 y4) (* y0 y5))) (* y (- (* i y5) (* b y4))))
(* z (- (* b y0) (* i y1)))))
(if (<= k -2.5e-25)
t_2
(if (<= k -1.18e-287)
t_1
(if (<= k 1.35e-185)
(* i (+ (* y1 (- (* x j) (* z k))) (* c (- (* z t) (* x y)))))
(if (<= k 1.6e-97)
t_1
(if (<= k 2.25e+19)
t_2
(if (<= k 3e+112)
(* (- (* c y4) (* a y5)) (* y y3))
(if (<= k 1.65e+153)
(*
y3
(-
(* c (* y y4))
(+ (* j (* y1 y4)) (* z (- (* c y0) (* a y1))))))
(* y5 (* k (- (* y i) (* y0 y2))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double t_2 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))));
double tmp;
if (k <= -3.5e+86) {
tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (k <= -2.5e-25) {
tmp = t_2;
} else if (k <= -1.18e-287) {
tmp = t_1;
} else if (k <= 1.35e-185) {
tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y))));
} else if (k <= 1.6e-97) {
tmp = t_1;
} else if (k <= 2.25e+19) {
tmp = t_2;
} else if (k <= 3e+112) {
tmp = ((c * y4) - (a * y5)) * (y * y3);
} else if (k <= 1.65e+153) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1)))));
} else {
tmp = y5 * (k * ((y * i) - (y0 * y2)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))))
t_2 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))))
if (k <= (-3.5d+86)) then
tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
else if (k <= (-2.5d-25)) then
tmp = t_2
else if (k <= (-1.18d-287)) then
tmp = t_1
else if (k <= 1.35d-185) then
tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y))))
else if (k <= 1.6d-97) then
tmp = t_1
else if (k <= 2.25d+19) then
tmp = t_2
else if (k <= 3d+112) then
tmp = ((c * y4) - (a * y5)) * (y * y3)
else if (k <= 1.65d+153) then
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1)))))
else
tmp = y5 * (k * ((y * i) - (y0 * y2)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0))));
double t_2 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t))));
double tmp;
if (k <= -3.5e+86) {
tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
} else if (k <= -2.5e-25) {
tmp = t_2;
} else if (k <= -1.18e-287) {
tmp = t_1;
} else if (k <= 1.35e-185) {
tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y))));
} else if (k <= 1.6e-97) {
tmp = t_1;
} else if (k <= 2.25e+19) {
tmp = t_2;
} else if (k <= 3e+112) {
tmp = ((c * y4) - (a * y5)) * (y * y3);
} else if (k <= 1.65e+153) {
tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1)))));
} else {
tmp = y5 * (k * ((y * i) - (y0 * y2)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))) t_2 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t)))) tmp = 0 if k <= -3.5e+86: tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))) elif k <= -2.5e-25: tmp = t_2 elif k <= -1.18e-287: tmp = t_1 elif k <= 1.35e-185: tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y)))) elif k <= 1.6e-97: tmp = t_1 elif k <= 2.25e+19: tmp = t_2 elif k <= 3e+112: tmp = ((c * y4) - (a * y5)) * (y * y3) elif k <= 1.65e+153: tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1))))) else: tmp = y5 * (k * ((y * i) - (y0 * y2))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(Float64(Float64(t * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) + Float64(x * Float64(Float64(i * y1) - Float64(b * y0))))) t_2 = Float64(a * Float64(Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2))) + Float64(b * Float64(Float64(x * y) - Float64(z * t))))) tmp = 0.0 if (k <= -3.5e+86) tmp = Float64(k * Float64(Float64(Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1))))); elseif (k <= -2.5e-25) tmp = t_2; elseif (k <= -1.18e-287) tmp = t_1; elseif (k <= 1.35e-185) tmp = Float64(i * Float64(Float64(y1 * Float64(Float64(x * j) - Float64(z * k))) + Float64(c * Float64(Float64(z * t) - Float64(x * y))))); elseif (k <= 1.6e-97) tmp = t_1; elseif (k <= 2.25e+19) tmp = t_2; elseif (k <= 3e+112) tmp = Float64(Float64(Float64(c * y4) - Float64(a * y5)) * Float64(y * y3)); elseif (k <= 1.65e+153) tmp = Float64(y3 * Float64(Float64(c * Float64(y * y4)) - Float64(Float64(j * Float64(y1 * y4)) + Float64(z * Float64(Float64(c * y0) - Float64(a * y1)))))); else tmp = Float64(y5 * Float64(k * Float64(Float64(y * i) - Float64(y0 * y2)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * (((t * ((b * y4) - (i * y5))) + (y3 * ((y0 * y5) - (y1 * y4)))) + (x * ((i * y1) - (b * y0)))); t_2 = a * ((y1 * ((z * y3) - (x * y2))) + (b * ((x * y) - (z * t)))); tmp = 0.0; if (k <= -3.5e+86) tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1)))); elseif (k <= -2.5e-25) tmp = t_2; elseif (k <= -1.18e-287) tmp = t_1; elseif (k <= 1.35e-185) tmp = i * ((y1 * ((x * j) - (z * k))) + (c * ((z * t) - (x * y)))); elseif (k <= 1.6e-97) tmp = t_1; elseif (k <= 2.25e+19) tmp = t_2; elseif (k <= 3e+112) tmp = ((c * y4) - (a * y5)) * (y * y3); elseif (k <= 1.65e+153) tmp = y3 * ((c * (y * y4)) - ((j * (y1 * y4)) + (z * ((c * y0) - (a * y1))))); else tmp = y5 * (k * ((y * i) - (y0 * y2))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(N[(N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[k, -3.5e+86], N[(k * N[(N[(N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $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[k, -2.5e-25], t$95$2, If[LessEqual[k, -1.18e-287], t$95$1, If[LessEqual[k, 1.35e-185], N[(i * N[(N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 1.6e-97], t$95$1, If[LessEqual[k, 2.25e+19], t$95$2, If[LessEqual[k, 3e+112], N[(N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision] * N[(y * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 1.65e+153], N[(y3 * N[(N[(c * N[(y * y4), $MachinePrecision]), $MachinePrecision] - N[(N[(j * N[(y1 * y4), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y5 * N[(k * N[(N[(y * i), $MachinePrecision] - N[(y0 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(\left(t \cdot \left(b \cdot y4 - i \cdot y5\right) + y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right) + x \cdot \left(i \cdot y1 - b \cdot y0\right)\right)\\
t_2 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right) + b \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{if}\;k \leq -3.5 \cdot 10^{+86}:\\
\;\;\;\;k \cdot \left(\left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\
\mathbf{elif}\;k \leq -2.5 \cdot 10^{-25}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;k \leq -1.18 \cdot 10^{-287}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;k \leq 1.35 \cdot 10^{-185}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j - z \cdot k\right) + c \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{elif}\;k \leq 1.6 \cdot 10^{-97}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;k \leq 2.25 \cdot 10^{+19}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;k \leq 3 \cdot 10^{+112}:\\
\;\;\;\;\left(c \cdot y4 - a \cdot y5\right) \cdot \left(y \cdot y3\right)\\
\mathbf{elif}\;k \leq 1.65 \cdot 10^{+153}:\\
\;\;\;\;y3 \cdot \left(c \cdot \left(y \cdot y4\right) - \left(j \cdot \left(y1 \cdot y4\right) + z \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y5 \cdot \left(k \cdot \left(y \cdot i - y0 \cdot y2\right)\right)\\
\end{array}
\end{array}
if k < -3.50000000000000019e86Initial program 24.1%
Taylor expanded in k around inf 60.0%
sub-neg60.0%
+-commutative60.0%
mul-1-neg60.0%
unsub-neg60.0%
*-commutative60.0%
mul-1-neg60.0%
remove-double-neg60.0%
Simplified60.0%
if -3.50000000000000019e86 < k < -2.49999999999999981e-25 or 1.5999999999999999e-97 < k < 2.25e19Initial program 46.6%
Taylor expanded in y5 around 0 44.5%
Taylor expanded in a around inf 54.4%
if -2.49999999999999981e-25 < k < -1.18000000000000003e-287 or 1.34999999999999994e-185 < k < 1.5999999999999999e-97Initial program 36.4%
Taylor expanded in j around inf 51.9%
+-commutative51.9%
mul-1-neg51.9%
unsub-neg51.9%
*-commutative51.9%
Simplified51.9%
if -1.18000000000000003e-287 < k < 1.34999999999999994e-185Initial program 44.8%
Taylor expanded in y5 around 0 45.0%
Taylor expanded in i around -inf 62.5%
mul-1-neg62.5%
*-commutative62.5%
Simplified62.5%
if 2.25e19 < k < 2.99999999999999979e112Initial program 16.7%
Taylor expanded in y2 around inf 41.7%
*-commutative41.7%
Simplified41.7%
Taylor expanded in y around inf 59.5%
associate-*r*59.6%
*-commutative59.6%
*-commutative59.6%
*-commutative59.6%
Simplified59.6%
if 2.99999999999999979e112 < k < 1.64999999999999997e153Initial program 6.6%
Taylor expanded in y5 around 0 12.9%
Taylor expanded in y3 around -inf 57.1%
if 1.64999999999999997e153 < k Initial program 26.3%
Taylor expanded in y5 around -inf 44.9%
Taylor expanded in k around inf 50.3%
Final simplification55.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y4 -1.55e+137)
(* j (* b (- (* t y4) (* x y0))))
(if (<= y4 -0.0056)
(* (* i y5) (- (* y k) (* t j)))
(if (<= y4 -2.3e-175)
(* c (- (* x (* y0 y2)) (* y4 (- (* t y2) (* y y3)))))
(if (<= y4 -4.4e-297)
(* x (* y1 (- (* i j) (* a y2))))
(if (<= y4 1.95e-246)
(* (* i j) (- (* x y1) (* t y5)))
(if (<= y4 7.5e-220)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= y4 6e-206)
(* x (* y (- (* a b) (* c i))))
(if (<= y4 9e+40)
(* y0 (+ (* y5 (- (* j y3) (* k y2))) (* c (* x y2))))
(* y1 (* y3 (- (* z a) (* j y4)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y4 <= -1.55e+137) {
tmp = j * (b * ((t * y4) - (x * y0)));
} else if (y4 <= -0.0056) {
tmp = (i * y5) * ((y * k) - (t * j));
} else if (y4 <= -2.3e-175) {
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))));
} else if (y4 <= -4.4e-297) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (y4 <= 1.95e-246) {
tmp = (i * j) * ((x * y1) - (t * y5));
} else if (y4 <= 7.5e-220) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y4 <= 6e-206) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y4 <= 9e+40) {
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)));
} else {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y4 <= (-1.55d+137)) then
tmp = j * (b * ((t * y4) - (x * y0)))
else if (y4 <= (-0.0056d0)) then
tmp = (i * y5) * ((y * k) - (t * j))
else if (y4 <= (-2.3d-175)) then
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))))
else if (y4 <= (-4.4d-297)) then
tmp = x * (y1 * ((i * j) - (a * y2)))
else if (y4 <= 1.95d-246) then
tmp = (i * j) * ((x * y1) - (t * y5))
else if (y4 <= 7.5d-220) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (y4 <= 6d-206) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y4 <= 9d+40) then
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)))
else
tmp = y1 * (y3 * ((z * a) - (j * y4)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y4 <= -1.55e+137) {
tmp = j * (b * ((t * y4) - (x * y0)));
} else if (y4 <= -0.0056) {
tmp = (i * y5) * ((y * k) - (t * j));
} else if (y4 <= -2.3e-175) {
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))));
} else if (y4 <= -4.4e-297) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (y4 <= 1.95e-246) {
tmp = (i * j) * ((x * y1) - (t * y5));
} else if (y4 <= 7.5e-220) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y4 <= 6e-206) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y4 <= 9e+40) {
tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2)));
} else {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y4 <= -1.55e+137: tmp = j * (b * ((t * y4) - (x * y0))) elif y4 <= -0.0056: tmp = (i * y5) * ((y * k) - (t * j)) elif y4 <= -2.3e-175: tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3)))) elif y4 <= -4.4e-297: tmp = x * (y1 * ((i * j) - (a * y2))) elif y4 <= 1.95e-246: tmp = (i * j) * ((x * y1) - (t * y5)) elif y4 <= 7.5e-220: tmp = x * (y2 * ((c * y0) - (a * y1))) elif y4 <= 6e-206: tmp = x * (y * ((a * b) - (c * i))) elif y4 <= 9e+40: tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2))) else: tmp = y1 * (y3 * ((z * a) - (j * y4))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y4 <= -1.55e+137) tmp = Float64(j * Float64(b * Float64(Float64(t * y4) - Float64(x * y0)))); elseif (y4 <= -0.0056) tmp = Float64(Float64(i * y5) * Float64(Float64(y * k) - Float64(t * j))); elseif (y4 <= -2.3e-175) tmp = Float64(c * Float64(Float64(x * Float64(y0 * y2)) - Float64(y4 * Float64(Float64(t * y2) - Float64(y * y3))))); elseif (y4 <= -4.4e-297) tmp = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))); elseif (y4 <= 1.95e-246) tmp = Float64(Float64(i * j) * Float64(Float64(x * y1) - Float64(t * y5))); elseif (y4 <= 7.5e-220) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (y4 <= 6e-206) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y4 <= 9e+40) tmp = Float64(y0 * Float64(Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2))) + Float64(c * Float64(x * y2)))); else tmp = Float64(y1 * Float64(y3 * Float64(Float64(z * a) - Float64(j * y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y4 <= -1.55e+137) tmp = j * (b * ((t * y4) - (x * y0))); elseif (y4 <= -0.0056) tmp = (i * y5) * ((y * k) - (t * j)); elseif (y4 <= -2.3e-175) tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3)))); elseif (y4 <= -4.4e-297) tmp = x * (y1 * ((i * j) - (a * y2))); elseif (y4 <= 1.95e-246) tmp = (i * j) * ((x * y1) - (t * y5)); elseif (y4 <= 7.5e-220) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (y4 <= 6e-206) tmp = x * (y * ((a * b) - (c * i))); elseif (y4 <= 9e+40) tmp = y0 * ((y5 * ((j * y3) - (k * y2))) + (c * (x * y2))); else tmp = y1 * (y3 * ((z * a) - (j * y4))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y4, -1.55e+137], N[(j * N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -0.0056], N[(N[(i * y5), $MachinePrecision] * N[(N[(y * k), $MachinePrecision] - N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.3e-175], N[(c * N[(N[(x * N[(y0 * y2), $MachinePrecision]), $MachinePrecision] - N[(y4 * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -4.4e-297], N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.95e-246], N[(N[(i * j), $MachinePrecision] * N[(N[(x * y1), $MachinePrecision] - N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 7.5e-220], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 6e-206], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 9e+40], N[(y0 * N[(N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y1 * N[(y3 * N[(N[(z * a), $MachinePrecision] - N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y4 \leq -1.55 \cdot 10^{+137}:\\
\;\;\;\;j \cdot \left(b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;y4 \leq -0.0056:\\
\;\;\;\;\left(i \cdot y5\right) \cdot \left(y \cdot k - t \cdot j\right)\\
\mathbf{elif}\;y4 \leq -2.3 \cdot 10^{-175}:\\
\;\;\;\;c \cdot \left(x \cdot \left(y0 \cdot y2\right) - y4 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\
\mathbf{elif}\;y4 \leq -4.4 \cdot 10^{-297}:\\
\;\;\;\;x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
\mathbf{elif}\;y4 \leq 1.95 \cdot 10^{-246}:\\
\;\;\;\;\left(i \cdot j\right) \cdot \left(x \cdot y1 - t \cdot y5\right)\\
\mathbf{elif}\;y4 \leq 7.5 \cdot 10^{-220}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 6 \cdot 10^{-206}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y4 \leq 9 \cdot 10^{+40}:\\
\;\;\;\;y0 \cdot \left(y5 \cdot \left(j \cdot y3 - k \cdot y2\right) + c \cdot \left(x \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(z \cdot a - j \cdot y4\right)\right)\\
\end{array}
\end{array}
if y4 < -1.55e137Initial program 24.3%
Taylor expanded in j around inf 38.0%
+-commutative38.0%
mul-1-neg38.0%
unsub-neg38.0%
*-commutative38.0%
Simplified38.0%
Taylor expanded in b around inf 50.0%
*-commutative50.0%
Simplified50.0%
if -1.55e137 < y4 < -0.00559999999999999994Initial program 23.3%
Taylor expanded in y5 around -inf 54.1%
Taylor expanded in i around inf 57.9%
associate-*r*51.4%
*-commutative51.4%
Simplified51.4%
if -0.00559999999999999994 < y4 < -2.3e-175Initial program 24.5%
Taylor expanded in y2 around inf 43.4%
*-commutative43.4%
Simplified43.4%
Taylor expanded in c around inf 46.8%
*-commutative46.8%
*-commutative46.8%
*-commutative46.8%
*-commutative46.8%
Simplified46.8%
if -2.3e-175 < y4 < -4.3999999999999997e-297Initial program 45.8%
Taylor expanded in y1 around -inf 42.4%
mul-1-neg42.4%
distribute-rgt-neg-in42.4%
+-commutative42.4%
mul-1-neg42.4%
unsub-neg42.4%
*-commutative42.4%
*-commutative42.4%
*-commutative42.4%
Simplified42.4%
Taylor expanded in x around inf 50.5%
if -4.3999999999999997e-297 < y4 < 1.94999999999999989e-246Initial program 43.3%
Taylor expanded in j around inf 52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
Simplified52.7%
Taylor expanded in i around -inf 57.0%
mul-1-neg57.0%
associate-*r*57.1%
*-commutative57.1%
*-commutative57.1%
Simplified57.1%
if 1.94999999999999989e-246 < y4 < 7.5000000000000002e-220Initial program 49.6%
Taylor expanded in y2 around inf 90.5%
*-commutative90.5%
Simplified90.5%
Taylor expanded in x around inf 76.6%
*-commutative76.6%
Simplified76.6%
if 7.5000000000000002e-220 < y4 < 6.0000000000000004e-206Initial program 60.0%
Taylor expanded in y5 around 0 41.2%
Taylor expanded in x around inf 60.4%
Taylor expanded in y around inf 80.4%
if 6.0000000000000004e-206 < y4 < 9.00000000000000064e40Initial program 45.4%
Taylor expanded in y2 around inf 45.7%
*-commutative45.7%
Simplified45.7%
Taylor expanded in y0 around inf 41.0%
if 9.00000000000000064e40 < y4 Initial program 25.9%
Taylor expanded in y1 around -inf 52.4%
mul-1-neg52.4%
distribute-rgt-neg-in52.4%
+-commutative52.4%
mul-1-neg52.4%
unsub-neg52.4%
*-commutative52.4%
*-commutative52.4%
*-commutative52.4%
Simplified52.4%
Taylor expanded in y3 around -inf 48.9%
Final simplification49.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y4 -5.6e+141)
(* j (* b (- (* t y4) (* x y0))))
(if (<= y4 -0.0045)
(* (* i y5) (- (* y k) (* t j)))
(if (<= y4 -1.22e-175)
(* c (- (* x (* y0 y2)) (* y4 (- (* t y2) (* y y3)))))
(if (<= y4 -1.85e-299)
(* x (* y1 (- (* i j) (* a y2))))
(if (<= y4 5.5e-243)
(* (* i j) (- (* x y1) (* t y5)))
(if (<= y4 1.1e-223)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= y4 80.0)
(* y0 (+ (* c (- (* x y2) (* z y3))) (* b (- (* z k) (* x j)))))
(* y1 (* y3 (- (* z a) (* j y4))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y4 <= -5.6e+141) {
tmp = j * (b * ((t * y4) - (x * y0)));
} else if (y4 <= -0.0045) {
tmp = (i * y5) * ((y * k) - (t * j));
} else if (y4 <= -1.22e-175) {
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))));
} else if (y4 <= -1.85e-299) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (y4 <= 5.5e-243) {
tmp = (i * j) * ((x * y1) - (t * y5));
} else if (y4 <= 1.1e-223) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y4 <= 80.0) {
tmp = y0 * ((c * ((x * y2) - (z * y3))) + (b * ((z * k) - (x * j))));
} else {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (y4 <= (-5.6d+141)) then
tmp = j * (b * ((t * y4) - (x * y0)))
else if (y4 <= (-0.0045d0)) then
tmp = (i * y5) * ((y * k) - (t * j))
else if (y4 <= (-1.22d-175)) then
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))))
else if (y4 <= (-1.85d-299)) then
tmp = x * (y1 * ((i * j) - (a * y2)))
else if (y4 <= 5.5d-243) then
tmp = (i * j) * ((x * y1) - (t * y5))
else if (y4 <= 1.1d-223) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (y4 <= 80.0d0) then
tmp = y0 * ((c * ((x * y2) - (z * y3))) + (b * ((z * k) - (x * j))))
else
tmp = y1 * (y3 * ((z * a) - (j * y4)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (y4 <= -5.6e+141) {
tmp = j * (b * ((t * y4) - (x * y0)));
} else if (y4 <= -0.0045) {
tmp = (i * y5) * ((y * k) - (t * j));
} else if (y4 <= -1.22e-175) {
tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3))));
} else if (y4 <= -1.85e-299) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (y4 <= 5.5e-243) {
tmp = (i * j) * ((x * y1) - (t * y5));
} else if (y4 <= 1.1e-223) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y4 <= 80.0) {
tmp = y0 * ((c * ((x * y2) - (z * y3))) + (b * ((z * k) - (x * j))));
} else {
tmp = y1 * (y3 * ((z * a) - (j * y4)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y4 <= -5.6e+141: tmp = j * (b * ((t * y4) - (x * y0))) elif y4 <= -0.0045: tmp = (i * y5) * ((y * k) - (t * j)) elif y4 <= -1.22e-175: tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3)))) elif y4 <= -1.85e-299: tmp = x * (y1 * ((i * j) - (a * y2))) elif y4 <= 5.5e-243: tmp = (i * j) * ((x * y1) - (t * y5)) elif y4 <= 1.1e-223: tmp = x * (y2 * ((c * y0) - (a * y1))) elif y4 <= 80.0: tmp = y0 * ((c * ((x * y2) - (z * y3))) + (b * ((z * k) - (x * j)))) else: tmp = y1 * (y3 * ((z * a) - (j * y4))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (y4 <= -5.6e+141) tmp = Float64(j * Float64(b * Float64(Float64(t * y4) - Float64(x * y0)))); elseif (y4 <= -0.0045) tmp = Float64(Float64(i * y5) * Float64(Float64(y * k) - Float64(t * j))); elseif (y4 <= -1.22e-175) tmp = Float64(c * Float64(Float64(x * Float64(y0 * y2)) - Float64(y4 * Float64(Float64(t * y2) - Float64(y * y3))))); elseif (y4 <= -1.85e-299) tmp = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))); elseif (y4 <= 5.5e-243) tmp = Float64(Float64(i * j) * Float64(Float64(x * y1) - Float64(t * y5))); elseif (y4 <= 1.1e-223) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (y4 <= 80.0) tmp = Float64(y0 * Float64(Float64(c * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(b * Float64(Float64(z * k) - Float64(x * j))))); else tmp = Float64(y1 * Float64(y3 * Float64(Float64(z * a) - Float64(j * y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (y4 <= -5.6e+141) tmp = j * (b * ((t * y4) - (x * y0))); elseif (y4 <= -0.0045) tmp = (i * y5) * ((y * k) - (t * j)); elseif (y4 <= -1.22e-175) tmp = c * ((x * (y0 * y2)) - (y4 * ((t * y2) - (y * y3)))); elseif (y4 <= -1.85e-299) tmp = x * (y1 * ((i * j) - (a * y2))); elseif (y4 <= 5.5e-243) tmp = (i * j) * ((x * y1) - (t * y5)); elseif (y4 <= 1.1e-223) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (y4 <= 80.0) tmp = y0 * ((c * ((x * y2) - (z * y3))) + (b * ((z * k) - (x * j)))); else tmp = y1 * (y3 * ((z * a) - (j * y4))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y4, -5.6e+141], N[(j * N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -0.0045], N[(N[(i * y5), $MachinePrecision] * N[(N[(y * k), $MachinePrecision] - N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1.22e-175], N[(c * N[(N[(x * N[(y0 * y2), $MachinePrecision]), $MachinePrecision] - N[(y4 * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1.85e-299], N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 5.5e-243], N[(N[(i * j), $MachinePrecision] * N[(N[(x * y1), $MachinePrecision] - N[(t * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.1e-223], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 80.0], N[(y0 * N[(N[(c * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(y1 * N[(y3 * N[(N[(z * a), $MachinePrecision] - N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y4 \leq -5.6 \cdot 10^{+141}:\\
\;\;\;\;j \cdot \left(b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;y4 \leq -0.0045:\\
\;\;\;\;\left(i \cdot y5\right) \cdot \left(y \cdot k - t \cdot j\right)\\
\mathbf{elif}\;y4 \leq -1.22 \cdot 10^{-175}:\\
\;\;\;\;c \cdot \left(x \cdot \left(y0 \cdot y2\right) - y4 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\
\mathbf{elif}\;y4 \leq -1.85 \cdot 10^{-299}:\\
\;\;\;\;x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
\mathbf{elif}\;y4 \leq 5.5 \cdot 10^{-243}:\\
\;\;\;\;\left(i \cdot j\right) \cdot \left(x \cdot y1 - t \cdot y5\right)\\
\mathbf{elif}\;y4 \leq 1.1 \cdot 10^{-223}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 80:\\
\;\;\;\;y0 \cdot \left(c \cdot \left(x \cdot y2 - z \cdot y3\right) + b \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{else}:\\
\;\;\;\;y1 \cdot \left(y3 \cdot \left(z \cdot a - j \cdot y4\right)\right)\\
\end{array}
\end{array}
if y4 < -5.59999999999999982e141Initial program 24.3%
Taylor expanded in j around inf 38.0%
+-commutative38.0%
mul-1-neg38.0%
unsub-neg38.0%
*-commutative38.0%
Simplified38.0%
Taylor expanded in b around inf 50.0%
*-commutative50.0%
Simplified50.0%
if -5.59999999999999982e141 < y4 < -0.00449999999999999966Initial program 23.3%
Taylor expanded in y5 around -inf 54.1%
Taylor expanded in i around inf 57.9%
associate-*r*51.4%
*-commutative51.4%
Simplified51.4%
if -0.00449999999999999966 < y4 < -1.2200000000000001e-175Initial program 24.5%
Taylor expanded in y2 around inf 43.4%
*-commutative43.4%
Simplified43.4%
Taylor expanded in c around inf 46.8%
*-commutative46.8%
*-commutative46.8%
*-commutative46.8%
*-commutative46.8%
Simplified46.8%
if -1.2200000000000001e-175 < y4 < -1.85000000000000007e-299Initial program 45.8%
Taylor expanded in y1 around -inf 42.4%
mul-1-neg42.4%
distribute-rgt-neg-in42.4%
+-commutative42.4%
mul-1-neg42.4%
unsub-neg42.4%
*-commutative42.4%
*-commutative42.4%
*-commutative42.4%
Simplified42.4%
Taylor expanded in x around inf 50.5%
if -1.85000000000000007e-299 < y4 < 5.50000000000000004e-243Initial program 43.3%
Taylor expanded in j around inf 52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
Simplified52.7%
Taylor expanded in i around -inf 57.0%
mul-1-neg57.0%
associate-*r*57.1%
*-commutative57.1%
*-commutative57.1%
Simplified57.1%
if 5.50000000000000004e-243 < y4 < 1.10000000000000004e-223Initial program 32.8%
Taylor expanded in y2 around inf 87.4%
*-commutative87.4%
Simplified87.4%
Taylor expanded in x around inf 68.8%
*-commutative68.8%
Simplified68.8%
if 1.10000000000000004e-223 < y4 < 80Initial program 45.6%
Taylor expanded in y5 around 0 39.0%
Taylor expanded in y0 around inf 46.1%
*-commutative46.1%
Simplified46.1%
if 80 < y4 Initial program 29.3%
Taylor expanded in y1 around -inf 52.5%
mul-1-neg52.5%
distribute-rgt-neg-in52.5%
+-commutative52.5%
mul-1-neg52.5%
unsub-neg52.5%
*-commutative52.5%
*-commutative52.5%
*-commutative52.5%
Simplified52.5%
Taylor expanded in y3 around -inf 47.5%
Final simplification49.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* y1 (- (* z y3) (* x y2)))))
(t_2 (* (* i y5) (* y k)))
(t_3 (* i (* y1 (- (* x j) (* z k))))))
(if (<= i -4.4e+142)
(* (* i j) (* t (- y5)))
(if (<= i -3.8e+85)
t_3
(if (<= i -4.2e+79)
t_2
(if (<= i -1.36e-281)
t_1
(if (<= i 5.8e-271)
(* c (* y (* y3 y4)))
(if (<= i 6e-106)
t_1
(if (<= i 1.42e+144)
(* j (* b (- (* t y4) (* x y0))))
(if (<= i 6.8e+283) t_3 t_2))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (y1 * ((z * y3) - (x * y2)));
double t_2 = (i * y5) * (y * k);
double t_3 = i * (y1 * ((x * j) - (z * k)));
double tmp;
if (i <= -4.4e+142) {
tmp = (i * j) * (t * -y5);
} else if (i <= -3.8e+85) {
tmp = t_3;
} else if (i <= -4.2e+79) {
tmp = t_2;
} else if (i <= -1.36e-281) {
tmp = t_1;
} else if (i <= 5.8e-271) {
tmp = c * (y * (y3 * y4));
} else if (i <= 6e-106) {
tmp = t_1;
} else if (i <= 1.42e+144) {
tmp = j * (b * ((t * y4) - (x * y0)));
} else if (i <= 6.8e+283) {
tmp = t_3;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = a * (y1 * ((z * y3) - (x * y2)))
t_2 = (i * y5) * (y * k)
t_3 = i * (y1 * ((x * j) - (z * k)))
if (i <= (-4.4d+142)) then
tmp = (i * j) * (t * -y5)
else if (i <= (-3.8d+85)) then
tmp = t_3
else if (i <= (-4.2d+79)) then
tmp = t_2
else if (i <= (-1.36d-281)) then
tmp = t_1
else if (i <= 5.8d-271) then
tmp = c * (y * (y3 * y4))
else if (i <= 6d-106) then
tmp = t_1
else if (i <= 1.42d+144) then
tmp = j * (b * ((t * y4) - (x * y0)))
else if (i <= 6.8d+283) then
tmp = t_3
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (y1 * ((z * y3) - (x * y2)));
double t_2 = (i * y5) * (y * k);
double t_3 = i * (y1 * ((x * j) - (z * k)));
double tmp;
if (i <= -4.4e+142) {
tmp = (i * j) * (t * -y5);
} else if (i <= -3.8e+85) {
tmp = t_3;
} else if (i <= -4.2e+79) {
tmp = t_2;
} else if (i <= -1.36e-281) {
tmp = t_1;
} else if (i <= 5.8e-271) {
tmp = c * (y * (y3 * y4));
} else if (i <= 6e-106) {
tmp = t_1;
} else if (i <= 1.42e+144) {
tmp = j * (b * ((t * y4) - (x * y0)));
} else if (i <= 6.8e+283) {
tmp = t_3;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (y1 * ((z * y3) - (x * y2))) t_2 = (i * y5) * (y * k) t_3 = i * (y1 * ((x * j) - (z * k))) tmp = 0 if i <= -4.4e+142: tmp = (i * j) * (t * -y5) elif i <= -3.8e+85: tmp = t_3 elif i <= -4.2e+79: tmp = t_2 elif i <= -1.36e-281: tmp = t_1 elif i <= 5.8e-271: tmp = c * (y * (y3 * y4)) elif i <= 6e-106: tmp = t_1 elif i <= 1.42e+144: tmp = j * (b * ((t * y4) - (x * y0))) elif i <= 6.8e+283: tmp = t_3 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) t_2 = Float64(Float64(i * y5) * Float64(y * k)) t_3 = Float64(i * Float64(y1 * Float64(Float64(x * j) - Float64(z * k)))) tmp = 0.0 if (i <= -4.4e+142) tmp = Float64(Float64(i * j) * Float64(t * Float64(-y5))); elseif (i <= -3.8e+85) tmp = t_3; elseif (i <= -4.2e+79) tmp = t_2; elseif (i <= -1.36e-281) tmp = t_1; elseif (i <= 5.8e-271) tmp = Float64(c * Float64(y * Float64(y3 * y4))); elseif (i <= 6e-106) tmp = t_1; elseif (i <= 1.42e+144) tmp = Float64(j * Float64(b * Float64(Float64(t * y4) - Float64(x * y0)))); elseif (i <= 6.8e+283) tmp = t_3; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (y1 * ((z * y3) - (x * y2))); t_2 = (i * y5) * (y * k); t_3 = i * (y1 * ((x * j) - (z * k))); tmp = 0.0; if (i <= -4.4e+142) tmp = (i * j) * (t * -y5); elseif (i <= -3.8e+85) tmp = t_3; elseif (i <= -4.2e+79) tmp = t_2; elseif (i <= -1.36e-281) tmp = t_1; elseif (i <= 5.8e-271) tmp = c * (y * (y3 * y4)); elseif (i <= 6e-106) tmp = t_1; elseif (i <= 1.42e+144) tmp = j * (b * ((t * y4) - (x * y0))); elseif (i <= 6.8e+283) tmp = t_3; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(i * y5), $MachinePrecision] * N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(i * N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, -4.4e+142], N[(N[(i * j), $MachinePrecision] * N[(t * (-y5)), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -3.8e+85], t$95$3, If[LessEqual[i, -4.2e+79], t$95$2, If[LessEqual[i, -1.36e-281], t$95$1, If[LessEqual[i, 5.8e-271], N[(c * N[(y * N[(y3 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 6e-106], t$95$1, If[LessEqual[i, 1.42e+144], N[(j * N[(b * N[(N[(t * y4), $MachinePrecision] - N[(x * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 6.8e+283], t$95$3, t$95$2]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
t_2 := \left(i \cdot y5\right) \cdot \left(y \cdot k\right)\\
t_3 := i \cdot \left(y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{if}\;i \leq -4.4 \cdot 10^{+142}:\\
\;\;\;\;\left(i \cdot j\right) \cdot \left(t \cdot \left(-y5\right)\right)\\
\mathbf{elif}\;i \leq -3.8 \cdot 10^{+85}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;i \leq -4.2 \cdot 10^{+79}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;i \leq -1.36 \cdot 10^{-281}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;i \leq 5.8 \cdot 10^{-271}:\\
\;\;\;\;c \cdot \left(y \cdot \left(y3 \cdot y4\right)\right)\\
\mathbf{elif}\;i \leq 6 \cdot 10^{-106}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;i \leq 1.42 \cdot 10^{+144}:\\
\;\;\;\;j \cdot \left(b \cdot \left(t \cdot y4 - x \cdot y0\right)\right)\\
\mathbf{elif}\;i \leq 6.8 \cdot 10^{+283}:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if i < -4.39999999999999974e142Initial program 16.1%
Taylor expanded in y5 around -inf 51.7%
Taylor expanded in i around inf 48.9%
associate-*r*48.9%
*-commutative48.9%
Simplified48.9%
Taylor expanded in j around inf 36.8%
associate-*r*39.8%
*-commutative39.8%
*-commutative39.8%
Simplified39.8%
if -4.39999999999999974e142 < i < -3.79999999999999992e85 or 1.42000000000000009e144 < i < 6.8000000000000003e283Initial program 33.4%
Taylor expanded in y1 around -inf 50.7%
mul-1-neg50.7%
distribute-rgt-neg-in50.7%
+-commutative50.7%
mul-1-neg50.7%
unsub-neg50.7%
*-commutative50.7%
*-commutative50.7%
*-commutative50.7%
Simplified50.7%
Taylor expanded in i around inf 47.1%
if -3.79999999999999992e85 < i < -4.20000000000000016e79 or 6.8000000000000003e283 < i Initial program 11.1%
Taylor expanded in y5 around -inf 55.6%
Taylor expanded in i around inf 77.8%
associate-*r*77.8%
*-commutative77.8%
Simplified77.8%
Taylor expanded in j around 0 78.0%
mul-1-neg78.0%
distribute-lft-neg-out78.0%
*-commutative78.0%
Simplified78.0%
if -4.20000000000000016e79 < i < -1.35999999999999999e-281 or 5.80000000000000028e-271 < i < 6.00000000000000037e-106Initial program 38.2%
Taylor expanded in y1 around -inf 45.1%
mul-1-neg45.1%
distribute-rgt-neg-in45.1%
+-commutative45.1%
mul-1-neg45.1%
unsub-neg45.1%
*-commutative45.1%
*-commutative45.1%
*-commutative45.1%
Simplified45.1%
Taylor expanded in a around inf 42.8%
if -1.35999999999999999e-281 < i < 5.80000000000000028e-271Initial program 20.0%
Taylor expanded in y2 around inf 33.3%
*-commutative33.3%
Simplified33.3%
Taylor expanded in y around inf 47.7%
Taylor expanded in c around inf 54.2%
if 6.00000000000000037e-106 < i < 1.42000000000000009e144Initial program 39.2%
Taylor expanded in j around inf 50.9%
+-commutative50.9%
mul-1-neg50.9%
unsub-neg50.9%
*-commutative50.9%
Simplified50.9%
Taylor expanded in b around inf 42.7%
*-commutative42.7%
Simplified42.7%
Final simplification45.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (* y4 (* c y3))))
(t_2 (* a (* y1 (* z y3))))
(t_3 (* a (* y1 (* x (- y2))))))
(if (<= c -1.66e+205)
t_1
(if (<= c -2.2e+20)
(* y0 (* y2 (* x c)))
(if (<= c -1e-143)
t_2
(if (<= c -2.9e-176)
t_3
(if (<= c 3.5e-262)
(* j (* y5 (* y0 y3)))
(if (<= c 2.65e-213)
(* j (* y3 (* y1 (- y4))))
(if (<= c 7.2e-210) t_2 (if (<= c 7.2e+169) t_3 t_1))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (y4 * (c * y3));
double t_2 = a * (y1 * (z * y3));
double t_3 = a * (y1 * (x * -y2));
double tmp;
if (c <= -1.66e+205) {
tmp = t_1;
} else if (c <= -2.2e+20) {
tmp = y0 * (y2 * (x * c));
} else if (c <= -1e-143) {
tmp = t_2;
} else if (c <= -2.9e-176) {
tmp = t_3;
} else if (c <= 3.5e-262) {
tmp = j * (y5 * (y0 * y3));
} else if (c <= 2.65e-213) {
tmp = j * (y3 * (y1 * -y4));
} else if (c <= 7.2e-210) {
tmp = t_2;
} else if (c <= 7.2e+169) {
tmp = t_3;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = y * (y4 * (c * y3))
t_2 = a * (y1 * (z * y3))
t_3 = a * (y1 * (x * -y2))
if (c <= (-1.66d+205)) then
tmp = t_1
else if (c <= (-2.2d+20)) then
tmp = y0 * (y2 * (x * c))
else if (c <= (-1d-143)) then
tmp = t_2
else if (c <= (-2.9d-176)) then
tmp = t_3
else if (c <= 3.5d-262) then
tmp = j * (y5 * (y0 * y3))
else if (c <= 2.65d-213) then
tmp = j * (y3 * (y1 * -y4))
else if (c <= 7.2d-210) then
tmp = t_2
else if (c <= 7.2d+169) then
tmp = t_3
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y * (y4 * (c * y3));
double t_2 = a * (y1 * (z * y3));
double t_3 = a * (y1 * (x * -y2));
double tmp;
if (c <= -1.66e+205) {
tmp = t_1;
} else if (c <= -2.2e+20) {
tmp = y0 * (y2 * (x * c));
} else if (c <= -1e-143) {
tmp = t_2;
} else if (c <= -2.9e-176) {
tmp = t_3;
} else if (c <= 3.5e-262) {
tmp = j * (y5 * (y0 * y3));
} else if (c <= 2.65e-213) {
tmp = j * (y3 * (y1 * -y4));
} else if (c <= 7.2e-210) {
tmp = t_2;
} else if (c <= 7.2e+169) {
tmp = t_3;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y * (y4 * (c * y3)) t_2 = a * (y1 * (z * y3)) t_3 = a * (y1 * (x * -y2)) tmp = 0 if c <= -1.66e+205: tmp = t_1 elif c <= -2.2e+20: tmp = y0 * (y2 * (x * c)) elif c <= -1e-143: tmp = t_2 elif c <= -2.9e-176: tmp = t_3 elif c <= 3.5e-262: tmp = j * (y5 * (y0 * y3)) elif c <= 2.65e-213: tmp = j * (y3 * (y1 * -y4)) elif c <= 7.2e-210: tmp = t_2 elif c <= 7.2e+169: tmp = t_3 else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y * Float64(y4 * Float64(c * y3))) t_2 = Float64(a * Float64(y1 * Float64(z * y3))) t_3 = Float64(a * Float64(y1 * Float64(x * Float64(-y2)))) tmp = 0.0 if (c <= -1.66e+205) tmp = t_1; elseif (c <= -2.2e+20) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (c <= -1e-143) tmp = t_2; elseif (c <= -2.9e-176) tmp = t_3; elseif (c <= 3.5e-262) tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); elseif (c <= 2.65e-213) tmp = Float64(j * Float64(y3 * Float64(y1 * Float64(-y4)))); elseif (c <= 7.2e-210) tmp = t_2; elseif (c <= 7.2e+169) tmp = t_3; else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y * (y4 * (c * y3)); t_2 = a * (y1 * (z * y3)); t_3 = a * (y1 * (x * -y2)); tmp = 0.0; if (c <= -1.66e+205) tmp = t_1; elseif (c <= -2.2e+20) tmp = y0 * (y2 * (x * c)); elseif (c <= -1e-143) tmp = t_2; elseif (c <= -2.9e-176) tmp = t_3; elseif (c <= 3.5e-262) tmp = j * (y5 * (y0 * y3)); elseif (c <= 2.65e-213) tmp = j * (y3 * (y1 * -y4)); elseif (c <= 7.2e-210) tmp = t_2; elseif (c <= 7.2e+169) tmp = t_3; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(y1 * N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(a * N[(y1 * N[(x * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -1.66e+205], t$95$1, If[LessEqual[c, -2.2e+20], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -1e-143], t$95$2, If[LessEqual[c, -2.9e-176], t$95$3, If[LessEqual[c, 3.5e-262], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 2.65e-213], N[(j * N[(y3 * N[(y1 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 7.2e-210], t$95$2, If[LessEqual[c, 7.2e+169], t$95$3, t$95$1]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
t_2 := a \cdot \left(y1 \cdot \left(z \cdot y3\right)\right)\\
t_3 := a \cdot \left(y1 \cdot \left(x \cdot \left(-y2\right)\right)\right)\\
\mathbf{if}\;c \leq -1.66 \cdot 10^{+205}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -2.2 \cdot 10^{+20}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;c \leq -1 \cdot 10^{-143}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq -2.9 \cdot 10^{-176}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;c \leq 3.5 \cdot 10^{-262}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\mathbf{elif}\;c \leq 2.65 \cdot 10^{-213}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y1 \cdot \left(-y4\right)\right)\right)\\
\mathbf{elif}\;c \leq 7.2 \cdot 10^{-210}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 7.2 \cdot 10^{+169}:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if c < -1.6600000000000001e205 or 7.20000000000000019e169 < c Initial program 15.4%
Taylor expanded in y2 around inf 25.8%
*-commutative25.8%
Simplified25.8%
Taylor expanded in y around inf 49.4%
Taylor expanded in c around inf 49.7%
associate-*r*59.6%
Simplified59.6%
if -1.6600000000000001e205 < c < -2.2e20Initial program 33.5%
Taylor expanded in y2 around inf 45.4%
*-commutative45.4%
Simplified45.4%
Taylor expanded in y0 around inf 34.2%
Taylor expanded in y5 around 0 30.3%
associate-*r*35.0%
*-commutative35.0%
Simplified35.0%
if -2.2e20 < c < -9.9999999999999995e-144 or 2.65000000000000011e-213 < c < 7.1999999999999998e-210Initial program 38.7%
Taylor expanded in y1 around -inf 33.3%
mul-1-neg33.3%
distribute-rgt-neg-in33.3%
+-commutative33.3%
mul-1-neg33.3%
unsub-neg33.3%
*-commutative33.3%
*-commutative33.3%
*-commutative33.3%
Simplified33.3%
Taylor expanded in a around inf 43.2%
Taylor expanded in y3 around inf 33.5%
if -9.9999999999999995e-144 < c < -2.90000000000000006e-176 or 7.1999999999999998e-210 < c < 7.20000000000000019e169Initial program 37.9%
Taylor expanded in y1 around -inf 44.7%
mul-1-neg44.7%
distribute-rgt-neg-in44.7%
+-commutative44.7%
mul-1-neg44.7%
unsub-neg44.7%
*-commutative44.7%
*-commutative44.7%
*-commutative44.7%
Simplified44.7%
Taylor expanded in a around inf 35.8%
Taylor expanded in y3 around 0 31.3%
neg-mul-131.3%
distribute-lft-neg-in31.3%
*-commutative31.3%
Simplified31.3%
if -2.90000000000000006e-176 < c < 3.50000000000000011e-262Initial program 29.7%
Taylor expanded in y2 around inf 38.8%
*-commutative38.8%
Simplified38.8%
Taylor expanded in y0 around inf 41.5%
Taylor expanded in y2 around 0 30.8%
associate-*r*35.1%
Simplified35.1%
if 3.50000000000000011e-262 < c < 2.65000000000000011e-213Initial program 46.2%
Taylor expanded in j around inf 46.7%
+-commutative46.7%
mul-1-neg46.7%
unsub-neg46.7%
*-commutative46.7%
Simplified46.7%
Taylor expanded in y3 around inf 39.0%
*-commutative39.0%
*-commutative39.0%
Simplified39.0%
Taylor expanded in y5 around 0 39.4%
neg-mul-139.4%
distribute-rgt-neg-in39.4%
Simplified39.4%
Final simplification37.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* x (* y1 (- (* i j) (* a y2)))))
(t_2 (* j (* t (- (* b y4) (* i y5))))))
(if (<= y -1.6e+68)
(* x (* y (- (* a b) (* c i))))
(if (<= y -5.8e-88)
t_1
(if (<= y -1.05e-221)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= y 3.2e-241)
t_1
(if (<= y 7.6e-205)
t_2
(if (<= y 0.0055)
t_1
(if (<= y 1.75e+86)
t_2
(* y (* y3 (- (* c y4) (* a y5)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = x * (y1 * ((i * j) - (a * y2)));
double t_2 = j * (t * ((b * y4) - (i * y5)));
double tmp;
if (y <= -1.6e+68) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -5.8e-88) {
tmp = t_1;
} else if (y <= -1.05e-221) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y <= 3.2e-241) {
tmp = t_1;
} else if (y <= 7.6e-205) {
tmp = t_2;
} else if (y <= 0.0055) {
tmp = t_1;
} else if (y <= 1.75e+86) {
tmp = t_2;
} else {
tmp = y * (y3 * ((c * y4) - (a * y5)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = x * (y1 * ((i * j) - (a * y2)))
t_2 = j * (t * ((b * y4) - (i * y5)))
if (y <= (-1.6d+68)) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y <= (-5.8d-88)) then
tmp = t_1
else if (y <= (-1.05d-221)) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (y <= 3.2d-241) then
tmp = t_1
else if (y <= 7.6d-205) then
tmp = t_2
else if (y <= 0.0055d0) then
tmp = t_1
else if (y <= 1.75d+86) then
tmp = t_2
else
tmp = y * (y3 * ((c * y4) - (a * y5)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = x * (y1 * ((i * j) - (a * y2)));
double t_2 = j * (t * ((b * y4) - (i * y5)));
double tmp;
if (y <= -1.6e+68) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -5.8e-88) {
tmp = t_1;
} else if (y <= -1.05e-221) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y <= 3.2e-241) {
tmp = t_1;
} else if (y <= 7.6e-205) {
tmp = t_2;
} else if (y <= 0.0055) {
tmp = t_1;
} else if (y <= 1.75e+86) {
tmp = t_2;
} else {
tmp = y * (y3 * ((c * y4) - (a * y5)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = x * (y1 * ((i * j) - (a * y2))) t_2 = j * (t * ((b * y4) - (i * y5))) tmp = 0 if y <= -1.6e+68: tmp = x * (y * ((a * b) - (c * i))) elif y <= -5.8e-88: tmp = t_1 elif y <= -1.05e-221: tmp = x * (y2 * ((c * y0) - (a * y1))) elif y <= 3.2e-241: tmp = t_1 elif y <= 7.6e-205: tmp = t_2 elif y <= 0.0055: tmp = t_1 elif y <= 1.75e+86: tmp = t_2 else: tmp = y * (y3 * ((c * y4) - (a * y5))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))) t_2 = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))) tmp = 0.0 if (y <= -1.6e+68) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y <= -5.8e-88) tmp = t_1; elseif (y <= -1.05e-221) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (y <= 3.2e-241) tmp = t_1; elseif (y <= 7.6e-205) tmp = t_2; elseif (y <= 0.0055) tmp = t_1; elseif (y <= 1.75e+86) tmp = t_2; else tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = x * (y1 * ((i * j) - (a * y2))); t_2 = j * (t * ((b * y4) - (i * y5))); tmp = 0.0; if (y <= -1.6e+68) tmp = x * (y * ((a * b) - (c * i))); elseif (y <= -5.8e-88) tmp = t_1; elseif (y <= -1.05e-221) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (y <= 3.2e-241) tmp = t_1; elseif (y <= 7.6e-205) tmp = t_2; elseif (y <= 0.0055) tmp = t_1; elseif (y <= 1.75e+86) tmp = t_2; else tmp = y * (y3 * ((c * y4) - (a * y5))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.6e+68], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -5.8e-88], t$95$1, If[LessEqual[y, -1.05e-221], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.2e-241], t$95$1, If[LessEqual[y, 7.6e-205], t$95$2, If[LessEqual[y, 0.0055], t$95$1, If[LessEqual[y, 1.75e+86], t$95$2, N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
t_2 := j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{if}\;y \leq -1.6 \cdot 10^{+68}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y \leq -5.8 \cdot 10^{-88}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -1.05 \cdot 10^{-221}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq 3.2 \cdot 10^{-241}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 7.6 \cdot 10^{-205}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 0.0055:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 1.75 \cdot 10^{+86}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\end{array}
\end{array}
if y < -1.59999999999999997e68Initial program 31.6%
Taylor expanded in y5 around 0 17.8%
Taylor expanded in x around inf 40.6%
Taylor expanded in y around inf 49.8%
if -1.59999999999999997e68 < y < -5.8000000000000003e-88 or -1.05e-221 < y < 3.2e-241 or 7.59999999999999983e-205 < y < 0.0054999999999999997Initial program 36.5%
Taylor expanded in y1 around -inf 47.5%
mul-1-neg47.5%
distribute-rgt-neg-in47.5%
+-commutative47.5%
mul-1-neg47.5%
unsub-neg47.5%
*-commutative47.5%
*-commutative47.5%
*-commutative47.5%
Simplified47.5%
Taylor expanded in x around inf 47.9%
if -5.8000000000000003e-88 < y < -1.05e-221Initial program 42.3%
Taylor expanded in y2 around inf 44.4%
*-commutative44.4%
Simplified44.4%
Taylor expanded in x around inf 43.3%
*-commutative43.3%
Simplified43.3%
if 3.2e-241 < y < 7.59999999999999983e-205 or 0.0054999999999999997 < y < 1.75000000000000009e86Initial program 26.8%
Taylor expanded in j around inf 50.1%
+-commutative50.1%
mul-1-neg50.1%
unsub-neg50.1%
*-commutative50.1%
Simplified50.1%
Taylor expanded in t around inf 54.2%
*-commutative54.2%
Simplified54.2%
if 1.75000000000000009e86 < y Initial program 22.7%
Taylor expanded in y2 around inf 37.8%
*-commutative37.8%
Simplified37.8%
Taylor expanded in y around inf 44.0%
Final simplification47.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* x (* y1 (- (* i j) (* a y2)))))
(t_2 (* j (* t (- (* b y4) (* i y5))))))
(if (<= y -1.8e+63)
(* x (* y (- (* a b) (* c i))))
(if (<= y -6.7e-88)
t_1
(if (<= y -1e-221)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= y 2.8e-241)
t_1
(if (<= y 3.5e-205)
t_2
(if (<= y 0.0245)
t_1
(if (<= y 7.6e+81)
t_2
(* (- (* c y4) (* a y5)) (* y y3)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = x * (y1 * ((i * j) - (a * y2)));
double t_2 = j * (t * ((b * y4) - (i * y5)));
double tmp;
if (y <= -1.8e+63) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -6.7e-88) {
tmp = t_1;
} else if (y <= -1e-221) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y <= 2.8e-241) {
tmp = t_1;
} else if (y <= 3.5e-205) {
tmp = t_2;
} else if (y <= 0.0245) {
tmp = t_1;
} else if (y <= 7.6e+81) {
tmp = t_2;
} else {
tmp = ((c * y4) - (a * y5)) * (y * y3);
}
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 = x * (y1 * ((i * j) - (a * y2)))
t_2 = j * (t * ((b * y4) - (i * y5)))
if (y <= (-1.8d+63)) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y <= (-6.7d-88)) then
tmp = t_1
else if (y <= (-1d-221)) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (y <= 2.8d-241) then
tmp = t_1
else if (y <= 3.5d-205) then
tmp = t_2
else if (y <= 0.0245d0) then
tmp = t_1
else if (y <= 7.6d+81) then
tmp = t_2
else
tmp = ((c * y4) - (a * y5)) * (y * y3)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = x * (y1 * ((i * j) - (a * y2)));
double t_2 = j * (t * ((b * y4) - (i * y5)));
double tmp;
if (y <= -1.8e+63) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -6.7e-88) {
tmp = t_1;
} else if (y <= -1e-221) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y <= 2.8e-241) {
tmp = t_1;
} else if (y <= 3.5e-205) {
tmp = t_2;
} else if (y <= 0.0245) {
tmp = t_1;
} else if (y <= 7.6e+81) {
tmp = t_2;
} else {
tmp = ((c * y4) - (a * y5)) * (y * y3);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = x * (y1 * ((i * j) - (a * y2))) t_2 = j * (t * ((b * y4) - (i * y5))) tmp = 0 if y <= -1.8e+63: tmp = x * (y * ((a * b) - (c * i))) elif y <= -6.7e-88: tmp = t_1 elif y <= -1e-221: tmp = x * (y2 * ((c * y0) - (a * y1))) elif y <= 2.8e-241: tmp = t_1 elif y <= 3.5e-205: tmp = t_2 elif y <= 0.0245: tmp = t_1 elif y <= 7.6e+81: tmp = t_2 else: tmp = ((c * y4) - (a * y5)) * (y * y3) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))) t_2 = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))) tmp = 0.0 if (y <= -1.8e+63) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y <= -6.7e-88) tmp = t_1; elseif (y <= -1e-221) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (y <= 2.8e-241) tmp = t_1; elseif (y <= 3.5e-205) tmp = t_2; elseif (y <= 0.0245) tmp = t_1; elseif (y <= 7.6e+81) tmp = t_2; else tmp = Float64(Float64(Float64(c * y4) - Float64(a * y5)) * Float64(y * y3)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = x * (y1 * ((i * j) - (a * y2))); t_2 = j * (t * ((b * y4) - (i * y5))); tmp = 0.0; if (y <= -1.8e+63) tmp = x * (y * ((a * b) - (c * i))); elseif (y <= -6.7e-88) tmp = t_1; elseif (y <= -1e-221) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (y <= 2.8e-241) tmp = t_1; elseif (y <= 3.5e-205) tmp = t_2; elseif (y <= 0.0245) tmp = t_1; elseif (y <= 7.6e+81) tmp = t_2; else tmp = ((c * y4) - (a * y5)) * (y * y3); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.8e+63], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -6.7e-88], t$95$1, If[LessEqual[y, -1e-221], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.8e-241], t$95$1, If[LessEqual[y, 3.5e-205], t$95$2, If[LessEqual[y, 0.0245], t$95$1, If[LessEqual[y, 7.6e+81], t$95$2, N[(N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision] * N[(y * y3), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
t_2 := j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{if}\;y \leq -1.8 \cdot 10^{+63}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y \leq -6.7 \cdot 10^{-88}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -1 \cdot 10^{-221}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq 2.8 \cdot 10^{-241}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 3.5 \cdot 10^{-205}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 0.0245:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 7.6 \cdot 10^{+81}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;\left(c \cdot y4 - a \cdot y5\right) \cdot \left(y \cdot y3\right)\\
\end{array}
\end{array}
if y < -1.79999999999999999e63Initial program 31.6%
Taylor expanded in y5 around 0 17.8%
Taylor expanded in x around inf 40.6%
Taylor expanded in y around inf 49.8%
if -1.79999999999999999e63 < y < -6.69999999999999968e-88 or -1.00000000000000002e-221 < y < 2.7999999999999999e-241 or 3.5e-205 < y < 0.024500000000000001Initial program 36.5%
Taylor expanded in y1 around -inf 47.5%
mul-1-neg47.5%
distribute-rgt-neg-in47.5%
+-commutative47.5%
mul-1-neg47.5%
unsub-neg47.5%
*-commutative47.5%
*-commutative47.5%
*-commutative47.5%
Simplified47.5%
Taylor expanded in x around inf 47.9%
if -6.69999999999999968e-88 < y < -1.00000000000000002e-221Initial program 42.3%
Taylor expanded in y2 around inf 44.4%
*-commutative44.4%
Simplified44.4%
Taylor expanded in x around inf 43.3%
*-commutative43.3%
Simplified43.3%
if 2.7999999999999999e-241 < y < 3.5e-205 or 0.024500000000000001 < y < 7.599999999999999e81Initial program 26.8%
Taylor expanded in j around inf 50.1%
+-commutative50.1%
mul-1-neg50.1%
unsub-neg50.1%
*-commutative50.1%
Simplified50.1%
Taylor expanded in t around inf 54.2%
*-commutative54.2%
Simplified54.2%
if 7.599999999999999e81 < y Initial program 22.7%
Taylor expanded in y2 around inf 37.8%
*-commutative37.8%
Simplified37.8%
Taylor expanded in y around inf 44.0%
associate-*r*46.4%
*-commutative46.4%
*-commutative46.4%
*-commutative46.4%
Simplified46.4%
Final simplification48.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* t (- (* b y4) (* i y5)))))
(t_2 (* x (* y1 (- (* i j) (* a y2))))))
(if (<= y -9e-5)
(* x (* y (- (* a b) (* c i))))
(if (<= y -1.5e-116)
(* t (* y2 (- (* a y5) (* c y4))))
(if (<= y -1.04e-221)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= y 6e-241)
t_2
(if (<= y 7.2e-205)
t_1
(if (<= y 0.0085)
t_2
(if (<= y 2.9e+86)
t_1
(* (- (* c y4) (* a y5)) (* y y3)))))))))))
double code(double x, double y, double z, double t, double 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 * (t * ((b * y4) - (i * y5)));
double t_2 = x * (y1 * ((i * j) - (a * y2)));
double tmp;
if (y <= -9e-5) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -1.5e-116) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y <= -1.04e-221) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y <= 6e-241) {
tmp = t_2;
} else if (y <= 7.2e-205) {
tmp = t_1;
} else if (y <= 0.0085) {
tmp = t_2;
} else if (y <= 2.9e+86) {
tmp = t_1;
} else {
tmp = ((c * y4) - (a * y5)) * (y * y3);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = j * (t * ((b * y4) - (i * y5)))
t_2 = x * (y1 * ((i * j) - (a * y2)))
if (y <= (-9d-5)) then
tmp = x * (y * ((a * b) - (c * i)))
else if (y <= (-1.5d-116)) then
tmp = t * (y2 * ((a * y5) - (c * y4)))
else if (y <= (-1.04d-221)) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (y <= 6d-241) then
tmp = t_2
else if (y <= 7.2d-205) then
tmp = t_1
else if (y <= 0.0085d0) then
tmp = t_2
else if (y <= 2.9d+86) then
tmp = t_1
else
tmp = ((c * y4) - (a * y5)) * (y * y3)
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 * (t * ((b * y4) - (i * y5)));
double t_2 = x * (y1 * ((i * j) - (a * y2)));
double tmp;
if (y <= -9e-5) {
tmp = x * (y * ((a * b) - (c * i)));
} else if (y <= -1.5e-116) {
tmp = t * (y2 * ((a * y5) - (c * y4)));
} else if (y <= -1.04e-221) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y <= 6e-241) {
tmp = t_2;
} else if (y <= 7.2e-205) {
tmp = t_1;
} else if (y <= 0.0085) {
tmp = t_2;
} else if (y <= 2.9e+86) {
tmp = t_1;
} else {
tmp = ((c * y4) - (a * y5)) * (y * y3);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (t * ((b * y4) - (i * y5))) t_2 = x * (y1 * ((i * j) - (a * y2))) tmp = 0 if y <= -9e-5: tmp = x * (y * ((a * b) - (c * i))) elif y <= -1.5e-116: tmp = t * (y2 * ((a * y5) - (c * y4))) elif y <= -1.04e-221: tmp = x * (y2 * ((c * y0) - (a * y1))) elif y <= 6e-241: tmp = t_2 elif y <= 7.2e-205: tmp = t_1 elif y <= 0.0085: tmp = t_2 elif y <= 2.9e+86: tmp = t_1 else: tmp = ((c * y4) - (a * y5)) * (y * y3) 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(t * Float64(Float64(b * y4) - Float64(i * y5)))) t_2 = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))) tmp = 0.0 if (y <= -9e-5) tmp = Float64(x * Float64(y * Float64(Float64(a * b) - Float64(c * i)))); elseif (y <= -1.5e-116) tmp = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))); elseif (y <= -1.04e-221) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (y <= 6e-241) tmp = t_2; elseif (y <= 7.2e-205) tmp = t_1; elseif (y <= 0.0085) tmp = t_2; elseif (y <= 2.9e+86) tmp = t_1; else tmp = Float64(Float64(Float64(c * y4) - Float64(a * y5)) * Float64(y * y3)); 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 * (t * ((b * y4) - (i * y5))); t_2 = x * (y1 * ((i * j) - (a * y2))); tmp = 0.0; if (y <= -9e-5) tmp = x * (y * ((a * b) - (c * i))); elseif (y <= -1.5e-116) tmp = t * (y2 * ((a * y5) - (c * y4))); elseif (y <= -1.04e-221) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (y <= 6e-241) tmp = t_2; elseif (y <= 7.2e-205) tmp = t_1; elseif (y <= 0.0085) tmp = t_2; elseif (y <= 2.9e+86) tmp = t_1; else tmp = ((c * y4) - (a * y5)) * (y * y3); 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[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -9e-5], N[(x * N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.5e-116], N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.04e-221], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 6e-241], t$95$2, If[LessEqual[y, 7.2e-205], t$95$1, If[LessEqual[y, 0.0085], t$95$2, If[LessEqual[y, 2.9e+86], t$95$1, N[(N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision] * N[(y * y3), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
t_2 := x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
\mathbf{if}\;y \leq -9 \cdot 10^{-5}:\\
\;\;\;\;x \cdot \left(y \cdot \left(a \cdot b - c \cdot i\right)\right)\\
\mathbf{elif}\;y \leq -1.5 \cdot 10^{-116}:\\
\;\;\;\;t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;y \leq -1.04 \cdot 10^{-221}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;y \leq 6 \cdot 10^{-241}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 7.2 \cdot 10^{-205}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 0.0085:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 2.9 \cdot 10^{+86}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;\left(c \cdot y4 - a \cdot y5\right) \cdot \left(y \cdot y3\right)\\
\end{array}
\end{array}
if y < -9.00000000000000057e-5Initial program 31.4%
Taylor expanded in y5 around 0 18.7%
Taylor expanded in x around inf 47.4%
Taylor expanded in y around inf 49.3%
if -9.00000000000000057e-5 < y < -1.50000000000000013e-116Initial program 28.5%
Taylor expanded in y2 around inf 29.1%
*-commutative29.1%
Simplified29.1%
Taylor expanded in t around inf 49.0%
mul-1-neg49.0%
*-commutative49.0%
*-commutative49.0%
Simplified49.0%
if -1.50000000000000013e-116 < y < -1.0399999999999999e-221Initial program 40.6%
Taylor expanded in y2 around inf 46.8%
*-commutative46.8%
Simplified46.8%
Taylor expanded in x around inf 49.0%
*-commutative49.0%
Simplified49.0%
if -1.0399999999999999e-221 < y < 5.9999999999999998e-241 or 7.1999999999999997e-205 < y < 0.0085000000000000006Initial program 41.2%
Taylor expanded in y1 around -inf 49.1%
mul-1-neg49.1%
distribute-rgt-neg-in49.1%
+-commutative49.1%
mul-1-neg49.1%
unsub-neg49.1%
*-commutative49.1%
*-commutative49.1%
*-commutative49.1%
Simplified49.1%
Taylor expanded in x around inf 45.2%
if 5.9999999999999998e-241 < y < 7.1999999999999997e-205 or 0.0085000000000000006 < y < 2.8999999999999999e86Initial program 26.8%
Taylor expanded in j around inf 50.1%
+-commutative50.1%
mul-1-neg50.1%
unsub-neg50.1%
*-commutative50.1%
Simplified50.1%
Taylor expanded in t around inf 54.2%
*-commutative54.2%
Simplified54.2%
if 2.8999999999999999e86 < y Initial program 22.7%
Taylor expanded in y2 around inf 37.8%
*-commutative37.8%
Simplified37.8%
Taylor expanded in y around inf 44.0%
associate-*r*46.4%
*-commutative46.4%
*-commutative46.4%
*-commutative46.4%
Simplified46.4%
Final simplification48.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* (* i y5) (* t (- j)))))
(if (<= a -7.8e+151)
(* (* a y1) (* z y3))
(if (<= a -9.2e+97)
(* i (* k (* y y5)))
(if (<= a -3.5e-12)
(* y0 (* y2 (* x c)))
(if (<= a -2.3e-170)
(* y (* y4 (* c y3)))
(if (<= a 5e-155)
t_1
(if (<= a 5.4e-79)
(* i (* (- k) (* z y1)))
(if (<= a 6.4e+55) t_1 (* y (* y3 (* a (- y5)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (i * y5) * (t * -j);
double tmp;
if (a <= -7.8e+151) {
tmp = (a * y1) * (z * y3);
} else if (a <= -9.2e+97) {
tmp = i * (k * (y * y5));
} else if (a <= -3.5e-12) {
tmp = y0 * (y2 * (x * c));
} else if (a <= -2.3e-170) {
tmp = y * (y4 * (c * y3));
} else if (a <= 5e-155) {
tmp = t_1;
} else if (a <= 5.4e-79) {
tmp = i * (-k * (z * y1));
} else if (a <= 6.4e+55) {
tmp = t_1;
} else {
tmp = y * (y3 * (a * -y5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = (i * y5) * (t * -j)
if (a <= (-7.8d+151)) then
tmp = (a * y1) * (z * y3)
else if (a <= (-9.2d+97)) then
tmp = i * (k * (y * y5))
else if (a <= (-3.5d-12)) then
tmp = y0 * (y2 * (x * c))
else if (a <= (-2.3d-170)) then
tmp = y * (y4 * (c * y3))
else if (a <= 5d-155) then
tmp = t_1
else if (a <= 5.4d-79) then
tmp = i * (-k * (z * y1))
else if (a <= 6.4d+55) then
tmp = t_1
else
tmp = y * (y3 * (a * -y5))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (i * y5) * (t * -j);
double tmp;
if (a <= -7.8e+151) {
tmp = (a * y1) * (z * y3);
} else if (a <= -9.2e+97) {
tmp = i * (k * (y * y5));
} else if (a <= -3.5e-12) {
tmp = y0 * (y2 * (x * c));
} else if (a <= -2.3e-170) {
tmp = y * (y4 * (c * y3));
} else if (a <= 5e-155) {
tmp = t_1;
} else if (a <= 5.4e-79) {
tmp = i * (-k * (z * y1));
} else if (a <= 6.4e+55) {
tmp = t_1;
} else {
tmp = y * (y3 * (a * -y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (i * y5) * (t * -j) tmp = 0 if a <= -7.8e+151: tmp = (a * y1) * (z * y3) elif a <= -9.2e+97: tmp = i * (k * (y * y5)) elif a <= -3.5e-12: tmp = y0 * (y2 * (x * c)) elif a <= -2.3e-170: tmp = y * (y4 * (c * y3)) elif a <= 5e-155: tmp = t_1 elif a <= 5.4e-79: tmp = i * (-k * (z * y1)) elif a <= 6.4e+55: tmp = t_1 else: tmp = y * (y3 * (a * -y5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(i * y5) * Float64(t * Float64(-j))) tmp = 0.0 if (a <= -7.8e+151) tmp = Float64(Float64(a * y1) * Float64(z * y3)); elseif (a <= -9.2e+97) tmp = Float64(i * Float64(k * Float64(y * y5))); elseif (a <= -3.5e-12) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (a <= -2.3e-170) tmp = Float64(y * Float64(y4 * Float64(c * y3))); elseif (a <= 5e-155) tmp = t_1; elseif (a <= 5.4e-79) tmp = Float64(i * Float64(Float64(-k) * Float64(z * y1))); elseif (a <= 6.4e+55) tmp = t_1; else tmp = Float64(y * Float64(y3 * Float64(a * Float64(-y5)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (i * y5) * (t * -j); tmp = 0.0; if (a <= -7.8e+151) tmp = (a * y1) * (z * y3); elseif (a <= -9.2e+97) tmp = i * (k * (y * y5)); elseif (a <= -3.5e-12) tmp = y0 * (y2 * (x * c)); elseif (a <= -2.3e-170) tmp = y * (y4 * (c * y3)); elseif (a <= 5e-155) tmp = t_1; elseif (a <= 5.4e-79) tmp = i * (-k * (z * y1)); elseif (a <= 6.4e+55) tmp = t_1; else tmp = y * (y3 * (a * -y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(i * y5), $MachinePrecision] * N[(t * (-j)), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -7.8e+151], N[(N[(a * y1), $MachinePrecision] * N[(z * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -9.2e+97], N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -3.5e-12], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -2.3e-170], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 5e-155], t$95$1, If[LessEqual[a, 5.4e-79], N[(i * N[((-k) * N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 6.4e+55], t$95$1, N[(y * N[(y3 * N[(a * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(i \cdot y5\right) \cdot \left(t \cdot \left(-j\right)\right)\\
\mathbf{if}\;a \leq -7.8 \cdot 10^{+151}:\\
\;\;\;\;\left(a \cdot y1\right) \cdot \left(z \cdot y3\right)\\
\mathbf{elif}\;a \leq -9.2 \cdot 10^{+97}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\mathbf{elif}\;a \leq -3.5 \cdot 10^{-12}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;a \leq -2.3 \cdot 10^{-170}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{elif}\;a \leq 5 \cdot 10^{-155}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 5.4 \cdot 10^{-79}:\\
\;\;\;\;i \cdot \left(\left(-k\right) \cdot \left(z \cdot y1\right)\right)\\
\mathbf{elif}\;a \leq 6.4 \cdot 10^{+55}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(a \cdot \left(-y5\right)\right)\right)\\
\end{array}
\end{array}
if a < -7.79999999999999952e151Initial program 32.2%
Taylor expanded in y1 around -inf 53.2%
mul-1-neg53.2%
distribute-rgt-neg-in53.2%
+-commutative53.2%
mul-1-neg53.2%
unsub-neg53.2%
*-commutative53.2%
*-commutative53.2%
*-commutative53.2%
Simplified53.2%
Taylor expanded in a around inf 53.1%
Taylor expanded in y3 around inf 37.4%
associate-*r*49.3%
*-commutative49.3%
Simplified49.3%
if -7.79999999999999952e151 < a < -9.20000000000000022e97Initial program 13.3%
Taylor expanded in y5 around -inf 40.3%
Taylor expanded in i around inf 60.8%
associate-*r*35.1%
*-commutative35.1%
Simplified35.1%
Taylor expanded in j around 0 53.9%
mul-1-neg53.9%
*-commutative53.9%
distribute-rgt-neg-in53.9%
Simplified53.9%
if -9.20000000000000022e97 < a < -3.5e-12Initial program 29.0%
Taylor expanded in y2 around inf 45.4%
*-commutative45.4%
Simplified45.4%
Taylor expanded in y0 around inf 39.4%
Taylor expanded in y5 around 0 39.9%
associate-*r*39.9%
*-commutative39.9%
Simplified39.9%
if -3.5e-12 < a < -2.29999999999999987e-170Initial program 30.3%
Taylor expanded in y2 around inf 42.7%
*-commutative42.7%
Simplified42.7%
Taylor expanded in y around inf 31.4%
Taylor expanded in c around inf 34.4%
associate-*r*31.6%
Simplified31.6%
if -2.29999999999999987e-170 < a < 4.9999999999999999e-155 or 5.4000000000000004e-79 < a < 6.4000000000000005e55Initial program 40.0%
Taylor expanded in y5 around -inf 49.4%
Taylor expanded in i around inf 37.7%
associate-*r*38.7%
*-commutative38.7%
Simplified38.7%
Taylor expanded in j around inf 31.1%
if 4.9999999999999999e-155 < a < 5.4000000000000004e-79Initial program 31.3%
Taylor expanded in y1 around -inf 54.3%
mul-1-neg54.3%
distribute-rgt-neg-in54.3%
+-commutative54.3%
mul-1-neg54.3%
unsub-neg54.3%
*-commutative54.3%
*-commutative54.3%
*-commutative54.3%
Simplified54.3%
Taylor expanded in z around -inf 46.6%
mul-1-neg46.6%
associate-*r*46.6%
*-commutative46.6%
*-commutative46.6%
Simplified46.6%
Taylor expanded in k around inf 46.9%
if 6.4000000000000005e55 < a Initial program 30.3%
Taylor expanded in y2 around inf 32.8%
*-commutative32.8%
Simplified32.8%
Taylor expanded in y around inf 40.4%
Taylor expanded in c around 0 42.7%
neg-mul-142.7%
distribute-lft-neg-in42.7%
*-commutative42.7%
Simplified42.7%
Final simplification38.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= a -6.8e+151)
(* (* a y1) (* z y3))
(if (<= a -6.5e+99)
(* i (* k (* y y5)))
(if (<= a -5.8e-8)
(* y0 (* y2 (* x c)))
(if (<= a -1.85e-171)
(* y (* y4 (* c y3)))
(if (<= a 2.8e-152)
(* (* i y5) (* t (- j)))
(if (<= a 2.2e-107)
(* i (* (- k) (* z y1)))
(if (<= a 3.2e-18)
(* (* i y5) (* y k))
(* y (* y3 (* a (- y5))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (a <= -6.8e+151) {
tmp = (a * y1) * (z * y3);
} else if (a <= -6.5e+99) {
tmp = i * (k * (y * y5));
} else if (a <= -5.8e-8) {
tmp = y0 * (y2 * (x * c));
} else if (a <= -1.85e-171) {
tmp = y * (y4 * (c * y3));
} else if (a <= 2.8e-152) {
tmp = (i * y5) * (t * -j);
} else if (a <= 2.2e-107) {
tmp = i * (-k * (z * y1));
} else if (a <= 3.2e-18) {
tmp = (i * y5) * (y * k);
} else {
tmp = y * (y3 * (a * -y5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (a <= (-6.8d+151)) then
tmp = (a * y1) * (z * y3)
else if (a <= (-6.5d+99)) then
tmp = i * (k * (y * y5))
else if (a <= (-5.8d-8)) then
tmp = y0 * (y2 * (x * c))
else if (a <= (-1.85d-171)) then
tmp = y * (y4 * (c * y3))
else if (a <= 2.8d-152) then
tmp = (i * y5) * (t * -j)
else if (a <= 2.2d-107) then
tmp = i * (-k * (z * y1))
else if (a <= 3.2d-18) then
tmp = (i * y5) * (y * k)
else
tmp = y * (y3 * (a * -y5))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (a <= -6.8e+151) {
tmp = (a * y1) * (z * y3);
} else if (a <= -6.5e+99) {
tmp = i * (k * (y * y5));
} else if (a <= -5.8e-8) {
tmp = y0 * (y2 * (x * c));
} else if (a <= -1.85e-171) {
tmp = y * (y4 * (c * y3));
} else if (a <= 2.8e-152) {
tmp = (i * y5) * (t * -j);
} else if (a <= 2.2e-107) {
tmp = i * (-k * (z * y1));
} else if (a <= 3.2e-18) {
tmp = (i * y5) * (y * k);
} else {
tmp = y * (y3 * (a * -y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if a <= -6.8e+151: tmp = (a * y1) * (z * y3) elif a <= -6.5e+99: tmp = i * (k * (y * y5)) elif a <= -5.8e-8: tmp = y0 * (y2 * (x * c)) elif a <= -1.85e-171: tmp = y * (y4 * (c * y3)) elif a <= 2.8e-152: tmp = (i * y5) * (t * -j) elif a <= 2.2e-107: tmp = i * (-k * (z * y1)) elif a <= 3.2e-18: tmp = (i * y5) * (y * k) else: tmp = y * (y3 * (a * -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 (a <= -6.8e+151) tmp = Float64(Float64(a * y1) * Float64(z * y3)); elseif (a <= -6.5e+99) tmp = Float64(i * Float64(k * Float64(y * y5))); elseif (a <= -5.8e-8) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (a <= -1.85e-171) tmp = Float64(y * Float64(y4 * Float64(c * y3))); elseif (a <= 2.8e-152) tmp = Float64(Float64(i * y5) * Float64(t * Float64(-j))); elseif (a <= 2.2e-107) tmp = Float64(i * Float64(Float64(-k) * Float64(z * y1))); elseif (a <= 3.2e-18) tmp = Float64(Float64(i * y5) * Float64(y * k)); else tmp = Float64(y * Float64(y3 * Float64(a * Float64(-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 (a <= -6.8e+151) tmp = (a * y1) * (z * y3); elseif (a <= -6.5e+99) tmp = i * (k * (y * y5)); elseif (a <= -5.8e-8) tmp = y0 * (y2 * (x * c)); elseif (a <= -1.85e-171) tmp = y * (y4 * (c * y3)); elseif (a <= 2.8e-152) tmp = (i * y5) * (t * -j); elseif (a <= 2.2e-107) tmp = i * (-k * (z * y1)); elseif (a <= 3.2e-18) tmp = (i * y5) * (y * k); else tmp = y * (y3 * (a * -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[a, -6.8e+151], N[(N[(a * y1), $MachinePrecision] * N[(z * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -6.5e+99], N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -5.8e-8], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.85e-171], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.8e-152], N[(N[(i * y5), $MachinePrecision] * N[(t * (-j)), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 2.2e-107], N[(i * N[((-k) * N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 3.2e-18], N[(N[(i * y5), $MachinePrecision] * N[(y * k), $MachinePrecision]), $MachinePrecision], N[(y * N[(y3 * N[(a * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq -6.8 \cdot 10^{+151}:\\
\;\;\;\;\left(a \cdot y1\right) \cdot \left(z \cdot y3\right)\\
\mathbf{elif}\;a \leq -6.5 \cdot 10^{+99}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\mathbf{elif}\;a \leq -5.8 \cdot 10^{-8}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;a \leq -1.85 \cdot 10^{-171}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{elif}\;a \leq 2.8 \cdot 10^{-152}:\\
\;\;\;\;\left(i \cdot y5\right) \cdot \left(t \cdot \left(-j\right)\right)\\
\mathbf{elif}\;a \leq 2.2 \cdot 10^{-107}:\\
\;\;\;\;i \cdot \left(\left(-k\right) \cdot \left(z \cdot y1\right)\right)\\
\mathbf{elif}\;a \leq 3.2 \cdot 10^{-18}:\\
\;\;\;\;\left(i \cdot y5\right) \cdot \left(y \cdot k\right)\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(a \cdot \left(-y5\right)\right)\right)\\
\end{array}
\end{array}
if a < -6.7999999999999999e151Initial program 32.2%
Taylor expanded in y1 around -inf 53.2%
mul-1-neg53.2%
distribute-rgt-neg-in53.2%
+-commutative53.2%
mul-1-neg53.2%
unsub-neg53.2%
*-commutative53.2%
*-commutative53.2%
*-commutative53.2%
Simplified53.2%
Taylor expanded in a around inf 53.1%
Taylor expanded in y3 around inf 37.4%
associate-*r*49.3%
*-commutative49.3%
Simplified49.3%
if -6.7999999999999999e151 < a < -6.5000000000000004e99Initial program 13.3%
Taylor expanded in y5 around -inf 40.3%
Taylor expanded in i around inf 60.8%
associate-*r*35.1%
*-commutative35.1%
Simplified35.1%
Taylor expanded in j around 0 53.9%
mul-1-neg53.9%
*-commutative53.9%
distribute-rgt-neg-in53.9%
Simplified53.9%
if -6.5000000000000004e99 < a < -5.8000000000000003e-8Initial program 29.0%
Taylor expanded in y2 around inf 45.4%
*-commutative45.4%
Simplified45.4%
Taylor expanded in y0 around inf 39.4%
Taylor expanded in y5 around 0 39.9%
associate-*r*39.9%
*-commutative39.9%
Simplified39.9%
if -5.8000000000000003e-8 < a < -1.85000000000000006e-171Initial program 30.3%
Taylor expanded in y2 around inf 42.7%
*-commutative42.7%
Simplified42.7%
Taylor expanded in y around inf 31.4%
Taylor expanded in c around inf 34.4%
associate-*r*31.6%
Simplified31.6%
if -1.85000000000000006e-171 < a < 2.79999999999999984e-152Initial program 36.6%
Taylor expanded in y5 around -inf 48.8%
Taylor expanded in i around inf 40.9%
associate-*r*40.8%
*-commutative40.8%
Simplified40.8%
Taylor expanded in j around inf 31.1%
if 2.79999999999999984e-152 < a < 2.20000000000000012e-107Initial program 34.0%
Taylor expanded in y1 around -inf 45.1%
mul-1-neg45.1%
distribute-rgt-neg-in45.1%
+-commutative45.1%
mul-1-neg45.1%
unsub-neg45.1%
*-commutative45.1%
*-commutative45.1%
*-commutative45.1%
Simplified45.1%
Taylor expanded in z around -inf 55.8%
mul-1-neg55.8%
associate-*r*55.8%
*-commutative55.8%
*-commutative55.8%
Simplified55.8%
Taylor expanded in k around inf 67.2%
if 2.20000000000000012e-107 < a < 3.1999999999999999e-18Initial program 40.4%
Taylor expanded in y5 around -inf 53.6%
Taylor expanded in i around inf 40.4%
associate-*r*40.5%
*-commutative40.5%
Simplified40.5%
Taylor expanded in j around 0 35.0%
mul-1-neg35.0%
distribute-lft-neg-out35.0%
*-commutative35.0%
Simplified35.0%
if 3.1999999999999999e-18 < a Initial program 35.5%
Taylor expanded in y2 around inf 38.3%
*-commutative38.3%
Simplified38.3%
Taylor expanded in y around inf 38.1%
Taylor expanded in c around 0 36.5%
neg-mul-136.5%
distribute-lft-neg-in36.5%
*-commutative36.5%
Simplified36.5%
Final simplification38.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* y1 (- (* z y3) (* x y2)))))
(t_2 (* i (* y1 (- (* x j) (* z k))))))
(if (<= y2 -2.8e+125)
t_1
(if (<= y2 -1.06e+81)
(* y0 (* k (* y2 (- y5))))
(if (<= y2 -5.6e-122)
t_2
(if (<= y2 -4.1e-298)
(* i (* k (* y y5)))
(if (<= y2 1e-97)
t_2
(if (<= y2 2.6e+222) t_1 (* y0 (* c (* x y2)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (y1 * ((z * y3) - (x * y2)));
double t_2 = i * (y1 * ((x * j) - (z * k)));
double tmp;
if (y2 <= -2.8e+125) {
tmp = t_1;
} else if (y2 <= -1.06e+81) {
tmp = y0 * (k * (y2 * -y5));
} else if (y2 <= -5.6e-122) {
tmp = t_2;
} else if (y2 <= -4.1e-298) {
tmp = i * (k * (y * y5));
} else if (y2 <= 1e-97) {
tmp = t_2;
} else if (y2 <= 2.6e+222) {
tmp = t_1;
} else {
tmp = y0 * (c * (x * y2));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = a * (y1 * ((z * y3) - (x * y2)))
t_2 = i * (y1 * ((x * j) - (z * k)))
if (y2 <= (-2.8d+125)) then
tmp = t_1
else if (y2 <= (-1.06d+81)) then
tmp = y0 * (k * (y2 * -y5))
else if (y2 <= (-5.6d-122)) then
tmp = t_2
else if (y2 <= (-4.1d-298)) then
tmp = i * (k * (y * y5))
else if (y2 <= 1d-97) then
tmp = t_2
else if (y2 <= 2.6d+222) then
tmp = t_1
else
tmp = y0 * (c * (x * y2))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (y1 * ((z * y3) - (x * y2)));
double t_2 = i * (y1 * ((x * j) - (z * k)));
double tmp;
if (y2 <= -2.8e+125) {
tmp = t_1;
} else if (y2 <= -1.06e+81) {
tmp = y0 * (k * (y2 * -y5));
} else if (y2 <= -5.6e-122) {
tmp = t_2;
} else if (y2 <= -4.1e-298) {
tmp = i * (k * (y * y5));
} else if (y2 <= 1e-97) {
tmp = t_2;
} else if (y2 <= 2.6e+222) {
tmp = t_1;
} else {
tmp = y0 * (c * (x * y2));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (y1 * ((z * y3) - (x * y2))) t_2 = i * (y1 * ((x * j) - (z * k))) tmp = 0 if y2 <= -2.8e+125: tmp = t_1 elif y2 <= -1.06e+81: tmp = y0 * (k * (y2 * -y5)) elif y2 <= -5.6e-122: tmp = t_2 elif y2 <= -4.1e-298: tmp = i * (k * (y * y5)) elif y2 <= 1e-97: tmp = t_2 elif y2 <= 2.6e+222: tmp = t_1 else: tmp = y0 * (c * (x * y2)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) t_2 = Float64(i * Float64(y1 * Float64(Float64(x * j) - Float64(z * k)))) tmp = 0.0 if (y2 <= -2.8e+125) tmp = t_1; elseif (y2 <= -1.06e+81) tmp = Float64(y0 * Float64(k * Float64(y2 * Float64(-y5)))); elseif (y2 <= -5.6e-122) tmp = t_2; elseif (y2 <= -4.1e-298) tmp = Float64(i * Float64(k * Float64(y * y5))); elseif (y2 <= 1e-97) tmp = t_2; elseif (y2 <= 2.6e+222) tmp = t_1; else tmp = Float64(y0 * Float64(c * Float64(x * y2))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (y1 * ((z * y3) - (x * y2))); t_2 = i * (y1 * ((x * j) - (z * k))); tmp = 0.0; if (y2 <= -2.8e+125) tmp = t_1; elseif (y2 <= -1.06e+81) tmp = y0 * (k * (y2 * -y5)); elseif (y2 <= -5.6e-122) tmp = t_2; elseif (y2 <= -4.1e-298) tmp = i * (k * (y * y5)); elseif (y2 <= 1e-97) tmp = t_2; elseif (y2 <= 2.6e+222) tmp = t_1; else tmp = y0 * (c * (x * y2)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(i * N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -2.8e+125], t$95$1, If[LessEqual[y2, -1.06e+81], N[(y0 * N[(k * N[(y2 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -5.6e-122], t$95$2, If[LessEqual[y2, -4.1e-298], N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1e-97], t$95$2, If[LessEqual[y2, 2.6e+222], t$95$1, N[(y0 * N[(c * N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
t_2 := i \cdot \left(y1 \cdot \left(x \cdot j - z \cdot k\right)\right)\\
\mathbf{if}\;y2 \leq -2.8 \cdot 10^{+125}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq -1.06 \cdot 10^{+81}:\\
\;\;\;\;y0 \cdot \left(k \cdot \left(y2 \cdot \left(-y5\right)\right)\right)\\
\mathbf{elif}\;y2 \leq -5.6 \cdot 10^{-122}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq -4.1 \cdot 10^{-298}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 10^{-97}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq 2.6 \cdot 10^{+222}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y0 \cdot \left(c \cdot \left(x \cdot y2\right)\right)\\
\end{array}
\end{array}
if y2 < -2.8000000000000001e125 or 1.00000000000000004e-97 < y2 < 2.6000000000000001e222Initial program 29.5%
Taylor expanded in y1 around -inf 44.6%
mul-1-neg44.6%
distribute-rgt-neg-in44.6%
+-commutative44.6%
mul-1-neg44.6%
unsub-neg44.6%
*-commutative44.6%
*-commutative44.6%
*-commutative44.6%
Simplified44.6%
Taylor expanded in a around inf 43.8%
if -2.8000000000000001e125 < y2 < -1.05999999999999993e81Initial program 38.5%
Taylor expanded in y2 around inf 53.8%
*-commutative53.8%
Simplified53.8%
Taylor expanded in y0 around inf 69.8%
Taylor expanded in k around inf 61.9%
mul-1-neg61.9%
Simplified61.9%
if -1.05999999999999993e81 < y2 < -5.5999999999999998e-122 or -4.0999999999999999e-298 < y2 < 1.00000000000000004e-97Initial program 33.8%
Taylor expanded in y1 around -inf 42.9%
mul-1-neg42.9%
distribute-rgt-neg-in42.9%
+-commutative42.9%
mul-1-neg42.9%
unsub-neg42.9%
*-commutative42.9%
*-commutative42.9%
*-commutative42.9%
Simplified42.9%
Taylor expanded in i around inf 40.0%
if -5.5999999999999998e-122 < y2 < -4.0999999999999999e-298Initial program 36.5%
Taylor expanded in y5 around -inf 41.7%
Taylor expanded in i around inf 37.5%
associate-*r*35.3%
*-commutative35.3%
Simplified35.3%
Taylor expanded in j around 0 28.6%
mul-1-neg28.6%
*-commutative28.6%
distribute-rgt-neg-in28.6%
Simplified28.6%
if 2.6000000000000001e222 < y2 Initial program 31.8%
Taylor expanded in y2 around inf 27.3%
*-commutative27.3%
Simplified27.3%
Taylor expanded in y0 around inf 45.5%
Taylor expanded in y5 around 0 50.3%
Final simplification41.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* y1 (- (* z y3) (* x y2))))))
(if (<= y5 -3e-49)
(* j (* t (- (* b y4) (* i y5))))
(if (<= y5 7.6e-174)
t_1
(if (<= y5 1.7e-104)
(* y0 (* y2 (* x c)))
(if (<= y5 5.2e+28)
t_1
(if (<= y5 2.2e+144)
(* j (* y3 (- (* y0 y5) (* y1 y4))))
(if (<= y5 2.35e+204) t_1 (* 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 t_1 = a * (y1 * ((z * y3) - (x * y2)));
double tmp;
if (y5 <= -3e-49) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y5 <= 7.6e-174) {
tmp = t_1;
} else if (y5 <= 1.7e-104) {
tmp = y0 * (y2 * (x * c));
} else if (y5 <= 5.2e+28) {
tmp = t_1;
} else if (y5 <= 2.2e+144) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y5 <= 2.35e+204) {
tmp = t_1;
} 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) :: t_1
real(8) :: tmp
t_1 = a * (y1 * ((z * y3) - (x * y2)))
if (y5 <= (-3d-49)) then
tmp = j * (t * ((b * y4) - (i * y5)))
else if (y5 <= 7.6d-174) then
tmp = t_1
else if (y5 <= 1.7d-104) then
tmp = y0 * (y2 * (x * c))
else if (y5 <= 5.2d+28) then
tmp = t_1
else if (y5 <= 2.2d+144) then
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)))
else if (y5 <= 2.35d+204) then
tmp = t_1
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 t_1 = a * (y1 * ((z * y3) - (x * y2)));
double tmp;
if (y5 <= -3e-49) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y5 <= 7.6e-174) {
tmp = t_1;
} else if (y5 <= 1.7e-104) {
tmp = y0 * (y2 * (x * c));
} else if (y5 <= 5.2e+28) {
tmp = t_1;
} else if (y5 <= 2.2e+144) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y5 <= 2.35e+204) {
tmp = t_1;
} 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): t_1 = a * (y1 * ((z * y3) - (x * y2))) tmp = 0 if y5 <= -3e-49: tmp = j * (t * ((b * y4) - (i * y5))) elif y5 <= 7.6e-174: tmp = t_1 elif y5 <= 1.7e-104: tmp = y0 * (y2 * (x * c)) elif y5 <= 5.2e+28: tmp = t_1 elif y5 <= 2.2e+144: tmp = j * (y3 * ((y0 * y5) - (y1 * y4))) elif y5 <= 2.35e+204: tmp = t_1 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) t_1 = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) tmp = 0.0 if (y5 <= -3e-49) tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))); elseif (y5 <= 7.6e-174) tmp = t_1; elseif (y5 <= 1.7e-104) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (y5 <= 5.2e+28) tmp = t_1; elseif (y5 <= 2.2e+144) tmp = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))); elseif (y5 <= 2.35e+204) tmp = t_1; 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) t_1 = a * (y1 * ((z * y3) - (x * y2))); tmp = 0.0; if (y5 <= -3e-49) tmp = j * (t * ((b * y4) - (i * y5))); elseif (y5 <= 7.6e-174) tmp = t_1; elseif (y5 <= 1.7e-104) tmp = y0 * (y2 * (x * c)); elseif (y5 <= 5.2e+28) tmp = t_1; elseif (y5 <= 2.2e+144) tmp = j * (y3 * ((y0 * y5) - (y1 * y4))); elseif (y5 <= 2.35e+204) tmp = t_1; 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_] := Block[{t$95$1 = N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -3e-49], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 7.6e-174], t$95$1, If[LessEqual[y5, 1.7e-104], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 5.2e+28], t$95$1, If[LessEqual[y5, 2.2e+144], N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.35e+204], t$95$1, N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{if}\;y5 \leq -3 \cdot 10^{-49}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 7.6 \cdot 10^{-174}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 1.7 \cdot 10^{-104}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;y5 \leq 5.2 \cdot 10^{+28}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 2.2 \cdot 10^{+144}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 2.35 \cdot 10^{+204}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\end{array}
\end{array}
if y5 < -3e-49Initial program 31.6%
Taylor expanded in j around inf 49.7%
+-commutative49.7%
mul-1-neg49.7%
unsub-neg49.7%
*-commutative49.7%
Simplified49.7%
Taylor expanded in t around inf 46.2%
*-commutative46.2%
Simplified46.2%
if -3e-49 < y5 < 7.60000000000000042e-174 or 1.70000000000000008e-104 < y5 < 5.2000000000000004e28 or 2.19999999999999988e144 < y5 < 2.3500000000000001e204Initial program 34.5%
Taylor expanded in y1 around -inf 41.9%
mul-1-neg41.9%
distribute-rgt-neg-in41.9%
+-commutative41.9%
mul-1-neg41.9%
unsub-neg41.9%
*-commutative41.9%
*-commutative41.9%
*-commutative41.9%
Simplified41.9%
Taylor expanded in a around inf 40.4%
if 7.60000000000000042e-174 < y5 < 1.70000000000000008e-104Initial program 33.3%
Taylor expanded in y2 around inf 33.9%
*-commutative33.9%
Simplified33.9%
Taylor expanded in y0 around inf 28.6%
Taylor expanded in y5 around 0 34.8%
associate-*r*41.2%
*-commutative41.2%
Simplified41.2%
if 5.2000000000000004e28 < y5 < 2.19999999999999988e144Initial program 34.5%
Taylor expanded in j around inf 31.6%
+-commutative31.6%
mul-1-neg31.6%
unsub-neg31.6%
*-commutative31.6%
Simplified31.6%
Taylor expanded in y3 around inf 47.2%
*-commutative47.2%
*-commutative47.2%
Simplified47.2%
if 2.3500000000000001e204 < y5 Initial program 25.0%
Taylor expanded in y5 around -inf 80.0%
Taylor expanded in i around inf 80.2%
associate-*r*70.7%
*-commutative70.7%
Simplified70.7%
Taylor expanded in j around 0 61.8%
mul-1-neg61.8%
*-commutative61.8%
distribute-rgt-neg-in61.8%
Simplified61.8%
Final simplification44.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y5 -5.6e-55)
(* j (* t (- (* b y4) (* i y5))))
(if (<= y5 5.6e-192)
(* x (* y1 (- (* i j) (* a y2))))
(if (<= y5 5e+41)
(* x (* y2 (- (* c y0) (* a y1))))
(if (<= y5 9.5e+54)
(* i (* z (* k (- y1))))
(if (<= y5 2e+144)
(* j (* y3 (- (* y0 y5) (* y1 y4))))
(if (<= y5 4.3e+203)
(* a (* y1 (- (* z y3) (* x y2))))
(* 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 <= -5.6e-55) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y5 <= 5.6e-192) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (y5 <= 5e+41) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y5 <= 9.5e+54) {
tmp = i * (z * (k * -y1));
} else if (y5 <= 2e+144) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y5 <= 4.3e+203) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} 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 <= (-5.6d-55)) then
tmp = j * (t * ((b * y4) - (i * y5)))
else if (y5 <= 5.6d-192) then
tmp = x * (y1 * ((i * j) - (a * y2)))
else if (y5 <= 5d+41) then
tmp = x * (y2 * ((c * y0) - (a * y1)))
else if (y5 <= 9.5d+54) then
tmp = i * (z * (k * -y1))
else if (y5 <= 2d+144) then
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)))
else if (y5 <= 4.3d+203) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
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 <= -5.6e-55) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y5 <= 5.6e-192) {
tmp = x * (y1 * ((i * j) - (a * y2)));
} else if (y5 <= 5e+41) {
tmp = x * (y2 * ((c * y0) - (a * y1)));
} else if (y5 <= 9.5e+54) {
tmp = i * (z * (k * -y1));
} else if (y5 <= 2e+144) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y5 <= 4.3e+203) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} 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 <= -5.6e-55: tmp = j * (t * ((b * y4) - (i * y5))) elif y5 <= 5.6e-192: tmp = x * (y1 * ((i * j) - (a * y2))) elif y5 <= 5e+41: tmp = x * (y2 * ((c * y0) - (a * y1))) elif y5 <= 9.5e+54: tmp = i * (z * (k * -y1)) elif y5 <= 2e+144: tmp = j * (y3 * ((y0 * y5) - (y1 * y4))) elif y5 <= 4.3e+203: tmp = a * (y1 * ((z * y3) - (x * y2))) 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 <= -5.6e-55) tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))); elseif (y5 <= 5.6e-192) tmp = Float64(x * Float64(y1 * Float64(Float64(i * j) - Float64(a * y2)))); elseif (y5 <= 5e+41) tmp = Float64(x * Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))); elseif (y5 <= 9.5e+54) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); elseif (y5 <= 2e+144) tmp = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))); elseif (y5 <= 4.3e+203) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); 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 <= -5.6e-55) tmp = j * (t * ((b * y4) - (i * y5))); elseif (y5 <= 5.6e-192) tmp = x * (y1 * ((i * j) - (a * y2))); elseif (y5 <= 5e+41) tmp = x * (y2 * ((c * y0) - (a * y1))); elseif (y5 <= 9.5e+54) tmp = i * (z * (k * -y1)); elseif (y5 <= 2e+144) tmp = j * (y3 * ((y0 * y5) - (y1 * y4))); elseif (y5 <= 4.3e+203) tmp = a * (y1 * ((z * y3) - (x * y2))); 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, -5.6e-55], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 5.6e-192], N[(x * N[(y1 * N[(N[(i * j), $MachinePrecision] - N[(a * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 5e+41], N[(x * N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 9.5e+54], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2e+144], N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 4.3e+203], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y5 \leq -5.6 \cdot 10^{-55}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 5.6 \cdot 10^{-192}:\\
\;\;\;\;x \cdot \left(y1 \cdot \left(i \cdot j - a \cdot y2\right)\right)\\
\mathbf{elif}\;y5 \leq 5 \cdot 10^{+41}:\\
\;\;\;\;x \cdot \left(y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right)\\
\mathbf{elif}\;y5 \leq 9.5 \cdot 10^{+54}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;y5 \leq 2 \cdot 10^{+144}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 4.3 \cdot 10^{+203}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\end{array}
\end{array}
if y5 < -5.59999999999999968e-55Initial program 30.3%
Taylor expanded in j around inf 49.1%
+-commutative49.1%
mul-1-neg49.1%
unsub-neg49.1%
*-commutative49.1%
Simplified49.1%
Taylor expanded in t around inf 44.4%
*-commutative44.4%
Simplified44.4%
if -5.59999999999999968e-55 < y5 < 5.60000000000000007e-192Initial program 35.1%
Taylor expanded in y1 around -inf 45.0%
mul-1-neg45.0%
distribute-rgt-neg-in45.0%
+-commutative45.0%
mul-1-neg45.0%
unsub-neg45.0%
*-commutative45.0%
*-commutative45.0%
*-commutative45.0%
Simplified45.0%
Taylor expanded in x around inf 41.5%
if 5.60000000000000007e-192 < y5 < 5.00000000000000022e41Initial program 42.8%
Taylor expanded in y2 around inf 45.8%
*-commutative45.8%
Simplified45.8%
Taylor expanded in x around inf 38.9%
*-commutative38.9%
Simplified38.9%
if 5.00000000000000022e41 < y5 < 9.4999999999999999e54Initial program 50.0%
Taylor expanded in y1 around -inf 67.7%
mul-1-neg67.7%
distribute-rgt-neg-in67.7%
+-commutative67.7%
mul-1-neg67.7%
unsub-neg67.7%
*-commutative67.7%
*-commutative67.7%
*-commutative67.7%
Simplified67.7%
Taylor expanded in z around -inf 51.9%
mul-1-neg51.9%
associate-*r*36.0%
*-commutative36.0%
*-commutative36.0%
Simplified36.0%
Taylor expanded in k around inf 51.6%
add051.6%
associate-*r*35.9%
Applied egg-rr35.9%
add035.9%
associate-*l*51.6%
associate-*r*67.2%
*-commutative67.2%
Simplified67.2%
if 9.4999999999999999e54 < y5 < 2.00000000000000005e144Initial program 31.4%
Taylor expanded in j around inf 27.3%
+-commutative27.3%
mul-1-neg27.3%
unsub-neg27.3%
*-commutative27.3%
Simplified27.3%
Taylor expanded in y3 around inf 48.4%
*-commutative48.4%
*-commutative48.4%
Simplified48.4%
if 2.00000000000000005e144 < y5 < 4.3e203Initial program 7.7%
Taylor expanded in y1 around -inf 31.2%
mul-1-neg31.2%
distribute-rgt-neg-in31.2%
+-commutative31.2%
mul-1-neg31.2%
unsub-neg31.2%
*-commutative31.2%
*-commutative31.2%
*-commutative31.2%
Simplified31.2%
Taylor expanded in a around inf 54.9%
if 4.3e203 < y5 Initial program 25.0%
Taylor expanded in y5 around -inf 80.0%
Taylor expanded in i around inf 80.2%
associate-*r*70.7%
*-commutative70.7%
Simplified70.7%
Taylor expanded in j around 0 61.8%
mul-1-neg61.8%
*-commutative61.8%
distribute-rgt-neg-in61.8%
Simplified61.8%
Final simplification45.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (* y4 (* c y3)))) (t_2 (* a (* y1 (* x (- y2))))))
(if (<= c -1.8e+205)
t_1
(if (<= c -5.8e+19)
(* y0 (* y2 (* x c)))
(if (<= c -3.5e-140)
(* a (* y1 (* z y3)))
(if (<= c -7.6e-178)
t_2
(if (<= c 2.7e-188)
(* j (* y5 (* y0 y3)))
(if (<= c 7.3e+169) 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 = y * (y4 * (c * y3));
double t_2 = a * (y1 * (x * -y2));
double tmp;
if (c <= -1.8e+205) {
tmp = t_1;
} else if (c <= -5.8e+19) {
tmp = y0 * (y2 * (x * c));
} else if (c <= -3.5e-140) {
tmp = a * (y1 * (z * y3));
} else if (c <= -7.6e-178) {
tmp = t_2;
} else if (c <= 2.7e-188) {
tmp = j * (y5 * (y0 * y3));
} else if (c <= 7.3e+169) {
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 = y * (y4 * (c * y3))
t_2 = a * (y1 * (x * -y2))
if (c <= (-1.8d+205)) then
tmp = t_1
else if (c <= (-5.8d+19)) then
tmp = y0 * (y2 * (x * c))
else if (c <= (-3.5d-140)) then
tmp = a * (y1 * (z * y3))
else if (c <= (-7.6d-178)) then
tmp = t_2
else if (c <= 2.7d-188) then
tmp = j * (y5 * (y0 * y3))
else if (c <= 7.3d+169) 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 = y * (y4 * (c * y3));
double t_2 = a * (y1 * (x * -y2));
double tmp;
if (c <= -1.8e+205) {
tmp = t_1;
} else if (c <= -5.8e+19) {
tmp = y0 * (y2 * (x * c));
} else if (c <= -3.5e-140) {
tmp = a * (y1 * (z * y3));
} else if (c <= -7.6e-178) {
tmp = t_2;
} else if (c <= 2.7e-188) {
tmp = j * (y5 * (y0 * y3));
} else if (c <= 7.3e+169) {
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 = y * (y4 * (c * y3)) t_2 = a * (y1 * (x * -y2)) tmp = 0 if c <= -1.8e+205: tmp = t_1 elif c <= -5.8e+19: tmp = y0 * (y2 * (x * c)) elif c <= -3.5e-140: tmp = a * (y1 * (z * y3)) elif c <= -7.6e-178: tmp = t_2 elif c <= 2.7e-188: tmp = j * (y5 * (y0 * y3)) elif c <= 7.3e+169: 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(y * Float64(y4 * Float64(c * y3))) t_2 = Float64(a * Float64(y1 * Float64(x * Float64(-y2)))) tmp = 0.0 if (c <= -1.8e+205) tmp = t_1; elseif (c <= -5.8e+19) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (c <= -3.5e-140) tmp = Float64(a * Float64(y1 * Float64(z * y3))); elseif (c <= -7.6e-178) tmp = t_2; elseif (c <= 2.7e-188) tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); elseif (c <= 7.3e+169) 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 = y * (y4 * (c * y3)); t_2 = a * (y1 * (x * -y2)); tmp = 0.0; if (c <= -1.8e+205) tmp = t_1; elseif (c <= -5.8e+19) tmp = y0 * (y2 * (x * c)); elseif (c <= -3.5e-140) tmp = a * (y1 * (z * y3)); elseif (c <= -7.6e-178) tmp = t_2; elseif (c <= 2.7e-188) tmp = j * (y5 * (y0 * y3)); elseif (c <= 7.3e+169) 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[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(y1 * N[(x * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -1.8e+205], t$95$1, If[LessEqual[c, -5.8e+19], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -3.5e-140], N[(a * N[(y1 * N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -7.6e-178], t$95$2, If[LessEqual[c, 2.7e-188], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 7.3e+169], t$95$2, t$95$1]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
t_2 := a \cdot \left(y1 \cdot \left(x \cdot \left(-y2\right)\right)\right)\\
\mathbf{if}\;c \leq -1.8 \cdot 10^{+205}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -5.8 \cdot 10^{+19}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;c \leq -3.5 \cdot 10^{-140}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3\right)\right)\\
\mathbf{elif}\;c \leq -7.6 \cdot 10^{-178}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 2.7 \cdot 10^{-188}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\mathbf{elif}\;c \leq 7.3 \cdot 10^{+169}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if c < -1.80000000000000001e205 or 7.3000000000000001e169 < c Initial program 15.4%
Taylor expanded in y2 around inf 25.8%
*-commutative25.8%
Simplified25.8%
Taylor expanded in y around inf 49.4%
Taylor expanded in c around inf 49.7%
associate-*r*59.6%
Simplified59.6%
if -1.80000000000000001e205 < c < -5.8e19Initial program 33.5%
Taylor expanded in y2 around inf 45.4%
*-commutative45.4%
Simplified45.4%
Taylor expanded in y0 around inf 34.2%
Taylor expanded in y5 around 0 30.3%
associate-*r*35.0%
*-commutative35.0%
Simplified35.0%
if -5.8e19 < c < -3.4999999999999998e-140Initial program 39.2%
Taylor expanded in y1 around -inf 33.2%
mul-1-neg33.2%
distribute-rgt-neg-in33.2%
+-commutative33.2%
mul-1-neg33.2%
unsub-neg33.2%
*-commutative33.2%
*-commutative33.2%
*-commutative33.2%
Simplified33.2%
Taylor expanded in a around inf 40.7%
Taylor expanded in y3 around inf 29.9%
if -3.4999999999999998e-140 < c < -7.60000000000000029e-178 or 2.7000000000000001e-188 < c < 7.3000000000000001e169Initial program 37.3%
Taylor expanded in y1 around -inf 43.3%
mul-1-neg43.3%
distribute-rgt-neg-in43.3%
+-commutative43.3%
mul-1-neg43.3%
unsub-neg43.3%
*-commutative43.3%
*-commutative43.3%
*-commutative43.3%
Simplified43.3%
Taylor expanded in a around inf 35.1%
Taylor expanded in y3 around 0 31.5%
neg-mul-131.5%
distribute-lft-neg-in31.5%
*-commutative31.5%
Simplified31.5%
if -7.60000000000000029e-178 < c < 2.7000000000000001e-188Initial program 34.4%
Taylor expanded in y2 around inf 39.2%
*-commutative39.2%
Simplified39.2%
Taylor expanded in y0 around inf 38.1%
Taylor expanded in y2 around 0 26.2%
associate-*r*30.6%
Simplified30.6%
Final simplification36.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* y1 (* x (- y2))))))
(if (<= x -5.6e+250)
t_1
(if (<= x -3.2e+172)
(* y0 (* c (* x y2)))
(if (<= x -2e+24)
t_1
(if (<= x -2.75e-174)
(* y (* y3 (* a (- y5))))
(if (<= x 1.32e-76)
(* (* a y1) (* z y3))
(if (<= x 6e+17) (* i (* z (* k (- y1)))) t_1))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (y1 * (x * -y2));
double tmp;
if (x <= -5.6e+250) {
tmp = t_1;
} else if (x <= -3.2e+172) {
tmp = y0 * (c * (x * y2));
} else if (x <= -2e+24) {
tmp = t_1;
} else if (x <= -2.75e-174) {
tmp = y * (y3 * (a * -y5));
} else if (x <= 1.32e-76) {
tmp = (a * y1) * (z * y3);
} else if (x <= 6e+17) {
tmp = i * (z * (k * -y1));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = a * (y1 * (x * -y2))
if (x <= (-5.6d+250)) then
tmp = t_1
else if (x <= (-3.2d+172)) then
tmp = y0 * (c * (x * y2))
else if (x <= (-2d+24)) then
tmp = t_1
else if (x <= (-2.75d-174)) then
tmp = y * (y3 * (a * -y5))
else if (x <= 1.32d-76) then
tmp = (a * y1) * (z * y3)
else if (x <= 6d+17) then
tmp = i * (z * (k * -y1))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (y1 * (x * -y2));
double tmp;
if (x <= -5.6e+250) {
tmp = t_1;
} else if (x <= -3.2e+172) {
tmp = y0 * (c * (x * y2));
} else if (x <= -2e+24) {
tmp = t_1;
} else if (x <= -2.75e-174) {
tmp = y * (y3 * (a * -y5));
} else if (x <= 1.32e-76) {
tmp = (a * y1) * (z * y3);
} else if (x <= 6e+17) {
tmp = i * (z * (k * -y1));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (y1 * (x * -y2)) tmp = 0 if x <= -5.6e+250: tmp = t_1 elif x <= -3.2e+172: tmp = y0 * (c * (x * y2)) elif x <= -2e+24: tmp = t_1 elif x <= -2.75e-174: tmp = y * (y3 * (a * -y5)) elif x <= 1.32e-76: tmp = (a * y1) * (z * y3) elif x <= 6e+17: tmp = i * (z * (k * -y1)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(y1 * Float64(x * Float64(-y2)))) tmp = 0.0 if (x <= -5.6e+250) tmp = t_1; elseif (x <= -3.2e+172) tmp = Float64(y0 * Float64(c * Float64(x * y2))); elseif (x <= -2e+24) tmp = t_1; elseif (x <= -2.75e-174) tmp = Float64(y * Float64(y3 * Float64(a * Float64(-y5)))); elseif (x <= 1.32e-76) tmp = Float64(Float64(a * y1) * Float64(z * y3)); elseif (x <= 6e+17) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (y1 * (x * -y2)); tmp = 0.0; if (x <= -5.6e+250) tmp = t_1; elseif (x <= -3.2e+172) tmp = y0 * (c * (x * y2)); elseif (x <= -2e+24) tmp = t_1; elseif (x <= -2.75e-174) tmp = y * (y3 * (a * -y5)); elseif (x <= 1.32e-76) tmp = (a * y1) * (z * y3); elseif (x <= 6e+17) tmp = i * (z * (k * -y1)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(y1 * N[(x * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -5.6e+250], t$95$1, If[LessEqual[x, -3.2e+172], N[(y0 * N[(c * N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -2e+24], t$95$1, If[LessEqual[x, -2.75e-174], N[(y * N[(y3 * N[(a * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.32e-76], N[(N[(a * y1), $MachinePrecision] * N[(z * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6e+17], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(x \cdot \left(-y2\right)\right)\right)\\
\mathbf{if}\;x \leq -5.6 \cdot 10^{+250}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -3.2 \cdot 10^{+172}:\\
\;\;\;\;y0 \cdot \left(c \cdot \left(x \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq -2 \cdot 10^{+24}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -2.75 \cdot 10^{-174}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(a \cdot \left(-y5\right)\right)\right)\\
\mathbf{elif}\;x \leq 1.32 \cdot 10^{-76}:\\
\;\;\;\;\left(a \cdot y1\right) \cdot \left(z \cdot y3\right)\\
\mathbf{elif}\;x \leq 6 \cdot 10^{+17}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -5.60000000000000019e250 or -3.19999999999999985e172 < x < -2e24 or 6e17 < x Initial program 28.2%
Taylor expanded in y1 around -inf 45.5%
mul-1-neg45.5%
distribute-rgt-neg-in45.5%
+-commutative45.5%
mul-1-neg45.5%
unsub-neg45.5%
*-commutative45.5%
*-commutative45.5%
*-commutative45.5%
Simplified45.5%
Taylor expanded in a around inf 42.8%
Taylor expanded in y3 around 0 38.1%
neg-mul-138.1%
distribute-lft-neg-in38.1%
*-commutative38.1%
Simplified38.1%
if -5.60000000000000019e250 < x < -3.19999999999999985e172Initial program 22.2%
Taylor expanded in y2 around inf 28.1%
*-commutative28.1%
Simplified28.1%
Taylor expanded in y0 around inf 66.9%
Taylor expanded in y5 around 0 56.0%
if -2e24 < x < -2.7499999999999999e-174Initial program 30.3%
Taylor expanded in y2 around inf 36.7%
*-commutative36.7%
Simplified36.7%
Taylor expanded in y around inf 29.2%
Taylor expanded in c around 0 22.8%
neg-mul-122.8%
distribute-lft-neg-in22.8%
*-commutative22.8%
Simplified22.8%
if -2.7499999999999999e-174 < x < 1.31999999999999996e-76Initial program 41.6%
Taylor expanded in y1 around -inf 43.8%
mul-1-neg43.8%
distribute-rgt-neg-in43.8%
+-commutative43.8%
mul-1-neg43.8%
unsub-neg43.8%
*-commutative43.8%
*-commutative43.8%
*-commutative43.8%
Simplified43.8%
Taylor expanded in a around inf 25.7%
Taylor expanded in y3 around inf 24.4%
associate-*r*27.2%
*-commutative27.2%
Simplified27.2%
if 1.31999999999999996e-76 < x < 6e17Initial program 40.6%
Taylor expanded in y1 around -inf 37.9%
mul-1-neg37.9%
distribute-rgt-neg-in37.9%
+-commutative37.9%
mul-1-neg37.9%
unsub-neg37.9%
*-commutative37.9%
*-commutative37.9%
*-commutative37.9%
Simplified37.9%
Taylor expanded in z around -inf 23.7%
mul-1-neg23.7%
associate-*r*27.2%
*-commutative27.2%
*-commutative27.2%
Simplified27.2%
Taylor expanded in k around inf 16.9%
add016.9%
associate-*r*20.2%
Applied egg-rr20.2%
add020.2%
associate-*l*16.9%
associate-*r*38.2%
*-commutative38.2%
Simplified38.2%
Final simplification34.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* y1 (* x (- y2))))))
(if (<= x -2.9e+250)
t_1
(if (<= x -1.02e+170)
(* y0 (* c (* x y2)))
(if (<= x -6e+24)
t_1
(if (<= x -8e-212)
(* (- a) (* y (* y3 y5)))
(if (<= x 1.1e-81)
(* (* a y1) (* z y3))
(if (<= x 3.8e+16) (* i (* z (* k (- y1)))) t_1))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (y1 * (x * -y2));
double tmp;
if (x <= -2.9e+250) {
tmp = t_1;
} else if (x <= -1.02e+170) {
tmp = y0 * (c * (x * y2));
} else if (x <= -6e+24) {
tmp = t_1;
} else if (x <= -8e-212) {
tmp = -a * (y * (y3 * y5));
} else if (x <= 1.1e-81) {
tmp = (a * y1) * (z * y3);
} else if (x <= 3.8e+16) {
tmp = i * (z * (k * -y1));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = a * (y1 * (x * -y2))
if (x <= (-2.9d+250)) then
tmp = t_1
else if (x <= (-1.02d+170)) then
tmp = y0 * (c * (x * y2))
else if (x <= (-6d+24)) then
tmp = t_1
else if (x <= (-8d-212)) then
tmp = -a * (y * (y3 * y5))
else if (x <= 1.1d-81) then
tmp = (a * y1) * (z * y3)
else if (x <= 3.8d+16) then
tmp = i * (z * (k * -y1))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = a * (y1 * (x * -y2));
double tmp;
if (x <= -2.9e+250) {
tmp = t_1;
} else if (x <= -1.02e+170) {
tmp = y0 * (c * (x * y2));
} else if (x <= -6e+24) {
tmp = t_1;
} else if (x <= -8e-212) {
tmp = -a * (y * (y3 * y5));
} else if (x <= 1.1e-81) {
tmp = (a * y1) * (z * y3);
} else if (x <= 3.8e+16) {
tmp = i * (z * (k * -y1));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (y1 * (x * -y2)) tmp = 0 if x <= -2.9e+250: tmp = t_1 elif x <= -1.02e+170: tmp = y0 * (c * (x * y2)) elif x <= -6e+24: tmp = t_1 elif x <= -8e-212: tmp = -a * (y * (y3 * y5)) elif x <= 1.1e-81: tmp = (a * y1) * (z * y3) elif x <= 3.8e+16: tmp = i * (z * (k * -y1)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(y1 * Float64(x * Float64(-y2)))) tmp = 0.0 if (x <= -2.9e+250) tmp = t_1; elseif (x <= -1.02e+170) tmp = Float64(y0 * Float64(c * Float64(x * y2))); elseif (x <= -6e+24) tmp = t_1; elseif (x <= -8e-212) tmp = Float64(Float64(-a) * Float64(y * Float64(y3 * y5))); elseif (x <= 1.1e-81) tmp = Float64(Float64(a * y1) * Float64(z * y3)); elseif (x <= 3.8e+16) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (y1 * (x * -y2)); tmp = 0.0; if (x <= -2.9e+250) tmp = t_1; elseif (x <= -1.02e+170) tmp = y0 * (c * (x * y2)); elseif (x <= -6e+24) tmp = t_1; elseif (x <= -8e-212) tmp = -a * (y * (y3 * y5)); elseif (x <= 1.1e-81) tmp = (a * y1) * (z * y3); elseif (x <= 3.8e+16) tmp = i * (z * (k * -y1)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(y1 * N[(x * (-y2)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -2.9e+250], t$95$1, If[LessEqual[x, -1.02e+170], N[(y0 * N[(c * N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, -6e+24], t$95$1, If[LessEqual[x, -8e-212], N[((-a) * N[(y * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.1e-81], N[(N[(a * y1), $MachinePrecision] * N[(z * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 3.8e+16], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(x \cdot \left(-y2\right)\right)\right)\\
\mathbf{if}\;x \leq -2.9 \cdot 10^{+250}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -1.02 \cdot 10^{+170}:\\
\;\;\;\;y0 \cdot \left(c \cdot \left(x \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq -6 \cdot 10^{+24}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq -8 \cdot 10^{-212}:\\
\;\;\;\;\left(-a\right) \cdot \left(y \cdot \left(y3 \cdot y5\right)\right)\\
\mathbf{elif}\;x \leq 1.1 \cdot 10^{-81}:\\
\;\;\;\;\left(a \cdot y1\right) \cdot \left(z \cdot y3\right)\\
\mathbf{elif}\;x \leq 3.8 \cdot 10^{+16}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -2.90000000000000009e250 or -1.02000000000000002e170 < x < -5.9999999999999999e24 or 3.8e16 < x Initial program 28.2%
Taylor expanded in y1 around -inf 45.5%
mul-1-neg45.5%
distribute-rgt-neg-in45.5%
+-commutative45.5%
mul-1-neg45.5%
unsub-neg45.5%
*-commutative45.5%
*-commutative45.5%
*-commutative45.5%
Simplified45.5%
Taylor expanded in a around inf 42.8%
Taylor expanded in y3 around 0 38.1%
neg-mul-138.1%
distribute-lft-neg-in38.1%
*-commutative38.1%
Simplified38.1%
if -2.90000000000000009e250 < x < -1.02000000000000002e170Initial program 22.2%
Taylor expanded in y2 around inf 28.1%
*-commutative28.1%
Simplified28.1%
Taylor expanded in y0 around inf 66.9%
Taylor expanded in y5 around 0 56.0%
if -5.9999999999999999e24 < x < -7.99999999999999963e-212Initial program 36.1%
Taylor expanded in y2 around inf 39.5%
*-commutative39.5%
Simplified39.5%
Taylor expanded in y around inf 31.3%
Taylor expanded in c around 0 25.4%
associate-*r*25.4%
neg-mul-125.4%
Simplified25.4%
if -7.99999999999999963e-212 < x < 1.1e-81Initial program 38.0%
Taylor expanded in y1 around -inf 42.2%
mul-1-neg42.2%
distribute-rgt-neg-in42.2%
+-commutative42.2%
mul-1-neg42.2%
unsub-neg42.2%
*-commutative42.2%
*-commutative42.2%
*-commutative42.2%
Simplified42.2%
Taylor expanded in a around inf 27.0%
Taylor expanded in y3 around inf 25.5%
associate-*r*28.6%
*-commutative28.6%
Simplified28.6%
if 1.1e-81 < x < 3.8e16Initial program 40.6%
Taylor expanded in y1 around -inf 37.9%
mul-1-neg37.9%
distribute-rgt-neg-in37.9%
+-commutative37.9%
mul-1-neg37.9%
unsub-neg37.9%
*-commutative37.9%
*-commutative37.9%
*-commutative37.9%
Simplified37.9%
Taylor expanded in z around -inf 23.7%
mul-1-neg23.7%
associate-*r*27.2%
*-commutative27.2%
*-commutative27.2%
Simplified27.2%
Taylor expanded in k around inf 16.9%
add016.9%
associate-*r*20.2%
Applied egg-rr20.2%
add020.2%
associate-*l*16.9%
associate-*r*38.2%
*-commutative38.2%
Simplified38.2%
Final simplification34.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* (* i j) (* t (- y5)))))
(if (<= a -5e+130)
(* (* a y1) (* z y3))
(if (<= a -8e-8)
(* y0 (* y2 (* x c)))
(if (<= a -4.9e-169)
(* y (* y4 (* c y3)))
(if (<= a 5.4e-155)
t_1
(if (<= a 5.4e-79)
(* i (* (- k) (* z y1)))
(if (<= a 7.2e+55) t_1 (* y (* y3 (* a (- y5))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (i * j) * (t * -y5);
double tmp;
if (a <= -5e+130) {
tmp = (a * y1) * (z * y3);
} else if (a <= -8e-8) {
tmp = y0 * (y2 * (x * c));
} else if (a <= -4.9e-169) {
tmp = y * (y4 * (c * y3));
} else if (a <= 5.4e-155) {
tmp = t_1;
} else if (a <= 5.4e-79) {
tmp = i * (-k * (z * y1));
} else if (a <= 7.2e+55) {
tmp = t_1;
} else {
tmp = y * (y3 * (a * -y5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = (i * j) * (t * -y5)
if (a <= (-5d+130)) then
tmp = (a * y1) * (z * y3)
else if (a <= (-8d-8)) then
tmp = y0 * (y2 * (x * c))
else if (a <= (-4.9d-169)) then
tmp = y * (y4 * (c * y3))
else if (a <= 5.4d-155) then
tmp = t_1
else if (a <= 5.4d-79) then
tmp = i * (-k * (z * y1))
else if (a <= 7.2d+55) then
tmp = t_1
else
tmp = y * (y3 * (a * -y5))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (i * j) * (t * -y5);
double tmp;
if (a <= -5e+130) {
tmp = (a * y1) * (z * y3);
} else if (a <= -8e-8) {
tmp = y0 * (y2 * (x * c));
} else if (a <= -4.9e-169) {
tmp = y * (y4 * (c * y3));
} else if (a <= 5.4e-155) {
tmp = t_1;
} else if (a <= 5.4e-79) {
tmp = i * (-k * (z * y1));
} else if (a <= 7.2e+55) {
tmp = t_1;
} else {
tmp = y * (y3 * (a * -y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (i * j) * (t * -y5) tmp = 0 if a <= -5e+130: tmp = (a * y1) * (z * y3) elif a <= -8e-8: tmp = y0 * (y2 * (x * c)) elif a <= -4.9e-169: tmp = y * (y4 * (c * y3)) elif a <= 5.4e-155: tmp = t_1 elif a <= 5.4e-79: tmp = i * (-k * (z * y1)) elif a <= 7.2e+55: tmp = t_1 else: tmp = y * (y3 * (a * -y5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(i * j) * Float64(t * Float64(-y5))) tmp = 0.0 if (a <= -5e+130) tmp = Float64(Float64(a * y1) * Float64(z * y3)); elseif (a <= -8e-8) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (a <= -4.9e-169) tmp = Float64(y * Float64(y4 * Float64(c * y3))); elseif (a <= 5.4e-155) tmp = t_1; elseif (a <= 5.4e-79) tmp = Float64(i * Float64(Float64(-k) * Float64(z * y1))); elseif (a <= 7.2e+55) tmp = t_1; else tmp = Float64(y * Float64(y3 * Float64(a * Float64(-y5)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (i * j) * (t * -y5); tmp = 0.0; if (a <= -5e+130) tmp = (a * y1) * (z * y3); elseif (a <= -8e-8) tmp = y0 * (y2 * (x * c)); elseif (a <= -4.9e-169) tmp = y * (y4 * (c * y3)); elseif (a <= 5.4e-155) tmp = t_1; elseif (a <= 5.4e-79) tmp = i * (-k * (z * y1)); elseif (a <= 7.2e+55) tmp = t_1; else tmp = y * (y3 * (a * -y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(i * j), $MachinePrecision] * N[(t * (-y5)), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -5e+130], N[(N[(a * y1), $MachinePrecision] * N[(z * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -8e-8], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -4.9e-169], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 5.4e-155], t$95$1, If[LessEqual[a, 5.4e-79], N[(i * N[((-k) * N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 7.2e+55], t$95$1, N[(y * N[(y3 * N[(a * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(i \cdot j\right) \cdot \left(t \cdot \left(-y5\right)\right)\\
\mathbf{if}\;a \leq -5 \cdot 10^{+130}:\\
\;\;\;\;\left(a \cdot y1\right) \cdot \left(z \cdot y3\right)\\
\mathbf{elif}\;a \leq -8 \cdot 10^{-8}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;a \leq -4.9 \cdot 10^{-169}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{elif}\;a \leq 5.4 \cdot 10^{-155}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 5.4 \cdot 10^{-79}:\\
\;\;\;\;i \cdot \left(\left(-k\right) \cdot \left(z \cdot y1\right)\right)\\
\mathbf{elif}\;a \leq 7.2 \cdot 10^{+55}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(a \cdot \left(-y5\right)\right)\right)\\
\end{array}
\end{array}
if a < -4.9999999999999996e130Initial program 30.0%
Taylor expanded in y1 around -inf 48.9%
mul-1-neg48.9%
distribute-rgt-neg-in48.9%
+-commutative48.9%
mul-1-neg48.9%
unsub-neg48.9%
*-commutative48.9%
*-commutative48.9%
*-commutative48.9%
Simplified48.9%
Taylor expanded in a around inf 46.6%
Taylor expanded in y3 around inf 31.9%
associate-*r*41.1%
*-commutative41.1%
Simplified41.1%
if -4.9999999999999996e130 < a < -8.0000000000000002e-8Initial program 24.3%
Taylor expanded in y2 around inf 40.7%
*-commutative40.7%
Simplified40.7%
Taylor expanded in y0 around inf 35.9%
Taylor expanded in y5 around 0 36.3%
associate-*r*36.3%
*-commutative36.3%
Simplified36.3%
if -8.0000000000000002e-8 < a < -4.8999999999999999e-169Initial program 30.3%
Taylor expanded in y2 around inf 42.7%
*-commutative42.7%
Simplified42.7%
Taylor expanded in y around inf 31.4%
Taylor expanded in c around inf 34.4%
associate-*r*31.6%
Simplified31.6%
if -4.8999999999999999e-169 < a < 5.39999999999999962e-155 or 5.4000000000000004e-79 < a < 7.19999999999999975e55Initial program 40.0%
Taylor expanded in y5 around -inf 49.4%
Taylor expanded in i around inf 37.7%
associate-*r*38.7%
*-commutative38.7%
Simplified38.7%
Taylor expanded in j around inf 28.1%
associate-*r*30.1%
*-commutative30.1%
*-commutative30.1%
Simplified30.1%
if 5.39999999999999962e-155 < a < 5.4000000000000004e-79Initial program 31.3%
Taylor expanded in y1 around -inf 54.3%
mul-1-neg54.3%
distribute-rgt-neg-in54.3%
+-commutative54.3%
mul-1-neg54.3%
unsub-neg54.3%
*-commutative54.3%
*-commutative54.3%
*-commutative54.3%
Simplified54.3%
Taylor expanded in z around -inf 46.6%
mul-1-neg46.6%
associate-*r*46.6%
*-commutative46.6%
*-commutative46.6%
Simplified46.6%
Taylor expanded in k around inf 46.9%
if 7.19999999999999975e55 < a Initial program 30.3%
Taylor expanded in y2 around inf 32.8%
*-commutative32.8%
Simplified32.8%
Taylor expanded in y around inf 40.4%
Taylor expanded in c around 0 42.7%
neg-mul-142.7%
distribute-lft-neg-in42.7%
*-commutative42.7%
Simplified42.7%
Final simplification35.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* (* i y5) (* t (- j)))))
(if (<= a -6.8e+130)
(* (* a y1) (* z y3))
(if (<= a -9.5e-12)
(* y0 (* y2 (* x c)))
(if (<= a -1.6e-172)
(* y (* y4 (* c y3)))
(if (<= a 3.7e-152)
t_1
(if (<= a 1.7e-78)
(* i (* (- k) (* z y1)))
(if (<= a 6.2e+55) t_1 (* y (* y3 (* a (- y5))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (i * y5) * (t * -j);
double tmp;
if (a <= -6.8e+130) {
tmp = (a * y1) * (z * y3);
} else if (a <= -9.5e-12) {
tmp = y0 * (y2 * (x * c));
} else if (a <= -1.6e-172) {
tmp = y * (y4 * (c * y3));
} else if (a <= 3.7e-152) {
tmp = t_1;
} else if (a <= 1.7e-78) {
tmp = i * (-k * (z * y1));
} else if (a <= 6.2e+55) {
tmp = t_1;
} else {
tmp = y * (y3 * (a * -y5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = (i * y5) * (t * -j)
if (a <= (-6.8d+130)) then
tmp = (a * y1) * (z * y3)
else if (a <= (-9.5d-12)) then
tmp = y0 * (y2 * (x * c))
else if (a <= (-1.6d-172)) then
tmp = y * (y4 * (c * y3))
else if (a <= 3.7d-152) then
tmp = t_1
else if (a <= 1.7d-78) then
tmp = i * (-k * (z * y1))
else if (a <= 6.2d+55) then
tmp = t_1
else
tmp = y * (y3 * (a * -y5))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (i * y5) * (t * -j);
double tmp;
if (a <= -6.8e+130) {
tmp = (a * y1) * (z * y3);
} else if (a <= -9.5e-12) {
tmp = y0 * (y2 * (x * c));
} else if (a <= -1.6e-172) {
tmp = y * (y4 * (c * y3));
} else if (a <= 3.7e-152) {
tmp = t_1;
} else if (a <= 1.7e-78) {
tmp = i * (-k * (z * y1));
} else if (a <= 6.2e+55) {
tmp = t_1;
} else {
tmp = y * (y3 * (a * -y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (i * y5) * (t * -j) tmp = 0 if a <= -6.8e+130: tmp = (a * y1) * (z * y3) elif a <= -9.5e-12: tmp = y0 * (y2 * (x * c)) elif a <= -1.6e-172: tmp = y * (y4 * (c * y3)) elif a <= 3.7e-152: tmp = t_1 elif a <= 1.7e-78: tmp = i * (-k * (z * y1)) elif a <= 6.2e+55: tmp = t_1 else: tmp = y * (y3 * (a * -y5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(i * y5) * Float64(t * Float64(-j))) tmp = 0.0 if (a <= -6.8e+130) tmp = Float64(Float64(a * y1) * Float64(z * y3)); elseif (a <= -9.5e-12) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (a <= -1.6e-172) tmp = Float64(y * Float64(y4 * Float64(c * y3))); elseif (a <= 3.7e-152) tmp = t_1; elseif (a <= 1.7e-78) tmp = Float64(i * Float64(Float64(-k) * Float64(z * y1))); elseif (a <= 6.2e+55) tmp = t_1; else tmp = Float64(y * Float64(y3 * Float64(a * Float64(-y5)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (i * y5) * (t * -j); tmp = 0.0; if (a <= -6.8e+130) tmp = (a * y1) * (z * y3); elseif (a <= -9.5e-12) tmp = y0 * (y2 * (x * c)); elseif (a <= -1.6e-172) tmp = y * (y4 * (c * y3)); elseif (a <= 3.7e-152) tmp = t_1; elseif (a <= 1.7e-78) tmp = i * (-k * (z * y1)); elseif (a <= 6.2e+55) tmp = t_1; else tmp = y * (y3 * (a * -y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(i * y5), $MachinePrecision] * N[(t * (-j)), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[a, -6.8e+130], N[(N[(a * y1), $MachinePrecision] * N[(z * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -9.5e-12], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, -1.6e-172], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 3.7e-152], t$95$1, If[LessEqual[a, 1.7e-78], N[(i * N[((-k) * N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[a, 6.2e+55], t$95$1, N[(y * N[(y3 * N[(a * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(i \cdot y5\right) \cdot \left(t \cdot \left(-j\right)\right)\\
\mathbf{if}\;a \leq -6.8 \cdot 10^{+130}:\\
\;\;\;\;\left(a \cdot y1\right) \cdot \left(z \cdot y3\right)\\
\mathbf{elif}\;a \leq -9.5 \cdot 10^{-12}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;a \leq -1.6 \cdot 10^{-172}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{elif}\;a \leq 3.7 \cdot 10^{-152}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;a \leq 1.7 \cdot 10^{-78}:\\
\;\;\;\;i \cdot \left(\left(-k\right) \cdot \left(z \cdot y1\right)\right)\\
\mathbf{elif}\;a \leq 6.2 \cdot 10^{+55}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(a \cdot \left(-y5\right)\right)\right)\\
\end{array}
\end{array}
if a < -6.8000000000000001e130Initial program 30.0%
Taylor expanded in y1 around -inf 48.9%
mul-1-neg48.9%
distribute-rgt-neg-in48.9%
+-commutative48.9%
mul-1-neg48.9%
unsub-neg48.9%
*-commutative48.9%
*-commutative48.9%
*-commutative48.9%
Simplified48.9%
Taylor expanded in a around inf 46.6%
Taylor expanded in y3 around inf 31.9%
associate-*r*41.1%
*-commutative41.1%
Simplified41.1%
if -6.8000000000000001e130 < a < -9.4999999999999995e-12Initial program 24.3%
Taylor expanded in y2 around inf 40.7%
*-commutative40.7%
Simplified40.7%
Taylor expanded in y0 around inf 35.9%
Taylor expanded in y5 around 0 36.3%
associate-*r*36.3%
*-commutative36.3%
Simplified36.3%
if -9.4999999999999995e-12 < a < -1.6000000000000001e-172Initial program 30.3%
Taylor expanded in y2 around inf 42.7%
*-commutative42.7%
Simplified42.7%
Taylor expanded in y around inf 31.4%
Taylor expanded in c around inf 34.4%
associate-*r*31.6%
Simplified31.6%
if -1.6000000000000001e-172 < a < 3.6999999999999998e-152 or 1.70000000000000006e-78 < a < 6.19999999999999987e55Initial program 40.0%
Taylor expanded in y5 around -inf 49.4%
Taylor expanded in i around inf 37.7%
associate-*r*38.7%
*-commutative38.7%
Simplified38.7%
Taylor expanded in j around inf 31.1%
if 3.6999999999999998e-152 < a < 1.70000000000000006e-78Initial program 31.3%
Taylor expanded in y1 around -inf 54.3%
mul-1-neg54.3%
distribute-rgt-neg-in54.3%
+-commutative54.3%
mul-1-neg54.3%
unsub-neg54.3%
*-commutative54.3%
*-commutative54.3%
*-commutative54.3%
Simplified54.3%
Taylor expanded in z around -inf 46.6%
mul-1-neg46.6%
associate-*r*46.6%
*-commutative46.6%
*-commutative46.6%
Simplified46.6%
Taylor expanded in k around inf 46.9%
if 6.19999999999999987e55 < a Initial program 30.3%
Taylor expanded in y2 around inf 32.8%
*-commutative32.8%
Simplified32.8%
Taylor expanded in y around inf 40.4%
Taylor expanded in c around 0 42.7%
neg-mul-142.7%
distribute-lft-neg-in42.7%
*-commutative42.7%
Simplified42.7%
Final simplification36.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* y1 (- (* z y3) (* x y2)))))
(t_2 (* (* i j) (* t (- y5)))))
(if (<= y4 -2.3e+114)
(* c (* y (* y3 y4)))
(if (<= y4 -5300000.0)
t_2
(if (<= y4 -6e-299)
t_1
(if (<= y4 6.2e-247)
t_2
(if (<= y4 5.1e+225) t_1 (* j (* y3 (* y1 (- 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 * (y1 * ((z * y3) - (x * y2)));
double t_2 = (i * j) * (t * -y5);
double tmp;
if (y4 <= -2.3e+114) {
tmp = c * (y * (y3 * y4));
} else if (y4 <= -5300000.0) {
tmp = t_2;
} else if (y4 <= -6e-299) {
tmp = t_1;
} else if (y4 <= 6.2e-247) {
tmp = t_2;
} else if (y4 <= 5.1e+225) {
tmp = t_1;
} else {
tmp = j * (y3 * (y1 * -y4));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = a * (y1 * ((z * y3) - (x * y2)))
t_2 = (i * j) * (t * -y5)
if (y4 <= (-2.3d+114)) then
tmp = c * (y * (y3 * y4))
else if (y4 <= (-5300000.0d0)) then
tmp = t_2
else if (y4 <= (-6d-299)) then
tmp = t_1
else if (y4 <= 6.2d-247) then
tmp = t_2
else if (y4 <= 5.1d+225) then
tmp = t_1
else
tmp = j * (y3 * (y1 * -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 * (y1 * ((z * y3) - (x * y2)));
double t_2 = (i * j) * (t * -y5);
double tmp;
if (y4 <= -2.3e+114) {
tmp = c * (y * (y3 * y4));
} else if (y4 <= -5300000.0) {
tmp = t_2;
} else if (y4 <= -6e-299) {
tmp = t_1;
} else if (y4 <= 6.2e-247) {
tmp = t_2;
} else if (y4 <= 5.1e+225) {
tmp = t_1;
} else {
tmp = j * (y3 * (y1 * -y4));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = a * (y1 * ((z * y3) - (x * y2))) t_2 = (i * j) * (t * -y5) tmp = 0 if y4 <= -2.3e+114: tmp = c * (y * (y3 * y4)) elif y4 <= -5300000.0: tmp = t_2 elif y4 <= -6e-299: tmp = t_1 elif y4 <= 6.2e-247: tmp = t_2 elif y4 <= 5.1e+225: tmp = t_1 else: tmp = j * (y3 * (y1 * -y4)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) t_2 = Float64(Float64(i * j) * Float64(t * Float64(-y5))) tmp = 0.0 if (y4 <= -2.3e+114) tmp = Float64(c * Float64(y * Float64(y3 * y4))); elseif (y4 <= -5300000.0) tmp = t_2; elseif (y4 <= -6e-299) tmp = t_1; elseif (y4 <= 6.2e-247) tmp = t_2; elseif (y4 <= 5.1e+225) tmp = t_1; else tmp = Float64(j * Float64(y3 * Float64(y1 * Float64(-y4)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = a * (y1 * ((z * y3) - (x * y2))); t_2 = (i * j) * (t * -y5); tmp = 0.0; if (y4 <= -2.3e+114) tmp = c * (y * (y3 * y4)); elseif (y4 <= -5300000.0) tmp = t_2; elseif (y4 <= -6e-299) tmp = t_1; elseif (y4 <= 6.2e-247) tmp = t_2; elseif (y4 <= 5.1e+225) tmp = t_1; else tmp = j * (y3 * (y1 * -y4)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(i * j), $MachinePrecision] * N[(t * (-y5)), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -2.3e+114], N[(c * N[(y * N[(y3 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -5300000.0], t$95$2, If[LessEqual[y4, -6e-299], t$95$1, If[LessEqual[y4, 6.2e-247], t$95$2, If[LessEqual[y4, 5.1e+225], t$95$1, N[(j * N[(y3 * N[(y1 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
t_2 := \left(i \cdot j\right) \cdot \left(t \cdot \left(-y5\right)\right)\\
\mathbf{if}\;y4 \leq -2.3 \cdot 10^{+114}:\\
\;\;\;\;c \cdot \left(y \cdot \left(y3 \cdot y4\right)\right)\\
\mathbf{elif}\;y4 \leq -5300000:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq -6 \cdot 10^{-299}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 6.2 \cdot 10^{-247}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq 5.1 \cdot 10^{+225}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y1 \cdot \left(-y4\right)\right)\right)\\
\end{array}
\end{array}
if y4 < -2.3e114Initial program 22.0%
Taylor expanded in y2 around inf 32.0%
*-commutative32.0%
Simplified32.0%
Taylor expanded in y around inf 45.1%
Taylor expanded in c around inf 40.3%
if -2.3e114 < y4 < -5.3e6 or -5.99999999999999969e-299 < y4 < 6.20000000000000031e-247Initial program 34.0%
Taylor expanded in y5 around -inf 53.9%
Taylor expanded in i around inf 56.2%
associate-*r*54.1%
*-commutative54.1%
Simplified54.1%
Taylor expanded in j around inf 41.6%
associate-*r*41.6%
*-commutative41.6%
*-commutative41.6%
Simplified41.6%
if -5.3e6 < y4 < -5.99999999999999969e-299 or 6.20000000000000031e-247 < y4 < 5.0999999999999999e225Initial program 37.2%
Taylor expanded in y1 around -inf 42.1%
mul-1-neg42.1%
distribute-rgt-neg-in42.1%
+-commutative42.1%
mul-1-neg42.1%
unsub-neg42.1%
*-commutative42.1%
*-commutative42.1%
*-commutative42.1%
Simplified42.1%
Taylor expanded in a around inf 35.0%
if 5.0999999999999999e225 < y4 Initial program 17.6%
Taylor expanded in j around inf 47.3%
+-commutative47.3%
mul-1-neg47.3%
unsub-neg47.3%
*-commutative47.3%
Simplified47.3%
Taylor expanded in y3 around inf 53.5%
*-commutative53.5%
*-commutative53.5%
Simplified53.5%
Taylor expanded in y5 around 0 53.9%
neg-mul-153.9%
distribute-rgt-neg-in53.9%
Simplified53.9%
Final simplification38.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* t (- (* b y4) (* i y5))))))
(if (<= y5 -2.1e-49)
t_1
(if (<= y5 2.25e-139)
(* a (* y1 (- (* z y3) (* x y2))))
(if (<= y5 2.5e+79)
(* k (* y2 (- (* y1 y4) (* y0 y5))))
(if (<= y5 4e+152)
(* j (* y3 (- (* y0 y5) (* y1 y4))))
(if (<= y5 3.4e+281) t_1 (* 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 t_1 = j * (t * ((b * y4) - (i * y5)));
double tmp;
if (y5 <= -2.1e-49) {
tmp = t_1;
} else if (y5 <= 2.25e-139) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (y5 <= 2.5e+79) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y5 <= 4e+152) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y5 <= 3.4e+281) {
tmp = t_1;
} 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) :: t_1
real(8) :: tmp
t_1 = j * (t * ((b * y4) - (i * y5)))
if (y5 <= (-2.1d-49)) then
tmp = t_1
else if (y5 <= 2.25d-139) then
tmp = a * (y1 * ((z * y3) - (x * y2)))
else if (y5 <= 2.5d+79) then
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
else if (y5 <= 4d+152) then
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)))
else if (y5 <= 3.4d+281) then
tmp = t_1
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 t_1 = j * (t * ((b * y4) - (i * y5)));
double tmp;
if (y5 <= -2.1e-49) {
tmp = t_1;
} else if (y5 <= 2.25e-139) {
tmp = a * (y1 * ((z * y3) - (x * y2)));
} else if (y5 <= 2.5e+79) {
tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
} else if (y5 <= 4e+152) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y5 <= 3.4e+281) {
tmp = t_1;
} 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): t_1 = j * (t * ((b * y4) - (i * y5))) tmp = 0 if y5 <= -2.1e-49: tmp = t_1 elif y5 <= 2.25e-139: tmp = a * (y1 * ((z * y3) - (x * y2))) elif y5 <= 2.5e+79: tmp = k * (y2 * ((y1 * y4) - (y0 * y5))) elif y5 <= 4e+152: tmp = j * (y3 * ((y0 * y5) - (y1 * y4))) elif y5 <= 3.4e+281: tmp = t_1 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) t_1 = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))) tmp = 0.0 if (y5 <= -2.1e-49) tmp = t_1; elseif (y5 <= 2.25e-139) tmp = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))); elseif (y5 <= 2.5e+79) tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))); elseif (y5 <= 4e+152) tmp = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))); elseif (y5 <= 3.4e+281) tmp = t_1; 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) t_1 = j * (t * ((b * y4) - (i * y5))); tmp = 0.0; if (y5 <= -2.1e-49) tmp = t_1; elseif (y5 <= 2.25e-139) tmp = a * (y1 * ((z * y3) - (x * y2))); elseif (y5 <= 2.5e+79) tmp = k * (y2 * ((y1 * y4) - (y0 * y5))); elseif (y5 <= 4e+152) tmp = j * (y3 * ((y0 * y5) - (y1 * y4))); elseif (y5 <= 3.4e+281) tmp = t_1; 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_] := Block[{t$95$1 = N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -2.1e-49], t$95$1, If[LessEqual[y5, 2.25e-139], N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.5e+79], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 4e+152], N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 3.4e+281], t$95$1, N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{if}\;y5 \leq -2.1 \cdot 10^{-49}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 2.25 \cdot 10^{-139}:\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{elif}\;y5 \leq 2.5 \cdot 10^{+79}:\\
\;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 4 \cdot 10^{+152}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{elif}\;y5 \leq 3.4 \cdot 10^{+281}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\end{array}
\end{array}
if y5 < -2.0999999999999999e-49 or 4.0000000000000002e152 < y5 < 3.40000000000000011e281Initial program 27.4%
Taylor expanded in j around inf 46.7%
+-commutative46.7%
mul-1-neg46.7%
unsub-neg46.7%
*-commutative46.7%
Simplified46.7%
Taylor expanded in t around inf 50.3%
*-commutative50.3%
Simplified50.3%
if -2.0999999999999999e-49 < y5 < 2.25000000000000011e-139Initial program 32.4%
Taylor expanded in y1 around -inf 43.6%
mul-1-neg43.6%
distribute-rgt-neg-in43.6%
+-commutative43.6%
mul-1-neg43.6%
unsub-neg43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in a around inf 38.4%
if 2.25000000000000011e-139 < y5 < 2.5e79Initial program 48.5%
Taylor expanded in y2 around inf 54.7%
*-commutative54.7%
Simplified54.7%
Taylor expanded in k around inf 44.0%
*-commutative44.0%
*-commutative44.0%
Simplified44.0%
if 2.5e79 < y5 < 4.0000000000000002e152Initial program 36.7%
Taylor expanded in j around inf 22.5%
+-commutative22.5%
mul-1-neg22.5%
unsub-neg22.5%
*-commutative22.5%
Simplified22.5%
Taylor expanded in y3 around inf 43.3%
*-commutative43.3%
*-commutative43.3%
Simplified43.3%
if 3.40000000000000011e281 < y5 Initial program 25.0%
Taylor expanded in y5 around -inf 87.5%
Taylor expanded in i around inf 75.6%
associate-*r*63.6%
*-commutative63.6%
Simplified63.6%
Taylor expanded in j around 0 77.6%
mul-1-neg77.6%
*-commutative77.6%
distribute-rgt-neg-in77.6%
Simplified77.6%
Final simplification45.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* a (* y1 (- (* z y3) (* x y2))))))
(if (<= y5 -2e-49)
(* j (* t (- (* b y4) (* i y5))))
(if (<= y5 7.6e-174)
t_1
(if (<= y5 1.25e-104)
(* y0 (* y2 (* x c)))
(if (<= y5 2.5e+203) t_1 (* 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 t_1 = a * (y1 * ((z * y3) - (x * y2)));
double tmp;
if (y5 <= -2e-49) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y5 <= 7.6e-174) {
tmp = t_1;
} else if (y5 <= 1.25e-104) {
tmp = y0 * (y2 * (x * c));
} else if (y5 <= 2.5e+203) {
tmp = t_1;
} 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) :: t_1
real(8) :: tmp
t_1 = a * (y1 * ((z * y3) - (x * y2)))
if (y5 <= (-2d-49)) then
tmp = j * (t * ((b * y4) - (i * y5)))
else if (y5 <= 7.6d-174) then
tmp = t_1
else if (y5 <= 1.25d-104) then
tmp = y0 * (y2 * (x * c))
else if (y5 <= 2.5d+203) then
tmp = t_1
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 t_1 = a * (y1 * ((z * y3) - (x * y2)));
double tmp;
if (y5 <= -2e-49) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y5 <= 7.6e-174) {
tmp = t_1;
} else if (y5 <= 1.25e-104) {
tmp = y0 * (y2 * (x * c));
} else if (y5 <= 2.5e+203) {
tmp = t_1;
} 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): t_1 = a * (y1 * ((z * y3) - (x * y2))) tmp = 0 if y5 <= -2e-49: tmp = j * (t * ((b * y4) - (i * y5))) elif y5 <= 7.6e-174: tmp = t_1 elif y5 <= 1.25e-104: tmp = y0 * (y2 * (x * c)) elif y5 <= 2.5e+203: tmp = t_1 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) t_1 = Float64(a * Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) tmp = 0.0 if (y5 <= -2e-49) tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))); elseif (y5 <= 7.6e-174) tmp = t_1; elseif (y5 <= 1.25e-104) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (y5 <= 2.5e+203) tmp = t_1; 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) t_1 = a * (y1 * ((z * y3) - (x * y2))); tmp = 0.0; if (y5 <= -2e-49) tmp = j * (t * ((b * y4) - (i * y5))); elseif (y5 <= 7.6e-174) tmp = t_1; elseif (y5 <= 1.25e-104) tmp = y0 * (y2 * (x * c)); elseif (y5 <= 2.5e+203) tmp = t_1; 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_] := Block[{t$95$1 = N[(a * N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y5, -2e-49], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 7.6e-174], t$95$1, If[LessEqual[y5, 1.25e-104], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y5, 2.5e+203], t$95$1, N[(i * N[(k * N[(y * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := a \cdot \left(y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right)\\
\mathbf{if}\;y5 \leq -2 \cdot 10^{-49}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{elif}\;y5 \leq 7.6 \cdot 10^{-174}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y5 \leq 1.25 \cdot 10^{-104}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;y5 \leq 2.5 \cdot 10^{+203}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5\right)\right)\\
\end{array}
\end{array}
if y5 < -1.99999999999999987e-49Initial program 31.6%
Taylor expanded in j around inf 49.7%
+-commutative49.7%
mul-1-neg49.7%
unsub-neg49.7%
*-commutative49.7%
Simplified49.7%
Taylor expanded in t around inf 46.2%
*-commutative46.2%
Simplified46.2%
if -1.99999999999999987e-49 < y5 < 7.60000000000000042e-174 or 1.24999999999999995e-104 < y5 < 2.49999999999999997e203Initial program 34.5%
Taylor expanded in y1 around -inf 41.5%
mul-1-neg41.5%
distribute-rgt-neg-in41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
Simplified41.5%
Taylor expanded in a around inf 38.9%
if 7.60000000000000042e-174 < y5 < 1.24999999999999995e-104Initial program 33.3%
Taylor expanded in y2 around inf 33.9%
*-commutative33.9%
Simplified33.9%
Taylor expanded in y0 around inf 28.6%
Taylor expanded in y5 around 0 34.8%
associate-*r*41.2%
*-commutative41.2%
Simplified41.2%
if 2.49999999999999997e203 < y5 Initial program 25.0%
Taylor expanded in y5 around -inf 80.0%
Taylor expanded in i around inf 80.2%
associate-*r*70.7%
*-commutative70.7%
Simplified70.7%
Taylor expanded in j around 0 61.8%
mul-1-neg61.8%
*-commutative61.8%
distribute-rgt-neg-in61.8%
Simplified61.8%
Final simplification42.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y (* y4 (* c y3)))))
(if (<= c -8.5e+203)
t_1
(if (<= c -2.4e+19)
(* y0 (* y2 (* x c)))
(if (<= c 6e-188)
(* j (* y5 (* y0 y3)))
(if (<= c 1.05e+64) (* i (* z (* k (- y1)))) 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 = y * (y4 * (c * y3));
double tmp;
if (c <= -8.5e+203) {
tmp = t_1;
} else if (c <= -2.4e+19) {
tmp = y0 * (y2 * (x * c));
} else if (c <= 6e-188) {
tmp = j * (y5 * (y0 * y3));
} else if (c <= 1.05e+64) {
tmp = i * (z * (k * -y1));
} 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 = y * (y4 * (c * y3))
if (c <= (-8.5d+203)) then
tmp = t_1
else if (c <= (-2.4d+19)) then
tmp = y0 * (y2 * (x * c))
else if (c <= 6d-188) then
tmp = j * (y5 * (y0 * y3))
else if (c <= 1.05d+64) then
tmp = i * (z * (k * -y1))
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 = y * (y4 * (c * y3));
double tmp;
if (c <= -8.5e+203) {
tmp = t_1;
} else if (c <= -2.4e+19) {
tmp = y0 * (y2 * (x * c));
} else if (c <= 6e-188) {
tmp = j * (y5 * (y0 * y3));
} else if (c <= 1.05e+64) {
tmp = i * (z * (k * -y1));
} 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 = y * (y4 * (c * y3)) tmp = 0 if c <= -8.5e+203: tmp = t_1 elif c <= -2.4e+19: tmp = y0 * (y2 * (x * c)) elif c <= 6e-188: tmp = j * (y5 * (y0 * y3)) elif c <= 1.05e+64: tmp = i * (z * (k * -y1)) 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(y * Float64(y4 * Float64(c * y3))) tmp = 0.0 if (c <= -8.5e+203) tmp = t_1; elseif (c <= -2.4e+19) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (c <= 6e-188) tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); elseif (c <= 1.05e+64) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); 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 = y * (y4 * (c * y3)); tmp = 0.0; if (c <= -8.5e+203) tmp = t_1; elseif (c <= -2.4e+19) tmp = y0 * (y2 * (x * c)); elseif (c <= 6e-188) tmp = j * (y5 * (y0 * y3)); elseif (c <= 1.05e+64) tmp = i * (z * (k * -y1)); 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[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -8.5e+203], t$95$1, If[LessEqual[c, -2.4e+19], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 6e-188], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.05e+64], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{if}\;c \leq -8.5 \cdot 10^{+203}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -2.4 \cdot 10^{+19}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;c \leq 6 \cdot 10^{-188}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\mathbf{elif}\;c \leq 1.05 \cdot 10^{+64}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if c < -8.50000000000000025e203 or 1.05e64 < c Initial program 21.7%
Taylor expanded in y2 around inf 33.0%
*-commutative33.0%
Simplified33.0%
Taylor expanded in y around inf 39.4%
Taylor expanded in c around inf 39.6%
associate-*r*46.0%
Simplified46.0%
if -8.50000000000000025e203 < c < -2.4e19Initial program 33.5%
Taylor expanded in y2 around inf 45.4%
*-commutative45.4%
Simplified45.4%
Taylor expanded in y0 around inf 34.2%
Taylor expanded in y5 around 0 30.3%
associate-*r*35.0%
*-commutative35.0%
Simplified35.0%
if -2.4e19 < c < 6.00000000000000033e-188Initial program 37.7%
Taylor expanded in y2 around inf 44.8%
*-commutative44.8%
Simplified44.8%
Taylor expanded in y0 around inf 34.4%
Taylor expanded in y2 around 0 23.1%
associate-*r*26.8%
Simplified26.8%
if 6.00000000000000033e-188 < c < 1.05e64Initial program 35.8%
Taylor expanded in y1 around -inf 44.9%
mul-1-neg44.9%
distribute-rgt-neg-in44.9%
+-commutative44.9%
mul-1-neg44.9%
unsub-neg44.9%
*-commutative44.9%
*-commutative44.9%
*-commutative44.9%
Simplified44.9%
Taylor expanded in z around -inf 30.1%
mul-1-neg30.1%
associate-*r*33.6%
*-commutative33.6%
*-commutative33.6%
Simplified33.6%
Taylor expanded in k around inf 24.3%
add024.3%
associate-*r*24.1%
Applied egg-rr24.1%
add024.1%
associate-*l*24.3%
associate-*r*26.1%
*-commutative26.1%
Simplified26.1%
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 (* y0 (* c (* x y2)))))
(if (<= x -7.8e-13)
t_1
(if (<= x 7.6e+47)
(* y (* y4 (* c y3)))
(if (<= x 6.2e+252) t_1 (* j (* y3 (* y0 y5))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * (c * (x * y2));
double tmp;
if (x <= -7.8e-13) {
tmp = t_1;
} else if (x <= 7.6e+47) {
tmp = y * (y4 * (c * y3));
} else if (x <= 6.2e+252) {
tmp = t_1;
} else {
tmp = j * (y3 * (y0 * y5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = y0 * (c * (x * y2))
if (x <= (-7.8d-13)) then
tmp = t_1
else if (x <= 7.6d+47) then
tmp = y * (y4 * (c * y3))
else if (x <= 6.2d+252) then
tmp = t_1
else
tmp = j * (y3 * (y0 * y5))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * (c * (x * y2));
double tmp;
if (x <= -7.8e-13) {
tmp = t_1;
} else if (x <= 7.6e+47) {
tmp = y * (y4 * (c * y3));
} else if (x <= 6.2e+252) {
tmp = t_1;
} else {
tmp = j * (y3 * (y0 * y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y0 * (c * (x * y2)) tmp = 0 if x <= -7.8e-13: tmp = t_1 elif x <= 7.6e+47: tmp = y * (y4 * (c * y3)) elif x <= 6.2e+252: tmp = t_1 else: tmp = j * (y3 * (y0 * y5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y0 * Float64(c * Float64(x * y2))) tmp = 0.0 if (x <= -7.8e-13) tmp = t_1; elseif (x <= 7.6e+47) tmp = Float64(y * Float64(y4 * Float64(c * y3))); elseif (x <= 6.2e+252) tmp = t_1; else tmp = Float64(j * Float64(y3 * Float64(y0 * y5))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y0 * (c * (x * y2)); tmp = 0.0; if (x <= -7.8e-13) tmp = t_1; elseif (x <= 7.6e+47) tmp = y * (y4 * (c * y3)); elseif (x <= 6.2e+252) tmp = t_1; else tmp = j * (y3 * (y0 * y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y0 * N[(c * N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -7.8e-13], t$95$1, If[LessEqual[x, 7.6e+47], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.2e+252], t$95$1, N[(j * N[(y3 * N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y0 \cdot \left(c \cdot \left(x \cdot y2\right)\right)\\
\mathbf{if}\;x \leq -7.8 \cdot 10^{-13}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 7.6 \cdot 10^{+47}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{elif}\;x \leq 6.2 \cdot 10^{+252}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5\right)\right)\\
\end{array}
\end{array}
if x < -7.80000000000000009e-13 or 7.6000000000000007e47 < x < 6.19999999999999964e252Initial program 27.5%
Taylor expanded in y2 around inf 36.1%
*-commutative36.1%
Simplified36.1%
Taylor expanded in y0 around inf 37.4%
Taylor expanded in y5 around 0 35.1%
if -7.80000000000000009e-13 < x < 7.6000000000000007e47Initial program 37.1%
Taylor expanded in y2 around inf 41.5%
*-commutative41.5%
Simplified41.5%
Taylor expanded in y around inf 27.3%
Taylor expanded in c around inf 19.4%
associate-*r*20.2%
Simplified20.2%
if 6.19999999999999964e252 < x Initial program 33.3%
Taylor expanded in j around inf 58.3%
+-commutative58.3%
mul-1-neg58.3%
unsub-neg58.3%
*-commutative58.3%
Simplified58.3%
Taylor expanded in y3 around inf 42.7%
*-commutative42.7%
*-commutative42.7%
Simplified42.7%
Taylor expanded in y5 around inf 42.3%
Final simplification27.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= x -7.5e-13)
(* y0 (* c (* x y2)))
(if (<= x 5.5e+47)
(* y (* y4 (* c y3)))
(if (<= x 6.2e+252) (* y0 (* y2 (* x c))) (* j (* y3 (* y0 y5)))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (x <= -7.5e-13) {
tmp = y0 * (c * (x * y2));
} else if (x <= 5.5e+47) {
tmp = y * (y4 * (c * y3));
} else if (x <= 6.2e+252) {
tmp = y0 * (y2 * (x * c));
} else {
tmp = j * (y3 * (y0 * y5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (x <= (-7.5d-13)) then
tmp = y0 * (c * (x * y2))
else if (x <= 5.5d+47) then
tmp = y * (y4 * (c * y3))
else if (x <= 6.2d+252) then
tmp = y0 * (y2 * (x * c))
else
tmp = j * (y3 * (y0 * y5))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (x <= -7.5e-13) {
tmp = y0 * (c * (x * y2));
} else if (x <= 5.5e+47) {
tmp = y * (y4 * (c * y3));
} else if (x <= 6.2e+252) {
tmp = y0 * (y2 * (x * c));
} else {
tmp = j * (y3 * (y0 * y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if x <= -7.5e-13: tmp = y0 * (c * (x * y2)) elif x <= 5.5e+47: tmp = y * (y4 * (c * y3)) elif x <= 6.2e+252: tmp = y0 * (y2 * (x * c)) else: tmp = j * (y3 * (y0 * y5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (x <= -7.5e-13) tmp = Float64(y0 * Float64(c * Float64(x * y2))); elseif (x <= 5.5e+47) tmp = Float64(y * Float64(y4 * Float64(c * y3))); elseif (x <= 6.2e+252) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); else tmp = Float64(j * Float64(y3 * Float64(y0 * y5))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (x <= -7.5e-13) tmp = y0 * (c * (x * y2)); elseif (x <= 5.5e+47) tmp = y * (y4 * (c * y3)); elseif (x <= 6.2e+252) tmp = y0 * (y2 * (x * c)); else tmp = j * (y3 * (y0 * 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[x, -7.5e-13], N[(y0 * N[(c * N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 5.5e+47], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 6.2e+252], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(y3 * N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -7.5 \cdot 10^{-13}:\\
\;\;\;\;y0 \cdot \left(c \cdot \left(x \cdot y2\right)\right)\\
\mathbf{elif}\;x \leq 5.5 \cdot 10^{+47}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{elif}\;x \leq 6.2 \cdot 10^{+252}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5\right)\right)\\
\end{array}
\end{array}
if x < -7.5000000000000004e-13Initial program 29.2%
Taylor expanded in y2 around inf 35.6%
*-commutative35.6%
Simplified35.6%
Taylor expanded in y0 around inf 34.7%
Taylor expanded in y5 around 0 31.9%
if -7.5000000000000004e-13 < x < 5.4999999999999998e47Initial program 37.1%
Taylor expanded in y2 around inf 41.5%
*-commutative41.5%
Simplified41.5%
Taylor expanded in y around inf 27.3%
Taylor expanded in c around inf 19.4%
associate-*r*20.2%
Simplified20.2%
if 5.4999999999999998e47 < x < 6.19999999999999964e252Initial program 25.1%
Taylor expanded in y2 around inf 36.8%
*-commutative36.8%
Simplified36.8%
Taylor expanded in y0 around inf 41.5%
Taylor expanded in y5 around 0 39.8%
associate-*r*39.9%
*-commutative39.9%
Simplified39.9%
if 6.19999999999999964e252 < x Initial program 33.3%
Taylor expanded in j around inf 58.3%
+-commutative58.3%
mul-1-neg58.3%
unsub-neg58.3%
*-commutative58.3%
Simplified58.3%
Taylor expanded in y3 around inf 42.7%
*-commutative42.7%
*-commutative42.7%
Simplified42.7%
Taylor expanded in y5 around inf 42.3%
Final simplification27.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -2.8e+60)
(* y0 (* y2 (* x c)))
(if (<= y1 6e-254)
(* y (* y4 (* c y3)))
(if (<= y1 2.05e+96) (* j (* y5 (* y0 y3))) (* (* a y1) (* z y3))))))
double code(double x, double y, double z, double t, double 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.8e+60) {
tmp = y0 * (y2 * (x * c));
} else if (y1 <= 6e-254) {
tmp = y * (y4 * (c * y3));
} else if (y1 <= 2.05e+96) {
tmp = j * (y5 * (y0 * y3));
} else {
tmp = (a * y1) * (z * y3);
}
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.8d+60)) then
tmp = y0 * (y2 * (x * c))
else if (y1 <= 6d-254) then
tmp = y * (y4 * (c * y3))
else if (y1 <= 2.05d+96) then
tmp = j * (y5 * (y0 * y3))
else
tmp = (a * y1) * (z * y3)
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.8e+60) {
tmp = y0 * (y2 * (x * c));
} else if (y1 <= 6e-254) {
tmp = y * (y4 * (c * y3));
} else if (y1 <= 2.05e+96) {
tmp = j * (y5 * (y0 * y3));
} else {
tmp = (a * y1) * (z * y3);
}
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.8e+60: tmp = y0 * (y2 * (x * c)) elif y1 <= 6e-254: tmp = y * (y4 * (c * y3)) elif y1 <= 2.05e+96: tmp = j * (y5 * (y0 * y3)) else: tmp = (a * y1) * (z * y3) 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.8e+60) tmp = Float64(y0 * Float64(y2 * Float64(x * c))); elseif (y1 <= 6e-254) tmp = Float64(y * Float64(y4 * Float64(c * y3))); elseif (y1 <= 2.05e+96) tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); else tmp = Float64(Float64(a * y1) * Float64(z * y3)); 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.8e+60) tmp = y0 * (y2 * (x * c)); elseif (y1 <= 6e-254) tmp = y * (y4 * (c * y3)); elseif (y1 <= 2.05e+96) tmp = j * (y5 * (y0 * y3)); else tmp = (a * y1) * (z * y3); 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.8e+60], N[(y0 * N[(y2 * N[(x * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 6e-254], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.05e+96], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(a * y1), $MachinePrecision] * N[(z * y3), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -2.8 \cdot 10^{+60}:\\
\;\;\;\;y0 \cdot \left(y2 \cdot \left(x \cdot c\right)\right)\\
\mathbf{elif}\;y1 \leq 6 \cdot 10^{-254}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{elif}\;y1 \leq 2.05 \cdot 10^{+96}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(a \cdot y1\right) \cdot \left(z \cdot y3\right)\\
\end{array}
\end{array}
if y1 < -2.8e60Initial program 25.9%
Taylor expanded in y2 around inf 36.6%
*-commutative36.6%
Simplified36.6%
Taylor expanded in y0 around inf 35.5%
Taylor expanded in y5 around 0 23.9%
associate-*r*25.6%
*-commutative25.6%
Simplified25.6%
if -2.8e60 < y1 < 6.00000000000000023e-254Initial program 29.4%
Taylor expanded in y2 around inf 37.6%
*-commutative37.6%
Simplified37.6%
Taylor expanded in y around inf 34.7%
Taylor expanded in c around inf 26.8%
associate-*r*29.4%
Simplified29.4%
if 6.00000000000000023e-254 < y1 < 2.04999999999999999e96Initial program 41.5%
Taylor expanded in y2 around inf 46.1%
*-commutative46.1%
Simplified46.1%
Taylor expanded in y0 around inf 36.5%
Taylor expanded in y2 around 0 21.5%
associate-*r*28.4%
Simplified28.4%
if 2.04999999999999999e96 < y1 Initial program 33.9%
Taylor expanded in y1 around -inf 47.4%
mul-1-neg47.4%
distribute-rgt-neg-in47.4%
+-commutative47.4%
mul-1-neg47.4%
unsub-neg47.4%
*-commutative47.4%
*-commutative47.4%
*-commutative47.4%
Simplified47.4%
Taylor expanded in a around inf 47.7%
Taylor expanded in y3 around inf 29.6%
associate-*r*34.7%
*-commutative34.7%
Simplified34.7%
Final simplification29.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y1 -3.1e+70)
(* i (* (- k) (* z y1)))
(if (<= y1 2.8e-253)
(* y (* y4 (* c y3)))
(if (<= y1 1e+96) (* j (* y5 (* y0 y3))) (* (* a y1) (* z y3))))))
double code(double x, double y, double z, double t, double 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 <= -3.1e+70) {
tmp = i * (-k * (z * y1));
} else if (y1 <= 2.8e-253) {
tmp = y * (y4 * (c * y3));
} else if (y1 <= 1e+96) {
tmp = j * (y5 * (y0 * y3));
} else {
tmp = (a * y1) * (z * y3);
}
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 <= (-3.1d+70)) then
tmp = i * (-k * (z * y1))
else if (y1 <= 2.8d-253) then
tmp = y * (y4 * (c * y3))
else if (y1 <= 1d+96) then
tmp = j * (y5 * (y0 * y3))
else
tmp = (a * y1) * (z * y3)
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 <= -3.1e+70) {
tmp = i * (-k * (z * y1));
} else if (y1 <= 2.8e-253) {
tmp = y * (y4 * (c * y3));
} else if (y1 <= 1e+96) {
tmp = j * (y5 * (y0 * y3));
} else {
tmp = (a * y1) * (z * y3);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y1 <= -3.1e+70: tmp = i * (-k * (z * y1)) elif y1 <= 2.8e-253: tmp = y * (y4 * (c * y3)) elif y1 <= 1e+96: tmp = j * (y5 * (y0 * y3)) else: tmp = (a * y1) * (z * y3) 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 <= -3.1e+70) tmp = Float64(i * Float64(Float64(-k) * Float64(z * y1))); elseif (y1 <= 2.8e-253) tmp = Float64(y * Float64(y4 * Float64(c * y3))); elseif (y1 <= 1e+96) tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); else tmp = Float64(Float64(a * y1) * Float64(z * y3)); 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 <= -3.1e+70) tmp = i * (-k * (z * y1)); elseif (y1 <= 2.8e-253) tmp = y * (y4 * (c * y3)); elseif (y1 <= 1e+96) tmp = j * (y5 * (y0 * y3)); else tmp = (a * y1) * (z * y3); 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, -3.1e+70], N[(i * N[((-k) * N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 2.8e-253], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y1, 1e+96], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(a * y1), $MachinePrecision] * N[(z * y3), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -3.1 \cdot 10^{+70}:\\
\;\;\;\;i \cdot \left(\left(-k\right) \cdot \left(z \cdot y1\right)\right)\\
\mathbf{elif}\;y1 \leq 2.8 \cdot 10^{-253}:\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{elif}\;y1 \leq 10^{+96}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(a \cdot y1\right) \cdot \left(z \cdot y3\right)\\
\end{array}
\end{array}
if y1 < -3.1000000000000003e70Initial program 25.0%
Taylor expanded in y1 around -inf 55.5%
mul-1-neg55.5%
distribute-rgt-neg-in55.5%
+-commutative55.5%
mul-1-neg55.5%
unsub-neg55.5%
*-commutative55.5%
*-commutative55.5%
*-commutative55.5%
Simplified55.5%
Taylor expanded in z around -inf 34.9%
mul-1-neg34.9%
associate-*r*36.5%
*-commutative36.5%
*-commutative36.5%
Simplified36.5%
Taylor expanded in k around inf 31.4%
if -3.1000000000000003e70 < y1 < 2.80000000000000006e-253Initial program 29.9%
Taylor expanded in y2 around inf 39.3%
*-commutative39.3%
Simplified39.3%
Taylor expanded in y around inf 35.1%
Taylor expanded in c around inf 26.2%
associate-*r*28.7%
Simplified28.7%
if 2.80000000000000006e-253 < y1 < 1.00000000000000005e96Initial program 41.5%
Taylor expanded in y2 around inf 46.1%
*-commutative46.1%
Simplified46.1%
Taylor expanded in y0 around inf 36.5%
Taylor expanded in y2 around 0 21.5%
associate-*r*28.4%
Simplified28.4%
if 1.00000000000000005e96 < y1 Initial program 33.9%
Taylor expanded in y1 around -inf 47.4%
mul-1-neg47.4%
distribute-rgt-neg-in47.4%
+-commutative47.4%
mul-1-neg47.4%
unsub-neg47.4%
*-commutative47.4%
*-commutative47.4%
*-commutative47.4%
Simplified47.4%
Taylor expanded in a around inf 47.7%
Taylor expanded in y3 around inf 29.6%
associate-*r*34.7%
*-commutative34.7%
Simplified34.7%
Final simplification30.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= y1 -7e+78) (not (<= y1 9.5e+96))) (* a (* y1 (* z y3))) (* c (* y (* 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 tmp;
if ((y1 <= -7e+78) || !(y1 <= 9.5e+96)) {
tmp = a * (y1 * (z * y3));
} else {
tmp = c * (y * (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) :: tmp
if ((y1 <= (-7d+78)) .or. (.not. (y1 <= 9.5d+96))) then
tmp = a * (y1 * (z * y3))
else
tmp = c * (y * (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 tmp;
if ((y1 <= -7e+78) || !(y1 <= 9.5e+96)) {
tmp = a * (y1 * (z * y3));
} else {
tmp = c * (y * (y3 * y4));
}
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+78) or not (y1 <= 9.5e+96): tmp = a * (y1 * (z * y3)) else: tmp = c * (y * (y3 * y4)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((y1 <= -7e+78) || !(y1 <= 9.5e+96)) tmp = Float64(a * Float64(y1 * Float64(z * y3))); else tmp = Float64(c * Float64(y * 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) tmp = 0.0; if ((y1 <= -7e+78) || ~((y1 <= 9.5e+96))) tmp = a * (y1 * (z * y3)); else tmp = c * (y * (y3 * y4)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[y1, -7e+78], N[Not[LessEqual[y1, 9.5e+96]], $MachinePrecision]], N[(a * N[(y1 * N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(c * N[(y * N[(y3 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -7 \cdot 10^{+78} \lor \neg \left(y1 \leq 9.5 \cdot 10^{+96}\right):\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3\right)\right)\\
\mathbf{else}:\\
\;\;\;\;c \cdot \left(y \cdot \left(y3 \cdot y4\right)\right)\\
\end{array}
\end{array}
if y1 < -7.0000000000000003e78 or 9.50000000000000089e96 < y1 Initial program 30.7%
Taylor expanded in y1 around -inf 52.7%
mul-1-neg52.7%
distribute-rgt-neg-in52.7%
+-commutative52.7%
mul-1-neg52.7%
unsub-neg52.7%
*-commutative52.7%
*-commutative52.7%
*-commutative52.7%
Simplified52.7%
Taylor expanded in a around inf 48.1%
Taylor expanded in y3 around inf 27.0%
if -7.0000000000000003e78 < y1 < 9.50000000000000089e96Initial program 34.3%
Taylor expanded in y2 around inf 41.6%
*-commutative41.6%
Simplified41.6%
Taylor expanded in y around inf 27.3%
Taylor expanded in c around inf 21.0%
Final simplification23.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= c -7.6e+133) (not (<= c 2.2e-71))) (* c (* y (* y3 y4))) (* j (* y0 (* y3 y5)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if ((c <= -7.6e+133) || !(c <= 2.2e-71)) {
tmp = c * (y * (y3 * y4));
} else {
tmp = j * (y0 * (y3 * y5));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if ((c <= (-7.6d+133)) .or. (.not. (c <= 2.2d-71))) then
tmp = c * (y * (y3 * y4))
else
tmp = j * (y0 * (y3 * y5))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if ((c <= -7.6e+133) || !(c <= 2.2e-71)) {
tmp = c * (y * (y3 * y4));
} else {
tmp = j * (y0 * (y3 * y5));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if (c <= -7.6e+133) or not (c <= 2.2e-71): tmp = c * (y * (y3 * y4)) else: tmp = j * (y0 * (y3 * y5)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((c <= -7.6e+133) || !(c <= 2.2e-71)) tmp = Float64(c * Float64(y * Float64(y3 * y4))); else tmp = Float64(j * Float64(y0 * Float64(y3 * y5))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if ((c <= -7.6e+133) || ~((c <= 2.2e-71))) tmp = c * (y * (y3 * y4)); else tmp = j * (y0 * (y3 * y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[c, -7.6e+133], N[Not[LessEqual[c, 2.2e-71]], $MachinePrecision]], N[(c * N[(y * N[(y3 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(y0 * N[(y3 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;c \leq -7.6 \cdot 10^{+133} \lor \neg \left(c \leq 2.2 \cdot 10^{-71}\right):\\
\;\;\;\;c \cdot \left(y \cdot \left(y3 \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y0 \cdot \left(y3 \cdot y5\right)\right)\\
\end{array}
\end{array}
if c < -7.6000000000000004e133 or 2.19999999999999997e-71 < c Initial program 30.0%
Taylor expanded in y2 around inf 34.7%
*-commutative34.7%
Simplified34.7%
Taylor expanded in y around inf 33.8%
Taylor expanded in c around inf 26.9%
if -7.6000000000000004e133 < c < 2.19999999999999997e-71Initial program 34.9%
Taylor expanded in y2 around inf 43.2%
*-commutative43.2%
Simplified43.2%
Taylor expanded in y0 around inf 33.0%
Taylor expanded in y2 around 0 20.3%
Final simplification23.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= y1 -1.08e+219) (not (<= y1 1e+96))) (* a (* y1 (* z y3))) (* j (* y3 (* y0 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 ((y1 <= -1.08e+219) || !(y1 <= 1e+96)) {
tmp = a * (y1 * (z * y3));
} else {
tmp = j * (y3 * (y0 * 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 ((y1 <= (-1.08d+219)) .or. (.not. (y1 <= 1d+96))) then
tmp = a * (y1 * (z * y3))
else
tmp = j * (y3 * (y0 * 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 ((y1 <= -1.08e+219) || !(y1 <= 1e+96)) {
tmp = a * (y1 * (z * y3));
} else {
tmp = j * (y3 * (y0 * y5));
}
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.08e+219) or not (y1 <= 1e+96): tmp = a * (y1 * (z * y3)) else: tmp = j * (y3 * (y0 * 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 ((y1 <= -1.08e+219) || !(y1 <= 1e+96)) tmp = Float64(a * Float64(y1 * Float64(z * y3))); else tmp = Float64(j * Float64(y3 * Float64(y0 * 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 ((y1 <= -1.08e+219) || ~((y1 <= 1e+96))) tmp = a * (y1 * (z * y3)); else tmp = j * (y3 * (y0 * y5)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[y1, -1.08e+219], N[Not[LessEqual[y1, 1e+96]], $MachinePrecision]], N[(a * N[(y1 * N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(y3 * N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y1 \leq -1.08 \cdot 10^{+219} \lor \neg \left(y1 \leq 10^{+96}\right):\\
\;\;\;\;a \cdot \left(y1 \cdot \left(z \cdot y3\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5\right)\right)\\
\end{array}
\end{array}
if y1 < -1.08000000000000005e219 or 1.00000000000000005e96 < y1 Initial program 30.4%
Taylor expanded in y1 around -inf 50.9%
mul-1-neg50.9%
distribute-rgt-neg-in50.9%
+-commutative50.9%
mul-1-neg50.9%
unsub-neg50.9%
*-commutative50.9%
*-commutative50.9%
*-commutative50.9%
Simplified50.9%
Taylor expanded in a around inf 55.5%
Taylor expanded in y3 around inf 33.1%
if -1.08000000000000005e219 < y1 < 1.00000000000000005e96Initial program 33.7%
Taylor expanded in j around inf 37.9%
+-commutative37.9%
mul-1-neg37.9%
unsub-neg37.9%
*-commutative37.9%
Simplified37.9%
Taylor expanded in y3 around inf 28.6%
*-commutative28.6%
*-commutative28.6%
Simplified28.6%
Taylor expanded in y5 around inf 20.7%
Final simplification24.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= c -6.5e+130) (not (<= c 2.7e-71))) (* c (* y (* y3 y4))) (* j (* y5 (* y0 y3)))))
double code(double x, double y, double z, double t, double 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 ((c <= -6.5e+130) || !(c <= 2.7e-71)) {
tmp = c * (y * (y3 * y4));
} else {
tmp = j * (y5 * (y0 * y3));
}
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 ((c <= (-6.5d+130)) .or. (.not. (c <= 2.7d-71))) then
tmp = c * (y * (y3 * y4))
else
tmp = j * (y5 * (y0 * y3))
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 ((c <= -6.5e+130) || !(c <= 2.7e-71)) {
tmp = c * (y * (y3 * y4));
} else {
tmp = j * (y5 * (y0 * y3));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if (c <= -6.5e+130) or not (c <= 2.7e-71): tmp = c * (y * (y3 * y4)) else: tmp = j * (y5 * (y0 * y3)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((c <= -6.5e+130) || !(c <= 2.7e-71)) tmp = Float64(c * Float64(y * Float64(y3 * y4))); else tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); 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 ((c <= -6.5e+130) || ~((c <= 2.7e-71))) tmp = c * (y * (y3 * y4)); else tmp = j * (y5 * (y0 * y3)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[c, -6.5e+130], N[Not[LessEqual[c, 2.7e-71]], $MachinePrecision]], N[(c * N[(y * N[(y3 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;c \leq -6.5 \cdot 10^{+130} \lor \neg \left(c \leq 2.7 \cdot 10^{-71}\right):\\
\;\;\;\;c \cdot \left(y \cdot \left(y3 \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\end{array}
\end{array}
if c < -6.5e130 or 2.7000000000000001e-71 < c Initial program 30.0%
Taylor expanded in y2 around inf 34.7%
*-commutative34.7%
Simplified34.7%
Taylor expanded in y around inf 33.8%
Taylor expanded in c around inf 26.9%
if -6.5e130 < c < 2.7000000000000001e-71Initial program 34.9%
Taylor expanded in y2 around inf 43.2%
*-commutative43.2%
Simplified43.2%
Taylor expanded in y0 around inf 33.0%
Taylor expanded in y2 around 0 20.3%
associate-*r*24.1%
Simplified24.1%
Final simplification25.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= c -1.05e+131) (not (<= c 2.2e-71))) (* y (* y3 (* c y4))) (* j (* y5 (* y0 y3)))))
double code(double x, double y, double z, double t, double 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 ((c <= -1.05e+131) || !(c <= 2.2e-71)) {
tmp = y * (y3 * (c * y4));
} else {
tmp = j * (y5 * (y0 * y3));
}
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 ((c <= (-1.05d+131)) .or. (.not. (c <= 2.2d-71))) then
tmp = y * (y3 * (c * y4))
else
tmp = j * (y5 * (y0 * y3))
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 ((c <= -1.05e+131) || !(c <= 2.2e-71)) {
tmp = y * (y3 * (c * y4));
} else {
tmp = j * (y5 * (y0 * y3));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if (c <= -1.05e+131) or not (c <= 2.2e-71): tmp = y * (y3 * (c * y4)) else: tmp = j * (y5 * (y0 * y3)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((c <= -1.05e+131) || !(c <= 2.2e-71)) tmp = Float64(y * Float64(y3 * Float64(c * y4))); else tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); 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 ((c <= -1.05e+131) || ~((c <= 2.2e-71))) tmp = y * (y3 * (c * y4)); else tmp = j * (y5 * (y0 * y3)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[c, -1.05e+131], N[Not[LessEqual[c, 2.2e-71]], $MachinePrecision]], N[(y * N[(y3 * N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;c \leq -1.05 \cdot 10^{+131} \lor \neg \left(c \leq 2.2 \cdot 10^{-71}\right):\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\end{array}
\end{array}
if c < -1.04999999999999993e131 or 2.19999999999999997e-71 < c Initial program 30.0%
Taylor expanded in y2 around inf 34.7%
*-commutative34.7%
Simplified34.7%
Taylor expanded in y around inf 33.8%
Taylor expanded in c around inf 31.3%
*-commutative31.3%
Simplified31.3%
if -1.04999999999999993e131 < c < 2.19999999999999997e-71Initial program 34.9%
Taylor expanded in y2 around inf 43.2%
*-commutative43.2%
Simplified43.2%
Taylor expanded in y0 around inf 33.0%
Taylor expanded in y2 around 0 20.3%
associate-*r*24.1%
Simplified24.1%
Final simplification27.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= c -2.02e+130) (not (<= c 2.4e-71))) (* y (* y4 (* c y3))) (* j (* y5 (* y0 y3)))))
double code(double x, double y, double z, double t, double 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 ((c <= -2.02e+130) || !(c <= 2.4e-71)) {
tmp = y * (y4 * (c * y3));
} else {
tmp = j * (y5 * (y0 * y3));
}
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 ((c <= (-2.02d+130)) .or. (.not. (c <= 2.4d-71))) then
tmp = y * (y4 * (c * y3))
else
tmp = j * (y5 * (y0 * y3))
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 ((c <= -2.02e+130) || !(c <= 2.4e-71)) {
tmp = y * (y4 * (c * y3));
} else {
tmp = j * (y5 * (y0 * y3));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if (c <= -2.02e+130) or not (c <= 2.4e-71): tmp = y * (y4 * (c * y3)) else: tmp = j * (y5 * (y0 * y3)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((c <= -2.02e+130) || !(c <= 2.4e-71)) tmp = Float64(y * Float64(y4 * Float64(c * y3))); else tmp = Float64(j * Float64(y5 * Float64(y0 * y3))); 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 ((c <= -2.02e+130) || ~((c <= 2.4e-71))) tmp = y * (y4 * (c * y3)); else tmp = j * (y5 * (y0 * y3)); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[c, -2.02e+130], N[Not[LessEqual[c, 2.4e-71]], $MachinePrecision]], N[(y * N[(y4 * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(j * N[(y5 * N[(y0 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;c \leq -2.02 \cdot 10^{+130} \lor \neg \left(c \leq 2.4 \cdot 10^{-71}\right):\\
\;\;\;\;y \cdot \left(y4 \cdot \left(c \cdot y3\right)\right)\\
\mathbf{else}:\\
\;\;\;\;j \cdot \left(y5 \cdot \left(y0 \cdot y3\right)\right)\\
\end{array}
\end{array}
if c < -2.0199999999999999e130 or 2.4e-71 < c Initial program 30.0%
Taylor expanded in y2 around inf 34.7%
*-commutative34.7%
Simplified34.7%
Taylor expanded in y around inf 33.8%
Taylor expanded in c around inf 31.2%
associate-*r*34.9%
Simplified34.9%
if -2.0199999999999999e130 < c < 2.4e-71Initial program 34.9%
Taylor expanded in y2 around inf 43.2%
*-commutative43.2%
Simplified43.2%
Taylor expanded in y0 around inf 33.0%
Taylor expanded in y2 around 0 20.3%
associate-*r*24.1%
Simplified24.1%
Final simplification28.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (* a (* y1 (* z y3))))
double code(double x, double y, double z, double t, 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 * (y1 * (z * y3));
}
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 * (y1 * (z * y3))
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 * (y1 * (z * y3));
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): return a * (y1 * (z * y3))
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) return Float64(a * Float64(y1 * Float64(z * y3))) end
function tmp = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = a * (y1 * (z * y3)); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := N[(a * N[(y1 * N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(y1 \cdot \left(z \cdot y3\right)\right)
\end{array}
Initial program 32.8%
Taylor expanded in y1 around -inf 39.5%
mul-1-neg39.5%
distribute-rgt-neg-in39.5%
+-commutative39.5%
mul-1-neg39.5%
unsub-neg39.5%
*-commutative39.5%
*-commutative39.5%
*-commutative39.5%
Simplified39.5%
Taylor expanded in a around inf 29.7%
Taylor expanded in y3 around inf 15.1%
Final simplification15.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* y4 c) (* y5 a)))
(t_2 (- (* x y2) (* z y3)))
(t_3 (- (* y2 t) (* y3 y)))
(t_4 (- (* k y2) (* j y3)))
(t_5 (- (* y4 b) (* y5 i)))
(t_6 (* (- (* j t) (* k y)) t_5))
(t_7 (- (* b a) (* i c)))
(t_8 (* t_7 (- (* y x) (* t z))))
(t_9 (- (* j x) (* k z)))
(t_10 (* (- (* b y0) (* i y1)) t_9))
(t_11 (* t_9 (- (* y0 b) (* i y1))))
(t_12 (- (* y4 y1) (* y5 y0)))
(t_13 (* t_4 t_12))
(t_14 (* (- (* y2 k) (* y3 j)) t_12))
(t_15
(+
(-
(-
(- (* (* k y) (* y5 i)) (* (* y b) (* y4 k)))
(* (* y5 t) (* i j)))
(- (* t_3 t_1) t_14))
(- t_8 (- t_11 (* (- (* y2 x) (* y3 z)) (- (* c y0) (* y1 a)))))))
(t_16
(+
(+
(- t_6 (* (* y3 y) (- (* y5 a) (* y4 c))))
(+ (* (* y5 a) (* t y2)) t_13))
(-
(* t_2 (- (* c y0) (* a y1)))
(- t_10 (* (- (* y x) (* z t)) t_7)))))
(t_17 (- (* t y2) (* y y3))))
(if (< y4 -7.206256231996481e+60)
(- (- t_8 (- t_11 t_6)) (- (/ t_3 (/ 1.0 t_1)) t_14))
(if (< y4 -3.364603505246317e-66)
(+
(-
(- (- (* (* t c) (* i z)) (* (* a t) (* b z))) (* (* y c) (* i x)))
t_10)
(-
(* (- (* y0 c) (* a y1)) t_2)
(- (* t_17 (- (* y4 c) (* a y5))) (* (- (* y1 y4) (* y5 y0)) t_4))))
(if (< y4 -1.2000065055686116e-105)
t_16
(if (< y4 6.718963124057495e-279)
t_15
(if (< y4 4.77962681403792e-222)
t_16
(if (< y4 2.2852241541266835e-175)
t_15
(+
(-
(+
(+
(-
(* (- (* x y) (* z t)) (- (* a b) (* c i)))
(-
(* k (* i (* z y1)))
(+ (* j (* i (* x y1))) (* y0 (* k (* z b))))))
(-
(* z (* y3 (* a y1)))
(+ (* y2 (* x (* a y1))) (* y0 (* z (* c y3))))))
(* (- (* t j) (* y k)) t_5))
(* t_17 t_1))
t_13)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y4 * c) - (y5 * a);
double t_2 = (x * y2) - (z * y3);
double t_3 = (y2 * t) - (y3 * y);
double t_4 = (k * y2) - (j * y3);
double t_5 = (y4 * b) - (y5 * i);
double t_6 = ((j * t) - (k * y)) * t_5;
double t_7 = (b * a) - (i * c);
double t_8 = t_7 * ((y * x) - (t * z));
double t_9 = (j * x) - (k * z);
double t_10 = ((b * y0) - (i * y1)) * t_9;
double t_11 = t_9 * ((y0 * b) - (i * y1));
double t_12 = (y4 * y1) - (y5 * y0);
double t_13 = t_4 * t_12;
double t_14 = ((y2 * k) - (y3 * j)) * t_12;
double t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a)))));
double t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7)));
double t_17 = (t * y2) - (y * y3);
double tmp;
if (y4 < -7.206256231996481e+60) {
tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0 / t_1)) - t_14);
} else if (y4 < -3.364603505246317e-66) {
tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4)));
} else if (y4 < -1.2000065055686116e-105) {
tmp = t_16;
} else if (y4 < 6.718963124057495e-279) {
tmp = t_15;
} else if (y4 < 4.77962681403792e-222) {
tmp = t_16;
} else if (y4 < 2.2852241541266835e-175) {
tmp = t_15;
} else {
tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_10
real(8) :: t_11
real(8) :: t_12
real(8) :: t_13
real(8) :: t_14
real(8) :: t_15
real(8) :: t_16
real(8) :: t_17
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: t_8
real(8) :: t_9
real(8) :: tmp
t_1 = (y4 * c) - (y5 * a)
t_2 = (x * y2) - (z * y3)
t_3 = (y2 * t) - (y3 * y)
t_4 = (k * y2) - (j * y3)
t_5 = (y4 * b) - (y5 * i)
t_6 = ((j * t) - (k * y)) * t_5
t_7 = (b * a) - (i * c)
t_8 = t_7 * ((y * x) - (t * z))
t_9 = (j * x) - (k * z)
t_10 = ((b * y0) - (i * y1)) * t_9
t_11 = t_9 * ((y0 * b) - (i * y1))
t_12 = (y4 * y1) - (y5 * y0)
t_13 = t_4 * t_12
t_14 = ((y2 * k) - (y3 * j)) * t_12
t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a)))))
t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7)))
t_17 = (t * y2) - (y * y3)
if (y4 < (-7.206256231996481d+60)) then
tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0d0 / t_1)) - t_14)
else if (y4 < (-3.364603505246317d-66)) then
tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4)))
else if (y4 < (-1.2000065055686116d-105)) then
tmp = t_16
else if (y4 < 6.718963124057495d-279) then
tmp = t_15
else if (y4 < 4.77962681403792d-222) then
tmp = t_16
else if (y4 < 2.2852241541266835d-175) then
tmp = t_15
else
tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y4 * c) - (y5 * a);
double t_2 = (x * y2) - (z * y3);
double t_3 = (y2 * t) - (y3 * y);
double t_4 = (k * y2) - (j * y3);
double t_5 = (y4 * b) - (y5 * i);
double t_6 = ((j * t) - (k * y)) * t_5;
double t_7 = (b * a) - (i * c);
double t_8 = t_7 * ((y * x) - (t * z));
double t_9 = (j * x) - (k * z);
double t_10 = ((b * y0) - (i * y1)) * t_9;
double t_11 = t_9 * ((y0 * b) - (i * y1));
double t_12 = (y4 * y1) - (y5 * y0);
double t_13 = t_4 * t_12;
double t_14 = ((y2 * k) - (y3 * j)) * t_12;
double t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a)))));
double t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7)));
double t_17 = (t * y2) - (y * y3);
double tmp;
if (y4 < -7.206256231996481e+60) {
tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0 / t_1)) - t_14);
} else if (y4 < -3.364603505246317e-66) {
tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4)));
} else if (y4 < -1.2000065055686116e-105) {
tmp = t_16;
} else if (y4 < 6.718963124057495e-279) {
tmp = t_15;
} else if (y4 < 4.77962681403792e-222) {
tmp = t_16;
} else if (y4 < 2.2852241541266835e-175) {
tmp = t_15;
} else {
tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (y4 * c) - (y5 * a) t_2 = (x * y2) - (z * y3) t_3 = (y2 * t) - (y3 * y) t_4 = (k * y2) - (j * y3) t_5 = (y4 * b) - (y5 * i) t_6 = ((j * t) - (k * y)) * t_5 t_7 = (b * a) - (i * c) t_8 = t_7 * ((y * x) - (t * z)) t_9 = (j * x) - (k * z) t_10 = ((b * y0) - (i * y1)) * t_9 t_11 = t_9 * ((y0 * b) - (i * y1)) t_12 = (y4 * y1) - (y5 * y0) t_13 = t_4 * t_12 t_14 = ((y2 * k) - (y3 * j)) * t_12 t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a))))) t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7))) t_17 = (t * y2) - (y * y3) tmp = 0 if y4 < -7.206256231996481e+60: tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0 / t_1)) - t_14) elif y4 < -3.364603505246317e-66: tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4))) elif y4 < -1.2000065055686116e-105: tmp = t_16 elif y4 < 6.718963124057495e-279: tmp = t_15 elif y4 < 4.77962681403792e-222: tmp = t_16 elif y4 < 2.2852241541266835e-175: tmp = t_15 else: tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y4 * c) - Float64(y5 * a)) t_2 = Float64(Float64(x * y2) - Float64(z * y3)) t_3 = Float64(Float64(y2 * t) - Float64(y3 * y)) t_4 = Float64(Float64(k * y2) - Float64(j * y3)) t_5 = Float64(Float64(y4 * b) - Float64(y5 * i)) t_6 = Float64(Float64(Float64(j * t) - Float64(k * y)) * t_5) t_7 = Float64(Float64(b * a) - Float64(i * c)) t_8 = Float64(t_7 * Float64(Float64(y * x) - Float64(t * z))) t_9 = Float64(Float64(j * x) - Float64(k * z)) t_10 = Float64(Float64(Float64(b * y0) - Float64(i * y1)) * t_9) t_11 = Float64(t_9 * Float64(Float64(y0 * b) - Float64(i * y1))) t_12 = Float64(Float64(y4 * y1) - Float64(y5 * y0)) t_13 = Float64(t_4 * t_12) t_14 = Float64(Float64(Float64(y2 * k) - Float64(y3 * j)) * t_12) t_15 = Float64(Float64(Float64(Float64(Float64(Float64(k * y) * Float64(y5 * i)) - Float64(Float64(y * b) * Float64(y4 * k))) - Float64(Float64(y5 * t) * Float64(i * j))) - Float64(Float64(t_3 * t_1) - t_14)) + Float64(t_8 - Float64(t_11 - Float64(Float64(Float64(y2 * x) - Float64(y3 * z)) * Float64(Float64(c * y0) - Float64(y1 * a)))))) t_16 = Float64(Float64(Float64(t_6 - Float64(Float64(y3 * y) * Float64(Float64(y5 * a) - Float64(y4 * c)))) + Float64(Float64(Float64(y5 * a) * Float64(t * y2)) + t_13)) + Float64(Float64(t_2 * Float64(Float64(c * y0) - Float64(a * y1))) - Float64(t_10 - Float64(Float64(Float64(y * x) - Float64(z * t)) * t_7)))) t_17 = Float64(Float64(t * y2) - Float64(y * y3)) tmp = 0.0 if (y4 < -7.206256231996481e+60) tmp = Float64(Float64(t_8 - Float64(t_11 - t_6)) - Float64(Float64(t_3 / Float64(1.0 / t_1)) - t_14)); elseif (y4 < -3.364603505246317e-66) tmp = Float64(Float64(Float64(Float64(Float64(Float64(t * c) * Float64(i * z)) - Float64(Float64(a * t) * Float64(b * z))) - Float64(Float64(y * c) * Float64(i * x))) - t_10) + Float64(Float64(Float64(Float64(y0 * c) - Float64(a * y1)) * t_2) - Float64(Float64(t_17 * Float64(Float64(y4 * c) - Float64(a * y5))) - Float64(Float64(Float64(y1 * y4) - Float64(y5 * y0)) * t_4)))); elseif (y4 < -1.2000065055686116e-105) tmp = t_16; elseif (y4 < 6.718963124057495e-279) tmp = t_15; elseif (y4 < 4.77962681403792e-222) tmp = t_16; elseif (y4 < 2.2852241541266835e-175) tmp = t_15; else tmp = Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(x * y) - Float64(z * t)) * Float64(Float64(a * b) - Float64(c * i))) - Float64(Float64(k * Float64(i * Float64(z * y1))) - Float64(Float64(j * Float64(i * Float64(x * y1))) + Float64(y0 * Float64(k * Float64(z * b)))))) + Float64(Float64(z * Float64(y3 * Float64(a * y1))) - Float64(Float64(y2 * Float64(x * Float64(a * y1))) + Float64(y0 * Float64(z * Float64(c * y3)))))) + Float64(Float64(Float64(t * j) - Float64(y * k)) * t_5)) - Float64(t_17 * t_1)) + t_13); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (y4 * c) - (y5 * a); t_2 = (x * y2) - (z * y3); t_3 = (y2 * t) - (y3 * y); t_4 = (k * y2) - (j * y3); t_5 = (y4 * b) - (y5 * i); t_6 = ((j * t) - (k * y)) * t_5; t_7 = (b * a) - (i * c); t_8 = t_7 * ((y * x) - (t * z)); t_9 = (j * x) - (k * z); t_10 = ((b * y0) - (i * y1)) * t_9; t_11 = t_9 * ((y0 * b) - (i * y1)); t_12 = (y4 * y1) - (y5 * y0); t_13 = t_4 * t_12; t_14 = ((y2 * k) - (y3 * j)) * t_12; t_15 = (((((k * y) * (y5 * i)) - ((y * b) * (y4 * k))) - ((y5 * t) * (i * j))) - ((t_3 * t_1) - t_14)) + (t_8 - (t_11 - (((y2 * x) - (y3 * z)) * ((c * y0) - (y1 * a))))); t_16 = ((t_6 - ((y3 * y) * ((y5 * a) - (y4 * c)))) + (((y5 * a) * (t * y2)) + t_13)) + ((t_2 * ((c * y0) - (a * y1))) - (t_10 - (((y * x) - (z * t)) * t_7))); t_17 = (t * y2) - (y * y3); tmp = 0.0; if (y4 < -7.206256231996481e+60) tmp = (t_8 - (t_11 - t_6)) - ((t_3 / (1.0 / t_1)) - t_14); elseif (y4 < -3.364603505246317e-66) tmp = (((((t * c) * (i * z)) - ((a * t) * (b * z))) - ((y * c) * (i * x))) - t_10) + ((((y0 * c) - (a * y1)) * t_2) - ((t_17 * ((y4 * c) - (a * y5))) - (((y1 * y4) - (y5 * y0)) * t_4))); elseif (y4 < -1.2000065055686116e-105) tmp = t_16; elseif (y4 < 6.718963124057495e-279) tmp = t_15; elseif (y4 < 4.77962681403792e-222) tmp = t_16; elseif (y4 < 2.2852241541266835e-175) tmp = t_15; else tmp = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) - ((k * (i * (z * y1))) - ((j * (i * (x * y1))) + (y0 * (k * (z * b)))))) + ((z * (y3 * (a * y1))) - ((y2 * (x * (a * y1))) + (y0 * (z * (c * y3)))))) + (((t * j) - (y * k)) * t_5)) - (t_17 * t_1)) + t_13; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(y4 * c), $MachinePrecision] - N[(y5 * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y2 * t), $MachinePrecision] - N[(y3 * y), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(y4 * b), $MachinePrecision] - N[(y5 * i), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(N[(j * t), $MachinePrecision] - N[(k * y), $MachinePrecision]), $MachinePrecision] * t$95$5), $MachinePrecision]}, Block[{t$95$7 = N[(N[(b * a), $MachinePrecision] - N[(i * c), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(t$95$7 * N[(N[(y * x), $MachinePrecision] - N[(t * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(N[(j * x), $MachinePrecision] - N[(k * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$10 = N[(N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision] * t$95$9), $MachinePrecision]}, Block[{t$95$11 = N[(t$95$9 * N[(N[(y0 * b), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$12 = N[(N[(y4 * y1), $MachinePrecision] - N[(y5 * y0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$13 = N[(t$95$4 * t$95$12), $MachinePrecision]}, Block[{t$95$14 = N[(N[(N[(y2 * k), $MachinePrecision] - N[(y3 * j), $MachinePrecision]), $MachinePrecision] * t$95$12), $MachinePrecision]}, Block[{t$95$15 = N[(N[(N[(N[(N[(N[(k * y), $MachinePrecision] * N[(y5 * i), $MachinePrecision]), $MachinePrecision] - N[(N[(y * b), $MachinePrecision] * N[(y4 * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y5 * t), $MachinePrecision] * N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(t$95$3 * t$95$1), $MachinePrecision] - t$95$14), $MachinePrecision]), $MachinePrecision] + N[(t$95$8 - N[(t$95$11 - N[(N[(N[(y2 * x), $MachinePrecision] - N[(y3 * z), $MachinePrecision]), $MachinePrecision] * N[(N[(c * y0), $MachinePrecision] - N[(y1 * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$16 = N[(N[(N[(t$95$6 - N[(N[(y3 * y), $MachinePrecision] * N[(N[(y5 * a), $MachinePrecision] - N[(y4 * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(y5 * a), $MachinePrecision] * N[(t * y2), $MachinePrecision]), $MachinePrecision] + t$95$13), $MachinePrecision]), $MachinePrecision] + N[(N[(t$95$2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t$95$10 - N[(N[(N[(y * x), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * t$95$7), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$17 = N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]}, If[Less[y4, -7.206256231996481e+60], N[(N[(t$95$8 - N[(t$95$11 - t$95$6), $MachinePrecision]), $MachinePrecision] - N[(N[(t$95$3 / N[(1.0 / t$95$1), $MachinePrecision]), $MachinePrecision] - t$95$14), $MachinePrecision]), $MachinePrecision], If[Less[y4, -3.364603505246317e-66], N[(N[(N[(N[(N[(N[(t * c), $MachinePrecision] * N[(i * z), $MachinePrecision]), $MachinePrecision] - N[(N[(a * t), $MachinePrecision] * N[(b * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y * c), $MachinePrecision] * N[(i * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - t$95$10), $MachinePrecision] + N[(N[(N[(N[(y0 * c), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision] * t$95$2), $MachinePrecision] - N[(N[(t$95$17 * N[(N[(y4 * c), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(y1 * y4), $MachinePrecision] - N[(y5 * y0), $MachinePrecision]), $MachinePrecision] * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Less[y4, -1.2000065055686116e-105], t$95$16, If[Less[y4, 6.718963124057495e-279], t$95$15, If[Less[y4, 4.77962681403792e-222], t$95$16, If[Less[y4, 2.2852241541266835e-175], t$95$15, N[(N[(N[(N[(N[(N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(k * N[(i * N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(j * N[(i * N[(x * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(k * N[(z * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(z * N[(y3 * N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y2 * N[(x * N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(z * N[(c * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision] * t$95$5), $MachinePrecision]), $MachinePrecision] - N[(t$95$17 * t$95$1), $MachinePrecision]), $MachinePrecision] + t$95$13), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y4 \cdot c - y5 \cdot a\\
t_2 := x \cdot y2 - z \cdot y3\\
t_3 := y2 \cdot t - y3 \cdot y\\
t_4 := k \cdot y2 - j \cdot y3\\
t_5 := y4 \cdot b - y5 \cdot i\\
t_6 := \left(j \cdot t - k \cdot y\right) \cdot t\_5\\
t_7 := b \cdot a - i \cdot c\\
t_8 := t\_7 \cdot \left(y \cdot x - t \cdot z\right)\\
t_9 := j \cdot x - k \cdot z\\
t_10 := \left(b \cdot y0 - i \cdot y1\right) \cdot t\_9\\
t_11 := t\_9 \cdot \left(y0 \cdot b - i \cdot y1\right)\\
t_12 := y4 \cdot y1 - y5 \cdot y0\\
t_13 := t\_4 \cdot t\_12\\
t_14 := \left(y2 \cdot k - y3 \cdot j\right) \cdot t\_12\\
t_15 := \left(\left(\left(\left(k \cdot y\right) \cdot \left(y5 \cdot i\right) - \left(y \cdot b\right) \cdot \left(y4 \cdot k\right)\right) - \left(y5 \cdot t\right) \cdot \left(i \cdot j\right)\right) - \left(t\_3 \cdot t\_1 - t\_14\right)\right) + \left(t\_8 - \left(t\_11 - \left(y2 \cdot x - y3 \cdot z\right) \cdot \left(c \cdot y0 - y1 \cdot a\right)\right)\right)\\
t_16 := \left(\left(t\_6 - \left(y3 \cdot y\right) \cdot \left(y5 \cdot a - y4 \cdot c\right)\right) + \left(\left(y5 \cdot a\right) \cdot \left(t \cdot y2\right) + t\_13\right)\right) + \left(t\_2 \cdot \left(c \cdot y0 - a \cdot y1\right) - \left(t\_10 - \left(y \cdot x - z \cdot t\right) \cdot t\_7\right)\right)\\
t_17 := t \cdot y2 - y \cdot y3\\
\mathbf{if}\;y4 < -7.206256231996481 \cdot 10^{+60}:\\
\;\;\;\;\left(t\_8 - \left(t\_11 - t\_6\right)\right) - \left(\frac{t\_3}{\frac{1}{t\_1}} - t\_14\right)\\
\mathbf{elif}\;y4 < -3.364603505246317 \cdot 10^{-66}:\\
\;\;\;\;\left(\left(\left(\left(t \cdot c\right) \cdot \left(i \cdot z\right) - \left(a \cdot t\right) \cdot \left(b \cdot z\right)\right) - \left(y \cdot c\right) \cdot \left(i \cdot x\right)\right) - t\_10\right) + \left(\left(y0 \cdot c - a \cdot y1\right) \cdot t\_2 - \left(t\_17 \cdot \left(y4 \cdot c - a \cdot y5\right) - \left(y1 \cdot y4 - y5 \cdot y0\right) \cdot t\_4\right)\right)\\
\mathbf{elif}\;y4 < -1.2000065055686116 \cdot 10^{-105}:\\
\;\;\;\;t\_16\\
\mathbf{elif}\;y4 < 6.718963124057495 \cdot 10^{-279}:\\
\;\;\;\;t\_15\\
\mathbf{elif}\;y4 < 4.77962681403792 \cdot 10^{-222}:\\
\;\;\;\;t\_16\\
\mathbf{elif}\;y4 < 2.2852241541266835 \cdot 10^{-175}:\\
\;\;\;\;t\_15\\
\mathbf{else}:\\
\;\;\;\;\left(\left(\left(\left(\left(x \cdot y - z \cdot t\right) \cdot \left(a \cdot b - c \cdot i\right) - \left(k \cdot \left(i \cdot \left(z \cdot y1\right)\right) - \left(j \cdot \left(i \cdot \left(x \cdot y1\right)\right) + y0 \cdot \left(k \cdot \left(z \cdot b\right)\right)\right)\right)\right) + \left(z \cdot \left(y3 \cdot \left(a \cdot y1\right)\right) - \left(y2 \cdot \left(x \cdot \left(a \cdot y1\right)\right) + y0 \cdot \left(z \cdot \left(c \cdot y3\right)\right)\right)\right)\right) + \left(t \cdot j - y \cdot k\right) \cdot t\_5\right) - t\_17 \cdot t\_1\right) + t\_13\\
\end{array}
\end{array}
herbie shell --seed 2024046
(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)))))