Data.Colour.RGBSpace.HSL:hsl from colour-2.3.3, E

Percentage Accurate: 99.7% → 99.7%

Time: 8.4s

Alternatives: 11

Speedup: 1.0×

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

Specification

Math

\[\begin{array}{l} \\ x + \left(\left(y - x\right) \cdot 6\right) \cdot z \end{array} \]

FPCore

(FPCore (x y z) :precision binary64 (+ x (* (* (- y x) 6.0) z)))

C

double code(double x, double y, double z) {
	return x + (((y - x) * 6.0) * z);
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    code = x + (((y - x) * 6.0d0) * z)
end function

Java

public static double code(double x, double y, double z) {
	return x + (((y - x) * 6.0) * z);
}

Python

def code(x, y, z):
	return x + (((y - x) * 6.0) * z)

Julia

function code(x, y, z)
	return Float64(x + Float64(Float64(Float64(y - x) * 6.0) * z))
end

MATLAB

function tmp = code(x, y, z)
	tmp = x + (((y - x) * 6.0) * z);
end

Wolfram

code[x_, y_, z_] := N[(x + N[(N[(N[(y - x), $MachinePrecision] * 6.0), $MachinePrecision] * z), $MachinePrecision]), $MachinePrecision]

Initial Program: 99.7% accurate, 1.0× speedup

Math

\[\begin{array}{l} \\ x + \left(\left(y - x\right) \cdot 6\right) \cdot z \end{array} \]

FPCore

(FPCore (x y z) :precision binary64 (+ x (* (* (- y x) 6.0) z)))

C

double code(double x, double y, double z) {
	return x + (((y - x) * 6.0) * z);
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    code = x + (((y - x) * 6.0d0) * z)
end function

Java

public static double code(double x, double y, double z) {
	return x + (((y - x) * 6.0) * z);
}

Python

def code(x, y, z):
	return x + (((y - x) * 6.0) * z)

Julia

function code(x, y, z)
	return Float64(x + Float64(Float64(Float64(y - x) * 6.0) * z))
end

MATLAB

function tmp = code(x, y, z)
	tmp = x + (((y - x) * 6.0) * z);
end

Wolfram

code[x_, y_, z_] := N[(x + N[(N[(N[(y - x), $MachinePrecision] * 6.0), $MachinePrecision] * z), $MachinePrecision]), $MachinePrecision]

Alternative 1: 99.7% accurate, 0.1× speedup

Math

\[\begin{array}{l} \\ x + \mathsf{fma}\left(y, 6, x \cdot \left(-6\right)\right) \cdot z \end{array} \]

FPCore

(FPCore (x y z) :precision binary64 (+ x (* (fma y 6.0 (* x (- 6.0))) z)))

C

double code(double x, double y, double z) {
	return x + (fma(y, 6.0, (x * -6.0)) * z);
}

Julia

function code(x, y, z)
	return Float64(x + Float64(fma(y, 6.0, Float64(x * Float64(-6.0))) * z))
end

Wolfram

code[x_, y_, z_] := N[(x + N[(N[(y * 6.0 + N[(x * (-6.0)), $MachinePrecision]), $MachinePrecision] * z), $MachinePrecision]), $MachinePrecision]

Derivation

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

Alternative 2: 99.8% accurate, 0.1× speedup

Math

\[\begin{array}{l} \\ \mathsf{fma}\left(z \cdot \left(y - x\right), 6, x\right) \end{array} \]

FPCore

(FPCore (x y z) :precision binary64 (fma (* z (- y x)) 6.0 x))

C

double code(double x, double y, double z) {
	return fma((z * (y - x)), 6.0, x);
}

Julia

function code(x, y, z)
	return fma(Float64(z * Float64(y - x)), 6.0, x)
end

Wolfram

code[x_, y_, z_] := N[(N[(z * N[(y - x), $MachinePrecision]), $MachinePrecision] * 6.0 + x), $MachinePrecision]

Derivation

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

Alternative 3: 61.8% accurate, 0.7× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_0 := -6 \cdot \left(x \cdot z\right)\\ t_1 := 6 \cdot \left(y \cdot z\right)\\ \mathbf{if}\;z \leq -4.1 \cdot 10^{+246}:\\ \;\;\;\;t_0\\ \mathbf{elif}\;z \leq -2.9 \cdot 10^{-25}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;z \leq 8.8 \cdot 10^{-23}:\\ \;\;\;\;x\\ \mathbf{elif}\;z \leq 1.75 \cdot 10^{+276}:\\ \;\;\;\;t_1\\ \mathbf{else}:\\ \;\;\;\;t_0\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z)
 :precision binary64
 (let* ((t_0 (* -6.0 (* x z))) (t_1 (* 6.0 (* y z))))
   (if (<= z -4.1e+246)
     t_0
     (if (<= z -2.9e-25)
       t_1
       (if (<= z 8.8e-23) x (if (<= z 1.75e+276) t_1 t_0))))))

