
(FPCore (x y z) :precision binary64 (+ 1.0 (/ (* 4.0 (- (+ x (* y 0.25)) z)) y)))
double code(double x, double y, double z) {
return 1.0 + ((4.0 * ((x + (y * 0.25)) - z)) / y);
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = 1.0d0 + ((4.0d0 * ((x + (y * 0.25d0)) - z)) / y)
end function
public static double code(double x, double y, double z) {
return 1.0 + ((4.0 * ((x + (y * 0.25)) - z)) / y);
}
def code(x, y, z): return 1.0 + ((4.0 * ((x + (y * 0.25)) - z)) / y)
function code(x, y, z) return Float64(1.0 + Float64(Float64(4.0 * Float64(Float64(x + Float64(y * 0.25)) - z)) / y)) end
function tmp = code(x, y, z) tmp = 1.0 + ((4.0 * ((x + (y * 0.25)) - z)) / y); end
code[x_, y_, z_] := N[(1.0 + N[(N[(4.0 * N[(N[(x + N[(y * 0.25), $MachinePrecision]), $MachinePrecision] - z), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
1 + \frac{4 \cdot \left(\left(x + y \cdot 0.25\right) - z\right)}{y}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 9 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (+ 1.0 (/ (* 4.0 (- (+ x (* y 0.25)) z)) y)))
double code(double x, double y, double z) {
return 1.0 + ((4.0 * ((x + (y * 0.25)) - z)) / y);
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = 1.0d0 + ((4.0d0 * ((x + (y * 0.25d0)) - z)) / y)
end function
public static double code(double x, double y, double z) {
return 1.0 + ((4.0 * ((x + (y * 0.25)) - z)) / y);
}
def code(x, y, z): return 1.0 + ((4.0 * ((x + (y * 0.25)) - z)) / y)
function code(x, y, z) return Float64(1.0 + Float64(Float64(4.0 * Float64(Float64(x + Float64(y * 0.25)) - z)) / y)) end
function tmp = code(x, y, z) tmp = 1.0 + ((4.0 * ((x + (y * 0.25)) - z)) / y); end
code[x_, y_, z_] := N[(1.0 + N[(N[(4.0 * N[(N[(x + N[(y * 0.25), $MachinePrecision]), $MachinePrecision] - z), $MachinePrecision]), $MachinePrecision] / y), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
1 + \frac{4 \cdot \left(\left(x + y \cdot 0.25\right) - z\right)}{y}
\end{array}
(FPCore (x y z) :precision binary64 (+ (/ (- x z) (* y 0.25)) 2.0))
double code(double x, double y, double z) {
return ((x - z) / (y * 0.25)) + 2.0;
}
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) / (y * 0.25d0)) + 2.0d0
end function
public static double code(double x, double y, double z) {
return ((x - z) / (y * 0.25)) + 2.0;
}
def code(x, y, z): return ((x - z) / (y * 0.25)) + 2.0
function code(x, y, z) return Float64(Float64(Float64(x - z) / Float64(y * 0.25)) + 2.0) end
function tmp = code(x, y, z) tmp = ((x - z) / (y * 0.25)) + 2.0; end
code[x_, y_, z_] := N[(N[(N[(x - z), $MachinePrecision] / N[(y * 0.25), $MachinePrecision]), $MachinePrecision] + 2.0), $MachinePrecision]
\begin{array}{l}
\\
\frac{x - z}{y \cdot 0.25} + 2
\end{array}
Initial program 99.6%
+-commutative99.6%
associate-*l/99.8%
+-commutative99.8%
associate--l+99.8%
+-commutative99.8%
distribute-lft-in99.8%
associate-+l+99.8%
associate-*l/99.8%
*-commutative99.8%
associate-*l*99.8%
metadata-eval99.8%
*-rgt-identity99.8%
*-inverses99.8%
metadata-eval99.8%
Simplified99.8%
clear-num99.8%
div-inv99.8%
metadata-eval99.8%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
Final simplification100.0%
(FPCore (x y z)
:precision binary64
(let* ((t_0 (* 4.0 (/ x y))) (t_1 (* (/ z y) -4.0)))
(if (<= y -8.5e+84)
2.0
(if (<= y -6.4e+18)
t_1
(if (<= y -8.6e-8)
2.0
(if (<= y -4.3e-193)
t_0
(if (<= y -1.6e-261)
t_1
(if (<= y -8.5e-280)
t_0
(if (<= y 2.8e-201)
t_1
(if (<= y 5.8e-146)
t_0
(if (<= y 2200.0) t_1 (if (<= y 1.1e+62) t_0 2.0))))))))))))
double code(double x, double y, double z) {
double t_0 = 4.0 * (x / y);
double t_1 = (z / y) * -4.0;
double tmp;
if (y <= -8.5e+84) {
tmp = 2.0;
} else if (y <= -6.4e+18) {
tmp = t_1;
} else if (y <= -8.6e-8) {
tmp = 2.0;
} else if (y <= -4.3e-193) {
tmp = t_0;
} else if (y <= -1.6e-261) {
tmp = t_1;
} else if (y <= -8.5e-280) {
tmp = t_0;
} else if (y <= 2.8e-201) {
tmp = t_1;
} else if (y <= 5.8e-146) {
tmp = t_0;
} else if (y <= 2200.0) {
tmp = t_1;
} else if (y <= 1.1e+62) {
tmp = t_0;
} else {
tmp = 2.0;
}
return tmp;
}
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 = 4.0d0 * (x / y)
t_1 = (z / y) * (-4.0d0)
if (y <= (-8.5d+84)) then
tmp = 2.0d0
else if (y <= (-6.4d+18)) then
tmp = t_1
else if (y <= (-8.6d-8)) then
tmp = 2.0d0
else if (y <= (-4.3d-193)) then
tmp = t_0
else if (y <= (-1.6d-261)) then
tmp = t_1
else if (y <= (-8.5d-280)) then
tmp = t_0
else if (y <= 2.8d-201) then
tmp = t_1
else if (y <= 5.8d-146) then
tmp = t_0
else if (y <= 2200.0d0) then
tmp = t_1
else if (y <= 1.1d+62) then
tmp = t_0
else
tmp = 2.0d0
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = 4.0 * (x / y);
double t_1 = (z / y) * -4.0;
double tmp;
if (y <= -8.5e+84) {
tmp = 2.0;
} else if (y <= -6.4e+18) {
tmp = t_1;
} else if (y <= -8.6e-8) {
tmp = 2.0;
} else if (y <= -4.3e-193) {
tmp = t_0;
} else if (y <= -1.6e-261) {
tmp = t_1;
} else if (y <= -8.5e-280) {
tmp = t_0;
} else if (y <= 2.8e-201) {
tmp = t_1;
} else if (y <= 5.8e-146) {
tmp = t_0;
} else if (y <= 2200.0) {
tmp = t_1;
} else if (y <= 1.1e+62) {
tmp = t_0;
} else {
tmp = 2.0;
}
return tmp;
}
def code(x, y, z): t_0 = 4.0 * (x / y) t_1 = (z / y) * -4.0 tmp = 0 if y <= -8.5e+84: tmp = 2.0 elif y <= -6.4e+18: tmp = t_1 elif y <= -8.6e-8: tmp = 2.0 elif y <= -4.3e-193: tmp = t_0 elif y <= -1.6e-261: tmp = t_1 elif y <= -8.5e-280: tmp = t_0 elif y <= 2.8e-201: tmp = t_1 elif y <= 5.8e-146: tmp = t_0 elif y <= 2200.0: tmp = t_1 elif y <= 1.1e+62: tmp = t_0 else: tmp = 2.0 return tmp
function code(x, y, z) t_0 = Float64(4.0 * Float64(x / y)) t_1 = Float64(Float64(z / y) * -4.0) tmp = 0.0 if (y <= -8.5e+84) tmp = 2.0; elseif (y <= -6.4e+18) tmp = t_1; elseif (y <= -8.6e-8) tmp = 2.0; elseif (y <= -4.3e-193) tmp = t_0; elseif (y <= -1.6e-261) tmp = t_1; elseif (y <= -8.5e-280) tmp = t_0; elseif (y <= 2.8e-201) tmp = t_1; elseif (y <= 5.8e-146) tmp = t_0; elseif (y <= 2200.0) tmp = t_1; elseif (y <= 1.1e+62) tmp = t_0; else tmp = 2.0; end return tmp end
function tmp_2 = code(x, y, z) t_0 = 4.0 * (x / y); t_1 = (z / y) * -4.0; tmp = 0.0; if (y <= -8.5e+84) tmp = 2.0; elseif (y <= -6.4e+18) tmp = t_1; elseif (y <= -8.6e-8) tmp = 2.0; elseif (y <= -4.3e-193) tmp = t_0; elseif (y <= -1.6e-261) tmp = t_1; elseif (y <= -8.5e-280) tmp = t_0; elseif (y <= 2.8e-201) tmp = t_1; elseif (y <= 5.8e-146) tmp = t_0; elseif (y <= 2200.0) tmp = t_1; elseif (y <= 1.1e+62) tmp = t_0; else tmp = 2.0; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(4.0 * N[(x / y), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(z / y), $MachinePrecision] * -4.0), $MachinePrecision]}, If[LessEqual[y, -8.5e+84], 2.0, If[LessEqual[y, -6.4e+18], t$95$1, If[LessEqual[y, -8.6e-8], 2.0, If[LessEqual[y, -4.3e-193], t$95$0, If[LessEqual[y, -1.6e-261], t$95$1, If[LessEqual[y, -8.5e-280], t$95$0, If[LessEqual[y, 2.8e-201], t$95$1, If[LessEqual[y, 5.8e-146], t$95$0, If[LessEqual[y, 2200.0], t$95$1, If[LessEqual[y, 1.1e+62], t$95$0, 2.0]]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 4 \cdot \frac{x}{y}\\
t_1 := \frac{z}{y} \cdot -4\\
\mathbf{if}\;y \leq -8.5 \cdot 10^{+84}:\\
\;\;\;\;2\\
\mathbf{elif}\;y \leq -6.4 \cdot 10^{+18}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -8.6 \cdot 10^{-8}:\\
\;\;\;\;2\\
\mathbf{elif}\;y \leq -4.3 \cdot 10^{-193}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq -1.6 \cdot 10^{-261}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -8.5 \cdot 10^{-280}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq 2.8 \cdot 10^{-201}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 5.8 \cdot 10^{-146}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq 2200:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 1.1 \cdot 10^{+62}:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;2\\
\end{array}
\end{array}
if y < -8.5000000000000008e84 or -6.4e18 < y < -8.6000000000000002e-8 or 1.10000000000000007e62 < y Initial program 100.0%
Taylor expanded in y around inf 78.2%
if -8.5000000000000008e84 < y < -6.4e18 or -4.3000000000000002e-193 < y < -1.60000000000000002e-261 or -8.50000000000000037e-280 < y < 2.7999999999999999e-201 or 5.80000000000000022e-146 < y < 2200Initial program 100.0%
+-commutative100.0%
associate-*l/99.7%
+-commutative99.7%
associate--l+99.7%
+-commutative99.7%
distribute-lft-in99.7%
associate-+l+99.7%
associate-*l/99.7%
*-commutative99.7%
associate-*l*99.7%
metadata-eval99.7%
*-rgt-identity99.7%
*-inverses99.7%
metadata-eval99.7%
Simplified99.7%
clear-num99.7%
div-inv99.7%
metadata-eval99.7%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
Taylor expanded in z around inf 70.3%
if -8.6000000000000002e-8 < y < -4.3000000000000002e-193 or -1.60000000000000002e-261 < y < -8.50000000000000037e-280 or 2.7999999999999999e-201 < y < 5.80000000000000022e-146 or 2200 < y < 1.10000000000000007e62Initial program 98.6%
+-commutative98.6%
associate-*l/99.7%
+-commutative99.7%
associate--l+99.7%
+-commutative99.7%
distribute-lft-in99.7%
associate-+l+99.7%
associate-*l/99.7%
*-commutative99.7%
associate-*l*99.7%
metadata-eval99.7%
*-rgt-identity99.7%
*-inverses99.7%
metadata-eval99.7%
Simplified99.7%
clear-num99.7%
div-inv99.7%
metadata-eval99.7%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
Taylor expanded in x around inf 68.7%
Final simplification72.8%
(FPCore (x y z)
:precision binary64
(let* ((t_0 (* 4.0 (/ x y)))
(t_1 (+ 1.0 (* z (/ -4.0 y))))
(t_2 (* (/ z y) -4.0)))
(if (<= y -5.8e+84)
2.0
(if (<= y -9e-13)
t_1
(if (<= y -1.35e-191)
t_0
(if (<= y -1.46e-257)
t_2
(if (<= y -3.8e-281)
t_0
(if (<= y 1.85e-200)
t_2
(if (<= y 3e-147) t_0 (if (<= y 3.2e+62) t_1 2.0))))))))))
double code(double x, double y, double z) {
double t_0 = 4.0 * (x / y);
double t_1 = 1.0 + (z * (-4.0 / y));
double t_2 = (z / y) * -4.0;
double tmp;
if (y <= -5.8e+84) {
tmp = 2.0;
} else if (y <= -9e-13) {
tmp = t_1;
} else if (y <= -1.35e-191) {
tmp = t_0;
} else if (y <= -1.46e-257) {
tmp = t_2;
} else if (y <= -3.8e-281) {
tmp = t_0;
} else if (y <= 1.85e-200) {
tmp = t_2;
} else if (y <= 3e-147) {
tmp = t_0;
} else if (y <= 3.2e+62) {
tmp = t_1;
} else {
tmp = 2.0;
}
return tmp;
}
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) :: t_2
real(8) :: tmp
t_0 = 4.0d0 * (x / y)
t_1 = 1.0d0 + (z * ((-4.0d0) / y))
t_2 = (z / y) * (-4.0d0)
if (y <= (-5.8d+84)) then
tmp = 2.0d0
else if (y <= (-9d-13)) then
tmp = t_1
else if (y <= (-1.35d-191)) then
tmp = t_0
else if (y <= (-1.46d-257)) then
tmp = t_2
else if (y <= (-3.8d-281)) then
tmp = t_0
else if (y <= 1.85d-200) then
tmp = t_2
else if (y <= 3d-147) then
tmp = t_0
else if (y <= 3.2d+62) then
tmp = t_1
else
tmp = 2.0d0
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = 4.0 * (x / y);
double t_1 = 1.0 + (z * (-4.0 / y));
double t_2 = (z / y) * -4.0;
double tmp;
if (y <= -5.8e+84) {
tmp = 2.0;
} else if (y <= -9e-13) {
tmp = t_1;
} else if (y <= -1.35e-191) {
tmp = t_0;
} else if (y <= -1.46e-257) {
tmp = t_2;
} else if (y <= -3.8e-281) {
tmp = t_0;
} else if (y <= 1.85e-200) {
tmp = t_2;
} else if (y <= 3e-147) {
tmp = t_0;
} else if (y <= 3.2e+62) {
tmp = t_1;
} else {
tmp = 2.0;
}
return tmp;
}
def code(x, y, z): t_0 = 4.0 * (x / y) t_1 = 1.0 + (z * (-4.0 / y)) t_2 = (z / y) * -4.0 tmp = 0 if y <= -5.8e+84: tmp = 2.0 elif y <= -9e-13: tmp = t_1 elif y <= -1.35e-191: tmp = t_0 elif y <= -1.46e-257: tmp = t_2 elif y <= -3.8e-281: tmp = t_0 elif y <= 1.85e-200: tmp = t_2 elif y <= 3e-147: tmp = t_0 elif y <= 3.2e+62: tmp = t_1 else: tmp = 2.0 return tmp
function code(x, y, z) t_0 = Float64(4.0 * Float64(x / y)) t_1 = Float64(1.0 + Float64(z * Float64(-4.0 / y))) t_2 = Float64(Float64(z / y) * -4.0) tmp = 0.0 if (y <= -5.8e+84) tmp = 2.0; elseif (y <= -9e-13) tmp = t_1; elseif (y <= -1.35e-191) tmp = t_0; elseif (y <= -1.46e-257) tmp = t_2; elseif (y <= -3.8e-281) tmp = t_0; elseif (y <= 1.85e-200) tmp = t_2; elseif (y <= 3e-147) tmp = t_0; elseif (y <= 3.2e+62) tmp = t_1; else tmp = 2.0; end return tmp end
function tmp_2 = code(x, y, z) t_0 = 4.0 * (x / y); t_1 = 1.0 + (z * (-4.0 / y)); t_2 = (z / y) * -4.0; tmp = 0.0; if (y <= -5.8e+84) tmp = 2.0; elseif (y <= -9e-13) tmp = t_1; elseif (y <= -1.35e-191) tmp = t_0; elseif (y <= -1.46e-257) tmp = t_2; elseif (y <= -3.8e-281) tmp = t_0; elseif (y <= 1.85e-200) tmp = t_2; elseif (y <= 3e-147) tmp = t_0; elseif (y <= 3.2e+62) tmp = t_1; else tmp = 2.0; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(4.0 * N[(x / y), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(1.0 + N[(z * N[(-4.0 / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(z / y), $MachinePrecision] * -4.0), $MachinePrecision]}, If[LessEqual[y, -5.8e+84], 2.0, If[LessEqual[y, -9e-13], t$95$1, If[LessEqual[y, -1.35e-191], t$95$0, If[LessEqual[y, -1.46e-257], t$95$2, If[LessEqual[y, -3.8e-281], t$95$0, If[LessEqual[y, 1.85e-200], t$95$2, If[LessEqual[y, 3e-147], t$95$0, If[LessEqual[y, 3.2e+62], t$95$1, 2.0]]]]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 4 \cdot \frac{x}{y}\\
t_1 := 1 + z \cdot \frac{-4}{y}\\
t_2 := \frac{z}{y} \cdot -4\\
\mathbf{if}\;y \leq -5.8 \cdot 10^{+84}:\\
\;\;\;\;2\\
\mathbf{elif}\;y \leq -9 \cdot 10^{-13}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq -1.35 \cdot 10^{-191}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq -1.46 \cdot 10^{-257}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq -3.8 \cdot 10^{-281}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq 1.85 \cdot 10^{-200}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;y \leq 3 \cdot 10^{-147}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;y \leq 3.2 \cdot 10^{+62}:\\
\;\;\;\;t\_1\\
\mathbf{else}:\\
\;\;\;\;2\\
\end{array}
\end{array}
if y < -5.79999999999999977e84 or 3.19999999999999984e62 < y Initial program 100.0%
Taylor expanded in y around inf 79.7%
if -5.79999999999999977e84 < y < -9e-13 or 3.0000000000000002e-147 < y < 3.19999999999999984e62Initial program 98.7%
Taylor expanded in z around inf 59.4%
associate-*r/59.4%
metadata-eval59.4%
associate-*r*59.4%
neg-mul-159.4%
associate-*l/59.2%
metadata-eval59.2%
associate-*r/59.2%
distribute-rgt-neg-in59.2%
*-commutative59.2%
distribute-rgt-neg-in59.2%
associate-*r/59.2%
metadata-eval59.2%
distribute-neg-frac59.2%
metadata-eval59.2%
Simplified59.2%
if -9e-13 < y < -1.34999999999999999e-191 or -1.4600000000000001e-257 < y < -3.79999999999999976e-281 or 1.85000000000000005e-200 < y < 3.0000000000000002e-147Initial program 100.0%
+-commutative100.0%
associate-*l/99.7%
+-commutative99.7%
associate--l+99.7%
+-commutative99.7%
distribute-lft-in99.6%
associate-+l+99.7%
associate-*l/99.7%
*-commutative99.7%
associate-*l*99.7%
metadata-eval99.7%
*-rgt-identity99.7%
*-inverses99.7%
metadata-eval99.7%
Simplified99.7%
clear-num99.7%
div-inv99.7%
metadata-eval99.7%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
Taylor expanded in x around inf 72.0%
if -1.34999999999999999e-191 < y < -1.4600000000000001e-257 or -3.79999999999999976e-281 < y < 1.85000000000000005e-200Initial program 100.0%
+-commutative100.0%
associate-*l/99.8%
+-commutative99.8%
associate--l+99.8%
+-commutative99.8%
distribute-lft-in99.8%
associate-+l+99.8%
associate-*l/99.8%
*-commutative99.8%
associate-*l*99.8%
metadata-eval99.8%
*-rgt-identity99.8%
*-inverses99.8%
metadata-eval99.8%
Simplified99.8%
clear-num99.8%
div-inv99.8%
metadata-eval99.8%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
Taylor expanded in z around inf 71.2%
Final simplification71.1%
(FPCore (x y z)
:precision binary64
(if (or (<= z -1.15e+40)
(not (or (<= z 1e-10) (and (not (<= z 8e+14)) (<= z 1.65e+158)))))
(+ 1.0 (* z (/ -4.0 y)))
(+ 2.0 (* 4.0 (/ x y)))))
double code(double x, double y, double z) {
double tmp;
if ((z <= -1.15e+40) || !((z <= 1e-10) || (!(z <= 8e+14) && (z <= 1.65e+158)))) {
tmp = 1.0 + (z * (-4.0 / y));
} else {
tmp = 2.0 + (4.0 * (x / y));
}
return tmp;
}
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 <= (-1.15d+40)) .or. (.not. (z <= 1d-10) .or. (.not. (z <= 8d+14)) .and. (z <= 1.65d+158))) then
tmp = 1.0d0 + (z * ((-4.0d0) / y))
else
tmp = 2.0d0 + (4.0d0 * (x / y))
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if ((z <= -1.15e+40) || !((z <= 1e-10) || (!(z <= 8e+14) && (z <= 1.65e+158)))) {
tmp = 1.0 + (z * (-4.0 / y));
} else {
tmp = 2.0 + (4.0 * (x / y));
}
return tmp;
}
def code(x, y, z): tmp = 0 if (z <= -1.15e+40) or not ((z <= 1e-10) or (not (z <= 8e+14) and (z <= 1.65e+158))): tmp = 1.0 + (z * (-4.0 / y)) else: tmp = 2.0 + (4.0 * (x / y)) return tmp
function code(x, y, z) tmp = 0.0 if ((z <= -1.15e+40) || !((z <= 1e-10) || (!(z <= 8e+14) && (z <= 1.65e+158)))) tmp = Float64(1.0 + Float64(z * Float64(-4.0 / y))); else tmp = Float64(2.0 + Float64(4.0 * Float64(x / y))); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if ((z <= -1.15e+40) || ~(((z <= 1e-10) || (~((z <= 8e+14)) && (z <= 1.65e+158))))) tmp = 1.0 + (z * (-4.0 / y)); else tmp = 2.0 + (4.0 * (x / y)); end tmp_2 = tmp; end
code[x_, y_, z_] := If[Or[LessEqual[z, -1.15e+40], N[Not[Or[LessEqual[z, 1e-10], And[N[Not[LessEqual[z, 8e+14]], $MachinePrecision], LessEqual[z, 1.65e+158]]]], $MachinePrecision]], N[(1.0 + N[(z * N[(-4.0 / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(2.0 + N[(4.0 * N[(x / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -1.15 \cdot 10^{+40} \lor \neg \left(z \leq 10^{-10} \lor \neg \left(z \leq 8 \cdot 10^{+14}\right) \land z \leq 1.65 \cdot 10^{+158}\right):\\
\;\;\;\;1 + z \cdot \frac{-4}{y}\\
\mathbf{else}:\\
\;\;\;\;2 + 4 \cdot \frac{x}{y}\\
\end{array}
\end{array}
if z < -1.14999999999999997e40 or 1.00000000000000004e-10 < z < 8e14 or 1.65000000000000009e158 < z Initial program 100.0%
Taylor expanded in z around inf 81.4%
associate-*r/81.4%
metadata-eval81.4%
associate-*r*81.4%
neg-mul-181.4%
associate-*l/81.2%
metadata-eval81.2%
associate-*r/81.2%
distribute-rgt-neg-in81.2%
*-commutative81.2%
distribute-rgt-neg-in81.2%
associate-*r/81.2%
metadata-eval81.2%
distribute-neg-frac81.2%
metadata-eval81.2%
Simplified81.2%
if -1.14999999999999997e40 < z < 1.00000000000000004e-10 or 8e14 < z < 1.65000000000000009e158Initial program 99.4%
+-commutative99.4%
associate-*l/99.8%
+-commutative99.8%
associate--l+99.8%
+-commutative99.8%
distribute-lft-in99.8%
associate-+l+99.8%
associate-*l/99.8%
*-commutative99.8%
associate-*l*99.8%
metadata-eval99.8%
*-rgt-identity99.8%
*-inverses99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in z around 0 89.7%
Final simplification86.8%
(FPCore (x y z)
:precision binary64
(if (<= y -4.4e+83)
2.0
(if (or (<= y -3.2e+20) (and (not (<= y -7.5e-74)) (<= y 7.8e+62)))
(* (/ z y) -4.0)
2.0)))
double code(double x, double y, double z) {
double tmp;
if (y <= -4.4e+83) {
tmp = 2.0;
} else if ((y <= -3.2e+20) || (!(y <= -7.5e-74) && (y <= 7.8e+62))) {
tmp = (z / y) * -4.0;
} else {
tmp = 2.0;
}
return tmp;
}
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 (y <= (-4.4d+83)) then
tmp = 2.0d0
else if ((y <= (-3.2d+20)) .or. (.not. (y <= (-7.5d-74))) .and. (y <= 7.8d+62)) then
tmp = (z / y) * (-4.0d0)
else
tmp = 2.0d0
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (y <= -4.4e+83) {
tmp = 2.0;
} else if ((y <= -3.2e+20) || (!(y <= -7.5e-74) && (y <= 7.8e+62))) {
tmp = (z / y) * -4.0;
} else {
tmp = 2.0;
}
return tmp;
}
def code(x, y, z): tmp = 0 if y <= -4.4e+83: tmp = 2.0 elif (y <= -3.2e+20) or (not (y <= -7.5e-74) and (y <= 7.8e+62)): tmp = (z / y) * -4.0 else: tmp = 2.0 return tmp
function code(x, y, z) tmp = 0.0 if (y <= -4.4e+83) tmp = 2.0; elseif ((y <= -3.2e+20) || (!(y <= -7.5e-74) && (y <= 7.8e+62))) tmp = Float64(Float64(z / y) * -4.0); else tmp = 2.0; end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (y <= -4.4e+83) tmp = 2.0; elseif ((y <= -3.2e+20) || (~((y <= -7.5e-74)) && (y <= 7.8e+62))) tmp = (z / y) * -4.0; else tmp = 2.0; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[y, -4.4e+83], 2.0, If[Or[LessEqual[y, -3.2e+20], And[N[Not[LessEqual[y, -7.5e-74]], $MachinePrecision], LessEqual[y, 7.8e+62]]], N[(N[(z / y), $MachinePrecision] * -4.0), $MachinePrecision], 2.0]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq -4.4 \cdot 10^{+83}:\\
\;\;\;\;2\\
\mathbf{elif}\;y \leq -3.2 \cdot 10^{+20} \lor \neg \left(y \leq -7.5 \cdot 10^{-74}\right) \land y \leq 7.8 \cdot 10^{+62}:\\
\;\;\;\;\frac{z}{y} \cdot -4\\
\mathbf{else}:\\
\;\;\;\;2\\
\end{array}
\end{array}
if y < -4.39999999999999997e83 or -3.2e20 < y < -7.5e-74 or 7.8e62 < y Initial program 100.0%
Taylor expanded in y around inf 74.7%
if -4.39999999999999997e83 < y < -3.2e20 or -7.5e-74 < y < 7.8e62Initial program 99.4%
+-commutative99.4%
associate-*l/99.7%
+-commutative99.7%
associate--l+99.7%
+-commutative99.7%
distribute-lft-in99.7%
associate-+l+99.7%
associate-*l/99.7%
*-commutative99.7%
associate-*l*99.7%
metadata-eval99.7%
*-rgt-identity99.7%
*-inverses99.7%
metadata-eval99.7%
Simplified99.7%
clear-num99.7%
div-inv99.7%
metadata-eval99.7%
associate-*l/100.0%
*-un-lft-identity100.0%
Applied egg-rr100.0%
Taylor expanded in z around inf 52.8%
Final simplification62.0%
(FPCore (x y z) :precision binary64 (if (or (<= z -9.8e+39) (not (<= z 7.8e-17))) (+ 2.0 (* (/ z y) -4.0)) (+ 2.0 (* 4.0 (/ x y)))))
double code(double x, double y, double z) {
double tmp;
if ((z <= -9.8e+39) || !(z <= 7.8e-17)) {
tmp = 2.0 + ((z / y) * -4.0);
} else {
tmp = 2.0 + (4.0 * (x / y));
}
return tmp;
}
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 <= (-9.8d+39)) .or. (.not. (z <= 7.8d-17))) then
tmp = 2.0d0 + ((z / y) * (-4.0d0))
else
tmp = 2.0d0 + (4.0d0 * (x / y))
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if ((z <= -9.8e+39) || !(z <= 7.8e-17)) {
tmp = 2.0 + ((z / y) * -4.0);
} else {
tmp = 2.0 + (4.0 * (x / y));
}
return tmp;
}
def code(x, y, z): tmp = 0 if (z <= -9.8e+39) or not (z <= 7.8e-17): tmp = 2.0 + ((z / y) * -4.0) else: tmp = 2.0 + (4.0 * (x / y)) return tmp
function code(x, y, z) tmp = 0.0 if ((z <= -9.8e+39) || !(z <= 7.8e-17)) tmp = Float64(2.0 + Float64(Float64(z / y) * -4.0)); else tmp = Float64(2.0 + Float64(4.0 * Float64(x / y))); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if ((z <= -9.8e+39) || ~((z <= 7.8e-17))) tmp = 2.0 + ((z / y) * -4.0); else tmp = 2.0 + (4.0 * (x / y)); end tmp_2 = tmp; end
code[x_, y_, z_] := If[Or[LessEqual[z, -9.8e+39], N[Not[LessEqual[z, 7.8e-17]], $MachinePrecision]], N[(2.0 + N[(N[(z / y), $MachinePrecision] * -4.0), $MachinePrecision]), $MachinePrecision], N[(2.0 + N[(4.0 * N[(x / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -9.8 \cdot 10^{+39} \lor \neg \left(z \leq 7.8 \cdot 10^{-17}\right):\\
\;\;\;\;2 + \frac{z}{y} \cdot -4\\
\mathbf{else}:\\
\;\;\;\;2 + 4 \cdot \frac{x}{y}\\
\end{array}
\end{array}
if z < -9.79999999999999974e39 or 7.79999999999999979e-17 < z Initial program 100.0%
+-commutative100.0%
associate-*l/99.8%
+-commutative99.8%
associate--l+99.8%
+-commutative99.8%
distribute-lft-in99.8%
associate-+l+99.8%
associate-*l/99.8%
*-commutative99.8%
associate-*l*99.8%
metadata-eval99.8%
*-rgt-identity99.8%
*-inverses99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in x around 0 91.2%
+-commutative91.2%
*-commutative91.2%
Simplified91.2%
if -9.79999999999999974e39 < z < 7.79999999999999979e-17Initial program 99.3%
+-commutative99.3%
associate-*l/99.8%
+-commutative99.8%
associate--l+99.8%
+-commutative99.8%
distribute-lft-in99.8%
associate-+l+99.8%
associate-*l/99.8%
*-commutative99.8%
associate-*l*99.8%
metadata-eval99.8%
*-rgt-identity99.8%
*-inverses99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in z around 0 93.2%
Final simplification92.3%
(FPCore (x y z) :precision binary64 (+ 2.0 (* (- x z) (/ 4.0 y))))
double code(double x, double y, double z) {
return 2.0 + ((x - z) * (4.0 / y));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = 2.0d0 + ((x - z) * (4.0d0 / y))
end function
public static double code(double x, double y, double z) {
return 2.0 + ((x - z) * (4.0 / y));
}
def code(x, y, z): return 2.0 + ((x - z) * (4.0 / y))
function code(x, y, z) return Float64(2.0 + Float64(Float64(x - z) * Float64(4.0 / y))) end
function tmp = code(x, y, z) tmp = 2.0 + ((x - z) * (4.0 / y)); end
code[x_, y_, z_] := N[(2.0 + N[(N[(x - z), $MachinePrecision] * N[(4.0 / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
2 + \left(x - z\right) \cdot \frac{4}{y}
\end{array}
Initial program 99.6%
+-commutative99.6%
associate-*l/99.8%
+-commutative99.8%
associate--l+99.8%
+-commutative99.8%
distribute-lft-in99.8%
associate-+l+99.8%
associate-*l/99.8%
*-commutative99.8%
associate-*l*99.8%
metadata-eval99.8%
*-rgt-identity99.8%
*-inverses99.8%
metadata-eval99.8%
Simplified99.8%
Final simplification99.8%
(FPCore (x y z) :precision binary64 1.0)
double code(double x, double y, double z) {
return 1.0;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = 1.0d0
end function
public static double code(double x, double y, double z) {
return 1.0;
}
def code(x, y, z): return 1.0
function code(x, y, z) return 1.0 end
function tmp = code(x, y, z) tmp = 1.0; end
code[x_, y_, z_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 99.6%
Taylor expanded in z around inf 41.3%
associate-*r/41.3%
metadata-eval41.3%
associate-*r*41.3%
neg-mul-141.3%
associate-*l/41.2%
metadata-eval41.2%
associate-*r/41.2%
distribute-rgt-neg-in41.2%
*-commutative41.2%
distribute-rgt-neg-in41.2%
associate-*r/41.2%
metadata-eval41.2%
distribute-neg-frac41.2%
metadata-eval41.2%
Simplified41.2%
Taylor expanded in z around 0 8.1%
Final simplification8.1%
(FPCore (x y z) :precision binary64 2.0)
double code(double x, double y, double z) {
return 2.0;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = 2.0d0
end function
public static double code(double x, double y, double z) {
return 2.0;
}
def code(x, y, z): return 2.0
function code(x, y, z) return 2.0 end
function tmp = code(x, y, z) tmp = 2.0; end
code[x_, y_, z_] := 2.0
\begin{array}{l}
\\
2
\end{array}
Initial program 99.6%
Taylor expanded in y around inf 35.1%
Final simplification35.1%
herbie shell --seed 2024067
(FPCore (x y z)
:name "Data.Array.Repa.Algorithms.ColorRamp:rampColorHotToCold from repa-algorithms-3.4.0.1, C"
:precision binary64
(+ 1.0 (/ (* 4.0 (- (+ x (* y 0.25)) z)) y)))