
(FPCore (x y z t a b c i j) :precision binary64 (+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (* j (- (* c t) (* i y)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)))
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)));
}
def code(x, y, z, t, a, b, c, i, j): return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)))
function code(x, y, z, t, a, b, c, i, j) return Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) - Float64(b * Float64(Float64(c * z) - Float64(i * a)))) + Float64(j * Float64(Float64(c * t) - Float64(i * y)))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(b * N[(N[(c * z), $MachinePrecision] - N[(i * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(c * t), $MachinePrecision] - N[(i * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \left(y \cdot z - t \cdot a\right) - b \cdot \left(c \cdot z - i \cdot a\right)\right) + j \cdot \left(c \cdot t - i \cdot y\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z t a b c i j) :precision binary64 (+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (* j (- (* c t) (* i y)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)))
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)));
}
def code(x, y, z, t, a, b, c, i, j): return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y)))
function code(x, y, z, t, a, b, c, i, j) return Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) - Float64(b * Float64(Float64(c * z) - Float64(i * a)))) + Float64(j * Float64(Float64(c * t) - Float64(i * y)))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + (j * ((c * t) - (i * y))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(b * N[(N[(c * z), $MachinePrecision] - N[(i * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(c * t), $MachinePrecision] - N[(i * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \left(y \cdot z - t \cdot a\right) - b \cdot \left(c \cdot z - i \cdot a\right)\right) + j \cdot \left(c \cdot t - i \cdot y\right)
\end{array}
(FPCore (x y z t a b c i j) :precision binary64 (fma j (- (* t c) (* y i)) (+ (* x (fma y z (* a (- t)))) (* b (- (* i a) (* c z))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return fma(j, ((t * c) - (y * i)), ((x * fma(y, z, (a * -t))) + (b * ((i * a) - (c * z)))));
}
function code(x, y, z, t, a, b, c, i, j) return fma(j, Float64(Float64(t * c) - Float64(y * i)), Float64(Float64(x * fma(y, z, Float64(a * Float64(-t)))) + Float64(b * Float64(Float64(i * a) - Float64(c * z))))) end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision] + N[(N[(x * N[(y * z + N[(a * (-t)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(b * N[(N[(i * a), $MachinePrecision] - N[(c * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(j, t \cdot c - y \cdot i, x \cdot \mathsf{fma}\left(y, z, a \cdot \left(-t\right)\right) + b \cdot \left(i \cdot a - c \cdot z\right)\right)
\end{array}
Initial program 75.7%
+-commutative75.7%
fma-def76.9%
*-commutative76.9%
*-commutative76.9%
cancel-sign-sub-inv76.9%
cancel-sign-sub76.9%
fma-neg77.3%
distribute-rgt-neg-out77.3%
remove-double-neg77.3%
*-commutative77.3%
*-commutative77.3%
Simplified77.3%
Final simplification77.3%
(FPCore (x y z t a b c i j) :precision binary64 (- (* j (- (* t c) (* y i))) (- (* b (- (* c z) (* i a))) (* x (- (* y z) (* t a))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return (j * ((t * c) - (y * i))) - ((b * ((c * z) - (i * a))) - (x * ((y * z) - (t * a))));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = (j * ((t * c) - (y * i))) - ((b * ((c * z) - (i * a))) - (x * ((y * z) - (t * a))))
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return (j * ((t * c) - (y * i))) - ((b * ((c * z) - (i * a))) - (x * ((y * z) - (t * a))));
}
def code(x, y, z, t, a, b, c, i, j): return (j * ((t * c) - (y * i))) - ((b * ((c * z) - (i * a))) - (x * ((y * z) - (t * a))))
function code(x, y, z, t, a, b, c, i, j) return Float64(Float64(j * Float64(Float64(t * c) - Float64(y * i))) - Float64(Float64(b * Float64(Float64(c * z) - Float64(i * a))) - Float64(x * Float64(Float64(y * z) - Float64(t * a))))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = (j * ((t * c) - (y * i))) - ((b * ((c * z) - (i * a))) - (x * ((y * z) - (t * a)))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(b * N[(N[(c * z), $MachinePrecision] - N[(i * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
j \cdot \left(t \cdot c - y \cdot i\right) - \left(b \cdot \left(c \cdot z - i \cdot a\right) - x \cdot \left(y \cdot z - t \cdot a\right)\right)
\end{array}
Initial program 75.7%
Final simplification75.7%
(FPCore (x y z t a b c i j) :precision binary64 (+ (* j (- (* t c) (* y i))) (- (* x (- (* y z) (* t a))) (* z (* c b)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return (j * ((t * c) - (y * i))) + ((x * ((y * z) - (t * a))) - (z * (c * b)));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = (j * ((t * c) - (y * i))) + ((x * ((y * z) - (t * a))) - (z * (c * 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) {
return (j * ((t * c) - (y * i))) + ((x * ((y * z) - (t * a))) - (z * (c * b)));
}
def code(x, y, z, t, a, b, c, i, j): return (j * ((t * c) - (y * i))) + ((x * ((y * z) - (t * a))) - (z * (c * b)))
function code(x, y, z, t, a, b, c, i, j) return Float64(Float64(j * Float64(Float64(t * c) - Float64(y * i))) + Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) - Float64(z * Float64(c * b)))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = (j * ((t * c) - (y * i))) + ((x * ((y * z) - (t * a))) - (z * (c * b))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(z * N[(c * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
j \cdot \left(t \cdot c - y \cdot i\right) + \left(x \cdot \left(y \cdot z - t \cdot a\right) - z \cdot \left(c \cdot b\right)\right)
\end{array}
Initial program 75.7%
Taylor expanded in c around inf 67.8%
associate-*r*46.6%
*-commutative46.6%
Simplified68.9%
Final simplification68.9%
(FPCore (x y z t a b c i j) :precision binary64 (+ (* x (- (* y z) (* t a))) (* j (- (* t c) (* y i)))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return (x * ((y * z) - (t * a))) + (j * ((t * c) - (y * i)));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = (x * ((y * z) - (t * a))) + (j * ((t * c) - (y * i)))
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return (x * ((y * z) - (t * a))) + (j * ((t * c) - (y * i)));
}
def code(x, y, z, t, a, b, c, i, j): return (x * ((y * z) - (t * a))) + (j * ((t * c) - (y * i)))
function code(x, y, z, t, a, b, c, i, j) return Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) + Float64(j * Float64(Float64(t * c) - Float64(y * i)))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = (x * ((y * z) - (t * a))) + (j * ((t * c) - (y * i))); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x \cdot \left(y \cdot z - t \cdot a\right) + j \cdot \left(t \cdot c - y \cdot i\right)
\end{array}
Initial program 75.7%
Taylor expanded in b around 0 62.1%
Final simplification62.1%
(FPCore (x y z t a b c i j) :precision binary64 (- (* j (- (* t c) (* y i))) (* z (* c b))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return (j * ((t * c) - (y * i))) - (z * (c * b));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = (j * ((t * c) - (y * i))) - (z * (c * 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) {
return (j * ((t * c) - (y * i))) - (z * (c * b));
}
def code(x, y, z, t, a, b, c, i, j): return (j * ((t * c) - (y * i))) - (z * (c * b))
function code(x, y, z, t, a, b, c, i, j) return Float64(Float64(j * Float64(Float64(t * c) - Float64(y * i))) - Float64(z * Float64(c * b))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = (j * ((t * c) - (y * i))) - (z * (c * b)); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(j * N[(N[(t * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(z * N[(c * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
j \cdot \left(t \cdot c - y \cdot i\right) - z \cdot \left(c \cdot b\right)
\end{array}
Initial program 75.7%
Taylor expanded in x around 0 56.8%
*-commutative56.8%
Simplified56.8%
Taylor expanded in c around inf 45.5%
associate-*r*46.6%
*-commutative46.6%
Simplified46.6%
Final simplification46.6%
(FPCore (x y z t a b c i j) :precision binary64 (* b (- (* i a) (* c z))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return b * ((i * a) - (c * z));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = b * ((i * a) - (c * z))
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return b * ((i * a) - (c * z));
}
def code(x, y, z, t, a, b, c, i, j): return b * ((i * a) - (c * z))
function code(x, y, z, t, a, b, c, i, j) return Float64(b * Float64(Float64(i * a) - Float64(c * z))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = b * ((i * a) - (c * z)); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(b * N[(N[(i * a), $MachinePrecision] - N[(c * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
b \cdot \left(i \cdot a - c \cdot z\right)
\end{array}
Initial program 75.7%
Taylor expanded in b around inf 39.9%
*-commutative39.9%
Simplified39.9%
Final simplification39.9%
(FPCore (x y z t a b c i j) :precision binary64 (* a (- (* i b) (* t x))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return a * ((i * b) - (t * x));
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = a * ((i * b) - (t * x))
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return a * ((i * b) - (t * x));
}
def code(x, y, z, t, a, b, c, i, j): return a * ((i * b) - (t * x))
function code(x, y, z, t, a, b, c, i, j) return Float64(a * Float64(Float64(i * b) - Float64(t * x))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = a * ((i * b) - (t * x)); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(a * N[(N[(i * b), $MachinePrecision] - N[(t * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(i \cdot b - t \cdot x\right)
\end{array}
Initial program 75.7%
Taylor expanded in a around -inf 41.5%
Final simplification41.5%
(FPCore (x y z t a b c i j) :precision binary64 (* c (* z (- b))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return c * (z * -b);
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = c * (z * -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) {
return c * (z * -b);
}
def code(x, y, z, t, a, b, c, i, j): return c * (z * -b)
function code(x, y, z, t, a, b, c, i, j) return Float64(c * Float64(z * Float64(-b))) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = c * (z * -b); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(c * N[(z * (-b)), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
c \cdot \left(z \cdot \left(-b\right)\right)
\end{array}
Initial program 75.7%
Taylor expanded in z around inf 35.8%
*-commutative35.8%
*-commutative35.8%
Simplified35.8%
Taylor expanded in y around 0 21.6%
neg-mul-121.6%
distribute-lft-neg-in21.6%
*-commutative21.6%
associate-*l*23.7%
Simplified23.7%
Final simplification23.7%
(FPCore (x y z t a b c i j) :precision binary64 (* a (* i b)))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return a * (i * b);
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = a * (i * 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) {
return a * (i * b);
}
def code(x, y, z, t, a, b, c, i, j): return a * (i * b)
function code(x, y, z, t, a, b, c, i, j) return Float64(a * Float64(i * b)) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = a * (i * b); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(a * N[(i * b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(i \cdot b\right)
\end{array}
Initial program 75.7%
Taylor expanded in b around inf 39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in i around inf 22.7%
Final simplification22.7%
(FPCore (x y z t a b c i j) :precision binary64 (* b (* i a)))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return b * (i * a);
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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
code = b * (i * a)
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return b * (i * a);
}
def code(x, y, z, t, a, b, c, i, j): return b * (i * a)
function code(x, y, z, t, a, b, c, i, j) return Float64(b * Float64(i * a)) end
function tmp = code(x, y, z, t, a, b, c, i, j) tmp = b * (i * a); end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(b * N[(i * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
b \cdot \left(i \cdot a\right)
\end{array}
Initial program 75.7%
Taylor expanded in b around inf 39.9%
*-commutative39.9%
Simplified39.9%
Taylor expanded in i around inf 23.4%
Final simplification23.4%
(FPCore (x y z t a b c i j)
:precision binary64
(let* ((t_1
(+
(- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a))))
(/
(* j (- (pow (* c t) 2.0) (pow (* i y) 2.0)))
(+ (* c t) (* i y)))))
(t_2
(-
(* x (- (* z y) (* a t)))
(- (* b (- (* z c) (* a i))) (* (- (* c t) (* y i)) j)))))
(if (< t -8.120978919195912e-33)
t_2
(if (< t -4.712553818218485e-169)
t_1
(if (< t -7.633533346031584e-308)
t_2
(if (< t 1.0535888557455487e-139) t_1 t_2))))))
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (pow((c * t), 2.0) - pow((i * y), 2.0))) / ((c * t) + (i * y)));
double t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j));
double tmp;
if (t < -8.120978919195912e-33) {
tmp = t_2;
} else if (t < -4.712553818218485e-169) {
tmp = t_1;
} else if (t < -7.633533346031584e-308) {
tmp = t_2;
} else if (t < 1.0535888557455487e-139) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y, z, t, a, b, c, i, j)
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) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (((c * t) ** 2.0d0) - ((i * y) ** 2.0d0))) / ((c * t) + (i * y)))
t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j))
if (t < (-8.120978919195912d-33)) then
tmp = t_2
else if (t < (-4.712553818218485d-169)) then
tmp = t_1
else if (t < (-7.633533346031584d-308)) then
tmp = t_2
else if (t < 1.0535888557455487d-139) then
tmp = t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (Math.pow((c * t), 2.0) - Math.pow((i * y), 2.0))) / ((c * t) + (i * y)));
double t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j));
double tmp;
if (t < -8.120978919195912e-33) {
tmp = t_2;
} else if (t < -4.712553818218485e-169) {
tmp = t_1;
} else if (t < -7.633533346031584e-308) {
tmp = t_2;
} else if (t < 1.0535888557455487e-139) {
tmp = t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y, z, t, a, b, c, i, j): t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (math.pow((c * t), 2.0) - math.pow((i * y), 2.0))) / ((c * t) + (i * y))) t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j)) tmp = 0 if t < -8.120978919195912e-33: tmp = t_2 elif t < -4.712553818218485e-169: tmp = t_1 elif t < -7.633533346031584e-308: tmp = t_2 elif t < 1.0535888557455487e-139: tmp = t_1 else: tmp = t_2 return tmp
function code(x, y, z, t, a, b, c, i, j) t_1 = Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) - Float64(b * Float64(Float64(c * z) - Float64(i * a)))) + Float64(Float64(j * Float64((Float64(c * t) ^ 2.0) - (Float64(i * y) ^ 2.0))) / Float64(Float64(c * t) + Float64(i * y)))) t_2 = Float64(Float64(x * Float64(Float64(z * y) - Float64(a * t))) - Float64(Float64(b * Float64(Float64(z * c) - Float64(a * i))) - Float64(Float64(Float64(c * t) - Float64(y * i)) * j))) tmp = 0.0 if (t < -8.120978919195912e-33) tmp = t_2; elseif (t < -4.712553818218485e-169) tmp = t_1; elseif (t < -7.633533346031584e-308) tmp = t_2; elseif (t < 1.0535888557455487e-139) tmp = t_1; else tmp = t_2; end return tmp end
function tmp_2 = code(x, y, z, t, a, b, c, i, j) t_1 = ((x * ((y * z) - (t * a))) - (b * ((c * z) - (i * a)))) + ((j * (((c * t) ^ 2.0) - ((i * y) ^ 2.0))) / ((c * t) + (i * y))); t_2 = (x * ((z * y) - (a * t))) - ((b * ((z * c) - (a * i))) - (((c * t) - (y * i)) * j)); tmp = 0.0; if (t < -8.120978919195912e-33) tmp = t_2; elseif (t < -4.712553818218485e-169) tmp = t_1; elseif (t < -7.633533346031584e-308) tmp = t_2; elseif (t < 1.0535888557455487e-139) tmp = t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(b * N[(N[(c * z), $MachinePrecision] - N[(i * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(j * N[(N[Power[N[(c * t), $MachinePrecision], 2.0], $MachinePrecision] - N[Power[N[(i * y), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(c * t), $MachinePrecision] + N[(i * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * N[(N[(z * y), $MachinePrecision] - N[(a * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(b * N[(N[(z * c), $MachinePrecision] - N[(a * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(N[(c * t), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision] * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[Less[t, -8.120978919195912e-33], t$95$2, If[Less[t, -4.712553818218485e-169], t$95$1, If[Less[t, -7.633533346031584e-308], t$95$2, If[Less[t, 1.0535888557455487e-139], t$95$1, t$95$2]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \left(x \cdot \left(y \cdot z - t \cdot a\right) - b \cdot \left(c \cdot z - i \cdot a\right)\right) + \frac{j \cdot \left({\left(c \cdot t\right)}^{2} - {\left(i \cdot y\right)}^{2}\right)}{c \cdot t + i \cdot y}\\
t_2 := x \cdot \left(z \cdot y - a \cdot t\right) - \left(b \cdot \left(z \cdot c - a \cdot i\right) - \left(c \cdot t - y \cdot i\right) \cdot j\right)\\
\mathbf{if}\;t < -8.120978919195912 \cdot 10^{-33}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t < -4.712553818218485 \cdot 10^{-169}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;t < -7.633533346031584 \cdot 10^{-308}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;t < 1.0535888557455487 \cdot 10^{-139}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
herbie shell --seed 2024033
(FPCore (x y z t a b c i j)
:name "Linear.Matrix:det33 from linear-1.19.1.3"
:precision binary64
:herbie-target
(if (< t -8.120978919195912e-33) (- (* x (- (* z y) (* a t))) (- (* b (- (* z c) (* a i))) (* (- (* c t) (* y i)) j))) (if (< t -4.712553818218485e-169) (+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (/ (* j (- (pow (* c t) 2.0) (pow (* i y) 2.0))) (+ (* c t) (* i y)))) (if (< t -7.633533346031584e-308) (- (* x (- (* z y) (* a t))) (- (* b (- (* z c) (* a i))) (* (- (* c t) (* y i)) j))) (if (< t 1.0535888557455487e-139) (+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (/ (* j (- (pow (* c t) 2.0) (pow (* i y) 2.0))) (+ (* c t) (* i y)))) (- (* x (- (* z y) (* a t))) (- (* b (- (* z c) (* a i))) (* (- (* c t) (* y i)) j)))))))
(+ (- (* x (- (* y z) (* t a))) (* b (- (* c z) (* i a)))) (* j (- (* c t) (* i y)))))