
(FPCore (x y z) :precision binary64 (- (- (* x (log y)) z) y))
double code(double x, double y, double z) {
return ((x * log(y)) - 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 = ((x * log(y)) - z) - y
end function
public static double code(double x, double y, double z) {
return ((x * Math.log(y)) - z) - y;
}
def code(x, y, z): return ((x * math.log(y)) - z) - y
function code(x, y, z) return Float64(Float64(Float64(x * log(y)) - z) - y) end
function tmp = code(x, y, z) tmp = ((x * log(y)) - z) - y; end
code[x_, y_, z_] := N[(N[(N[(x * N[Log[y], $MachinePrecision]), $MachinePrecision] - z), $MachinePrecision] - y), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \log y - z\right) - y
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 9 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (- (- (* x (log y)) z) y))
double code(double x, double y, double z) {
return ((x * log(y)) - 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 = ((x * log(y)) - z) - y
end function
public static double code(double x, double y, double z) {
return ((x * Math.log(y)) - z) - y;
}
def code(x, y, z): return ((x * math.log(y)) - z) - y
function code(x, y, z) return Float64(Float64(Float64(x * log(y)) - z) - y) end
function tmp = code(x, y, z) tmp = ((x * log(y)) - z) - y; end
code[x_, y_, z_] := N[(N[(N[(x * N[Log[y], $MachinePrecision]), $MachinePrecision] - z), $MachinePrecision] - y), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \log y - z\right) - y
\end{array}
(FPCore (x y z) :precision binary64 (- (- (* x (log y)) z) y))
double code(double x, double y, double z) {
return ((x * log(y)) - 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 = ((x * log(y)) - z) - y
end function
public static double code(double x, double y, double z) {
return ((x * Math.log(y)) - z) - y;
}
def code(x, y, z): return ((x * math.log(y)) - z) - y
function code(x, y, z) return Float64(Float64(Float64(x * log(y)) - z) - y) end
function tmp = code(x, y, z) tmp = ((x * log(y)) - z) - y; end
code[x_, y_, z_] := N[(N[(N[(x * N[Log[y], $MachinePrecision]), $MachinePrecision] - z), $MachinePrecision] - y), $MachinePrecision]
\begin{array}{l}
\\
\left(x \cdot \log y - z\right) - y
\end{array}
Initial program 99.9%
(FPCore (x y z) :precision binary64 (if (or (<= z -9.4e+27) (not (<= z 3.4e+74))) (- (- z) y) (- (* x (log y)) y)))
double code(double x, double y, double z) {
double tmp;
if ((z <= -9.4e+27) || !(z <= 3.4e+74)) {
tmp = -z - y;
} else {
tmp = (x * log(y)) - 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.4d+27)) .or. (.not. (z <= 3.4d+74))) then
tmp = -z - y
else
tmp = (x * log(y)) - y
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if ((z <= -9.4e+27) || !(z <= 3.4e+74)) {
tmp = -z - y;
} else {
tmp = (x * Math.log(y)) - y;
}
return tmp;
}
def code(x, y, z): tmp = 0 if (z <= -9.4e+27) or not (z <= 3.4e+74): tmp = -z - y else: tmp = (x * math.log(y)) - y return tmp
function code(x, y, z) tmp = 0.0 if ((z <= -9.4e+27) || !(z <= 3.4e+74)) tmp = Float64(Float64(-z) - y); else tmp = Float64(Float64(x * log(y)) - y); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if ((z <= -9.4e+27) || ~((z <= 3.4e+74))) tmp = -z - y; else tmp = (x * log(y)) - y; end tmp_2 = tmp; end
code[x_, y_, z_] := If[Or[LessEqual[z, -9.4e+27], N[Not[LessEqual[z, 3.4e+74]], $MachinePrecision]], N[((-z) - y), $MachinePrecision], N[(N[(x * N[Log[y], $MachinePrecision]), $MachinePrecision] - y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -9.4 \cdot 10^{+27} \lor \neg \left(z \leq 3.4 \cdot 10^{+74}\right):\\
\;\;\;\;\left(-z\right) - y\\
\mathbf{else}:\\
\;\;\;\;x \cdot \log y - y\\
\end{array}
\end{array}
if z < -9.39999999999999952e27 or 3.3999999999999999e74 < z Initial program 99.9%
Taylor expanded in x around 0 80.7%
neg-mul-180.7%
+-commutative80.7%
distribute-neg-in80.7%
sub-neg80.7%
Simplified80.7%
if -9.39999999999999952e27 < z < 3.3999999999999999e74Initial program 99.8%
Taylor expanded in z around 0 94.2%
Final simplification88.6%
(FPCore (x y z) :precision binary64 (let* ((t_0 (* x (log y)))) (if (<= z -2.8e+25) (- t_0 z) (if (<= z 1.3e+74) (- t_0 y) (- (- z) y)))))
double code(double x, double y, double z) {
double t_0 = x * log(y);
double tmp;
if (z <= -2.8e+25) {
tmp = t_0 - z;
} else if (z <= 1.3e+74) {
tmp = t_0 - y;
} else {
tmp = -z - 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) :: t_0
real(8) :: tmp
t_0 = x * log(y)
if (z <= (-2.8d+25)) then
tmp = t_0 - z
else if (z <= 1.3d+74) then
tmp = t_0 - y
else
tmp = -z - y
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = x * Math.log(y);
double tmp;
if (z <= -2.8e+25) {
tmp = t_0 - z;
} else if (z <= 1.3e+74) {
tmp = t_0 - y;
} else {
tmp = -z - y;
}
return tmp;
}
def code(x, y, z): t_0 = x * math.log(y) tmp = 0 if z <= -2.8e+25: tmp = t_0 - z elif z <= 1.3e+74: tmp = t_0 - y else: tmp = -z - y return tmp
function code(x, y, z) t_0 = Float64(x * log(y)) tmp = 0.0 if (z <= -2.8e+25) tmp = Float64(t_0 - z); elseif (z <= 1.3e+74) tmp = Float64(t_0 - y); else tmp = Float64(Float64(-z) - y); end return tmp end
function tmp_2 = code(x, y, z) t_0 = x * log(y); tmp = 0.0; if (z <= -2.8e+25) tmp = t_0 - z; elseif (z <= 1.3e+74) tmp = t_0 - y; else tmp = -z - y; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(x * N[Log[y], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -2.8e+25], N[(t$95$0 - z), $MachinePrecision], If[LessEqual[z, 1.3e+74], N[(t$95$0 - y), $MachinePrecision], N[((-z) - y), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := x \cdot \log y\\
\mathbf{if}\;z \leq -2.8 \cdot 10^{+25}:\\
\;\;\;\;t\_0 - z\\
\mathbf{elif}\;z \leq 1.3 \cdot 10^{+74}:\\
\;\;\;\;t\_0 - y\\
\mathbf{else}:\\
\;\;\;\;\left(-z\right) - y\\
\end{array}
\end{array}
if z < -2.8000000000000002e25Initial program 99.9%
Taylor expanded in y around 0 86.2%
if -2.8000000000000002e25 < z < 1.3e74Initial program 99.8%
Taylor expanded in z around 0 94.2%
if 1.3e74 < z Initial program 99.9%
Taylor expanded in x around 0 87.6%
neg-mul-187.6%
+-commutative87.6%
distribute-neg-in87.6%
sub-neg87.6%
Simplified87.6%
(FPCore (x y z) :precision binary64 (if (or (<= x -1e+87) (not (<= x 7.6e+166))) (* x (log y)) (- (- z) y)))
double code(double x, double y, double z) {
double tmp;
if ((x <= -1e+87) || !(x <= 7.6e+166)) {
tmp = x * log(y);
} else {
tmp = -z - 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 ((x <= (-1d+87)) .or. (.not. (x <= 7.6d+166))) then
tmp = x * log(y)
else
tmp = -z - y
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if ((x <= -1e+87) || !(x <= 7.6e+166)) {
tmp = x * Math.log(y);
} else {
tmp = -z - y;
}
return tmp;
}
def code(x, y, z): tmp = 0 if (x <= -1e+87) or not (x <= 7.6e+166): tmp = x * math.log(y) else: tmp = -z - y return tmp
function code(x, y, z) tmp = 0.0 if ((x <= -1e+87) || !(x <= 7.6e+166)) tmp = Float64(x * log(y)); else tmp = Float64(Float64(-z) - y); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if ((x <= -1e+87) || ~((x <= 7.6e+166))) tmp = x * log(y); else tmp = -z - y; end tmp_2 = tmp; end
code[x_, y_, z_] := If[Or[LessEqual[x, -1e+87], N[Not[LessEqual[x, 7.6e+166]], $MachinePrecision]], N[(x * N[Log[y], $MachinePrecision]), $MachinePrecision], N[((-z) - y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;x \leq -1 \cdot 10^{+87} \lor \neg \left(x \leq 7.6 \cdot 10^{+166}\right):\\
\;\;\;\;x \cdot \log y\\
\mathbf{else}:\\
\;\;\;\;\left(-z\right) - y\\
\end{array}
\end{array}
if x < -9.9999999999999996e86 or 7.60000000000000014e166 < x Initial program 99.7%
Taylor expanded in x around inf 77.3%
if -9.9999999999999996e86 < x < 7.60000000000000014e166Initial program 99.9%
Taylor expanded in x around 0 83.6%
neg-mul-183.6%
+-commutative83.6%
distribute-neg-in83.6%
sub-neg83.6%
Simplified83.6%
Final simplification81.8%
(FPCore (x y z) :precision binary64 (if (or (<= z -7.5e+22) (not (<= z 6.5e+78))) (- z) (- y)))
double code(double x, double y, double z) {
double tmp;
if ((z <= -7.5e+22) || !(z <= 6.5e+78)) {
tmp = -z;
} else {
tmp = -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 <= (-7.5d+22)) .or. (.not. (z <= 6.5d+78))) then
tmp = -z
else
tmp = -y
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if ((z <= -7.5e+22) || !(z <= 6.5e+78)) {
tmp = -z;
} else {
tmp = -y;
}
return tmp;
}
def code(x, y, z): tmp = 0 if (z <= -7.5e+22) or not (z <= 6.5e+78): tmp = -z else: tmp = -y return tmp
function code(x, y, z) tmp = 0.0 if ((z <= -7.5e+22) || !(z <= 6.5e+78)) tmp = Float64(-z); else tmp = Float64(-y); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if ((z <= -7.5e+22) || ~((z <= 6.5e+78))) tmp = -z; else tmp = -y; end tmp_2 = tmp; end
code[x_, y_, z_] := If[Or[LessEqual[z, -7.5e+22], N[Not[LessEqual[z, 6.5e+78]], $MachinePrecision]], (-z), (-y)]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;z \leq -7.5 \cdot 10^{+22} \lor \neg \left(z \leq 6.5 \cdot 10^{+78}\right):\\
\;\;\;\;-z\\
\mathbf{else}:\\
\;\;\;\;-y\\
\end{array}
\end{array}
if z < -7.5000000000000002e22 or 6.50000000000000036e78 < z Initial program 99.9%
Taylor expanded in z around inf 65.7%
neg-mul-165.7%
Simplified65.7%
if -7.5000000000000002e22 < z < 6.50000000000000036e78Initial program 99.8%
Taylor expanded in y around inf 50.1%
neg-mul-150.1%
Simplified50.1%
Final simplification56.4%
(FPCore (x y z) :precision binary64 (- (- z) y))
double code(double x, double y, double z) {
return -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 = -z - y
end function
public static double code(double x, double y, double z) {
return -z - y;
}
def code(x, y, z): return -z - y
function code(x, y, z) return Float64(Float64(-z) - y) end
function tmp = code(x, y, z) tmp = -z - y; end
code[x_, y_, z_] := N[((-z) - y), $MachinePrecision]
\begin{array}{l}
\\
\left(-z\right) - y
\end{array}
Initial program 99.9%
Taylor expanded in x around 0 66.0%
neg-mul-166.0%
+-commutative66.0%
distribute-neg-in66.0%
sub-neg66.0%
Simplified66.0%
(FPCore (x y z) :precision binary64 (- y))
double code(double x, double y, double z) {
return -y;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = -y
end function
public static double code(double x, double y, double z) {
return -y;
}
def code(x, y, z): return -y
function code(x, y, z) return Float64(-y) end
function tmp = code(x, y, z) tmp = -y; end
code[x_, y_, z_] := (-y)
\begin{array}{l}
\\
-y
\end{array}
Initial program 99.9%
Taylor expanded in y around inf 35.9%
neg-mul-135.9%
Simplified35.9%
(FPCore (x y z) :precision binary64 z)
double code(double x, double y, double z) {
return z;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = z
end function
public static double code(double x, double y, double z) {
return z;
}
def code(x, y, z): return z
function code(x, y, z) return z end
function tmp = code(x, y, z) tmp = z; end
code[x_, y_, z_] := z
\begin{array}{l}
\\
z
\end{array}
Initial program 99.9%
sub-neg99.9%
associate--l+99.8%
*-commutative99.8%
add-sqr-sqrt51.4%
associate-*r*51.4%
fma-define51.4%
Applied egg-rr51.4%
neg-sub051.4%
sub-neg51.4%
add-sqr-sqrt23.7%
sqrt-unprod33.4%
sqr-neg33.4%
sqrt-unprod18.3%
add-sqr-sqrt34.4%
Applied egg-rr34.4%
+-lft-identity34.4%
Simplified34.4%
Taylor expanded in z around inf 2.3%
(FPCore (x y z) :precision binary64 y)
double code(double x, double y, double z) {
return y;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = y
end function
public static double code(double x, double y, double z) {
return y;
}
def code(x, y, z): return y
function code(x, y, z) return y end
function tmp = code(x, y, z) tmp = y; end
code[x_, y_, z_] := y
\begin{array}{l}
\\
y
\end{array}
Initial program 99.9%
Taylor expanded in y around inf 35.9%
neg-mul-135.9%
Simplified35.9%
neg-sub035.9%
sub-neg35.9%
add-sqr-sqrt0.0%
sqrt-unprod2.1%
sqr-neg2.1%
sqrt-unprod2.1%
add-sqr-sqrt2.1%
Applied egg-rr2.1%
+-lft-identity2.1%
Simplified2.1%
herbie shell --seed 2024186
(FPCore (x y z)
:name "Statistics.Distribution.Poisson:$clogProbability from math-functions-0.1.5.2"
:precision binary64
(- (- (* x (log y)) z) y))