C

double code(double x, double y, double z) {
	double t_0 = -6.0 * (x * z);
	double t_1 = 6.0 * (y * z);
	double tmp;
	if (z <= -4.1e+246) {
		tmp = t_0;
	} else if (z <= -2.9e-25) {
		tmp = t_1;
	} else if (z <= 8.8e-23) {
		tmp = x;
	} else if (z <= 1.75e+276) {
		tmp = t_1;
	} else {
		tmp = t_0;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8) :: t_0
    real(8) :: t_1
    real(8) :: tmp
    t_0 = (-6.0d0) * (x * z)
    t_1 = 6.0d0 * (y * z)
    if (z <= (-4.1d+246)) then
        tmp = t_0
    else if (z <= (-2.9d-25)) then
        tmp = t_1
    else if (z <= 8.8d-23) then
        tmp = x
    else if (z <= 1.75d+276) then
        tmp = t_1
    else
        tmp = t_0
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z) {
	double t_0 = -6.0 * (x * z);
	double t_1 = 6.0 * (y * z);
	double tmp;
	if (z <= -4.1e+246) {
		tmp = t_0;
	} else if (z <= -2.9e-25) {
		tmp = t_1;
	} else if (z <= 8.8e-23) {
		tmp = x;
	} else if (z <= 1.75e+276) {
		tmp = t_1;
	} else {
		tmp = t_0;
	}
	return tmp;
}

Python

def code(x, y, z):
	t_0 = -6.0 * (x * z)
	t_1 = 6.0 * (y * z)
	tmp = 0
	if z <= -4.1e+246:
		tmp = t_0
	elif z <= -2.9e-25:
		tmp = t_1
	elif z <= 8.8e-23:
		tmp = x
	elif z <= 1.75e+276:
		tmp = t_1
	else:
		tmp = t_0
	return tmp

Julia

