Linear.Matrix:det44 from linear-1.19.1.3

Percentage Accurate: 30.6% → 38.9%

Time: 1.7min

Alternatives: 33

Speedup: 4.9×

• 89.0% of points produce a very large (infinite) output. You may want to add a precondition.

Specification

Math

\[\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

(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)))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	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)));
}

Fortran

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

Java

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)));
}

Python

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)))

Julia

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

MATLAB

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

Wolfram

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]

Initial Program: 30.6% accurate, 1.0× speedup

Math

\[\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

(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)))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	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)));
}

Fortran

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

Java

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)));
}

Python

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)))

Julia

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

MATLAB

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

Wolfram

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]

Alternative 1: 38.9% accurate, 1.9× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := b \cdot y4 - i \cdot y5\\ t_2 := x \cdot y2 - z \cdot y3\\ t_3 := t \cdot \left(\left(z \cdot \left(c \cdot i - a \cdot b\right) + j \cdot t_1\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\ t_4 := x \cdot y - z \cdot t\\ t_5 := a \cdot \left(\left(t_4 \cdot b + y1 \cdot \left(z \cdot y3 - x \cdot y2\right)\right) + y5 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\ t_6 := i \cdot y1 - b \cdot y0\\ \mathbf{if}\;y \leq -2.1 \cdot 10^{+197}:\\ \;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq -8.5 \cdot 10^{+99}:\\ \;\;\;\;c \cdot \left(\left(y0 \cdot t_2 + i \cdot \left(z \cdot t - x \cdot y\right)\right) + y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\ \mathbf{elif}\;y \leq -1.85 \cdot 10^{+28}:\\ \;\;\;\;b \cdot \left(\left(t_4 \cdot a + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{elif}\;y \leq -4.8 \cdot 10^{-56}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y \leq -1.12 \cdot 10^{-76}:\\ \;\;\;\;t_5\\ \mathbf{elif}\;y \leq 4 \cdot 10^{-104}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y \leq 5.7 \cdot 10^{+65}:\\ \;\;\;\;y1 \cdot \left(\left(y4 \cdot \left(k \cdot y2 - j \cdot y3\right) - a \cdot t_2\right) + i \cdot \left(x \cdot j - z \cdot k\right)\right)\\ \mathbf{elif}\;y \leq 9 \cdot 10^{+159}:\\ \;\;\;\;t_5\\ \mathbf{elif}\;y \leq 1.45 \cdot 10^{+189}:\\ \;\;\;\;j \cdot \left(x \cdot t_6 - \left(y3 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) - t \cdot t_1\right)\right)\\ \mathbf{else}:\\ \;\;\;\;x \cdot \left(\left(y \cdot \left(a \cdot b - c \cdot i\right) + y2 \cdot \left(c \cdot y0 - a \cdot y1\right)\right) + j \cdot t_6\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (- (* b y4) (* i y5)))
        (t_2 (- (* x y2) (* z y3)))
        (t_3
         (*
          t
          (+
           (+ (* z (- (* c i) (* a b))) (* j t_1))
           (* y2 (- (* a y5) (* c y4))))))
        (t_4 (- (* x y) (* z t)))
        (t_5
         (*
          a
          (+
           (+ (* t_4 b) (* y1 (- (* z y3) (* x y2))))
           (* y5 (- (* t y2) (* y y3))))))
        (t_6 (- (* i y1) (* b y0))))
   (if (<= y -2.1e+197)
     (* k (* y (- (* i y5) (* b y4))))
     (if (<= y -8.5e+99)
       (*
        c
        (+
         (+ (* y0 t_2) (* i (- (* z t) (* x y))))
         (* y4 (- (* y y3) (* t y2)))))
       (if (<= y -1.85e+28)
         (*
          b
          (+
           (+ (* t_4 a) (* y4 (- (* t j) (* y k))))
           (* y0 (- (* z k) (* x j)))))
         (if (<= y -4.8e-56)
           t_3
           (if (<= y -1.12e-76)
             t_5
             (if (<= y 4e-104)
               t_3
               (if (<= y 5.7e+65)
                 (*
                  y1
                  (+
                   (- (* y4 (- (* k y2) (* j y3))) (* a t_2))
                   (* i (- (* x j) (* z k)))))
                 (if (<= y 9e+159)
                   t_5
                   (if (<= y 1.45e+189)
                     (*
                      j
                      (-
                       (* x t_6)
                       (- (* y3 (- (* y1 y4) (* y0 y5))) (* t t_1))))
                     (*
                      x
                      (+
                       (+
                        (* y (- (* a b) (* c i)))
                        (* y2 (- (* c y0) (* a y1))))
                       (* j t_6))))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (b * y4) - (i * y5);
	double t_2 = (x * y2) - (z * y3);
	double t_3 = t * (((z * ((c * i) - (a * b))) + (j * t_1)) + (y2 * ((a * y5) - (c * y4))));
	double t_4 = (x * y) - (z * t);
	double t_5 = a * (((t_4 * b) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
	double t_6 = (i * y1) - (b * y0);
	double tmp;
	if (y <= -2.1e+197) {
		tmp = k * (y * ((i * y5) - (b * y4)));
	} else if (y <= -8.5e+99) {
		tmp = c * (((y0 * t_2) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
	} else if (y <= -1.85e+28) {
		tmp = b * (((t_4 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	} else if (y <= -4.8e-56) {
		tmp = t_3;
	} else if (y <= -1.12e-76) {
		tmp = t_5;
	} else if (y <= 4e-104) {
		tmp = t_3;
	} else if (y <= 5.7e+65) {
		tmp = y1 * (((y4 * ((k * y2) - (j * y3))) - (a * t_2)) + (i * ((x * j) - (z * k))));
	} else if (y <= 9e+159) {
		tmp = t_5;
	} else if (y <= 1.45e+189) {
		tmp = j * ((x * t_6) - ((y3 * ((y1 * y4) - (y0 * y5))) - (t * t_1)));
	} else {
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_6));
	}
	return tmp;
}

Fortran

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 = (b * y4) - (i * y5)
    t_2 = (x * y2) - (z * y3)
    t_3 = t * (((z * ((c * i) - (a * b))) + (j * t_1)) + (y2 * ((a * y5) - (c * y4))))
    t_4 = (x * y) - (z * t)
    t_5 = a * (((t_4 * b) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))))
    t_6 = (i * y1) - (b * y0)
    if (y <= (-2.1d+197)) then
        tmp = k * (y * ((i * y5) - (b * y4)))
    else if (y <= (-8.5d+99)) then
        tmp = c * (((y0 * t_2) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))))
    else if (y <= (-1.85d+28)) then
        tmp = b * (((t_4 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
    else if (y <= (-4.8d-56)) then
        tmp = t_3
    else if (y <= (-1.12d-76)) then
        tmp = t_5
    else if (y <= 4d-104) then
        tmp = t_3
    else if (y <= 5.7d+65) then
        tmp = y1 * (((y4 * ((k * y2) - (j * y3))) - (a * t_2)) + (i * ((x * j) - (z * k))))
    else if (y <= 9d+159) then
        tmp = t_5
    else if (y <= 1.45d+189) then
        tmp = j * ((x * t_6) - ((y3 * ((y1 * y4) - (y0 * y5))) - (t * t_1)))
    else
        tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_6))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (b * y4) - (i * y5);
	double t_2 = (x * y2) - (z * y3);
	double t_3 = t * (((z * ((c * i) - (a * b))) + (j * t_1)) + (y2 * ((a * y5) - (c * y4))));
	double t_4 = (x * y) - (z * t);
	double t_5 = a * (((t_4 * b) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
	double t_6 = (i * y1) - (b * y0);
	double tmp;
	if (y <= -2.1e+197) {
		tmp = k * (y * ((i * y5) - (b * y4)));
	} else if (y <= -8.5e+99) {
		tmp = c * (((y0 * t_2) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
	} else if (y <= -1.85e+28) {
		tmp = b * (((t_4 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	} else if (y <= -4.8e-56) {
		tmp = t_3;
	} else if (y <= -1.12e-76) {
		tmp = t_5;
	} else if (y <= 4e-104) {
		tmp = t_3;
	} else if (y <= 5.7e+65) {
		tmp = y1 * (((y4 * ((k * y2) - (j * y3))) - (a * t_2)) + (i * ((x * j) - (z * k))));
	} else if (y <= 9e+159) {
		tmp = t_5;
	} else if (y <= 1.45e+189) {
		tmp = j * ((x * t_6) - ((y3 * ((y1 * y4) - (y0 * y5))) - (t * t_1)));
	} else {
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_6));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = (b * y4) - (i * y5)
	t_2 = (x * y2) - (z * y3)
	t_3 = t * (((z * ((c * i) - (a * b))) + (j * t_1)) + (y2 * ((a * y5) - (c * y4))))
	t_4 = (x * y) - (z * t)
	t_5 = a * (((t_4 * b) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))))
	t_6 = (i * y1) - (b * y0)
	tmp = 0
	if y <= -2.1e+197:
		tmp = k * (y * ((i * y5) - (b * y4)))
	elif y <= -8.5e+99:
		tmp = c * (((y0 * t_2) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))))
	elif y <= -1.85e+28:
		tmp = b * (((t_4 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
	elif y <= -4.8e-56:
		tmp = t_3
	elif y <= -1.12e-76:
		tmp = t_5
	elif y <= 4e-104:
		tmp = t_3
	elif y <= 5.7e+65:
		tmp = y1 * (((y4 * ((k * y2) - (j * y3))) - (a * t_2)) + (i * ((x * j) - (z * k))))
	elif y <= 9e+159:
		tmp = t_5
	elif y <= 1.45e+189:
		tmp = j * ((x * t_6) - ((y3 * ((y1 * y4) - (y0 * y5))) - (t * t_1)))
	else:
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_6))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(Float64(b * y4) - Float64(i * y5))
	t_2 = Float64(Float64(x * y2) - Float64(z * y3))
	t_3 = Float64(t * Float64(Float64(Float64(z * Float64(Float64(c * i) - Float64(a * b))) + Float64(j * t_1)) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))))
	t_4 = Float64(Float64(x * y) - Float64(z * t))
	t_5 = Float64(a * Float64(Float64(Float64(t_4 * b) + Float64(y1 * Float64(Float64(z * y3) - Float64(x * y2)))) + Float64(y5 * Float64(Float64(t * y2) - Float64(y * y3)))))
	t_6 = Float64(Float64(i * y1) - Float64(b * y0))
	tmp = 0.0
	if (y <= -2.1e+197)
		tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))));
	elseif (y <= -8.5e+99)
		tmp = Float64(c * Float64(Float64(Float64(y0 * t_2) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))));
	elseif (y <= -1.85e+28)
		tmp = Float64(b * Float64(Float64(Float64(t_4 * a) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))));
	elseif (y <= -4.8e-56)
		tmp = t_3;
	elseif (y <= -1.12e-76)
		tmp = t_5;
	elseif (y <= 4e-104)
		tmp = t_3;
	elseif (y <= 5.7e+65)
		tmp = Float64(y1 * Float64(Float64(Float64(y4 * Float64(Float64(k * y2) - Float64(j * y3))) - Float64(a * t_2)) + Float64(i * Float64(Float64(x * j) - Float64(z * k)))));
	elseif (y <= 9e+159)
		tmp = t_5;
	elseif (y <= 1.45e+189)
		tmp = Float64(j * Float64(Float64(x * t_6) - Float64(Float64(y3 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) - Float64(t * t_1))));
	else
		tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(j * t_6)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = (b * y4) - (i * y5);
	t_2 = (x * y2) - (z * y3);
	t_3 = t * (((z * ((c * i) - (a * b))) + (j * t_1)) + (y2 * ((a * y5) - (c * y4))));
	t_4 = (x * y) - (z * t);
	t_5 = a * (((t_4 * b) + (y1 * ((z * y3) - (x * y2)))) + (y5 * ((t * y2) - (y * y3))));
	t_6 = (i * y1) - (b * y0);
	tmp = 0.0;
	if (y <= -2.1e+197)
		tmp = k * (y * ((i * y5) - (b * y4)));
	elseif (y <= -8.5e+99)
		tmp = c * (((y0 * t_2) + (i * ((z * t) - (x * y)))) + (y4 * ((y * y3) - (t * y2))));
	elseif (y <= -1.85e+28)
		tmp = b * (((t_4 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	elseif (y <= -4.8e-56)
		tmp = t_3;
	elseif (y <= -1.12e-76)
		tmp = t_5;
	elseif (y <= 4e-104)
		tmp = t_3;
	elseif (y <= 5.7e+65)
		tmp = y1 * (((y4 * ((k * y2) - (j * y3))) - (a * t_2)) + (i * ((x * j) - (z * k))));
	elseif (y <= 9e+159)
		tmp = t_5;
	elseif (y <= 1.45e+189)
		tmp = j * ((x * t_6) - ((y3 * ((y1 * y4) - (y0 * y5))) - (t * t_1)));
	else
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * t_6));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t * N[(N[(N[(z * N[(N[(c * i), $MachinePrecision] - N[(a * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(a * N[(N[(N[(t$95$4 * b), $MachinePrecision] + N[(y1 * N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y5 * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(N[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2.1e+197], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -8.5e+99], N[(c * N[(N[(N[(y0 * t$95$2), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.85e+28], N[(b * N[(N[(N[(t$95$4 * a), $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[y, -4.8e-56], t$95$3, If[LessEqual[y, -1.12e-76], t$95$5, If[LessEqual[y, 4e-104], t$95$3, If[LessEqual[y, 5.7e+65], N[(y1 * N[(N[(N[(y4 * N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(a * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(x * j), $MachinePrecision] - N[(z * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9e+159], t$95$5, If[LessEqual[y, 1.45e+189], N[(j * N[(N[(x * t$95$6), $MachinePrecision] - N[(N[(y3 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(t * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x * N[(N[(N[(y * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 2: 53.3% accurate, 0.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := t \cdot j - y \cdot k\\ t_2 := t \cdot y2 - y \cdot y3\\ t_3 := \left(\left(\left(\left(\left(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(i \cdot y1 - b \cdot y0\right)\right) + \left(c \cdot y0 - a \cdot y1\right) \cdot \left(x \cdot y2 - z \cdot y3\right)\right) + \left(b \cdot y4 - i \cdot y5\right) \cdot t_1\right) + t_2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right) + \left(k \cdot y2 - j \cdot y3\right) \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\\ \mathbf{if}\;t_3 \leq \infty:\\ \;\;\;\;t_3\\ \mathbf{else}:\\ \;\;\;\;y5 \cdot \left(a \cdot t_2 + \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot t_1\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (- (* t j) (* y k)))
        (t_2 (- (* t y2) (* y y3)))
        (t_3
         (+
          (+
           (+
            (+
             (+
              (* (- (* x y) (* z t)) (- (* a b) (* c i)))
              (* (- (* x j) (* z k)) (- (* i y1) (* b y0))))
             (* (- (* c y0) (* a y1)) (- (* x y2) (* z y3))))
            (* (- (* b y4) (* i y5)) t_1))
           (* t_2 (- (* a y5) (* c y4))))
          (* (- (* k y2) (* j y3)) (- (* y1 y4) (* y0 y5))))))
   (if (<= t_3 INFINITY)
     t_3
     (* y5 (+ (* a t_2) (- (* y0 (- (* j y3) (* k y2))) (* i t_1)))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (t * j) - (y * k);
	double t_2 = (t * y2) - (y * y3);
	double t_3 = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) + (((x * j) - (z * k)) * ((i * y1) - (b * y0)))) + (((c * y0) - (a * y1)) * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * t_1)) + (t_2 * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
	double tmp;
	if (t_3 <= ((double) INFINITY)) {
		tmp = t_3;
	} else {
		tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1)));
	}
	return tmp;
}

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (t * j) - (y * k);
	double t_2 = (t * y2) - (y * y3);
	double t_3 = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) + (((x * j) - (z * k)) * ((i * y1) - (b * y0)))) + (((c * y0) - (a * y1)) * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * t_1)) + (t_2 * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
	double tmp;
	if (t_3 <= Double.POSITIVE_INFINITY) {
		tmp = t_3;
	} else {
		tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1)));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = (t * j) - (y * k)
	t_2 = (t * y2) - (y * y3)
	t_3 = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) + (((x * j) - (z * k)) * ((i * y1) - (b * y0)))) + (((c * y0) - (a * y1)) * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * t_1)) + (t_2 * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)))
	tmp = 0
	if t_3 <= math.inf:
		tmp = t_3
	else:
		tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1)))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(Float64(t * j) - Float64(y * k))
	t_2 = Float64(Float64(t * y2) - Float64(y * y3))
	t_3 = Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(x * y) - Float64(z * t)) * Float64(Float64(a * b) - Float64(c * i))) + Float64(Float64(Float64(x * j) - Float64(z * k)) * Float64(Float64(i * y1) - Float64(b * y0)))) + Float64(Float64(Float64(c * y0) - Float64(a * y1)) * Float64(Float64(x * y2) - Float64(z * y3)))) + Float64(Float64(Float64(b * y4) - Float64(i * y5)) * t_1)) + Float64(t_2 * Float64(Float64(a * y5) - Float64(c * y4)))) + Float64(Float64(Float64(k * y2) - Float64(j * y3)) * Float64(Float64(y1 * y4) - Float64(y0 * y5))))
	tmp = 0.0
	if (t_3 <= Inf)
		tmp = t_3;
	else
		tmp = Float64(y5 * Float64(Float64(a * t_2) + Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * t_1))));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = (t * j) - (y * k);
	t_2 = (t * y2) - (y * y3);
	t_3 = (((((((x * y) - (z * t)) * ((a * b) - (c * i))) + (((x * j) - (z * k)) * ((i * y1) - (b * y0)))) + (((c * y0) - (a * y1)) * ((x * y2) - (z * y3)))) + (((b * y4) - (i * y5)) * t_1)) + (t_2 * ((a * y5) - (c * y4)))) + (((k * y2) - (j * y3)) * ((y1 * y4) - (y0 * y5)));
	tmp = 0.0;
	if (t_3 <= Inf)
		tmp = t_3;
	else
		tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_1)));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(N[(N[(N[(N[(N[(N[(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[(i * y1), $MachinePrecision] - N[(b * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(c * y0), $MachinePrecision] - N[(a * y1), $MachinePrecision]), $MachinePrecision] * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision] * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(t$95$2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(k * y2), $MachinePrecision] - N[(j * y3), $MachinePrecision]), $MachinePrecision] * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$3, Infinity], t$95$3, N[(y5 * N[(N[(a * t$95$2), $MachinePrecision] + N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 3: 36.5% accurate, 1.9× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := y \cdot \left(i \cdot y5 - b \cdot y4\right)\\ t_2 := z \cdot y3 - x \cdot y2\\ t_3 := x \cdot y - z \cdot t\\ t_4 := b \cdot \left(\left(t_3 \cdot a + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ t_5 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\ \mathbf{if}\;z \leq -1.35 \cdot 10^{+166}:\\ \;\;\;\;k \cdot \left(\left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + t_1\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\ \mathbf{elif}\;z \leq -7.8 \cdot 10^{+133}:\\ \;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \mathbf{elif}\;z \leq -5.8 \cdot 10^{-103}:\\ \;\;\;\;a \cdot \left(\left(t_3 \cdot b + y1 \cdot t_2\right) + y5 \cdot \left(t \cdot y2 - y \cdot y3\right)\right)\\ \mathbf{elif}\;z \leq -1.75 \cdot 10^{-284}:\\ \;\;\;\;t_5\\ \mathbf{elif}\;z \leq 3.4 \cdot 10^{-196}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;z \leq 1.3 \cdot 10^{-43}:\\ \;\;\;\;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{elif}\;z \leq 6 \cdot 10^{+22}:\\ \;\;\;\;k \cdot t_1\\ \mathbf{elif}\;z \leq 5 \cdot 10^{+107}:\\ \;\;\;\;t_5\\ \mathbf{elif}\;z \leq 2.15 \cdot 10^{+226}:\\ \;\;\;\;t_4\\ \mathbf{else}:\\ \;\;\;\;y1 \cdot \left(a \cdot t_2\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* y (- (* i y5) (* b y4))))
        (t_2 (- (* z y3) (* x y2)))
        (t_3 (- (* x y) (* z t)))
        (t_4
         (*
          b
          (+
           (+ (* t_3 a) (* y4 (- (* t j) (* y k))))
           (* y0 (- (* z k) (* x j))))))
        (t_5
         (* t (+ (* j (- (* b y4) (* i y5))) (* y2 (- (* a y5) (* c y4)))))))
   (if (<= z -1.35e+166)
     (*
      k
      (+ (+ (* y2 (- (* y1 y4) (* y0 y5))) t_1) (* z (- (* b y0) (* i y1)))))
     (if (<= z -7.8e+133)
       (* b (* x (- (* y a) (* j y0))))
       (if (<= z -5.8e-103)
         (* a (+ (+ (* t_3 b) (* y1 t_2)) (* y5 (- (* t y2) (* y y3)))))
         (if (<= z -1.75e-284)
           t_5
           (if (<= z 3.4e-196)
             t_4
             (if (<= z 1.3e-43)
               (*
                x
                (+
                 (+ (* y (- (* a b) (* c i))) (* y2 (- (* c y0) (* a y1))))
                 (* j (- (* i y1) (* b y0)))))
               (if (<= z 6e+22)
                 (* k t_1)
                 (if (<= z 5e+107)
                   t_5
                   (if (<= z 2.15e+226) t_4 (* y1 (* a t_2)))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = y * ((i * y5) - (b * y4));
	double t_2 = (z * y3) - (x * y2);
	double t_3 = (x * y) - (z * t);
	double t_4 = b * (((t_3 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	double t_5 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	double tmp;
	if (z <= -1.35e+166) {
		tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + t_1) + (z * ((b * y0) - (i * y1))));
	} else if (z <= -7.8e+133) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (z <= -5.8e-103) {
		tmp = a * (((t_3 * b) + (y1 * t_2)) + (y5 * ((t * y2) - (y * y3))));
	} else if (z <= -1.75e-284) {
		tmp = t_5;
	} else if (z <= 3.4e-196) {
		tmp = t_4;
	} else if (z <= 1.3e-43) {
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))));
	} else if (z <= 6e+22) {
		tmp = k * t_1;
	} else if (z <= 5e+107) {
		tmp = t_5;
	} else if (z <= 2.15e+226) {
		tmp = t_4;
	} else {
		tmp = y1 * (a * t_2);
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: t_2
    real(8) :: t_3
    real(8) :: t_4
    real(8) :: t_5
    real(8) :: tmp
    t_1 = y * ((i * y5) - (b * y4))
    t_2 = (z * y3) - (x * y2)
    t_3 = (x * y) - (z * t)
    t_4 = b * (((t_3 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
    t_5 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
    if (z <= (-1.35d+166)) then
        tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + t_1) + (z * ((b * y0) - (i * y1))))
    else if (z <= (-7.8d+133)) then
        tmp = b * (x * ((y * a) - (j * y0)))
    else if (z <= (-5.8d-103)) then
        tmp = a * (((t_3 * b) + (y1 * t_2)) + (y5 * ((t * y2) - (y * y3))))
    else if (z <= (-1.75d-284)) then
        tmp = t_5
    else if (z <= 3.4d-196) then
        tmp = t_4
    else if (z <= 1.3d-43) then
        tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))))
    else if (z <= 6d+22) then
        tmp = k * t_1
    else if (z <= 5d+107) then
        tmp = t_5
    else if (z <= 2.15d+226) then
        tmp = t_4
    else
        tmp = y1 * (a * t_2)
    end if
    code = tmp
end function

Java

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 * ((i * y5) - (b * y4));
	double t_2 = (z * y3) - (x * y2);
	double t_3 = (x * y) - (z * t);
	double t_4 = b * (((t_3 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	double t_5 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	double tmp;
	if (z <= -1.35e+166) {
		tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + t_1) + (z * ((b * y0) - (i * y1))));
	} else if (z <= -7.8e+133) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (z <= -5.8e-103) {
		tmp = a * (((t_3 * b) + (y1 * t_2)) + (y5 * ((t * y2) - (y * y3))));
	} else if (z <= -1.75e-284) {
		tmp = t_5;
	} else if (z <= 3.4e-196) {
		tmp = t_4;
	} else if (z <= 1.3e-43) {
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))));
	} else if (z <= 6e+22) {
		tmp = k * t_1;
	} else if (z <= 5e+107) {
		tmp = t_5;
	} else if (z <= 2.15e+226) {
		tmp = t_4;
	} else {
		tmp = y1 * (a * t_2);
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = y * ((i * y5) - (b * y4))
	t_2 = (z * y3) - (x * y2)
	t_3 = (x * y) - (z * t)
	t_4 = b * (((t_3 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
	t_5 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
	tmp = 0
	if z <= -1.35e+166:
		tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + t_1) + (z * ((b * y0) - (i * y1))))
	elif z <= -7.8e+133:
		tmp = b * (x * ((y * a) - (j * y0)))
	elif z <= -5.8e-103:
		tmp = a * (((t_3 * b) + (y1 * t_2)) + (y5 * ((t * y2) - (y * y3))))
	elif z <= -1.75e-284:
		tmp = t_5
	elif z <= 3.4e-196:
		tmp = t_4
	elif z <= 1.3e-43:
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))))
	elif z <= 6e+22:
		tmp = k * t_1
	elif z <= 5e+107:
		tmp = t_5
	elif z <= 2.15e+226:
		tmp = t_4
	else:
		tmp = y1 * (a * t_2)
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))
	t_2 = Float64(Float64(z * y3) - Float64(x * y2))
	t_3 = Float64(Float64(x * y) - Float64(z * t))
	t_4 = Float64(b * Float64(Float64(Float64(t_3 * a) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))))
	t_5 = Float64(t * Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))))
	tmp = 0.0
	if (z <= -1.35e+166)
		tmp = Float64(k * Float64(Float64(Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + t_1) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))));
	elseif (z <= -7.8e+133)
		tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))));
	elseif (z <= -5.8e-103)
		tmp = Float64(a * Float64(Float64(Float64(t_3 * b) + Float64(y1 * t_2)) + Float64(y5 * Float64(Float64(t * y2) - Float64(y * y3)))));
	elseif (z <= -1.75e-284)
		tmp = t_5;
	elseif (z <= 3.4e-196)
		tmp = t_4;
	elseif (z <= 1.3e-43)
		tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0)))));
	elseif (z <= 6e+22)
		tmp = Float64(k * t_1);
	elseif (z <= 5e+107)
		tmp = t_5;
	elseif (z <= 2.15e+226)
		tmp = t_4;
	else
		tmp = Float64(y1 * Float64(a * t_2));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = y * ((i * y5) - (b * y4));
	t_2 = (z * y3) - (x * y2);
	t_3 = (x * y) - (z * t);
	t_4 = b * (((t_3 * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	t_5 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	tmp = 0.0;
	if (z <= -1.35e+166)
		tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + t_1) + (z * ((b * y0) - (i * y1))));
	elseif (z <= -7.8e+133)
		tmp = b * (x * ((y * a) - (j * y0)));
	elseif (z <= -5.8e-103)
		tmp = a * (((t_3 * b) + (y1 * t_2)) + (y5 * ((t * y2) - (y * y3))));
	elseif (z <= -1.75e-284)
		tmp = t_5;
	elseif (z <= 3.4e-196)
		tmp = t_4;
	elseif (z <= 1.3e-43)
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))));
	elseif (z <= 6e+22)
		tmp = k * t_1;
	elseif (z <= 5e+107)
		tmp = t_5;
	elseif (z <= 2.15e+226)
		tmp = t_4;
	else
		tmp = y1 * (a * t_2);
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(b * N[(N[(N[(t$95$3 * a), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(t * N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -1.35e+166], N[(k * N[(N[(N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision] + N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -7.8e+133], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -5.8e-103], N[(a * N[(N[(N[(t$95$3 * b), $MachinePrecision] + N[(y1 * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(y5 * N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.75e-284], t$95$5, If[LessEqual[z, 3.4e-196], t$95$4, If[LessEqual[z, 1.3e-43], 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[z, 6e+22], N[(k * t$95$1), $MachinePrecision], If[LessEqual[z, 5e+107], t$95$5, If[LessEqual[z, 2.15e+226], t$95$4, N[(y1 * N[(a * t$95$2), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 4: 37.1% accurate, 1.9× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := z \cdot y3 - x \cdot y2\\ t_2 := t \cdot y2 - y \cdot y3\\ t_3 := t \cdot j - y \cdot k\\ t_4 := x \cdot y - z \cdot t\\ t_5 := b \cdot \left(\left(t_4 \cdot a + y4 \cdot t_3\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ t_6 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\ \mathbf{if}\;z \leq -1.5 \cdot 10^{+165}:\\ \;\;\;\;k \cdot \left(\left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right) + y \cdot \left(i \cdot y5 - b \cdot y4\right)\right) + z \cdot \left(b \cdot y0 - i \cdot y1\right)\right)\\ \mathbf{elif}\;z \leq -7 \cdot 10^{+133}:\\ \;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \mathbf{elif}\;z \leq -4.1 \cdot 10^{-103}:\\ \;\;\;\;a \cdot \left(\left(t_4 \cdot b + y1 \cdot t_1\right) + y5 \cdot t_2\right)\\ \mathbf{elif}\;z \leq -4.8 \cdot 10^{-284}:\\ \;\;\;\;t_6\\ \mathbf{elif}\;z \leq 1.6 \cdot 10^{-195}:\\ \;\;\;\;t_5\\ \mathbf{elif}\;z \leq 3.6 \cdot 10^{-44}:\\ \;\;\;\;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{elif}\;z \leq 350000000:\\ \;\;\;\;y5 \cdot \left(a \cdot t_2 + \left(y0 \cdot \left(j \cdot y3 - k \cdot y2\right) - i \cdot t_3\right)\right)\\ \mathbf{elif}\;z \leq 4.6 \cdot 10^{+109}:\\ \;\;\;\;t_6\\ \mathbf{elif}\;z \leq 1.22 \cdot 10^{+224}:\\ \;\;\;\;t_5\\ \mathbf{else}:\\ \;\;\;\;y1 \cdot \left(a \cdot t_1\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (- (* z y3) (* x y2)))
        (t_2 (- (* t y2) (* y y3)))
        (t_3 (- (* t j) (* y k)))
        (t_4 (- (* x y) (* z t)))
        (t_5 (* b (+ (+ (* t_4 a) (* y4 t_3)) (* y0 (- (* z k) (* x j))))))
        (t_6
         (* t (+ (* j (- (* b y4) (* i y5))) (* y2 (- (* a y5) (* c y4)))))))
   (if (<= z -1.5e+165)
     (*
      k
      (+
       (+ (* y2 (- (* y1 y4) (* y0 y5))) (* y (- (* i y5) (* b y4))))
       (* z (- (* b y0) (* i y1)))))
     (if (<= z -7e+133)
       (* b (* x (- (* y a) (* j y0))))
       (if (<= z -4.1e-103)
         (* a (+ (+ (* t_4 b) (* y1 t_1)) (* y5 t_2)))
         (if (<= z -4.8e-284)
           t_6
           (if (<= z 1.6e-195)
             t_5
             (if (<= z 3.6e-44)
               (*
                x
                (+
                 (+ (* y (- (* a b) (* c i))) (* y2 (- (* c y0) (* a y1))))
                 (* j (- (* i y1) (* b y0)))))
               (if (<= z 350000000.0)
                 (*
                  y5
                  (+ (* a t_2) (- (* y0 (- (* j y3) (* k y2))) (* i t_3))))
                 (if (<= z 4.6e+109)
                   t_6
                   (if (<= z 1.22e+224) t_5 (* y1 (* a t_1)))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (z * y3) - (x * y2);
	double t_2 = (t * y2) - (y * y3);
	double t_3 = (t * j) - (y * k);
	double t_4 = (x * y) - (z * t);
	double t_5 = b * (((t_4 * a) + (y4 * t_3)) + (y0 * ((z * k) - (x * j))));
	double t_6 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	double tmp;
	if (z <= -1.5e+165) {
		tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
	} else if (z <= -7e+133) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (z <= -4.1e-103) {
		tmp = a * (((t_4 * b) + (y1 * t_1)) + (y5 * t_2));
	} else if (z <= -4.8e-284) {
		tmp = t_6;
	} else if (z <= 1.6e-195) {
		tmp = t_5;
	} else if (z <= 3.6e-44) {
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))));
	} else if (z <= 350000000.0) {
		tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_3)));
	} else if (z <= 4.6e+109) {
		tmp = t_6;
	} else if (z <= 1.22e+224) {
		tmp = t_5;
	} else {
		tmp = y1 * (a * t_1);
	}
	return tmp;
}

Fortran

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 = (z * y3) - (x * y2)
    t_2 = (t * y2) - (y * y3)
    t_3 = (t * j) - (y * k)
    t_4 = (x * y) - (z * t)
    t_5 = b * (((t_4 * a) + (y4 * t_3)) + (y0 * ((z * k) - (x * j))))
    t_6 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
    if (z <= (-1.5d+165)) then
        tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
    else if (z <= (-7d+133)) then
        tmp = b * (x * ((y * a) - (j * y0)))
    else if (z <= (-4.1d-103)) then
        tmp = a * (((t_4 * b) + (y1 * t_1)) + (y5 * t_2))
    else if (z <= (-4.8d-284)) then
        tmp = t_6
    else if (z <= 1.6d-195) then
        tmp = t_5
    else if (z <= 3.6d-44) then
        tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))))
    else if (z <= 350000000.0d0) then
        tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_3)))
    else if (z <= 4.6d+109) then
        tmp = t_6
    else if (z <= 1.22d+224) then
        tmp = t_5
    else
        tmp = y1 * (a * t_1)
    end if
    code = tmp
end function

Java

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 * y3) - (x * y2);
	double t_2 = (t * y2) - (y * y3);
	double t_3 = (t * j) - (y * k);
	double t_4 = (x * y) - (z * t);
	double t_5 = b * (((t_4 * a) + (y4 * t_3)) + (y0 * ((z * k) - (x * j))));
	double t_6 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	double tmp;
	if (z <= -1.5e+165) {
		tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
	} else if (z <= -7e+133) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (z <= -4.1e-103) {
		tmp = a * (((t_4 * b) + (y1 * t_1)) + (y5 * t_2));
	} else if (z <= -4.8e-284) {
		tmp = t_6;
	} else if (z <= 1.6e-195) {
		tmp = t_5;
	} else if (z <= 3.6e-44) {
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))));
	} else if (z <= 350000000.0) {
		tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_3)));
	} else if (z <= 4.6e+109) {
		tmp = t_6;
	} else if (z <= 1.22e+224) {
		tmp = t_5;
	} else {
		tmp = y1 * (a * t_1);
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = (z * y3) - (x * y2)
	t_2 = (t * y2) - (y * y3)
	t_3 = (t * j) - (y * k)
	t_4 = (x * y) - (z * t)
	t_5 = b * (((t_4 * a) + (y4 * t_3)) + (y0 * ((z * k) - (x * j))))
	t_6 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
	tmp = 0
	if z <= -1.5e+165:
		tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))))
	elif z <= -7e+133:
		tmp = b * (x * ((y * a) - (j * y0)))
	elif z <= -4.1e-103:
		tmp = a * (((t_4 * b) + (y1 * t_1)) + (y5 * t_2))
	elif z <= -4.8e-284:
		tmp = t_6
	elif z <= 1.6e-195:
		tmp = t_5
	elif z <= 3.6e-44:
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))))
	elif z <= 350000000.0:
		tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_3)))
	elif z <= 4.6e+109:
		tmp = t_6
	elif z <= 1.22e+224:
		tmp = t_5
	else:
		tmp = y1 * (a * t_1)
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(Float64(z * y3) - Float64(x * y2))
	t_2 = Float64(Float64(t * y2) - Float64(y * y3))
	t_3 = Float64(Float64(t * j) - Float64(y * k))
	t_4 = Float64(Float64(x * y) - Float64(z * t))
	t_5 = Float64(b * Float64(Float64(Float64(t_4 * a) + Float64(y4 * t_3)) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))))
	t_6 = Float64(t * Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))))
	tmp = 0.0
	if (z <= -1.5e+165)
		tmp = Float64(k * Float64(Float64(Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5))) + Float64(y * Float64(Float64(i * y5) - Float64(b * y4)))) + Float64(z * Float64(Float64(b * y0) - Float64(i * y1)))));
	elseif (z <= -7e+133)
		tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))));
	elseif (z <= -4.1e-103)
		tmp = Float64(a * Float64(Float64(Float64(t_4 * b) + Float64(y1 * t_1)) + Float64(y5 * t_2)));
	elseif (z <= -4.8e-284)
		tmp = t_6;
	elseif (z <= 1.6e-195)
		tmp = t_5;
	elseif (z <= 3.6e-44)
		tmp = Float64(x * Float64(Float64(Float64(y * Float64(Float64(a * b) - Float64(c * i))) + Float64(y2 * Float64(Float64(c * y0) - Float64(a * y1)))) + Float64(j * Float64(Float64(i * y1) - Float64(b * y0)))));
	elseif (z <= 350000000.0)
		tmp = Float64(y5 * Float64(Float64(a * t_2) + Float64(Float64(y0 * Float64(Float64(j * y3) - Float64(k * y2))) - Float64(i * t_3))));
	elseif (z <= 4.6e+109)
		tmp = t_6;
	elseif (z <= 1.22e+224)
		tmp = t_5;
	else
		tmp = Float64(y1 * Float64(a * t_1));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = (z * y3) - (x * y2);
	t_2 = (t * y2) - (y * y3);
	t_3 = (t * j) - (y * k);
	t_4 = (x * y) - (z * t);
	t_5 = b * (((t_4 * a) + (y4 * t_3)) + (y0 * ((z * k) - (x * j))));
	t_6 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	tmp = 0.0;
	if (z <= -1.5e+165)
		tmp = k * (((y2 * ((y1 * y4) - (y0 * y5))) + (y * ((i * y5) - (b * y4)))) + (z * ((b * y0) - (i * y1))));
	elseif (z <= -7e+133)
		tmp = b * (x * ((y * a) - (j * y0)));
	elseif (z <= -4.1e-103)
		tmp = a * (((t_4 * b) + (y1 * t_1)) + (y5 * t_2));
	elseif (z <= -4.8e-284)
		tmp = t_6;
	elseif (z <= 1.6e-195)
		tmp = t_5;
	elseif (z <= 3.6e-44)
		tmp = x * (((y * ((a * b) - (c * i))) + (y2 * ((c * y0) - (a * y1)))) + (j * ((i * y1) - (b * y0))));
	elseif (z <= 350000000.0)
		tmp = y5 * ((a * t_2) + ((y0 * ((j * y3) - (k * y2))) - (i * t_3)));
	elseif (z <= 4.6e+109)
		tmp = t_6;
	elseif (z <= 1.22e+224)
		tmp = t_5;
	else
		tmp = y1 * (a * t_1);
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(z * y3), $MachinePrecision] - N[(x * y2), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(t * y2), $MachinePrecision] - N[(y * y3), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(b * N[(N[(N[(t$95$4 * a), $MachinePrecision] + N[(y4 * t$95$3), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(t * N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -1.5e+165], N[(k * N[(N[(N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(z * N[(N[(b * y0), $MachinePrecision] - N[(i * y1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -7e+133], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -4.1e-103], N[(a * N[(N[(N[(t$95$4 * b), $MachinePrecision] + N[(y1 * t$95$1), $MachinePrecision]), $MachinePrecision] + N[(y5 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -4.8e-284], t$95$6, If[LessEqual[z, 1.6e-195], t$95$5, If[LessEqual[z, 3.6e-44], 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[z, 350000000.0], N[(y5 * N[(N[(a * t$95$2), $MachinePrecision] + N[(N[(y0 * N[(N[(j * y3), $MachinePrecision] - N[(k * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(i * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 4.6e+109], t$95$6, If[LessEqual[z, 1.22e+224], t$95$5, N[(y1 * N[(a * t$95$1), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 5: 36.8% accurate, 2.1× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := z \cdot k - x \cdot j\\ t_2 := b \cdot \left(\left(\left(x \cdot y - z \cdot t\right) \cdot a + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot t_1\right)\\ t_3 := y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\\ t_4 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\ t_5 := x \cdot y2 - z \cdot y3\\ \mathbf{if}\;y3 \leq -2.55 \cdot 10^{+126}:\\ \;\;\;\;c \cdot t_3\\ \mathbf{elif}\;y3 \leq -7.5 \cdot 10^{+43}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y3 \leq -7.2 \cdot 10^{-113}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y3 \leq -1.6 \cdot 10^{-177}:\\ \;\;\;\;c \cdot \left(\left(y0 \cdot t_5 + i \cdot \left(z \cdot t - x \cdot y\right)\right) + t_3\right)\\ \mathbf{elif}\;y3 \leq 2.2 \cdot 10^{-249}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y3 \leq 4.1 \cdot 10^{+77}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y3 \leq 7.5 \cdot 10^{+247}:\\ \;\;\;\;y0 \cdot \left(\left(c \cdot t_5 + y5 \cdot \left(j \cdot y3 - k \cdot y2\right)\right) + b \cdot t_1\right)\\ \mathbf{else}:\\ \;\;\;\;\left(c \cdot y3 - b \cdot k\right) \cdot \left(y \cdot y4\right)\\ \end{array} \end{array} \]

FPCore

(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
         (*
          b
          (+
           (+ (* (- (* x y) (* z t)) a) (* y4 (- (* t j) (* y k))))
           (* y0 t_1))))
        (t_3 (* y4 (- (* y y3) (* t y2))))
        (t_4
         (* t (+ (* j (- (* b y4) (* i y5))) (* y2 (- (* a y5) (* c y4))))))
        (t_5 (- (* x y2) (* z y3))))
   (if (<= y3 -2.55e+126)
     (* c t_3)
     (if (<= y3 -7.5e+43)
       t_2
       (if (<= y3 -7.2e-113)
         t_4
         (if (<= y3 -1.6e-177)
           (* c (+ (+ (* y0 t_5) (* i (- (* z t) (* x y)))) t_3))
           (if (<= y3 2.2e-249)
             t_4
             (if (<= y3 4.1e+77)
               t_2
               (if (<= y3 7.5e+247)
                 (*
                  y0
                  (+ (+ (* c t_5) (* y5 (- (* j y3) (* k y2)))) (* b t_1)))
                 (* (- (* c y3) (* b k)) (* y y4)))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (z * k) - (x * j);
	double t_2 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1));
	double t_3 = y4 * ((y * y3) - (t * y2));
	double t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	double t_5 = (x * y2) - (z * y3);
	double tmp;
	if (y3 <= -2.55e+126) {
		tmp = c * t_3;
	} else if (y3 <= -7.5e+43) {
		tmp = t_2;
	} else if (y3 <= -7.2e-113) {
		tmp = t_4;
	} else if (y3 <= -1.6e-177) {
		tmp = c * (((y0 * t_5) + (i * ((z * t) - (x * y)))) + t_3);
	} else if (y3 <= 2.2e-249) {
		tmp = t_4;
	} else if (y3 <= 4.1e+77) {
		tmp = t_2;
	} else if (y3 <= 7.5e+247) {
		tmp = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1));
	} else {
		tmp = ((c * y3) - (b * k)) * (y * y4);
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: t_2
    real(8) :: t_3
    real(8) :: t_4
    real(8) :: t_5
    real(8) :: tmp
    t_1 = (z * k) - (x * j)
    t_2 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1))
    t_3 = y4 * ((y * y3) - (t * y2))
    t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
    t_5 = (x * y2) - (z * y3)
    if (y3 <= (-2.55d+126)) then
        tmp = c * t_3
    else if (y3 <= (-7.5d+43)) then
        tmp = t_2
    else if (y3 <= (-7.2d-113)) then
        tmp = t_4
    else if (y3 <= (-1.6d-177)) then
        tmp = c * (((y0 * t_5) + (i * ((z * t) - (x * y)))) + t_3)
    else if (y3 <= 2.2d-249) then
        tmp = t_4
    else if (y3 <= 4.1d+77) then
        tmp = t_2
    else if (y3 <= 7.5d+247) then
        tmp = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1))
    else
        tmp = ((c * y3) - (b * k)) * (y * y4)
    end if
    code = tmp
end function

Java

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 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1));
	double t_3 = y4 * ((y * y3) - (t * y2));
	double t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	double t_5 = (x * y2) - (z * y3);
	double tmp;
	if (y3 <= -2.55e+126) {
		tmp = c * t_3;
	} else if (y3 <= -7.5e+43) {
		tmp = t_2;
	} else if (y3 <= -7.2e-113) {
		tmp = t_4;
	} else if (y3 <= -1.6e-177) {
		tmp = c * (((y0 * t_5) + (i * ((z * t) - (x * y)))) + t_3);
	} else if (y3 <= 2.2e-249) {
		tmp = t_4;
	} else if (y3 <= 4.1e+77) {
		tmp = t_2;
	} else if (y3 <= 7.5e+247) {
		tmp = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1));
	} else {
		tmp = ((c * y3) - (b * k)) * (y * y4);
	}
	return tmp;
}

Python

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 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1))
	t_3 = y4 * ((y * y3) - (t * y2))
	t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
	t_5 = (x * y2) - (z * y3)
	tmp = 0
	if y3 <= -2.55e+126:
		tmp = c * t_3
	elif y3 <= -7.5e+43:
		tmp = t_2
	elif y3 <= -7.2e-113:
		tmp = t_4
	elif y3 <= -1.6e-177:
		tmp = c * (((y0 * t_5) + (i * ((z * t) - (x * y)))) + t_3)
	elif y3 <= 2.2e-249:
		tmp = t_4
	elif y3 <= 4.1e+77:
		tmp = t_2
	elif y3 <= 7.5e+247:
		tmp = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1))
	else:
		tmp = ((c * y3) - (b * k)) * (y * y4)
	return tmp

Julia

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(b * Float64(Float64(Float64(Float64(Float64(x * y) - Float64(z * t)) * a) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * t_1)))
	t_3 = Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))
	t_4 = Float64(t * Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))))
	t_5 = Float64(Float64(x * y2) - Float64(z * y3))
	tmp = 0.0
	if (y3 <= -2.55e+126)
		tmp = Float64(c * t_3);
	elseif (y3 <= -7.5e+43)
		tmp = t_2;
	elseif (y3 <= -7.2e-113)
		tmp = t_4;
	elseif (y3 <= -1.6e-177)
		tmp = Float64(c * Float64(Float64(Float64(y0 * t_5) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + t_3));
	elseif (y3 <= 2.2e-249)
		tmp = t_4;
	elseif (y3 <= 4.1e+77)
		tmp = t_2;
	elseif (y3 <= 7.5e+247)
		tmp = Float64(y0 * Float64(Float64(Float64(c * t_5) + Float64(y5 * Float64(Float64(j * y3) - Float64(k * y2)))) + Float64(b * t_1)));
	else
		tmp = Float64(Float64(Float64(c * y3) - Float64(b * k)) * Float64(y * y4));
	end
	return tmp
end

MATLAB

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 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * t_1));
	t_3 = y4 * ((y * y3) - (t * y2));
	t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	t_5 = (x * y2) - (z * y3);
	tmp = 0.0;
	if (y3 <= -2.55e+126)
		tmp = c * t_3;
	elseif (y3 <= -7.5e+43)
		tmp = t_2;
	elseif (y3 <= -7.2e-113)
		tmp = t_4;
	elseif (y3 <= -1.6e-177)
		tmp = c * (((y0 * t_5) + (i * ((z * t) - (x * y)))) + t_3);
	elseif (y3 <= 2.2e-249)
		tmp = t_4;
	elseif (y3 <= 4.1e+77)
		tmp = t_2;
	elseif (y3 <= 7.5e+247)
		tmp = y0 * (((c * t_5) + (y5 * ((j * y3) - (k * y2)))) + (b * t_1));
	else
		tmp = ((c * y3) - (b * k)) * (y * y4);
	end
	tmp_2 = tmp;
end

Wolfram

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[(b * N[(N[(N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * a), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(t * N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -2.55e+126], N[(c * t$95$3), $MachinePrecision], If[LessEqual[y3, -7.5e+43], t$95$2, If[LessEqual[y3, -7.2e-113], t$95$4, If[LessEqual[y3, -1.6e-177], N[(c * N[(N[(N[(y0 * t$95$5), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 2.2e-249], t$95$4, If[LessEqual[y3, 4.1e+77], t$95$2, If[LessEqual[y3, 7.5e+247], 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$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision] * N[(y * y4), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 6: 36.8% accurate, 2.2× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := b \cdot \left(\left(\left(x \cdot y - z \cdot t\right) \cdot a + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ t_2 := y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\\ t_3 := c \cdot t_2\\ t_4 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\ \mathbf{if}\;y3 \leq -4.3 \cdot 10^{+133}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y3 \leq -8.4 \cdot 10^{+43}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y3 \leq -6.8 \cdot 10^{-113}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y3 \leq -2.5 \cdot 10^{-176}:\\ \;\;\;\;c \cdot \left(\left(y0 \cdot \left(x \cdot y2 - z \cdot y3\right) + i \cdot \left(z \cdot t - x \cdot y\right)\right) + t_2\right)\\ \mathbf{elif}\;y3 \leq 1.3 \cdot 10^{-246}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y3 \leq 7.4 \cdot 10^{+121}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y3 \leq 6.5 \cdot 10^{+228}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y3 \leq 4.8 \cdot 10^{+249}:\\ \;\;\;\;t \cdot \left(y5 \cdot \left(a \cdot y2 - i \cdot j\right)\right)\\ \mathbf{else}:\\ \;\;\;\;\left(c \cdot y3 - b \cdot k\right) \cdot \left(y \cdot y4\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1
         (*
          b
          (+
           (+ (* (- (* x y) (* z t)) a) (* y4 (- (* t j) (* y k))))
           (* y0 (- (* z k) (* x j))))))
        (t_2 (* y4 (- (* y y3) (* t y2))))
        (t_3 (* c t_2))
        (t_4
         (* t (+ (* j (- (* b y4) (* i y5))) (* y2 (- (* a y5) (* c y4)))))))
   (if (<= y3 -4.3e+133)
     t_3
     (if (<= y3 -8.4e+43)
       t_1
       (if (<= y3 -6.8e-113)
         t_4
         (if (<= y3 -2.5e-176)
           (*
            c
            (+ (+ (* y0 (- (* x y2) (* z y3))) (* i (- (* z t) (* x y)))) t_2))
           (if (<= y3 1.3e-246)
             t_4
             (if (<= y3 7.4e+121)
               t_1
               (if (<= y3 6.5e+228)
                 t_3
                 (if (<= y3 4.8e+249)
                   (* t (* y5 (- (* a y2) (* i j))))
                   (* (- (* c y3) (* b k)) (* y y4))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	double t_2 = y4 * ((y * y3) - (t * y2));
	double t_3 = c * t_2;
	double t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	double tmp;
	if (y3 <= -4.3e+133) {
		tmp = t_3;
	} else if (y3 <= -8.4e+43) {
		tmp = t_1;
	} else if (y3 <= -6.8e-113) {
		tmp = t_4;
	} else if (y3 <= -2.5e-176) {
		tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + t_2);
	} else if (y3 <= 1.3e-246) {
		tmp = t_4;
	} else if (y3 <= 7.4e+121) {
		tmp = t_1;
	} else if (y3 <= 6.5e+228) {
		tmp = t_3;
	} else if (y3 <= 4.8e+249) {
		tmp = t * (y5 * ((a * y2) - (i * j)));
	} else {
		tmp = ((c * y3) - (b * k)) * (y * y4);
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: t_2
    real(8) :: t_3
    real(8) :: t_4
    real(8) :: tmp
    t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
    t_2 = y4 * ((y * y3) - (t * y2))
    t_3 = c * t_2
    t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
    if (y3 <= (-4.3d+133)) then
        tmp = t_3
    else if (y3 <= (-8.4d+43)) then
        tmp = t_1
    else if (y3 <= (-6.8d-113)) then
        tmp = t_4
    else if (y3 <= (-2.5d-176)) then
        tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + t_2)
    else if (y3 <= 1.3d-246) then
        tmp = t_4
    else if (y3 <= 7.4d+121) then
        tmp = t_1
    else if (y3 <= 6.5d+228) then
        tmp = t_3
    else if (y3 <= 4.8d+249) then
        tmp = t * (y5 * ((a * y2) - (i * j)))
    else
        tmp = ((c * y3) - (b * k)) * (y * y4)
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	double t_2 = y4 * ((y * y3) - (t * y2));
	double t_3 = c * t_2;
	double t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	double tmp;
	if (y3 <= -4.3e+133) {
		tmp = t_3;
	} else if (y3 <= -8.4e+43) {
		tmp = t_1;
	} else if (y3 <= -6.8e-113) {
		tmp = t_4;
	} else if (y3 <= -2.5e-176) {
		tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + t_2);
	} else if (y3 <= 1.3e-246) {
		tmp = t_4;
	} else if (y3 <= 7.4e+121) {
		tmp = t_1;
	} else if (y3 <= 6.5e+228) {
		tmp = t_3;
	} else if (y3 <= 4.8e+249) {
		tmp = t * (y5 * ((a * y2) - (i * j)));
	} else {
		tmp = ((c * y3) - (b * k)) * (y * y4);
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
	t_2 = y4 * ((y * y3) - (t * y2))
	t_3 = c * t_2
	t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
	tmp = 0
	if y3 <= -4.3e+133:
		tmp = t_3
	elif y3 <= -8.4e+43:
		tmp = t_1
	elif y3 <= -6.8e-113:
		tmp = t_4
	elif y3 <= -2.5e-176:
		tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + t_2)
	elif y3 <= 1.3e-246:
		tmp = t_4
	elif y3 <= 7.4e+121:
		tmp = t_1
	elif y3 <= 6.5e+228:
		tmp = t_3
	elif y3 <= 4.8e+249:
		tmp = t * (y5 * ((a * y2) - (i * j)))
	else:
		tmp = ((c * y3) - (b * k)) * (y * y4)
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(b * Float64(Float64(Float64(Float64(Float64(x * y) - Float64(z * t)) * a) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))))
	t_2 = Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2)))
	t_3 = Float64(c * t_2)
	t_4 = Float64(t * Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))))
	tmp = 0.0
	if (y3 <= -4.3e+133)
		tmp = t_3;
	elseif (y3 <= -8.4e+43)
		tmp = t_1;
	elseif (y3 <= -6.8e-113)
		tmp = t_4;
	elseif (y3 <= -2.5e-176)
		tmp = Float64(c * Float64(Float64(Float64(y0 * Float64(Float64(x * y2) - Float64(z * y3))) + Float64(i * Float64(Float64(z * t) - Float64(x * y)))) + t_2));
	elseif (y3 <= 1.3e-246)
		tmp = t_4;
	elseif (y3 <= 7.4e+121)
		tmp = t_1;
	elseif (y3 <= 6.5e+228)
		tmp = t_3;
	elseif (y3 <= 4.8e+249)
		tmp = Float64(t * Float64(y5 * Float64(Float64(a * y2) - Float64(i * j))));
	else
		tmp = Float64(Float64(Float64(c * y3) - Float64(b * k)) * Float64(y * y4));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	t_2 = y4 * ((y * y3) - (t * y2));
	t_3 = c * t_2;
	t_4 = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	tmp = 0.0;
	if (y3 <= -4.3e+133)
		tmp = t_3;
	elseif (y3 <= -8.4e+43)
		tmp = t_1;
	elseif (y3 <= -6.8e-113)
		tmp = t_4;
	elseif (y3 <= -2.5e-176)
		tmp = c * (((y0 * ((x * y2) - (z * y3))) + (i * ((z * t) - (x * y)))) + t_2);
	elseif (y3 <= 1.3e-246)
		tmp = t_4;
	elseif (y3 <= 7.4e+121)
		tmp = t_1;
	elseif (y3 <= 6.5e+228)
		tmp = t_3;
	elseif (y3 <= 4.8e+249)
		tmp = t * (y5 * ((a * y2) - (i * j)));
	else
		tmp = ((c * y3) - (b * k)) * (y * y4);
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(N[(N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * a), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(c * t$95$2), $MachinePrecision]}, Block[{t$95$4 = N[(t * N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -4.3e+133], t$95$3, If[LessEqual[y3, -8.4e+43], t$95$1, If[LessEqual[y3, -6.8e-113], t$95$4, If[LessEqual[y3, -2.5e-176], N[(c * N[(N[(N[(y0 * N[(N[(x * y2), $MachinePrecision] - N[(z * y3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(i * N[(N[(z * t), $MachinePrecision] - N[(x * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 1.3e-246], t$95$4, If[LessEqual[y3, 7.4e+121], t$95$1, If[LessEqual[y3, 6.5e+228], t$95$3, If[LessEqual[y3, 4.8e+249], N[(t * N[(y5 * N[(N[(a * y2), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision] * N[(y * y4), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 7: 36.7% accurate, 2.4× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := b \cdot \left(\left(\left(x \cdot y - z \cdot t\right) \cdot a + y4 \cdot \left(t \cdot j - y \cdot k\right)\right) + y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ t_2 := c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\ \mathbf{if}\;y3 \leq -9.8 \cdot 10^{+131}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y3 \leq -2.6 \cdot 10^{+43}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y3 \leq 1.05 \cdot 10^{-255}:\\ \;\;\;\;t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\ \mathbf{elif}\;y3 \leq 8.5 \cdot 10^{+121}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y3 \leq 2.7 \cdot 10^{+227}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y3 \leq 2.3 \cdot 10^{+250}:\\ \;\;\;\;t \cdot \left(y5 \cdot \left(a \cdot y2 - i \cdot j\right)\right)\\ \mathbf{else}:\\ \;\;\;\;\left(c \cdot y3 - b \cdot k\right) \cdot \left(y \cdot y4\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1
         (*
          b
          (+
           (+ (* (- (* x y) (* z t)) a) (* y4 (- (* t j) (* y k))))
           (* y0 (- (* z k) (* x j))))))
        (t_2 (* c (* y4 (- (* y y3) (* t y2))))))
   (if (<= y3 -9.8e+131)
     t_2
     (if (<= y3 -2.6e+43)
       t_1
       (if (<= y3 1.05e-255)
         (* t (+ (* j (- (* b y4) (* i y5))) (* y2 (- (* a y5) (* c y4)))))
         (if (<= y3 8.5e+121)
           t_1
           (if (<= y3 2.7e+227)
             t_2
             (if (<= y3 2.3e+250)
               (* t (* y5 (- (* a y2) (* i j))))
               (* (- (* c y3) (* b k)) (* y y4))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	double t_2 = c * (y4 * ((y * y3) - (t * y2)));
	double tmp;
	if (y3 <= -9.8e+131) {
		tmp = t_2;
	} else if (y3 <= -2.6e+43) {
		tmp = t_1;
	} else if (y3 <= 1.05e-255) {
		tmp = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	} else if (y3 <= 8.5e+121) {
		tmp = t_1;
	} else if (y3 <= 2.7e+227) {
		tmp = t_2;
	} else if (y3 <= 2.3e+250) {
		tmp = t * (y5 * ((a * y2) - (i * j)));
	} else {
		tmp = ((c * y3) - (b * k)) * (y * y4);
	}
	return tmp;
}

Fortran

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 * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
    t_2 = c * (y4 * ((y * y3) - (t * y2)))
    if (y3 <= (-9.8d+131)) then
        tmp = t_2
    else if (y3 <= (-2.6d+43)) then
        tmp = t_1
    else if (y3 <= 1.05d-255) then
        tmp = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
    else if (y3 <= 8.5d+121) then
        tmp = t_1
    else if (y3 <= 2.7d+227) then
        tmp = t_2
    else if (y3 <= 2.3d+250) then
        tmp = t * (y5 * ((a * y2) - (i * j)))
    else
        tmp = ((c * y3) - (b * k)) * (y * y4)
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	double t_2 = c * (y4 * ((y * y3) - (t * y2)));
	double tmp;
	if (y3 <= -9.8e+131) {
		tmp = t_2;
	} else if (y3 <= -2.6e+43) {
		tmp = t_1;
	} else if (y3 <= 1.05e-255) {
		tmp = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	} else if (y3 <= 8.5e+121) {
		tmp = t_1;
	} else if (y3 <= 2.7e+227) {
		tmp = t_2;
	} else if (y3 <= 2.3e+250) {
		tmp = t * (y5 * ((a * y2) - (i * j)));
	} else {
		tmp = ((c * y3) - (b * k)) * (y * y4);
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))))
	t_2 = c * (y4 * ((y * y3) - (t * y2)))
	tmp = 0
	if y3 <= -9.8e+131:
		tmp = t_2
	elif y3 <= -2.6e+43:
		tmp = t_1
	elif y3 <= 1.05e-255:
		tmp = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))))
	elif y3 <= 8.5e+121:
		tmp = t_1
	elif y3 <= 2.7e+227:
		tmp = t_2
	elif y3 <= 2.3e+250:
		tmp = t * (y5 * ((a * y2) - (i * j)))
	else:
		tmp = ((c * y3) - (b * k)) * (y * y4)
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(b * Float64(Float64(Float64(Float64(Float64(x * y) - Float64(z * t)) * a) + Float64(y4 * Float64(Float64(t * j) - Float64(y * k)))) + Float64(y0 * Float64(Float64(z * k) - Float64(x * j)))))
	t_2 = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))))
	tmp = 0.0
	if (y3 <= -9.8e+131)
		tmp = t_2;
	elseif (y3 <= -2.6e+43)
		tmp = t_1;
	elseif (y3 <= 1.05e-255)
		tmp = Float64(t * Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))));
	elseif (y3 <= 8.5e+121)
		tmp = t_1;
	elseif (y3 <= 2.7e+227)
		tmp = t_2;
	elseif (y3 <= 2.3e+250)
		tmp = Float64(t * Float64(y5 * Float64(Float64(a * y2) - Float64(i * j))));
	else
		tmp = Float64(Float64(Float64(c * y3) - Float64(b * k)) * Float64(y * y4));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = b * (((((x * y) - (z * t)) * a) + (y4 * ((t * j) - (y * k)))) + (y0 * ((z * k) - (x * j))));
	t_2 = c * (y4 * ((y * y3) - (t * y2)));
	tmp = 0.0;
	if (y3 <= -9.8e+131)
		tmp = t_2;
	elseif (y3 <= -2.6e+43)
		tmp = t_1;
	elseif (y3 <= 1.05e-255)
		tmp = t * ((j * ((b * y4) - (i * y5))) + (y2 * ((a * y5) - (c * y4))));
	elseif (y3 <= 8.5e+121)
		tmp = t_1;
	elseif (y3 <= 2.7e+227)
		tmp = t_2;
	elseif (y3 <= 2.3e+250)
		tmp = t * (y5 * ((a * y2) - (i * j)));
	else
		tmp = ((c * y3) - (b * k)) * (y * y4);
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(N[(N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * a), $MachinePrecision] + N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y3, -9.8e+131], t$95$2, If[LessEqual[y3, -2.6e+43], t$95$1, If[LessEqual[y3, 1.05e-255], N[(t * N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y3, 8.5e+121], t$95$1, If[LessEqual[y3, 2.7e+227], t$95$2, If[LessEqual[y3, 2.3e+250], N[(t * N[(y5 * N[(N[(a * y2), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c * y3), $MachinePrecision] - N[(b * k), $MachinePrecision]), $MachinePrecision] * N[(y * y4), $MachinePrecision]), $MachinePrecision]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 8: 30.9% accurate, 2.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ t_2 := k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ t_3 := t \cdot \left(y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\right)\\ t_4 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\ \mathbf{if}\;y \leq -6 \cdot 10^{+202}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y \leq -4.2 \cdot 10^{+99}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y \leq -1.85 \cdot 10^{+28}:\\ \;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2 - y \cdot b\right)\right)\\ \mathbf{elif}\;y \leq -4.5 \cdot 10^{-30}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y \leq -3.95 \cdot 10^{-144}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;y \leq -2.7 \cdot 10^{-180}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y \leq 3.5 \cdot 10^{-287}:\\ \;\;\;\;c \cdot \left(t \cdot \left(z \cdot i - y2 \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq 9.2 \cdot 10^{-191}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y \leq 1.8 \cdot 10^{-139}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y \leq 1.7 \cdot 10^{+78}:\\ \;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{elif}\;y \leq 3.1 \cdot 10^{+162}:\\ \;\;\;\;t_2\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* b (* x (- (* y a) (* j y0)))))
        (t_2 (* k (* y (- (* i y5) (* b y4)))))
        (t_3 (* t (* y2 (- (* a y5) (* c y4)))))
        (t_4 (* t (* j (- (* b y4) (* i y5))))))
   (if (<= y -6e+202)
     t_2
     (if (<= y -4.2e+99)
       t_1
       (if (<= y -1.85e+28)
         (* k (* y4 (- (* y1 y2) (* y b))))
         (if (<= y -4.5e-30)
           t_3
           (if (<= y -3.95e-144)
             (* a (* (- (* x y) (* z t)) b))
             (if (<= y -2.7e-180)
               t_4
               (if (<= y 3.5e-287)
                 (* c (* t (- (* z i) (* y2 y4))))
                 (if (<= y 9.2e-191)
                   t_4
                   (if (<= y 1.8e-139)
                     t_3
                     (if (<= y 1.7e+78)
                       (* b (* y0 (- (* z k) (* x j))))
                       (if (<= y 3.1e+162) t_2 t_1)))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (x * ((y * a) - (j * y0)));
	double t_2 = k * (y * ((i * y5) - (b * y4)));
	double t_3 = t * (y2 * ((a * y5) - (c * y4)));
	double t_4 = t * (j * ((b * y4) - (i * y5)));
	double tmp;
	if (y <= -6e+202) {
		tmp = t_2;
	} else if (y <= -4.2e+99) {
		tmp = t_1;
	} else if (y <= -1.85e+28) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -4.5e-30) {
		tmp = t_3;
	} else if (y <= -3.95e-144) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.7e-180) {
		tmp = t_4;
	} else if (y <= 3.5e-287) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 9.2e-191) {
		tmp = t_4;
	} else if (y <= 1.8e-139) {
		tmp = t_3;
	} else if (y <= 1.7e+78) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 3.1e+162) {
		tmp = t_2;
	} else {
		tmp = t_1;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: t_2
    real(8) :: t_3
    real(8) :: t_4
    real(8) :: tmp
    t_1 = b * (x * ((y * a) - (j * y0)))
    t_2 = k * (y * ((i * y5) - (b * y4)))
    t_3 = t * (y2 * ((a * y5) - (c * y4)))
    t_4 = t * (j * ((b * y4) - (i * y5)))
    if (y <= (-6d+202)) then
        tmp = t_2
    else if (y <= (-4.2d+99)) then
        tmp = t_1
    else if (y <= (-1.85d+28)) then
        tmp = k * (y4 * ((y1 * y2) - (y * b)))
    else if (y <= (-4.5d-30)) then
        tmp = t_3
    else if (y <= (-3.95d-144)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (y <= (-2.7d-180)) then
        tmp = t_4
    else if (y <= 3.5d-287) then
        tmp = c * (t * ((z * i) - (y2 * y4)))
    else if (y <= 9.2d-191) then
        tmp = t_4
    else if (y <= 1.8d-139) then
        tmp = t_3
    else if (y <= 1.7d+78) then
        tmp = b * (y0 * ((z * k) - (x * j)))
    else if (y <= 3.1d+162) then
        tmp = t_2
    else
        tmp = t_1
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (x * ((y * a) - (j * y0)));
	double t_2 = k * (y * ((i * y5) - (b * y4)));
	double t_3 = t * (y2 * ((a * y5) - (c * y4)));
	double t_4 = t * (j * ((b * y4) - (i * y5)));
	double tmp;
	if (y <= -6e+202) {
		tmp = t_2;
	} else if (y <= -4.2e+99) {
		tmp = t_1;
	} else if (y <= -1.85e+28) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -4.5e-30) {
		tmp = t_3;
	} else if (y <= -3.95e-144) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.7e-180) {
		tmp = t_4;
	} else if (y <= 3.5e-287) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 9.2e-191) {
		tmp = t_4;
	} else if (y <= 1.8e-139) {
		tmp = t_3;
	} else if (y <= 1.7e+78) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 3.1e+162) {
		tmp = t_2;
	} else {
		tmp = t_1;
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = b * (x * ((y * a) - (j * y0)))
	t_2 = k * (y * ((i * y5) - (b * y4)))
	t_3 = t * (y2 * ((a * y5) - (c * y4)))
	t_4 = t * (j * ((b * y4) - (i * y5)))
	tmp = 0
	if y <= -6e+202:
		tmp = t_2
	elif y <= -4.2e+99:
		tmp = t_1
	elif y <= -1.85e+28:
		tmp = k * (y4 * ((y1 * y2) - (y * b)))
	elif y <= -4.5e-30:
		tmp = t_3
	elif y <= -3.95e-144:
		tmp = a * (((x * y) - (z * t)) * b)
	elif y <= -2.7e-180:
		tmp = t_4
	elif y <= 3.5e-287:
		tmp = c * (t * ((z * i) - (y2 * y4)))
	elif y <= 9.2e-191:
		tmp = t_4
	elif y <= 1.8e-139:
		tmp = t_3
	elif y <= 1.7e+78:
		tmp = b * (y0 * ((z * k) - (x * j)))
	elif y <= 3.1e+162:
		tmp = t_2
	else:
		tmp = t_1
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))))
	t_2 = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))))
	t_3 = Float64(t * Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4))))
	t_4 = Float64(t * Float64(j * Float64(Float64(b * y4) - Float64(i * y5))))
	tmp = 0.0
	if (y <= -6e+202)
		tmp = t_2;
	elseif (y <= -4.2e+99)
		tmp = t_1;
	elseif (y <= -1.85e+28)
		tmp = Float64(k * Float64(y4 * Float64(Float64(y1 * y2) - Float64(y * b))));
	elseif (y <= -4.5e-30)
		tmp = t_3;
	elseif (y <= -3.95e-144)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (y <= -2.7e-180)
		tmp = t_4;
	elseif (y <= 3.5e-287)
		tmp = Float64(c * Float64(t * Float64(Float64(z * i) - Float64(y2 * y4))));
	elseif (y <= 9.2e-191)
		tmp = t_4;
	elseif (y <= 1.8e-139)
		tmp = t_3;
	elseif (y <= 1.7e+78)
		tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))));
	elseif (y <= 3.1e+162)
		tmp = t_2;
	else
		tmp = t_1;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = b * (x * ((y * a) - (j * y0)));
	t_2 = k * (y * ((i * y5) - (b * y4)));
	t_3 = t * (y2 * ((a * y5) - (c * y4)));
	t_4 = t * (j * ((b * y4) - (i * y5)));
	tmp = 0.0;
	if (y <= -6e+202)
		tmp = t_2;
	elseif (y <= -4.2e+99)
		tmp = t_1;
	elseif (y <= -1.85e+28)
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	elseif (y <= -4.5e-30)
		tmp = t_3;
	elseif (y <= -3.95e-144)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (y <= -2.7e-180)
		tmp = t_4;
	elseif (y <= 3.5e-287)
		tmp = c * (t * ((z * i) - (y2 * y4)));
	elseif (y <= 9.2e-191)
		tmp = t_4;
	elseif (y <= 1.8e-139)
		tmp = t_3;
	elseif (y <= 1.7e+78)
		tmp = b * (y0 * ((z * k) - (x * j)));
	elseif (y <= 3.1e+162)
		tmp = t_2;
	else
		tmp = t_1;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t * N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(t * N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -6e+202], t$95$2, If[LessEqual[y, -4.2e+99], t$95$1, If[LessEqual[y, -1.85e+28], N[(k * N[(y4 * N[(N[(y1 * y2), $MachinePrecision] - N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -4.5e-30], t$95$3, If[LessEqual[y, -3.95e-144], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.7e-180], t$95$4, If[LessEqual[y, 3.5e-287], N[(c * N[(t * N[(N[(z * i), $MachinePrecision] - N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 9.2e-191], t$95$4, If[LessEqual[y, 1.8e-139], t$95$3, If[LessEqual[y, 1.7e+78], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.1e+162], t$95$2, t$95$1]]]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 9: 30.8% accurate, 2.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ t_2 := k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ t_3 := a \cdot y5 - c \cdot y4\\ t_4 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\ \mathbf{if}\;y \leq -1.45 \cdot 10^{+202}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y \leq -4.4 \cdot 10^{+99}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y \leq -1.85 \cdot 10^{+28}:\\ \;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2 - y \cdot b\right)\right)\\ \mathbf{elif}\;y \leq -9.2 \cdot 10^{-31}:\\ \;\;\;\;t \cdot \left(y2 \cdot t_3\right)\\ \mathbf{elif}\;y \leq -1.55 \cdot 10^{-143}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;y \leq -2.6 \cdot 10^{-180}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y \leq 1.8 \cdot 10^{-289}:\\ \;\;\;\;c \cdot \left(t \cdot \left(z \cdot i - y2 \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq 6.5 \cdot 10^{-191}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y \leq 3.25 \cdot 10^{-142}:\\ \;\;\;\;\left(t \cdot y2\right) \cdot t_3\\ \mathbf{elif}\;y \leq 2.25 \cdot 10^{+80}:\\ \;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{elif}\;y \leq 7.6 \cdot 10^{+162}:\\ \;\;\;\;t_2\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* b (* x (- (* y a) (* j y0)))))
        (t_2 (* k (* y (- (* i y5) (* b y4)))))
        (t_3 (- (* a y5) (* c y4)))
        (t_4 (* t (* j (- (* b y4) (* i y5))))))
   (if (<= y -1.45e+202)
     t_2
     (if (<= y -4.4e+99)
       t_1
       (if (<= y -1.85e+28)
         (* k (* y4 (- (* y1 y2) (* y b))))
         (if (<= y -9.2e-31)
           (* t (* y2 t_3))
           (if (<= y -1.55e-143)
             (* a (* (- (* x y) (* z t)) b))
             (if (<= y -2.6e-180)
               t_4
               (if (<= y 1.8e-289)
                 (* c (* t (- (* z i) (* y2 y4))))
                 (if (<= y 6.5e-191)
                   t_4
                   (if (<= y 3.25e-142)
                     (* (* t y2) t_3)
                     (if (<= y 2.25e+80)
                       (* b (* y0 (- (* z k) (* x j))))
                       (if (<= y 7.6e+162) t_2 t_1)))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (x * ((y * a) - (j * y0)));
	double t_2 = k * (y * ((i * y5) - (b * y4)));
	double t_3 = (a * y5) - (c * y4);
	double t_4 = t * (j * ((b * y4) - (i * y5)));
	double tmp;
	if (y <= -1.45e+202) {
		tmp = t_2;
	} else if (y <= -4.4e+99) {
		tmp = t_1;
	} else if (y <= -1.85e+28) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -9.2e-31) {
		tmp = t * (y2 * t_3);
	} else if (y <= -1.55e-143) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.6e-180) {
		tmp = t_4;
	} else if (y <= 1.8e-289) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 6.5e-191) {
		tmp = t_4;
	} else if (y <= 3.25e-142) {
		tmp = (t * y2) * t_3;
	} else if (y <= 2.25e+80) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 7.6e+162) {
		tmp = t_2;
	} else {
		tmp = t_1;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: t_2
    real(8) :: t_3
    real(8) :: t_4
    real(8) :: tmp
    t_1 = b * (x * ((y * a) - (j * y0)))
    t_2 = k * (y * ((i * y5) - (b * y4)))
    t_3 = (a * y5) - (c * y4)
    t_4 = t * (j * ((b * y4) - (i * y5)))
    if (y <= (-1.45d+202)) then
        tmp = t_2
    else if (y <= (-4.4d+99)) then
        tmp = t_1
    else if (y <= (-1.85d+28)) then
        tmp = k * (y4 * ((y1 * y2) - (y * b)))
    else if (y <= (-9.2d-31)) then
        tmp = t * (y2 * t_3)
    else if (y <= (-1.55d-143)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (y <= (-2.6d-180)) then
        tmp = t_4
    else if (y <= 1.8d-289) then
        tmp = c * (t * ((z * i) - (y2 * y4)))
    else if (y <= 6.5d-191) then
        tmp = t_4
    else if (y <= 3.25d-142) then
        tmp = (t * y2) * t_3
    else if (y <= 2.25d+80) then
        tmp = b * (y0 * ((z * k) - (x * j)))
    else if (y <= 7.6d+162) then
        tmp = t_2
    else
        tmp = t_1
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (x * ((y * a) - (j * y0)));
	double t_2 = k * (y * ((i * y5) - (b * y4)));
	double t_3 = (a * y5) - (c * y4);
	double t_4 = t * (j * ((b * y4) - (i * y5)));
	double tmp;
	if (y <= -1.45e+202) {
		tmp = t_2;
	} else if (y <= -4.4e+99) {
		tmp = t_1;
	} else if (y <= -1.85e+28) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -9.2e-31) {
		tmp = t * (y2 * t_3);
	} else if (y <= -1.55e-143) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.6e-180) {
		tmp = t_4;
	} else if (y <= 1.8e-289) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 6.5e-191) {
		tmp = t_4;
	} else if (y <= 3.25e-142) {
		tmp = (t * y2) * t_3;
	} else if (y <= 2.25e+80) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 7.6e+162) {
		tmp = t_2;
	} else {
		tmp = t_1;
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = b * (x * ((y * a) - (j * y0)))
	t_2 = k * (y * ((i * y5) - (b * y4)))
	t_3 = (a * y5) - (c * y4)
	t_4 = t * (j * ((b * y4) - (i * y5)))
	tmp = 0
	if y <= -1.45e+202:
		tmp = t_2
	elif y <= -4.4e+99:
		tmp = t_1
	elif y <= -1.85e+28:
		tmp = k * (y4 * ((y1 * y2) - (y * b)))
	elif y <= -9.2e-31:
		tmp = t * (y2 * t_3)
	elif y <= -1.55e-143:
		tmp = a * (((x * y) - (z * t)) * b)
	elif y <= -2.6e-180:
		tmp = t_4
	elif y <= 1.8e-289:
		tmp = c * (t * ((z * i) - (y2 * y4)))
	elif y <= 6.5e-191:
		tmp = t_4
	elif y <= 3.25e-142:
		tmp = (t * y2) * t_3
	elif y <= 2.25e+80:
		tmp = b * (y0 * ((z * k) - (x * j)))
	elif y <= 7.6e+162:
		tmp = t_2
	else:
		tmp = t_1
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))))
	t_2 = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))))
	t_3 = Float64(Float64(a * y5) - Float64(c * y4))
	t_4 = Float64(t * Float64(j * Float64(Float64(b * y4) - Float64(i * y5))))
	tmp = 0.0
	if (y <= -1.45e+202)
		tmp = t_2;
	elseif (y <= -4.4e+99)
		tmp = t_1;
	elseif (y <= -1.85e+28)
		tmp = Float64(k * Float64(y4 * Float64(Float64(y1 * y2) - Float64(y * b))));
	elseif (y <= -9.2e-31)
		tmp = Float64(t * Float64(y2 * t_3));
	elseif (y <= -1.55e-143)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (y <= -2.6e-180)
		tmp = t_4;
	elseif (y <= 1.8e-289)
		tmp = Float64(c * Float64(t * Float64(Float64(z * i) - Float64(y2 * y4))));
	elseif (y <= 6.5e-191)
		tmp = t_4;
	elseif (y <= 3.25e-142)
		tmp = Float64(Float64(t * y2) * t_3);
	elseif (y <= 2.25e+80)
		tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))));
	elseif (y <= 7.6e+162)
		tmp = t_2;
	else
		tmp = t_1;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = b * (x * ((y * a) - (j * y0)));
	t_2 = k * (y * ((i * y5) - (b * y4)));
	t_3 = (a * y5) - (c * y4);
	t_4 = t * (j * ((b * y4) - (i * y5)));
	tmp = 0.0;
	if (y <= -1.45e+202)
		tmp = t_2;
	elseif (y <= -4.4e+99)
		tmp = t_1;
	elseif (y <= -1.85e+28)
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	elseif (y <= -9.2e-31)
		tmp = t * (y2 * t_3);
	elseif (y <= -1.55e-143)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (y <= -2.6e-180)
		tmp = t_4;
	elseif (y <= 1.8e-289)
		tmp = c * (t * ((z * i) - (y2 * y4)));
	elseif (y <= 6.5e-191)
		tmp = t_4;
	elseif (y <= 3.25e-142)
		tmp = (t * y2) * t_3;
	elseif (y <= 2.25e+80)
		tmp = b * (y0 * ((z * k) - (x * j)));
	elseif (y <= 7.6e+162)
		tmp = t_2;
	else
		tmp = t_1;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(t * N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.45e+202], t$95$2, If[LessEqual[y, -4.4e+99], t$95$1, If[LessEqual[y, -1.85e+28], N[(k * N[(y4 * N[(N[(y1 * y2), $MachinePrecision] - N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -9.2e-31], N[(t * N[(y2 * t$95$3), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.55e-143], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.6e-180], t$95$4, If[LessEqual[y, 1.8e-289], N[(c * N[(t * N[(N[(z * i), $MachinePrecision] - N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 6.5e-191], t$95$4, If[LessEqual[y, 3.25e-142], N[(N[(t * y2), $MachinePrecision] * t$95$3), $MachinePrecision], If[LessEqual[y, 2.25e+80], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 7.6e+162], t$95$2, t$95$1]]]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 10: 30.9% accurate, 2.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := a \cdot y5 - c \cdot y4\\ t_2 := t \cdot \left(y2 \cdot t_1\right)\\ t_3 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\ \mathbf{if}\;y \leq -1.35 \cdot 10^{+202}:\\ \;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq -4.2 \cdot 10^{+99}:\\ \;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \mathbf{elif}\;y \leq -1.7 \cdot 10^{+28}:\\ \;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2 - y \cdot b\right)\right)\\ \mathbf{elif}\;y \leq -1.4 \cdot 10^{-29}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y \leq -1.35 \cdot 10^{-142}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;y \leq -2.9 \cdot 10^{-180}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y \leq 2.5 \cdot 10^{-291}:\\ \;\;\;\;c \cdot \left(t \cdot \left(z \cdot i - y2 \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq 6.5 \cdot 10^{-188}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y \leq 1.75 \cdot 10^{-139}:\\ \;\;\;\;\left(t \cdot y2\right) \cdot t_1\\ \mathbf{elif}\;y \leq 3.8 \cdot 10^{+63}:\\ \;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{elif}\;y \leq 1.2 \cdot 10^{+133}:\\ \;\;\;\;t_2\\ \mathbf{else}:\\ \;\;\;\;\left(x \cdot y\right) \cdot \left(a \cdot b - c \cdot i\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (- (* a y5) (* c y4)))
        (t_2 (* t (* y2 t_1)))
        (t_3 (* t (* j (- (* b y4) (* i y5))))))
   (if (<= y -1.35e+202)
     (* k (* y (- (* i y5) (* b y4))))
     (if (<= y -4.2e+99)
       (* b (* x (- (* y a) (* j y0))))
       (if (<= y -1.7e+28)
         (* k (* y4 (- (* y1 y2) (* y b))))
         (if (<= y -1.4e-29)
           t_2
           (if (<= y -1.35e-142)
             (* a (* (- (* x y) (* z t)) b))
             (if (<= y -2.9e-180)
               t_3
               (if (<= y 2.5e-291)
                 (* c (* t (- (* z i) (* y2 y4))))
                 (if (<= y 6.5e-188)
                   t_3
                   (if (<= y 1.75e-139)
                     (* (* t y2) t_1)
                     (if (<= y 3.8e+63)
                       (* b (* y0 (- (* z k) (* x j))))
                       (if (<= y 1.2e+133)
                         t_2
                         (* (* x y) (- (* a b) (* c i))))))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (a * y5) - (c * y4);
	double t_2 = t * (y2 * t_1);
	double t_3 = t * (j * ((b * y4) - (i * y5)));
	double tmp;
	if (y <= -1.35e+202) {
		tmp = k * (y * ((i * y5) - (b * y4)));
	} else if (y <= -4.2e+99) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (y <= -1.7e+28) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -1.4e-29) {
		tmp = t_2;
	} else if (y <= -1.35e-142) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.9e-180) {
		tmp = t_3;
	} else if (y <= 2.5e-291) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 6.5e-188) {
		tmp = t_3;
	} else if (y <= 1.75e-139) {
		tmp = (t * y2) * t_1;
	} else if (y <= 3.8e+63) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 1.2e+133) {
		tmp = t_2;
	} else {
		tmp = (x * y) * ((a * b) - (c * i));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: t_2
    real(8) :: t_3
    real(8) :: tmp
    t_1 = (a * y5) - (c * y4)
    t_2 = t * (y2 * t_1)
    t_3 = t * (j * ((b * y4) - (i * y5)))
    if (y <= (-1.35d+202)) then
        tmp = k * (y * ((i * y5) - (b * y4)))
    else if (y <= (-4.2d+99)) then
        tmp = b * (x * ((y * a) - (j * y0)))
    else if (y <= (-1.7d+28)) then
        tmp = k * (y4 * ((y1 * y2) - (y * b)))
    else if (y <= (-1.4d-29)) then
        tmp = t_2
    else if (y <= (-1.35d-142)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (y <= (-2.9d-180)) then
        tmp = t_3
    else if (y <= 2.5d-291) then
        tmp = c * (t * ((z * i) - (y2 * y4)))
    else if (y <= 6.5d-188) then
        tmp = t_3
    else if (y <= 1.75d-139) then
        tmp = (t * y2) * t_1
    else if (y <= 3.8d+63) then
        tmp = b * (y0 * ((z * k) - (x * j)))
    else if (y <= 1.2d+133) then
        tmp = t_2
    else
        tmp = (x * y) * ((a * b) - (c * i))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (a * y5) - (c * y4);
	double t_2 = t * (y2 * t_1);
	double t_3 = t * (j * ((b * y4) - (i * y5)));
	double tmp;
	if (y <= -1.35e+202) {
		tmp = k * (y * ((i * y5) - (b * y4)));
	} else if (y <= -4.2e+99) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (y <= -1.7e+28) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -1.4e-29) {
		tmp = t_2;
	} else if (y <= -1.35e-142) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.9e-180) {
		tmp = t_3;
	} else if (y <= 2.5e-291) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 6.5e-188) {
		tmp = t_3;
	} else if (y <= 1.75e-139) {
		tmp = (t * y2) * t_1;
	} else if (y <= 3.8e+63) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 1.2e+133) {
		tmp = t_2;
	} else {
		tmp = (x * y) * ((a * b) - (c * i));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = (a * y5) - (c * y4)
	t_2 = t * (y2 * t_1)
	t_3 = t * (j * ((b * y4) - (i * y5)))
	tmp = 0
	if y <= -1.35e+202:
		tmp = k * (y * ((i * y5) - (b * y4)))
	elif y <= -4.2e+99:
		tmp = b * (x * ((y * a) - (j * y0)))
	elif y <= -1.7e+28:
		tmp = k * (y4 * ((y1 * y2) - (y * b)))
	elif y <= -1.4e-29:
		tmp = t_2
	elif y <= -1.35e-142:
		tmp = a * (((x * y) - (z * t)) * b)
	elif y <= -2.9e-180:
		tmp = t_3
	elif y <= 2.5e-291:
		tmp = c * (t * ((z * i) - (y2 * y4)))
	elif y <= 6.5e-188:
		tmp = t_3
	elif y <= 1.75e-139:
		tmp = (t * y2) * t_1
	elif y <= 3.8e+63:
		tmp = b * (y0 * ((z * k) - (x * j)))
	elif y <= 1.2e+133:
		tmp = t_2
	else:
		tmp = (x * y) * ((a * b) - (c * i))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(Float64(a * y5) - Float64(c * y4))
	t_2 = Float64(t * Float64(y2 * t_1))
	t_3 = Float64(t * Float64(j * Float64(Float64(b * y4) - Float64(i * y5))))
	tmp = 0.0
	if (y <= -1.35e+202)
		tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))));
	elseif (y <= -4.2e+99)
		tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))));
	elseif (y <= -1.7e+28)
		tmp = Float64(k * Float64(y4 * Float64(Float64(y1 * y2) - Float64(y * b))));
	elseif (y <= -1.4e-29)
		tmp = t_2;
	elseif (y <= -1.35e-142)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (y <= -2.9e-180)
		tmp = t_3;
	elseif (y <= 2.5e-291)
		tmp = Float64(c * Float64(t * Float64(Float64(z * i) - Float64(y2 * y4))));
	elseif (y <= 6.5e-188)
		tmp = t_3;
	elseif (y <= 1.75e-139)
		tmp = Float64(Float64(t * y2) * t_1);
	elseif (y <= 3.8e+63)
		tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))));
	elseif (y <= 1.2e+133)
		tmp = t_2;
	else
		tmp = Float64(Float64(x * y) * Float64(Float64(a * b) - Float64(c * i)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = (a * y5) - (c * y4);
	t_2 = t * (y2 * t_1);
	t_3 = t * (j * ((b * y4) - (i * y5)));
	tmp = 0.0;
	if (y <= -1.35e+202)
		tmp = k * (y * ((i * y5) - (b * y4)));
	elseif (y <= -4.2e+99)
		tmp = b * (x * ((y * a) - (j * y0)));
	elseif (y <= -1.7e+28)
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	elseif (y <= -1.4e-29)
		tmp = t_2;
	elseif (y <= -1.35e-142)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (y <= -2.9e-180)
		tmp = t_3;
	elseif (y <= 2.5e-291)
		tmp = c * (t * ((z * i) - (y2 * y4)));
	elseif (y <= 6.5e-188)
		tmp = t_3;
	elseif (y <= 1.75e-139)
		tmp = (t * y2) * t_1;
	elseif (y <= 3.8e+63)
		tmp = b * (y0 * ((z * k) - (x * j)));
	elseif (y <= 1.2e+133)
		tmp = t_2;
	else
		tmp = (x * y) * ((a * b) - (c * i));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t * N[(y2 * t$95$1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(t * N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.35e+202], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -4.2e+99], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.7e+28], N[(k * N[(y4 * N[(N[(y1 * y2), $MachinePrecision] - N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.4e-29], t$95$2, If[LessEqual[y, -1.35e-142], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.9e-180], t$95$3, If[LessEqual[y, 2.5e-291], N[(c * N[(t * N[(N[(z * i), $MachinePrecision] - N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 6.5e-188], t$95$3, If[LessEqual[y, 1.75e-139], N[(N[(t * y2), $MachinePrecision] * t$95$1), $MachinePrecision], If[LessEqual[y, 3.8e+63], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.2e+133], t$95$2, N[(N[(x * y), $MachinePrecision] * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 11: 31.4% accurate, 2.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\ t_2 := a \cdot y5 - c \cdot y4\\ \mathbf{if}\;y \leq -5.4 \cdot 10^{+202}:\\ \;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq -4.4 \cdot 10^{+99}:\\ \;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \mathbf{elif}\;y \leq -1.7 \cdot 10^{+28}:\\ \;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2 - y \cdot b\right)\right)\\ \mathbf{elif}\;y \leq -3.5 \cdot 10^{-57}:\\ \;\;\;\;t \cdot \left(y5 \cdot \left(a \cdot y2 - i \cdot j\right)\right)\\ \mathbf{elif}\;y \leq -4.85 \cdot 10^{-144}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;y \leq -2.9 \cdot 10^{-180}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y \leq 7 \cdot 10^{-297}:\\ \;\;\;\;c \cdot \left(t \cdot \left(z \cdot i - y2 \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq 4.5 \cdot 10^{-189}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y \leq 5.3 \cdot 10^{-141}:\\ \;\;\;\;\left(t \cdot y2\right) \cdot t_2\\ \mathbf{elif}\;y \leq 3.6 \cdot 10^{+63}:\\ \;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{elif}\;y \leq 3 \cdot 10^{+132}:\\ \;\;\;\;t \cdot \left(y2 \cdot t_2\right)\\ \mathbf{else}:\\ \;\;\;\;\left(x \cdot y\right) \cdot \left(a \cdot b - c \cdot i\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* t (* j (- (* b y4) (* i y5))))) (t_2 (- (* a y5) (* c y4))))
   (if (<= y -5.4e+202)
     (* k (* y (- (* i y5) (* b y4))))
     (if (<= y -4.4e+99)
       (* b (* x (- (* y a) (* j y0))))
       (if (<= y -1.7e+28)
         (* k (* y4 (- (* y1 y2) (* y b))))
         (if (<= y -3.5e-57)
           (* t (* y5 (- (* a y2) (* i j))))
           (if (<= y -4.85e-144)
             (* a (* (- (* x y) (* z t)) b))
             (if (<= y -2.9e-180)
               t_1
               (if (<= y 7e-297)
                 (* c (* t (- (* z i) (* y2 y4))))
                 (if (<= y 4.5e-189)
                   t_1
                   (if (<= y 5.3e-141)
                     (* (* t y2) t_2)
                     (if (<= y 3.6e+63)
                       (* b (* y0 (- (* z k) (* x j))))
                       (if (<= y 3e+132)
                         (* t (* y2 t_2))
                         (* (* x y) (- (* a b) (* c i))))))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = t * (j * ((b * y4) - (i * y5)));
	double t_2 = (a * y5) - (c * y4);
	double tmp;
	if (y <= -5.4e+202) {
		tmp = k * (y * ((i * y5) - (b * y4)));
	} else if (y <= -4.4e+99) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (y <= -1.7e+28) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -3.5e-57) {
		tmp = t * (y5 * ((a * y2) - (i * j)));
	} else if (y <= -4.85e-144) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.9e-180) {
		tmp = t_1;
	} else if (y <= 7e-297) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 4.5e-189) {
		tmp = t_1;
	} else if (y <= 5.3e-141) {
		tmp = (t * y2) * t_2;
	} else if (y <= 3.6e+63) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 3e+132) {
		tmp = t * (y2 * t_2);
	} else {
		tmp = (x * y) * ((a * b) - (c * i));
	}
	return tmp;
}

Fortran

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 = t * (j * ((b * y4) - (i * y5)))
    t_2 = (a * y5) - (c * y4)
    if (y <= (-5.4d+202)) then
        tmp = k * (y * ((i * y5) - (b * y4)))
    else if (y <= (-4.4d+99)) then
        tmp = b * (x * ((y * a) - (j * y0)))
    else if (y <= (-1.7d+28)) then
        tmp = k * (y4 * ((y1 * y2) - (y * b)))
    else if (y <= (-3.5d-57)) then
        tmp = t * (y5 * ((a * y2) - (i * j)))
    else if (y <= (-4.85d-144)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (y <= (-2.9d-180)) then
        tmp = t_1
    else if (y <= 7d-297) then
        tmp = c * (t * ((z * i) - (y2 * y4)))
    else if (y <= 4.5d-189) then
        tmp = t_1
    else if (y <= 5.3d-141) then
        tmp = (t * y2) * t_2
    else if (y <= 3.6d+63) then
        tmp = b * (y0 * ((z * k) - (x * j)))
    else if (y <= 3d+132) then
        tmp = t * (y2 * t_2)
    else
        tmp = (x * y) * ((a * b) - (c * i))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = t * (j * ((b * y4) - (i * y5)));
	double t_2 = (a * y5) - (c * y4);
	double tmp;
	if (y <= -5.4e+202) {
		tmp = k * (y * ((i * y5) - (b * y4)));
	} else if (y <= -4.4e+99) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (y <= -1.7e+28) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -3.5e-57) {
		tmp = t * (y5 * ((a * y2) - (i * j)));
	} else if (y <= -4.85e-144) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.9e-180) {
		tmp = t_1;
	} else if (y <= 7e-297) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 4.5e-189) {
		tmp = t_1;
	} else if (y <= 5.3e-141) {
		tmp = (t * y2) * t_2;
	} else if (y <= 3.6e+63) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 3e+132) {
		tmp = t * (y2 * t_2);
	} else {
		tmp = (x * y) * ((a * b) - (c * i));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = t * (j * ((b * y4) - (i * y5)))
	t_2 = (a * y5) - (c * y4)
	tmp = 0
	if y <= -5.4e+202:
		tmp = k * (y * ((i * y5) - (b * y4)))
	elif y <= -4.4e+99:
		tmp = b * (x * ((y * a) - (j * y0)))
	elif y <= -1.7e+28:
		tmp = k * (y4 * ((y1 * y2) - (y * b)))
	elif y <= -3.5e-57:
		tmp = t * (y5 * ((a * y2) - (i * j)))
	elif y <= -4.85e-144:
		tmp = a * (((x * y) - (z * t)) * b)
	elif y <= -2.9e-180:
		tmp = t_1
	elif y <= 7e-297:
		tmp = c * (t * ((z * i) - (y2 * y4)))
	elif y <= 4.5e-189:
		tmp = t_1
	elif y <= 5.3e-141:
		tmp = (t * y2) * t_2
	elif y <= 3.6e+63:
		tmp = b * (y0 * ((z * k) - (x * j)))
	elif y <= 3e+132:
		tmp = t * (y2 * t_2)
	else:
		tmp = (x * y) * ((a * b) - (c * i))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(t * Float64(j * Float64(Float64(b * y4) - Float64(i * y5))))
	t_2 = Float64(Float64(a * y5) - Float64(c * y4))
	tmp = 0.0
	if (y <= -5.4e+202)
		tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))));
	elseif (y <= -4.4e+99)
		tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))));
	elseif (y <= -1.7e+28)
		tmp = Float64(k * Float64(y4 * Float64(Float64(y1 * y2) - Float64(y * b))));
	elseif (y <= -3.5e-57)
		tmp = Float64(t * Float64(y5 * Float64(Float64(a * y2) - Float64(i * j))));
	elseif (y <= -4.85e-144)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (y <= -2.9e-180)
		tmp = t_1;
	elseif (y <= 7e-297)
		tmp = Float64(c * Float64(t * Float64(Float64(z * i) - Float64(y2 * y4))));
	elseif (y <= 4.5e-189)
		tmp = t_1;
	elseif (y <= 5.3e-141)
		tmp = Float64(Float64(t * y2) * t_2);
	elseif (y <= 3.6e+63)
		tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))));
	elseif (y <= 3e+132)
		tmp = Float64(t * Float64(y2 * t_2));
	else
		tmp = Float64(Float64(x * y) * Float64(Float64(a * b) - Float64(c * i)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = t * (j * ((b * y4) - (i * y5)));
	t_2 = (a * y5) - (c * y4);
	tmp = 0.0;
	if (y <= -5.4e+202)
		tmp = k * (y * ((i * y5) - (b * y4)));
	elseif (y <= -4.4e+99)
		tmp = b * (x * ((y * a) - (j * y0)));
	elseif (y <= -1.7e+28)
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	elseif (y <= -3.5e-57)
		tmp = t * (y5 * ((a * y2) - (i * j)));
	elseif (y <= -4.85e-144)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (y <= -2.9e-180)
		tmp = t_1;
	elseif (y <= 7e-297)
		tmp = c * (t * ((z * i) - (y2 * y4)));
	elseif (y <= 4.5e-189)
		tmp = t_1;
	elseif (y <= 5.3e-141)
		tmp = (t * y2) * t_2;
	elseif (y <= 3.6e+63)
		tmp = b * (y0 * ((z * k) - (x * j)));
	elseif (y <= 3e+132)
		tmp = t * (y2 * t_2);
	else
		tmp = (x * y) * ((a * b) - (c * i));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -5.4e+202], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -4.4e+99], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.7e+28], N[(k * N[(y4 * N[(N[(y1 * y2), $MachinePrecision] - N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -3.5e-57], N[(t * N[(y5 * N[(N[(a * y2), $MachinePrecision] - N[(i * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -4.85e-144], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.9e-180], t$95$1, If[LessEqual[y, 7e-297], N[(c * N[(t * N[(N[(z * i), $MachinePrecision] - N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.5e-189], t$95$1, If[LessEqual[y, 5.3e-141], N[(N[(t * y2), $MachinePrecision] * t$95$2), $MachinePrecision], If[LessEqual[y, 3.6e+63], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3e+132], N[(t * N[(y2 * t$95$2), $MachinePrecision]), $MachinePrecision], N[(N[(x * y), $MachinePrecision] * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 12: 34.0% accurate, 2.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := y2 \cdot \left(a \cdot y5 - c \cdot y4\right)\\ t_2 := t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right) + t_1\right)\\ \mathbf{if}\;y \leq -3.7 \cdot 10^{+202}:\\ \;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq -4.4 \cdot 10^{+99}:\\ \;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \mathbf{elif}\;y \leq -5 \cdot 10^{+23}:\\ \;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2 - y \cdot b\right)\right)\\ \mathbf{elif}\;y \leq -1.02 \cdot 10^{-38}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y \leq -1.8 \cdot 10^{-145}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;y \leq 1.2 \cdot 10^{-117}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y \leq 5.4 \cdot 10^{+60}:\\ \;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{elif}\;y \leq 1.15 \cdot 10^{+133}:\\ \;\;\;\;t \cdot t_1\\ \mathbf{else}:\\ \;\;\;\;\left(x \cdot y\right) \cdot \left(a \cdot b - c \cdot i\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* y2 (- (* a y5) (* c y4))))
        (t_2 (* t (+ (* j (- (* b y4) (* i y5))) t_1))))
   (if (<= y -3.7e+202)
     (* k (* y (- (* i y5) (* b y4))))
     (if (<= y -4.4e+99)
       (* b (* x (- (* y a) (* j y0))))
       (if (<= y -5e+23)
         (* k (* y4 (- (* y1 y2) (* y b))))
         (if (<= y -1.02e-38)
           t_2
           (if (<= y -1.8e-145)
             (* a (* (- (* x y) (* z t)) b))
             (if (<= y 1.2e-117)
               t_2
               (if (<= y 5.4e+60)
                 (* b (* y0 (- (* z k) (* x j))))
                 (if (<= y 1.15e+133)
                   (* t t_1)
                   (* (* x y) (- (* a b) (* c i)))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = y2 * ((a * y5) - (c * y4));
	double t_2 = t * ((j * ((b * y4) - (i * y5))) + t_1);
	double tmp;
	if (y <= -3.7e+202) {
		tmp = k * (y * ((i * y5) - (b * y4)));
	} else if (y <= -4.4e+99) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (y <= -5e+23) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -1.02e-38) {
		tmp = t_2;
	} else if (y <= -1.8e-145) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= 1.2e-117) {
		tmp = t_2;
	} else if (y <= 5.4e+60) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 1.15e+133) {
		tmp = t * t_1;
	} else {
		tmp = (x * y) * ((a * b) - (c * i));
	}
	return tmp;
}

Fortran

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 = y2 * ((a * y5) - (c * y4))
    t_2 = t * ((j * ((b * y4) - (i * y5))) + t_1)
    if (y <= (-3.7d+202)) then
        tmp = k * (y * ((i * y5) - (b * y4)))
    else if (y <= (-4.4d+99)) then
        tmp = b * (x * ((y * a) - (j * y0)))
    else if (y <= (-5d+23)) then
        tmp = k * (y4 * ((y1 * y2) - (y * b)))
    else if (y <= (-1.02d-38)) then
        tmp = t_2
    else if (y <= (-1.8d-145)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (y <= 1.2d-117) then
        tmp = t_2
    else if (y <= 5.4d+60) then
        tmp = b * (y0 * ((z * k) - (x * j)))
    else if (y <= 1.15d+133) then
        tmp = t * t_1
    else
        tmp = (x * y) * ((a * b) - (c * i))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = y2 * ((a * y5) - (c * y4));
	double t_2 = t * ((j * ((b * y4) - (i * y5))) + t_1);
	double tmp;
	if (y <= -3.7e+202) {
		tmp = k * (y * ((i * y5) - (b * y4)));
	} else if (y <= -4.4e+99) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else if (y <= -5e+23) {
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	} else if (y <= -1.02e-38) {
		tmp = t_2;
	} else if (y <= -1.8e-145) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= 1.2e-117) {
		tmp = t_2;
	} else if (y <= 5.4e+60) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 1.15e+133) {
		tmp = t * t_1;
	} else {
		tmp = (x * y) * ((a * b) - (c * i));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = y2 * ((a * y5) - (c * y4))
	t_2 = t * ((j * ((b * y4) - (i * y5))) + t_1)
	tmp = 0
	if y <= -3.7e+202:
		tmp = k * (y * ((i * y5) - (b * y4)))
	elif y <= -4.4e+99:
		tmp = b * (x * ((y * a) - (j * y0)))
	elif y <= -5e+23:
		tmp = k * (y4 * ((y1 * y2) - (y * b)))
	elif y <= -1.02e-38:
		tmp = t_2
	elif y <= -1.8e-145:
		tmp = a * (((x * y) - (z * t)) * b)
	elif y <= 1.2e-117:
		tmp = t_2
	elif y <= 5.4e+60:
		tmp = b * (y0 * ((z * k) - (x * j)))
	elif y <= 1.15e+133:
		tmp = t * t_1
	else:
		tmp = (x * y) * ((a * b) - (c * i))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(y2 * Float64(Float64(a * y5) - Float64(c * y4)))
	t_2 = Float64(t * Float64(Float64(j * Float64(Float64(b * y4) - Float64(i * y5))) + t_1))
	tmp = 0.0
	if (y <= -3.7e+202)
		tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))));
	elseif (y <= -4.4e+99)
		tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))));
	elseif (y <= -5e+23)
		tmp = Float64(k * Float64(y4 * Float64(Float64(y1 * y2) - Float64(y * b))));
	elseif (y <= -1.02e-38)
		tmp = t_2;
	elseif (y <= -1.8e-145)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (y <= 1.2e-117)
		tmp = t_2;
	elseif (y <= 5.4e+60)
		tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))));
	elseif (y <= 1.15e+133)
		tmp = Float64(t * t_1);
	else
		tmp = Float64(Float64(x * y) * Float64(Float64(a * b) - Float64(c * i)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = y2 * ((a * y5) - (c * y4));
	t_2 = t * ((j * ((b * y4) - (i * y5))) + t_1);
	tmp = 0.0;
	if (y <= -3.7e+202)
		tmp = k * (y * ((i * y5) - (b * y4)));
	elseif (y <= -4.4e+99)
		tmp = b * (x * ((y * a) - (j * y0)));
	elseif (y <= -5e+23)
		tmp = k * (y4 * ((y1 * y2) - (y * b)));
	elseif (y <= -1.02e-38)
		tmp = t_2;
	elseif (y <= -1.8e-145)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (y <= 1.2e-117)
		tmp = t_2;
	elseif (y <= 5.4e+60)
		tmp = b * (y0 * ((z * k) - (x * j)));
	elseif (y <= 1.15e+133)
		tmp = t * t_1;
	else
		tmp = (x * y) * ((a * b) - (c * i));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(y2 * N[(N[(a * y5), $MachinePrecision] - N[(c * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t * N[(N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -3.7e+202], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -4.4e+99], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -5e+23], N[(k * N[(y4 * N[(N[(y1 * y2), $MachinePrecision] - N[(y * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -1.02e-38], t$95$2, If[LessEqual[y, -1.8e-145], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.2e-117], t$95$2, If[LessEqual[y, 5.4e+60], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.15e+133], N[(t * t$95$1), $MachinePrecision], N[(N[(x * y), $MachinePrecision] * N[(N[(a * b), $MachinePrecision] - N[(c * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 13: 31.0% accurate, 3.0× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := c \cdot \left(t \cdot \left(z \cdot i - y2 \cdot y4\right)\right)\\ t_2 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ t_3 := k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ t_4 := j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\ \mathbf{if}\;y \leq -1.7 \cdot 10^{+203}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y \leq -4.2 \cdot 10^{+99}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;y \leq -2.25 \cdot 10^{+23}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;y \leq -1.4 \cdot 10^{-28}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y \leq -2.55 \cdot 10^{-54}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y \leq -3.6 \cdot 10^{-142}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;y \leq -2.6 \cdot 10^{-180}:\\ \;\;\;\;t_4\\ \mathbf{elif}\;y \leq 5.1 \cdot 10^{-162}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y \leq 9 \cdot 10^{+78}:\\ \;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{elif}\;y \leq 8.2 \cdot 10^{+162}:\\ \;\;\;\;t_3\\ \mathbf{else}:\\ \;\;\;\;t_2\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* c (* t (- (* z i) (* y2 y4)))))
        (t_2 (* b (* x (- (* y a) (* j y0)))))
        (t_3 (* k (* y (- (* i y5) (* b y4)))))
        (t_4 (* j (* t (- (* b y4) (* i y5))))))
   (if (<= y -1.7e+203)
     t_3
     (if (<= y -4.2e+99)
       t_2
       (if (<= y -2.25e+23)
         t_3
         (if (<= y -1.4e-28)
           t_1
           (if (<= y -2.55e-54)
             t_4
             (if (<= y -3.6e-142)
               (* a (* (- (* x y) (* z t)) b))
               (if (<= y -2.6e-180)
                 t_4
                 (if (<= y 5.1e-162)
                   t_1
                   (if (<= y 9e+78)
                     (* b (* y0 (- (* z k) (* x j))))
                     (if (<= y 8.2e+162) t_3 t_2))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = c * (t * ((z * i) - (y2 * y4)));
	double t_2 = b * (x * ((y * a) - (j * y0)));
	double t_3 = k * (y * ((i * y5) - (b * y4)));
	double t_4 = j * (t * ((b * y4) - (i * y5)));
	double tmp;
	if (y <= -1.7e+203) {
		tmp = t_3;
	} else if (y <= -4.2e+99) {
		tmp = t_2;
	} else if (y <= -2.25e+23) {
		tmp = t_3;
	} else if (y <= -1.4e-28) {
		tmp = t_1;
	} else if (y <= -2.55e-54) {
		tmp = t_4;
	} else if (y <= -3.6e-142) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.6e-180) {
		tmp = t_4;
	} else if (y <= 5.1e-162) {
		tmp = t_1;
	} else if (y <= 9e+78) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 8.2e+162) {
		tmp = t_3;
	} else {
		tmp = t_2;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: t_2
    real(8) :: t_3
    real(8) :: t_4
    real(8) :: tmp
    t_1 = c * (t * ((z * i) - (y2 * y4)))
    t_2 = b * (x * ((y * a) - (j * y0)))
    t_3 = k * (y * ((i * y5) - (b * y4)))
    t_4 = j * (t * ((b * y4) - (i * y5)))
    if (y <= (-1.7d+203)) then
        tmp = t_3
    else if (y <= (-4.2d+99)) then
        tmp = t_2
    else if (y <= (-2.25d+23)) then
        tmp = t_3
    else if (y <= (-1.4d-28)) then
        tmp = t_1
    else if (y <= (-2.55d-54)) then
        tmp = t_4
    else if (y <= (-3.6d-142)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (y <= (-2.6d-180)) then
        tmp = t_4
    else if (y <= 5.1d-162) then
        tmp = t_1
    else if (y <= 9d+78) then
        tmp = b * (y0 * ((z * k) - (x * j)))
    else if (y <= 8.2d+162) then
        tmp = t_3
    else
        tmp = t_2
    end if
    code = tmp
end function

Java

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 * (t * ((z * i) - (y2 * y4)));
	double t_2 = b * (x * ((y * a) - (j * y0)));
	double t_3 = k * (y * ((i * y5) - (b * y4)));
	double t_4 = j * (t * ((b * y4) - (i * y5)));
	double tmp;
	if (y <= -1.7e+203) {
		tmp = t_3;
	} else if (y <= -4.2e+99) {
		tmp = t_2;
	} else if (y <= -2.25e+23) {
		tmp = t_3;
	} else if (y <= -1.4e-28) {
		tmp = t_1;
	} else if (y <= -2.55e-54) {
		tmp = t_4;
	} else if (y <= -3.6e-142) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.6e-180) {
		tmp = t_4;
	} else if (y <= 5.1e-162) {
		tmp = t_1;
	} else if (y <= 9e+78) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (y <= 8.2e+162) {
		tmp = t_3;
	} else {
		tmp = t_2;
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = c * (t * ((z * i) - (y2 * y4)))
	t_2 = b * (x * ((y * a) - (j * y0)))
	t_3 = k * (y * ((i * y5) - (b * y4)))
	t_4 = j * (t * ((b * y4) - (i * y5)))
	tmp = 0
	if y <= -1.7e+203:
		tmp = t_3
	elif y <= -4.2e+99:
		tmp = t_2
	elif y <= -2.25e+23:
		tmp = t_3
	elif y <= -1.4e-28:
		tmp = t_1
	elif y <= -2.55e-54:
		tmp = t_4
	elif y <= -3.6e-142:
		tmp = a * (((x * y) - (z * t)) * b)
	elif y <= -2.6e-180:
		tmp = t_4
	elif y <= 5.1e-162:
		tmp = t_1
	elif y <= 9e+78:
		tmp = b * (y0 * ((z * k) - (x * j)))
	elif y <= 8.2e+162:
		tmp = t_3
	else:
		tmp = t_2
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(c * Float64(t * Float64(Float64(z * i) - Float64(y2 * y4))))
	t_2 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))))
	t_3 = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))))
	t_4 = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5))))
	tmp = 0.0
	if (y <= -1.7e+203)
		tmp = t_3;
	elseif (y <= -4.2e+99)
		tmp = t_2;
	elseif (y <= -2.25e+23)
		tmp = t_3;
	elseif (y <= -1.4e-28)
		tmp = t_1;
	elseif (y <= -2.55e-54)
		tmp = t_4;
	elseif (y <= -3.6e-142)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (y <= -2.6e-180)
		tmp = t_4;
	elseif (y <= 5.1e-162)
		tmp = t_1;
	elseif (y <= 9e+78)
		tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))));
	elseif (y <= 8.2e+162)
		tmp = t_3;
	else
		tmp = t_2;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = c * (t * ((z * i) - (y2 * y4)));
	t_2 = b * (x * ((y * a) - (j * y0)));
	t_3 = k * (y * ((i * y5) - (b * y4)));
	t_4 = j * (t * ((b * y4) - (i * y5)));
	tmp = 0.0;
	if (y <= -1.7e+203)
		tmp = t_3;
	elseif (y <= -4.2e+99)
		tmp = t_2;
	elseif (y <= -2.25e+23)
		tmp = t_3;
	elseif (y <= -1.4e-28)
		tmp = t_1;
	elseif (y <= -2.55e-54)
		tmp = t_4;
	elseif (y <= -3.6e-142)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (y <= -2.6e-180)
		tmp = t_4;
	elseif (y <= 5.1e-162)
		tmp = t_1;
	elseif (y <= 9e+78)
		tmp = b * (y0 * ((z * k) - (x * j)));
	elseif (y <= 8.2e+162)
		tmp = t_3;
	else
		tmp = t_2;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(c * N[(t * N[(N[(z * i), $MachinePrecision] - N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -1.7e+203], t$95$3, If[LessEqual[y, -4.2e+99], t$95$2, If[LessEqual[y, -2.25e+23], t$95$3, If[LessEqual[y, -1.4e-28], t$95$1, If[LessEqual[y, -2.55e-54], t$95$4, If[LessEqual[y, -3.6e-142], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.6e-180], t$95$4, If[LessEqual[y, 5.1e-162], t$95$1, If[LessEqual[y, 9e+78], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 8.2e+162], t$95$3, t$95$2]]]]]]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 14: 29.6% accurate, 3.7× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \mathbf{if}\;y \leq -2.3 \cdot 10^{+250}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y \leq -1.4 \cdot 10^{+203}:\\ \;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\ \mathbf{elif}\;y \leq -9.8 \cdot 10^{-58}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y \leq -8.8 \cdot 10^{-143}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;y \leq -2.6 \cdot 10^{-180}:\\ \;\;\;\;j \cdot \left(t \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\ \mathbf{elif}\;y \leq 1.72 \cdot 10^{-161}:\\ \;\;\;\;c \cdot \left(t \cdot \left(z \cdot i - y2 \cdot y4\right)\right)\\ \mathbf{elif}\;y \leq 5.6 \cdot 10^{+55}:\\ \;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* b (* x (- (* y a) (* j y0))))))
   (if (<= y -2.3e+250)
     t_1
     (if (<= y -1.4e+203)
       (* b (* y4 (- (* t j) (* y k))))
       (if (<= y -9.8e-58)
         t_1
         (if (<= y -8.8e-143)
           (* a (* (- (* x y) (* z t)) b))
           (if (<= y -2.6e-180)
             (* j (* t (- (* b y4) (* i y5))))
             (if (<= y 1.72e-161)
               (* c (* t (- (* z i) (* y2 y4))))
               (if (<= y 5.6e+55) (* b (* y0 (- (* z k) (* x j)))) t_1)))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (x * ((y * a) - (j * y0)));
	double tmp;
	if (y <= -2.3e+250) {
		tmp = t_1;
	} else if (y <= -1.4e+203) {
		tmp = b * (y4 * ((t * j) - (y * k)));
	} else if (y <= -9.8e-58) {
		tmp = t_1;
	} else if (y <= -8.8e-143) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.6e-180) {
		tmp = j * (t * ((b * y4) - (i * y5)));
	} else if (y <= 1.72e-161) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 5.6e+55) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: tmp
    t_1 = b * (x * ((y * a) - (j * y0)))
    if (y <= (-2.3d+250)) then
        tmp = t_1
    else if (y <= (-1.4d+203)) then
        tmp = b * (y4 * ((t * j) - (y * k)))
    else if (y <= (-9.8d-58)) then
        tmp = t_1
    else if (y <= (-8.8d-143)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (y <= (-2.6d-180)) then
        tmp = j * (t * ((b * y4) - (i * y5)))
    else if (y <= 1.72d-161) then
        tmp = c * (t * ((z * i) - (y2 * y4)))
    else if (y <= 5.6d+55) then
        tmp = b * (y0 * ((z * k) - (x * j)))
    else
        tmp = t_1
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (x * ((y * a) - (j * y0)));
	double tmp;
	if (y <= -2.3e+250) {
		tmp = t_1;
	} else if (y <= -1.4e+203) {
		tmp = b * (y4 * ((t * j) - (y * k)));
	} else if (y <= -9.8e-58) {
		tmp = t_1;
	} else if (y <= -8.8e-143) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (y <= -2.6e-180) {
		tmp = j * (t * ((b * y4) - (i * y5)));
	} else if (y <= 1.72e-161) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else if (y <= 5.6e+55) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = b * (x * ((y * a) - (j * y0)))
	tmp = 0
	if y <= -2.3e+250:
		tmp = t_1
	elif y <= -1.4e+203:
		tmp = b * (y4 * ((t * j) - (y * k)))
	elif y <= -9.8e-58:
		tmp = t_1
	elif y <= -8.8e-143:
		tmp = a * (((x * y) - (z * t)) * b)
	elif y <= -2.6e-180:
		tmp = j * (t * ((b * y4) - (i * y5)))
	elif y <= 1.72e-161:
		tmp = c * (t * ((z * i) - (y2 * y4)))
	elif y <= 5.6e+55:
		tmp = b * (y0 * ((z * k) - (x * j)))
	else:
		tmp = t_1
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))))
	tmp = 0.0
	if (y <= -2.3e+250)
		tmp = t_1;
	elseif (y <= -1.4e+203)
		tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k))));
	elseif (y <= -9.8e-58)
		tmp = t_1;
	elseif (y <= -8.8e-143)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (y <= -2.6e-180)
		tmp = Float64(j * Float64(t * Float64(Float64(b * y4) - Float64(i * y5))));
	elseif (y <= 1.72e-161)
		tmp = Float64(c * Float64(t * Float64(Float64(z * i) - Float64(y2 * y4))));
	elseif (y <= 5.6e+55)
		tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))));
	else
		tmp = t_1;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = b * (x * ((y * a) - (j * y0)));
	tmp = 0.0;
	if (y <= -2.3e+250)
		tmp = t_1;
	elseif (y <= -1.4e+203)
		tmp = b * (y4 * ((t * j) - (y * k)));
	elseif (y <= -9.8e-58)
		tmp = t_1;
	elseif (y <= -8.8e-143)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (y <= -2.6e-180)
		tmp = j * (t * ((b * y4) - (i * y5)));
	elseif (y <= 1.72e-161)
		tmp = c * (t * ((z * i) - (y2 * y4)));
	elseif (y <= 5.6e+55)
		tmp = b * (y0 * ((z * k) - (x * j)));
	else
		tmp = t_1;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -2.3e+250], t$95$1, If[LessEqual[y, -1.4e+203], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -9.8e-58], t$95$1, If[LessEqual[y, -8.8e-143], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.6e-180], N[(j * N[(t * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 1.72e-161], N[(c * N[(t * N[(N[(z * i), $MachinePrecision] - N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 5.6e+55], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 15: 27.9% accurate, 4.1× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ t_2 := b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \mathbf{if}\;t \leq -1.38 \cdot 10^{-92}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;t \leq -9 \cdot 10^{-308}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t \leq 2.05 \cdot 10^{-131}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;t \leq 6 \cdot 10^{-114}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t \leq 5.5 \cdot 10^{+189}:\\ \;\;\;\;b \cdot \left(y4 \cdot \left(t \cdot j - y \cdot k\right)\right)\\ \mathbf{elif}\;t \leq 1.5 \cdot 10^{+302}:\\ \;\;\;\;t_2\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(y4 \cdot \left(y \cdot \left(-k\right)\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* b (* y0 (- (* z k) (* x j)))))
        (t_2 (* b (* x (- (* y a) (* j y0))))))
   (if (<= t -1.38e-92)
     (* a (* (- (* x y) (* z t)) b))
     (if (<= t -9e-308)
       t_1
       (if (<= t 2.05e-131)
         t_2
         (if (<= t 6e-114)
           t_1
           (if (<= t 5.5e+189)
             (* b (* y4 (- (* t j) (* y k))))
             (if (<= t 1.5e+302) t_2 (* b (* y4 (* y (- k))))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (y0 * ((z * k) - (x * j)));
	double t_2 = b * (x * ((y * a) - (j * y0)));
	double tmp;
	if (t <= -1.38e-92) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (t <= -9e-308) {
		tmp = t_1;
	} else if (t <= 2.05e-131) {
		tmp = t_2;
	} else if (t <= 6e-114) {
		tmp = t_1;
	} else if (t <= 5.5e+189) {
		tmp = b * (y4 * ((t * j) - (y * k)));
	} else if (t <= 1.5e+302) {
		tmp = t_2;
	} else {
		tmp = b * (y4 * (y * -k));
	}
	return tmp;
}

Fortran

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 * (y0 * ((z * k) - (x * j)))
    t_2 = b * (x * ((y * a) - (j * y0)))
    if (t <= (-1.38d-92)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (t <= (-9d-308)) then
        tmp = t_1
    else if (t <= 2.05d-131) then
        tmp = t_2
    else if (t <= 6d-114) then
        tmp = t_1
    else if (t <= 5.5d+189) then
        tmp = b * (y4 * ((t * j) - (y * k)))
    else if (t <= 1.5d+302) then
        tmp = t_2
    else
        tmp = b * (y4 * (y * -k))
    end if
    code = tmp
end function

Java

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 * (y0 * ((z * k) - (x * j)));
	double t_2 = b * (x * ((y * a) - (j * y0)));
	double tmp;
	if (t <= -1.38e-92) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (t <= -9e-308) {
		tmp = t_1;
	} else if (t <= 2.05e-131) {
		tmp = t_2;
	} else if (t <= 6e-114) {
		tmp = t_1;
	} else if (t <= 5.5e+189) {
		tmp = b * (y4 * ((t * j) - (y * k)));
	} else if (t <= 1.5e+302) {
		tmp = t_2;
	} else {
		tmp = b * (y4 * (y * -k));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = b * (y0 * ((z * k) - (x * j)))
	t_2 = b * (x * ((y * a) - (j * y0)))
	tmp = 0
	if t <= -1.38e-92:
		tmp = a * (((x * y) - (z * t)) * b)
	elif t <= -9e-308:
		tmp = t_1
	elif t <= 2.05e-131:
		tmp = t_2
	elif t <= 6e-114:
		tmp = t_1
	elif t <= 5.5e+189:
		tmp = b * (y4 * ((t * j) - (y * k)))
	elif t <= 1.5e+302:
		tmp = t_2
	else:
		tmp = b * (y4 * (y * -k))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))
	t_2 = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))))
	tmp = 0.0
	if (t <= -1.38e-92)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (t <= -9e-308)
		tmp = t_1;
	elseif (t <= 2.05e-131)
		tmp = t_2;
	elseif (t <= 6e-114)
		tmp = t_1;
	elseif (t <= 5.5e+189)
		tmp = Float64(b * Float64(y4 * Float64(Float64(t * j) - Float64(y * k))));
	elseif (t <= 1.5e+302)
		tmp = t_2;
	else
		tmp = Float64(b * Float64(y4 * Float64(y * Float64(-k))));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = b * (y0 * ((z * k) - (x * j)));
	t_2 = b * (x * ((y * a) - (j * y0)));
	tmp = 0.0;
	if (t <= -1.38e-92)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (t <= -9e-308)
		tmp = t_1;
	elseif (t <= 2.05e-131)
		tmp = t_2;
	elseif (t <= 6e-114)
		tmp = t_1;
	elseif (t <= 5.5e+189)
		tmp = b * (y4 * ((t * j) - (y * k)));
	elseif (t <= 1.5e+302)
		tmp = t_2;
	else
		tmp = b * (y4 * (y * -k));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t, -1.38e-92], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -9e-308], t$95$1, If[LessEqual[t, 2.05e-131], t$95$2, If[LessEqual[t, 6e-114], t$95$1, If[LessEqual[t, 5.5e+189], N[(b * N[(y4 * N[(N[(t * j), $MachinePrecision] - N[(y * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, 1.5e+302], t$95$2, N[(b * N[(y4 * N[(y * (-k)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 16: 26.9% accurate, 4.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{if}\;y4 \leq -9 \cdot 10^{+125}:\\ \;\;\;\;t \cdot \left(b \cdot \left(j \cdot y4\right)\right)\\ \mathbf{elif}\;y4 \leq -2.25 \cdot 10^{-69}:\\ \;\;\;\;c \cdot \left(t \cdot \left(y2 \cdot \left(-y4\right)\right)\right)\\ \mathbf{elif}\;y4 \leq -2.4 \cdot 10^{-297}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y4 \leq 6.2 \cdot 10^{-190}:\\ \;\;\;\;t \cdot \left(a \cdot \left(y2 \cdot y5\right)\right)\\ \mathbf{elif}\;y4 \leq 7 \cdot 10^{+205}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y4 \leq 3.1 \cdot 10^{+290}:\\ \;\;\;\;k \cdot \left(y1 \cdot \left(y2 \cdot y4\right)\right)\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* a (* (- (* x y) (* z t)) b))))
   (if (<= y4 -9e+125)
     (* t (* b (* j y4)))
     (if (<= y4 -2.25e-69)
       (* c (* t (* y2 (- y4))))
       (if (<= y4 -2.4e-297)
         t_1
         (if (<= y4 6.2e-190)
           (* t (* a (* y2 y5)))
           (if (<= y4 7e+205)
             t_1
             (if (<= y4 3.1e+290)
               (* k (* y1 (* y2 y4)))
               (* b (* j (* t y4)))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = a * (((x * y) - (z * t)) * b);
	double tmp;
	if (y4 <= -9e+125) {
		tmp = t * (b * (j * y4));
	} else if (y4 <= -2.25e-69) {
		tmp = c * (t * (y2 * -y4));
	} else if (y4 <= -2.4e-297) {
		tmp = t_1;
	} else if (y4 <= 6.2e-190) {
		tmp = t * (a * (y2 * y5));
	} else if (y4 <= 7e+205) {
		tmp = t_1;
	} else if (y4 <= 3.1e+290) {
		tmp = k * (y1 * (y2 * y4));
	} else {
		tmp = b * (j * (t * y4));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: tmp
    t_1 = a * (((x * y) - (z * t)) * b)
    if (y4 <= (-9d+125)) then
        tmp = t * (b * (j * y4))
    else if (y4 <= (-2.25d-69)) then
        tmp = c * (t * (y2 * -y4))
    else if (y4 <= (-2.4d-297)) then
        tmp = t_1
    else if (y4 <= 6.2d-190) then
        tmp = t * (a * (y2 * y5))
    else if (y4 <= 7d+205) then
        tmp = t_1
    else if (y4 <= 3.1d+290) then
        tmp = k * (y1 * (y2 * y4))
    else
        tmp = b * (j * (t * y4))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = a * (((x * y) - (z * t)) * b);
	double tmp;
	if (y4 <= -9e+125) {
		tmp = t * (b * (j * y4));
	} else if (y4 <= -2.25e-69) {
		tmp = c * (t * (y2 * -y4));
	} else if (y4 <= -2.4e-297) {
		tmp = t_1;
	} else if (y4 <= 6.2e-190) {
		tmp = t * (a * (y2 * y5));
	} else if (y4 <= 7e+205) {
		tmp = t_1;
	} else if (y4 <= 3.1e+290) {
		tmp = k * (y1 * (y2 * y4));
	} else {
		tmp = b * (j * (t * y4));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = a * (((x * y) - (z * t)) * b)
	tmp = 0
	if y4 <= -9e+125:
		tmp = t * (b * (j * y4))
	elif y4 <= -2.25e-69:
		tmp = c * (t * (y2 * -y4))
	elif y4 <= -2.4e-297:
		tmp = t_1
	elif y4 <= 6.2e-190:
		tmp = t * (a * (y2 * y5))
	elif y4 <= 7e+205:
		tmp = t_1
	elif y4 <= 3.1e+290:
		tmp = k * (y1 * (y2 * y4))
	else:
		tmp = b * (j * (t * y4))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b))
	tmp = 0.0
	if (y4 <= -9e+125)
		tmp = Float64(t * Float64(b * Float64(j * y4)));
	elseif (y4 <= -2.25e-69)
		tmp = Float64(c * Float64(t * Float64(y2 * Float64(-y4))));
	elseif (y4 <= -2.4e-297)
		tmp = t_1;
	elseif (y4 <= 6.2e-190)
		tmp = Float64(t * Float64(a * Float64(y2 * y5)));
	elseif (y4 <= 7e+205)
		tmp = t_1;
	elseif (y4 <= 3.1e+290)
		tmp = Float64(k * Float64(y1 * Float64(y2 * y4)));
	else
		tmp = Float64(b * Float64(j * Float64(t * y4)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = a * (((x * y) - (z * t)) * b);
	tmp = 0.0;
	if (y4 <= -9e+125)
		tmp = t * (b * (j * y4));
	elseif (y4 <= -2.25e-69)
		tmp = c * (t * (y2 * -y4));
	elseif (y4 <= -2.4e-297)
		tmp = t_1;
	elseif (y4 <= 6.2e-190)
		tmp = t * (a * (y2 * y5));
	elseif (y4 <= 7e+205)
		tmp = t_1;
	elseif (y4 <= 3.1e+290)
		tmp = k * (y1 * (y2 * y4));
	else
		tmp = b * (j * (t * y4));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -9e+125], N[(t * N[(b * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.25e-69], N[(c * N[(t * N[(y2 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.4e-297], t$95$1, If[LessEqual[y4, 6.2e-190], N[(t * N[(a * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 7e+205], t$95$1, If[LessEqual[y4, 3.1e+290], N[(k * N[(y1 * N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 17: 27.5% accurate, 4.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{if}\;j \leq 1.82 \cdot 10^{-72}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;j \leq 3.15 \cdot 10^{-28}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;j \leq 3.2 \cdot 10^{+26}:\\ \;\;\;\;y4 \cdot \left(b \cdot \left(t \cdot j\right)\right)\\ \mathbf{elif}\;j \leq 4.6 \cdot 10^{+102}:\\ \;\;\;\;c \cdot \left(t \cdot \left(y2 \cdot \left(-y4\right)\right)\right)\\ \mathbf{elif}\;j \leq 1.6 \cdot 10^{+178}:\\ \;\;\;\;t_1\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* b (* y0 (- (* z k) (* x j))))))
   (if (<= j 1.82e-72)
     (* a (* (- (* x y) (* z t)) b))
     (if (<= j 3.15e-28)
       t_1
       (if (<= j 3.2e+26)
         (* y4 (* b (* t j)))
         (if (<= j 4.6e+102)
           (* c (* t (* y2 (- y4))))
           (if (<= j 1.6e+178) t_1 (* b (* t (* j y4))))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = b * (y0 * ((z * k) - (x * j)));
	double tmp;
	if (j <= 1.82e-72) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (j <= 3.15e-28) {
		tmp = t_1;
	} else if (j <= 3.2e+26) {
		tmp = y4 * (b * (t * j));
	} else if (j <= 4.6e+102) {
		tmp = c * (t * (y2 * -y4));
	} else if (j <= 1.6e+178) {
		tmp = t_1;
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Fortran

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 * (y0 * ((z * k) - (x * j)))
    if (j <= 1.82d-72) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (j <= 3.15d-28) then
        tmp = t_1
    else if (j <= 3.2d+26) then
        tmp = y4 * (b * (t * j))
    else if (j <= 4.6d+102) then
        tmp = c * (t * (y2 * -y4))
    else if (j <= 1.6d+178) then
        tmp = t_1
    else
        tmp = b * (t * (j * y4))
    end if
    code = tmp
end function

Java

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 * (y0 * ((z * k) - (x * j)));
	double tmp;
	if (j <= 1.82e-72) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (j <= 3.15e-28) {
		tmp = t_1;
	} else if (j <= 3.2e+26) {
		tmp = y4 * (b * (t * j));
	} else if (j <= 4.6e+102) {
		tmp = c * (t * (y2 * -y4));
	} else if (j <= 1.6e+178) {
		tmp = t_1;
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = b * (y0 * ((z * k) - (x * j)))
	tmp = 0
	if j <= 1.82e-72:
		tmp = a * (((x * y) - (z * t)) * b)
	elif j <= 3.15e-28:
		tmp = t_1
	elif j <= 3.2e+26:
		tmp = y4 * (b * (t * j))
	elif j <= 4.6e+102:
		tmp = c * (t * (y2 * -y4))
	elif j <= 1.6e+178:
		tmp = t_1
	else:
		tmp = b * (t * (j * y4))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))))
	tmp = 0.0
	if (j <= 1.82e-72)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (j <= 3.15e-28)
		tmp = t_1;
	elseif (j <= 3.2e+26)
		tmp = Float64(y4 * Float64(b * Float64(t * j)));
	elseif (j <= 4.6e+102)
		tmp = Float64(c * Float64(t * Float64(y2 * Float64(-y4))));
	elseif (j <= 1.6e+178)
		tmp = t_1;
	else
		tmp = Float64(b * Float64(t * Float64(j * y4)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = b * (y0 * ((z * k) - (x * j)));
	tmp = 0.0;
	if (j <= 1.82e-72)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (j <= 3.15e-28)
		tmp = t_1;
	elseif (j <= 3.2e+26)
		tmp = y4 * (b * (t * j));
	elseif (j <= 4.6e+102)
		tmp = c * (t * (y2 * -y4));
	elseif (j <= 1.6e+178)
		tmp = t_1;
	else
		tmp = b * (t * (j * y4));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[j, 1.82e-72], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.15e-28], t$95$1, If[LessEqual[j, 3.2e+26], N[(y4 * N[(b * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 4.6e+102], N[(c * N[(t * N[(y2 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1.6e+178], t$95$1, N[(b * N[(t * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 18: 22.4% accurate, 4.7× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := t \cdot \left(b \cdot \left(j \cdot y4\right)\right)\\ \mathbf{if}\;y4 \leq -3 \cdot 10^{+126}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y4 \leq -1.52 \cdot 10^{-46}:\\ \;\;\;\;t \cdot \left(c \cdot \left(y2 \cdot \left(-y4\right)\right)\right)\\ \mathbf{elif}\;y4 \leq -7.8 \cdot 10^{-151}:\\ \;\;\;\;t \cdot \left(i \cdot \left(j \cdot \left(-y5\right)\right)\right)\\ \mathbf{elif}\;y4 \leq 4 \cdot 10^{-54}:\\ \;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\ \mathbf{elif}\;y4 \leq 6 \cdot 10^{+71}:\\ \;\;\;\;a \cdot \left(b \cdot \left(t \cdot \left(-z\right)\right)\right)\\ \mathbf{elif}\;y4 \leq 8.6 \cdot 10^{+117}:\\ \;\;\;\;k \cdot \left(b \cdot \left(y \cdot \left(-y4\right)\right)\right)\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* t (* b (* j y4)))))
   (if (<= y4 -3e+126)
     t_1
     (if (<= y4 -1.52e-46)
       (* t (* c (* y2 (- y4))))
       (if (<= y4 -7.8e-151)
         (* t (* i (* j (- y5))))
         (if (<= y4 4e-54)
           (* a (* y (* x b)))
           (if (<= y4 6e+71)
             (* a (* b (* t (- z))))
             (if (<= y4 8.6e+117) (* k (* b (* y (- y4)))) t_1))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = t * (b * (j * y4));
	double tmp;
	if (y4 <= -3e+126) {
		tmp = t_1;
	} else if (y4 <= -1.52e-46) {
		tmp = t * (c * (y2 * -y4));
	} else if (y4 <= -7.8e-151) {
		tmp = t * (i * (j * -y5));
	} else if (y4 <= 4e-54) {
		tmp = a * (y * (x * b));
	} else if (y4 <= 6e+71) {
		tmp = a * (b * (t * -z));
	} else if (y4 <= 8.6e+117) {
		tmp = k * (b * (y * -y4));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: tmp
    t_1 = t * (b * (j * y4))
    if (y4 <= (-3d+126)) then
        tmp = t_1
    else if (y4 <= (-1.52d-46)) then
        tmp = t * (c * (y2 * -y4))
    else if (y4 <= (-7.8d-151)) then
        tmp = t * (i * (j * -y5))
    else if (y4 <= 4d-54) then
        tmp = a * (y * (x * b))
    else if (y4 <= 6d+71) then
        tmp = a * (b * (t * -z))
    else if (y4 <= 8.6d+117) then
        tmp = k * (b * (y * -y4))
    else
        tmp = t_1
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = t * (b * (j * y4));
	double tmp;
	if (y4 <= -3e+126) {
		tmp = t_1;
	} else if (y4 <= -1.52e-46) {
		tmp = t * (c * (y2 * -y4));
	} else if (y4 <= -7.8e-151) {
		tmp = t * (i * (j * -y5));
	} else if (y4 <= 4e-54) {
		tmp = a * (y * (x * b));
	} else if (y4 <= 6e+71) {
		tmp = a * (b * (t * -z));
	} else if (y4 <= 8.6e+117) {
		tmp = k * (b * (y * -y4));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = t * (b * (j * y4))
	tmp = 0
	if y4 <= -3e+126:
		tmp = t_1
	elif y4 <= -1.52e-46:
		tmp = t * (c * (y2 * -y4))
	elif y4 <= -7.8e-151:
		tmp = t * (i * (j * -y5))
	elif y4 <= 4e-54:
		tmp = a * (y * (x * b))
	elif y4 <= 6e+71:
		tmp = a * (b * (t * -z))
	elif y4 <= 8.6e+117:
		tmp = k * (b * (y * -y4))
	else:
		tmp = t_1
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(t * Float64(b * Float64(j * y4)))
	tmp = 0.0
	if (y4 <= -3e+126)
		tmp = t_1;
	elseif (y4 <= -1.52e-46)
		tmp = Float64(t * Float64(c * Float64(y2 * Float64(-y4))));
	elseif (y4 <= -7.8e-151)
		tmp = Float64(t * Float64(i * Float64(j * Float64(-y5))));
	elseif (y4 <= 4e-54)
		tmp = Float64(a * Float64(y * Float64(x * b)));
	elseif (y4 <= 6e+71)
		tmp = Float64(a * Float64(b * Float64(t * Float64(-z))));
	elseif (y4 <= 8.6e+117)
		tmp = Float64(k * Float64(b * Float64(y * Float64(-y4))));
	else
		tmp = t_1;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = t * (b * (j * y4));
	tmp = 0.0;
	if (y4 <= -3e+126)
		tmp = t_1;
	elseif (y4 <= -1.52e-46)
		tmp = t * (c * (y2 * -y4));
	elseif (y4 <= -7.8e-151)
		tmp = t * (i * (j * -y5));
	elseif (y4 <= 4e-54)
		tmp = a * (y * (x * b));
	elseif (y4 <= 6e+71)
		tmp = a * (b * (t * -z));
	elseif (y4 <= 8.6e+117)
		tmp = k * (b * (y * -y4));
	else
		tmp = t_1;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(b * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -3e+126], t$95$1, If[LessEqual[y4, -1.52e-46], N[(t * N[(c * N[(y2 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -7.8e-151], N[(t * N[(i * N[(j * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 4e-54], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 6e+71], N[(a * N[(b * N[(t * (-z)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 8.6e+117], N[(k * N[(b * N[(y * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 19: 22.4% accurate, 4.7× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := t \cdot \left(b \cdot \left(j \cdot y4\right)\right)\\ \mathbf{if}\;y4 \leq -6.2 \cdot 10^{+126}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y4 \leq -3.7 \cdot 10^{-46}:\\ \;\;\;\;c \cdot \left(t \cdot \left(y2 \cdot \left(-y4\right)\right)\right)\\ \mathbf{elif}\;y4 \leq -1 \cdot 10^{-150}:\\ \;\;\;\;t \cdot \left(i \cdot \left(j \cdot \left(-y5\right)\right)\right)\\ \mathbf{elif}\;y4 \leq 1.65 \cdot 10^{-52}:\\ \;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\ \mathbf{elif}\;y4 \leq 1.3 \cdot 10^{+78}:\\ \;\;\;\;a \cdot \left(b \cdot \left(t \cdot \left(-z\right)\right)\right)\\ \mathbf{elif}\;y4 \leq 7.6 \cdot 10^{+116}:\\ \;\;\;\;k \cdot \left(b \cdot \left(y \cdot \left(-y4\right)\right)\right)\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* t (* b (* j y4)))))
   (if (<= y4 -6.2e+126)
     t_1
     (if (<= y4 -3.7e-46)
       (* c (* t (* y2 (- y4))))
       (if (<= y4 -1e-150)
         (* t (* i (* j (- y5))))
         (if (<= y4 1.65e-52)
           (* a (* y (* x b)))
           (if (<= y4 1.3e+78)
             (* a (* b (* t (- z))))
             (if (<= y4 7.6e+116) (* k (* b (* y (- y4)))) t_1))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = t * (b * (j * y4));
	double tmp;
	if (y4 <= -6.2e+126) {
		tmp = t_1;
	} else if (y4 <= -3.7e-46) {
		tmp = c * (t * (y2 * -y4));
	} else if (y4 <= -1e-150) {
		tmp = t * (i * (j * -y5));
	} else if (y4 <= 1.65e-52) {
		tmp = a * (y * (x * b));
	} else if (y4 <= 1.3e+78) {
		tmp = a * (b * (t * -z));
	} else if (y4 <= 7.6e+116) {
		tmp = k * (b * (y * -y4));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: tmp
    t_1 = t * (b * (j * y4))
    if (y4 <= (-6.2d+126)) then
        tmp = t_1
    else if (y4 <= (-3.7d-46)) then
        tmp = c * (t * (y2 * -y4))
    else if (y4 <= (-1d-150)) then
        tmp = t * (i * (j * -y5))
    else if (y4 <= 1.65d-52) then
        tmp = a * (y * (x * b))
    else if (y4 <= 1.3d+78) then
        tmp = a * (b * (t * -z))
    else if (y4 <= 7.6d+116) then
        tmp = k * (b * (y * -y4))
    else
        tmp = t_1
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = t * (b * (j * y4));
	double tmp;
	if (y4 <= -6.2e+126) {
		tmp = t_1;
	} else if (y4 <= -3.7e-46) {
		tmp = c * (t * (y2 * -y4));
	} else if (y4 <= -1e-150) {
		tmp = t * (i * (j * -y5));
	} else if (y4 <= 1.65e-52) {
		tmp = a * (y * (x * b));
	} else if (y4 <= 1.3e+78) {
		tmp = a * (b * (t * -z));
	} else if (y4 <= 7.6e+116) {
		tmp = k * (b * (y * -y4));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = t * (b * (j * y4))
	tmp = 0
	if y4 <= -6.2e+126:
		tmp = t_1
	elif y4 <= -3.7e-46:
		tmp = c * (t * (y2 * -y4))
	elif y4 <= -1e-150:
		tmp = t * (i * (j * -y5))
	elif y4 <= 1.65e-52:
		tmp = a * (y * (x * b))
	elif y4 <= 1.3e+78:
		tmp = a * (b * (t * -z))
	elif y4 <= 7.6e+116:
		tmp = k * (b * (y * -y4))
	else:
		tmp = t_1
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(t * Float64(b * Float64(j * y4)))
	tmp = 0.0
	if (y4 <= -6.2e+126)
		tmp = t_1;
	elseif (y4 <= -3.7e-46)
		tmp = Float64(c * Float64(t * Float64(y2 * Float64(-y4))));
	elseif (y4 <= -1e-150)
		tmp = Float64(t * Float64(i * Float64(j * Float64(-y5))));
	elseif (y4 <= 1.65e-52)
		tmp = Float64(a * Float64(y * Float64(x * b)));
	elseif (y4 <= 1.3e+78)
		tmp = Float64(a * Float64(b * Float64(t * Float64(-z))));
	elseif (y4 <= 7.6e+116)
		tmp = Float64(k * Float64(b * Float64(y * Float64(-y4))));
	else
		tmp = t_1;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = t * (b * (j * y4));
	tmp = 0.0;
	if (y4 <= -6.2e+126)
		tmp = t_1;
	elseif (y4 <= -3.7e-46)
		tmp = c * (t * (y2 * -y4));
	elseif (y4 <= -1e-150)
		tmp = t * (i * (j * -y5));
	elseif (y4 <= 1.65e-52)
		tmp = a * (y * (x * b));
	elseif (y4 <= 1.3e+78)
		tmp = a * (b * (t * -z));
	elseif (y4 <= 7.6e+116)
		tmp = k * (b * (y * -y4));
	else
		tmp = t_1;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(b * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -6.2e+126], t$95$1, If[LessEqual[y4, -3.7e-46], N[(c * N[(t * N[(y2 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -1e-150], N[(t * N[(i * N[(j * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.65e-52], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.3e+78], N[(a * N[(b * N[(t * (-z)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 7.6e+116], N[(k * N[(b * N[(y * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 20: 22.4% accurate, 4.7× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_1 := t \cdot \left(b \cdot \left(j \cdot y4\right)\right)\\ \mathbf{if}\;y4 \leq -1.1 \cdot 10^{+128}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;y4 \leq -2.5 \cdot 10^{-46}:\\ \;\;\;\;c \cdot \left(t \cdot \left(y2 \cdot \left(-y4\right)\right)\right)\\ \mathbf{elif}\;y4 \leq -2.3 \cdot 10^{-151}:\\ \;\;\;\;i \cdot \left(j \cdot \left(t \cdot \left(-y5\right)\right)\right)\\ \mathbf{elif}\;y4 \leq 4.2 \cdot 10^{-58}:\\ \;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\ \mathbf{elif}\;y4 \leq 1.4 \cdot 10^{+71}:\\ \;\;\;\;a \cdot \left(b \cdot \left(t \cdot \left(-z\right)\right)\right)\\ \mathbf{elif}\;y4 \leq 5.5 \cdot 10^{+117}:\\ \;\;\;\;k \cdot \left(b \cdot \left(y \cdot \left(-y4\right)\right)\right)\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (let* ((t_1 (* t (* b (* j y4)))))
   (if (<= y4 -1.1e+128)
     t_1
     (if (<= y4 -2.5e-46)
       (* c (* t (* y2 (- y4))))
       (if (<= y4 -2.3e-151)
         (* i (* j (* t (- y5))))
         (if (<= y4 4.2e-58)
           (* a (* y (* x b)))
           (if (<= y4 1.4e+71)
             (* a (* b (* t (- z))))
             (if (<= y4 5.5e+117) (* k (* b (* y (- y4)))) t_1))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = t * (b * (j * y4));
	double tmp;
	if (y4 <= -1.1e+128) {
		tmp = t_1;
	} else if (y4 <= -2.5e-46) {
		tmp = c * (t * (y2 * -y4));
	} else if (y4 <= -2.3e-151) {
		tmp = i * (j * (t * -y5));
	} else if (y4 <= 4.2e-58) {
		tmp = a * (y * (x * b));
	} else if (y4 <= 1.4e+71) {
		tmp = a * (b * (t * -z));
	} else if (y4 <= 5.5e+117) {
		tmp = k * (b * (y * -y4));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: t_1
    real(8) :: tmp
    t_1 = t * (b * (j * y4))
    if (y4 <= (-1.1d+128)) then
        tmp = t_1
    else if (y4 <= (-2.5d-46)) then
        tmp = c * (t * (y2 * -y4))
    else if (y4 <= (-2.3d-151)) then
        tmp = i * (j * (t * -y5))
    else if (y4 <= 4.2d-58) then
        tmp = a * (y * (x * b))
    else if (y4 <= 1.4d+71) then
        tmp = a * (b * (t * -z))
    else if (y4 <= 5.5d+117) then
        tmp = k * (b * (y * -y4))
    else
        tmp = t_1
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = t * (b * (j * y4));
	double tmp;
	if (y4 <= -1.1e+128) {
		tmp = t_1;
	} else if (y4 <= -2.5e-46) {
		tmp = c * (t * (y2 * -y4));
	} else if (y4 <= -2.3e-151) {
		tmp = i * (j * (t * -y5));
	} else if (y4 <= 4.2e-58) {
		tmp = a * (y * (x * b));
	} else if (y4 <= 1.4e+71) {
		tmp = a * (b * (t * -z));
	} else if (y4 <= 5.5e+117) {
		tmp = k * (b * (y * -y4));
	} else {
		tmp = t_1;
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	t_1 = t * (b * (j * y4))
	tmp = 0
	if y4 <= -1.1e+128:
		tmp = t_1
	elif y4 <= -2.5e-46:
		tmp = c * (t * (y2 * -y4))
	elif y4 <= -2.3e-151:
		tmp = i * (j * (t * -y5))
	elif y4 <= 4.2e-58:
		tmp = a * (y * (x * b))
	elif y4 <= 1.4e+71:
		tmp = a * (b * (t * -z))
	elif y4 <= 5.5e+117:
		tmp = k * (b * (y * -y4))
	else:
		tmp = t_1
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = Float64(t * Float64(b * Float64(j * y4)))
	tmp = 0.0
	if (y4 <= -1.1e+128)
		tmp = t_1;
	elseif (y4 <= -2.5e-46)
		tmp = Float64(c * Float64(t * Float64(y2 * Float64(-y4))));
	elseif (y4 <= -2.3e-151)
		tmp = Float64(i * Float64(j * Float64(t * Float64(-y5))));
	elseif (y4 <= 4.2e-58)
		tmp = Float64(a * Float64(y * Float64(x * b)));
	elseif (y4 <= 1.4e+71)
		tmp = Float64(a * Float64(b * Float64(t * Float64(-z))));
	elseif (y4 <= 5.5e+117)
		tmp = Float64(k * Float64(b * Float64(y * Float64(-y4))));
	else
		tmp = t_1;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	t_1 = t * (b * (j * y4));
	tmp = 0.0;
	if (y4 <= -1.1e+128)
		tmp = t_1;
	elseif (y4 <= -2.5e-46)
		tmp = c * (t * (y2 * -y4));
	elseif (y4 <= -2.3e-151)
		tmp = i * (j * (t * -y5));
	elseif (y4 <= 4.2e-58)
		tmp = a * (y * (x * b));
	elseif (y4 <= 1.4e+71)
		tmp = a * (b * (t * -z));
	elseif (y4 <= 5.5e+117)
		tmp = k * (b * (y * -y4));
	else
		tmp = t_1;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := Block[{t$95$1 = N[(t * N[(b * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y4, -1.1e+128], t$95$1, If[LessEqual[y4, -2.5e-46], N[(c * N[(t * N[(y2 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, -2.3e-151], N[(i * N[(j * N[(t * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 4.2e-58], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 1.4e+71], N[(a * N[(b * N[(t * (-z)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y4, 5.5e+117], N[(k * N[(b * N[(y * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 21: 29.0% accurate, 4.9× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;j \leq 3.8 \cdot 10^{-168}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;j \leq 3.1 \cdot 10^{+102}:\\ \;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\ \mathbf{elif}\;j \leq 1.1 \cdot 10^{+213}:\\ \;\;\;\;b \cdot \left(y0 \cdot \left(z \cdot k - x \cdot j\right)\right)\\ \mathbf{elif}\;j \leq 2.6 \cdot 10^{+238}:\\ \;\;\;\;i \cdot \left(j \cdot \left(t \cdot \left(-y5\right)\right)\right)\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= j 3.8e-168)
   (* a (* (- (* x y) (* z t)) b))
   (if (<= j 3.1e+102)
     (* c (* y4 (- (* y y3) (* t y2))))
     (if (<= j 1.1e+213)
       (* b (* y0 (- (* z k) (* x j))))
       (if (<= j 2.6e+238)
         (* i (* j (* t (- y5))))
         (* b (* x (- (* y a) (* j y0)))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= 3.8e-168) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (j <= 3.1e+102) {
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	} else if (j <= 1.1e+213) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (j <= 2.6e+238) {
		tmp = i * (j * (t * -y5));
	} else {
		tmp = b * (x * ((y * a) - (j * y0)));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if (j <= 3.8d-168) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (j <= 3.1d+102) then
        tmp = c * (y4 * ((y * y3) - (t * y2)))
    else if (j <= 1.1d+213) then
        tmp = b * (y0 * ((z * k) - (x * j)))
    else if (j <= 2.6d+238) then
        tmp = i * (j * (t * -y5))
    else
        tmp = b * (x * ((y * a) - (j * y0)))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= 3.8e-168) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (j <= 3.1e+102) {
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	} else if (j <= 1.1e+213) {
		tmp = b * (y0 * ((z * k) - (x * j)));
	} else if (j <= 2.6e+238) {
		tmp = i * (j * (t * -y5));
	} else {
		tmp = b * (x * ((y * a) - (j * y0)));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if j <= 3.8e-168:
		tmp = a * (((x * y) - (z * t)) * b)
	elif j <= 3.1e+102:
		tmp = c * (y4 * ((y * y3) - (t * y2)))
	elif j <= 1.1e+213:
		tmp = b * (y0 * ((z * k) - (x * j)))
	elif j <= 2.6e+238:
		tmp = i * (j * (t * -y5))
	else:
		tmp = b * (x * ((y * a) - (j * y0)))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (j <= 3.8e-168)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (j <= 3.1e+102)
		tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))));
	elseif (j <= 1.1e+213)
		tmp = Float64(b * Float64(y0 * Float64(Float64(z * k) - Float64(x * j))));
	elseif (j <= 2.6e+238)
		tmp = Float64(i * Float64(j * Float64(t * Float64(-y5))));
	else
		tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (j <= 3.8e-168)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (j <= 3.1e+102)
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	elseif (j <= 1.1e+213)
		tmp = b * (y0 * ((z * k) - (x * j)));
	elseif (j <= 2.6e+238)
		tmp = i * (j * (t * -y5));
	else
		tmp = b * (x * ((y * a) - (j * y0)));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[j, 3.8e-168], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.1e+102], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 1.1e+213], N[(b * N[(y0 * N[(N[(z * k), $MachinePrecision] - N[(x * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 2.6e+238], N[(i * N[(j * N[(t * (-y5)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 22: 31.9% accurate, 4.9× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -1.12 \cdot 10^{-63}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;b \leq 12000000000:\\ \;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\ \mathbf{elif}\;b \leq 1.55 \cdot 10^{+70}:\\ \;\;\;\;k \cdot \left(y2 \cdot \left(y1 \cdot y4 - y0 \cdot y5\right)\right)\\ \mathbf{elif}\;b \leq 4.9 \cdot 10^{+97}:\\ \;\;\;\;c \cdot \left(t \cdot \left(z \cdot i - y2 \cdot y4\right)\right)\\ \mathbf{else}:\\ \;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= b -1.12e-63)
   (* a (* (- (* x y) (* z t)) b))
   (if (<= b 12000000000.0)
     (* c (* y4 (- (* y y3) (* t y2))))
     (if (<= b 1.55e+70)
       (* k (* y2 (- (* y1 y4) (* y0 y5))))
       (if (<= b 4.9e+97)
         (* c (* t (- (* z i) (* y2 y4))))
         (* k (* y (- (* i y5) (* b y4)))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (b <= -1.12e-63) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (b <= 12000000000.0) {
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	} else if (b <= 1.55e+70) {
		tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
	} else if (b <= 4.9e+97) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else {
		tmp = k * (y * ((i * y5) - (b * y4)));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if (b <= (-1.12d-63)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (b <= 12000000000.0d0) then
        tmp = c * (y4 * ((y * y3) - (t * y2)))
    else if (b <= 1.55d+70) then
        tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
    else if (b <= 4.9d+97) then
        tmp = c * (t * ((z * i) - (y2 * y4)))
    else
        tmp = k * (y * ((i * y5) - (b * y4)))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (b <= -1.12e-63) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (b <= 12000000000.0) {
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	} else if (b <= 1.55e+70) {
		tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
	} else if (b <= 4.9e+97) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else {
		tmp = k * (y * ((i * y5) - (b * y4)));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if b <= -1.12e-63:
		tmp = a * (((x * y) - (z * t)) * b)
	elif b <= 12000000000.0:
		tmp = c * (y4 * ((y * y3) - (t * y2)))
	elif b <= 1.55e+70:
		tmp = k * (y2 * ((y1 * y4) - (y0 * y5)))
	elif b <= 4.9e+97:
		tmp = c * (t * ((z * i) - (y2 * y4)))
	else:
		tmp = k * (y * ((i * y5) - (b * y4)))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (b <= -1.12e-63)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (b <= 12000000000.0)
		tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))));
	elseif (b <= 1.55e+70)
		tmp = Float64(k * Float64(y2 * Float64(Float64(y1 * y4) - Float64(y0 * y5))));
	elseif (b <= 4.9e+97)
		tmp = Float64(c * Float64(t * Float64(Float64(z * i) - Float64(y2 * y4))));
	else
		tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (b <= -1.12e-63)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (b <= 12000000000.0)
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	elseif (b <= 1.55e+70)
		tmp = k * (y2 * ((y1 * y4) - (y0 * y5)));
	elseif (b <= 4.9e+97)
		tmp = c * (t * ((z * i) - (y2 * y4)));
	else
		tmp = k * (y * ((i * y5) - (b * y4)));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[b, -1.12e-63], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 12000000000.0], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.55e+70], N[(k * N[(y2 * N[(N[(y1 * y4), $MachinePrecision] - N[(y0 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 4.9e+97], N[(c * N[(t * N[(N[(z * i), $MachinePrecision] - N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 23: 31.2% accurate, 4.9× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;b \leq -9.2 \cdot 10^{-64}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;b \leq 8.5 \cdot 10^{-6}:\\ \;\;\;\;c \cdot \left(y4 \cdot \left(y \cdot y3 - t \cdot y2\right)\right)\\ \mathbf{elif}\;b \leq 2.5 \cdot 10^{+24}:\\ \;\;\;\;t \cdot \left(j \cdot \left(b \cdot y4 - i \cdot y5\right)\right)\\ \mathbf{elif}\;b \leq 1.85 \cdot 10^{+87}:\\ \;\;\;\;k \cdot \left(y4 \cdot \left(y1 \cdot y2\right)\right)\\ \mathbf{else}:\\ \;\;\;\;k \cdot \left(y \cdot \left(i \cdot y5 - b \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= b -9.2e-64)
   (* a (* (- (* x y) (* z t)) b))
   (if (<= b 8.5e-6)
     (* c (* y4 (- (* y y3) (* t y2))))
     (if (<= b 2.5e+24)
       (* t (* j (- (* b y4) (* i y5))))
       (if (<= b 1.85e+87)
         (* k (* y4 (* y1 y2)))
         (* k (* y (- (* i y5) (* b y4)))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (b <= -9.2e-64) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (b <= 8.5e-6) {
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	} else if (b <= 2.5e+24) {
		tmp = t * (j * ((b * y4) - (i * y5)));
	} else if (b <= 1.85e+87) {
		tmp = k * (y4 * (y1 * y2));
	} else {
		tmp = k * (y * ((i * y5) - (b * y4)));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if (b <= (-9.2d-64)) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (b <= 8.5d-6) then
        tmp = c * (y4 * ((y * y3) - (t * y2)))
    else if (b <= 2.5d+24) then
        tmp = t * (j * ((b * y4) - (i * y5)))
    else if (b <= 1.85d+87) then
        tmp = k * (y4 * (y1 * y2))
    else
        tmp = k * (y * ((i * y5) - (b * y4)))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (b <= -9.2e-64) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (b <= 8.5e-6) {
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	} else if (b <= 2.5e+24) {
		tmp = t * (j * ((b * y4) - (i * y5)));
	} else if (b <= 1.85e+87) {
		tmp = k * (y4 * (y1 * y2));
	} else {
		tmp = k * (y * ((i * y5) - (b * y4)));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if b <= -9.2e-64:
		tmp = a * (((x * y) - (z * t)) * b)
	elif b <= 8.5e-6:
		tmp = c * (y4 * ((y * y3) - (t * y2)))
	elif b <= 2.5e+24:
		tmp = t * (j * ((b * y4) - (i * y5)))
	elif b <= 1.85e+87:
		tmp = k * (y4 * (y1 * y2))
	else:
		tmp = k * (y * ((i * y5) - (b * y4)))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (b <= -9.2e-64)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (b <= 8.5e-6)
		tmp = Float64(c * Float64(y4 * Float64(Float64(y * y3) - Float64(t * y2))));
	elseif (b <= 2.5e+24)
		tmp = Float64(t * Float64(j * Float64(Float64(b * y4) - Float64(i * y5))));
	elseif (b <= 1.85e+87)
		tmp = Float64(k * Float64(y4 * Float64(y1 * y2)));
	else
		tmp = Float64(k * Float64(y * Float64(Float64(i * y5) - Float64(b * y4))));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (b <= -9.2e-64)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (b <= 8.5e-6)
		tmp = c * (y4 * ((y * y3) - (t * y2)));
	elseif (b <= 2.5e+24)
		tmp = t * (j * ((b * y4) - (i * y5)));
	elseif (b <= 1.85e+87)
		tmp = k * (y4 * (y1 * y2));
	else
		tmp = k * (y * ((i * y5) - (b * y4)));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[b, -9.2e-64], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 8.5e-6], N[(c * N[(y4 * N[(N[(y * y3), $MachinePrecision] - N[(t * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 2.5e+24], N[(t * N[(j * N[(N[(b * y4), $MachinePrecision] - N[(i * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[b, 1.85e+87], N[(k * N[(y4 * N[(y1 * y2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(k * N[(y * N[(N[(i * y5), $MachinePrecision] - N[(b * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 24: 28.1% accurate, 5.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;j \leq 1.38 \cdot 10^{-49}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;j \leq 6.5 \cdot 10^{+76}:\\ \;\;\;\;c \cdot \left(t \cdot \left(y2 \cdot \left(-y4\right)\right)\right)\\ \mathbf{elif}\;j \leq 2.3 \cdot 10^{+211}:\\ \;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= j 1.38e-49)
   (* a (* (- (* x y) (* z t)) b))
   (if (<= j 6.5e+76)
     (* c (* t (* y2 (- y4))))
     (if (<= j 2.3e+211)
       (* b (* x (- (* y a) (* j y0))))
       (* b (* t (* j y4)))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= 1.38e-49) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (j <= 6.5e+76) {
		tmp = c * (t * (y2 * -y4));
	} else if (j <= 2.3e+211) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if (j <= 1.38d-49) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (j <= 6.5d+76) then
        tmp = c * (t * (y2 * -y4))
    else if (j <= 2.3d+211) then
        tmp = b * (x * ((y * a) - (j * y0)))
    else
        tmp = b * (t * (j * y4))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= 1.38e-49) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (j <= 6.5e+76) {
		tmp = c * (t * (y2 * -y4));
	} else if (j <= 2.3e+211) {
		tmp = b * (x * ((y * a) - (j * y0)));
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if j <= 1.38e-49:
		tmp = a * (((x * y) - (z * t)) * b)
	elif j <= 6.5e+76:
		tmp = c * (t * (y2 * -y4))
	elif j <= 2.3e+211:
		tmp = b * (x * ((y * a) - (j * y0)))
	else:
		tmp = b * (t * (j * y4))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (j <= 1.38e-49)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (j <= 6.5e+76)
		tmp = Float64(c * Float64(t * Float64(y2 * Float64(-y4))));
	elseif (j <= 2.3e+211)
		tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))));
	else
		tmp = Float64(b * Float64(t * Float64(j * y4)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (j <= 1.38e-49)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (j <= 6.5e+76)
		tmp = c * (t * (y2 * -y4));
	elseif (j <= 2.3e+211)
		tmp = b * (x * ((y * a) - (j * y0)));
	else
		tmp = b * (t * (j * y4));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[j, 1.38e-49], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 6.5e+76], N[(c * N[(t * N[(y2 * (-y4)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 2.3e+211], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(t * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 25: 29.3% accurate, 6.3× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;j \leq 1.06 \cdot 10^{-73}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y - z \cdot t\right) \cdot b\right)\\ \mathbf{elif}\;j \leq 3.5 \cdot 10^{+69}:\\ \;\;\;\;c \cdot \left(t \cdot \left(z \cdot i - y2 \cdot y4\right)\right)\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(x \cdot \left(y \cdot a - j \cdot y0\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= j 1.06e-73)
   (* a (* (- (* x y) (* z t)) b))
   (if (<= j 3.5e+69)
     (* c (* t (- (* z i) (* y2 y4))))
     (* b (* x (- (* y a) (* j y0)))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= 1.06e-73) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (j <= 3.5e+69) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else {
		tmp = b * (x * ((y * a) - (j * y0)));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if (j <= 1.06d-73) then
        tmp = a * (((x * y) - (z * t)) * b)
    else if (j <= 3.5d+69) then
        tmp = c * (t * ((z * i) - (y2 * y4)))
    else
        tmp = b * (x * ((y * a) - (j * y0)))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= 1.06e-73) {
		tmp = a * (((x * y) - (z * t)) * b);
	} else if (j <= 3.5e+69) {
		tmp = c * (t * ((z * i) - (y2 * y4)));
	} else {
		tmp = b * (x * ((y * a) - (j * y0)));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if j <= 1.06e-73:
		tmp = a * (((x * y) - (z * t)) * b)
	elif j <= 3.5e+69:
		tmp = c * (t * ((z * i) - (y2 * y4)))
	else:
		tmp = b * (x * ((y * a) - (j * y0)))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (j <= 1.06e-73)
		tmp = Float64(a * Float64(Float64(Float64(x * y) - Float64(z * t)) * b));
	elseif (j <= 3.5e+69)
		tmp = Float64(c * Float64(t * Float64(Float64(z * i) - Float64(y2 * y4))));
	else
		tmp = Float64(b * Float64(x * Float64(Float64(y * a) - Float64(j * y0))));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (j <= 1.06e-73)
		tmp = a * (((x * y) - (z * t)) * b);
	elseif (j <= 3.5e+69)
		tmp = c * (t * ((z * i) - (y2 * y4)));
	else
		tmp = b * (x * ((y * a) - (j * y0)));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[j, 1.06e-73], N[(a * N[(N[(N[(x * y), $MachinePrecision] - N[(z * t), $MachinePrecision]), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.5e+69], N[(c * N[(t * N[(N[(z * i), $MachinePrecision] - N[(y2 * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(x * N[(N[(y * a), $MachinePrecision] - N[(j * y0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 26: 22.6% accurate, 6.7× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;j \leq -1.45 \cdot 10^{-31}:\\ \;\;\;\;y4 \cdot \left(b \cdot \left(t \cdot j\right)\right)\\ \mathbf{elif}\;j \leq -1.32 \cdot 10^{-166}:\\ \;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\ \mathbf{elif}\;j \leq 5.5 \cdot 10^{-10}:\\ \;\;\;\;a \cdot \left(b \cdot \left(t \cdot \left(-z\right)\right)\right)\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= j -1.45e-31)
   (* y4 (* b (* t j)))
   (if (<= j -1.32e-166)
     (* a (* y (* x b)))
     (if (<= j 5.5e-10) (* a (* b (* t (- z)))) (* b (* t (* j y4)))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= -1.45e-31) {
		tmp = y4 * (b * (t * j));
	} else if (j <= -1.32e-166) {
		tmp = a * (y * (x * b));
	} else if (j <= 5.5e-10) {
		tmp = a * (b * (t * -z));
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if (j <= (-1.45d-31)) then
        tmp = y4 * (b * (t * j))
    else if (j <= (-1.32d-166)) then
        tmp = a * (y * (x * b))
    else if (j <= 5.5d-10) then
        tmp = a * (b * (t * -z))
    else
        tmp = b * (t * (j * y4))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= -1.45e-31) {
		tmp = y4 * (b * (t * j));
	} else if (j <= -1.32e-166) {
		tmp = a * (y * (x * b));
	} else if (j <= 5.5e-10) {
		tmp = a * (b * (t * -z));
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if j <= -1.45e-31:
		tmp = y4 * (b * (t * j))
	elif j <= -1.32e-166:
		tmp = a * (y * (x * b))
	elif j <= 5.5e-10:
		tmp = a * (b * (t * -z))
	else:
		tmp = b * (t * (j * y4))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (j <= -1.45e-31)
		tmp = Float64(y4 * Float64(b * Float64(t * j)));
	elseif (j <= -1.32e-166)
		tmp = Float64(a * Float64(y * Float64(x * b)));
	elseif (j <= 5.5e-10)
		tmp = Float64(a * Float64(b * Float64(t * Float64(-z))));
	else
		tmp = Float64(b * Float64(t * Float64(j * y4)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (j <= -1.45e-31)
		tmp = y4 * (b * (t * j));
	elseif (j <= -1.32e-166)
		tmp = a * (y * (x * b));
	elseif (j <= 5.5e-10)
		tmp = a * (b * (t * -z));
	else
		tmp = b * (t * (j * y4));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[j, -1.45e-31], N[(y4 * N[(b * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, -1.32e-166], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 5.5e-10], N[(a * N[(b * N[(t * (-z)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(t * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 27: 22.4% accurate, 7.2× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y \leq -1.3 \cdot 10^{+24}:\\ \;\;\;\;b \cdot \left(y4 \cdot \left(y \cdot \left(-k\right)\right)\right)\\ \mathbf{elif}\;y \leq -2.4 \cdot 10^{-77}:\\ \;\;\;\;t \cdot \left(a \cdot \left(y2 \cdot y5\right)\right)\\ \mathbf{elif}\;y \leq 3.4 \cdot 10^{-55}:\\ \;\;\;\;y4 \cdot \left(j \cdot \left(t \cdot b\right)\right)\\ \mathbf{else}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= y -1.3e+24)
   (* b (* y4 (* y (- k))))
   (if (<= y -2.4e-77)
     (* t (* a (* y2 y5)))
     (if (<= y 3.4e-55) (* y4 (* j (* t b))) (* a (* (* x y) b))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (y <= -1.3e+24) {
		tmp = b * (y4 * (y * -k));
	} else if (y <= -2.4e-77) {
		tmp = t * (a * (y2 * y5));
	} else if (y <= 3.4e-55) {
		tmp = y4 * (j * (t * b));
	} else {
		tmp = a * ((x * y) * b);
	}
	return tmp;
}

Fortran

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 (y <= (-1.3d+24)) then
        tmp = b * (y4 * (y * -k))
    else if (y <= (-2.4d-77)) then
        tmp = t * (a * (y2 * y5))
    else if (y <= 3.4d-55) then
        tmp = y4 * (j * (t * b))
    else
        tmp = a * ((x * y) * b)
    end if
    code = tmp
end function

Java

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 (y <= -1.3e+24) {
		tmp = b * (y4 * (y * -k));
	} else if (y <= -2.4e-77) {
		tmp = t * (a * (y2 * y5));
	} else if (y <= 3.4e-55) {
		tmp = y4 * (j * (t * b));
	} else {
		tmp = a * ((x * y) * b);
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if y <= -1.3e+24:
		tmp = b * (y4 * (y * -k))
	elif y <= -2.4e-77:
		tmp = t * (a * (y2 * y5))
	elif y <= 3.4e-55:
		tmp = y4 * (j * (t * b))
	else:
		tmp = a * ((x * y) * b)
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (y <= -1.3e+24)
		tmp = Float64(b * Float64(y4 * Float64(y * Float64(-k))));
	elseif (y <= -2.4e-77)
		tmp = Float64(t * Float64(a * Float64(y2 * y5)));
	elseif (y <= 3.4e-55)
		tmp = Float64(y4 * Float64(j * Float64(t * b)));
	else
		tmp = Float64(a * Float64(Float64(x * y) * b));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (y <= -1.3e+24)
		tmp = b * (y4 * (y * -k));
	elseif (y <= -2.4e-77)
		tmp = t * (a * (y2 * y5));
	elseif (y <= 3.4e-55)
		tmp = y4 * (j * (t * b));
	else
		tmp = a * ((x * y) * b);
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y, -1.3e+24], N[(b * N[(y4 * N[(y * (-k)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, -2.4e-77], N[(t * N[(a * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 3.4e-55], N[(y4 * N[(j * N[(t * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision]]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 28: 22.0% accurate, 8.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;j \leq -5.5 \cdot 10^{+120} \lor \neg \left(j \leq 2.75 \cdot 10^{-28}\right):\\ \;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4\right)\right)\\ \mathbf{else}:\\ \;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (or (<= j -5.5e+120) (not (<= j 2.75e-28)))
   (* b (* t (* j y4)))
   (* a (* y (* x b)))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if ((j <= -5.5e+120) || !(j <= 2.75e-28)) {
		tmp = b * (t * (j * y4));
	} else {
		tmp = a * (y * (x * b));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if ((j <= (-5.5d+120)) .or. (.not. (j <= 2.75d-28))) then
        tmp = b * (t * (j * y4))
    else
        tmp = a * (y * (x * b))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if ((j <= -5.5e+120) || !(j <= 2.75e-28)) {
		tmp = b * (t * (j * y4));
	} else {
		tmp = a * (y * (x * b));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if (j <= -5.5e+120) or not (j <= 2.75e-28):
		tmp = b * (t * (j * y4))
	else:
		tmp = a * (y * (x * b))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if ((j <= -5.5e+120) || !(j <= 2.75e-28))
		tmp = Float64(b * Float64(t * Float64(j * y4)));
	else
		tmp = Float64(a * Float64(y * Float64(x * b)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if ((j <= -5.5e+120) || ~((j <= 2.75e-28)))
		tmp = b * (t * (j * y4));
	else
		tmp = a * (y * (x * b));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[Or[LessEqual[j, -5.5e+120], N[Not[LessEqual[j, 2.75e-28]], $MachinePrecision]], N[(b * N[(t * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 29: 20.1% accurate, 8.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y2 \leq -1 \cdot 10^{+105}:\\ \;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\ \mathbf{elif}\;y2 \leq 9 \cdot 10^{-201}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(j \cdot \left(t \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= y2 -1e+105)
   (* a (* t (* y2 y5)))
   (if (<= y2 9e-201) (* a (* (* x y) b)) (* b (* j (* t y4))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (y2 <= -1e+105) {
		tmp = a * (t * (y2 * y5));
	} else if (y2 <= 9e-201) {
		tmp = a * ((x * y) * b);
	} else {
		tmp = b * (j * (t * y4));
	}
	return tmp;
}

Fortran

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 <= (-1d+105)) then
        tmp = a * (t * (y2 * y5))
    else if (y2 <= 9d-201) then
        tmp = a * ((x * y) * b)
    else
        tmp = b * (j * (t * y4))
    end if
    code = tmp
end function

Java

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 <= -1e+105) {
		tmp = a * (t * (y2 * y5));
	} else if (y2 <= 9e-201) {
		tmp = a * ((x * y) * b);
	} else {
		tmp = b * (j * (t * y4));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if y2 <= -1e+105:
		tmp = a * (t * (y2 * y5))
	elif y2 <= 9e-201:
		tmp = a * ((x * y) * b)
	else:
		tmp = b * (j * (t * y4))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (y2 <= -1e+105)
		tmp = Float64(a * Float64(t * Float64(y2 * y5)));
	elseif (y2 <= 9e-201)
		tmp = Float64(a * Float64(Float64(x * y) * b));
	else
		tmp = Float64(b * Float64(j * Float64(t * y4)));
	end
	return tmp
end

MATLAB

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 <= -1e+105)
		tmp = a * (t * (y2 * y5));
	elseif (y2 <= 9e-201)
		tmp = a * ((x * y) * b);
	else
		tmp = b * (j * (t * y4));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y2, -1e+105], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y2, 9e-201], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision], N[(b * N[(j * N[(t * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 30: 22.0% accurate, 8.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;j \leq -1.4 \cdot 10^{-31}:\\ \;\;\;\;t \cdot \left(b \cdot \left(j \cdot y4\right)\right)\\ \mathbf{elif}\;j \leq 3.2 \cdot 10^{-28}:\\ \;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= j -1.4e-31)
   (* t (* b (* j y4)))
   (if (<= j 3.2e-28) (* a (* y (* x b))) (* b (* t (* j y4))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= -1.4e-31) {
		tmp = t * (b * (j * y4));
	} else if (j <= 3.2e-28) {
		tmp = a * (y * (x * b));
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if (j <= (-1.4d-31)) then
        tmp = t * (b * (j * y4))
    else if (j <= 3.2d-28) then
        tmp = a * (y * (x * b))
    else
        tmp = b * (t * (j * y4))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= -1.4e-31) {
		tmp = t * (b * (j * y4));
	} else if (j <= 3.2e-28) {
		tmp = a * (y * (x * b));
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if j <= -1.4e-31:
		tmp = t * (b * (j * y4))
	elif j <= 3.2e-28:
		tmp = a * (y * (x * b))
	else:
		tmp = b * (t * (j * y4))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (j <= -1.4e-31)
		tmp = Float64(t * Float64(b * Float64(j * y4)));
	elseif (j <= 3.2e-28)
		tmp = Float64(a * Float64(y * Float64(x * b)));
	else
		tmp = Float64(b * Float64(t * Float64(j * y4)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (j <= -1.4e-31)
		tmp = t * (b * (j * y4));
	elseif (j <= 3.2e-28)
		tmp = a * (y * (x * b));
	else
		tmp = b * (t * (j * y4));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[j, -1.4e-31], N[(t * N[(b * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.2e-28], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(t * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 31: 22.2% accurate, 8.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;j \leq -1 \cdot 10^{-31}:\\ \;\;\;\;y4 \cdot \left(b \cdot \left(t \cdot j\right)\right)\\ \mathbf{elif}\;j \leq 3.5 \cdot 10^{-28}:\\ \;\;\;\;a \cdot \left(y \cdot \left(x \cdot b\right)\right)\\ \mathbf{else}:\\ \;\;\;\;b \cdot \left(t \cdot \left(j \cdot y4\right)\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= j -1e-31)
   (* y4 (* b (* t j)))
   (if (<= j 3.5e-28) (* a (* y (* x b))) (* b (* t (* j y4))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= -1e-31) {
		tmp = y4 * (b * (t * j));
	} else if (j <= 3.5e-28) {
		tmp = a * (y * (x * b));
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8), intent (in) :: t
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8), intent (in) :: i
    real(8), intent (in) :: j
    real(8), intent (in) :: k
    real(8), intent (in) :: y0
    real(8), intent (in) :: y1
    real(8), intent (in) :: y2
    real(8), intent (in) :: y3
    real(8), intent (in) :: y4
    real(8), intent (in) :: y5
    real(8) :: tmp
    if (j <= (-1d-31)) then
        tmp = y4 * (b * (t * j))
    else if (j <= 3.5d-28) then
        tmp = a * (y * (x * b))
    else
        tmp = b * (t * (j * y4))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (j <= -1e-31) {
		tmp = y4 * (b * (t * j));
	} else if (j <= 3.5e-28) {
		tmp = a * (y * (x * b));
	} else {
		tmp = b * (t * (j * y4));
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if j <= -1e-31:
		tmp = y4 * (b * (t * j))
	elif j <= 3.5e-28:
		tmp = a * (y * (x * b))
	else:
		tmp = b * (t * (j * y4))
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (j <= -1e-31)
		tmp = Float64(y4 * Float64(b * Float64(t * j)));
	elseif (j <= 3.5e-28)
		tmp = Float64(a * Float64(y * Float64(x * b)));
	else
		tmp = Float64(b * Float64(t * Float64(j * y4)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0;
	if (j <= -1e-31)
		tmp = y4 * (b * (t * j));
	elseif (j <= 3.5e-28)
		tmp = a * (y * (x * b));
	else
		tmp = b * (t * (j * y4));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[j, -1e-31], N[(y4 * N[(b * N[(t * j), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[j, 3.5e-28], N[(a * N[(y * N[(x * b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(t * N[(j * y4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 32: 19.8% accurate, 10.5× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;y2 \leq -1.08 \cdot 10^{+105}:\\ \;\;\;\;a \cdot \left(t \cdot \left(y2 \cdot y5\right)\right)\\ \mathbf{else}:\\ \;\;\;\;a \cdot \left(\left(x \cdot y\right) \cdot b\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (if (<= y2 -1.08e+105) (* a (* t (* y2 y5))) (* a (* (* x y) b))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double tmp;
	if (y2 <= -1.08e+105) {
		tmp = a * (t * (y2 * y5));
	} else {
		tmp = a * ((x * y) * b);
	}
	return tmp;
}

Fortran

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 <= (-1.08d+105)) then
        tmp = a * (t * (y2 * y5))
    else
        tmp = a * ((x * y) * b)
    end if
    code = tmp
end function

Java

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 <= -1.08e+105) {
		tmp = a * (t * (y2 * y5));
	} else {
		tmp = a * ((x * y) * b);
	}
	return tmp;
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	tmp = 0
	if y2 <= -1.08e+105:
		tmp = a * (t * (y2 * y5))
	else:
		tmp = a * ((x * y) * b)
	return tmp

Julia

function code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5)
	tmp = 0.0
	if (y2 <= -1.08e+105)
		tmp = Float64(a * Float64(t * Float64(y2 * y5)));
	else
		tmp = Float64(a * Float64(Float64(x * y) * b));
	end
	return tmp
end

MATLAB

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 <= -1.08e+105)
		tmp = a * (t * (y2 * y5));
	else
		tmp = a * ((x * y) * b);
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_, y0_, y1_, y2_, y3_, y4_, y5_] := If[LessEqual[y2, -1.08e+105], N[(a * N[(t * N[(y2 * y5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(a * N[(N[(x * y), $MachinePrecision] * b), $MachinePrecision]), $MachinePrecision]]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Alternative 33: 17.5% accurate, 13.6× speedup

Math

\[\begin{array}{l} \\ a \cdot \left(\left(x \cdot y\right) \cdot b\right) \end{array} \]

FPCore

(FPCore (x y z t a b c i j k y0 y1 y2 y3 y4 y5)
 :precision binary64
 (* a (* (* x y) b)))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	return a * ((x * y) * b);
}

Fortran

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

Java

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);
}

Python

def code(x, y, z, t, a, b, c, i, j, k, y0, y1, y2, y3, y4, y5):
	return a * ((x * y) * b)

Julia

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

MATLAB

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

Wolfram

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]

Derivation

&prev;&pcontext;&pcontext2;&ctx;
1. Add Preprocessing

Developer target: 27.9% accurate, 0.8× speedup

Math

\[\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} \]

FPCore

(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)))))))))

C

double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k, double y0, double y1, double y2, double y3, double y4, double y5) {
	double t_1 = (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;
}

Fortran

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

Java

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;
}

Python

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

Julia

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

MATLAB

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

Wolfram

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]]]]]]]]]]]]]]]]]]]]]]]]

Reproduce

herbie shell --seed 2023343 
(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

  :herbie-target
  (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)))))