
(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 38 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 (- (* z k) (* x j)))
(t_2 (- (* i y5) (* b y4)))
(t_3
(*
j
(-
(* x (- (* i y1) (* b y0)))
(+ (* y3 (- (* y1 y4) (* y0 y5))) (* t t_2)))))
(t_4 (* k (* y t_2))))
(if (<= z -8.5e+143)
(* k (* y1 (- (* y2 y4) (* z i))))
(if (<= z -5e-53)
(*
y0
(+
(+ (* c (- (* x y2) (* z y3))) (* y5 (- (* j y3) (* k y2))))
(* b t_1)))
(if (<= z -6.5e-136)
t_3
(if (<= z -2.9e-164)
t_4
(if (<= z -5.8e-176)
t_3
(if (<= z 7.8e-289)
(*
b
(+
(+ (* a (- (* x y) (* z t))) (* y4 (- (* t j) (* y k))))
(* y0 t_1)))
(if (<= z 2.45e-247)
(* (* j y4) (- (* t b) (* y1 y3)))
(if (<= z 2.6e-143)
t_4
(if (<= z 5.8e+181)
(*
t
(+
(+
(* j (- (* b y4) (* i y5)))
(* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4)))))
(* (- (* t c) (* k y1)) (* z i)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (z * k) - (x * j);
double t_2 = (i * y5) - (b * y4);
double t_3 = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * t_2)));
double t_4 = k * (y * t_2);
double tmp;
if (z <= -8.5e+143) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (z <= -5e-53) {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1));
} else if (z <= -6.5e-136) {
tmp = t_3;
} else if (z <= -2.9e-164) {
tmp = t_4;
} else if (z <= -5.8e-176) {
tmp = t_3;
} else if (z <= 7.8e-289) {
tmp = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1));
} else if (z <= 2.45e-247) {
tmp = (j * y4) * ((t * b) - (y1 * y3));
} else if (z <= 2.6e-143) {
tmp = t_4;
} else if (z <= 5.8e+181) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} else {
tmp = ((t * c) - (k * y1)) * (z * i);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_1 = (z * k) - (x * j)
t_2 = (i * y5) - (b * y4)
t_3 = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * t_2)))
t_4 = k * (y * t_2)
if (z <= (-8.5d+143)) then
tmp = k * (y1 * ((y2 * y4) - (z * i)))
else if (z <= (-5d-53)) then
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1))
else if (z <= (-6.5d-136)) then
tmp = t_3
else if (z <= (-2.9d-164)) then
tmp = t_4
else if (z <= (-5.8d-176)) then
tmp = t_3
else if (z <= 7.8d-289) then
tmp = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1))
else if (z <= 2.45d-247) then
tmp = (j * y4) * ((t * b) - (y1 * y3))
else if (z <= 2.6d-143) then
tmp = t_4
else if (z <= 5.8d+181) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
else
tmp = ((t * c) - (k * y1)) * (z * i)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (z * k) - (x * j);
double t_2 = (i * y5) - (b * y4);
double t_3 = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * t_2)));
double t_4 = k * (y * t_2);
double tmp;
if (z <= -8.5e+143) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if (z <= -5e-53) {
tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1));
} else if (z <= -6.5e-136) {
tmp = t_3;
} else if (z <= -2.9e-164) {
tmp = t_4;
} else if (z <= -5.8e-176) {
tmp = t_3;
} else if (z <= 7.8e-289) {
tmp = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1));
} else if (z <= 2.45e-247) {
tmp = (j * y4) * ((t * b) - (y1 * y3));
} else if (z <= 2.6e-143) {
tmp = t_4;
} else if (z <= 5.8e+181) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} else {
tmp = ((t * c) - (k * y1)) * (z * i);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (z * k) - (x * j) t_2 = (i * y5) - (b * y4) t_3 = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * t_2))) t_4 = k * (y * t_2) tmp = 0 if z <= -8.5e+143: tmp = k * (y1 * ((y2 * y4) - (z * i))) elif z <= -5e-53: tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1)) elif z <= -6.5e-136: tmp = t_3 elif z <= -2.9e-164: tmp = t_4 elif z <= -5.8e-176: tmp = t_3 elif z <= 7.8e-289: tmp = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1)) elif z <= 2.45e-247: tmp = (j * y4) * ((t * b) - (y1 * y3)) elif z <= 2.6e-143: tmp = t_4 elif z <= 5.8e+181: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) else: tmp = ((t * c) - (k * y1)) * (z * i) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(z * k) - Float64(x * j)) t_2 = Float64(Float64(i * y5) - Float64(b * y4)) t_3 = Float64(j * Float64(Float64(x * Float64(Float64(i * y1) - Float64(b * y0))) - Float64(Float64(y3 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(t * t_2)))) t_4 = Float64(k * Float64(y * t_2)) tmp = 0.0 if (z <= -8.5e+143) tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); elseif (z <= -5e-53) tmp = Float64(y0 * Float64(Float64(Float64(c * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))) + Float64(b * t_1))); elseif (z <= -6.5e-136) tmp = t_3; elseif (z <= -2.9e-164) tmp = t_4; elseif (z <= -5.8e-176) tmp = t_3; elseif (z <= 7.8e-289) tmp = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * t_1))); elseif (z <= 2.45e-247) tmp = Float64(Float64(j * y4) * Float64(Float64(t * b) - Float64(y1 * y3))); elseif (z <= 2.6e-143) tmp = t_4; elseif (z <= 5.8e+181) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))); else tmp = Float64(Float64(Float64(t * c) - Float64(k * y1)) * Float64(z * i)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (z * k) - (x * j); t_2 = (i * y5) - (b * y4); t_3 = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * t_2))); t_4 = k * (y * t_2); tmp = 0.0; if (z <= -8.5e+143) tmp = k * (y1 * ((y2 * y4) - (z * i))); elseif (z <= -5e-53) tmp = y0 * (((c * ((x * y2) - (z * y3))) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1)); elseif (z <= -6.5e-136) tmp = t_3; elseif (z <= -2.9e-164) tmp = t_4; elseif (z <= -5.8e-176) tmp = t_3; elseif (z <= 7.8e-289) tmp = b * (((a * ((x * y) - (z * t))) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1)); elseif (z <= 2.45e-247) tmp = (j * y4) * ((t * b) - (y1 * y3)); elseif (z <= 2.6e-143) tmp = t_4; elseif (z <= 5.8e+181) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); else tmp = ((t * c) - (k * y1)) * (z * i); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(j * N[(N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y3 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(k * N[(y * t$95$2), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -8.5e+143], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -5e-53], N[(y0 * N[(N[(N[(c * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -6.5e-136], t$95$3, If[LessEqual[z, -2.9e-164], t$95$4, If[LessEqual[z, -5.8e-176], t$95$3, If[LessEqual[z, 7.8e-289], N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.45e-247], N[(N[(j * y4), $MachinePrecision] * N[(N[(t * b), $MachinePrecision] - N[(y1 * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.6e-143], t$95$4, If[LessEqual[z, 5.8e+181], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision] * N[(z * i), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := z \cdot k - x \cdot j\\
t_2 := i \cdot y5 - b \cdot y4\\
t_3 := j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right) - \left(y3 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + t \cdot t\_2\right)\right)\\
t_4 := k \cdot \left(y \cdot t\_2\right)\\
\mathbf{if}\;z \leq -8.5 \cdot 10^{+143}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{elif}\;z \leq -5 \cdot 10^{-53}:\\
\;\;\;\;y0 \cdot \left(\left(c \cdot \left(x \cdot y2 - z \cdot y3\right) + y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right) + b \cdot t\_1\right)\\
\mathbf{elif}\;z \leq -6.5 \cdot 10^{-136}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;z \leq -2.9 \cdot 10^{-164}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;z \leq -5.8 \cdot 10^{-176}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;z \leq 7.8 \cdot 10^{-289}:\\
\;\;\;\;b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot t\_1\right)\\
\mathbf{elif}\;z \leq 2.45 \cdot 10^{-247}:\\
\;\;\;\;\left(j \cdot y4\right) \cdot \left(t \cdot b - y1 \cdot y3\right)\\
\mathbf{elif}\;z \leq 2.6 \cdot 10^{-143}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;z \leq 5.8 \cdot 10^{+181}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\left(t \cdot c - k \cdot y1\right) \cdot \left(z \cdot i\right)\\
\end{array}
\end{array}
if z < -8.4999999999999998e143Initial program 30.0%
Taylor expanded in k around inf 42.6%
+-commutative42.6%
mul-1-neg42.6%
unsub-neg42.6%
*-commutative42.6%
associate-*r*42.6%
neg-mul-142.6%
Simplified42.6%
Taylor expanded in y1 around inf 55.1%
if -8.4999999999999998e143 < z < -5e-53Initial program 27.0%
Taylor expanded in y0 around inf 61.4%
+-commutative61.4%
mul-1-neg61.4%
unsub-neg61.4%
*-commutative61.4%
*-commutative61.4%
*-commutative61.4%
*-commutative61.4%
Simplified61.4%
if -5e-53 < z < -6.50000000000000011e-136 or -2.9e-164 < z < -5.80000000000000012e-176Initial program 38.9%
Taylor expanded in j around inf 78.1%
+-commutative78.1%
mul-1-neg78.1%
unsub-neg78.1%
*-commutative78.1%
Simplified78.1%
if -6.50000000000000011e-136 < z < -2.9e-164 or 2.45e-247 < z < 2.59999999999999987e-143Initial program 25.7%
Taylor expanded in k around inf 48.8%
+-commutative48.8%
mul-1-neg48.8%
unsub-neg48.8%
*-commutative48.8%
associate-*r*48.8%
neg-mul-148.8%
Simplified48.8%
Taylor expanded in y around inf 57.7%
if -5.80000000000000012e-176 < z < 7.7999999999999997e-289Initial program 33.5%
Taylor expanded in b around inf 58.0%
if 7.7999999999999997e-289 < z < 2.45e-247Initial program 1.1%
Taylor expanded in j around inf 32.4%
+-commutative32.4%
mul-1-neg32.4%
unsub-neg32.4%
*-commutative32.4%
Simplified32.4%
Taylor expanded in y4 around inf 52.6%
associate-*r*61.6%
*-commutative61.6%
Simplified61.6%
if 2.59999999999999987e-143 < z < 5.8e181Initial program 27.4%
Taylor expanded in t around inf 59.9%
+-commutative59.9%
mul-1-neg59.9%
unsub-neg59.9%
*-commutative59.9%
Simplified59.9%
if 5.8e181 < z Initial program 9.1%
Taylor expanded in i around -inf 49.0%
Taylor expanded in z around -inf 67.3%
mul-1-neg67.3%
associate-*r*58.6%
distribute-lft-neg-in58.6%
distribute-rgt-neg-in58.6%
*-commutative58.6%
Simplified58.6%
Final simplification60.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* x y) (* z t)))
(t_2 (- (* x y2) (* z y3)))
(t_3
(+
(+
(+
(+
(+
(* (- (* a b) (* c i)) t_1)
(* (- (* x j) (* z k)) (- (* i y1) (* b y0))))
(* t_2 (- (* c y0) (* a y1))))
(* (- (* t j) (* y k)) (- (* b y4) (* i y5))))
(* (- (* t y2) (* y y3)) (- (* a y5) (* c y4))))
(* (- (* k y2) (* j y3)) (- (* y1 y4) (* y0 y5))))))
(if (<= t_3 INFINITY)
t_3
(* c (+ (- (* y0 t_2) (* i t_1)) (* y4 (- (* y y3) (* t 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 = (x * y) - (z * t);
double t_2 = (x * y2) - (z * y3);
double t_3 = (((((((a * b) - (c * i)) * t_1) + (((x * j) - (z * k)) * ((i * y1) - (b * y0)))) + (t_2 * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (((t * y2) - (y * y3)) * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
double tmp;
if (t_3 <= ((double) INFINITY)) {
tmp = t_3;
} else {
tmp = c * (((y0 * t_2) - (i * t_1)) + (y4 * ((y * y3) - (t * y2))));
}
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 = (x * y) - (z * t);
double t_2 = (x * y2) - (z * y3);
double t_3 = (((((((a * b) - (c * i)) * t_1) + (((x * j) - (z * k)) * ((i * y1) - (b * y0)))) + (t_2 * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (((t * y2) - (y * y3)) * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
double tmp;
if (t_3 <= Double.POSITIVE_INFINITY) {
tmp = t_3;
} else {
tmp = c * (((y0 * t_2) - (i * t_1)) + (y4 * ((y * y3) - (t * y2))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (x * y) - (z * t) t_2 = (x * y2) - (z * y3) t_3 = (((((((a * b) - (c * i)) * t_1) + (((x * j) - (z * k)) * ((i * y1) - (b * y0)))) + (t_2 * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (((t * y2) - (y * y3)) * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5))) tmp = 0 if t_3 <= math.inf: tmp = t_3 else: tmp = c * (((y0 * t_2) - (i * t_1)) + (y4 * ((y * y3) - (t * y2)))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(x * y) - Float64(z * t)) t_2 = Float64(Float64(x * y2) - Float64(z * y3)) t_3 = Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(a * b) - Float64(c * i)) * t_1) + Float64(Float64(Float64(x * j) - Float64(z * k)) * Float64(Float64(i * y1) - Float64(b * y0)))) + Float64(t_2 * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(Float64(Float64(t * j) - Float64(y * k)) * Float64(Float64(b * y4) - Float64(i * y5)))) + Float64(Float64(Float64(t * y2) - Float64(y * y3)) * Float64(Float64(a * y5) - Float64(c * y4)))) + Float64(Float64(Float64(k * y2) - Float64(j * y3)) * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) tmp = 0.0 if (t_3 <= Inf) tmp = t_3; else tmp = Float64(c * Float64(Float64(Float64(y0 * t_2) - Float64(i * t_1)) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * 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 = (x * y) - (z * t); t_2 = (x * y2) - (z * y3); t_3 = (((((((a * b) - (c * i)) * t_1) + (((x * j) - (z * k)) * ((i * y1) - (b * y0)))) + (t_2 * ((c * y0) - (a * y1)))) + (((t * j) - (y * k)) * ((b * y4) - (i * y5)))) + (((t * y2) - (y * y3)) * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5))); tmp = 0.0; if (t_3 <= Inf) tmp = t_3; else tmp = c * (((y0 * t_2) - (i * t_1)) + (y4 * ((y * y3) - (t * y2)))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[(N[(N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision] * t$95$1), $MachinePrecision] + N[(N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision] * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision] * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$3, Infinity], t$95$3, N[(c * N[(N[(N[(y0 * t$95$2), $MachinePrecision] - N[(i * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot y - z \cdot t\\
t_2 := x \cdot y2 - z \cdot y3\\
t_3 := \left(\left(\left(\left(\left(a \cdot b - c \cdot i\right) \cdot t\_1 + \left(x \cdot j - z \cdot k\right) \cdot \left(i \cdot y1 - b \cdot y0\right)\right) + t\_2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + \left(t \cdot j - y \cdot k\right) \cdot \left(b \cdot y4 - i \cdot y5\right)\right) + \left(t \cdot y2 - y \cdot y3\right) \cdot \left(a \cdot y5 - c \cdot y4\right)\right) + \left(k \cdot y2 - j \cdot y3\right) \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\\
\mathbf{if}\;t\_3 \leq \infty:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot t\_2 - i \cdot t\_1\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\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 89.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 c around inf 41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
Simplified41.5%
Final simplification55.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(*
c
(+
(- (* y0 (- (* x y2) (* z y3))) (* i (- (* x y) (* z t))))
(* y4 (- (* y y3) (* t y2))))))
(t_2
(*
x
(+
(+ (* y (- (* a b) (* c i))) (* y2 (- (* c y0) (* a y1))))
(* j (- (* i y1) (* b y0)))))))
(if (<= c -2.8e+118)
t_1
(if (<= c -1.15e+100)
(* y0 (* b (- (* z k) (* x j))))
(if (<= c -1.35e+20)
t_1
(if (<= c -1.9e-35)
(* i (* k (- (* y y5) (* z y1))))
(if (<= c -1.7e-71)
t_1
(if (<= c -1.7e-280)
(*
t
(+
(+ (* j (- (* b y4) (* i y5))) (* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4)))))
(if (<= c 3.4e-255)
t_2
(if (<= c 1e-210)
(* b (* k (- (* z y0) (* y y4))))
(if (<= c 1.3e-181) 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 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))));
double t_2 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))));
double tmp;
if (c <= -2.8e+118) {
tmp = t_1;
} else if (c <= -1.15e+100) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (c <= -1.35e+20) {
tmp = t_1;
} else if (c <= -1.9e-35) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= -1.7e-71) {
tmp = t_1;
} else if (c <= -1.7e-280) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} else if (c <= 3.4e-255) {
tmp = t_2;
} else if (c <= 1e-210) {
tmp = b * (k * ((z * y0) - (y * y4)));
} else if (c <= 1.3e-181) {
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 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))))
t_2 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))))
if (c <= (-2.8d+118)) then
tmp = t_1
else if (c <= (-1.15d+100)) then
tmp = y0 * (b * ((z * k) - (x * j)))
else if (c <= (-1.35d+20)) then
tmp = t_1
else if (c <= (-1.9d-35)) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (c <= (-1.7d-71)) then
tmp = t_1
else if (c <= (-1.7d-280)) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
else if (c <= 3.4d-255) then
tmp = t_2
else if (c <= 1d-210) then
tmp = b * (k * ((z * y0) - (y * y4)))
else if (c <= 1.3d-181) 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 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))));
double t_2 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))));
double tmp;
if (c <= -2.8e+118) {
tmp = t_1;
} else if (c <= -1.15e+100) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (c <= -1.35e+20) {
tmp = t_1;
} else if (c <= -1.9e-35) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= -1.7e-71) {
tmp = t_1;
} else if (c <= -1.7e-280) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} else if (c <= 3.4e-255) {
tmp = t_2;
} else if (c <= 1e-210) {
tmp = b * (k * ((z * y0) - (y * y4)));
} else if (c <= 1.3e-181) {
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 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2)))) t_2 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0)))) tmp = 0 if c <= -2.8e+118: tmp = t_1 elif c <= -1.15e+100: tmp = y0 * (b * ((z * k) - (x * j))) elif c <= -1.35e+20: tmp = t_1 elif c <= -1.9e-35: tmp = i * (k * ((y * y5) - (z * y1))) elif c <= -1.7e-71: tmp = t_1 elif c <= -1.7e-280: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) elif c <= 3.4e-255: tmp = t_2 elif c <= 1e-210: tmp = b * (k * ((z * y0) - (y * y4))) elif c <= 1.3e-181: 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(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) - Float64(i * Float64(Float64(x * y) - Float64(z * t)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))) t_2 = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0))))) tmp = 0.0 if (c <= -2.8e+118) tmp = t_1; elseif (c <= -1.15e+100) tmp = Float64(y0 * Float64(b * Float64(Float64(z * k) - Float64(x * j)))); elseif (c <= -1.35e+20) tmp = t_1; elseif (c <= -1.9e-35) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (c <= -1.7e-71) tmp = t_1; elseif (c <= -1.7e-280) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (c <= 3.4e-255) tmp = t_2; elseif (c <= 1e-210) tmp = Float64(b * Float64(k * Float64(Float64(z * y0) - Float64(y * y4)))); elseif (c <= 1.3e-181) 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 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2)))); t_2 = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0)))); tmp = 0.0; if (c <= -2.8e+118) tmp = t_1; elseif (c <= -1.15e+100) tmp = y0 * (b * ((z * k) - (x * j))); elseif (c <= -1.35e+20) tmp = t_1; elseif (c <= -1.9e-35) tmp = i * (k * ((y * y5) - (z * y1))); elseif (c <= -1.7e-71) tmp = t_1; elseif (c <= -1.7e-280) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); elseif (c <= 3.4e-255) tmp = t_2; elseif (c <= 1e-210) tmp = b * (k * ((z * y0) - (y * y4))); elseif (c <= 1.3e-181) 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[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = 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 * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -2.8e+118], t$95$1, If[LessEqual[c, -1.15e+100], N[(y0 * N[(b * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -1.35e+20], t$95$1, If[LessEqual[c, -1.9e-35], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -1.7e-71], t$95$1, If[LessEqual[c, -1.7e-280], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 3.4e-255], t$95$2, If[LessEqual[c, 1e-210], N[(b * N[(k * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 1.3e-181], t$95$2, t$95$1]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) - i \cdot \left(x \cdot y - z \cdot t\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_2 := 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 \left(i \cdot y1 - b \cdot y0\right)\right)\\
\mathbf{if}\;c \leq -2.8 \cdot 10^{+118}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -1.15 \cdot 10^{+100}:\\
\;\;\;\;y0 \cdot \left(b \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;c \leq -1.35 \cdot 10^{+20}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -1.9 \cdot 10^{-35}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;c \leq -1.7 \cdot 10^{-71}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -1.7 \cdot 10^{-280}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;c \leq 3.4 \cdot 10^{-255}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;c \leq 10^{-210}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
\mathbf{elif}\;c \leq 1.3 \cdot 10^{-181}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if c < -2.79999999999999986e118 or -1.14999999999999995e100 < c < -1.35e20 or -1.9000000000000001e-35 < c < -1.70000000000000002e-71 or 1.29999999999999999e-181 < c Initial program 20.3%
Taylor expanded in c around inf 54.4%
+-commutative54.4%
mul-1-neg54.4%
unsub-neg54.4%
*-commutative54.4%
*-commutative54.4%
*-commutative54.4%
*-commutative54.4%
Simplified54.4%
if -2.79999999999999986e118 < c < -1.14999999999999995e100Initial program 16.4%
Taylor expanded in y0 around inf 83.3%
+-commutative83.3%
mul-1-neg83.3%
unsub-neg83.3%
*-commutative83.3%
*-commutative83.3%
*-commutative83.3%
*-commutative83.3%
Simplified83.3%
Taylor expanded in b around inf 84.3%
if -1.35e20 < c < -1.9000000000000001e-35Initial program 28.6%
Taylor expanded in k around inf 50.0%
+-commutative50.0%
mul-1-neg50.0%
unsub-neg50.0%
*-commutative50.0%
associate-*r*50.0%
neg-mul-150.0%
Simplified50.0%
Taylor expanded in i around inf 51.7%
mul-1-neg51.7%
+-commutative51.7%
mul-1-neg51.7%
sub-neg51.7%
Simplified51.7%
if -1.70000000000000002e-71 < c < -1.6999999999999999e-280Initial program 34.6%
Taylor expanded in t around inf 60.6%
+-commutative60.6%
mul-1-neg60.6%
unsub-neg60.6%
*-commutative60.6%
Simplified60.6%
if -1.6999999999999999e-280 < c < 3.39999999999999983e-255 or 1e-210 < c < 1.29999999999999999e-181Initial program 40.9%
Taylor expanded in x around inf 82.1%
if 3.39999999999999983e-255 < c < 1e-210Initial program 40.6%
Taylor expanded in k around inf 54.2%
+-commutative54.2%
mul-1-neg54.2%
unsub-neg54.2%
*-commutative54.2%
associate-*r*54.2%
neg-mul-154.2%
Simplified54.2%
Taylor expanded in b around -inf 67.3%
+-commutative67.3%
mul-1-neg67.3%
sub-neg67.3%
Simplified67.3%
Final simplification58.9%
(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)))))
(t_2 (* c (* y3 (- (* y y4) (* z y0)))))
(t_3 (- (* y0 y5) (* y1 y4)))
(t_4 (* k (* y (- (* i y5) (* b y4))))))
(if (<= y2 -2.9e+23)
t_1
(if (<= y2 -2.1e-221)
(* (- (* t c) (* k y1)) (* z i))
(if (<= y2 -1.76e-296)
t_4
(if (<= y2 9.6e-277)
t_2
(if (<= y2 2.6e-222)
t_4
(if (<= y2 5e-185)
t_2
(if (<= y2 5.9e-170)
(* j (* y3 t_3))
(if (<= y2 1.35e-120)
(* (- (* z y1) (* y y5)) (* a y3))
(if (<= y2 6e-45)
(* (* j y3) t_3)
(if (<= y2 7.6e+136)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y2 1.55e+234)
(* c (* i (- (* z t) (* x y))))
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)));
double t_2 = c * (y3 * ((y * y4) - (z * y0)));
double t_3 = (y0 * y5) - (y1 * y4);
double t_4 = k * (y * ((i * y5) - (b * y4)));
double tmp;
if (y2 <= -2.9e+23) {
tmp = t_1;
} else if (y2 <= -2.1e-221) {
tmp = ((t * c) - (k * y1)) * (z * i);
} else if (y2 <= -1.76e-296) {
tmp = t_4;
} else if (y2 <= 9.6e-277) {
tmp = t_2;
} else if (y2 <= 2.6e-222) {
tmp = t_4;
} else if (y2 <= 5e-185) {
tmp = t_2;
} else if (y2 <= 5.9e-170) {
tmp = j * (y3 * t_3);
} else if (y2 <= 1.35e-120) {
tmp = ((z * y1) - (y * y5)) * (a * y3);
} else if (y2 <= 6e-45) {
tmp = (j * y3) * t_3;
} else if (y2 <= 7.6e+136) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.55e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} 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)))
t_2 = c * (y3 * ((y * y4) - (z * y0)))
t_3 = (y0 * y5) - (y1 * y4)
t_4 = k * (y * ((i * y5) - (b * y4)))
if (y2 <= (-2.9d+23)) then
tmp = t_1
else if (y2 <= (-2.1d-221)) then
tmp = ((t * c) - (k * y1)) * (z * i)
else if (y2 <= (-1.76d-296)) then
tmp = t_4
else if (y2 <= 9.6d-277) then
tmp = t_2
else if (y2 <= 2.6d-222) then
tmp = t_4
else if (y2 <= 5d-185) then
tmp = t_2
else if (y2 <= 5.9d-170) then
tmp = j * (y3 * t_3)
else if (y2 <= 1.35d-120) then
tmp = ((z * y1) - (y * y5)) * (a * y3)
else if (y2 <= 6d-45) then
tmp = (j * y3) * t_3
else if (y2 <= 7.6d+136) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y2 <= 1.55d+234) then
tmp = c * (i * ((z * t) - (x * y)))
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)));
double t_2 = c * (y3 * ((y * y4) - (z * y0)));
double t_3 = (y0 * y5) - (y1 * y4);
double t_4 = k * (y * ((i * y5) - (b * y4)));
double tmp;
if (y2 <= -2.9e+23) {
tmp = t_1;
} else if (y2 <= -2.1e-221) {
tmp = ((t * c) - (k * y1)) * (z * i);
} else if (y2 <= -1.76e-296) {
tmp = t_4;
} else if (y2 <= 9.6e-277) {
tmp = t_2;
} else if (y2 <= 2.6e-222) {
tmp = t_4;
} else if (y2 <= 5e-185) {
tmp = t_2;
} else if (y2 <= 5.9e-170) {
tmp = j * (y3 * t_3);
} else if (y2 <= 1.35e-120) {
tmp = ((z * y1) - (y * y5)) * (a * y3);
} else if (y2 <= 6e-45) {
tmp = (j * y3) * t_3;
} else if (y2 <= 7.6e+136) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.55e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} 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))) t_2 = c * (y3 * ((y * y4) - (z * y0))) t_3 = (y0 * y5) - (y1 * y4) t_4 = k * (y * ((i * y5) - (b * y4))) tmp = 0 if y2 <= -2.9e+23: tmp = t_1 elif y2 <= -2.1e-221: tmp = ((t * c) - (k * y1)) * (z * i) elif y2 <= -1.76e-296: tmp = t_4 elif y2 <= 9.6e-277: tmp = t_2 elif y2 <= 2.6e-222: tmp = t_4 elif y2 <= 5e-185: tmp = t_2 elif y2 <= 5.9e-170: tmp = j * (y3 * t_3) elif y2 <= 1.35e-120: tmp = ((z * y1) - (y * y5)) * (a * y3) elif y2 <= 6e-45: tmp = (j * y3) * t_3 elif y2 <= 7.6e+136: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y2 <= 1.55e+234: tmp = c * (i * ((z * t) - (x * y))) 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(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) t_2 = Float64(c * Float64(y3 * Float64(Float64(y * y4) - Float64(z * y0)))) t_3 = Float64(Float64(y0 * y5) - Float64(y1 * y4)) t_4 = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) tmp = 0.0 if (y2 <= -2.9e+23) tmp = t_1; elseif (y2 <= -2.1e-221) tmp = Float64(Float64(Float64(t * c) - Float64(k * y1)) * Float64(z * i)); elseif (y2 <= -1.76e-296) tmp = t_4; elseif (y2 <= 9.6e-277) tmp = t_2; elseif (y2 <= 2.6e-222) tmp = t_4; elseif (y2 <= 5e-185) tmp = t_2; elseif (y2 <= 5.9e-170) tmp = Float64(j * Float64(y3 * t_3)); elseif (y2 <= 1.35e-120) tmp = Float64(Float64(Float64(z * y1) - Float64(y * y5)) * Float64(a * y3)); elseif (y2 <= 6e-45) tmp = Float64(Float64(j * y3) * t_3); elseif (y2 <= 7.6e+136) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y2 <= 1.55e+234) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); 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))); t_2 = c * (y3 * ((y * y4) - (z * y0))); t_3 = (y0 * y5) - (y1 * y4); t_4 = k * (y * ((i * y5) - (b * y4))); tmp = 0.0; if (y2 <= -2.9e+23) tmp = t_1; elseif (y2 <= -2.1e-221) tmp = ((t * c) - (k * y1)) * (z * i); elseif (y2 <= -1.76e-296) tmp = t_4; elseif (y2 <= 9.6e-277) tmp = t_2; elseif (y2 <= 2.6e-222) tmp = t_4; elseif (y2 <= 5e-185) tmp = t_2; elseif (y2 <= 5.9e-170) tmp = j * (y3 * t_3); elseif (y2 <= 1.35e-120) tmp = ((z * y1) - (y * y5)) * (a * y3); elseif (y2 <= 6e-45) tmp = (j * y3) * t_3; elseif (y2 <= 7.6e+136) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y2 <= 1.55e+234) tmp = c * (i * ((z * t) - (x * y))); 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[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(y3 * N[(N[(y * y4), $MachinePrecision] - N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -2.9e+23], t$95$1, If[LessEqual[y2, -2.1e-221], N[(N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision] * N[(z * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -1.76e-296], t$95$4, If[LessEqual[y2, 9.6e-277], t$95$2, If[LessEqual[y2, 2.6e-222], t$95$4, If[LessEqual[y2, 5e-185], t$95$2, If[LessEqual[y2, 5.9e-170], N[(j * N[(y3 * t$95$3), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.35e-120], N[(N[(N[(z * y1), $MachinePrecision] - N[(y * y5), $MachinePrecision]), $MachinePrecision] * N[(a * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 6e-45], N[(N[(j * y3), $MachinePrecision] * t$95$3), $MachinePrecision], If[LessEqual[y2, 7.6e+136], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.55e+234], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
t_2 := c \cdot \left(y3 \cdot \left(y \cdot y4 - z \cdot y0\right)\right)\\
t_3 := y0 \cdot y5 - y1 \cdot y4\\
t_4 := k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{if}\;y2 \leq -2.9 \cdot 10^{+23}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq -2.1 \cdot 10^{-221}:\\
\;\;\;\;\left(t \cdot c - k \cdot y1\right) \cdot \left(z \cdot i\right)\\
\mathbf{elif}\;y2 \leq -1.76 \cdot 10^{-296}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y2 \leq 9.6 \cdot 10^{-277}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq 2.6 \cdot 10^{-222}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y2 \leq 5 \cdot 10^{-185}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq 5.9 \cdot 10^{-170}:\\
\;\;\;\;j \cdot \left(y3 \cdot t\_3\right)\\
\mathbf{elif}\;y2 \leq 1.35 \cdot 10^{-120}:\\
\;\;\;\;\left(z \cdot y1 - y \cdot y5\right) \cdot \left(a \cdot y3\right)\\
\mathbf{elif}\;y2 \leq 6 \cdot 10^{-45}:\\
\;\;\;\;\left(j \cdot y3\right) \cdot t\_3\\
\mathbf{elif}\;y2 \leq 7.6 \cdot 10^{+136}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 1.55 \cdot 10^{+234}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y2 < -2.90000000000000013e23 or 1.54999999999999995e234 < y2 Initial program 27.8%
Taylor expanded in k around inf 49.8%
+-commutative49.8%
mul-1-neg49.8%
unsub-neg49.8%
*-commutative49.8%
associate-*r*49.8%
neg-mul-149.8%
Simplified49.8%
Taylor expanded in y2 around inf 55.8%
if -2.90000000000000013e23 < y2 < -2.1e-221Initial program 35.9%
Taylor expanded in i around -inf 49.4%
Taylor expanded in z around -inf 45.0%
mul-1-neg45.0%
associate-*r*40.0%
distribute-lft-neg-in40.0%
distribute-rgt-neg-in40.0%
*-commutative40.0%
Simplified40.0%
if -2.1e-221 < y2 < -1.7599999999999999e-296 or 9.6e-277 < y2 < 2.5999999999999998e-222Initial program 29.3%
Taylor expanded in k around inf 41.3%
+-commutative41.3%
mul-1-neg41.3%
unsub-neg41.3%
*-commutative41.3%
associate-*r*41.3%
neg-mul-141.3%
Simplified41.3%
Taylor expanded in y around inf 62.1%
if -1.7599999999999999e-296 < y2 < 9.6e-277 or 2.5999999999999998e-222 < y2 < 5.0000000000000003e-185Initial program 19.5%
Taylor expanded in c around inf 53.6%
+-commutative53.6%
mul-1-neg53.6%
unsub-neg53.6%
*-commutative53.6%
*-commutative53.6%
*-commutative53.6%
*-commutative53.6%
Simplified53.6%
Taylor expanded in y3 around -inf 56.4%
mul-1-neg56.4%
Simplified56.4%
if 5.0000000000000003e-185 < y2 < 5.8999999999999998e-170Initial program 0.0%
Taylor expanded in j around inf 60.0%
+-commutative60.0%
mul-1-neg60.0%
unsub-neg60.0%
*-commutative60.0%
Simplified60.0%
Taylor expanded in y3 around inf 80.0%
*-commutative80.0%
Simplified80.0%
if 5.8999999999999998e-170 < y2 < 1.3499999999999999e-120Initial program 40.0%
Taylor expanded in y3 around -inf 70.0%
Taylor expanded in a around -inf 70.4%
mul-1-neg70.4%
associate-*r*70.4%
Simplified70.4%
if 1.3499999999999999e-120 < y2 < 6.00000000000000022e-45Initial program 35.3%
Taylor expanded in y3 around -inf 65.4%
Taylor expanded in j around inf 71.2%
associate-*r*76.8%
Simplified76.8%
if 6.00000000000000022e-45 < y2 < 7.60000000000000029e136Initial program 19.0%
Taylor expanded in y3 around -inf 44.0%
Taylor expanded in y around inf 44.4%
if 7.60000000000000029e136 < y2 < 1.54999999999999995e234Initial program 4.3%
Taylor expanded in c around inf 43.6%
+-commutative43.6%
mul-1-neg43.6%
unsub-neg43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in i around inf 65.7%
Final simplification56.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1
(*
c
(+
(- (* y0 (- (* x y2) (* z y3))) (* i (- (* x y) (* z t))))
(* y4 (- (* y y3) (* t y2)))))))
(if (<= c -7.8e+117)
t_1
(if (<= c -1.4e+101)
(* y0 (* b (- (* z k) (* x j))))
(if (<= c -2.75e+19)
t_1
(if (<= c -1.5e-38)
(* i (* k (- (* y y5) (* z y1))))
(if (<= c -2.2e-71)
t_1
(if (<= c -6e-272)
(*
t
(+
(+ (* j (- (* b y4) (* i y5))) (* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4)))))
(if (<= c 0.25)
(*
j
(-
(* x (- (* i y1) (* b y0)))
(+
(* y3 (- (* y1 y4) (* y0 y5)))
(* t (- (* i y5) (* b y4))))))
t_1)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))));
double tmp;
if (c <= -7.8e+117) {
tmp = t_1;
} else if (c <= -1.4e+101) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (c <= -2.75e+19) {
tmp = t_1;
} else if (c <= -1.5e-38) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= -2.2e-71) {
tmp = t_1;
} else if (c <= -6e-272) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} else if (c <= 0.25) {
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4)))));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))))
if (c <= (-7.8d+117)) then
tmp = t_1
else if (c <= (-1.4d+101)) then
tmp = y0 * (b * ((z * k) - (x * j)))
else if (c <= (-2.75d+19)) then
tmp = t_1
else if (c <= (-1.5d-38)) then
tmp = i * (k * ((y * y5) - (z * y1)))
else if (c <= (-2.2d-71)) then
tmp = t_1
else if (c <= (-6d-272)) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
else if (c <= 0.25d0) then
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4)))))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))));
double tmp;
if (c <= -7.8e+117) {
tmp = t_1;
} else if (c <= -1.4e+101) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (c <= -2.75e+19) {
tmp = t_1;
} else if (c <= -1.5e-38) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else if (c <= -2.2e-71) {
tmp = t_1;
} else if (c <= -6e-272) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
} else if (c <= 0.25) {
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4)))));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2)))) tmp = 0 if c <= -7.8e+117: tmp = t_1 elif c <= -1.4e+101: tmp = y0 * (b * ((z * k) - (x * j))) elif c <= -2.75e+19: tmp = t_1 elif c <= -1.5e-38: tmp = i * (k * ((y * y5) - (z * y1))) elif c <= -2.2e-71: tmp = t_1 elif c <= -6e-272: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) elif c <= 0.25: tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4))))) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) - Float64(i * Float64(Float64(x * y) - Float64(z * t)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))) tmp = 0.0 if (c <= -7.8e+117) tmp = t_1; elseif (c <= -1.4e+101) tmp = Float64(y0 * Float64(b * Float64(Float64(z * k) - Float64(x * j)))); elseif (c <= -2.75e+19) tmp = t_1; elseif (c <= -1.5e-38) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); elseif (c <= -2.2e-71) tmp = t_1; elseif (c <= -6e-272) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))); elseif (c <= 0.25) tmp = Float64(j * Float64(Float64(x * Float64(Float64(i * y1) - Float64(b * y0))) - Float64(Float64(y3 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(t * Float64(Float64(i * y5) - Float64(b * y4)))))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2)))); tmp = 0.0; if (c <= -7.8e+117) tmp = t_1; elseif (c <= -1.4e+101) tmp = y0 * (b * ((z * k) - (x * j))); elseif (c <= -2.75e+19) tmp = t_1; elseif (c <= -1.5e-38) tmp = i * (k * ((y * y5) - (z * y1))); elseif (c <= -2.2e-71) tmp = t_1; elseif (c <= -6e-272) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); elseif (c <= 0.25) tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4))))); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[c, -7.8e+117], t$95$1, If[LessEqual[c, -1.4e+101], N[(y0 * N[(b * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -2.75e+19], t$95$1, If[LessEqual[c, -1.5e-38], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, -2.2e-71], t$95$1, If[LessEqual[c, -6e-272], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[c, 0.25], N[(j * N[(N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y3 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) - i \cdot \left(x \cdot y - z \cdot t\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{if}\;c \leq -7.8 \cdot 10^{+117}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -1.4 \cdot 10^{+101}:\\
\;\;\;\;y0 \cdot \left(b \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;c \leq -2.75 \cdot 10^{+19}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -1.5 \cdot 10^{-38}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{elif}\;c \leq -2.2 \cdot 10^{-71}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;c \leq -6 \cdot 10^{-272}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
\mathbf{elif}\;c \leq 0.25:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right) - \left(y3 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + t \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if c < -7.79999999999999981e117 or -1.39999999999999991e101 < c < -2.75e19 or -1.49999999999999994e-38 < c < -2.19999999999999997e-71 or 0.25 < c Initial program 18.6%
Taylor expanded in c around inf 59.6%
+-commutative59.6%
mul-1-neg59.6%
unsub-neg59.6%
*-commutative59.6%
*-commutative59.6%
*-commutative59.6%
*-commutative59.6%
Simplified59.6%
if -7.79999999999999981e117 < c < -1.39999999999999991e101Initial program 16.4%
Taylor expanded in y0 around inf 83.3%
+-commutative83.3%
mul-1-neg83.3%
unsub-neg83.3%
*-commutative83.3%
*-commutative83.3%
*-commutative83.3%
*-commutative83.3%
Simplified83.3%
Taylor expanded in b around inf 84.3%
if -2.75e19 < c < -1.49999999999999994e-38Initial program 28.6%
Taylor expanded in k around inf 50.0%
+-commutative50.0%
mul-1-neg50.0%
unsub-neg50.0%
*-commutative50.0%
associate-*r*50.0%
neg-mul-150.0%
Simplified50.0%
Taylor expanded in i around inf 51.7%
mul-1-neg51.7%
+-commutative51.7%
mul-1-neg51.7%
sub-neg51.7%
Simplified51.7%
if -2.19999999999999997e-71 < c < -6.0000000000000006e-272Initial program 31.6%
Taylor expanded in t around inf 59.9%
+-commutative59.9%
mul-1-neg59.9%
unsub-neg59.9%
*-commutative59.9%
Simplified59.9%
if -6.0000000000000006e-272 < c < 0.25Initial program 34.1%
Taylor expanded in j around inf 48.3%
+-commutative48.3%
mul-1-neg48.3%
unsub-neg48.3%
*-commutative48.3%
Simplified48.3%
Final simplification56.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* x y) (* z t)))
(t_2 (- (* t j) (* y k)))
(t_3
(*
t
(+
(+ (* j (- (* b y4) (* i y5))) (* z (- (* c i) (* a b))))
(* y2 (- (* a y5) (* c y4))))))
(t_4 (- (* y y3) (* t y2)))
(t_5 (- (* x y2) (* z y3)))
(t_6 (- (* z k) (* x j)))
(t_7 (* y0 (+ (+ (* c t_5) (* y5 (- (* j y3) (* k y2)))) (* b t_6)))))
(if (<= y0 -1.8e+190)
t_7
(if (<= y0 -1e-133)
(* c (+ (- (* y0 t_5) (* i t_1)) (* y4 t_4)))
(if (<= y0 -7.2e-277)
(* b (+ (+ (* a t_1) (* y4 t_2)) (* y0 t_6)))
(if (<= y0 5.5e-85)
(* y4 (+ (+ (* b t_2) (* y1 (- (* k y2) (* j y3)))) (* c t_4)))
(if (<= y0 1.35e-6)
t_3
(if (<= y0 5.9e+38)
(* (- (* t c) (* k y1)) (* z i))
(if (<= y0 1.35e+124) t_3 t_7)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (x * y) - (z * t);
double t_2 = (t * j) - (y * k);
double t_3 = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
double t_4 = (y * y3) - (t * y2);
double t_5 = (x * y2) - (z * y3);
double t_6 = (z * k) - (x * j);
double t_7 = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6));
double tmp;
if (y0 <= -1.8e+190) {
tmp = t_7;
} else if (y0 <= -1e-133) {
tmp = c * (((y0 * t_5) - (i * t_1)) + (y4 * t_4));
} else if (y0 <= -7.2e-277) {
tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6));
} else if (y0 <= 5.5e-85) {
tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_4));
} else if (y0 <= 1.35e-6) {
tmp = t_3;
} else if (y0 <= 5.9e+38) {
tmp = ((t * c) - (k * y1)) * (z * i);
} else if (y0 <= 1.35e+124) {
tmp = t_3;
} else {
tmp = t_7;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: t_7
real(8) :: tmp
t_1 = (x * y) - (z * t)
t_2 = (t * j) - (y * k)
t_3 = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))))
t_4 = (y * y3) - (t * y2)
t_5 = (x * y2) - (z * y3)
t_6 = (z * k) - (x * j)
t_7 = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6))
if (y0 <= (-1.8d+190)) then
tmp = t_7
else if (y0 <= (-1d-133)) then
tmp = c * (((y0 * t_5) - (i * t_1)) + (y4 * t_4))
else if (y0 <= (-7.2d-277)) then
tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6))
else if (y0 <= 5.5d-85) then
tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_4))
else if (y0 <= 1.35d-6) then
tmp = t_3
else if (y0 <= 5.9d+38) then
tmp = ((t * c) - (k * y1)) * (z * i)
else if (y0 <= 1.35d+124) then
tmp = t_3
else
tmp = t_7
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (x * y) - (z * t);
double t_2 = (t * j) - (y * k);
double t_3 = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4))));
double t_4 = (y * y3) - (t * y2);
double t_5 = (x * y2) - (z * y3);
double t_6 = (z * k) - (x * j);
double t_7 = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6));
double tmp;
if (y0 <= -1.8e+190) {
tmp = t_7;
} else if (y0 <= -1e-133) {
tmp = c * (((y0 * t_5) - (i * t_1)) + (y4 * t_4));
} else if (y0 <= -7.2e-277) {
tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6));
} else if (y0 <= 5.5e-85) {
tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_4));
} else if (y0 <= 1.35e-6) {
tmp = t_3;
} else if (y0 <= 5.9e+38) {
tmp = ((t * c) - (k * y1)) * (z * i);
} else if (y0 <= 1.35e+124) {
tmp = t_3;
} else {
tmp = t_7;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (x * y) - (z * t) t_2 = (t * j) - (y * k) t_3 = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))) t_4 = (y * y3) - (t * y2) t_5 = (x * y2) - (z * y3) t_6 = (z * k) - (x * j) t_7 = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6)) tmp = 0 if y0 <= -1.8e+190: tmp = t_7 elif y0 <= -1e-133: tmp = c * (((y0 * t_5) - (i * t_1)) + (y4 * t_4)) elif y0 <= -7.2e-277: tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6)) elif y0 <= 5.5e-85: tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_4)) elif y0 <= 1.35e-6: tmp = t_3 elif y0 <= 5.9e+38: tmp = ((t * c) - (k * y1)) * (z * i) elif y0 <= 1.35e+124: tmp = t_3 else: tmp = t_7 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(x * y) - Float64(z * t)) t_2 = Float64(Float64(t * j) - Float64(y * k)) t_3 = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))) t_4 = Float64(Float64(y * y3) - Float64(t * y2)) t_5 = Float64(Float64(x * y2) - Float64(z * y3)) t_6 = Float64(Float64(z * k) - Float64(x * j)) t_7 = Float64(y0 * Float64(Float64(Float64(c * t_5) + Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))) + Float64(b * t_6))) tmp = 0.0 if (y0 <= -1.8e+190) tmp = t_7; elseif (y0 <= -1e-133) tmp = Float64(c * Float64(Float64(Float64(y0 * t_5) - Float64(i * t_1)) + Float64(y4 * t_4))); elseif (y0 <= -7.2e-277) tmp = Float64(b * Float64(Float64(Float64(a * t_1) + Float64(y4 * t_2)) + Float64(y0 * t_6))); elseif (y0 <= 5.5e-85) tmp = Float64(y4 * Float64(Float64(Float64(b * t_2) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * t_4))); elseif (y0 <= 1.35e-6) tmp = t_3; elseif (y0 <= 5.9e+38) tmp = Float64(Float64(Float64(t * c) - Float64(k * y1)) * Float64(z * i)); elseif (y0 <= 1.35e+124) tmp = t_3; else tmp = t_7; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (x * y) - (z * t); t_2 = (t * j) - (y * k); t_3 = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * ((a * y5) - (c * y4)))); t_4 = (y * y3) - (t * y2); t_5 = (x * y2) - (z * y3); t_6 = (z * k) - (x * j); t_7 = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6)); tmp = 0.0; if (y0 <= -1.8e+190) tmp = t_7; elseif (y0 <= -1e-133) tmp = c * (((y0 * t_5) - (i * t_1)) + (y4 * t_4)); elseif (y0 <= -7.2e-277) tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6)); elseif (y0 <= 5.5e-85) tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_4)); elseif (y0 <= 1.35e-6) tmp = t_3; elseif (y0 <= 5.9e+38) tmp = ((t * c) - (k * y1)) * (z * i); elseif (y0 <= 1.35e+124) tmp = t_3; else tmp = t_7; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(y0 * N[(N[(N[(c * t$95$5), $MachinePrecision] + N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y0, -1.8e+190], t$95$7, If[LessEqual[y0, -1e-133], N[(c * N[(N[(N[(y0 * t$95$5), $MachinePrecision] - N[(i * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -7.2e-277], N[(b * N[(N[(N[(a * t$95$1), $MachinePrecision] + N[(y4 * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(y0 * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 5.5e-85], N[(y4 * N[(N[(N[(b * t$95$2), $MachinePrecision] + N[(y1 * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 1.35e-6], t$95$3, If[LessEqual[y0, 5.9e+38], N[(N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision] * N[(z * i), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 1.35e+124], t$95$3, t$95$7]]]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot y - z \cdot t\\
t_2 := t \cdot j - y \cdot k\\
t_3 := t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\
t_4 := y \cdot y3 - t \cdot y2\\
t_5 := x \cdot y2 - z \cdot y3\\
t_6 := z \cdot k - x \cdot j\\
t_7 := y0 \cdot \left(\left(c \cdot t\_5 + y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right) + b \cdot t\_6\right)\\
\mathbf{if}\;y0 \leq -1.8 \cdot 10^{+190}:\\
\;\;\;\;t\_7\\
\mathbf{elif}\;y0 \leq -1 \cdot 10^{-133}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot t\_5 - i \cdot t\_1\right) + y4 \cdot t\_4\right)\\
\mathbf{elif}\;y0 \leq -7.2 \cdot 10^{-277}:\\
\;\;\;\;b \cdot \left(\left(a \cdot t\_1 + y4 \cdot t\_2\right) + y0 \cdot t\_6\right)\\
\mathbf{elif}\;y0 \leq 5.5 \cdot 10^{-85}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_2 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot t\_4\right)\\
\mathbf{elif}\;y0 \leq 1.35 \cdot 10^{-6}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y0 \leq 5.9 \cdot 10^{+38}:\\
\;\;\;\;\left(t \cdot c - k \cdot y1\right) \cdot \left(z \cdot i\right)\\
\mathbf{elif}\;y0 \leq 1.35 \cdot 10^{+124}:\\
\;\;\;\;t\_3\\
\mathbf{else}:\\
\;\;\;\;t\_7\\
\end{array}
\end{array}
if y0 < -1.79999999999999989e190 or 1.34999999999999989e124 < y0 Initial program 22.5%
Taylor expanded in y0 around inf 62.9%
+-commutative62.9%
mul-1-neg62.9%
unsub-neg62.9%
*-commutative62.9%
*-commutative62.9%
*-commutative62.9%
*-commutative62.9%
Simplified62.9%
if -1.79999999999999989e190 < y0 < -1.0000000000000001e-133Initial program 28.8%
Taylor expanded in c around inf 52.3%
+-commutative52.3%
mul-1-neg52.3%
unsub-neg52.3%
*-commutative52.3%
*-commutative52.3%
*-commutative52.3%
*-commutative52.3%
Simplified52.3%
if -1.0000000000000001e-133 < y0 < -7.19999999999999968e-277Initial program 18.5%
Taylor expanded in b around inf 63.1%
if -7.19999999999999968e-277 < y0 < 5.4999999999999997e-85Initial program 29.7%
Taylor expanded in y4 around inf 62.5%
if 5.4999999999999997e-85 < y0 < 1.34999999999999999e-6 or 5.89999999999999981e38 < y0 < 1.34999999999999989e124Initial program 26.7%
Taylor expanded in t around inf 68.1%
+-commutative68.1%
mul-1-neg68.1%
unsub-neg68.1%
*-commutative68.1%
Simplified68.1%
if 1.34999999999999999e-6 < y0 < 5.89999999999999981e38Initial program 16.7%
Taylor expanded in i around -inf 67.2%
Taylor expanded in z around -inf 50.7%
mul-1-neg50.7%
associate-*r*50.7%
distribute-lft-neg-in50.7%
distribute-rgt-neg-in50.7%
*-commutative50.7%
Simplified50.7%
Final simplification60.2%
(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 (- (* a y5) (* c y4))))
(if (<= i -4e+132)
(* c (* i (- (* z t) (* x y))))
(if (<= i -6.5e-82)
(*
t
(+
(+ (* j (- (* b y4) (* i y5))) (* z (- (* c i) (* a b))))
(* y2 t_2)))
(if (<= i -8.5e-181)
(*
c
(+
(- (* y0 (- (* x y2) (* z y3))) (* i (- (* x y) (* z t))))
(* y4 (- (* y y3) (* t y2)))))
(if (<= i -4.3e-265)
(* b (* k (- (* z y0) (* y y4))))
(if (<= i 2.95e-304)
(* (* j y0) (- (* y3 y5) (* x b)))
(if (<= i 1.2e-140)
(* y2 (+ (+ (* k t_1) (* x (- (* c y0) (* a y1)))) (* t t_2)))
(if (<= i 4.8e+201)
(*
j
(-
(* x (- (* i y1) (* b y0)))
(+ (* y3 t_1) (* t (- (* i y5) (* b y4))))))
(* i (* k (- (* y y5) (* z y1)))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y1 * y4) - (y0 * y5);
double t_2 = (a * y5) - (c * y4);
double tmp;
if (i <= -4e+132) {
tmp = c * (i * ((z * t) - (x * y)));
} else if (i <= -6.5e-82) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2));
} else if (i <= -8.5e-181) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))));
} else if (i <= -4.3e-265) {
tmp = b * (k * ((z * y0) - (y * y4)));
} else if (i <= 2.95e-304) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (i <= 1.2e-140) {
tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_2));
} else if (i <= 4.8e+201) {
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * t_1) + (t * ((i * y5) - (b * y4)))));
} else {
tmp = i * (k * ((y * y5) - (z * y1)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (y1 * y4) - (y0 * y5)
t_2 = (a * y5) - (c * y4)
if (i <= (-4d+132)) then
tmp = c * (i * ((z * t) - (x * y)))
else if (i <= (-6.5d-82)) then
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2))
else if (i <= (-8.5d-181)) then
tmp = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))))
else if (i <= (-4.3d-265)) then
tmp = b * (k * ((z * y0) - (y * y4)))
else if (i <= 2.95d-304) then
tmp = (j * y0) * ((y3 * y5) - (x * b))
else if (i <= 1.2d-140) then
tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_2))
else if (i <= 4.8d+201) then
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * t_1) + (t * ((i * y5) - (b * y4)))))
else
tmp = i * (k * ((y * y5) - (z * y1)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y1 * y4) - (y0 * y5);
double t_2 = (a * y5) - (c * y4);
double tmp;
if (i <= -4e+132) {
tmp = c * (i * ((z * t) - (x * y)));
} else if (i <= -6.5e-82) {
tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2));
} else if (i <= -8.5e-181) {
tmp = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2))));
} else if (i <= -4.3e-265) {
tmp = b * (k * ((z * y0) - (y * y4)));
} else if (i <= 2.95e-304) {
tmp = (j * y0) * ((y3 * y5) - (x * b));
} else if (i <= 1.2e-140) {
tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_2));
} else if (i <= 4.8e+201) {
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * t_1) + (t * ((i * y5) - (b * y4)))));
} else {
tmp = i * (k * ((y * y5) - (z * y1)));
}
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 = (a * y5) - (c * y4) tmp = 0 if i <= -4e+132: tmp = c * (i * ((z * t) - (x * y))) elif i <= -6.5e-82: tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2)) elif i <= -8.5e-181: tmp = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2)))) elif i <= -4.3e-265: tmp = b * (k * ((z * y0) - (y * y4))) elif i <= 2.95e-304: tmp = (j * y0) * ((y3 * y5) - (x * b)) elif i <= 1.2e-140: tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_2)) elif i <= 4.8e+201: tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * t_1) + (t * ((i * y5) - (b * y4))))) else: tmp = i * (k * ((y * y5) - (z * y1))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y1 * y4) - Float64(y0 * y5)) t_2 = Float64(Float64(a * y5) - Float64(c * y4)) tmp = 0.0 if (i <= -4e+132) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); elseif (i <= -6.5e-82) tmp = Float64(t * Float64(Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(z * Float64(Float64(c * i) - Float64(a * b)))) + Float64(y2 * t_2))); elseif (i <= -8.5e-181) tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) - Float64(i * Float64(Float64(x * y) - Float64(z * t)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))); elseif (i <= -4.3e-265) tmp = Float64(b * Float64(k * Float64(Float64(z * y0) - Float64(y * y4)))); elseif (i <= 2.95e-304) tmp = Float64(Float64(j * y0) * Float64(Float64(y3 * y5) - Float64(x * b))); elseif (i <= 1.2e-140) tmp = Float64(y2 * Float64(Float64(Float64(k * t_1) + Float64(x * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(t * t_2))); elseif (i <= 4.8e+201) tmp = Float64(j * Float64(Float64(x * Float64(Float64(i * y1) - Float64(b * y0))) - Float64(Float64(y3 * t_1) + Float64(t * Float64(Float64(i * y5) - Float64(b * y4)))))); else tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (y1 * y4) - (y0 * y5); t_2 = (a * y5) - (c * y4); tmp = 0.0; if (i <= -4e+132) tmp = c * (i * ((z * t) - (x * y))); elseif (i <= -6.5e-82) tmp = t * (((j * ((b * y4) - (i * y5))) + (z * ((c * i) - (a * b)))) + (y2 * t_2)); elseif (i <= -8.5e-181) tmp = c * (((y0 * ((x * y2) - (z * y3))) - (i * ((x * y) - (z * t)))) + (y4 * ((y * y3) - (t * y2)))); elseif (i <= -4.3e-265) tmp = b * (k * ((z * y0) - (y * y4))); elseif (i <= 2.95e-304) tmp = (j * y0) * ((y3 * y5) - (x * b)); elseif (i <= 1.2e-140) tmp = y2 * (((k * t_1) + (x * ((c * y0) - (a * y1)))) + (t * t_2)); elseif (i <= 4.8e+201) tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * t_1) + (t * ((i * y5) - (b * y4))))); else tmp = i * (k * ((y * y5) - (z * y1))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[i, -4e+132], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -6.5e-82], N[(t * N[(N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -8.5e-181], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, -4.3e-265], N[(b * N[(k * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 2.95e-304], N[(N[(j * y0), $MachinePrecision] * N[(N[(y3 * y5), $MachinePrecision] - N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 1.2e-140], N[(y2 * N[(N[(N[(k * t$95$1), $MachinePrecision] + N[(x * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[i, 4.8e+201], N[(j * N[(N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y3 * t$95$1), $MachinePrecision] + N[(t * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y1 \cdot y4 - y0 \cdot y5\\
t_2 := a \cdot y5 - c \cdot y4\\
\mathbf{if}\;i \leq -4 \cdot 10^{+132}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{elif}\;i \leq -6.5 \cdot 10^{-82}:\\
\;\;\;\;t \cdot \left(\left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + z \cdot \left(c \cdot i - a \cdot b\right)\right) + y2 \cdot t\_2\right)\\
\mathbf{elif}\;i \leq -8.5 \cdot 10^{-181}:\\
\;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) - i \cdot \left(x \cdot y - z \cdot t\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;i \leq -4.3 \cdot 10^{-265}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
\mathbf{elif}\;i \leq 2.95 \cdot 10^{-304}:\\
\;\;\;\;\left(j \cdot y0\right) \cdot \left(y3 \cdot y5 - x \cdot b\right)\\
\mathbf{elif}\;i \leq 1.2 \cdot 10^{-140}:\\
\;\;\;\;y2 \cdot \left(\left(k \cdot t\_1 + x \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + t \cdot t\_2\right)\\
\mathbf{elif}\;i \leq 4.8 \cdot 10^{+201}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right) - \left(y3 \cdot t\_1 + t \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\end{array}
\end{array}
if i < -3.99999999999999996e132Initial program 18.5%
Taylor expanded in c around inf 41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
Simplified41.5%
Taylor expanded in i around inf 56.5%
if -3.99999999999999996e132 < i < -6.4999999999999997e-82Initial program 30.9%
Taylor expanded in t around inf 60.0%
+-commutative60.0%
mul-1-neg60.0%
unsub-neg60.0%
*-commutative60.0%
Simplified60.0%
if -6.4999999999999997e-82 < i < -8.49999999999999953e-181Initial program 19.0%
Taylor expanded in c around inf 57.4%
+-commutative57.4%
mul-1-neg57.4%
unsub-neg57.4%
*-commutative57.4%
*-commutative57.4%
*-commutative57.4%
*-commutative57.4%
Simplified57.4%
if -8.49999999999999953e-181 < i < -4.3000000000000001e-265Initial program 29.8%
Taylor expanded in k around inf 60.3%
+-commutative60.3%
mul-1-neg60.3%
unsub-neg60.3%
*-commutative60.3%
associate-*r*60.3%
neg-mul-160.3%
Simplified60.3%
Taylor expanded in b around -inf 65.8%
+-commutative65.8%
mul-1-neg65.8%
sub-neg65.8%
Simplified65.8%
if -4.3000000000000001e-265 < i < 2.95e-304Initial program 29.1%
Taylor expanded in j around inf 51.2%
+-commutative51.2%
mul-1-neg51.2%
unsub-neg51.2%
*-commutative51.2%
Simplified51.2%
Taylor expanded in y0 around -inf 58.6%
associate-*r*58.6%
+-commutative58.6%
mul-1-neg58.6%
unsub-neg58.6%
*-commutative58.6%
*-commutative58.6%
Simplified58.6%
if 2.95e-304 < i < 1.19999999999999993e-140Initial program 28.0%
Taylor expanded in y2 around inf 64.1%
if 1.19999999999999993e-140 < i < 4.79999999999999985e201Initial program 25.9%
Taylor expanded in j around inf 49.5%
+-commutative49.5%
mul-1-neg49.5%
unsub-neg49.5%
*-commutative49.5%
Simplified49.5%
if 4.79999999999999985e201 < i Initial program 19.0%
Taylor expanded in k around inf 33.4%
+-commutative33.4%
mul-1-neg33.4%
unsub-neg33.4%
*-commutative33.4%
associate-*r*33.4%
neg-mul-133.4%
Simplified33.4%
Taylor expanded in i around inf 69.9%
mul-1-neg69.9%
+-commutative69.9%
mul-1-neg69.9%
sub-neg69.9%
Simplified69.9%
Final simplification57.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* i (* k (- (* y y5) (* z y1)))))
(t_2 (* y4 (- (* t j) (* y k))))
(t_3
(*
b
(+ (+ (* a (- (* x y) (* z t))) t_2) (* y0 (- (* z k) (* x j)))))))
(if (<= y4 -3.8e+169)
(* b t_2)
(if (<= y4 -1.35e-63)
t_3
(if (<= y4 -2.4e-105)
t_1
(if (<= y4 -1.25e-141)
t_3
(if (<= y4 -9e-218)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= y4 -1.02e-270)
t_3
(if (<= y4 1.15e-80)
(* c (* i (- (* z t) (* x y))))
(if (<= y4 1.7e+50)
t_1
(*
y4
(+ (* b (* t j)) (* c (- (* y y3) (* t 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 = i * (k * ((y * y5) - (z * y1)));
double t_2 = y4 * ((t * j) - (y * k));
double t_3 = b * (((a * ((x * y) - (z * t))) + t_2) + (y0 * ((z * k) - (x * j))));
double tmp;
if (y4 <= -3.8e+169) {
tmp = b * t_2;
} else if (y4 <= -1.35e-63) {
tmp = t_3;
} else if (y4 <= -2.4e-105) {
tmp = t_1;
} else if (y4 <= -1.25e-141) {
tmp = t_3;
} else if (y4 <= -9e-218) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= -1.02e-270) {
tmp = t_3;
} else if (y4 <= 1.15e-80) {
tmp = c * (i * ((z * t) - (x * y)));
} else if (y4 <= 1.7e+50) {
tmp = t_1;
} else {
tmp = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * 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) :: tmp
t_1 = i * (k * ((y * y5) - (z * y1)))
t_2 = y4 * ((t * j) - (y * k))
t_3 = b * (((a * ((x * y) - (z * t))) + t_2) + (y0 * ((z * k) - (x * j))))
if (y4 <= (-3.8d+169)) then
tmp = b * t_2
else if (y4 <= (-1.35d-63)) then
tmp = t_3
else if (y4 <= (-2.4d-105)) then
tmp = t_1
else if (y4 <= (-1.25d-141)) then
tmp = t_3
else if (y4 <= (-9d-218)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (y4 <= (-1.02d-270)) then
tmp = t_3
else if (y4 <= 1.15d-80) then
tmp = c * (i * ((z * t) - (x * y)))
else if (y4 <= 1.7d+50) then
tmp = t_1
else
tmp = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * 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 = i * (k * ((y * y5) - (z * y1)));
double t_2 = y4 * ((t * j) - (y * k));
double t_3 = b * (((a * ((x * y) - (z * t))) + t_2) + (y0 * ((z * k) - (x * j))));
double tmp;
if (y4 <= -3.8e+169) {
tmp = b * t_2;
} else if (y4 <= -1.35e-63) {
tmp = t_3;
} else if (y4 <= -2.4e-105) {
tmp = t_1;
} else if (y4 <= -1.25e-141) {
tmp = t_3;
} else if (y4 <= -9e-218) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= -1.02e-270) {
tmp = t_3;
} else if (y4 <= 1.15e-80) {
tmp = c * (i * ((z * t) - (x * y)));
} else if (y4 <= 1.7e+50) {
tmp = t_1;
} else {
tmp = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * y2))));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = i * (k * ((y * y5) - (z * y1))) t_2 = y4 * ((t * j) - (y * k)) t_3 = b * (((a * ((x * y) - (z * t))) + t_2) + (y0 * ((z * k) - (x * j)))) tmp = 0 if y4 <= -3.8e+169: tmp = b * t_2 elif y4 <= -1.35e-63: tmp = t_3 elif y4 <= -2.4e-105: tmp = t_1 elif y4 <= -1.25e-141: tmp = t_3 elif y4 <= -9e-218: tmp = c * (y0 * ((x * y2) - (z * y3))) elif y4 <= -1.02e-270: tmp = t_3 elif y4 <= 1.15e-80: tmp = c * (i * ((z * t) - (x * y))) elif y4 <= 1.7e+50: tmp = t_1 else: tmp = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * y2)))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))) t_2 = Float64(y4 * Float64(Float64(t * j) - Float64(y * k))) t_3 = Float64(b * Float64(Float64(Float64(a * Float64(Float64(x * y) - Float64(z * t))) + t_2) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) tmp = 0.0 if (y4 <= -3.8e+169) tmp = Float64(b * t_2); elseif (y4 <= -1.35e-63) tmp = t_3; elseif (y4 <= -2.4e-105) tmp = t_1; elseif (y4 <= -1.25e-141) tmp = t_3; elseif (y4 <= -9e-218) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (y4 <= -1.02e-270) tmp = t_3; elseif (y4 <= 1.15e-80) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); elseif (y4 <= 1.7e+50) tmp = t_1; else tmp = Float64(y4 * Float64(Float64(b * Float64(t * j)) + Float64(c * Float64(Float64(y * y3) - Float64(t * 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 = i * (k * ((y * y5) - (z * y1))); t_2 = y4 * ((t * j) - (y * k)); t_3 = b * (((a * ((x * y) - (z * t))) + t_2) + (y0 * ((z * k) - (x * j)))); tmp = 0.0; if (y4 <= -3.8e+169) tmp = b * t_2; elseif (y4 <= -1.35e-63) tmp = t_3; elseif (y4 <= -2.4e-105) tmp = t_1; elseif (y4 <= -1.25e-141) tmp = t_3; elseif (y4 <= -9e-218) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (y4 <= -1.02e-270) tmp = t_3; elseif (y4 <= 1.15e-80) tmp = c * (i * ((z * t) - (x * y))); elseif (y4 <= 1.7e+50) tmp = t_1; else tmp = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * 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[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(b * N[(N[(N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -3.8e+169], N[(b * t$95$2), $MachinePrecision], If[LessEqual[y4, -1.35e-63], t$95$3, If[LessEqual[y4, -2.4e-105], t$95$1, If[LessEqual[y4, -1.25e-141], t$95$3, If[LessEqual[y4, -9e-218], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1.02e-270], t$95$3, If[LessEqual[y4, 1.15e-80], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.7e+50], t$95$1, N[(y4 * N[(N[(b * N[(t * j), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
t_2 := y4 \cdot \left(t \cdot j - y \cdot k\right)\\
t_3 := b \cdot \left(\left(a \cdot \left(x \cdot y - z \cdot t\right) + t\_2\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{if}\;y4 \leq -3.8 \cdot 10^{+169}:\\
\;\;\;\;b \cdot t\_2\\
\mathbf{elif}\;y4 \leq -1.35 \cdot 10^{-63}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y4 \leq -2.4 \cdot 10^{-105}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -1.25 \cdot 10^{-141}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y4 \leq -9 \cdot 10^{-218}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;y4 \leq -1.02 \cdot 10^{-270}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y4 \leq 1.15 \cdot 10^{-80}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{elif}\;y4 \leq 1.7 \cdot 10^{+50}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;y4 \cdot \left(b \cdot \left(t \cdot j\right) + c \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\end{array}
\end{array}
if y4 < -3.79999999999999992e169Initial program 9.7%
Taylor expanded in b around inf 32.3%
Taylor expanded in y4 around inf 55.3%
if -3.79999999999999992e169 < y4 < -1.3500000000000001e-63 or -2.40000000000000015e-105 < y4 < -1.25e-141 or -8.99999999999999953e-218 < y4 < -1.02e-270Initial program 30.4%
Taylor expanded in b around inf 51.6%
if -1.3500000000000001e-63 < y4 < -2.40000000000000015e-105 or 1.1499999999999999e-80 < y4 < 1.6999999999999999e50Initial program 23.0%
Taylor expanded in k around inf 49.4%
+-commutative49.4%
mul-1-neg49.4%
unsub-neg49.4%
*-commutative49.4%
associate-*r*49.4%
neg-mul-149.4%
Simplified49.4%
Taylor expanded in i around inf 54.7%
mul-1-neg54.7%
+-commutative54.7%
mul-1-neg54.7%
sub-neg54.7%
Simplified54.7%
if -1.25e-141 < y4 < -8.99999999999999953e-218Initial program 30.0%
Taylor expanded in c around inf 45.3%
+-commutative45.3%
mul-1-neg45.3%
unsub-neg45.3%
*-commutative45.3%
*-commutative45.3%
*-commutative45.3%
*-commutative45.3%
Simplified45.3%
Taylor expanded in y0 around inf 55.7%
if -1.02e-270 < y4 < 1.1499999999999999e-80Initial program 24.3%
Taylor expanded in c around inf 36.7%
+-commutative36.7%
mul-1-neg36.7%
unsub-neg36.7%
*-commutative36.7%
*-commutative36.7%
*-commutative36.7%
*-commutative36.7%
Simplified36.7%
Taylor expanded in i around inf 60.2%
if 1.6999999999999999e50 < y4 Initial program 29.6%
Taylor expanded in y4 around inf 53.2%
Taylor expanded in t around inf 59.3%
Final simplification55.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y0 (- (* x y2) (* z y3))))
(t_2 (- (* x y) (* z t)))
(t_3 (* c (+ (- t_1 (* i t_2)) (* y4 (- (* y y3) (* t y2))))))
(t_4
(*
b
(+
(+ (* a t_2) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j)))))))
(if (<= y0 -4.6e+192)
(* b (* z (- (* k y0) (* t a))))
(if (<= y0 -6.5e-131)
t_3
(if (<= y0 -1.8e-272)
t_4
(if (<= y0 7.2e-208)
t_3
(if (<= y0 1.12e-90)
(* y4 (- (* k (* y1 y2)) (/ (* (* z y1) (* i k)) y4)))
(if (<= y0 2.6e-36)
t_4
(if (<= y0 2.7e+48)
(* i (* k (- (* y y5) (* z y1))))
(* c t_1))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * ((x * y2) - (z * y3));
double t_2 = (x * y) - (z * t);
double t_3 = c * ((t_1 - (i * t_2)) + (y4 * ((y * y3) - (t * y2))));
double t_4 = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double tmp;
if (y0 <= -4.6e+192) {
tmp = b * (z * ((k * y0) - (t * a)));
} else if (y0 <= -6.5e-131) {
tmp = t_3;
} else if (y0 <= -1.8e-272) {
tmp = t_4;
} else if (y0 <= 7.2e-208) {
tmp = t_3;
} else if (y0 <= 1.12e-90) {
tmp = y4 * ((k * (y1 * y2)) - (((z * y1) * (i * k)) / y4));
} else if (y0 <= 2.6e-36) {
tmp = t_4;
} else if (y0 <= 2.7e+48) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else {
tmp = c * 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 = y0 * ((x * y2) - (z * y3))
t_2 = (x * y) - (z * t)
t_3 = c * ((t_1 - (i * t_2)) + (y4 * ((y * y3) - (t * y2))))
t_4 = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
if (y0 <= (-4.6d+192)) then
tmp = b * (z * ((k * y0) - (t * a)))
else if (y0 <= (-6.5d-131)) then
tmp = t_3
else if (y0 <= (-1.8d-272)) then
tmp = t_4
else if (y0 <= 7.2d-208) then
tmp = t_3
else if (y0 <= 1.12d-90) then
tmp = y4 * ((k * (y1 * y2)) - (((z * y1) * (i * k)) / y4))
else if (y0 <= 2.6d-36) then
tmp = t_4
else if (y0 <= 2.7d+48) then
tmp = i * (k * ((y * y5) - (z * y1)))
else
tmp = c * t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = y0 * ((x * y2) - (z * y3));
double t_2 = (x * y) - (z * t);
double t_3 = c * ((t_1 - (i * t_2)) + (y4 * ((y * y3) - (t * y2))));
double t_4 = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
double tmp;
if (y0 <= -4.6e+192) {
tmp = b * (z * ((k * y0) - (t * a)));
} else if (y0 <= -6.5e-131) {
tmp = t_3;
} else if (y0 <= -1.8e-272) {
tmp = t_4;
} else if (y0 <= 7.2e-208) {
tmp = t_3;
} else if (y0 <= 1.12e-90) {
tmp = y4 * ((k * (y1 * y2)) - (((z * y1) * (i * k)) / y4));
} else if (y0 <= 2.6e-36) {
tmp = t_4;
} else if (y0 <= 2.7e+48) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else {
tmp = c * t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = y0 * ((x * y2) - (z * y3)) t_2 = (x * y) - (z * t) t_3 = c * ((t_1 - (i * t_2)) + (y4 * ((y * y3) - (t * y2)))) t_4 = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) tmp = 0 if y0 <= -4.6e+192: tmp = b * (z * ((k * y0) - (t * a))) elif y0 <= -6.5e-131: tmp = t_3 elif y0 <= -1.8e-272: tmp = t_4 elif y0 <= 7.2e-208: tmp = t_3 elif y0 <= 1.12e-90: tmp = y4 * ((k * (y1 * y2)) - (((z * y1) * (i * k)) / y4)) elif y0 <= 2.6e-36: tmp = t_4 elif y0 <= 2.7e+48: tmp = i * (k * ((y * y5) - (z * y1))) else: tmp = c * t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) t_2 = Float64(Float64(x * y) - Float64(z * t)) t_3 = Float64(c * Float64(Float64(t_1 - Float64(i * t_2)) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))) t_4 = Float64(b * Float64(Float64(Float64(a * t_2) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))) tmp = 0.0 if (y0 <= -4.6e+192) tmp = Float64(b * Float64(z * Float64(Float64(k * y0) - Float64(t * a)))); elseif (y0 <= -6.5e-131) tmp = t_3; elseif (y0 <= -1.8e-272) tmp = t_4; elseif (y0 <= 7.2e-208) tmp = t_3; elseif (y0 <= 1.12e-90) tmp = Float64(y4 * Float64(Float64(k * Float64(y1 * y2)) - Float64(Float64(Float64(z * y1) * Float64(i * k)) / y4))); elseif (y0 <= 2.6e-36) tmp = t_4; elseif (y0 <= 2.7e+48) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); else tmp = Float64(c * t_1); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = y0 * ((x * y2) - (z * y3)); t_2 = (x * y) - (z * t); t_3 = c * ((t_1 - (i * t_2)) + (y4 * ((y * y3) - (t * y2)))); t_4 = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); tmp = 0.0; if (y0 <= -4.6e+192) tmp = b * (z * ((k * y0) - (t * a))); elseif (y0 <= -6.5e-131) tmp = t_3; elseif (y0 <= -1.8e-272) tmp = t_4; elseif (y0 <= 7.2e-208) tmp = t_3; elseif (y0 <= 1.12e-90) tmp = y4 * ((k * (y1 * y2)) - (((z * y1) * (i * k)) / y4)); elseif (y0 <= 2.6e-36) tmp = t_4; elseif (y0 <= 2.7e+48) tmp = i * (k * ((y * y5) - (z * y1))); else tmp = c * t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(c * N[(N[(t$95$1 - N[(i * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(b * N[(N[(N[(a * t$95$2), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y0, -4.6e+192], N[(b * N[(z * N[(N[(k * y0), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -6.5e-131], t$95$3, If[LessEqual[y0, -1.8e-272], t$95$4, If[LessEqual[y0, 7.2e-208], t$95$3, If[LessEqual[y0, 1.12e-90], N[(y4 * N[(N[(k * N[(y1 * y2), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(z * y1), $MachinePrecision] * N[(i * k), $MachinePrecision]), $MachinePrecision] / y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 2.6e-36], t$95$4, If[LessEqual[y0, 2.7e+48], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(c * t$95$1), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\\
t_2 := x \cdot y - z \cdot t\\
t_3 := c \cdot \left(\left(t\_1 - i \cdot t\_2\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
t_4 := b \cdot \left(\left(a \cdot t\_2 + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{if}\;y0 \leq -4.6 \cdot 10^{+192}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0 - t \cdot a\right)\right)\\
\mathbf{elif}\;y0 \leq -6.5 \cdot 10^{-131}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y0 \leq -1.8 \cdot 10^{-272}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y0 \leq 7.2 \cdot 10^{-208}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y0 \leq 1.12 \cdot 10^{-90}:\\
\;\;\;\;y4 \cdot \left(k \cdot \left(y1 \cdot y2\right) - \frac{\left(z \cdot y1\right) \cdot \left(i \cdot k\right)}{y4}\right)\\
\mathbf{elif}\;y0 \leq 2.6 \cdot 10^{-36}:\\
\;\;\;\;t\_4\\
\mathbf{elif}\;y0 \leq 2.7 \cdot 10^{+48}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{else}:\\
\;\;\;\;c \cdot t\_1\\
\end{array}
\end{array}
if y0 < -4.5999999999999999e192Initial program 13.6%
Taylor expanded in b around inf 32.0%
Taylor expanded in z around -inf 59.4%
associate-*r*59.4%
neg-mul-159.4%
Simplified59.4%
if -4.5999999999999999e192 < y0 < -6.5000000000000002e-131 or -1.79999999999999984e-272 < y0 < 7.1999999999999997e-208Initial program 28.2%
Taylor expanded in c around inf 55.8%
+-commutative55.8%
mul-1-neg55.8%
unsub-neg55.8%
*-commutative55.8%
*-commutative55.8%
*-commutative55.8%
*-commutative55.8%
Simplified55.8%
if -6.5000000000000002e-131 < y0 < -1.79999999999999984e-272 or 1.12e-90 < y0 < 2.6e-36Initial program 24.6%
Taylor expanded in b around inf 66.1%
if 7.1999999999999997e-208 < y0 < 1.12e-90Initial program 27.2%
Taylor expanded in k around inf 31.6%
+-commutative31.6%
mul-1-neg31.6%
unsub-neg31.6%
*-commutative31.6%
associate-*r*31.6%
neg-mul-131.6%
Simplified31.6%
Taylor expanded in y1 around inf 39.3%
Taylor expanded in y4 around inf 38.8%
+-commutative38.8%
mul-1-neg38.8%
unsub-neg38.8%
associate-*r*42.3%
Simplified42.3%
if 2.6e-36 < y0 < 2.70000000000000004e48Initial program 33.3%
Taylor expanded in k around inf 48.0%
+-commutative48.0%
mul-1-neg48.0%
unsub-neg48.0%
*-commutative48.0%
associate-*r*48.0%
neg-mul-148.0%
Simplified48.0%
Taylor expanded in i around inf 48.8%
mul-1-neg48.8%
+-commutative48.8%
mul-1-neg48.8%
sub-neg48.8%
Simplified48.8%
if 2.70000000000000004e48 < y0 Initial program 22.4%
Taylor expanded in c around inf 41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
Simplified41.5%
Taylor expanded in y0 around inf 55.9%
Final simplification55.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* c (* i (- (* z t) (* x y)))))
(t_2 (* b (* y4 (- (* t j) (* y k))))))
(if (<= y4 -3.6e+80)
t_2
(if (<= y4 -1.56e-27)
(* (* b j) (* t y4))
(if (<= y4 -2.15e-75)
(* i (* z (* k (- y1))))
(if (<= y4 -9.8e-104)
t_1
(if (<= y4 -2.3e-220)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= y4 1.1e-80)
t_1
(if (<= y4 1.5e-14)
(* i (* k (- (* z y1))))
(if (or (<= y4 4e+203) (not (<= y4 4.8e+254)))
(* c (* y4 (- (* y y3) (* t y2))))
t_2))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = c * (i * ((z * t) - (x * y)));
double t_2 = b * (y4 * ((t * j) - (y * k)));
double tmp;
if (y4 <= -3.6e+80) {
tmp = t_2;
} else if (y4 <= -1.56e-27) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -2.15e-75) {
tmp = i * (z * (k * -y1));
} else if (y4 <= -9.8e-104) {
tmp = t_1;
} else if (y4 <= -2.3e-220) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= 1.1e-80) {
tmp = t_1;
} else if (y4 <= 1.5e-14) {
tmp = i * (k * -(z * y1));
} else if ((y4 <= 4e+203) || !(y4 <= 4.8e+254)) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = c * (i * ((z * t) - (x * y)))
t_2 = b * (y4 * ((t * j) - (y * k)))
if (y4 <= (-3.6d+80)) then
tmp = t_2
else if (y4 <= (-1.56d-27)) then
tmp = (b * j) * (t * y4)
else if (y4 <= (-2.15d-75)) then
tmp = i * (z * (k * -y1))
else if (y4 <= (-9.8d-104)) then
tmp = t_1
else if (y4 <= (-2.3d-220)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (y4 <= 1.1d-80) then
tmp = t_1
else if (y4 <= 1.5d-14) then
tmp = i * (k * -(z * y1))
else if ((y4 <= 4d+203) .or. (.not. (y4 <= 4.8d+254))) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = c * (i * ((z * t) - (x * y)));
double t_2 = b * (y4 * ((t * j) - (y * k)));
double tmp;
if (y4 <= -3.6e+80) {
tmp = t_2;
} else if (y4 <= -1.56e-27) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -2.15e-75) {
tmp = i * (z * (k * -y1));
} else if (y4 <= -9.8e-104) {
tmp = t_1;
} else if (y4 <= -2.3e-220) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= 1.1e-80) {
tmp = t_1;
} else if (y4 <= 1.5e-14) {
tmp = i * (k * -(z * y1));
} else if ((y4 <= 4e+203) || !(y4 <= 4.8e+254)) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = c * (i * ((z * t) - (x * y))) t_2 = b * (y4 * ((t * j) - (y * k))) tmp = 0 if y4 <= -3.6e+80: tmp = t_2 elif y4 <= -1.56e-27: tmp = (b * j) * (t * y4) elif y4 <= -2.15e-75: tmp = i * (z * (k * -y1)) elif y4 <= -9.8e-104: tmp = t_1 elif y4 <= -2.3e-220: tmp = c * (y0 * ((x * y2) - (z * y3))) elif y4 <= 1.1e-80: tmp = t_1 elif y4 <= 1.5e-14: tmp = i * (k * -(z * y1)) elif (y4 <= 4e+203) or not (y4 <= 4.8e+254): tmp = c * (y4 * ((y * y3) - (t * y2))) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))) t_2 = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) tmp = 0.0 if (y4 <= -3.6e+80) tmp = t_2; elseif (y4 <= -1.56e-27) tmp = Float64(Float64(b * j) * Float64(t * y4)); elseif (y4 <= -2.15e-75) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); elseif (y4 <= -9.8e-104) tmp = t_1; elseif (y4 <= -2.3e-220) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (y4 <= 1.1e-80) tmp = t_1; elseif (y4 <= 1.5e-14) tmp = Float64(i * Float64(k * Float64(-Float64(z * y1)))); elseif ((y4 <= 4e+203) || !(y4 <= 4.8e+254)) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = c * (i * ((z * t) - (x * y))); t_2 = b * (y4 * ((t * j) - (y * k))); tmp = 0.0; if (y4 <= -3.6e+80) tmp = t_2; elseif (y4 <= -1.56e-27) tmp = (b * j) * (t * y4); elseif (y4 <= -2.15e-75) tmp = i * (z * (k * -y1)); elseif (y4 <= -9.8e-104) tmp = t_1; elseif (y4 <= -2.3e-220) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (y4 <= 1.1e-80) tmp = t_1; elseif (y4 <= 1.5e-14) tmp = i * (k * -(z * y1)); elseif ((y4 <= 4e+203) || ~((y4 <= 4.8e+254))) tmp = c * (y4 * ((y * y3) - (t * y2))); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -3.6e+80], t$95$2, If[LessEqual[y4, -1.56e-27], N[(N[(b * j), $MachinePrecision] * N[(t * y4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.15e-75], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -9.8e-104], t$95$1, If[LessEqual[y4, -2.3e-220], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.1e-80], t$95$1, If[LessEqual[y4, 1.5e-14], N[(i * N[(k * (-N[(z * y1), $MachinePrecision])), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y4, 4e+203], N[Not[LessEqual[y4, 4.8e+254]], $MachinePrecision]], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
t_2 := b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{if}\;y4 \leq -3.6 \cdot 10^{+80}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq -1.56 \cdot 10^{-27}:\\
\;\;\;\;\left(b \cdot j\right) \cdot \left(t \cdot y4\right)\\
\mathbf{elif}\;y4 \leq -2.15 \cdot 10^{-75}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;y4 \leq -9.8 \cdot 10^{-104}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -2.3 \cdot 10^{-220}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;y4 \leq 1.1 \cdot 10^{-80}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 1.5 \cdot 10^{-14}:\\
\;\;\;\;i \cdot \left(k \cdot \left(-z \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 4 \cdot 10^{+203} \lor \neg \left(y4 \leq 4.8 \cdot 10^{+254}\right):\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y4 < -3.59999999999999995e80 or 4e203 < y4 < 4.7999999999999997e254Initial program 15.1%
Taylor expanded in b around inf 39.8%
Taylor expanded in y4 around inf 54.7%
if -3.59999999999999995e80 < y4 < -1.56e-27Initial program 32.0%
Taylor expanded in j around inf 39.9%
+-commutative39.9%
mul-1-neg39.9%
unsub-neg39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in t around inf 26.5%
Taylor expanded in b around inf 27.2%
associate-*r*37.3%
*-commutative37.3%
*-commutative37.3%
Simplified37.3%
if -1.56e-27 < y4 < -2.15e-75Initial program 41.7%
Taylor expanded in k around inf 58.7%
+-commutative58.7%
mul-1-neg58.7%
unsub-neg58.7%
*-commutative58.7%
associate-*r*58.7%
neg-mul-158.7%
Simplified58.7%
Taylor expanded in y1 around inf 43.8%
Taylor expanded in y2 around 0 19.3%
mul-1-neg19.3%
*-commutative19.3%
distribute-lft-neg-in19.3%
associate-*r*35.3%
distribute-lft-neg-in35.3%
*-commutative35.3%
distribute-lft-neg-in35.3%
Simplified35.3%
if -2.15e-75 < y4 < -9.8000000000000006e-104 or -2.29999999999999981e-220 < y4 < 1.10000000000000005e-80Initial program 26.5%
Taylor expanded in c around inf 41.0%
+-commutative41.0%
mul-1-neg41.0%
unsub-neg41.0%
*-commutative41.0%
*-commutative41.0%
*-commutative41.0%
*-commutative41.0%
Simplified41.0%
Taylor expanded in i around inf 53.4%
if -9.8000000000000006e-104 < y4 < -2.29999999999999981e-220Initial program 26.9%
Taylor expanded in c around inf 39.4%
+-commutative39.4%
mul-1-neg39.4%
unsub-neg39.4%
*-commutative39.4%
*-commutative39.4%
*-commutative39.4%
*-commutative39.4%
Simplified39.4%
Taylor expanded in y0 around inf 47.1%
if 1.10000000000000005e-80 < y4 < 1.4999999999999999e-14Initial program 15.3%
Taylor expanded in k around inf 54.3%
+-commutative54.3%
mul-1-neg54.3%
unsub-neg54.3%
*-commutative54.3%
associate-*r*54.3%
neg-mul-154.3%
Simplified54.3%
Taylor expanded in y1 around inf 32.6%
Taylor expanded in y2 around 0 47.3%
associate-*r*47.3%
neg-mul-147.3%
Simplified47.3%
if 1.4999999999999999e-14 < y4 < 4e203 or 4.7999999999999997e254 < y4 Initial program 31.5%
Taylor expanded in c around inf 53.5%
+-commutative53.5%
mul-1-neg53.5%
unsub-neg53.5%
*-commutative53.5%
*-commutative53.5%
*-commutative53.5%
*-commutative53.5%
Simplified53.5%
Taylor expanded in y4 around inf 46.2%
Final simplification48.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* y (- (* i y5) (* b y4)))))
(t_2 (* c (* y4 (- (* y y3) (* t y2))))))
(if (<= y4 -3.4e+80)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y4 -3e-27)
(* (* b j) (* t y4))
(if (<= y4 -6.7e-155)
t_1
(if (<= y4 2.95e-80)
(* c (* i (- (* z t) (* x y))))
(if (<= y4 5.2e+78)
(* j (* y3 (- (* y0 y5) (* y1 y4))))
(if (<= y4 6.3e+125)
t_2
(if (<= y4 1.65e+165)
(* k (* y1 (- (* y2 y4) (* z i))))
(if (or (<= y4 4.7e+209) (not (<= y4 4.6e+254)))
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 = k * (y * ((i * y5) - (b * y4)));
double t_2 = c * (y4 * ((y * y3) - (t * y2)));
double tmp;
if (y4 <= -3.4e+80) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -3e-27) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -6.7e-155) {
tmp = t_1;
} else if (y4 <= 2.95e-80) {
tmp = c * (i * ((z * t) - (x * y)));
} else if (y4 <= 5.2e+78) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y4 <= 6.3e+125) {
tmp = t_2;
} else if (y4 <= 1.65e+165) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if ((y4 <= 4.7e+209) || !(y4 <= 4.6e+254)) {
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 = k * (y * ((i * y5) - (b * y4)))
t_2 = c * (y4 * ((y * y3) - (t * y2)))
if (y4 <= (-3.4d+80)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y4 <= (-3d-27)) then
tmp = (b * j) * (t * y4)
else if (y4 <= (-6.7d-155)) then
tmp = t_1
else if (y4 <= 2.95d-80) then
tmp = c * (i * ((z * t) - (x * y)))
else if (y4 <= 5.2d+78) then
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)))
else if (y4 <= 6.3d+125) then
tmp = t_2
else if (y4 <= 1.65d+165) then
tmp = k * (y1 * ((y2 * y4) - (z * i)))
else if ((y4 <= 4.7d+209) .or. (.not. (y4 <= 4.6d+254))) 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 = k * (y * ((i * y5) - (b * y4)));
double t_2 = c * (y4 * ((y * y3) - (t * y2)));
double tmp;
if (y4 <= -3.4e+80) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -3e-27) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -6.7e-155) {
tmp = t_1;
} else if (y4 <= 2.95e-80) {
tmp = c * (i * ((z * t) - (x * y)));
} else if (y4 <= 5.2e+78) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y4 <= 6.3e+125) {
tmp = t_2;
} else if (y4 <= 1.65e+165) {
tmp = k * (y1 * ((y2 * y4) - (z * i)));
} else if ((y4 <= 4.7e+209) || !(y4 <= 4.6e+254)) {
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 = k * (y * ((i * y5) - (b * y4))) t_2 = c * (y4 * ((y * y3) - (t * y2))) tmp = 0 if y4 <= -3.4e+80: tmp = b * (y4 * ((t * j) - (y * k))) elif y4 <= -3e-27: tmp = (b * j) * (t * y4) elif y4 <= -6.7e-155: tmp = t_1 elif y4 <= 2.95e-80: tmp = c * (i * ((z * t) - (x * y))) elif y4 <= 5.2e+78: tmp = j * (y3 * ((y0 * y5) - (y1 * y4))) elif y4 <= 6.3e+125: tmp = t_2 elif y4 <= 1.65e+165: tmp = k * (y1 * ((y2 * y4) - (z * i))) elif (y4 <= 4.7e+209) or not (y4 <= 4.6e+254): 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(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) t_2 = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))) tmp = 0.0 if (y4 <= -3.4e+80) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y4 <= -3e-27) tmp = Float64(Float64(b * j) * Float64(t * y4)); elseif (y4 <= -6.7e-155) tmp = t_1; elseif (y4 <= 2.95e-80) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); elseif (y4 <= 5.2e+78) tmp = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))); elseif (y4 <= 6.3e+125) tmp = t_2; elseif (y4 <= 1.65e+165) tmp = Float64(k * Float64(y1 * Float64(Float64(y2 * y4) - Float64(z * i)))); elseif ((y4 <= 4.7e+209) || !(y4 <= 4.6e+254)) 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 = k * (y * ((i * y5) - (b * y4))); t_2 = c * (y4 * ((y * y3) - (t * y2))); tmp = 0.0; if (y4 <= -3.4e+80) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y4 <= -3e-27) tmp = (b * j) * (t * y4); elseif (y4 <= -6.7e-155) tmp = t_1; elseif (y4 <= 2.95e-80) tmp = c * (i * ((z * t) - (x * y))); elseif (y4 <= 5.2e+78) tmp = j * (y3 * ((y0 * y5) - (y1 * y4))); elseif (y4 <= 6.3e+125) tmp = t_2; elseif (y4 <= 1.65e+165) tmp = k * (y1 * ((y2 * y4) - (z * i))); elseif ((y4 <= 4.7e+209) || ~((y4 <= 4.6e+254))) 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[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -3.4e+80], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -3e-27], N[(N[(b * j), $MachinePrecision] * N[(t * y4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -6.7e-155], t$95$1, If[LessEqual[y4, 2.95e-80], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 5.2e+78], N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 6.3e+125], t$95$2, If[LessEqual[y4, 1.65e+165], N[(k * N[(y1 * N[(N[(y2 * y4), $MachinePrecision] - N[(z * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[Or[LessEqual[y4, 4.7e+209], N[Not[LessEqual[y4, 4.6e+254]], $MachinePrecision]], t$95$2, t$95$1]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
t_2 := c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{if}\;y4 \leq -3.4 \cdot 10^{+80}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y4 \leq -3 \cdot 10^{-27}:\\
\;\;\;\;\left(b \cdot j\right) \cdot \left(t \cdot y4\right)\\
\mathbf{elif}\;y4 \leq -6.7 \cdot 10^{-155}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 2.95 \cdot 10^{-80}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{elif}\;y4 \leq 5.2 \cdot 10^{+78}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{elif}\;y4 \leq 6.3 \cdot 10^{+125}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq 1.65 \cdot 10^{+165}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4 - z \cdot i\right)\right)\\
\mathbf{elif}\;y4 \leq 4.7 \cdot 10^{+209} \lor \neg \left(y4 \leq 4.6 \cdot 10^{+254}\right):\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y4 < -3.39999999999999992e80Initial program 11.3%
Taylor expanded in b around inf 39.5%
Taylor expanded in y4 around inf 52.6%
if -3.39999999999999992e80 < y4 < -3.0000000000000001e-27Initial program 32.0%
Taylor expanded in j around inf 39.9%
+-commutative39.9%
mul-1-neg39.9%
unsub-neg39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in t around inf 26.5%
Taylor expanded in b around inf 27.2%
associate-*r*37.3%
*-commutative37.3%
*-commutative37.3%
Simplified37.3%
if -3.0000000000000001e-27 < y4 < -6.70000000000000028e-155 or 4.7000000000000001e209 < y4 < 4.59999999999999997e254Initial program 22.5%
Taylor expanded in k around inf 53.0%
+-commutative53.0%
mul-1-neg53.0%
unsub-neg53.0%
*-commutative53.0%
associate-*r*53.0%
neg-mul-153.0%
Simplified53.0%
Taylor expanded in y around inf 58.1%
if -6.70000000000000028e-155 < y4 < 2.95e-80Initial program 29.6%
Taylor expanded in c around inf 44.9%
+-commutative44.9%
mul-1-neg44.9%
unsub-neg44.9%
*-commutative44.9%
*-commutative44.9%
*-commutative44.9%
*-commutative44.9%
Simplified44.9%
Taylor expanded in i around inf 49.1%
if 2.95e-80 < y4 < 5.2e78Initial program 25.7%
Taylor expanded in j around inf 58.5%
+-commutative58.5%
mul-1-neg58.5%
unsub-neg58.5%
*-commutative58.5%
Simplified58.5%
Taylor expanded in y3 around inf 37.3%
*-commutative37.3%
Simplified37.3%
if 5.2e78 < y4 < 6.3000000000000002e125 or 1.6499999999999999e165 < y4 < 4.7000000000000001e209 or 4.59999999999999997e254 < y4 Initial program 35.7%
Taylor expanded in c around inf 64.6%
+-commutative64.6%
mul-1-neg64.6%
unsub-neg64.6%
*-commutative64.6%
*-commutative64.6%
*-commutative64.6%
*-commutative64.6%
Simplified64.6%
Taylor expanded in y4 around inf 68.9%
if 6.3000000000000002e125 < y4 < 1.6499999999999999e165Initial program 26.2%
Taylor expanded in k around inf 26.2%
+-commutative26.2%
mul-1-neg26.2%
unsub-neg26.2%
*-commutative26.2%
associate-*r*26.2%
neg-mul-126.2%
Simplified26.2%
Taylor expanded in y1 around inf 63.0%
Final simplification51.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* y3 (- (* y0 y5) (* y1 y4)))))
(t_2 (* k (* y2 (- (* y1 y4) (* y0 y5))))))
(if (<= y2 -9.5e+18)
t_2
(if (<= y2 -4e-189)
(* y0 (* b (- (* z k) (* x j))))
(if (<= y2 6.8e-223)
(* k (* y (- (* i y5) (* b y4))))
(if (<= y2 3.9e-185)
(* c (* y3 (- (* y y4) (* z y0))))
(if (<= y2 7.5e-158)
t_1
(if (<= y2 9.5e-132)
(* j (* t (- (* b y4) (* i y5))))
(if (<= y2 4.4e-41)
t_1
(if (<= y2 4.9e+135)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= y2 1.05e+234)
(* c (* i (- (* z t) (* x y))))
t_2)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (y3 * ((y0 * y5) - (y1 * y4)));
double t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double tmp;
if (y2 <= -9.5e+18) {
tmp = t_2;
} else if (y2 <= -4e-189) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= 6.8e-223) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 3.9e-185) {
tmp = c * (y3 * ((y * y4) - (z * y0)));
} else if (y2 <= 7.5e-158) {
tmp = t_1;
} else if (y2 <= 9.5e-132) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y2 <= 4.4e-41) {
tmp = t_1;
} else if (y2 <= 4.9e+135) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y2 <= 1.05e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = j * (y3 * ((y0 * y5) - (y1 * y4)))
t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)))
if (y2 <= (-9.5d+18)) then
tmp = t_2
else if (y2 <= (-4d-189)) then
tmp = y0 * (b * ((z * k) - (x * j)))
else if (y2 <= 6.8d-223) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (y2 <= 3.9d-185) then
tmp = c * (y3 * ((y * y4) - (z * y0)))
else if (y2 <= 7.5d-158) then
tmp = t_1
else if (y2 <= 9.5d-132) then
tmp = j * (t * ((b * y4) - (i * y5)))
else if (y2 <= 4.4d-41) then
tmp = t_1
else if (y2 <= 4.9d+135) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (y2 <= 1.05d+234) then
tmp = c * (i * ((z * t) - (x * y)))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (y3 * ((y0 * y5) - (y1 * y4)));
double t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double tmp;
if (y2 <= -9.5e+18) {
tmp = t_2;
} else if (y2 <= -4e-189) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= 6.8e-223) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 3.9e-185) {
tmp = c * (y3 * ((y * y4) - (z * y0)));
} else if (y2 <= 7.5e-158) {
tmp = t_1;
} else if (y2 <= 9.5e-132) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y2 <= 4.4e-41) {
tmp = t_1;
} else if (y2 <= 4.9e+135) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y2 <= 1.05e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (y3 * ((y0 * y5) - (y1 * y4))) t_2 = k * (y2 * ((y1 * y4) - (y0 * y5))) tmp = 0 if y2 <= -9.5e+18: tmp = t_2 elif y2 <= -4e-189: tmp = y0 * (b * ((z * k) - (x * j))) elif y2 <= 6.8e-223: tmp = k * (y * ((i * y5) - (b * y4))) elif y2 <= 3.9e-185: tmp = c * (y3 * ((y * y4) - (z * y0))) elif y2 <= 7.5e-158: tmp = t_1 elif y2 <= 9.5e-132: tmp = j * (t * ((b * y4) - (i * y5))) elif y2 <= 4.4e-41: tmp = t_1 elif y2 <= 4.9e+135: tmp = c * (y4 * ((y * y3) - (t * y2))) elif y2 <= 1.05e+234: tmp = c * (i * ((z * t) - (x * y))) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) t_2 = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) tmp = 0.0 if (y2 <= -9.5e+18) tmp = t_2; elseif (y2 <= -4e-189) tmp = Float64(y0 * Float64(b * Float64(Float64(z * k) - Float64(x * j)))); elseif (y2 <= 6.8e-223) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (y2 <= 3.9e-185) tmp = Float64(c * Float64(y3 * Float64(Float64(y * y4) - Float64(z * y0)))); elseif (y2 <= 7.5e-158) tmp = t_1; elseif (y2 <= 9.5e-132) tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))); elseif (y2 <= 4.4e-41) tmp = t_1; elseif (y2 <= 4.9e+135) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (y2 <= 1.05e+234) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * (y3 * ((y0 * y5) - (y1 * y4))); t_2 = k * (y2 * ((y1 * y4) - (y0 * y5))); tmp = 0.0; if (y2 <= -9.5e+18) tmp = t_2; elseif (y2 <= -4e-189) tmp = y0 * (b * ((z * k) - (x * j))); elseif (y2 <= 6.8e-223) tmp = k * (y * ((i * y5) - (b * y4))); elseif (y2 <= 3.9e-185) tmp = c * (y3 * ((y * y4) - (z * y0))); elseif (y2 <= 7.5e-158) tmp = t_1; elseif (y2 <= 9.5e-132) tmp = j * (t * ((b * y4) - (i * y5))); elseif (y2 <= 4.4e-41) tmp = t_1; elseif (y2 <= 4.9e+135) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (y2 <= 1.05e+234) tmp = c * (i * ((z * t) - (x * y))); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -9.5e+18], t$95$2, If[LessEqual[y2, -4e-189], N[(y0 * N[(b * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 6.8e-223], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 3.9e-185], N[(c * N[(y3 * N[(N[(y * y4), $MachinePrecision] - N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 7.5e-158], t$95$1, If[LessEqual[y2, 9.5e-132], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 4.4e-41], t$95$1, If[LessEqual[y2, 4.9e+135], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.05e+234], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
t_2 := k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{if}\;y2 \leq -9.5 \cdot 10^{+18}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq -4 \cdot 10^{-189}:\\
\;\;\;\;y0 \cdot \left(b \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y2 \leq 6.8 \cdot 10^{-223}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq 3.9 \cdot 10^{-185}:\\
\;\;\;\;c \cdot \left(y3 \cdot \left(y \cdot y4 - z \cdot y0\right)\right)\\
\mathbf{elif}\;y2 \leq 7.5 \cdot 10^{-158}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq 9.5 \cdot 10^{-132}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 4.4 \cdot 10^{-41}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq 4.9 \cdot 10^{+135}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y2 \leq 1.05 \cdot 10^{+234}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y2 < -9.5e18 or 1.05e234 < y2 Initial program 28.8%
Taylor expanded in k around inf 49.1%
+-commutative49.1%
mul-1-neg49.1%
unsub-neg49.1%
*-commutative49.1%
associate-*r*49.1%
neg-mul-149.1%
Simplified49.1%
Taylor expanded in y2 around inf 55.1%
if -9.5e18 < y2 < -4.00000000000000027e-189Initial program 33.3%
Taylor expanded in y0 around inf 34.3%
+-commutative34.3%
mul-1-neg34.3%
unsub-neg34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
Simplified34.3%
Taylor expanded in b around inf 40.7%
if -4.00000000000000027e-189 < y2 < 6.7999999999999996e-223Initial program 30.2%
Taylor expanded in k around inf 41.9%
+-commutative41.9%
mul-1-neg41.9%
unsub-neg41.9%
*-commutative41.9%
associate-*r*41.9%
neg-mul-141.9%
Simplified41.9%
Taylor expanded in y around inf 47.8%
if 6.7999999999999996e-223 < y2 < 3.8999999999999999e-185Initial program 9.1%
Taylor expanded in c around inf 40.4%
+-commutative40.4%
mul-1-neg40.4%
unsub-neg40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
Simplified40.4%
Taylor expanded in y3 around -inf 55.1%
mul-1-neg55.1%
Simplified55.1%
if 3.8999999999999999e-185 < y2 < 7.5e-158 or 9.49999999999999987e-132 < y2 < 4.4e-41Initial program 31.0%
Taylor expanded in j around inf 48.5%
+-commutative48.5%
mul-1-neg48.5%
unsub-neg48.5%
*-commutative48.5%
Simplified48.5%
Taylor expanded in y3 around inf 66.4%
*-commutative66.4%
Simplified66.4%
if 7.5e-158 < y2 < 9.49999999999999987e-132Initial program 33.3%
Taylor expanded in j around inf 66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in t around inf 100.0%
if 4.4e-41 < y2 < 4.9000000000000001e135Initial program 19.0%
Taylor expanded in c around inf 56.7%
+-commutative56.7%
mul-1-neg56.7%
unsub-neg56.7%
*-commutative56.7%
*-commutative56.7%
*-commutative56.7%
*-commutative56.7%
Simplified56.7%
Taylor expanded in y4 around inf 38.5%
if 4.9000000000000001e135 < y2 < 1.05e234Initial program 4.3%
Taylor expanded in c around inf 43.6%
+-commutative43.6%
mul-1-neg43.6%
unsub-neg43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in i around inf 65.7%
Final simplification52.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* j (* y3 (- (* y0 y5) (* y1 y4)))))
(t_2 (* k (* y2 (- (* y1 y4) (* y0 y5))))))
(if (<= y2 -1.4e+20)
t_2
(if (<= y2 -8.5e-192)
(* y0 (* b (- (* z k) (* x j))))
(if (<= y2 2.5e-223)
(* k (* y (- (* i y5) (* b y4))))
(if (<= y2 1.4e-185)
(* c (* y3 (- (* y y4) (* z y0))))
(if (<= y2 1.2e-157)
t_1
(if (<= y2 6.6e-129)
(* j (* t (- (* b y4) (* i y5))))
(if (<= y2 4.6e-45)
t_1
(if (<= y2 1.72e+137)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y2 1.05e+234)
(* c (* i (- (* z t) (* x y))))
t_2)))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (y3 * ((y0 * y5) - (y1 * y4)));
double t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double tmp;
if (y2 <= -1.4e+20) {
tmp = t_2;
} else if (y2 <= -8.5e-192) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= 2.5e-223) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 1.4e-185) {
tmp = c * (y3 * ((y * y4) - (z * y0)));
} else if (y2 <= 1.2e-157) {
tmp = t_1;
} else if (y2 <= 6.6e-129) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y2 <= 4.6e-45) {
tmp = t_1;
} else if (y2 <= 1.72e+137) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.05e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = j * (y3 * ((y0 * y5) - (y1 * y4)))
t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)))
if (y2 <= (-1.4d+20)) then
tmp = t_2
else if (y2 <= (-8.5d-192)) then
tmp = y0 * (b * ((z * k) - (x * j)))
else if (y2 <= 2.5d-223) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (y2 <= 1.4d-185) then
tmp = c * (y3 * ((y * y4) - (z * y0)))
else if (y2 <= 1.2d-157) then
tmp = t_1
else if (y2 <= 6.6d-129) then
tmp = j * (t * ((b * y4) - (i * y5)))
else if (y2 <= 4.6d-45) then
tmp = t_1
else if (y2 <= 1.72d+137) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y2 <= 1.05d+234) then
tmp = c * (i * ((z * t) - (x * y)))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = j * (y3 * ((y0 * y5) - (y1 * y4)));
double t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double tmp;
if (y2 <= -1.4e+20) {
tmp = t_2;
} else if (y2 <= -8.5e-192) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= 2.5e-223) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 1.4e-185) {
tmp = c * (y3 * ((y * y4) - (z * y0)));
} else if (y2 <= 1.2e-157) {
tmp = t_1;
} else if (y2 <= 6.6e-129) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y2 <= 4.6e-45) {
tmp = t_1;
} else if (y2 <= 1.72e+137) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.05e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = j * (y3 * ((y0 * y5) - (y1 * y4))) t_2 = k * (y2 * ((y1 * y4) - (y0 * y5))) tmp = 0 if y2 <= -1.4e+20: tmp = t_2 elif y2 <= -8.5e-192: tmp = y0 * (b * ((z * k) - (x * j))) elif y2 <= 2.5e-223: tmp = k * (y * ((i * y5) - (b * y4))) elif y2 <= 1.4e-185: tmp = c * (y3 * ((y * y4) - (z * y0))) elif y2 <= 1.2e-157: tmp = t_1 elif y2 <= 6.6e-129: tmp = j * (t * ((b * y4) - (i * y5))) elif y2 <= 4.6e-45: tmp = t_1 elif y2 <= 1.72e+137: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y2 <= 1.05e+234: tmp = c * (i * ((z * t) - (x * y))) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) t_2 = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) tmp = 0.0 if (y2 <= -1.4e+20) tmp = t_2; elseif (y2 <= -8.5e-192) tmp = Float64(y0 * Float64(b * Float64(Float64(z * k) - Float64(x * j)))); elseif (y2 <= 2.5e-223) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (y2 <= 1.4e-185) tmp = Float64(c * Float64(y3 * Float64(Float64(y * y4) - Float64(z * y0)))); elseif (y2 <= 1.2e-157) tmp = t_1; elseif (y2 <= 6.6e-129) tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))); elseif (y2 <= 4.6e-45) tmp = t_1; elseif (y2 <= 1.72e+137) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y2 <= 1.05e+234) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = j * (y3 * ((y0 * y5) - (y1 * y4))); t_2 = k * (y2 * ((y1 * y4) - (y0 * y5))); tmp = 0.0; if (y2 <= -1.4e+20) tmp = t_2; elseif (y2 <= -8.5e-192) tmp = y0 * (b * ((z * k) - (x * j))); elseif (y2 <= 2.5e-223) tmp = k * (y * ((i * y5) - (b * y4))); elseif (y2 <= 1.4e-185) tmp = c * (y3 * ((y * y4) - (z * y0))); elseif (y2 <= 1.2e-157) tmp = t_1; elseif (y2 <= 6.6e-129) tmp = j * (t * ((b * y4) - (i * y5))); elseif (y2 <= 4.6e-45) tmp = t_1; elseif (y2 <= 1.72e+137) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y2 <= 1.05e+234) tmp = c * (i * ((z * t) - (x * y))); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -1.4e+20], t$95$2, If[LessEqual[y2, -8.5e-192], N[(y0 * N[(b * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 2.5e-223], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.4e-185], N[(c * N[(y3 * N[(N[(y * y4), $MachinePrecision] - N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.2e-157], t$95$1, If[LessEqual[y2, 6.6e-129], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 4.6e-45], t$95$1, If[LessEqual[y2, 1.72e+137], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.05e+234], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
t_2 := k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{if}\;y2 \leq -1.4 \cdot 10^{+20}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq -8.5 \cdot 10^{-192}:\\
\;\;\;\;y0 \cdot \left(b \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y2 \leq 2.5 \cdot 10^{-223}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq 1.4 \cdot 10^{-185}:\\
\;\;\;\;c \cdot \left(y3 \cdot \left(y \cdot y4 - z \cdot y0\right)\right)\\
\mathbf{elif}\;y2 \leq 1.2 \cdot 10^{-157}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq 6.6 \cdot 10^{-129}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 4.6 \cdot 10^{-45}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq 1.72 \cdot 10^{+137}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 1.05 \cdot 10^{+234}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y2 < -1.4e20 or 1.05e234 < y2 Initial program 28.8%
Taylor expanded in k around inf 49.1%
+-commutative49.1%
mul-1-neg49.1%
unsub-neg49.1%
*-commutative49.1%
associate-*r*49.1%
neg-mul-149.1%
Simplified49.1%
Taylor expanded in y2 around inf 55.1%
if -1.4e20 < y2 < -8.49999999999999985e-192Initial program 33.3%
Taylor expanded in y0 around inf 34.3%
+-commutative34.3%
mul-1-neg34.3%
unsub-neg34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
Simplified34.3%
Taylor expanded in b around inf 40.7%
if -8.49999999999999985e-192 < y2 < 2.50000000000000012e-223Initial program 30.2%
Taylor expanded in k around inf 41.9%
+-commutative41.9%
mul-1-neg41.9%
unsub-neg41.9%
*-commutative41.9%
associate-*r*41.9%
neg-mul-141.9%
Simplified41.9%
Taylor expanded in y around inf 47.8%
if 2.50000000000000012e-223 < y2 < 1.39999999999999996e-185Initial program 9.1%
Taylor expanded in c around inf 40.4%
+-commutative40.4%
mul-1-neg40.4%
unsub-neg40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
Simplified40.4%
Taylor expanded in y3 around -inf 55.1%
mul-1-neg55.1%
Simplified55.1%
if 1.39999999999999996e-185 < y2 < 1.2e-157 or 6.59999999999999977e-129 < y2 < 4.59999999999999983e-45Initial program 31.0%
Taylor expanded in j around inf 48.5%
+-commutative48.5%
mul-1-neg48.5%
unsub-neg48.5%
*-commutative48.5%
Simplified48.5%
Taylor expanded in y3 around inf 66.4%
*-commutative66.4%
Simplified66.4%
if 1.2e-157 < y2 < 6.59999999999999977e-129Initial program 33.3%
Taylor expanded in j around inf 66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in t around inf 100.0%
if 4.59999999999999983e-45 < y2 < 1.7199999999999999e137Initial program 19.0%
Taylor expanded in y3 around -inf 44.0%
Taylor expanded in y around inf 44.4%
if 1.7199999999999999e137 < y2 < 1.05e234Initial program 4.3%
Taylor expanded in c around inf 43.6%
+-commutative43.6%
mul-1-neg43.6%
unsub-neg43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in i around inf 65.7%
Final simplification53.2%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* y0 y5) (* y1 y4)))
(t_2 (* k (* y2 (- (* y1 y4) (* y0 y5))))))
(if (<= y2 -3e+16)
t_2
(if (<= y2 -1.75e-189)
(* y0 (* b (- (* z k) (* x j))))
(if (<= y2 1.2e-225)
(* k (* y (- (* i y5) (* b y4))))
(if (<= y2 1.65e-186)
(* c (* y3 (- (* y y4) (* z y0))))
(if (<= y2 1.25e-160)
(* j (* y3 t_1))
(if (<= y2 2.85e-129)
(* j (* t (- (* b y4) (* i y5))))
(if (<= y2 5.2e-43)
(* (* j y3) t_1)
(if (<= y2 2.65e+137)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y2 1.05e+234)
(* c (* i (- (* z t) (* x y))))
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 = (y0 * y5) - (y1 * y4);
double t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double tmp;
if (y2 <= -3e+16) {
tmp = t_2;
} else if (y2 <= -1.75e-189) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= 1.2e-225) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 1.65e-186) {
tmp = c * (y3 * ((y * y4) - (z * y0)));
} else if (y2 <= 1.25e-160) {
tmp = j * (y3 * t_1);
} else if (y2 <= 2.85e-129) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y2 <= 5.2e-43) {
tmp = (j * y3) * t_1;
} else if (y2 <= 2.65e+137) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.05e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (y0 * y5) - (y1 * y4)
t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)))
if (y2 <= (-3d+16)) then
tmp = t_2
else if (y2 <= (-1.75d-189)) then
tmp = y0 * (b * ((z * k) - (x * j)))
else if (y2 <= 1.2d-225) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (y2 <= 1.65d-186) then
tmp = c * (y3 * ((y * y4) - (z * y0)))
else if (y2 <= 1.25d-160) then
tmp = j * (y3 * t_1)
else if (y2 <= 2.85d-129) then
tmp = j * (t * ((b * y4) - (i * y5)))
else if (y2 <= 5.2d-43) then
tmp = (j * y3) * t_1
else if (y2 <= 2.65d+137) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y2 <= 1.05d+234) then
tmp = c * (i * ((z * t) - (x * y)))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y0 * y5) - (y1 * y4);
double t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double tmp;
if (y2 <= -3e+16) {
tmp = t_2;
} else if (y2 <= -1.75e-189) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= 1.2e-225) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 1.65e-186) {
tmp = c * (y3 * ((y * y4) - (z * y0)));
} else if (y2 <= 1.25e-160) {
tmp = j * (y3 * t_1);
} else if (y2 <= 2.85e-129) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y2 <= 5.2e-43) {
tmp = (j * y3) * t_1;
} else if (y2 <= 2.65e+137) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.05e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} 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 = (y0 * y5) - (y1 * y4) t_2 = k * (y2 * ((y1 * y4) - (y0 * y5))) tmp = 0 if y2 <= -3e+16: tmp = t_2 elif y2 <= -1.75e-189: tmp = y0 * (b * ((z * k) - (x * j))) elif y2 <= 1.2e-225: tmp = k * (y * ((i * y5) - (b * y4))) elif y2 <= 1.65e-186: tmp = c * (y3 * ((y * y4) - (z * y0))) elif y2 <= 1.25e-160: tmp = j * (y3 * t_1) elif y2 <= 2.85e-129: tmp = j * (t * ((b * y4) - (i * y5))) elif y2 <= 5.2e-43: tmp = (j * y3) * t_1 elif y2 <= 2.65e+137: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y2 <= 1.05e+234: tmp = c * (i * ((z * t) - (x * y))) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y0 * y5) - Float64(y1 * y4)) t_2 = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) tmp = 0.0 if (y2 <= -3e+16) tmp = t_2; elseif (y2 <= -1.75e-189) tmp = Float64(y0 * Float64(b * Float64(Float64(z * k) - Float64(x * j)))); elseif (y2 <= 1.2e-225) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (y2 <= 1.65e-186) tmp = Float64(c * Float64(y3 * Float64(Float64(y * y4) - Float64(z * y0)))); elseif (y2 <= 1.25e-160) tmp = Float64(j * Float64(y3 * t_1)); elseif (y2 <= 2.85e-129) tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))); elseif (y2 <= 5.2e-43) tmp = Float64(Float64(j * y3) * t_1); elseif (y2 <= 2.65e+137) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y2 <= 1.05e+234) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); 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 = (y0 * y5) - (y1 * y4); t_2 = k * (y2 * ((y1 * y4) - (y0 * y5))); tmp = 0.0; if (y2 <= -3e+16) tmp = t_2; elseif (y2 <= -1.75e-189) tmp = y0 * (b * ((z * k) - (x * j))); elseif (y2 <= 1.2e-225) tmp = k * (y * ((i * y5) - (b * y4))); elseif (y2 <= 1.65e-186) tmp = c * (y3 * ((y * y4) - (z * y0))); elseif (y2 <= 1.25e-160) tmp = j * (y3 * t_1); elseif (y2 <= 2.85e-129) tmp = j * (t * ((b * y4) - (i * y5))); elseif (y2 <= 5.2e-43) tmp = (j * y3) * t_1; elseif (y2 <= 2.65e+137) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y2 <= 1.05e+234) tmp = c * (i * ((z * t) - (x * y))); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -3e+16], t$95$2, If[LessEqual[y2, -1.75e-189], N[(y0 * N[(b * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.2e-225], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.65e-186], N[(c * N[(y3 * N[(N[(y * y4), $MachinePrecision] - N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.25e-160], N[(j * N[(y3 * t$95$1), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 2.85e-129], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 5.2e-43], N[(N[(j * y3), $MachinePrecision] * t$95$1), $MachinePrecision], If[LessEqual[y2, 2.65e+137], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.05e+234], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y0 \cdot y5 - y1 \cdot y4\\
t_2 := k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{if}\;y2 \leq -3 \cdot 10^{+16}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq -1.75 \cdot 10^{-189}:\\
\;\;\;\;y0 \cdot \left(b \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y2 \leq 1.2 \cdot 10^{-225}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq 1.65 \cdot 10^{-186}:\\
\;\;\;\;c \cdot \left(y3 \cdot \left(y \cdot y4 - z \cdot y0\right)\right)\\
\mathbf{elif}\;y2 \leq 1.25 \cdot 10^{-160}:\\
\;\;\;\;j \cdot \left(y3 \cdot t\_1\right)\\
\mathbf{elif}\;y2 \leq 2.85 \cdot 10^{-129}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 5.2 \cdot 10^{-43}:\\
\;\;\;\;\left(j \cdot y3\right) \cdot t\_1\\
\mathbf{elif}\;y2 \leq 2.65 \cdot 10^{+137}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 1.05 \cdot 10^{+234}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y2 < -3e16 or 1.05e234 < y2 Initial program 28.8%
Taylor expanded in k around inf 49.1%
+-commutative49.1%
mul-1-neg49.1%
unsub-neg49.1%
*-commutative49.1%
associate-*r*49.1%
neg-mul-149.1%
Simplified49.1%
Taylor expanded in y2 around inf 55.1%
if -3e16 < y2 < -1.7500000000000001e-189Initial program 33.3%
Taylor expanded in y0 around inf 34.3%
+-commutative34.3%
mul-1-neg34.3%
unsub-neg34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
Simplified34.3%
Taylor expanded in b around inf 40.7%
if -1.7500000000000001e-189 < y2 < 1.19999999999999998e-225Initial program 30.2%
Taylor expanded in k around inf 41.9%
+-commutative41.9%
mul-1-neg41.9%
unsub-neg41.9%
*-commutative41.9%
associate-*r*41.9%
neg-mul-141.9%
Simplified41.9%
Taylor expanded in y around inf 47.8%
if 1.19999999999999998e-225 < y2 < 1.65e-186Initial program 9.1%
Taylor expanded in c around inf 40.4%
+-commutative40.4%
mul-1-neg40.4%
unsub-neg40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
Simplified40.4%
Taylor expanded in y3 around -inf 55.1%
mul-1-neg55.1%
Simplified55.1%
if 1.65e-186 < y2 < 1.24999999999999999e-160Initial program 25.0%
Taylor expanded in j around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in y3 around inf 62.8%
*-commutative62.8%
Simplified62.8%
if 1.24999999999999999e-160 < y2 < 2.85e-129Initial program 33.3%
Taylor expanded in j around inf 66.7%
+-commutative66.7%
mul-1-neg66.7%
unsub-neg66.7%
*-commutative66.7%
Simplified66.7%
Taylor expanded in t around inf 100.0%
if 2.85e-129 < y2 < 5.2e-43Initial program 33.3%
Taylor expanded in y3 around -inf 67.2%
Taylor expanded in j around inf 67.8%
associate-*r*72.4%
Simplified72.4%
if 5.2e-43 < y2 < 2.64999999999999984e137Initial program 19.0%
Taylor expanded in y3 around -inf 44.0%
Taylor expanded in y around inf 44.4%
if 2.64999999999999984e137 < y2 < 1.05e234Initial program 4.3%
Taylor expanded in c around inf 43.6%
+-commutative43.6%
mul-1-neg43.6%
unsub-neg43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in i around inf 65.7%
Final simplification53.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* y0 y5) (* y1 y4)))
(t_2 (* k (* y2 (- (* y1 y4) (* y0 y5))))))
(if (<= y2 -5e+16)
t_2
(if (<= y2 -7.5e-189)
(* y0 (* b (- (* z k) (* x j))))
(if (<= y2 2e-225)
(* k (* y (- (* i y5) (* b y4))))
(if (<= y2 9.2e-186)
(* c (* y3 (- (* y y4) (* z y0))))
(if (<= y2 5.8e-170)
(* j (* y3 t_1))
(if (<= y2 1.4e-120)
(* (- (* z y1) (* y y5)) (* a y3))
(if (<= y2 9e-42)
(* (* j y3) t_1)
(if (<= y2 9.1e+136)
(* y (* y3 (- (* c y4) (* a y5))))
(if (<= y2 1.5e+234)
(* c (* i (- (* z t) (* x y))))
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 = (y0 * y5) - (y1 * y4);
double t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double tmp;
if (y2 <= -5e+16) {
tmp = t_2;
} else if (y2 <= -7.5e-189) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= 2e-225) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 9.2e-186) {
tmp = c * (y3 * ((y * y4) - (z * y0)));
} else if (y2 <= 5.8e-170) {
tmp = j * (y3 * t_1);
} else if (y2 <= 1.4e-120) {
tmp = ((z * y1) - (y * y5)) * (a * y3);
} else if (y2 <= 9e-42) {
tmp = (j * y3) * t_1;
} else if (y2 <= 9.1e+136) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.5e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (y0 * y5) - (y1 * y4)
t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)))
if (y2 <= (-5d+16)) then
tmp = t_2
else if (y2 <= (-7.5d-189)) then
tmp = y0 * (b * ((z * k) - (x * j)))
else if (y2 <= 2d-225) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (y2 <= 9.2d-186) then
tmp = c * (y3 * ((y * y4) - (z * y0)))
else if (y2 <= 5.8d-170) then
tmp = j * (y3 * t_1)
else if (y2 <= 1.4d-120) then
tmp = ((z * y1) - (y * y5)) * (a * y3)
else if (y2 <= 9d-42) then
tmp = (j * y3) * t_1
else if (y2 <= 9.1d+136) then
tmp = y * (y3 * ((c * y4) - (a * y5)))
else if (y2 <= 1.5d+234) then
tmp = c * (i * ((z * t) - (x * y)))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y0 * y5) - (y1 * y4);
double t_2 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double tmp;
if (y2 <= -5e+16) {
tmp = t_2;
} else if (y2 <= -7.5e-189) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= 2e-225) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 9.2e-186) {
tmp = c * (y3 * ((y * y4) - (z * y0)));
} else if (y2 <= 5.8e-170) {
tmp = j * (y3 * t_1);
} else if (y2 <= 1.4e-120) {
tmp = ((z * y1) - (y * y5)) * (a * y3);
} else if (y2 <= 9e-42) {
tmp = (j * y3) * t_1;
} else if (y2 <= 9.1e+136) {
tmp = y * (y3 * ((c * y4) - (a * y5)));
} else if (y2 <= 1.5e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} 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 = (y0 * y5) - (y1 * y4) t_2 = k * (y2 * ((y1 * y4) - (y0 * y5))) tmp = 0 if y2 <= -5e+16: tmp = t_2 elif y2 <= -7.5e-189: tmp = y0 * (b * ((z * k) - (x * j))) elif y2 <= 2e-225: tmp = k * (y * ((i * y5) - (b * y4))) elif y2 <= 9.2e-186: tmp = c * (y3 * ((y * y4) - (z * y0))) elif y2 <= 5.8e-170: tmp = j * (y3 * t_1) elif y2 <= 1.4e-120: tmp = ((z * y1) - (y * y5)) * (a * y3) elif y2 <= 9e-42: tmp = (j * y3) * t_1 elif y2 <= 9.1e+136: tmp = y * (y3 * ((c * y4) - (a * y5))) elif y2 <= 1.5e+234: tmp = c * (i * ((z * t) - (x * y))) else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y0 * y5) - Float64(y1 * y4)) t_2 = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) tmp = 0.0 if (y2 <= -5e+16) tmp = t_2; elseif (y2 <= -7.5e-189) tmp = Float64(y0 * Float64(b * Float64(Float64(z * k) - Float64(x * j)))); elseif (y2 <= 2e-225) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (y2 <= 9.2e-186) tmp = Float64(c * Float64(y3 * Float64(Float64(y * y4) - Float64(z * y0)))); elseif (y2 <= 5.8e-170) tmp = Float64(j * Float64(y3 * t_1)); elseif (y2 <= 1.4e-120) tmp = Float64(Float64(Float64(z * y1) - Float64(y * y5)) * Float64(a * y3)); elseif (y2 <= 9e-42) tmp = Float64(Float64(j * y3) * t_1); elseif (y2 <= 9.1e+136) tmp = Float64(y * Float64(y3 * Float64(Float64(c * y4) - Float64(a * y5)))); elseif (y2 <= 1.5e+234) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); 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 = (y0 * y5) - (y1 * y4); t_2 = k * (y2 * ((y1 * y4) - (y0 * y5))); tmp = 0.0; if (y2 <= -5e+16) tmp = t_2; elseif (y2 <= -7.5e-189) tmp = y0 * (b * ((z * k) - (x * j))); elseif (y2 <= 2e-225) tmp = k * (y * ((i * y5) - (b * y4))); elseif (y2 <= 9.2e-186) tmp = c * (y3 * ((y * y4) - (z * y0))); elseif (y2 <= 5.8e-170) tmp = j * (y3 * t_1); elseif (y2 <= 1.4e-120) tmp = ((z * y1) - (y * y5)) * (a * y3); elseif (y2 <= 9e-42) tmp = (j * y3) * t_1; elseif (y2 <= 9.1e+136) tmp = y * (y3 * ((c * y4) - (a * y5))); elseif (y2 <= 1.5e+234) tmp = c * (i * ((z * t) - (x * y))); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -5e+16], t$95$2, If[LessEqual[y2, -7.5e-189], N[(y0 * N[(b * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 2e-225], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 9.2e-186], N[(c * N[(y3 * N[(N[(y * y4), $MachinePrecision] - N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 5.8e-170], N[(j * N[(y3 * t$95$1), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.4e-120], N[(N[(N[(z * y1), $MachinePrecision] - N[(y * y5), $MachinePrecision]), $MachinePrecision] * N[(a * y3), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 9e-42], N[(N[(j * y3), $MachinePrecision] * t$95$1), $MachinePrecision], If[LessEqual[y2, 9.1e+136], N[(y * N[(y3 * N[(N[(c * y4), $MachinePrecision] - N[(a * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.5e+234], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y0 \cdot y5 - y1 \cdot y4\\
t_2 := k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{if}\;y2 \leq -5 \cdot 10^{+16}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq -7.5 \cdot 10^{-189}:\\
\;\;\;\;y0 \cdot \left(b \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y2 \leq 2 \cdot 10^{-225}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq 9.2 \cdot 10^{-186}:\\
\;\;\;\;c \cdot \left(y3 \cdot \left(y \cdot y4 - z \cdot y0\right)\right)\\
\mathbf{elif}\;y2 \leq 5.8 \cdot 10^{-170}:\\
\;\;\;\;j \cdot \left(y3 \cdot t\_1\right)\\
\mathbf{elif}\;y2 \leq 1.4 \cdot 10^{-120}:\\
\;\;\;\;\left(z \cdot y1 - y \cdot y5\right) \cdot \left(a \cdot y3\right)\\
\mathbf{elif}\;y2 \leq 9 \cdot 10^{-42}:\\
\;\;\;\;\left(j \cdot y3\right) \cdot t\_1\\
\mathbf{elif}\;y2 \leq 9.1 \cdot 10^{+136}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4 - a \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 1.5 \cdot 10^{+234}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if y2 < -5e16 or 1.4999999999999999e234 < y2 Initial program 28.8%
Taylor expanded in k around inf 49.1%
+-commutative49.1%
mul-1-neg49.1%
unsub-neg49.1%
*-commutative49.1%
associate-*r*49.1%
neg-mul-149.1%
Simplified49.1%
Taylor expanded in y2 around inf 55.1%
if -5e16 < y2 < -7.50000000000000042e-189Initial program 33.3%
Taylor expanded in y0 around inf 34.3%
+-commutative34.3%
mul-1-neg34.3%
unsub-neg34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
Simplified34.3%
Taylor expanded in b around inf 40.7%
if -7.50000000000000042e-189 < y2 < 1.9999999999999999e-225Initial program 30.2%
Taylor expanded in k around inf 41.9%
+-commutative41.9%
mul-1-neg41.9%
unsub-neg41.9%
*-commutative41.9%
associate-*r*41.9%
neg-mul-141.9%
Simplified41.9%
Taylor expanded in y around inf 47.8%
if 1.9999999999999999e-225 < y2 < 9.2000000000000003e-186Initial program 9.1%
Taylor expanded in c around inf 40.4%
+-commutative40.4%
mul-1-neg40.4%
unsub-neg40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
*-commutative40.4%
Simplified40.4%
Taylor expanded in y3 around -inf 55.1%
mul-1-neg55.1%
Simplified55.1%
if 9.2000000000000003e-186 < y2 < 5.8000000000000001e-170Initial program 0.0%
Taylor expanded in j around inf 60.0%
+-commutative60.0%
mul-1-neg60.0%
unsub-neg60.0%
*-commutative60.0%
Simplified60.0%
Taylor expanded in y3 around inf 80.0%
*-commutative80.0%
Simplified80.0%
if 5.8000000000000001e-170 < y2 < 1.39999999999999997e-120Initial program 40.0%
Taylor expanded in y3 around -inf 70.0%
Taylor expanded in a around -inf 70.4%
mul-1-neg70.4%
associate-*r*70.4%
Simplified70.4%
if 1.39999999999999997e-120 < y2 < 9e-42Initial program 35.3%
Taylor expanded in y3 around -inf 65.4%
Taylor expanded in j around inf 71.2%
associate-*r*76.8%
Simplified76.8%
if 9e-42 < y2 < 9.09999999999999993e136Initial program 19.0%
Taylor expanded in y3 around -inf 44.0%
Taylor expanded in y around inf 44.4%
if 9.09999999999999993e136 < y2 < 1.4999999999999999e234Initial program 4.3%
Taylor expanded in c around inf 43.6%
+-commutative43.6%
mul-1-neg43.6%
unsub-neg43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in i around inf 65.7%
Final simplification53.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* y y3) (* t y2)))
(t_2 (- (* x y) (* z t)))
(t_3 (* c (+ (- (* y0 (- (* x y2) (* z y3))) (* i t_2)) (* y4 t_1)))))
(if (<= t -5e+184)
(* j (* t (* b (- y4 (* i (/ y5 b))))))
(if (<= t -2.4e+24)
(*
b
(+
(+ (* a t_2) (* y4 (- (* t j) (* y k))))
(* y0 (- (* z k) (* x j)))))
(if (<= t -1.1e-175)
t_3
(if (<= t 3.5e-297)
(*
j
(-
(* x (- (* i y1) (* b y0)))
(+ (* y3 (- (* y1 y4) (* y0 y5))) (* t (- (* i y5) (* b y4))))))
(if (<= t 6.2e+44)
t_3
(if (or (<= t 2.9e+162) (not (<= t 3.2e+208)))
(* y4 (+ (* b (* t j)) (* c t_1)))
(* (- (* t c) (* k y1)) (* z i))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y * y3) - (t * y2);
double t_2 = (x * y) - (z * t);
double t_3 = c * (((y0 * ((x * y2) - (z * y3))) - (i * t_2)) + (y4 * t_1));
double tmp;
if (t <= -5e+184) {
tmp = j * (t * (b * (y4 - (i * (y5 / b)))));
} else if (t <= -2.4e+24) {
tmp = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
} else if (t <= -1.1e-175) {
tmp = t_3;
} else if (t <= 3.5e-297) {
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4)))));
} else if (t <= 6.2e+44) {
tmp = t_3;
} else if ((t <= 2.9e+162) || !(t <= 3.2e+208)) {
tmp = y4 * ((b * (t * j)) + (c * t_1));
} else {
tmp = ((t * c) - (k * y1)) * (z * i);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_1 = (y * y3) - (t * y2)
t_2 = (x * y) - (z * t)
t_3 = c * (((y0 * ((x * y2) - (z * y3))) - (i * t_2)) + (y4 * t_1))
if (t <= (-5d+184)) then
tmp = j * (t * (b * (y4 - (i * (y5 / b)))))
else if (t <= (-2.4d+24)) then
tmp = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
else if (t <= (-1.1d-175)) then
tmp = t_3
else if (t <= 3.5d-297) then
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4)))))
else if (t <= 6.2d+44) then
tmp = t_3
else if ((t <= 2.9d+162) .or. (.not. (t <= 3.2d+208))) then
tmp = y4 * ((b * (t * j)) + (c * t_1))
else
tmp = ((t * c) - (k * y1)) * (z * i)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (y * y3) - (t * y2);
double t_2 = (x * y) - (z * t);
double t_3 = c * (((y0 * ((x * y2) - (z * y3))) - (i * t_2)) + (y4 * t_1));
double tmp;
if (t <= -5e+184) {
tmp = j * (t * (b * (y4 - (i * (y5 / b)))));
} else if (t <= -2.4e+24) {
tmp = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
} else if (t <= -1.1e-175) {
tmp = t_3;
} else if (t <= 3.5e-297) {
tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4)))));
} else if (t <= 6.2e+44) {
tmp = t_3;
} else if ((t <= 2.9e+162) || !(t <= 3.2e+208)) {
tmp = y4 * ((b * (t * j)) + (c * t_1));
} else {
tmp = ((t * c) - (k * y1)) * (z * i);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (y * y3) - (t * y2) t_2 = (x * y) - (z * t) t_3 = c * (((y0 * ((x * y2) - (z * y3))) - (i * t_2)) + (y4 * t_1)) tmp = 0 if t <= -5e+184: tmp = j * (t * (b * (y4 - (i * (y5 / b))))) elif t <= -2.4e+24: tmp = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))) elif t <= -1.1e-175: tmp = t_3 elif t <= 3.5e-297: tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4))))) elif t <= 6.2e+44: tmp = t_3 elif (t <= 2.9e+162) or not (t <= 3.2e+208): tmp = y4 * ((b * (t * j)) + (c * t_1)) else: tmp = ((t * c) - (k * y1)) * (z * i) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(Float64(y * y3) - Float64(t * y2)) t_2 = Float64(Float64(x * y) - Float64(z * t)) t_3 = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) - Float64(i * t_2)) + Float64(y4 * t_1))) tmp = 0.0 if (t <= -5e+184) tmp = Float64(j * Float64(t * Float64(b * Float64(y4 - Float64(i * Float64(y5 / b)))))); elseif (t <= -2.4e+24) tmp = Float64(b * Float64(Float64(Float64(a * t_2) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))); elseif (t <= -1.1e-175) tmp = t_3; elseif (t <= 3.5e-297) tmp = Float64(j * Float64(Float64(x * Float64(Float64(i * y1) - Float64(b * y0))) - Float64(Float64(y3 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(t * Float64(Float64(i * y5) - Float64(b * y4)))))); elseif (t <= 6.2e+44) tmp = t_3; elseif ((t <= 2.9e+162) || !(t <= 3.2e+208)) tmp = Float64(y4 * Float64(Float64(b * Float64(t * j)) + Float64(c * t_1))); else tmp = Float64(Float64(Float64(t * c) - Float64(k * y1)) * Float64(z * i)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (y * y3) - (t * y2); t_2 = (x * y) - (z * t); t_3 = c * (((y0 * ((x * y2) - (z * y3))) - (i * t_2)) + (y4 * t_1)); tmp = 0.0; if (t <= -5e+184) tmp = j * (t * (b * (y4 - (i * (y5 / b))))); elseif (t <= -2.4e+24) tmp = b * (((a * t_2) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j)))); elseif (t <= -1.1e-175) tmp = t_3; elseif (t <= 3.5e-297) tmp = j * ((x * ((i * y1) - (b * y0))) - ((y3 * ((y1 * y4) - (y0 * y5))) + (t * ((i * y5) - (b * y4))))); elseif (t <= 6.2e+44) tmp = t_3; elseif ((t <= 2.9e+162) || ~((t <= 3.2e+208))) tmp = y4 * ((b * (t * j)) + (c * t_1)); else tmp = ((t * c) - (k * y1)) * (z * i); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -5e+184], N[(j * N[(t * N[(b * N[(y4 - N[(i * N[(y5 / b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -2.4e+24], N[(b * N[(N[(N[(a * t$95$2), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1.1e-175], t$95$3, If[LessEqual[t, 3.5e-297], N[(j * N[(N[(x * N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(y3 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 6.2e+44], t$95$3, If[Or[LessEqual[t, 2.9e+162], N[Not[LessEqual[t, 3.2e+208]], $MachinePrecision]], N[(y4 * N[(N[(b * N[(t * j), $MachinePrecision]), $MachinePrecision] + N[(c * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(t * c), $MachinePrecision] - N[(k * y1), $MachinePrecision]), $MachinePrecision] * N[(z * i), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y \cdot y3 - t \cdot y2\\
t_2 := x \cdot y - z \cdot t\\
t_3 := c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) - i \cdot t\_2\right) + y4 \cdot t\_1\right)\\
\mathbf{if}\;t \leq -5 \cdot 10^{+184}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot \left(y4 - i \cdot \frac{y5}{b}\right)\right)\right)\\
\mathbf{elif}\;t \leq -2.4 \cdot 10^{+24}:\\
\;\;\;\;b \cdot \left(\left(a \cdot t\_2 + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;t \leq -1.1 \cdot 10^{-175}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t \leq 3.5 \cdot 10^{-297}:\\
\;\;\;\;j \cdot \left(x \cdot \left(i \cdot y1 - b \cdot y0\right) - \left(y3 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + t \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\right)\\
\mathbf{elif}\;t \leq 6.2 \cdot 10^{+44}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;t \leq 2.9 \cdot 10^{+162} \lor \neg \left(t \leq 3.2 \cdot 10^{+208}\right):\\
\;\;\;\;y4 \cdot \left(b \cdot \left(t \cdot j\right) + c \cdot t\_1\right)\\
\mathbf{else}:\\
\;\;\;\;\left(t \cdot c - k \cdot y1\right) \cdot \left(z \cdot i\right)\\
\end{array}
\end{array}
if t < -4.9999999999999999e184Initial program 5.3%
Taylor expanded in j around inf 27.6%
+-commutative27.6%
mul-1-neg27.6%
unsub-neg27.6%
*-commutative27.6%
Simplified27.6%
Taylor expanded in t around inf 53.6%
Taylor expanded in b around inf 53.6%
mul-1-neg53.6%
unsub-neg53.6%
associate-/l*58.5%
Simplified58.5%
if -4.9999999999999999e184 < t < -2.4000000000000001e24Initial program 39.2%
Taylor expanded in b around inf 50.9%
if -2.4000000000000001e24 < t < -1.1e-175 or 3.4999999999999999e-297 < t < 6.19999999999999991e44Initial program 23.0%
Taylor expanded in c around inf 51.1%
+-commutative51.1%
mul-1-neg51.1%
unsub-neg51.1%
*-commutative51.1%
*-commutative51.1%
*-commutative51.1%
*-commutative51.1%
Simplified51.1%
if -1.1e-175 < t < 3.4999999999999999e-297Initial program 40.6%
Taylor expanded in j around inf 63.7%
+-commutative63.7%
mul-1-neg63.7%
unsub-neg63.7%
*-commutative63.7%
Simplified63.7%
if 6.19999999999999991e44 < t < 2.90000000000000006e162 or 3.2000000000000001e208 < t Initial program 24.2%
Taylor expanded in y4 around inf 52.4%
Taylor expanded in t around inf 59.8%
if 2.90000000000000006e162 < t < 3.2000000000000001e208Initial program 22.0%
Taylor expanded in i around -inf 56.0%
Taylor expanded in z around -inf 89.0%
mul-1-neg89.0%
associate-*r*78.6%
distribute-lft-neg-in78.6%
distribute-rgt-neg-in78.6%
*-commutative78.6%
Simplified78.6%
Final simplification55.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (- (* x y) (* z t)))
(t_2 (- (* t j) (* y k)))
(t_3 (- (* y y3) (* t y2)))
(t_4 (- (* x y2) (* z y3)))
(t_5 (* y0 t_4))
(t_6 (- (* z k) (* x j))))
(if (<= y0 -5.4e+188)
(* y0 (+ (+ (* c t_4) (* y5 (- (* j y3) (* k y2)))) (* b t_6)))
(if (<= y0 -2e-126)
(* c (+ (- t_5 (* i t_1)) (* y4 t_3)))
(if (<= y0 -1.1e-288)
(* b (+ (+ (* a t_1) (* y4 t_2)) (* y0 t_6)))
(if (<= y0 1.2e-123)
(* y4 (+ (+ (* b t_2) (* y1 (- (* k y2) (* j y3)))) (* c t_3)))
(if (<= y0 8.5e+82)
(* i (- (* y1 (- (* x j) (* z k))) (+ (* c t_1) (* y5 t_2))))
(* c t_5))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (x * y) - (z * t);
double t_2 = (t * j) - (y * k);
double t_3 = (y * y3) - (t * y2);
double t_4 = (x * y2) - (z * y3);
double t_5 = y0 * t_4;
double t_6 = (z * k) - (x * j);
double tmp;
if (y0 <= -5.4e+188) {
tmp = y0 * (((c * t_4) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6));
} else if (y0 <= -2e-126) {
tmp = c * ((t_5 - (i * t_1)) + (y4 * t_3));
} else if (y0 <= -1.1e-288) {
tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6));
} else if (y0 <= 1.2e-123) {
tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3));
} else if (y0 <= 8.5e+82) {
tmp = i * ((y1 * ((x * j) - (z * k))) - ((c * t_1) + (y5 * t_2)));
} else {
tmp = c * t_5;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: t_5
real(8) :: t_6
real(8) :: tmp
t_1 = (x * y) - (z * t)
t_2 = (t * j) - (y * k)
t_3 = (y * y3) - (t * y2)
t_4 = (x * y2) - (z * y3)
t_5 = y0 * t_4
t_6 = (z * k) - (x * j)
if (y0 <= (-5.4d+188)) then
tmp = y0 * (((c * t_4) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6))
else if (y0 <= (-2d-126)) then
tmp = c * ((t_5 - (i * t_1)) + (y4 * t_3))
else if (y0 <= (-1.1d-288)) then
tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6))
else if (y0 <= 1.2d-123) then
tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3))
else if (y0 <= 8.5d+82) then
tmp = i * ((y1 * ((x * j) - (z * k))) - ((c * t_1) + (y5 * t_2)))
else
tmp = c * t_5
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (x * y) - (z * t);
double t_2 = (t * j) - (y * k);
double t_3 = (y * y3) - (t * y2);
double t_4 = (x * y2) - (z * y3);
double t_5 = y0 * t_4;
double t_6 = (z * k) - (x * j);
double tmp;
if (y0 <= -5.4e+188) {
tmp = y0 * (((c * t_4) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6));
} else if (y0 <= -2e-126) {
tmp = c * ((t_5 - (i * t_1)) + (y4 * t_3));
} else if (y0 <= -1.1e-288) {
tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6));
} else if (y0 <= 1.2e-123) {
tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3));
} else if (y0 <= 8.5e+82) {
tmp = i * ((y1 * ((x * j) - (z * k))) - ((c * t_1) + (y5 * t_2)));
} else {
tmp = c * t_5;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (x * y) - (z * t) t_2 = (t * j) - (y * k) t_3 = (y * y3) - (t * y2) t_4 = (x * y2) - (z * y3) t_5 = y0 * t_4 t_6 = (z * k) - (x * j) tmp = 0 if y0 <= -5.4e+188: tmp = y0 * (((c * t_4) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6)) elif y0 <= -2e-126: tmp = c * ((t_5 - (i * t_1)) + (y4 * t_3)) elif y0 <= -1.1e-288: tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6)) elif y0 <= 1.2e-123: tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3)) elif y0 <= 8.5e+82: tmp = i * ((y1 * ((x * j) - (z * k))) - ((c * t_1) + (y5 * t_2))) else: tmp = c * 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(x * y) - Float64(z * t)) t_2 = Float64(Float64(t * j) - Float64(y * k)) t_3 = Float64(Float64(y * y3) - Float64(t * y2)) t_4 = Float64(Float64(x * y2) - Float64(z * y3)) t_5 = Float64(y0 * t_4) t_6 = Float64(Float64(z * k) - Float64(x * j)) tmp = 0.0 if (y0 <= -5.4e+188) tmp = Float64(y0 * Float64(Float64(Float64(c * t_4) + Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))) + Float64(b * t_6))); elseif (y0 <= -2e-126) tmp = Float64(c * Float64(Float64(t_5 - Float64(i * t_1)) + Float64(y4 * t_3))); elseif (y0 <= -1.1e-288) tmp = Float64(b * Float64(Float64(Float64(a * t_1) + Float64(y4 * t_2)) + Float64(y0 * t_6))); elseif (y0 <= 1.2e-123) tmp = Float64(y4 * Float64(Float64(Float64(b * t_2) + Float64(y1 * Float64(Float64(k * y2) - Float64(j * y3)))) + Float64(c * t_3))); elseif (y0 <= 8.5e+82) tmp = Float64(i * Float64(Float64(y1 * Float64(Float64(x * j) - Float64(z * k))) - Float64(Float64(c * t_1) + Float64(y5 * t_2)))); else tmp = Float64(c * t_5); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (x * y) - (z * t); t_2 = (t * j) - (y * k); t_3 = (y * y3) - (t * y2); t_4 = (x * y2) - (z * y3); t_5 = y0 * t_4; t_6 = (z * k) - (x * j); tmp = 0.0; if (y0 <= -5.4e+188) tmp = y0 * (((c * t_4) + (y5 * ((j * y3) - (k * y2)))) + (b * t_6)); elseif (y0 <= -2e-126) tmp = c * ((t_5 - (i * t_1)) + (y4 * t_3)); elseif (y0 <= -1.1e-288) tmp = b * (((a * t_1) + (y4 * t_2)) + (y0 * t_6)); elseif (y0 <= 1.2e-123) tmp = y4 * (((b * t_2) + (y1 * ((k * y2) - (j * y3)))) + (c * t_3)); elseif (y0 <= 8.5e+82) tmp = i * ((y1 * ((x * j) - (z * k))) - ((c * t_1) + (y5 * t_2))); else tmp = c * 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[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(y0 * t$95$4), $MachinePrecision]}, Block[{t$95$6 = N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y0, -5.4e+188], N[(y0 * N[(N[(N[(c * t$95$4), $MachinePrecision] + N[(y5 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -2e-126], N[(c * N[(N[(t$95$5 - N[(i * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y4 * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -1.1e-288], N[(b * N[(N[(N[(a * t$95$1), $MachinePrecision] + N[(y4 * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(y0 * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 1.2e-123], N[(y4 * N[(N[(N[(b * t$95$2), $MachinePrecision] + N[(y1 * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(c * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 8.5e+82], N[(i * N[(N[(y1 * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(c * t$95$1), $MachinePrecision] + N[(y5 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(c * t$95$5), $MachinePrecision]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := x \cdot y - z \cdot t\\
t_2 := t \cdot j - y \cdot k\\
t_3 := y \cdot y3 - t \cdot y2\\
t_4 := x \cdot y2 - z \cdot y3\\
t_5 := y0 \cdot t\_4\\
t_6 := z \cdot k - x \cdot j\\
\mathbf{if}\;y0 \leq -5.4 \cdot 10^{+188}:\\
\;\;\;\;y0 \cdot \left(\left(c \cdot t\_4 + y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right) + b \cdot t\_6\right)\\
\mathbf{elif}\;y0 \leq -2 \cdot 10^{-126}:\\
\;\;\;\;c \cdot \left(\left(t\_5 - i \cdot t\_1\right) + y4 \cdot t\_3\right)\\
\mathbf{elif}\;y0 \leq -1.1 \cdot 10^{-288}:\\
\;\;\;\;b \cdot \left(\left(a \cdot t\_1 + y4 \cdot t\_2\right) + y0 \cdot t\_6\right)\\
\mathbf{elif}\;y0 \leq 1.2 \cdot 10^{-123}:\\
\;\;\;\;y4 \cdot \left(\left(b \cdot t\_2 + y1 \cdot \left(k \cdot y2 - j \cdot y3\right)\right) + c \cdot t\_3\right)\\
\mathbf{elif}\;y0 \leq 8.5 \cdot 10^{+82}:\\
\;\;\;\;i \cdot \left(y1 \cdot \left(x \cdot j - z \cdot k\right) - \left(c \cdot t\_1 + y5 \cdot t\_2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;c \cdot t\_5\\
\end{array}
\end{array}
if y0 < -5.4e188Initial program 12.5%
Taylor expanded in y0 around inf 62.4%
+-commutative62.4%
mul-1-neg62.4%
unsub-neg62.4%
*-commutative62.4%
*-commutative62.4%
*-commutative62.4%
*-commutative62.4%
Simplified62.4%
if -5.4e188 < y0 < -1.9999999999999999e-126Initial program 28.8%
Taylor expanded in c around inf 52.3%
+-commutative52.3%
mul-1-neg52.3%
unsub-neg52.3%
*-commutative52.3%
*-commutative52.3%
*-commutative52.3%
*-commutative52.3%
Simplified52.3%
if -1.9999999999999999e-126 < y0 < -1.1000000000000001e-288Initial program 18.5%
Taylor expanded in b around inf 63.1%
if -1.1000000000000001e-288 < y0 < 1.2e-123Initial program 28.3%
Taylor expanded in y4 around inf 64.5%
if 1.2e-123 < y0 < 8.4999999999999995e82Initial program 30.0%
Taylor expanded in i around -inf 58.1%
if 8.4999999999999995e82 < y0 Initial program 24.4%
Taylor expanded in c around inf 42.8%
+-commutative42.8%
mul-1-neg42.8%
unsub-neg42.8%
*-commutative42.8%
*-commutative42.8%
*-commutative42.8%
*-commutative42.8%
Simplified42.8%
Taylor expanded in y0 around inf 58.5%
Final simplification58.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* y (- (* i y5) (* b y4)))))
(t_2 (* c (* y0 (- (* x y2) (* z y3))))))
(if (<= z -3.2e+149)
(* i (* k (- (* z y1))))
(if (<= z -2.4e-28)
t_2
(if (<= z -1.35e-150)
(* j (* t (- (* b y4) (* i y5))))
(if (<= z 5e-289)
t_1
(if (<= z 1.75e-246)
(* j (* y3 (- (* y0 y5) (* y1 y4))))
(if (<= z 4.4e-102)
t_1
(if (<= z 5.9e+177)
(* b (* y4 (- (* t j) (* y k))))
(if (<= z 7.5e+245)
t_2
(* c (* i (- (* z t) (* x y))))))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y * ((i * y5) - (b * y4)));
double t_2 = c * (y0 * ((x * y2) - (z * y3)));
double tmp;
if (z <= -3.2e+149) {
tmp = i * (k * -(z * y1));
} else if (z <= -2.4e-28) {
tmp = t_2;
} else if (z <= -1.35e-150) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (z <= 5e-289) {
tmp = t_1;
} else if (z <= 1.75e-246) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (z <= 4.4e-102) {
tmp = t_1;
} else if (z <= 5.9e+177) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (z <= 7.5e+245) {
tmp = t_2;
} else {
tmp = c * (i * ((z * t) - (x * y)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = k * (y * ((i * y5) - (b * y4)))
t_2 = c * (y0 * ((x * y2) - (z * y3)))
if (z <= (-3.2d+149)) then
tmp = i * (k * -(z * y1))
else if (z <= (-2.4d-28)) then
tmp = t_2
else if (z <= (-1.35d-150)) then
tmp = j * (t * ((b * y4) - (i * y5)))
else if (z <= 5d-289) then
tmp = t_1
else if (z <= 1.75d-246) then
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)))
else if (z <= 4.4d-102) then
tmp = t_1
else if (z <= 5.9d+177) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (z <= 7.5d+245) then
tmp = t_2
else
tmp = c * (i * ((z * t) - (x * y)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y * ((i * y5) - (b * y4)));
double t_2 = c * (y0 * ((x * y2) - (z * y3)));
double tmp;
if (z <= -3.2e+149) {
tmp = i * (k * -(z * y1));
} else if (z <= -2.4e-28) {
tmp = t_2;
} else if (z <= -1.35e-150) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (z <= 5e-289) {
tmp = t_1;
} else if (z <= 1.75e-246) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (z <= 4.4e-102) {
tmp = t_1;
} else if (z <= 5.9e+177) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (z <= 7.5e+245) {
tmp = t_2;
} else {
tmp = c * (i * ((z * t) - (x * y)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = k * (y * ((i * y5) - (b * y4))) t_2 = c * (y0 * ((x * y2) - (z * y3))) tmp = 0 if z <= -3.2e+149: tmp = i * (k * -(z * y1)) elif z <= -2.4e-28: tmp = t_2 elif z <= -1.35e-150: tmp = j * (t * ((b * y4) - (i * y5))) elif z <= 5e-289: tmp = t_1 elif z <= 1.75e-246: tmp = j * (y3 * ((y0 * y5) - (y1 * y4))) elif z <= 4.4e-102: tmp = t_1 elif z <= 5.9e+177: tmp = b * (y4 * ((t * j) - (y * k))) elif z <= 7.5e+245: tmp = t_2 else: tmp = c * (i * ((z * t) - (x * y))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) t_2 = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))) tmp = 0.0 if (z <= -3.2e+149) tmp = Float64(i * Float64(k * Float64(-Float64(z * y1)))); elseif (z <= -2.4e-28) tmp = t_2; elseif (z <= -1.35e-150) tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))); elseif (z <= 5e-289) tmp = t_1; elseif (z <= 1.75e-246) tmp = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))); elseif (z <= 4.4e-102) tmp = t_1; elseif (z <= 5.9e+177) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (z <= 7.5e+245) tmp = t_2; else tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = k * (y * ((i * y5) - (b * y4))); t_2 = c * (y0 * ((x * y2) - (z * y3))); tmp = 0.0; if (z <= -3.2e+149) tmp = i * (k * -(z * y1)); elseif (z <= -2.4e-28) tmp = t_2; elseif (z <= -1.35e-150) tmp = j * (t * ((b * y4) - (i * y5))); elseif (z <= 5e-289) tmp = t_1; elseif (z <= 1.75e-246) tmp = j * (y3 * ((y0 * y5) - (y1 * y4))); elseif (z <= 4.4e-102) tmp = t_1; elseif (z <= 5.9e+177) tmp = b * (y4 * ((t * j) - (y * k))); elseif (z <= 7.5e+245) tmp = t_2; else tmp = c * (i * ((z * t) - (x * y))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -3.2e+149], N[(i * N[(k * (-N[(z * y1), $MachinePrecision])), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -2.4e-28], t$95$2, If[LessEqual[z, -1.35e-150], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 5e-289], t$95$1, If[LessEqual[z, 1.75e-246], N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 4.4e-102], t$95$1, If[LessEqual[z, 5.9e+177], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 7.5e+245], t$95$2, N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
t_2 := c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{if}\;z \leq -3.2 \cdot 10^{+149}:\\
\;\;\;\;i \cdot \left(k \cdot \left(-z \cdot y1\right)\right)\\
\mathbf{elif}\;z \leq -2.4 \cdot 10^{-28}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;z \leq -1.35 \cdot 10^{-150}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{elif}\;z \leq 5 \cdot 10^{-289}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 1.75 \cdot 10^{-246}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{elif}\;z \leq 4.4 \cdot 10^{-102}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq 5.9 \cdot 10^{+177}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;z \leq 7.5 \cdot 10^{+245}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\end{array}
\end{array}
if z < -3.2000000000000002e149Initial program 31.3%
Taylor expanded in k around inf 44.5%
+-commutative44.5%
mul-1-neg44.5%
unsub-neg44.5%
*-commutative44.5%
associate-*r*44.5%
neg-mul-144.5%
Simplified44.5%
Taylor expanded in y1 around inf 53.1%
Taylor expanded in y2 around 0 52.7%
associate-*r*52.7%
neg-mul-152.7%
Simplified52.7%
if -3.2000000000000002e149 < z < -2.4000000000000002e-28 or 5.90000000000000038e177 < z < 7.5e245Initial program 20.9%
Taylor expanded in c around inf 46.2%
+-commutative46.2%
mul-1-neg46.2%
unsub-neg46.2%
*-commutative46.2%
*-commutative46.2%
*-commutative46.2%
*-commutative46.2%
Simplified46.2%
Taylor expanded in y0 around inf 48.5%
if -2.4000000000000002e-28 < z < -1.3500000000000001e-150Initial program 27.3%
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 42.2%
if -1.3500000000000001e-150 < z < 5.00000000000000029e-289 or 1.7500000000000001e-246 < z < 4.40000000000000026e-102Initial program 32.2%
Taylor expanded in k around inf 44.6%
+-commutative44.6%
mul-1-neg44.6%
unsub-neg44.6%
*-commutative44.6%
associate-*r*44.6%
neg-mul-144.6%
Simplified44.6%
Taylor expanded in y around inf 49.5%
if 5.00000000000000029e-289 < z < 1.7500000000000001e-246Initial program 1.1%
Taylor expanded in j around inf 32.4%
+-commutative32.4%
mul-1-neg32.4%
unsub-neg32.4%
*-commutative32.4%
Simplified32.4%
Taylor expanded in y3 around inf 53.0%
*-commutative53.0%
Simplified53.0%
if 4.40000000000000026e-102 < z < 5.90000000000000038e177Initial program 25.4%
Taylor expanded in b around inf 43.1%
Taylor expanded in y4 around inf 43.4%
if 7.5e245 < z Initial program 11.8%
Taylor expanded in c around inf 52.9%
+-commutative52.9%
mul-1-neg52.9%
unsub-neg52.9%
*-commutative52.9%
*-commutative52.9%
*-commutative52.9%
*-commutative52.9%
Simplified52.9%
Taylor expanded in i around inf 70.6%
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 (* k (* y2 (- (* y1 y4) (* y0 y5)))))
(t_2 (* c (* i (- (* z t) (* x y)))))
(t_3 (* k (* y (- (* i y5) (* b y4))))))
(if (<= y2 -1.75e+18)
t_1
(if (<= y2 -2.15e-188)
(* y0 (* b (- (* z k) (* x j))))
(if (<= y2 -2.55e-295)
t_3
(if (<= y2 1e-277)
t_2
(if (<= y2 5.8e-195)
t_3
(if (<= y2 1.4e-37)
(* j (* y3 (- (* y0 y5) (* y1 y4))))
(if (<= y2 1.05e+137)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= y2 1.05e+234) 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 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double t_2 = c * (i * ((z * t) - (x * y)));
double t_3 = k * (y * ((i * y5) - (b * y4)));
double tmp;
if (y2 <= -1.75e+18) {
tmp = t_1;
} else if (y2 <= -2.15e-188) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= -2.55e-295) {
tmp = t_3;
} else if (y2 <= 1e-277) {
tmp = t_2;
} else if (y2 <= 5.8e-195) {
tmp = t_3;
} else if (y2 <= 1.4e-37) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y2 <= 1.05e+137) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y2 <= 1.05e+234) {
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) :: t_3
real(8) :: tmp
t_1 = k * (y2 * ((y1 * y4) - (y0 * y5)))
t_2 = c * (i * ((z * t) - (x * y)))
t_3 = k * (y * ((i * y5) - (b * y4)))
if (y2 <= (-1.75d+18)) then
tmp = t_1
else if (y2 <= (-2.15d-188)) then
tmp = y0 * (b * ((z * k) - (x * j)))
else if (y2 <= (-2.55d-295)) then
tmp = t_3
else if (y2 <= 1d-277) then
tmp = t_2
else if (y2 <= 5.8d-195) then
tmp = t_3
else if (y2 <= 1.4d-37) then
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)))
else if (y2 <= 1.05d+137) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (y2 <= 1.05d+234) 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 = k * (y2 * ((y1 * y4) - (y0 * y5)));
double t_2 = c * (i * ((z * t) - (x * y)));
double t_3 = k * (y * ((i * y5) - (b * y4)));
double tmp;
if (y2 <= -1.75e+18) {
tmp = t_1;
} else if (y2 <= -2.15e-188) {
tmp = y0 * (b * ((z * k) - (x * j)));
} else if (y2 <= -2.55e-295) {
tmp = t_3;
} else if (y2 <= 1e-277) {
tmp = t_2;
} else if (y2 <= 5.8e-195) {
tmp = t_3;
} else if (y2 <= 1.4e-37) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y2 <= 1.05e+137) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y2 <= 1.05e+234) {
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 = k * (y2 * ((y1 * y4) - (y0 * y5))) t_2 = c * (i * ((z * t) - (x * y))) t_3 = k * (y * ((i * y5) - (b * y4))) tmp = 0 if y2 <= -1.75e+18: tmp = t_1 elif y2 <= -2.15e-188: tmp = y0 * (b * ((z * k) - (x * j))) elif y2 <= -2.55e-295: tmp = t_3 elif y2 <= 1e-277: tmp = t_2 elif y2 <= 5.8e-195: tmp = t_3 elif y2 <= 1.4e-37: tmp = j * (y3 * ((y0 * y5) - (y1 * y4))) elif y2 <= 1.05e+137: tmp = c * (y4 * ((y * y3) - (t * y2))) elif y2 <= 1.05e+234: 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(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) t_2 = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))) t_3 = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) tmp = 0.0 if (y2 <= -1.75e+18) tmp = t_1; elseif (y2 <= -2.15e-188) tmp = Float64(y0 * Float64(b * Float64(Float64(z * k) - Float64(x * j)))); elseif (y2 <= -2.55e-295) tmp = t_3; elseif (y2 <= 1e-277) tmp = t_2; elseif (y2 <= 5.8e-195) tmp = t_3; elseif (y2 <= 1.4e-37) tmp = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))); elseif (y2 <= 1.05e+137) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (y2 <= 1.05e+234) 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 = k * (y2 * ((y1 * y4) - (y0 * y5))); t_2 = c * (i * ((z * t) - (x * y))); t_3 = k * (y * ((i * y5) - (b * y4))); tmp = 0.0; if (y2 <= -1.75e+18) tmp = t_1; elseif (y2 <= -2.15e-188) tmp = y0 * (b * ((z * k) - (x * j))); elseif (y2 <= -2.55e-295) tmp = t_3; elseif (y2 <= 1e-277) tmp = t_2; elseif (y2 <= 5.8e-195) tmp = t_3; elseif (y2 <= 1.4e-37) tmp = j * (y3 * ((y0 * y5) - (y1 * y4))); elseif (y2 <= 1.05e+137) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (y2 <= 1.05e+234) 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[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -1.75e+18], t$95$1, If[LessEqual[y2, -2.15e-188], N[(y0 * N[(b * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, -2.55e-295], t$95$3, If[LessEqual[y2, 1e-277], t$95$2, If[LessEqual[y2, 5.8e-195], t$95$3, If[LessEqual[y2, 1.4e-37], N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.05e+137], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.05e+234], t$95$2, t$95$1]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
t_2 := c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
t_3 := k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{if}\;y2 \leq -1.75 \cdot 10^{+18}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq -2.15 \cdot 10^{-188}:\\
\;\;\;\;y0 \cdot \left(b \cdot \left(z \cdot k - x \cdot j\right)\right)\\
\mathbf{elif}\;y2 \leq -2.55 \cdot 10^{-295}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y2 \leq 10^{-277}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y2 \leq 5.8 \cdot 10^{-195}:\\
\;\;\;\;t\_3\\
\mathbf{elif}\;y2 \leq 1.4 \cdot 10^{-37}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq 1.05 \cdot 10^{+137}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y2 \leq 1.05 \cdot 10^{+234}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y2 < -1.75e18 or 1.05e234 < y2 Initial program 28.8%
Taylor expanded in k around inf 49.1%
+-commutative49.1%
mul-1-neg49.1%
unsub-neg49.1%
*-commutative49.1%
associate-*r*49.1%
neg-mul-149.1%
Simplified49.1%
Taylor expanded in y2 around inf 55.1%
if -1.75e18 < y2 < -2.14999999999999994e-188Initial program 33.3%
Taylor expanded in y0 around inf 34.3%
+-commutative34.3%
mul-1-neg34.3%
unsub-neg34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
*-commutative34.3%
Simplified34.3%
Taylor expanded in b around inf 40.7%
if -2.14999999999999994e-188 < y2 < -2.54999999999999995e-295 or 9.99999999999999969e-278 < y2 < 5.8000000000000003e-195Initial program 24.8%
Taylor expanded in k around inf 37.5%
+-commutative37.5%
mul-1-neg37.5%
unsub-neg37.5%
*-commutative37.5%
associate-*r*37.5%
neg-mul-137.5%
Simplified37.5%
Taylor expanded in y around inf 51.6%
if -2.54999999999999995e-295 < y2 < 9.99999999999999969e-278 or 1.05e137 < y2 < 1.05e234Initial program 13.7%
Taylor expanded in c around inf 52.0%
+-commutative52.0%
mul-1-neg52.0%
unsub-neg52.0%
*-commutative52.0%
*-commutative52.0%
*-commutative52.0%
*-commutative52.0%
Simplified52.0%
Taylor expanded in i around inf 60.2%
if 5.8000000000000003e-195 < y2 < 1.4000000000000001e-37Initial program 31.4%
Taylor expanded in j around inf 45.9%
+-commutative45.9%
mul-1-neg45.9%
unsub-neg45.9%
*-commutative45.9%
Simplified45.9%
Taylor expanded in y3 around inf 60.9%
*-commutative60.9%
Simplified60.9%
if 1.4000000000000001e-37 < y2 < 1.05e137Initial program 19.0%
Taylor expanded in c around inf 56.7%
+-commutative56.7%
mul-1-neg56.7%
unsub-neg56.7%
*-commutative56.7%
*-commutative56.7%
*-commutative56.7%
*-commutative56.7%
Simplified56.7%
Taylor expanded in y4 around inf 38.5%
Final simplification52.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* i (* k (- (* z y1))))) (t_2 (* a (* y (* y3 (- y5))))))
(if (<= z -1.7e+127)
t_1
(if (<= z -0.0145)
(* b (* k (* z y0)))
(if (<= z -7e-296)
(* j (* y4 (* t b)))
(if (<= z 1.85e-112)
(* y (* y3 (* c y4)))
(if (<= z 2.9e+51)
(* j (* t (* b y4)))
(if (<= z 7.8e+80)
t_2
(if (<= z 3.3e+107)
(* y0 (* k (* y2 (- y5))))
(if (<= z 7.5e+180) 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 = i * (k * -(z * y1));
double t_2 = a * (y * (y3 * -y5));
double tmp;
if (z <= -1.7e+127) {
tmp = t_1;
} else if (z <= -0.0145) {
tmp = b * (k * (z * y0));
} else if (z <= -7e-296) {
tmp = j * (y4 * (t * b));
} else if (z <= 1.85e-112) {
tmp = y * (y3 * (c * y4));
} else if (z <= 2.9e+51) {
tmp = j * (t * (b * y4));
} else if (z <= 7.8e+80) {
tmp = t_2;
} else if (z <= 3.3e+107) {
tmp = y0 * (k * (y2 * -y5));
} else if (z <= 7.5e+180) {
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 = i * (k * -(z * y1))
t_2 = a * (y * (y3 * -y5))
if (z <= (-1.7d+127)) then
tmp = t_1
else if (z <= (-0.0145d0)) then
tmp = b * (k * (z * y0))
else if (z <= (-7d-296)) then
tmp = j * (y4 * (t * b))
else if (z <= 1.85d-112) then
tmp = y * (y3 * (c * y4))
else if (z <= 2.9d+51) then
tmp = j * (t * (b * y4))
else if (z <= 7.8d+80) then
tmp = t_2
else if (z <= 3.3d+107) then
tmp = y0 * (k * (y2 * -y5))
else if (z <= 7.5d+180) 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 = i * (k * -(z * y1));
double t_2 = a * (y * (y3 * -y5));
double tmp;
if (z <= -1.7e+127) {
tmp = t_1;
} else if (z <= -0.0145) {
tmp = b * (k * (z * y0));
} else if (z <= -7e-296) {
tmp = j * (y4 * (t * b));
} else if (z <= 1.85e-112) {
tmp = y * (y3 * (c * y4));
} else if (z <= 2.9e+51) {
tmp = j * (t * (b * y4));
} else if (z <= 7.8e+80) {
tmp = t_2;
} else if (z <= 3.3e+107) {
tmp = y0 * (k * (y2 * -y5));
} else if (z <= 7.5e+180) {
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 = i * (k * -(z * y1)) t_2 = a * (y * (y3 * -y5)) tmp = 0 if z <= -1.7e+127: tmp = t_1 elif z <= -0.0145: tmp = b * (k * (z * y0)) elif z <= -7e-296: tmp = j * (y4 * (t * b)) elif z <= 1.85e-112: tmp = y * (y3 * (c * y4)) elif z <= 2.9e+51: tmp = j * (t * (b * y4)) elif z <= 7.8e+80: tmp = t_2 elif z <= 3.3e+107: tmp = y0 * (k * (y2 * -y5)) elif z <= 7.5e+180: 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(i * Float64(k * Float64(-Float64(z * y1)))) t_2 = Float64(a * Float64(y * Float64(y3 * Float64(-y5)))) tmp = 0.0 if (z <= -1.7e+127) tmp = t_1; elseif (z <= -0.0145) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (z <= -7e-296) tmp = Float64(j * Float64(y4 * Float64(t * b))); elseif (z <= 1.85e-112) tmp = Float64(y * Float64(y3 * Float64(c * y4))); elseif (z <= 2.9e+51) tmp = Float64(j * Float64(t * Float64(b * y4))); elseif (z <= 7.8e+80) tmp = t_2; elseif (z <= 3.3e+107) tmp = Float64(y0 * Float64(k * Float64(y2 * Float64(-y5)))); elseif (z <= 7.5e+180) 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 = i * (k * -(z * y1)); t_2 = a * (y * (y3 * -y5)); tmp = 0.0; if (z <= -1.7e+127) tmp = t_1; elseif (z <= -0.0145) tmp = b * (k * (z * y0)); elseif (z <= -7e-296) tmp = j * (y4 * (t * b)); elseif (z <= 1.85e-112) tmp = y * (y3 * (c * y4)); elseif (z <= 2.9e+51) tmp = j * (t * (b * y4)); elseif (z <= 7.8e+80) tmp = t_2; elseif (z <= 3.3e+107) tmp = y0 * (k * (y2 * -y5)); elseif (z <= 7.5e+180) 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[(i * N[(k * (-N[(z * y1), $MachinePrecision])), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(a * N[(y * N[(y3 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -1.7e+127], t$95$1, If[LessEqual[z, -0.0145], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -7e-296], N[(j * N[(y4 * N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.85e-112], N[(y * N[(y3 * N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.9e+51], N[(j * N[(t * N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 7.8e+80], t$95$2, If[LessEqual[z, 3.3e+107], N[(y0 * N[(k * N[(y2 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 7.5e+180], t$95$2, t$95$1]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(k \cdot \left(-z \cdot y1\right)\right)\\
t_2 := a \cdot \left(y \cdot \left(y3 \cdot \left(-y5\right)\right)\right)\\
\mathbf{if}\;z \leq -1.7 \cdot 10^{+127}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -0.0145:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;z \leq -7 \cdot 10^{-296}:\\
\;\;\;\;j \cdot \left(y4 \cdot \left(t \cdot b\right)\right)\\
\mathbf{elif}\;z \leq 1.85 \cdot 10^{-112}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4\right)\right)\\
\mathbf{elif}\;z \leq 2.9 \cdot 10^{+51}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4\right)\right)\\
\mathbf{elif}\;z \leq 7.8 \cdot 10^{+80}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;z \leq 3.3 \cdot 10^{+107}:\\
\;\;\;\;y0 \cdot \left(k \cdot \left(y2 \cdot \left(-y5\right)\right)\right)\\
\mathbf{elif}\;z \leq 7.5 \cdot 10^{+180}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -1.69999999999999989e127 or 7.5000000000000003e180 < z Initial program 19.1%
Taylor expanded in k around inf 35.0%
+-commutative35.0%
mul-1-neg35.0%
unsub-neg35.0%
*-commutative35.0%
associate-*r*35.0%
neg-mul-135.0%
Simplified35.0%
Taylor expanded in y1 around inf 49.4%
Taylor expanded in y2 around 0 49.2%
associate-*r*49.2%
neg-mul-149.2%
Simplified49.2%
if -1.69999999999999989e127 < z < -0.0145000000000000007Initial program 26.5%
Taylor expanded in y0 around inf 61.2%
+-commutative61.2%
mul-1-neg61.2%
unsub-neg61.2%
*-commutative61.2%
*-commutative61.2%
*-commutative61.2%
*-commutative61.2%
Simplified61.2%
Taylor expanded in k around inf 44.4%
mul-1-neg44.4%
+-commutative44.4%
mul-1-neg44.4%
sub-neg44.4%
Simplified44.4%
Taylor expanded in y2 around 0 35.7%
if -0.0145000000000000007 < z < -6.9999999999999998e-296Initial program 37.5%
Taylor expanded in j around inf 41.4%
+-commutative41.4%
mul-1-neg41.4%
unsub-neg41.4%
*-commutative41.4%
Simplified41.4%
Taylor expanded in t around inf 34.0%
Taylor expanded in b around inf 23.3%
associate-*r*26.4%
*-commutative26.4%
Simplified26.4%
if -6.9999999999999998e-296 < z < 1.8499999999999999e-112Initial program 15.8%
Taylor expanded in y3 around -inf 37.6%
Taylor expanded in y around inf 37.5%
Taylor expanded in a around 0 33.9%
mul-1-neg33.9%
distribute-lft-neg-out33.9%
*-commutative33.9%
Simplified33.9%
if 1.8499999999999999e-112 < z < 2.8999999999999998e51Initial program 35.8%
Taylor expanded in j around inf 60.8%
+-commutative60.8%
mul-1-neg60.8%
unsub-neg60.8%
*-commutative60.8%
Simplified60.8%
Taylor expanded in t around inf 33.5%
Taylor expanded in b around inf 29.3%
*-commutative29.3%
Simplified29.3%
if 2.8999999999999998e51 < z < 7.79999999999999998e80 or 3.30000000000000032e107 < z < 7.5000000000000003e180Initial program 25.0%
Taylor expanded in y3 around -inf 40.4%
Taylor expanded in y around inf 50.4%
Taylor expanded in a around inf 56.0%
if 7.79999999999999998e80 < z < 3.30000000000000032e107Initial program 12.5%
Taylor expanded in y0 around inf 62.5%
+-commutative62.5%
mul-1-neg62.5%
unsub-neg62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
*-commutative62.5%
Simplified62.5%
Taylor expanded in k around inf 51.0%
mul-1-neg51.0%
+-commutative51.0%
mul-1-neg51.0%
sub-neg51.0%
Simplified51.0%
Taylor expanded in y2 around inf 50.8%
*-commutative50.8%
Simplified50.8%
Final simplification37.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* c (* i (- (* z t) (* x y))))))
(if (<= y4 -1.45e+80)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y4 -2.1e-26)
(* (* b j) (* t y4))
(if (<= y4 -2.5e-74)
(* i (* z (* k (- y1))))
(if (<= y4 -9.5e-107)
t_1
(if (<= y4 -5.5e-155)
(* y (* y3 (* a (- y5))))
(if (<= y4 2.4e-80)
t_1
(if (<= y4 1.2e+14)
(* i (* k (- (* z y1))))
(if (<= y4 9.5e+214)
(* y (* y3 (* c y4)))
(* k (* y1 (* y2 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 = c * (i * ((z * t) - (x * y)));
double tmp;
if (y4 <= -1.45e+80) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -2.1e-26) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -2.5e-74) {
tmp = i * (z * (k * -y1));
} else if (y4 <= -9.5e-107) {
tmp = t_1;
} else if (y4 <= -5.5e-155) {
tmp = y * (y3 * (a * -y5));
} else if (y4 <= 2.4e-80) {
tmp = t_1;
} else if (y4 <= 1.2e+14) {
tmp = i * (k * -(z * y1));
} else if (y4 <= 9.5e+214) {
tmp = y * (y3 * (c * y4));
} else {
tmp = k * (y1 * (y2 * y4));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = c * (i * ((z * t) - (x * y)))
if (y4 <= (-1.45d+80)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y4 <= (-2.1d-26)) then
tmp = (b * j) * (t * y4)
else if (y4 <= (-2.5d-74)) then
tmp = i * (z * (k * -y1))
else if (y4 <= (-9.5d-107)) then
tmp = t_1
else if (y4 <= (-5.5d-155)) then
tmp = y * (y3 * (a * -y5))
else if (y4 <= 2.4d-80) then
tmp = t_1
else if (y4 <= 1.2d+14) then
tmp = i * (k * -(z * y1))
else if (y4 <= 9.5d+214) then
tmp = y * (y3 * (c * y4))
else
tmp = k * (y1 * (y2 * 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 = c * (i * ((z * t) - (x * y)));
double tmp;
if (y4 <= -1.45e+80) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -2.1e-26) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -2.5e-74) {
tmp = i * (z * (k * -y1));
} else if (y4 <= -9.5e-107) {
tmp = t_1;
} else if (y4 <= -5.5e-155) {
tmp = y * (y3 * (a * -y5));
} else if (y4 <= 2.4e-80) {
tmp = t_1;
} else if (y4 <= 1.2e+14) {
tmp = i * (k * -(z * y1));
} else if (y4 <= 9.5e+214) {
tmp = y * (y3 * (c * y4));
} else {
tmp = k * (y1 * (y2 * y4));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = c * (i * ((z * t) - (x * y))) tmp = 0 if y4 <= -1.45e+80: tmp = b * (y4 * ((t * j) - (y * k))) elif y4 <= -2.1e-26: tmp = (b * j) * (t * y4) elif y4 <= -2.5e-74: tmp = i * (z * (k * -y1)) elif y4 <= -9.5e-107: tmp = t_1 elif y4 <= -5.5e-155: tmp = y * (y3 * (a * -y5)) elif y4 <= 2.4e-80: tmp = t_1 elif y4 <= 1.2e+14: tmp = i * (k * -(z * y1)) elif y4 <= 9.5e+214: tmp = y * (y3 * (c * y4)) else: tmp = k * (y1 * (y2 * y4)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))) tmp = 0.0 if (y4 <= -1.45e+80) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y4 <= -2.1e-26) tmp = Float64(Float64(b * j) * Float64(t * y4)); elseif (y4 <= -2.5e-74) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); elseif (y4 <= -9.5e-107) tmp = t_1; elseif (y4 <= -5.5e-155) tmp = Float64(y * Float64(y3 * Float64(a * Float64(-y5)))); elseif (y4 <= 2.4e-80) tmp = t_1; elseif (y4 <= 1.2e+14) tmp = Float64(i * Float64(k * Float64(-Float64(z * y1)))); elseif (y4 <= 9.5e+214) tmp = Float64(y * Float64(y3 * Float64(c * y4))); else tmp = Float64(k * Float64(y1 * Float64(y2 * 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 = c * (i * ((z * t) - (x * y))); tmp = 0.0; if (y4 <= -1.45e+80) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y4 <= -2.1e-26) tmp = (b * j) * (t * y4); elseif (y4 <= -2.5e-74) tmp = i * (z * (k * -y1)); elseif (y4 <= -9.5e-107) tmp = t_1; elseif (y4 <= -5.5e-155) tmp = y * (y3 * (a * -y5)); elseif (y4 <= 2.4e-80) tmp = t_1; elseif (y4 <= 1.2e+14) tmp = i * (k * -(z * y1)); elseif (y4 <= 9.5e+214) tmp = y * (y3 * (c * y4)); else tmp = k * (y1 * (y2 * 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[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -1.45e+80], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.1e-26], N[(N[(b * j), $MachinePrecision] * N[(t * y4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.5e-74], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -9.5e-107], t$95$1, If[LessEqual[y4, -5.5e-155], N[(y * N[(y3 * N[(a * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 2.4e-80], t$95$1, If[LessEqual[y4, 1.2e+14], N[(i * N[(k * (-N[(z * y1), $MachinePrecision])), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 9.5e+214], N[(y * N[(y3 * N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{if}\;y4 \leq -1.45 \cdot 10^{+80}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y4 \leq -2.1 \cdot 10^{-26}:\\
\;\;\;\;\left(b \cdot j\right) \cdot \left(t \cdot y4\right)\\
\mathbf{elif}\;y4 \leq -2.5 \cdot 10^{-74}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;y4 \leq -9.5 \cdot 10^{-107}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -5.5 \cdot 10^{-155}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(a \cdot \left(-y5\right)\right)\right)\\
\mathbf{elif}\;y4 \leq 2.4 \cdot 10^{-80}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 1.2 \cdot 10^{+14}:\\
\;\;\;\;i \cdot \left(k \cdot \left(-z \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 9.5 \cdot 10^{+214}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\end{array}
\end{array}
if y4 < -1.44999999999999993e80Initial program 11.3%
Taylor expanded in b around inf 39.5%
Taylor expanded in y4 around inf 52.6%
if -1.44999999999999993e80 < y4 < -2.10000000000000008e-26Initial program 32.0%
Taylor expanded in j around inf 39.9%
+-commutative39.9%
mul-1-neg39.9%
unsub-neg39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in t around inf 26.5%
Taylor expanded in b around inf 27.2%
associate-*r*37.3%
*-commutative37.3%
*-commutative37.3%
Simplified37.3%
if -2.10000000000000008e-26 < y4 < -2.49999999999999999e-74Initial program 41.7%
Taylor expanded in k around inf 58.7%
+-commutative58.7%
mul-1-neg58.7%
unsub-neg58.7%
*-commutative58.7%
associate-*r*58.7%
neg-mul-158.7%
Simplified58.7%
Taylor expanded in y1 around inf 43.8%
Taylor expanded in y2 around 0 19.3%
mul-1-neg19.3%
*-commutative19.3%
distribute-lft-neg-in19.3%
associate-*r*35.3%
distribute-lft-neg-in35.3%
*-commutative35.3%
distribute-lft-neg-in35.3%
Simplified35.3%
if -2.49999999999999999e-74 < y4 < -9.4999999999999999e-107 or -5.50000000000000018e-155 < y4 < 2.3999999999999999e-80Initial program 28.3%
Taylor expanded in c around inf 43.6%
+-commutative43.6%
mul-1-neg43.6%
unsub-neg43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in i around inf 50.0%
if -9.4999999999999999e-107 < y4 < -5.50000000000000018e-155Initial program 10.9%
Taylor expanded in y3 around -inf 33.8%
Taylor expanded in y around inf 44.9%
Taylor expanded in a around inf 44.8%
if 2.3999999999999999e-80 < y4 < 1.2e14Initial program 28.4%
Taylor expanded in k around inf 53.0%
+-commutative53.0%
mul-1-neg53.0%
unsub-neg53.0%
*-commutative53.0%
associate-*r*53.0%
neg-mul-153.0%
Simplified53.0%
Taylor expanded in y1 around inf 30.4%
Taylor expanded in y2 around 0 39.2%
associate-*r*39.2%
neg-mul-139.2%
Simplified39.2%
if 1.2e14 < y4 < 9.49999999999999921e214Initial program 29.9%
Taylor expanded in y3 around -inf 51.9%
Taylor expanded in y around inf 49.2%
Taylor expanded in a around 0 41.1%
mul-1-neg41.1%
distribute-lft-neg-out41.1%
*-commutative41.1%
Simplified41.1%
if 9.49999999999999921e214 < y4 Initial program 23.8%
Taylor expanded in k around inf 48.0%
+-commutative48.0%
mul-1-neg48.0%
unsub-neg48.0%
*-commutative48.0%
associate-*r*48.0%
neg-mul-148.0%
Simplified48.0%
Taylor expanded in y1 around inf 52.8%
Taylor expanded in y2 around inf 53.2%
Final simplification46.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* c (* i (- (* z t) (* x y))))))
(if (<= y4 -1.82e+80)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y4 -1.8e-26)
(* (* b j) (* t y4))
(if (<= y4 -2.5e-74)
(* i (* z (* k (- y1))))
(if (<= y4 -9e-104)
t_1
(if (<= y4 -6.2e-220)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= y4 2.8e-80)
t_1
(if (<= y4 1900000000000.0)
(* i (* k (- (* z y1))))
(if (<= y4 1.45e+215)
(* y (* y3 (* c y4)))
(* k (* y1 (* y2 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 = c * (i * ((z * t) - (x * y)));
double tmp;
if (y4 <= -1.82e+80) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -1.8e-26) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -2.5e-74) {
tmp = i * (z * (k * -y1));
} else if (y4 <= -9e-104) {
tmp = t_1;
} else if (y4 <= -6.2e-220) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= 2.8e-80) {
tmp = t_1;
} else if (y4 <= 1900000000000.0) {
tmp = i * (k * -(z * y1));
} else if (y4 <= 1.45e+215) {
tmp = y * (y3 * (c * y4));
} else {
tmp = k * (y1 * (y2 * y4));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = c * (i * ((z * t) - (x * y)))
if (y4 <= (-1.82d+80)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y4 <= (-1.8d-26)) then
tmp = (b * j) * (t * y4)
else if (y4 <= (-2.5d-74)) then
tmp = i * (z * (k * -y1))
else if (y4 <= (-9d-104)) then
tmp = t_1
else if (y4 <= (-6.2d-220)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (y4 <= 2.8d-80) then
tmp = t_1
else if (y4 <= 1900000000000.0d0) then
tmp = i * (k * -(z * y1))
else if (y4 <= 1.45d+215) then
tmp = y * (y3 * (c * y4))
else
tmp = k * (y1 * (y2 * 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 = c * (i * ((z * t) - (x * y)));
double tmp;
if (y4 <= -1.82e+80) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -1.8e-26) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -2.5e-74) {
tmp = i * (z * (k * -y1));
} else if (y4 <= -9e-104) {
tmp = t_1;
} else if (y4 <= -6.2e-220) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= 2.8e-80) {
tmp = t_1;
} else if (y4 <= 1900000000000.0) {
tmp = i * (k * -(z * y1));
} else if (y4 <= 1.45e+215) {
tmp = y * (y3 * (c * y4));
} else {
tmp = k * (y1 * (y2 * y4));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = c * (i * ((z * t) - (x * y))) tmp = 0 if y4 <= -1.82e+80: tmp = b * (y4 * ((t * j) - (y * k))) elif y4 <= -1.8e-26: tmp = (b * j) * (t * y4) elif y4 <= -2.5e-74: tmp = i * (z * (k * -y1)) elif y4 <= -9e-104: tmp = t_1 elif y4 <= -6.2e-220: tmp = c * (y0 * ((x * y2) - (z * y3))) elif y4 <= 2.8e-80: tmp = t_1 elif y4 <= 1900000000000.0: tmp = i * (k * -(z * y1)) elif y4 <= 1.45e+215: tmp = y * (y3 * (c * y4)) else: tmp = k * (y1 * (y2 * y4)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))) tmp = 0.0 if (y4 <= -1.82e+80) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y4 <= -1.8e-26) tmp = Float64(Float64(b * j) * Float64(t * y4)); elseif (y4 <= -2.5e-74) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); elseif (y4 <= -9e-104) tmp = t_1; elseif (y4 <= -6.2e-220) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (y4 <= 2.8e-80) tmp = t_1; elseif (y4 <= 1900000000000.0) tmp = Float64(i * Float64(k * Float64(-Float64(z * y1)))); elseif (y4 <= 1.45e+215) tmp = Float64(y * Float64(y3 * Float64(c * y4))); else tmp = Float64(k * Float64(y1 * Float64(y2 * 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 = c * (i * ((z * t) - (x * y))); tmp = 0.0; if (y4 <= -1.82e+80) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y4 <= -1.8e-26) tmp = (b * j) * (t * y4); elseif (y4 <= -2.5e-74) tmp = i * (z * (k * -y1)); elseif (y4 <= -9e-104) tmp = t_1; elseif (y4 <= -6.2e-220) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (y4 <= 2.8e-80) tmp = t_1; elseif (y4 <= 1900000000000.0) tmp = i * (k * -(z * y1)); elseif (y4 <= 1.45e+215) tmp = y * (y3 * (c * y4)); else tmp = k * (y1 * (y2 * 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[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -1.82e+80], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1.8e-26], N[(N[(b * j), $MachinePrecision] * N[(t * y4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.5e-74], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -9e-104], t$95$1, If[LessEqual[y4, -6.2e-220], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 2.8e-80], t$95$1, If[LessEqual[y4, 1900000000000.0], N[(i * N[(k * (-N[(z * y1), $MachinePrecision])), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.45e+215], N[(y * N[(y3 * N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{if}\;y4 \leq -1.82 \cdot 10^{+80}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y4 \leq -1.8 \cdot 10^{-26}:\\
\;\;\;\;\left(b \cdot j\right) \cdot \left(t \cdot y4\right)\\
\mathbf{elif}\;y4 \leq -2.5 \cdot 10^{-74}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;y4 \leq -9 \cdot 10^{-104}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -6.2 \cdot 10^{-220}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;y4 \leq 2.8 \cdot 10^{-80}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 1900000000000:\\
\;\;\;\;i \cdot \left(k \cdot \left(-z \cdot y1\right)\right)\\
\mathbf{elif}\;y4 \leq 1.45 \cdot 10^{+215}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\end{array}
\end{array}
if y4 < -1.81999999999999987e80Initial program 11.3%
Taylor expanded in b around inf 39.5%
Taylor expanded in y4 around inf 52.6%
if -1.81999999999999987e80 < y4 < -1.8000000000000001e-26Initial program 32.0%
Taylor expanded in j around inf 39.9%
+-commutative39.9%
mul-1-neg39.9%
unsub-neg39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in t around inf 26.5%
Taylor expanded in b around inf 27.2%
associate-*r*37.3%
*-commutative37.3%
*-commutative37.3%
Simplified37.3%
if -1.8000000000000001e-26 < y4 < -2.49999999999999999e-74Initial program 41.7%
Taylor expanded in k around inf 58.7%
+-commutative58.7%
mul-1-neg58.7%
unsub-neg58.7%
*-commutative58.7%
associate-*r*58.7%
neg-mul-158.7%
Simplified58.7%
Taylor expanded in y1 around inf 43.8%
Taylor expanded in y2 around 0 19.3%
mul-1-neg19.3%
*-commutative19.3%
distribute-lft-neg-in19.3%
associate-*r*35.3%
distribute-lft-neg-in35.3%
*-commutative35.3%
distribute-lft-neg-in35.3%
Simplified35.3%
if -2.49999999999999999e-74 < y4 < -8.9999999999999995e-104 or -6.20000000000000023e-220 < y4 < 2.79999999999999989e-80Initial program 26.5%
Taylor expanded in c around inf 41.0%
+-commutative41.0%
mul-1-neg41.0%
unsub-neg41.0%
*-commutative41.0%
*-commutative41.0%
*-commutative41.0%
*-commutative41.0%
Simplified41.0%
Taylor expanded in i around inf 53.4%
if -8.9999999999999995e-104 < y4 < -6.20000000000000023e-220Initial program 26.9%
Taylor expanded in c around inf 39.4%
+-commutative39.4%
mul-1-neg39.4%
unsub-neg39.4%
*-commutative39.4%
*-commutative39.4%
*-commutative39.4%
*-commutative39.4%
Simplified39.4%
Taylor expanded in y0 around inf 47.1%
if 2.79999999999999989e-80 < y4 < 1.9e12Initial program 28.4%
Taylor expanded in k around inf 53.0%
+-commutative53.0%
mul-1-neg53.0%
unsub-neg53.0%
*-commutative53.0%
associate-*r*53.0%
neg-mul-153.0%
Simplified53.0%
Taylor expanded in y1 around inf 30.4%
Taylor expanded in y2 around 0 39.2%
associate-*r*39.2%
neg-mul-139.2%
Simplified39.2%
if 1.9e12 < y4 < 1.45e215Initial program 29.9%
Taylor expanded in y3 around -inf 51.9%
Taylor expanded in y around inf 49.2%
Taylor expanded in a around 0 41.1%
mul-1-neg41.1%
distribute-lft-neg-out41.1%
*-commutative41.1%
Simplified41.1%
if 1.45e215 < y4 Initial program 23.8%
Taylor expanded in k around inf 48.0%
+-commutative48.0%
mul-1-neg48.0%
unsub-neg48.0%
*-commutative48.0%
associate-*r*48.0%
neg-mul-148.0%
Simplified48.0%
Taylor expanded in y1 around inf 52.8%
Taylor expanded in y2 around inf 53.2%
Final simplification47.1%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* c (* i (- (* z t) (* x y)))))
(t_2 (* j (* y3 (- (* y0 y5) (* y1 y4))))))
(if (<= y4 -3.7e+84)
(* b (* y4 (- (* t j) (* y k))))
(if (<= y4 -1.75e-23)
(* (* b j) (* t y4))
(if (<= y4 -7e-75)
t_2
(if (<= y4 -1.96e-106)
t_1
(if (<= y4 -6e-220)
(* c (* y0 (- (* x y2) (* z y3))))
(if (<= y4 2e-80)
t_1
(if (<= y4 1.1e+71)
t_2
(* c (* y4 (- (* y y3) (* t 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 = c * (i * ((z * t) - (x * y)));
double t_2 = j * (y3 * ((y0 * y5) - (y1 * y4)));
double tmp;
if (y4 <= -3.7e+84) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -1.75e-23) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -7e-75) {
tmp = t_2;
} else if (y4 <= -1.96e-106) {
tmp = t_1;
} else if (y4 <= -6e-220) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= 2e-80) {
tmp = t_1;
} else if (y4 <= 1.1e+71) {
tmp = t_2;
} else {
tmp = c * (y4 * ((y * y3) - (t * 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 = c * (i * ((z * t) - (x * y)))
t_2 = j * (y3 * ((y0 * y5) - (y1 * y4)))
if (y4 <= (-3.7d+84)) then
tmp = b * (y4 * ((t * j) - (y * k)))
else if (y4 <= (-1.75d-23)) then
tmp = (b * j) * (t * y4)
else if (y4 <= (-7d-75)) then
tmp = t_2
else if (y4 <= (-1.96d-106)) then
tmp = t_1
else if (y4 <= (-6d-220)) then
tmp = c * (y0 * ((x * y2) - (z * y3)))
else if (y4 <= 2d-80) then
tmp = t_1
else if (y4 <= 1.1d+71) then
tmp = t_2
else
tmp = c * (y4 * ((y * y3) - (t * 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 = c * (i * ((z * t) - (x * y)));
double t_2 = j * (y3 * ((y0 * y5) - (y1 * y4)));
double tmp;
if (y4 <= -3.7e+84) {
tmp = b * (y4 * ((t * j) - (y * k)));
} else if (y4 <= -1.75e-23) {
tmp = (b * j) * (t * y4);
} else if (y4 <= -7e-75) {
tmp = t_2;
} else if (y4 <= -1.96e-106) {
tmp = t_1;
} else if (y4 <= -6e-220) {
tmp = c * (y0 * ((x * y2) - (z * y3)));
} else if (y4 <= 2e-80) {
tmp = t_1;
} else if (y4 <= 1.1e+71) {
tmp = t_2;
} else {
tmp = c * (y4 * ((y * y3) - (t * y2)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = c * (i * ((z * t) - (x * y))) t_2 = j * (y3 * ((y0 * y5) - (y1 * y4))) tmp = 0 if y4 <= -3.7e+84: tmp = b * (y4 * ((t * j) - (y * k))) elif y4 <= -1.75e-23: tmp = (b * j) * (t * y4) elif y4 <= -7e-75: tmp = t_2 elif y4 <= -1.96e-106: tmp = t_1 elif y4 <= -6e-220: tmp = c * (y0 * ((x * y2) - (z * y3))) elif y4 <= 2e-80: tmp = t_1 elif y4 <= 1.1e+71: tmp = t_2 else: tmp = c * (y4 * ((y * y3) - (t * y2))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))) t_2 = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))) tmp = 0.0 if (y4 <= -3.7e+84) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))); elseif (y4 <= -1.75e-23) tmp = Float64(Float64(b * j) * Float64(t * y4)); elseif (y4 <= -7e-75) tmp = t_2; elseif (y4 <= -1.96e-106) tmp = t_1; elseif (y4 <= -6e-220) tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3)))); elseif (y4 <= 2e-80) tmp = t_1; elseif (y4 <= 1.1e+71) tmp = t_2; else tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * 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 = c * (i * ((z * t) - (x * y))); t_2 = j * (y3 * ((y0 * y5) - (y1 * y4))); tmp = 0.0; if (y4 <= -3.7e+84) tmp = b * (y4 * ((t * j) - (y * k))); elseif (y4 <= -1.75e-23) tmp = (b * j) * (t * y4); elseif (y4 <= -7e-75) tmp = t_2; elseif (y4 <= -1.96e-106) tmp = t_1; elseif (y4 <= -6e-220) tmp = c * (y0 * ((x * y2) - (z * y3))); elseif (y4 <= 2e-80) tmp = t_1; elseif (y4 <= 1.1e+71) tmp = t_2; else tmp = c * (y4 * ((y * y3) - (t * 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[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -3.7e+84], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1.75e-23], N[(N[(b * j), $MachinePrecision] * N[(t * y4), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -7e-75], t$95$2, If[LessEqual[y4, -1.96e-106], t$95$1, If[LessEqual[y4, -6e-220], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 2e-80], t$95$1, If[LessEqual[y4, 1.1e+71], t$95$2, N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
t_2 := j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{if}\;y4 \leq -3.7 \cdot 10^{+84}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{elif}\;y4 \leq -1.75 \cdot 10^{-23}:\\
\;\;\;\;\left(b \cdot j\right) \cdot \left(t \cdot y4\right)\\
\mathbf{elif}\;y4 \leq -7 \cdot 10^{-75}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y4 \leq -1.96 \cdot 10^{-106}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq -6 \cdot 10^{-220}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\mathbf{elif}\;y4 \leq 2 \cdot 10^{-80}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y4 \leq 1.1 \cdot 10^{+71}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\end{array}
\end{array}
if y4 < -3.7e84Initial program 11.3%
Taylor expanded in b around inf 39.5%
Taylor expanded in y4 around inf 52.6%
if -3.7e84 < y4 < -1.74999999999999997e-23Initial program 30.6%
Taylor expanded in j around inf 35.3%
+-commutative35.3%
mul-1-neg35.3%
unsub-neg35.3%
*-commutative35.3%
Simplified35.3%
Taylor expanded in t around inf 24.5%
Taylor expanded in b around inf 25.3%
associate-*r*36.2%
*-commutative36.2%
*-commutative36.2%
Simplified36.2%
if -1.74999999999999997e-23 < y4 < -6.9999999999999997e-75 or 1.99999999999999992e-80 < y4 < 1.09999999999999997e71Initial program 31.0%
Taylor expanded in j around inf 56.0%
+-commutative56.0%
mul-1-neg56.0%
unsub-neg56.0%
*-commutative56.0%
Simplified56.0%
Taylor expanded in y3 around inf 41.5%
*-commutative41.5%
Simplified41.5%
if -6.9999999999999997e-75 < y4 < -1.95999999999999992e-106 or -6.00000000000000035e-220 < y4 < 1.99999999999999992e-80Initial program 26.5%
Taylor expanded in c around inf 41.0%
+-commutative41.0%
mul-1-neg41.0%
unsub-neg41.0%
*-commutative41.0%
*-commutative41.0%
*-commutative41.0%
*-commutative41.0%
Simplified41.0%
Taylor expanded in i around inf 53.4%
if -1.95999999999999992e-106 < y4 < -6.00000000000000035e-220Initial program 26.9%
Taylor expanded in c around inf 39.4%
+-commutative39.4%
mul-1-neg39.4%
unsub-neg39.4%
*-commutative39.4%
*-commutative39.4%
*-commutative39.4%
*-commutative39.4%
Simplified39.4%
Taylor expanded in y0 around inf 47.1%
if 1.09999999999999997e71 < y4 Initial program 29.3%
Taylor expanded in c around inf 46.1%
+-commutative46.1%
mul-1-neg46.1%
unsub-neg46.1%
*-commutative46.1%
*-commutative46.1%
*-commutative46.1%
*-commutative46.1%
Simplified46.1%
Taylor expanded in y4 around inf 48.7%
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 (* i (* k (- (* z y1))))) (t_2 (* b (* (* x y) a))))
(if (<= z -8.5e+126)
t_1
(if (<= z -0.0165)
(* b (* k (* z y0)))
(if (<= z 1.32e-256)
(* j (* y4 (* t b)))
(if (<= z 5e-208)
t_2
(if (<= z 3.4e-93)
(* b (* j (* t y4)))
(if (<= z 1.4e+170)
t_2
(if (<= z 7.5e+180) (* y0 (* k (* y2 (- y5)))) t_1)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * (k * -(z * y1));
double t_2 = b * ((x * y) * a);
double tmp;
if (z <= -8.5e+126) {
tmp = t_1;
} else if (z <= -0.0165) {
tmp = b * (k * (z * y0));
} else if (z <= 1.32e-256) {
tmp = j * (y4 * (t * b));
} else if (z <= 5e-208) {
tmp = t_2;
} else if (z <= 3.4e-93) {
tmp = b * (j * (t * y4));
} else if (z <= 1.4e+170) {
tmp = t_2;
} else if (z <= 7.5e+180) {
tmp = y0 * (k * (y2 * -y5));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = i * (k * -(z * y1))
t_2 = b * ((x * y) * a)
if (z <= (-8.5d+126)) then
tmp = t_1
else if (z <= (-0.0165d0)) then
tmp = b * (k * (z * y0))
else if (z <= 1.32d-256) then
tmp = j * (y4 * (t * b))
else if (z <= 5d-208) then
tmp = t_2
else if (z <= 3.4d-93) then
tmp = b * (j * (t * y4))
else if (z <= 1.4d+170) then
tmp = t_2
else if (z <= 7.5d+180) then
tmp = y0 * (k * (y2 * -y5))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * (k * -(z * y1));
double t_2 = b * ((x * y) * a);
double tmp;
if (z <= -8.5e+126) {
tmp = t_1;
} else if (z <= -0.0165) {
tmp = b * (k * (z * y0));
} else if (z <= 1.32e-256) {
tmp = j * (y4 * (t * b));
} else if (z <= 5e-208) {
tmp = t_2;
} else if (z <= 3.4e-93) {
tmp = b * (j * (t * y4));
} else if (z <= 1.4e+170) {
tmp = t_2;
} else if (z <= 7.5e+180) {
tmp = y0 * (k * (y2 * -y5));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = i * (k * -(z * y1)) t_2 = b * ((x * y) * a) tmp = 0 if z <= -8.5e+126: tmp = t_1 elif z <= -0.0165: tmp = b * (k * (z * y0)) elif z <= 1.32e-256: tmp = j * (y4 * (t * b)) elif z <= 5e-208: tmp = t_2 elif z <= 3.4e-93: tmp = b * (j * (t * y4)) elif z <= 1.4e+170: tmp = t_2 elif z <= 7.5e+180: tmp = y0 * (k * (y2 * -y5)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(i * Float64(k * Float64(-Float64(z * y1)))) t_2 = Float64(b * Float64(Float64(x * y) * a)) tmp = 0.0 if (z <= -8.5e+126) tmp = t_1; elseif (z <= -0.0165) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (z <= 1.32e-256) tmp = Float64(j * Float64(y4 * Float64(t * b))); elseif (z <= 5e-208) tmp = t_2; elseif (z <= 3.4e-93) tmp = Float64(b * Float64(j * Float64(t * y4))); elseif (z <= 1.4e+170) tmp = t_2; elseif (z <= 7.5e+180) tmp = Float64(y0 * Float64(k * Float64(y2 * Float64(-y5)))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = i * (k * -(z * y1)); t_2 = b * ((x * y) * a); tmp = 0.0; if (z <= -8.5e+126) tmp = t_1; elseif (z <= -0.0165) tmp = b * (k * (z * y0)); elseif (z <= 1.32e-256) tmp = j * (y4 * (t * b)); elseif (z <= 5e-208) tmp = t_2; elseif (z <= 3.4e-93) tmp = b * (j * (t * y4)); elseif (z <= 1.4e+170) tmp = t_2; elseif (z <= 7.5e+180) tmp = y0 * (k * (y2 * -y5)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(i * N[(k * (-N[(z * y1), $MachinePrecision])), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(N[(x * y), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -8.5e+126], t$95$1, If[LessEqual[z, -0.0165], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.32e-256], N[(j * N[(y4 * N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 5e-208], t$95$2, If[LessEqual[z, 3.4e-93], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1.4e+170], t$95$2, If[LessEqual[z, 7.5e+180], N[(y0 * N[(k * N[(y2 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(k \cdot \left(-z \cdot y1\right)\right)\\
t_2 := b \cdot \left(\left(x \cdot y\right) \cdot a\right)\\
\mathbf{if}\;z \leq -8.5 \cdot 10^{+126}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -0.0165:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;z \leq 1.32 \cdot 10^{-256}:\\
\;\;\;\;j \cdot \left(y4 \cdot \left(t \cdot b\right)\right)\\
\mathbf{elif}\;z \leq 5 \cdot 10^{-208}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;z \leq 3.4 \cdot 10^{-93}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{elif}\;z \leq 1.4 \cdot 10^{+170}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;z \leq 7.5 \cdot 10^{+180}:\\
\;\;\;\;y0 \cdot \left(k \cdot \left(y2 \cdot \left(-y5\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -8.49999999999999944e126 or 7.5000000000000003e180 < z Initial program 19.1%
Taylor expanded in k around inf 35.0%
+-commutative35.0%
mul-1-neg35.0%
unsub-neg35.0%
*-commutative35.0%
associate-*r*35.0%
neg-mul-135.0%
Simplified35.0%
Taylor expanded in y1 around inf 49.4%
Taylor expanded in y2 around 0 49.2%
associate-*r*49.2%
neg-mul-149.2%
Simplified49.2%
if -8.49999999999999944e126 < z < -0.016500000000000001Initial program 26.5%
Taylor expanded in y0 around inf 61.2%
+-commutative61.2%
mul-1-neg61.2%
unsub-neg61.2%
*-commutative61.2%
*-commutative61.2%
*-commutative61.2%
*-commutative61.2%
Simplified61.2%
Taylor expanded in k around inf 44.4%
mul-1-neg44.4%
+-commutative44.4%
mul-1-neg44.4%
sub-neg44.4%
Simplified44.4%
Taylor expanded in y2 around 0 35.7%
if -0.016500000000000001 < z < 1.32e-256Initial program 30.2%
Taylor expanded in j around inf 40.7%
+-commutative40.7%
mul-1-neg40.7%
unsub-neg40.7%
*-commutative40.7%
Simplified40.7%
Taylor expanded in t around inf 33.6%
Taylor expanded in b around inf 26.4%
associate-*r*28.8%
*-commutative28.8%
Simplified28.8%
if 1.32e-256 < z < 4.99999999999999963e-208 or 3.40000000000000001e-93 < z < 1.40000000000000008e170Initial program 18.0%
Taylor expanded in b around inf 38.6%
Taylor expanded in a around inf 39.3%
Taylor expanded in x around inf 33.3%
*-commutative33.3%
Simplified33.3%
if 4.99999999999999963e-208 < z < 3.40000000000000001e-93Initial program 34.3%
Taylor expanded in j around inf 40.5%
+-commutative40.5%
mul-1-neg40.5%
unsub-neg40.5%
*-commutative40.5%
Simplified40.5%
Taylor expanded in t around inf 32.6%
Taylor expanded in b around inf 23.9%
*-commutative23.9%
Simplified23.9%
if 1.40000000000000008e170 < z < 7.5000000000000003e180Initial program 50.0%
Taylor expanded in y0 around inf 50.0%
+-commutative50.0%
mul-1-neg50.0%
unsub-neg50.0%
*-commutative50.0%
*-commutative50.0%
*-commutative50.0%
*-commutative50.0%
Simplified50.0%
Taylor expanded in k around inf 75.1%
mul-1-neg75.1%
+-commutative75.1%
mul-1-neg75.1%
sub-neg75.1%
Simplified75.1%
Taylor expanded in y2 around inf 75.1%
*-commutative75.1%
Simplified75.1%
Final simplification35.5%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* i (* k (- (* z y1))))))
(if (<= z -2.8e+126)
t_1
(if (<= z -0.02)
(* b (* k (* z y0)))
(if (<= z -7e-296)
(* j (* y4 (* t b)))
(if (<= z 7.2e-123)
(* y (* y3 (* c y4)))
(if (<= z 2.6e-96)
(* j (* t (* i (- y5))))
(if (<= z 4.4e+57)
(* b (* a (- (* x y) (* z t))))
(if (<= z 2.45e+181) (* a (* y (* y3 (- y5)))) t_1)))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * (k * -(z * y1));
double tmp;
if (z <= -2.8e+126) {
tmp = t_1;
} else if (z <= -0.02) {
tmp = b * (k * (z * y0));
} else if (z <= -7e-296) {
tmp = j * (y4 * (t * b));
} else if (z <= 7.2e-123) {
tmp = y * (y3 * (c * y4));
} else if (z <= 2.6e-96) {
tmp = j * (t * (i * -y5));
} else if (z <= 4.4e+57) {
tmp = b * (a * ((x * y) - (z * t)));
} else if (z <= 2.45e+181) {
tmp = a * (y * (y3 * -y5));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = i * (k * -(z * y1))
if (z <= (-2.8d+126)) then
tmp = t_1
else if (z <= (-0.02d0)) then
tmp = b * (k * (z * y0))
else if (z <= (-7d-296)) then
tmp = j * (y4 * (t * b))
else if (z <= 7.2d-123) then
tmp = y * (y3 * (c * y4))
else if (z <= 2.6d-96) then
tmp = j * (t * (i * -y5))
else if (z <= 4.4d+57) then
tmp = b * (a * ((x * y) - (z * t)))
else if (z <= 2.45d+181) then
tmp = a * (y * (y3 * -y5))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = i * (k * -(z * y1));
double tmp;
if (z <= -2.8e+126) {
tmp = t_1;
} else if (z <= -0.02) {
tmp = b * (k * (z * y0));
} else if (z <= -7e-296) {
tmp = j * (y4 * (t * b));
} else if (z <= 7.2e-123) {
tmp = y * (y3 * (c * y4));
} else if (z <= 2.6e-96) {
tmp = j * (t * (i * -y5));
} else if (z <= 4.4e+57) {
tmp = b * (a * ((x * y) - (z * t)));
} else if (z <= 2.45e+181) {
tmp = a * (y * (y3 * -y5));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = i * (k * -(z * y1)) tmp = 0 if z <= -2.8e+126: tmp = t_1 elif z <= -0.02: tmp = b * (k * (z * y0)) elif z <= -7e-296: tmp = j * (y4 * (t * b)) elif z <= 7.2e-123: tmp = y * (y3 * (c * y4)) elif z <= 2.6e-96: tmp = j * (t * (i * -y5)) elif z <= 4.4e+57: tmp = b * (a * ((x * y) - (z * t))) elif z <= 2.45e+181: tmp = a * (y * (y3 * -y5)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(i * Float64(k * Float64(-Float64(z * y1)))) tmp = 0.0 if (z <= -2.8e+126) tmp = t_1; elseif (z <= -0.02) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (z <= -7e-296) tmp = Float64(j * Float64(y4 * Float64(t * b))); elseif (z <= 7.2e-123) tmp = Float64(y * Float64(y3 * Float64(c * y4))); elseif (z <= 2.6e-96) tmp = Float64(j * Float64(t * Float64(i * Float64(-y5)))); elseif (z <= 4.4e+57) tmp = Float64(b * Float64(a * Float64(Float64(x * y) - Float64(z * t)))); elseif (z <= 2.45e+181) tmp = Float64(a * Float64(y * Float64(y3 * Float64(-y5)))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = i * (k * -(z * y1)); tmp = 0.0; if (z <= -2.8e+126) tmp = t_1; elseif (z <= -0.02) tmp = b * (k * (z * y0)); elseif (z <= -7e-296) tmp = j * (y4 * (t * b)); elseif (z <= 7.2e-123) tmp = y * (y3 * (c * y4)); elseif (z <= 2.6e-96) tmp = j * (t * (i * -y5)); elseif (z <= 4.4e+57) tmp = b * (a * ((x * y) - (z * t))); elseif (z <= 2.45e+181) tmp = a * (y * (y3 * -y5)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(i * N[(k * (-N[(z * y1), $MachinePrecision])), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -2.8e+126], t$95$1, If[LessEqual[z, -0.02], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -7e-296], N[(j * N[(y4 * N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 7.2e-123], N[(y * N[(y3 * N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.6e-96], N[(j * N[(t * N[(i * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 4.4e+57], N[(b * N[(a * N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.45e+181], N[(a * N[(y * N[(y3 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(k \cdot \left(-z \cdot y1\right)\right)\\
\mathbf{if}\;z \leq -2.8 \cdot 10^{+126}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -0.02:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;z \leq -7 \cdot 10^{-296}:\\
\;\;\;\;j \cdot \left(y4 \cdot \left(t \cdot b\right)\right)\\
\mathbf{elif}\;z \leq 7.2 \cdot 10^{-123}:\\
\;\;\;\;y \cdot \left(y3 \cdot \left(c \cdot y4\right)\right)\\
\mathbf{elif}\;z \leq 2.6 \cdot 10^{-96}:\\
\;\;\;\;j \cdot \left(t \cdot \left(i \cdot \left(-y5\right)\right)\right)\\
\mathbf{elif}\;z \leq 4.4 \cdot 10^{+57}:\\
\;\;\;\;b \cdot \left(a \cdot \left(x \cdot y - z \cdot t\right)\right)\\
\mathbf{elif}\;z \leq 2.45 \cdot 10^{+181}:\\
\;\;\;\;a \cdot \left(y \cdot \left(y3 \cdot \left(-y5\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -2.80000000000000009e126 or 2.44999999999999991e181 < z Initial program 19.1%
Taylor expanded in k around inf 35.0%
+-commutative35.0%
mul-1-neg35.0%
unsub-neg35.0%
*-commutative35.0%
associate-*r*35.0%
neg-mul-135.0%
Simplified35.0%
Taylor expanded in y1 around inf 49.4%
Taylor expanded in y2 around 0 49.2%
associate-*r*49.2%
neg-mul-149.2%
Simplified49.2%
if -2.80000000000000009e126 < z < -0.0200000000000000004Initial program 26.5%
Taylor expanded in y0 around inf 61.2%
+-commutative61.2%
mul-1-neg61.2%
unsub-neg61.2%
*-commutative61.2%
*-commutative61.2%
*-commutative61.2%
*-commutative61.2%
Simplified61.2%
Taylor expanded in k around inf 44.4%
mul-1-neg44.4%
+-commutative44.4%
mul-1-neg44.4%
sub-neg44.4%
Simplified44.4%
Taylor expanded in y2 around 0 35.7%
if -0.0200000000000000004 < z < -6.9999999999999998e-296Initial program 37.5%
Taylor expanded in j around inf 41.4%
+-commutative41.4%
mul-1-neg41.4%
unsub-neg41.4%
*-commutative41.4%
Simplified41.4%
Taylor expanded in t around inf 34.0%
Taylor expanded in b around inf 23.3%
associate-*r*26.4%
*-commutative26.4%
Simplified26.4%
if -6.9999999999999998e-296 < z < 7.1999999999999994e-123Initial program 16.7%
Taylor expanded in y3 around -inf 37.7%
Taylor expanded in y around inf 39.7%
Taylor expanded in a around 0 35.8%
mul-1-neg35.8%
distribute-lft-neg-out35.8%
*-commutative35.8%
Simplified35.8%
if 7.1999999999999994e-123 < z < 2.6000000000000002e-96Initial program 36.7%
Taylor expanded in j around inf 74.4%
+-commutative74.4%
mul-1-neg74.4%
unsub-neg74.4%
*-commutative74.4%
Simplified74.4%
Taylor expanded in t around inf 56.4%
Taylor expanded in b around 0 38.3%
neg-mul-138.3%
distribute-rgt-neg-in38.3%
Simplified38.3%
if 2.6000000000000002e-96 < z < 4.4000000000000001e57Initial program 31.3%
Taylor expanded in b around inf 48.3%
Taylor expanded in a around inf 33.0%
if 4.4000000000000001e57 < z < 2.44999999999999991e181Initial program 19.2%
Taylor expanded in y3 around -inf 27.4%
Taylor expanded in y around inf 42.9%
Taylor expanded in a around inf 47.3%
Final simplification37.8%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* y4 (+ (* b (* t j)) (* c (- (* y y3) (* t y2)))))))
(if (<= y0 -4.6e+213)
(* b (* z (- (* k y0) (* t a))))
(if (<= y0 -2.25e+120)
(* c (* i (- (* z t) (* x y))))
(if (<= y0 -1.35e-169)
t_1
(if (<= y0 6.2e-236)
(* k (* y (- (* i y5) (* b y4))))
(if (<= y0 1.66e-158)
t_1
(if (<= y0 2e+50)
(* i (* k (- (* y y5) (* z y1))))
(* c (* y0 (- (* x y2) (* 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 t_1 = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * y2))));
double tmp;
if (y0 <= -4.6e+213) {
tmp = b * (z * ((k * y0) - (t * a)));
} else if (y0 <= -2.25e+120) {
tmp = c * (i * ((z * t) - (x * y)));
} else if (y0 <= -1.35e-169) {
tmp = t_1;
} else if (y0 <= 6.2e-236) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y0 <= 1.66e-158) {
tmp = t_1;
} else if (y0 <= 2e+50) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else {
tmp = c * (y0 * ((x * y2) - (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) :: t_1
real(8) :: tmp
t_1 = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * y2))))
if (y0 <= (-4.6d+213)) then
tmp = b * (z * ((k * y0) - (t * a)))
else if (y0 <= (-2.25d+120)) then
tmp = c * (i * ((z * t) - (x * y)))
else if (y0 <= (-1.35d-169)) then
tmp = t_1
else if (y0 <= 6.2d-236) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (y0 <= 1.66d-158) then
tmp = t_1
else if (y0 <= 2d+50) then
tmp = i * (k * ((y * y5) - (z * y1)))
else
tmp = c * (y0 * ((x * y2) - (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 t_1 = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * y2))));
double tmp;
if (y0 <= -4.6e+213) {
tmp = b * (z * ((k * y0) - (t * a)));
} else if (y0 <= -2.25e+120) {
tmp = c * (i * ((z * t) - (x * y)));
} else if (y0 <= -1.35e-169) {
tmp = t_1;
} else if (y0 <= 6.2e-236) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y0 <= 1.66e-158) {
tmp = t_1;
} else if (y0 <= 2e+50) {
tmp = i * (k * ((y * y5) - (z * y1)));
} else {
tmp = c * (y0 * ((x * y2) - (z * y3)));
}
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)) + (c * ((y * y3) - (t * y2)))) tmp = 0 if y0 <= -4.6e+213: tmp = b * (z * ((k * y0) - (t * a))) elif y0 <= -2.25e+120: tmp = c * (i * ((z * t) - (x * y))) elif y0 <= -1.35e-169: tmp = t_1 elif y0 <= 6.2e-236: tmp = k * (y * ((i * y5) - (b * y4))) elif y0 <= 1.66e-158: tmp = t_1 elif y0 <= 2e+50: tmp = i * (k * ((y * y5) - (z * y1))) else: tmp = c * (y0 * ((x * y2) - (z * y3))) 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(b * Float64(t * j)) + Float64(c * Float64(Float64(y * y3) - Float64(t * y2))))) tmp = 0.0 if (y0 <= -4.6e+213) tmp = Float64(b * Float64(z * Float64(Float64(k * y0) - Float64(t * a)))); elseif (y0 <= -2.25e+120) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); elseif (y0 <= -1.35e-169) tmp = t_1; elseif (y0 <= 6.2e-236) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (y0 <= 1.66e-158) tmp = t_1; elseif (y0 <= 2e+50) tmp = Float64(i * Float64(k * Float64(Float64(y * y5) - Float64(z * y1)))); else tmp = Float64(c * Float64(y0 * Float64(Float64(x * y2) - 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) t_1 = y4 * ((b * (t * j)) + (c * ((y * y3) - (t * y2)))); tmp = 0.0; if (y0 <= -4.6e+213) tmp = b * (z * ((k * y0) - (t * a))); elseif (y0 <= -2.25e+120) tmp = c * (i * ((z * t) - (x * y))); elseif (y0 <= -1.35e-169) tmp = t_1; elseif (y0 <= 6.2e-236) tmp = k * (y * ((i * y5) - (b * y4))); elseif (y0 <= 1.66e-158) tmp = t_1; elseif (y0 <= 2e+50) tmp = i * (k * ((y * y5) - (z * y1))); else tmp = c * (y0 * ((x * y2) - (z * 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[(y4 * N[(N[(b * N[(t * j), $MachinePrecision]), $MachinePrecision] + N[(c * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y0, -4.6e+213], N[(b * N[(z * N[(N[(k * y0), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -2.25e+120], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, -1.35e-169], t$95$1, If[LessEqual[y0, 6.2e-236], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y0, 1.66e-158], t$95$1, If[LessEqual[y0, 2e+50], N[(i * N[(k * N[(N[(y * y5), $MachinePrecision] - N[(z * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(c * N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := y4 \cdot \left(b \cdot \left(t \cdot j\right) + c \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{if}\;y0 \leq -4.6 \cdot 10^{+213}:\\
\;\;\;\;b \cdot \left(z \cdot \left(k \cdot y0 - t \cdot a\right)\right)\\
\mathbf{elif}\;y0 \leq -2.25 \cdot 10^{+120}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{elif}\;y0 \leq -1.35 \cdot 10^{-169}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y0 \leq 6.2 \cdot 10^{-236}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y0 \leq 1.66 \cdot 10^{-158}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y0 \leq 2 \cdot 10^{+50}:\\
\;\;\;\;i \cdot \left(k \cdot \left(y \cdot y5 - z \cdot y1\right)\right)\\
\mathbf{else}:\\
\;\;\;\;c \cdot \left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right)\right)\\
\end{array}
\end{array}
if y0 < -4.59999999999999996e213Initial program 11.8%
Taylor expanded in b around inf 29.6%
Taylor expanded in z around -inf 65.1%
associate-*r*65.1%
neg-mul-165.1%
Simplified65.1%
if -4.59999999999999996e213 < y0 < -2.24999999999999988e120Initial program 15.7%
Taylor expanded in c around inf 47.5%
+-commutative47.5%
mul-1-neg47.5%
unsub-neg47.5%
*-commutative47.5%
*-commutative47.5%
*-commutative47.5%
*-commutative47.5%
Simplified47.5%
Taylor expanded in i around inf 58.6%
if -2.24999999999999988e120 < y0 < -1.3500000000000001e-169 or 6.1999999999999997e-236 < y0 < 1.66000000000000009e-158Initial program 28.4%
Taylor expanded in y4 around inf 43.6%
Taylor expanded in t around inf 46.3%
if -1.3500000000000001e-169 < y0 < 6.1999999999999997e-236Initial program 25.6%
Taylor expanded in k around inf 43.7%
+-commutative43.7%
mul-1-neg43.7%
unsub-neg43.7%
*-commutative43.7%
associate-*r*43.7%
neg-mul-143.7%
Simplified43.7%
Taylor expanded in y around inf 49.1%
if 1.66000000000000009e-158 < y0 < 2.0000000000000002e50Initial program 32.4%
Taylor expanded in k around inf 43.0%
+-commutative43.0%
mul-1-neg43.0%
unsub-neg43.0%
*-commutative43.0%
associate-*r*43.0%
neg-mul-143.0%
Simplified43.0%
Taylor expanded in i around inf 41.2%
mul-1-neg41.2%
+-commutative41.2%
mul-1-neg41.2%
sub-neg41.2%
Simplified41.2%
if 2.0000000000000002e50 < y0 Initial program 22.4%
Taylor expanded in c around inf 41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
*-commutative41.5%
Simplified41.5%
Taylor expanded in y0 around inf 55.9%
Final simplification49.7%
(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))))))
(if (<= y2 -2.2e+26)
t_1
(if (<= y2 -2.4e-181)
(* j (* t (- (* b y4) (* i y5))))
(if (<= y2 2.8e-196)
(* k (* y (- (* i y5) (* b y4))))
(if (<= y2 8.6e-38)
(* j (* y3 (- (* y0 y5) (* y1 y4))))
(if (<= y2 1.6e+137)
(* c (* y4 (- (* y y3) (* t y2))))
(if (<= y2 1.05e+234) (* c (* i (- (* z t) (* x y)))) 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)));
double tmp;
if (y2 <= -2.2e+26) {
tmp = t_1;
} else if (y2 <= -2.4e-181) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y2 <= 2.8e-196) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 8.6e-38) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y2 <= 1.6e+137) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y2 <= 1.05e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = k * (y2 * ((y1 * y4) - (y0 * y5)))
if (y2 <= (-2.2d+26)) then
tmp = t_1
else if (y2 <= (-2.4d-181)) then
tmp = j * (t * ((b * y4) - (i * y5)))
else if (y2 <= 2.8d-196) then
tmp = k * (y * ((i * y5) - (b * y4)))
else if (y2 <= 8.6d-38) then
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)))
else if (y2 <= 1.6d+137) then
tmp = c * (y4 * ((y * y3) - (t * y2)))
else if (y2 <= 1.05d+234) then
tmp = c * (i * ((z * t) - (x * y)))
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)));
double tmp;
if (y2 <= -2.2e+26) {
tmp = t_1;
} else if (y2 <= -2.4e-181) {
tmp = j * (t * ((b * y4) - (i * y5)));
} else if (y2 <= 2.8e-196) {
tmp = k * (y * ((i * y5) - (b * y4)));
} else if (y2 <= 8.6e-38) {
tmp = j * (y3 * ((y0 * y5) - (y1 * y4)));
} else if (y2 <= 1.6e+137) {
tmp = c * (y4 * ((y * y3) - (t * y2)));
} else if (y2 <= 1.05e+234) {
tmp = c * (i * ((z * t) - (x * y)));
} 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))) tmp = 0 if y2 <= -2.2e+26: tmp = t_1 elif y2 <= -2.4e-181: tmp = j * (t * ((b * y4) - (i * y5))) elif y2 <= 2.8e-196: tmp = k * (y * ((i * y5) - (b * y4))) elif y2 <= 8.6e-38: tmp = j * (y3 * ((y0 * y5) - (y1 * y4))) elif y2 <= 1.6e+137: tmp = c * (y4 * ((y * y3) - (t * y2))) elif y2 <= 1.05e+234: tmp = c * (i * ((z * t) - (x * y))) 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(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5)))) tmp = 0.0 if (y2 <= -2.2e+26) tmp = t_1; elseif (y2 <= -2.4e-181) tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5)))); elseif (y2 <= 2.8e-196) tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))); elseif (y2 <= 8.6e-38) tmp = Float64(j * Float64(y3 * Float64(Float64(y0 * y5) - Float64(y1 * y4)))); elseif (y2 <= 1.6e+137) tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))); elseif (y2 <= 1.05e+234) tmp = Float64(c * Float64(i * Float64(Float64(z * t) - Float64(x * y)))); 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))); tmp = 0.0; if (y2 <= -2.2e+26) tmp = t_1; elseif (y2 <= -2.4e-181) tmp = j * (t * ((b * y4) - (i * y5))); elseif (y2 <= 2.8e-196) tmp = k * (y * ((i * y5) - (b * y4))); elseif (y2 <= 8.6e-38) tmp = j * (y3 * ((y0 * y5) - (y1 * y4))); elseif (y2 <= 1.6e+137) tmp = c * (y4 * ((y * y3) - (t * y2))); elseif (y2 <= 1.05e+234) tmp = c * (i * ((z * t) - (x * y))); 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[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -2.2e+26], t$95$1, If[LessEqual[y2, -2.4e-181], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 2.8e-196], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 8.6e-38], N[(j * N[(y3 * N[(N[(y0 * y5), $MachinePrecision] - N[(y1 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.6e+137], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.05e+234], N[(c * N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\
\mathbf{if}\;y2 \leq -2.2 \cdot 10^{+26}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq -2.4 \cdot 10^{-181}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\
\mathbf{elif}\;y2 \leq 2.8 \cdot 10^{-196}:\\
\;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq 8.6 \cdot 10^{-38}:\\
\;\;\;\;j \cdot \left(y3 \cdot \left(y0 \cdot y5 - y1 \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq 1.6 \cdot 10^{+137}:\\
\;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\
\mathbf{elif}\;y2 \leq 1.05 \cdot 10^{+234}:\\
\;\;\;\;c \cdot \left(i \cdot \left(z \cdot t - x \cdot y\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y2 < -2.20000000000000007e26 or 1.05e234 < y2 Initial program 26.7%
Taylor expanded in k around inf 50.5%
+-commutative50.5%
mul-1-neg50.5%
unsub-neg50.5%
*-commutative50.5%
associate-*r*50.5%
neg-mul-150.5%
Simplified50.5%
Taylor expanded in y2 around inf 56.6%
if -2.20000000000000007e26 < y2 < -2.4000000000000001e-181Initial program 37.5%
Taylor expanded in j around inf 41.3%
+-commutative41.3%
mul-1-neg41.3%
unsub-neg41.3%
*-commutative41.3%
Simplified41.3%
Taylor expanded in t around inf 35.4%
if -2.4000000000000001e-181 < y2 < 2.7999999999999998e-196Initial program 26.1%
Taylor expanded in k around inf 37.2%
+-commutative37.2%
mul-1-neg37.2%
unsub-neg37.2%
*-commutative37.2%
associate-*r*37.2%
neg-mul-137.2%
Simplified37.2%
Taylor expanded in y around inf 43.1%
if 2.7999999999999998e-196 < y2 < 8.6000000000000004e-38Initial program 31.4%
Taylor expanded in j around inf 45.9%
+-commutative45.9%
mul-1-neg45.9%
unsub-neg45.9%
*-commutative45.9%
Simplified45.9%
Taylor expanded in y3 around inf 60.9%
*-commutative60.9%
Simplified60.9%
if 8.6000000000000004e-38 < y2 < 1.60000000000000009e137Initial program 19.0%
Taylor expanded in c around inf 56.7%
+-commutative56.7%
mul-1-neg56.7%
unsub-neg56.7%
*-commutative56.7%
*-commutative56.7%
*-commutative56.7%
*-commutative56.7%
Simplified56.7%
Taylor expanded in y4 around inf 38.5%
if 1.60000000000000009e137 < y2 < 1.05e234Initial program 4.3%
Taylor expanded in c around inf 43.6%
+-commutative43.6%
mul-1-neg43.6%
unsub-neg43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
*-commutative43.6%
Simplified43.6%
Taylor expanded in i around inf 65.7%
Final simplification49.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* k (* y0 (* y2 (- y5))))))
(if (<= y2 -64000000000000.0)
t_1
(if (<= y2 3.5e-178)
(* i (* z (* k (- y1))))
(if (<= y2 8.4e+36)
(* a (* y (* y3 (- y5))))
(if (<= y2 1.7e+251)
(* b (* j (* t y4)))
(if (<= y2 1.25e+305) (* k (* y1 (* y2 y4))) t_1)))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y0 * (y2 * -y5));
double tmp;
if (y2 <= -64000000000000.0) {
tmp = t_1;
} else if (y2 <= 3.5e-178) {
tmp = i * (z * (k * -y1));
} else if (y2 <= 8.4e+36) {
tmp = a * (y * (y3 * -y5));
} else if (y2 <= 1.7e+251) {
tmp = b * (j * (t * y4));
} else if (y2 <= 1.25e+305) {
tmp = k * (y1 * (y2 * y4));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = k * (y0 * (y2 * -y5))
if (y2 <= (-64000000000000.0d0)) then
tmp = t_1
else if (y2 <= 3.5d-178) then
tmp = i * (z * (k * -y1))
else if (y2 <= 8.4d+36) then
tmp = a * (y * (y3 * -y5))
else if (y2 <= 1.7d+251) then
tmp = b * (j * (t * y4))
else if (y2 <= 1.25d+305) then
tmp = k * (y1 * (y2 * y4))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = k * (y0 * (y2 * -y5));
double tmp;
if (y2 <= -64000000000000.0) {
tmp = t_1;
} else if (y2 <= 3.5e-178) {
tmp = i * (z * (k * -y1));
} else if (y2 <= 8.4e+36) {
tmp = a * (y * (y3 * -y5));
} else if (y2 <= 1.7e+251) {
tmp = b * (j * (t * y4));
} else if (y2 <= 1.25e+305) {
tmp = k * (y1 * (y2 * y4));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = k * (y0 * (y2 * -y5)) tmp = 0 if y2 <= -64000000000000.0: tmp = t_1 elif y2 <= 3.5e-178: tmp = i * (z * (k * -y1)) elif y2 <= 8.4e+36: tmp = a * (y * (y3 * -y5)) elif y2 <= 1.7e+251: tmp = b * (j * (t * y4)) elif y2 <= 1.25e+305: tmp = k * (y1 * (y2 * y4)) else: tmp = t_1 return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(k * Float64(y0 * Float64(y2 * Float64(-y5)))) tmp = 0.0 if (y2 <= -64000000000000.0) tmp = t_1; elseif (y2 <= 3.5e-178) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); elseif (y2 <= 8.4e+36) tmp = Float64(a * Float64(y * Float64(y3 * Float64(-y5)))); elseif (y2 <= 1.7e+251) tmp = Float64(b * Float64(j * Float64(t * y4))); elseif (y2 <= 1.25e+305) tmp = Float64(k * Float64(y1 * Float64(y2 * y4))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = k * (y0 * (y2 * -y5)); tmp = 0.0; if (y2 <= -64000000000000.0) tmp = t_1; elseif (y2 <= 3.5e-178) tmp = i * (z * (k * -y1)); elseif (y2 <= 8.4e+36) tmp = a * (y * (y3 * -y5)); elseif (y2 <= 1.7e+251) tmp = b * (j * (t * y4)); elseif (y2 <= 1.25e+305) tmp = k * (y1 * (y2 * y4)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(k * N[(y0 * N[(y2 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y2, -64000000000000.0], t$95$1, If[LessEqual[y2, 3.5e-178], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 8.4e+36], N[(a * N[(y * N[(y3 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.7e+251], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 1.25e+305], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := k \cdot \left(y0 \cdot \left(y2 \cdot \left(-y5\right)\right)\right)\\
\mathbf{if}\;y2 \leq -64000000000000:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y2 \leq 3.5 \cdot 10^{-178}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;y2 \leq 8.4 \cdot 10^{+36}:\\
\;\;\;\;a \cdot \left(y \cdot \left(y3 \cdot \left(-y5\right)\right)\right)\\
\mathbf{elif}\;y2 \leq 1.7 \cdot 10^{+251}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{elif}\;y2 \leq 1.25 \cdot 10^{+305}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y2 < -6.4e13 or 1.25000000000000002e305 < y2 Initial program 28.6%
Taylor expanded in y0 around inf 38.7%
+-commutative38.7%
mul-1-neg38.7%
unsub-neg38.7%
*-commutative38.7%
*-commutative38.7%
*-commutative38.7%
*-commutative38.7%
Simplified38.7%
Taylor expanded in k around inf 33.4%
mul-1-neg33.4%
+-commutative33.4%
mul-1-neg33.4%
sub-neg33.4%
Simplified33.4%
Taylor expanded in y2 around inf 38.9%
associate-*r*38.9%
neg-mul-138.9%
*-commutative38.9%
Simplified38.9%
if -6.4e13 < y2 < 3.49999999999999983e-178Initial program 28.2%
Taylor expanded in k around inf 35.9%
+-commutative35.9%
mul-1-neg35.9%
unsub-neg35.9%
*-commutative35.9%
associate-*r*35.9%
neg-mul-135.9%
Simplified35.9%
Taylor expanded in y1 around inf 23.7%
Taylor expanded in y2 around 0 25.1%
mul-1-neg25.1%
*-commutative25.1%
distribute-lft-neg-in25.1%
associate-*r*28.0%
distribute-lft-neg-in28.0%
*-commutative28.0%
distribute-lft-neg-in28.0%
Simplified28.0%
if 3.49999999999999983e-178 < y2 < 8.40000000000000018e36Initial program 28.3%
Taylor expanded in y3 around -inf 56.8%
Taylor expanded in y around inf 35.5%
Taylor expanded in a around inf 31.6%
if 8.40000000000000018e36 < y2 < 1.70000000000000006e251Initial program 10.8%
Taylor expanded in j around inf 41.2%
+-commutative41.2%
mul-1-neg41.2%
unsub-neg41.2%
*-commutative41.2%
Simplified41.2%
Taylor expanded in t around inf 37.5%
Taylor expanded in b around inf 30.7%
*-commutative30.7%
Simplified30.7%
if 1.70000000000000006e251 < y2 < 1.25000000000000002e305Initial program 40.0%
Taylor expanded in k around inf 50.8%
+-commutative50.8%
mul-1-neg50.8%
unsub-neg50.8%
*-commutative50.8%
associate-*r*50.8%
neg-mul-150.8%
Simplified50.8%
Taylor expanded in y1 around inf 40.9%
Taylor expanded in y2 around inf 61.1%
Final simplification32.7%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* (* b j) (* t y4))) (t_2 (* b (* k (- (* z y0) (* y y4))))))
(if (<= j -2.8e+181)
t_1
(if (<= j -1.7e-24)
t_2
(if (<= j -9.8e-101)
(* j (* t (* b y4)))
(if (<= j 4.8e-13) t_2 t_1))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (b * j) * (t * y4);
double t_2 = b * (k * ((z * y0) - (y * y4)));
double tmp;
if (j <= -2.8e+181) {
tmp = t_1;
} else if (j <= -1.7e-24) {
tmp = t_2;
} else if (j <= -9.8e-101) {
tmp = j * (t * (b * y4));
} else if (j <= 4.8e-13) {
tmp = t_2;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (b * j) * (t * y4)
t_2 = b * (k * ((z * y0) - (y * y4)))
if (j <= (-2.8d+181)) then
tmp = t_1
else if (j <= (-1.7d-24)) then
tmp = t_2
else if (j <= (-9.8d-101)) then
tmp = j * (t * (b * y4))
else if (j <= 4.8d-13) then
tmp = t_2
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = (b * j) * (t * y4);
double t_2 = b * (k * ((z * y0) - (y * y4)));
double tmp;
if (j <= -2.8e+181) {
tmp = t_1;
} else if (j <= -1.7e-24) {
tmp = t_2;
} else if (j <= -9.8e-101) {
tmp = j * (t * (b * y4));
} else if (j <= 4.8e-13) {
tmp = t_2;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = (b * j) * (t * y4) t_2 = b * (k * ((z * y0) - (y * y4))) tmp = 0 if j <= -2.8e+181: tmp = t_1 elif j <= -1.7e-24: tmp = t_2 elif j <= -9.8e-101: tmp = j * (t * (b * y4)) elif j <= 4.8e-13: 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(Float64(b * j) * Float64(t * y4)) t_2 = Float64(b * Float64(k * Float64(Float64(z * y0) - Float64(y * y4)))) tmp = 0.0 if (j <= -2.8e+181) tmp = t_1; elseif (j <= -1.7e-24) tmp = t_2; elseif (j <= -9.8e-101) tmp = Float64(j * Float64(t * Float64(b * y4))); elseif (j <= 4.8e-13) tmp = t_2; else tmp = t_1; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = (b * j) * (t * y4); t_2 = b * (k * ((z * y0) - (y * y4))); tmp = 0.0; if (j <= -2.8e+181) tmp = t_1; elseif (j <= -1.7e-24) tmp = t_2; elseif (j <= -9.8e-101) tmp = j * (t * (b * y4)); elseif (j <= 4.8e-13) 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[(N[(b * j), $MachinePrecision] * N[(t * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(k * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, -2.8e+181], t$95$1, If[LessEqual[j, -1.7e-24], t$95$2, If[LessEqual[j, -9.8e-101], N[(j * N[(t * N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 4.8e-13], t$95$2, t$95$1]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(b \cdot j\right) \cdot \left(t \cdot y4\right)\\
t_2 := b \cdot \left(k \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
\mathbf{if}\;j \leq -2.8 \cdot 10^{+181}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -1.7 \cdot 10^{-24}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;j \leq -9.8 \cdot 10^{-101}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4\right)\right)\\
\mathbf{elif}\;j \leq 4.8 \cdot 10^{-13}:\\
\;\;\;\;t\_2\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if j < -2.79999999999999984e181 or 4.7999999999999997e-13 < j Initial program 20.9%
Taylor expanded in j around inf 49.4%
+-commutative49.4%
mul-1-neg49.4%
unsub-neg49.4%
*-commutative49.4%
Simplified49.4%
Taylor expanded in t around inf 40.8%
Taylor expanded in b around inf 32.7%
associate-*r*36.6%
*-commutative36.6%
*-commutative36.6%
Simplified36.6%
if -2.79999999999999984e181 < j < -1.69999999999999996e-24 or -9.8000000000000001e-101 < j < 4.7999999999999997e-13Initial program 29.8%
Taylor expanded in k around inf 41.3%
+-commutative41.3%
mul-1-neg41.3%
unsub-neg41.3%
*-commutative41.3%
associate-*r*41.3%
neg-mul-141.3%
Simplified41.3%
Taylor expanded in b around -inf 32.9%
+-commutative32.9%
mul-1-neg32.9%
sub-neg32.9%
Simplified32.9%
if -1.69999999999999996e-24 < j < -9.8000000000000001e-101Initial program 14.5%
Taylor expanded in j around inf 40.7%
+-commutative40.7%
mul-1-neg40.7%
unsub-neg40.7%
*-commutative40.7%
Simplified40.7%
Taylor expanded in t around inf 40.9%
Taylor expanded in b around inf 41.2%
*-commutative41.2%
Simplified41.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 (* b (* k (- (* z y0) (* y y4))))))
(if (<= j -1.16e+181)
(* (* b j) (* t y4))
(if (<= j -4.8e-24)
t_1
(if (<= j -1.08e-100)
(* j (* t (* b y4)))
(if (<= j 3.6e-109) t_1 (* b (* x (- (* y a) (* j y0))))))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (k * ((z * y0) - (y * y4)));
double tmp;
if (j <= -1.16e+181) {
tmp = (b * j) * (t * y4);
} else if (j <= -4.8e-24) {
tmp = t_1;
} else if (j <= -1.08e-100) {
tmp = j * (t * (b * y4));
} else if (j <= 3.6e-109) {
tmp = t_1;
} else {
tmp = b * (x * ((y * a) - (j * y0)));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: t_1
real(8) :: tmp
t_1 = b * (k * ((z * y0) - (y * y4)))
if (j <= (-1.16d+181)) then
tmp = (b * j) * (t * y4)
else if (j <= (-4.8d-24)) then
tmp = t_1
else if (j <= (-1.08d-100)) then
tmp = j * (t * (b * y4))
else if (j <= 3.6d-109) then
tmp = t_1
else
tmp = b * (x * ((y * a) - (j * y0)))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double t_1 = b * (k * ((z * y0) - (y * y4)));
double tmp;
if (j <= -1.16e+181) {
tmp = (b * j) * (t * y4);
} else if (j <= -4.8e-24) {
tmp = t_1;
} else if (j <= -1.08e-100) {
tmp = j * (t * (b * y4));
} else if (j <= 3.6e-109) {
tmp = t_1;
} else {
tmp = b * (x * ((y * a) - (j * y0)));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): t_1 = b * (k * ((z * y0) - (y * y4))) tmp = 0 if j <= -1.16e+181: tmp = (b * j) * (t * y4) elif j <= -4.8e-24: tmp = t_1 elif j <= -1.08e-100: tmp = j * (t * (b * y4)) elif j <= 3.6e-109: tmp = t_1 else: tmp = b * (x * ((y * a) - (j * y0))) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = Float64(b * Float64(k * Float64(Float64(z * y0) - Float64(y * y4)))) tmp = 0.0 if (j <= -1.16e+181) tmp = Float64(Float64(b * j) * Float64(t * y4)); elseif (j <= -4.8e-24) tmp = t_1; elseif (j <= -1.08e-100) tmp = Float64(j * Float64(t * Float64(b * y4))); elseif (j <= 3.6e-109) tmp = t_1; else tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) t_1 = b * (k * ((z * y0) - (y * y4))); tmp = 0.0; if (j <= -1.16e+181) tmp = (b * j) * (t * y4); elseif (j <= -4.8e-24) tmp = t_1; elseif (j <= -1.08e-100) tmp = j * (t * (b * y4)); elseif (j <= 3.6e-109) tmp = t_1; else tmp = b * (x * ((y * a) - (j * y0))); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(k * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, -1.16e+181], N[(N[(b * j), $MachinePrecision] * N[(t * y4), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -4.8e-24], t$95$1, If[LessEqual[j, -1.08e-100], N[(j * N[(t * N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.6e-109], t$95$1, N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := b \cdot \left(k \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
\mathbf{if}\;j \leq -1.16 \cdot 10^{+181}:\\
\;\;\;\;\left(b \cdot j\right) \cdot \left(t \cdot y4\right)\\
\mathbf{elif}\;j \leq -4.8 \cdot 10^{-24}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;j \leq -1.08 \cdot 10^{-100}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4\right)\right)\\
\mathbf{elif}\;j \leq 3.6 \cdot 10^{-109}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\end{array}
\end{array}
if j < -1.16000000000000003e181Initial program 10.7%
Taylor expanded in j around inf 55.3%
+-commutative55.3%
mul-1-neg55.3%
unsub-neg55.3%
*-commutative55.3%
Simplified55.3%
Taylor expanded in t around inf 55.9%
Taylor expanded in b around inf 42.6%
associate-*r*49.0%
*-commutative49.0%
*-commutative49.0%
Simplified49.0%
if -1.16000000000000003e181 < j < -4.7999999999999996e-24 or -1.0800000000000001e-100 < j < 3.6000000000000001e-109Initial program 32.0%
Taylor expanded in k around inf 44.5%
+-commutative44.5%
mul-1-neg44.5%
unsub-neg44.5%
*-commutative44.5%
associate-*r*44.5%
neg-mul-144.5%
Simplified44.5%
Taylor expanded in b around -inf 34.0%
+-commutative34.0%
mul-1-neg34.0%
sub-neg34.0%
Simplified34.0%
if -4.7999999999999996e-24 < j < -1.0800000000000001e-100Initial program 14.5%
Taylor expanded in j around inf 40.7%
+-commutative40.7%
mul-1-neg40.7%
unsub-neg40.7%
*-commutative40.7%
Simplified40.7%
Taylor expanded in t around inf 40.9%
Taylor expanded in b around inf 41.2%
*-commutative41.2%
Simplified41.2%
if 3.6000000000000001e-109 < j Initial program 24.0%
Taylor expanded in b around inf 39.0%
Taylor expanded in x around inf 33.4%
Final simplification35.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(let* ((t_1 (* i (* k (- (* z y1))))))
(if (<= z -5.2e+140)
t_1
(if (<= z -1e-42)
(* b (* k (- (* z y0) (* y y4))))
(if (<= z -1.8e-108)
(* b (* x (- (* y a) (* j y0))))
(if (<= z 4.4e+181) (* b (* y4 (- (* t j) (* y 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 = i * (k * -(z * y1));
double tmp;
if (z <= -5.2e+140) {
tmp = t_1;
} else if (z <= -1e-42) {
tmp = b * (k * ((z * y0) - (y * y4)));
} else if (z <= -1.8e-108) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (z <= 4.4e+181) {
tmp = b * (y4 * ((t * j) - (y * 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) :: tmp
t_1 = i * (k * -(z * y1))
if (z <= (-5.2d+140)) then
tmp = t_1
else if (z <= (-1d-42)) then
tmp = b * (k * ((z * y0) - (y * y4)))
else if (z <= (-1.8d-108)) then
tmp = b * (x * ((y * a) - (j * y0)))
else if (z <= 4.4d+181) then
tmp = b * (y4 * ((t * j) - (y * 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 = i * (k * -(z * y1));
double tmp;
if (z <= -5.2e+140) {
tmp = t_1;
} else if (z <= -1e-42) {
tmp = b * (k * ((z * y0) - (y * y4)));
} else if (z <= -1.8e-108) {
tmp = b * (x * ((y * a) - (j * y0)));
} else if (z <= 4.4e+181) {
tmp = b * (y4 * ((t * j) - (y * 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 = i * (k * -(z * y1)) tmp = 0 if z <= -5.2e+140: tmp = t_1 elif z <= -1e-42: tmp = b * (k * ((z * y0) - (y * y4))) elif z <= -1.8e-108: tmp = b * (x * ((y * a) - (j * y0))) elif z <= 4.4e+181: tmp = b * (y4 * ((t * j) - (y * 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(i * Float64(k * Float64(-Float64(z * y1)))) tmp = 0.0 if (z <= -5.2e+140) tmp = t_1; elseif (z <= -1e-42) tmp = Float64(b * Float64(k * Float64(Float64(z * y0) - Float64(y * y4)))); elseif (z <= -1.8e-108) tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0)))); elseif (z <= 4.4e+181) tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * 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 = i * (k * -(z * y1)); tmp = 0.0; if (z <= -5.2e+140) tmp = t_1; elseif (z <= -1e-42) tmp = b * (k * ((z * y0) - (y * y4))); elseif (z <= -1.8e-108) tmp = b * (x * ((y * a) - (j * y0))); elseif (z <= 4.4e+181) tmp = b * (y4 * ((t * j) - (y * 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[(i * N[(k * (-N[(z * y1), $MachinePrecision])), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -5.2e+140], t$95$1, If[LessEqual[z, -1e-42], N[(b * N[(k * N[(N[(z * y0), $MachinePrecision] - N[(y * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.8e-108], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 4.4e+181], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := i \cdot \left(k \cdot \left(-z \cdot y1\right)\right)\\
\mathbf{if}\;z \leq -5.2 \cdot 10^{+140}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;z \leq -1 \cdot 10^{-42}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0 - y \cdot y4\right)\right)\\
\mathbf{elif}\;z \leq -1.8 \cdot 10^{-108}:\\
\;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\
\mathbf{elif}\;z \leq 4.4 \cdot 10^{+181}:\\
\;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if z < -5.2000000000000002e140 or 4.4000000000000002e181 < z Initial program 19.3%
Taylor expanded in k around inf 35.2%
+-commutative35.2%
mul-1-neg35.2%
unsub-neg35.2%
*-commutative35.2%
associate-*r*35.2%
neg-mul-135.2%
Simplified35.2%
Taylor expanded in y1 around inf 50.8%
Taylor expanded in y2 around 0 50.8%
associate-*r*50.8%
neg-mul-150.8%
Simplified50.8%
if -5.2000000000000002e140 < z < -1.00000000000000004e-42Initial program 27.3%
Taylor expanded in k around inf 27.7%
+-commutative27.7%
mul-1-neg27.7%
unsub-neg27.7%
*-commutative27.7%
associate-*r*27.7%
neg-mul-127.7%
Simplified27.7%
Taylor expanded in b around -inf 36.3%
+-commutative36.3%
mul-1-neg36.3%
sub-neg36.3%
Simplified36.3%
if -1.00000000000000004e-42 < z < -1.8e-108Initial program 23.1%
Taylor expanded in b around inf 24.1%
Taylor expanded in x around inf 40.1%
if -1.8e-108 < z < 4.4000000000000002e181Initial program 27.8%
Taylor expanded in b around inf 41.1%
Taylor expanded in y4 around inf 35.5%
Final simplification39.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y4 -8e-11)
(* j (* t (* b y4)))
(if (<= y4 2.8e-94)
(* b (* k (* z y0)))
(if (<= y4 5.6e+215) (* j (* y4 (* t b))) (* k (* y1 (* y2 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 <= -8e-11) {
tmp = j * (t * (b * y4));
} else if (y4 <= 2.8e-94) {
tmp = b * (k * (z * y0));
} else if (y4 <= 5.6e+215) {
tmp = j * (y4 * (t * b));
} else {
tmp = k * (y1 * (y2 * 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 <= (-8d-11)) then
tmp = j * (t * (b * y4))
else if (y4 <= 2.8d-94) then
tmp = b * (k * (z * y0))
else if (y4 <= 5.6d+215) then
tmp = j * (y4 * (t * b))
else
tmp = k * (y1 * (y2 * 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 <= -8e-11) {
tmp = j * (t * (b * y4));
} else if (y4 <= 2.8e-94) {
tmp = b * (k * (z * y0));
} else if (y4 <= 5.6e+215) {
tmp = j * (y4 * (t * b));
} else {
tmp = k * (y1 * (y2 * 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 <= -8e-11: tmp = j * (t * (b * y4)) elif y4 <= 2.8e-94: tmp = b * (k * (z * y0)) elif y4 <= 5.6e+215: tmp = j * (y4 * (t * b)) else: tmp = k * (y1 * (y2 * 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 <= -8e-11) tmp = Float64(j * Float64(t * Float64(b * y4))); elseif (y4 <= 2.8e-94) tmp = Float64(b * Float64(k * Float64(z * y0))); elseif (y4 <= 5.6e+215) tmp = Float64(j * Float64(y4 * Float64(t * b))); else tmp = Float64(k * Float64(y1 * Float64(y2 * 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 <= -8e-11) tmp = j * (t * (b * y4)); elseif (y4 <= 2.8e-94) tmp = b * (k * (z * y0)); elseif (y4 <= 5.6e+215) tmp = j * (y4 * (t * b)); else tmp = k * (y1 * (y2 * 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, -8e-11], N[(j * N[(t * N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 2.8e-94], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 5.6e+215], N[(j * N[(y4 * N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y4 \leq -8 \cdot 10^{-11}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4\right)\right)\\
\mathbf{elif}\;y4 \leq 2.8 \cdot 10^{-94}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\mathbf{elif}\;y4 \leq 5.6 \cdot 10^{+215}:\\
\;\;\;\;j \cdot \left(y4 \cdot \left(t \cdot b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\end{array}
\end{array}
if y4 < -7.99999999999999952e-11Initial program 17.9%
Taylor expanded in j around inf 37.4%
+-commutative37.4%
mul-1-neg37.4%
unsub-neg37.4%
*-commutative37.4%
Simplified37.4%
Taylor expanded in t around inf 29.0%
Taylor expanded in b around inf 33.6%
*-commutative33.6%
Simplified33.6%
if -7.99999999999999952e-11 < y4 < 2.7999999999999998e-94Initial program 27.1%
Taylor expanded in y0 around inf 36.5%
+-commutative36.5%
mul-1-neg36.5%
unsub-neg36.5%
*-commutative36.5%
*-commutative36.5%
*-commutative36.5%
*-commutative36.5%
Simplified36.5%
Taylor expanded in k around inf 31.1%
mul-1-neg31.1%
+-commutative31.1%
mul-1-neg31.1%
sub-neg31.1%
Simplified31.1%
Taylor expanded in y2 around 0 23.5%
if 2.7999999999999998e-94 < y4 < 5.5999999999999999e215Initial program 32.5%
Taylor expanded in j around inf 47.5%
+-commutative47.5%
mul-1-neg47.5%
unsub-neg47.5%
*-commutative47.5%
Simplified47.5%
Taylor expanded in t around inf 26.1%
Taylor expanded in b around inf 21.9%
associate-*r*24.7%
*-commutative24.7%
Simplified24.7%
if 5.5999999999999999e215 < y4 Initial program 20.0%
Taylor expanded in k around inf 45.3%
+-commutative45.3%
mul-1-neg45.3%
unsub-neg45.3%
*-commutative45.3%
associate-*r*45.3%
neg-mul-145.3%
Simplified45.3%
Taylor expanded in y1 around inf 55.4%
Taylor expanded in y2 around inf 55.8%
Final simplification29.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y4 -5.5e-14)
(* j (* t (* b y4)))
(if (<= y4 2.05e-94)
(* (* z y0) (* b k))
(if (<= y4 8.4e+217) (* j (* y4 (* t b))) (* k (* y1 (* y2 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.5e-14) {
tmp = j * (t * (b * y4));
} else if (y4 <= 2.05e-94) {
tmp = (z * y0) * (b * k);
} else if (y4 <= 8.4e+217) {
tmp = j * (y4 * (t * b));
} else {
tmp = k * (y1 * (y2 * 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.5d-14)) then
tmp = j * (t * (b * y4))
else if (y4 <= 2.05d-94) then
tmp = (z * y0) * (b * k)
else if (y4 <= 8.4d+217) then
tmp = j * (y4 * (t * b))
else
tmp = k * (y1 * (y2 * 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.5e-14) {
tmp = j * (t * (b * y4));
} else if (y4 <= 2.05e-94) {
tmp = (z * y0) * (b * k);
} else if (y4 <= 8.4e+217) {
tmp = j * (y4 * (t * b));
} else {
tmp = k * (y1 * (y2 * 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.5e-14: tmp = j * (t * (b * y4)) elif y4 <= 2.05e-94: tmp = (z * y0) * (b * k) elif y4 <= 8.4e+217: tmp = j * (y4 * (t * b)) else: tmp = k * (y1 * (y2 * 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.5e-14) tmp = Float64(j * Float64(t * Float64(b * y4))); elseif (y4 <= 2.05e-94) tmp = Float64(Float64(z * y0) * Float64(b * k)); elseif (y4 <= 8.4e+217) tmp = Float64(j * Float64(y4 * Float64(t * b))); else tmp = Float64(k * Float64(y1 * Float64(y2 * 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.5e-14) tmp = j * (t * (b * y4)); elseif (y4 <= 2.05e-94) tmp = (z * y0) * (b * k); elseif (y4 <= 8.4e+217) tmp = j * (y4 * (t * b)); else tmp = k * (y1 * (y2 * 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.5e-14], N[(j * N[(t * N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 2.05e-94], N[(N[(z * y0), $MachinePrecision] * N[(b * k), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 8.4e+217], N[(j * N[(y4 * N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y4 \leq -5.5 \cdot 10^{-14}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4\right)\right)\\
\mathbf{elif}\;y4 \leq 2.05 \cdot 10^{-94}:\\
\;\;\;\;\left(z \cdot y0\right) \cdot \left(b \cdot k\right)\\
\mathbf{elif}\;y4 \leq 8.4 \cdot 10^{+217}:\\
\;\;\;\;j \cdot \left(y4 \cdot \left(t \cdot b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\end{array}
\end{array}
if y4 < -5.49999999999999991e-14Initial program 17.9%
Taylor expanded in j around inf 37.4%
+-commutative37.4%
mul-1-neg37.4%
unsub-neg37.4%
*-commutative37.4%
Simplified37.4%
Taylor expanded in t around inf 29.0%
Taylor expanded in b around inf 33.6%
*-commutative33.6%
Simplified33.6%
if -5.49999999999999991e-14 < y4 < 2.05e-94Initial program 27.1%
Taylor expanded in y0 around inf 36.5%
+-commutative36.5%
mul-1-neg36.5%
unsub-neg36.5%
*-commutative36.5%
*-commutative36.5%
*-commutative36.5%
*-commutative36.5%
Simplified36.5%
Taylor expanded in k around inf 31.1%
mul-1-neg31.1%
+-commutative31.1%
mul-1-neg31.1%
sub-neg31.1%
Simplified31.1%
Taylor expanded in y2 around 0 23.5%
associate-*r*24.4%
*-commutative24.4%
*-commutative24.4%
Simplified24.4%
if 2.05e-94 < y4 < 8.4000000000000003e217Initial program 32.5%
Taylor expanded in j around inf 47.5%
+-commutative47.5%
mul-1-neg47.5%
unsub-neg47.5%
*-commutative47.5%
Simplified47.5%
Taylor expanded in t around inf 26.1%
Taylor expanded in b around inf 21.9%
associate-*r*24.7%
*-commutative24.7%
Simplified24.7%
if 8.4000000000000003e217 < y4 Initial program 20.0%
Taylor expanded in k around inf 45.3%
+-commutative45.3%
mul-1-neg45.3%
unsub-neg45.3%
*-commutative45.3%
associate-*r*45.3%
neg-mul-145.3%
Simplified45.3%
Taylor expanded in y1 around inf 55.4%
Taylor expanded in y2 around inf 55.8%
Final simplification29.3%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
:precision binary64
(if (<= y2 -4200000000000.0)
(* k (* y0 (* y2 (- y5))))
(if (<= y2 3.5e-265)
(* i (* z (* k (- y1))))
(if (<= y2 3.2e+249) (* j (* t (* b y4))) (* k (* y1 (* y2 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 (y2 <= -4200000000000.0) {
tmp = k * (y0 * (y2 * -y5));
} else if (y2 <= 3.5e-265) {
tmp = i * (z * (k * -y1));
} else if (y2 <= 3.2e+249) {
tmp = j * (t * (b * y4));
} else {
tmp = k * (y1 * (y2 * 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 (y2 <= (-4200000000000.0d0)) then
tmp = k * (y0 * (y2 * -y5))
else if (y2 <= 3.5d-265) then
tmp = i * (z * (k * -y1))
else if (y2 <= 3.2d+249) then
tmp = j * (t * (b * y4))
else
tmp = k * (y1 * (y2 * 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 (y2 <= -4200000000000.0) {
tmp = k * (y0 * (y2 * -y5));
} else if (y2 <= 3.5e-265) {
tmp = i * (z * (k * -y1));
} else if (y2 <= 3.2e+249) {
tmp = j * (t * (b * y4));
} else {
tmp = k * (y1 * (y2 * y4));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if y2 <= -4200000000000.0: tmp = k * (y0 * (y2 * -y5)) elif y2 <= 3.5e-265: tmp = i * (z * (k * -y1)) elif y2 <= 3.2e+249: tmp = j * (t * (b * y4)) else: tmp = k * (y1 * (y2 * 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 (y2 <= -4200000000000.0) tmp = Float64(k * Float64(y0 * Float64(y2 * Float64(-y5)))); elseif (y2 <= 3.5e-265) tmp = Float64(i * Float64(z * Float64(k * Float64(-y1)))); elseif (y2 <= 3.2e+249) tmp = Float64(j * Float64(t * Float64(b * y4))); else tmp = Float64(k * Float64(y1 * Float64(y2 * 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 (y2 <= -4200000000000.0) tmp = k * (y0 * (y2 * -y5)); elseif (y2 <= 3.5e-265) tmp = i * (z * (k * -y1)); elseif (y2 <= 3.2e+249) tmp = j * (t * (b * y4)); else tmp = k * (y1 * (y2 * 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[y2, -4200000000000.0], N[(k * N[(y0 * N[(y2 * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 3.5e-265], N[(i * N[(z * N[(k * (-y1)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 3.2e+249], N[(j * N[(t * N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y2 \leq -4200000000000:\\
\;\;\;\;k \cdot \left(y0 \cdot \left(y2 \cdot \left(-y5\right)\right)\right)\\
\mathbf{elif}\;y2 \leq 3.5 \cdot 10^{-265}:\\
\;\;\;\;i \cdot \left(z \cdot \left(k \cdot \left(-y1\right)\right)\right)\\
\mathbf{elif}\;y2 \leq 3.2 \cdot 10^{+249}:\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\
\end{array}
\end{array}
if y2 < -4.2e12Initial program 28.3%
Taylor expanded in y0 around inf 36.9%
+-commutative36.9%
mul-1-neg36.9%
unsub-neg36.9%
*-commutative36.9%
*-commutative36.9%
*-commutative36.9%
*-commutative36.9%
Simplified36.9%
Taylor expanded in k around inf 31.3%
mul-1-neg31.3%
+-commutative31.3%
mul-1-neg31.3%
sub-neg31.3%
Simplified31.3%
Taylor expanded in y2 around inf 35.3%
associate-*r*35.3%
neg-mul-135.3%
*-commutative35.3%
Simplified35.3%
if -4.2e12 < y2 < 3.50000000000000015e-265Initial program 31.0%
Taylor expanded in k around inf 41.5%
+-commutative41.5%
mul-1-neg41.5%
unsub-neg41.5%
*-commutative41.5%
associate-*r*41.5%
neg-mul-141.5%
Simplified41.5%
Taylor expanded in y1 around inf 28.5%
Taylor expanded in y2 around 0 29.2%
mul-1-neg29.2%
*-commutative29.2%
distribute-lft-neg-in29.2%
associate-*r*31.9%
distribute-lft-neg-in31.9%
*-commutative31.9%
distribute-lft-neg-in31.9%
Simplified31.9%
if 3.50000000000000015e-265 < y2 < 3.20000000000000014e249Initial program 20.2%
Taylor expanded in j around inf 44.0%
+-commutative44.0%
mul-1-neg44.0%
unsub-neg44.0%
*-commutative44.0%
Simplified44.0%
Taylor expanded in t around inf 33.6%
Taylor expanded in b around inf 23.6%
*-commutative23.6%
Simplified23.6%
if 3.20000000000000014e249 < y2 Initial program 33.3%
Taylor expanded in k around inf 54.2%
+-commutative54.2%
mul-1-neg54.2%
unsub-neg54.2%
*-commutative54.2%
associate-*r*54.2%
neg-mul-154.2%
Simplified54.2%
Taylor expanded in y1 around inf 34.2%
Taylor expanded in y2 around inf 47.6%
Final simplification29.6%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= y4 -7.6e-10) (not (<= y4 1.6e-31))) (* b (* j (* t y4))) (* b (* k (* z y0)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if ((y4 <= -7.6e-10) || !(y4 <= 1.6e-31)) {
tmp = b * (j * (t * y4));
} else {
tmp = b * (k * (z * y0));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if ((y4 <= (-7.6d-10)) .or. (.not. (y4 <= 1.6d-31))) then
tmp = b * (j * (t * y4))
else
tmp = b * (k * (z * y0))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if ((y4 <= -7.6e-10) || !(y4 <= 1.6e-31)) {
tmp = b * (j * (t * y4));
} else {
tmp = b * (k * (z * y0));
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if (y4 <= -7.6e-10) or not (y4 <= 1.6e-31): tmp = b * (j * (t * y4)) else: tmp = b * (k * (z * y0)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((y4 <= -7.6e-10) || !(y4 <= 1.6e-31)) tmp = Float64(b * Float64(j * Float64(t * y4))); else tmp = Float64(b * Float64(k * Float64(z * y0))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if ((y4 <= -7.6e-10) || ~((y4 <= 1.6e-31))) tmp = b * (j * (t * y4)); else tmp = b * (k * (z * y0)); 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[y4, -7.6e-10], N[Not[LessEqual[y4, 1.6e-31]], $MachinePrecision]], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y4 \leq -7.6 \cdot 10^{-10} \lor \neg \left(y4 \leq 1.6 \cdot 10^{-31}\right):\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\end{array}
\end{array}
if y4 < -7.5999999999999996e-10 or 1.60000000000000009e-31 < y4 Initial program 23.9%
Taylor expanded in j around inf 37.2%
+-commutative37.2%
mul-1-neg37.2%
unsub-neg37.2%
*-commutative37.2%
Simplified37.2%
Taylor expanded in t around inf 29.7%
Taylor expanded in b around inf 27.9%
*-commutative27.9%
Simplified27.9%
if -7.5999999999999996e-10 < y4 < 1.60000000000000009e-31Initial program 27.5%
Taylor expanded in y0 around inf 38.9%
+-commutative38.9%
mul-1-neg38.9%
unsub-neg38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
Simplified38.9%
Taylor expanded in k around inf 31.0%
mul-1-neg31.0%
+-commutative31.0%
mul-1-neg31.0%
sub-neg31.0%
Simplified31.0%
Taylor expanded in y2 around 0 23.7%
Final simplification26.0%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (or (<= y4 -1.4e-12) (not (<= y4 4.3e-34))) (* j (* t (* b y4))) (* b (* k (* z y0)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if ((y4 <= -1.4e-12) || !(y4 <= 4.3e-34)) {
tmp = j * (t * (b * y4));
} else {
tmp = b * (k * (z * y0));
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if ((y4 <= (-1.4d-12)) .or. (.not. (y4 <= 4.3d-34))) then
tmp = j * (t * (b * y4))
else
tmp = b * (k * (z * y0))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if ((y4 <= -1.4e-12) || !(y4 <= 4.3e-34)) {
tmp = j * (t * (b * y4));
} else {
tmp = b * (k * (z * y0));
}
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.4e-12) or not (y4 <= 4.3e-34): tmp = j * (t * (b * y4)) else: tmp = b * (k * (z * y0)) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if ((y4 <= -1.4e-12) || !(y4 <= 4.3e-34)) tmp = Float64(j * Float64(t * Float64(b * y4))); else tmp = Float64(b * Float64(k * Float64(z * y0))); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if ((y4 <= -1.4e-12) || ~((y4 <= 4.3e-34))) tmp = j * (t * (b * y4)); else tmp = b * (k * (z * y0)); 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[y4, -1.4e-12], N[Not[LessEqual[y4, 4.3e-34]], $MachinePrecision]], N[(j * N[(t * N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(k * N[(z * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y4 \leq -1.4 \cdot 10^{-12} \lor \neg \left(y4 \leq 4.3 \cdot 10^{-34}\right):\\
\;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(k \cdot \left(z \cdot y0\right)\right)\\
\end{array}
\end{array}
if y4 < -1.4000000000000001e-12 or 4.3e-34 < y4 Initial program 23.9%
Taylor expanded in j around inf 37.2%
+-commutative37.2%
mul-1-neg37.2%
unsub-neg37.2%
*-commutative37.2%
Simplified37.2%
Taylor expanded in t around inf 29.7%
Taylor expanded in b around inf 30.6%
*-commutative30.6%
Simplified30.6%
if -1.4000000000000001e-12 < y4 < 4.3e-34Initial program 27.5%
Taylor expanded in y0 around inf 38.9%
+-commutative38.9%
mul-1-neg38.9%
unsub-neg38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
*-commutative38.9%
Simplified38.9%
Taylor expanded in k around inf 31.0%
mul-1-neg31.0%
+-commutative31.0%
mul-1-neg31.0%
sub-neg31.0%
Simplified31.0%
Taylor expanded in y2 around 0 23.7%
Final simplification27.4%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (if (<= x -2.1e+128) (* b (* (* x y) a)) (if (<= x 1.5e+139) (* b (* j (* t y4))) (* a (* (* x y) b)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (x <= -2.1e+128) {
tmp = b * ((x * y) * a);
} else if (x <= 1.5e+139) {
tmp = b * (j * (t * y4));
} else {
tmp = a * ((x * y) * b);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
real(8) :: tmp
if (x <= (-2.1d+128)) then
tmp = b * ((x * y) * a)
else if (x <= 1.5d+139) then
tmp = b * (j * (t * y4))
else
tmp = a * ((x * y) * b)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
double tmp;
if (x <= -2.1e+128) {
tmp = b * ((x * y) * a);
} else if (x <= 1.5e+139) {
tmp = b * (j * (t * y4));
} else {
tmp = a * ((x * y) * b);
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): tmp = 0 if x <= -2.1e+128: tmp = b * ((x * y) * a) elif x <= 1.5e+139: tmp = b * (j * (t * y4)) else: tmp = a * ((x * y) * b) return tmp
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0 if (x <= -2.1e+128) tmp = Float64(b * Float64(Float64(x * y) * a)); elseif (x <= 1.5e+139) tmp = Float64(b * Float64(j * Float64(t * y4))); else tmp = Float64(a * Float64(Float64(x * y) * b)); end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = 0.0; if (x <= -2.1e+128) tmp = b * ((x * y) * a); elseif (x <= 1.5e+139) tmp = b * (j * (t * y4)); else tmp = a * ((x * y) * b); end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[x, -2.1e+128], N[(b * N[(N[(x * y), $MachinePrecision] * a), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 1.5e+139], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -2.1 \cdot 10^{+128}:\\
\;\;\;\;b \cdot \left(\left(x \cdot y\right) \cdot a\right)\\
\mathbf{elif}\;x \leq 1.5 \cdot 10^{+139}:\\
\;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\
\end{array}
\end{array}
if x < -2.1e128Initial program 24.8%
Taylor expanded in b around inf 38.4%
Taylor expanded in a around inf 33.9%
Taylor expanded in x around inf 28.4%
*-commutative28.4%
Simplified28.4%
if -2.1e128 < x < 1.5e139Initial program 29.0%
Taylor expanded in j around inf 38.6%
+-commutative38.6%
mul-1-neg38.6%
unsub-neg38.6%
*-commutative38.6%
Simplified38.6%
Taylor expanded in t around inf 28.8%
Taylor expanded in b around inf 21.7%
*-commutative21.7%
Simplified21.7%
if 1.5e139 < x Initial program 11.9%
Taylor expanded in b around inf 40.9%
Taylor expanded in a around inf 43.4%
Taylor expanded in x around inf 41.5%
*-commutative41.5%
*-commutative41.5%
Simplified41.5%
Final simplification25.9%
(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5) :precision binary64 (* a (* (* x y) b)))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
return a * ((x * y) * b);
}
real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: i
real(8), intent (in) :: j
real(8), intent (in) :: k
real(8), intent (in) :: y0
real(8), intent (in) :: y1
real(8), intent (in) :: y2
real(8), intent (in) :: y3
real(8), intent (in) :: y4
real(8), intent (in) :: y5
code = a * ((x * y) * b)
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
return a * ((x * y) * b);
}
def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5): return a * ((x * y) * b)
function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) return Float64(a * Float64(Float64(x * y) * b)) end
function tmp = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5) tmp = a * ((x * y) * b); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(\left(x \cdot y\right) \cdot b\right)
\end{array}
Initial program 25.6%
Taylor expanded in b around inf 35.7%
Taylor expanded in a around inf 24.0%
Taylor expanded in x around inf 15.6%
*-commutative15.6%
*-commutative15.6%
Simplified15.6%
Final simplification15.6%
(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 2024071
(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)))))