function code(x, y, z)
	t_0 = Float64(-6.0 * Float64(x * z))
	t_1 = Float64(6.0 * Float64(y * z))
	tmp = 0.0
	if (z <= -4.1e+246)
		tmp = t_0;
	elseif (z <= -2.9e-25)
		tmp = t_1;
	elseif (z <= 8.8e-23)
		tmp = x;
	elseif (z <= 1.75e+276)
		tmp = t_1;
	else
		tmp = t_0;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z)
	t_0 = -6.0 * (x * z);
	t_1 = 6.0 * (y * z);
	tmp = 0.0;
	if (z <= -4.1e+246)
		tmp = t_0;
	elseif (z <= -2.9e-25)
		tmp = t_1;
	elseif (z <= 8.8e-23)
		tmp = x;
	elseif (z <= 1.75e+276)
		tmp = t_1;
	else
		tmp = t_0;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_] := Block[{t$95$0 = N[(-6.0 * N[(x * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(6.0 * N[(y * z), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -4.1e+246], t$95$0, If[LessEqual[z, -2.9e-25], t$95$1, If[LessEqual[z, 8.8e-23], x, If[LessEqual[z, 1.75e+276], t$95$1, t$95$0]]]]]]

Derivation

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

Alternative 4: 61.8% accurate, 0.7× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} t_0 := 6 \cdot \left(y \cdot z\right)\\ \mathbf{if}\;z \leq -3.5 \cdot 10^{+246}:\\ \;\;\;\;-6 \cdot \left(x \cdot z\right)\\ \mathbf{elif}\;z \leq -1.05 \cdot 10^{-26}:\\ \;\;\;\;t_0\\ \mathbf{elif}\;z \leq 7.5 \cdot 10^{-23}:\\ \;\;\;\;x\\ \mathbf{elif}\;z \leq 9.5 \cdot 10^{+275}:\\ \;\;\;\;t_0\\ \mathbf{else}:\\ \;\;\;\;z \cdot \left(x \cdot -6\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z)
 :precision binary64
 (let* ((t_0 (* 6.0 (* y z))))
   (if (<= z -3.5e+246)
     (* -6.0 (* x z))
     (if (<= z -1.05e-26)
       t_0
       (if (<= z 7.5e-23) x (if (<= z 9.5e+275) t_0 (* z (* x -6.0))))))))

C

double code(double x, double y, double z) {
	double t_0 = 6.0 * (y * z);
	double tmp;
	if (z <= -3.5e+246) {
		tmp = -6.0 * (x * z);
	} else if (z <= -1.05e-26) {
		tmp = t_0;
	} else if (z <= 7.5e-23) {
		tmp = x;
	} else if (z <= 9.5e+275) {
		tmp = t_0;
	} else {
		tmp = z * (x * -6.0);
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8) :: t_0
    real(8) :: tmp
    t_0 = 6.0d0 * (y * z)
    if (z <= (-3.5d+246)) then
        tmp = (-6.0d0) * (x * z)
    else if (z <= (-1.05d-26)) then
        tmp = t_0
    else if (z <= 7.5d-23) then
        tmp = x
    else if (z <= 9.5d+275) then
        tmp = t_0
    else
        tmp = z * (x * (-6.0d0))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z) {
	double t_0 = 6.0 * (y * z);
	double tmp;
	if (z <= -3.5e+246) {
		tmp = -6.0 * (x * z);
	} else if (z <= -1.05e-26) {
		tmp = t_0;
	} else if (z <= 7.5e-23) {
		tmp = x;
	} else if (z <= 9.5e+275) {
		tmp = t_0;
	} else {
		tmp = z * (x * -6.0);
	}
	return tmp;
}

Python

def code(x, y, z):
	t_0 = 6.0 * (y * z)
	tmp = 0
	if z <= -3.5e+246:
		tmp = -6.0 * (x * z)
	elif z <= -1.05e-26:
		tmp = t_0
	elif z <= 7.5e-23:
		tmp = x
	elif z <= 9.5e+275:
		tmp = t_0
	else:
		tmp = z * (x * -6.0)
	return tmp

Julia

function code(x, y, z)
	t_0 = Float64(6.0 * Float64(y * z))
	tmp = 0.0
	if (z <= -3.5e+246)
		tmp = Float64(-6.0 * Float64(x * z));
	elseif (z <= -1.05e-26)
		tmp = t_0;
	elseif (z <= 7.5e-23)
		tmp = x;
	elseif (z <= 9.5e+275)
		tmp = t_0;
	else
		tmp = Float64(z * Float64(x * -6.0));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z)
	t_0 = 6.0 * (y * z);
	tmp = 0.0;
	if (z <= -3.5e+246)
		tmp = -6.0 * (x * z);
	elseif (z <= -1.05e-26)
		tmp = t_0;
	elseif (z <= 7.5e-23)
		tmp = x;
	elseif (z <= 9.5e+275)
		tmp = t_0;
	else
		tmp = z * (x * -6.0);
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_] := Block[{t$95$0 = N[(6.0 * N[(y * z), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -3.5e+246], N[(-6.0 * N[(x * z), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, -1.05e-26], t$95$0, If[LessEqual[z, 7.5e-23], x, If[LessEqual[z, 9.5e+275], t$95$0, N[(z * N[(x * -6.0), $MachinePrecision]), $MachinePrecision]]]]]]

Derivation

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

Alternative 5: 85.1% accurate, 0.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;z \leq -2.9 \cdot 10^{-25} \lor \neg \left(z \leq 1.55 \cdot 10^{-22}\right):\\ \;\;\;\;-6 \cdot \left(z \cdot \left(x - y\right)\right)\\ \mathbf{else}:\\ \;\;\;\;x\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z)
 :precision binary64
 (if (or (<= z -2.9e-25) (not (<= z 1.55e-22))) (* -6.0 (* z (- x y))) x))

C

double code(double x, double y, double z) {
	double tmp;
	if ((z <= -2.9e-25) || !(z <= 1.55e-22)) {
		tmp = -6.0 * (z * (x - y));
	} else {
		tmp = x;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8) :: tmp
    if ((z <= (-2.9d-25)) .or. (.not. (z <= 1.55d-22))) then
        tmp = (-6.0d0) * (z * (x - y))
    else
        tmp = x
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z) {
	double tmp;
	if ((z <= -2.9e-25) || !(z <= 1.55e-22)) {
		tmp = -6.0 * (z * (x - y));
	} else {
		tmp = x;
	}
	return tmp;
}

Python

def code(x, y, z):
	tmp = 0
	if (z <= -2.9e-25) or not (z <= 1.55e-22):
		tmp = -6.0 * (z * (x - y))
	else:
		tmp = x
	return tmp

Julia

function code(x, y, z)
	tmp = 0.0
	if ((z <= -2.9e-25) || !(z <= 1.55e-22))
		tmp = Float64(-6.0 * Float64(z * Float64(x - y)));
	else
		tmp = x;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z)
	tmp = 0.0;
	if ((z <= -2.9e-25) || ~((z <= 1.55e-22)))
		tmp = -6.0 * (z * (x - y));
	else
		tmp = x;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_] := If[Or[LessEqual[z, -2.9e-25], N[Not[LessEqual[z, 1.55e-22]], $MachinePrecision]], N[(-6.0 * N[(z * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], x]

Derivation

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

Alternative 6: 85.3% accurate, 0.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;z \leq -2.6 \cdot 10^{-25} \lor \neg \left(z \leq 0.16\right):\\ \;\;\;\;-6 \cdot \left(z \cdot \left(x - y\right)\right)\\ \mathbf{else}:\\ \;\;\;\;x + -6 \cdot \left(x \cdot z\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z)
 :precision binary64
 (if (or (<= z -2.6e-25) (not (<= z 0.16)))
   (* -6.0 (* z (- x y)))
   (+ x (* -6.0 (* x z)))))

C

double code(double x, double y, double z) {
	double tmp;
	if ((z <= -2.6e-25) || !(z <= 0.16)) {
		tmp = -6.0 * (z * (x - y));
	} else {
		tmp = x + (-6.0 * (x * z));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8) :: tmp
    if ((z <= (-2.6d-25)) .or. (.not. (z <= 0.16d0))) then
        tmp = (-6.0d0) * (z * (x - y))
    else
        tmp = x + ((-6.0d0) * (x * z))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z) {
	double tmp;
	if ((z <= -2.6e-25) || !(z <= 0.16)) {
		tmp = -6.0 * (z * (x - y));
	} else {
		tmp = x + (-6.0 * (x * z));
	}
	return tmp;
}

Python

def code(x, y, z):
	tmp = 0
	if (z <= -2.6e-25) or not (z <= 0.16):
		tmp = -6.0 * (z * (x - y))
	else:
		tmp = x + (-6.0 * (x * z))
	return tmp

Julia

function code(x, y, z)
	tmp = 0.0
	if ((z <= -2.6e-25) || !(z <= 0.16))
		tmp = Float64(-6.0 * Float64(z * Float64(x - y)));
	else
		tmp = Float64(x + Float64(-6.0 * Float64(x * z)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z)
	tmp = 0.0;
	if ((z <= -2.6e-25) || ~((z <= 0.16)))
		tmp = -6.0 * (z * (x - y));
	else
		tmp = x + (-6.0 * (x * z));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_] := If[Or[LessEqual[z, -2.6e-25], N[Not[LessEqual[z, 0.16]], $MachinePrecision]], N[(-6.0 * N[(z * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(-6.0 * N[(x * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]

Derivation

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

Alternative 7: 98.8% accurate, 0.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;z \leq -0.14 \lor \neg \left(z \leq 0.48\right):\\ \;\;\;\;-6 \cdot \left(z \cdot \left(x - y\right)\right)\\ \mathbf{else}:\\ \;\;\;\;x + y \cdot \left(6 \cdot z\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z)
 :precision binary64
 (if (or (<= z -0.14) (not (<= z 0.48)))
   (* -6.0 (* z (- x y)))
   (+ x (* y (* 6.0 z)))))

C

double code(double x, double y, double z) {
	double tmp;
	if ((z <= -0.14) || !(z <= 0.48)) {
		tmp = -6.0 * (z * (x - y));
	} else {
		tmp = x + (y * (6.0 * z));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8) :: tmp
    if ((z <= (-0.14d0)) .or. (.not. (z <= 0.48d0))) then
        tmp = (-6.0d0) * (z * (x - y))
    else
        tmp = x + (y * (6.0d0 * z))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z) {
	double tmp;
	if ((z <= -0.14) || !(z <= 0.48)) {
		tmp = -6.0 * (z * (x - y));
	} else {
		tmp = x + (y * (6.0 * z));
	}
	return tmp;
}

Python

def code(x, y, z):
	tmp = 0
	if (z <= -0.14) or not (z <= 0.48):
		tmp = -6.0 * (z * (x - y))
	else:
		tmp = x + (y * (6.0 * z))
	return tmp

Julia

function code(x, y, z)
	tmp = 0.0
	if ((z <= -0.14) || !(z <= 0.48))
		tmp = Float64(-6.0 * Float64(z * Float64(x - y)));
	else
		tmp = Float64(x + Float64(y * Float64(6.0 * z)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z)
	tmp = 0.0;
	if ((z <= -0.14) || ~((z <= 0.48)))
		tmp = -6.0 * (z * (x - y));
	else
		tmp = x + (y * (6.0 * z));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_] := If[Or[LessEqual[z, -0.14], N[Not[LessEqual[z, 0.48]], $MachinePrecision]], N[(-6.0 * N[(z * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(y * N[(6.0 * z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]

Derivation

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

Alternative 8: 98.7% accurate, 0.8× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;z \leq -0.16 \lor \neg \left(z \leq 7500\right):\\ \;\;\;\;-6 \cdot \left(z \cdot \left(x - y\right)\right)\\ \mathbf{else}:\\ \;\;\;\;x + z \cdot \left(y \cdot 6\right)\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z)
 :precision binary64
 (if (or (<= z -0.16) (not (<= z 7500.0)))
   (* -6.0 (* z (- x y)))
   (+ x (* z (* y 6.0)))))

C

double code(double x, double y, double z) {
	double tmp;
	if ((z <= -0.16) || !(z <= 7500.0)) {
		tmp = -6.0 * (z * (x - y));
	} else {
		tmp = x + (z * (y * 6.0));
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8) :: tmp
    if ((z <= (-0.16d0)) .or. (.not. (z <= 7500.0d0))) then
        tmp = (-6.0d0) * (z * (x - y))
    else
        tmp = x + (z * (y * 6.0d0))
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z) {
	double tmp;
	if ((z <= -0.16) || !(z <= 7500.0)) {
		tmp = -6.0 * (z * (x - y));
	} else {
		tmp = x + (z * (y * 6.0));
	}
	return tmp;
}

Python

def code(x, y, z):
	tmp = 0
	if (z <= -0.16) or not (z <= 7500.0):
		tmp = -6.0 * (z * (x - y))
	else:
		tmp = x + (z * (y * 6.0))
	return tmp

Julia

function code(x, y, z)
	tmp = 0.0
	if ((z <= -0.16) || !(z <= 7500.0))
		tmp = Float64(-6.0 * Float64(z * Float64(x - y)));
	else
		tmp = Float64(x + Float64(z * Float64(y * 6.0)));
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z)
	tmp = 0.0;
	if ((z <= -0.16) || ~((z <= 7500.0)))
		tmp = -6.0 * (z * (x - y));
	else
		tmp = x + (z * (y * 6.0));
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_] := If[Or[LessEqual[z, -0.16], N[Not[LessEqual[z, 7500.0]], $MachinePrecision]], N[(-6.0 * N[(z * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x + N[(z * N[(y * 6.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]

Derivation

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

Alternative 9: 60.4% accurate, 1.0× speedup

Math

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;z \leq -0.165 \lor \neg \left(z \leq 0.165\right):\\ \;\;\;\;-6 \cdot \left(x \cdot z\right)\\ \mathbf{else}:\\ \;\;\;\;x\\ \end{array} \end{array} \]

FPCore

(FPCore (x y z)
 :precision binary64
 (if (or (<= z -0.165) (not (<= z 0.165))) (* -6.0 (* x z)) x))

C

double code(double x, double y, double z) {
	double tmp;
	if ((z <= -0.165) || !(z <= 0.165)) {
		tmp = -6.0 * (x * z);
	} else {
		tmp = x;
	}
	return tmp;
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    real(8) :: tmp
    if ((z <= (-0.165d0)) .or. (.not. (z <= 0.165d0))) then
        tmp = (-6.0d0) * (x * z)
    else
        tmp = x
    end if
    code = tmp
end function

Java

public static double code(double x, double y, double z) {
	double tmp;
	if ((z <= -0.165) || !(z <= 0.165)) {
		tmp = -6.0 * (x * z);
	} else {
		tmp = x;
	}
	return tmp;
}

Python

def code(x, y, z):
	tmp = 0
	if (z <= -0.165) or not (z <= 0.165):
		tmp = -6.0 * (x * z)
	else:
		tmp = x
	return tmp

Julia

function code(x, y, z)
	tmp = 0.0
	if ((z <= -0.165) || !(z <= 0.165))
		tmp = Float64(-6.0 * Float64(x * z));
	else
		tmp = x;
	end
	return tmp
end

MATLAB

function tmp_2 = code(x, y, z)
	tmp = 0.0;
	if ((z <= -0.165) || ~((z <= 0.165)))
		tmp = -6.0 * (x * z);
	else
		tmp = x;
	end
	tmp_2 = tmp;
end

Wolfram

code[x_, y_, z_] := If[Or[LessEqual[z, -0.165], N[Not[LessEqual[z, 0.165]], $MachinePrecision]], N[(-6.0 * N[(x * z), $MachinePrecision]), $MachinePrecision], x]

Derivation

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

Alternative 10: 99.7% accurate, 1.0× speedup

Math

\[\begin{array}{l} \\ x + z \cdot \left(6 \cdot \left(y - x\right)\right) \end{array} \]

FPCore

(FPCore (x y z) :precision binary64 (+ x (* z (* 6.0 (- y x)))))

C

double code(double x, double y, double z) {
	return x + (z * (6.0 * (y - x)));
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    code = x + (z * (6.0d0 * (y - x)))
end function

Java

public static double code(double x, double y, double z) {
	return x + (z * (6.0 * (y - x)));
}

Python

def code(x, y, z):
	return x + (z * (6.0 * (y - x)))

Julia

function code(x, y, z)
	return Float64(x + Float64(z * Float64(6.0 * Float64(y - x))))
end

MATLAB

function tmp = code(x, y, z)
	tmp = x + (z * (6.0 * (y - x)));
end

Wolfram

code[x_, y_, z_] := N[(x + N[(z * N[(6.0 * N[(y - x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]

Derivation

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

Alternative 11: 35.8% accurate, 9.0× speedup

Math

\[\begin{array}{l} \\ x \end{array} \]

FPCore

(FPCore (x y z) :precision binary64 x)

C

double code(double x, double y, double z) {
	return x;
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    code = x
end function

Java

public static double code(double x, double y, double z) {
	return x;
}

Python

def code(x, y, z):
	return x

Julia

function code(x, y, z)
	return x
end

MATLAB

function tmp = code(x, y, z)
	tmp = x;
end

Wolfram

code[x_, y_, z_] := x

Derivation

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

Developer target: 99.8% accurate, 1.0× speedup

Math

\[\begin{array}{l} \\ x - \left(6 \cdot z\right) \cdot \left(x - y\right) \end{array} \]

FPCore

(FPCore (x y z) :precision binary64 (- x (* (* 6.0 z) (- x y))))

C

double code(double x, double y, double z) {
	return x - ((6.0 * z) * (x - y));
}

Fortran

real(8) function code(x, y, z)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    real(8), intent (in) :: z
    code = x - ((6.0d0 * z) * (x - y))
end function

Java

public static double code(double x, double y, double z) {
	return x - ((6.0 * z) * (x - y));
}

Python

def code(x, y, z):
	return x - ((6.0 * z) * (x - y))

Julia

function code(x, y, z)
	return Float64(x - Float64(Float64(6.0 * z) * Float64(x - y)))
end

MATLAB

function tmp = code(x, y, z)
	tmp = x - ((6.0 * z) * (x - y));
end

Wolfram

code[x_, y_, z_] := N[(x - N[(N[(6.0 * z), $MachinePrecision] * N[(x - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]

Reproduce

herbie shell --seed 2024008 
(FPCore (x y z)
  :name "Data.Colour.RGBSpace.HSL:hsl from colour-2.3.3, E"
  :precision binary64

  :herbie-target
  (- x (* (* 6.0 z) (- x y)))

  (+ x (* (* (- y x) 6.0) z)))