
(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 10 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 (fma (log y) x (- (- 0.0 y) z)))
double code(double x, double y, double z) {
return fma(log(y), x, ((0.0 - y) - z));
}
function code(x, y, z) return fma(log(y), x, Float64(Float64(0.0 - y) - z)) end
code[x_, y_, z_] := N[(N[Log[y], $MachinePrecision] * x + N[(N[(0.0 - y), $MachinePrecision] - z), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\log y, x, \left(0 - y\right) - z\right)
\end{array}
Initial program 99.8%
sub-negN/A
associate--l+N/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
log-lowering-log.f64N/A
--lowering--.f64N/A
neg-sub0N/A
--lowering--.f6499.8
Applied egg-rr99.8%
Final simplification99.8%
(FPCore (x y z) :precision binary64 (let* ((t_0 (- (* (log y) x) y))) (if (<= x -5.8e+76) t_0 (if (<= x 9.4e+116) (- (- 0.0 y) z) t_0))))
double code(double x, double y, double z) {
double t_0 = (log(y) * x) - y;
double tmp;
if (x <= -5.8e+76) {
tmp = t_0;
} else if (x <= 9.4e+116) {
tmp = (0.0 - y) - z;
} else {
tmp = t_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) :: tmp
t_0 = (log(y) * x) - y
if (x <= (-5.8d+76)) then
tmp = t_0
else if (x <= 9.4d+116) then
tmp = (0.0d0 - y) - z
else
tmp = t_0
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = (Math.log(y) * x) - y;
double tmp;
if (x <= -5.8e+76) {
tmp = t_0;
} else if (x <= 9.4e+116) {
tmp = (0.0 - y) - z;
} else {
tmp = t_0;
}
return tmp;
}
def code(x, y, z): t_0 = (math.log(y) * x) - y tmp = 0 if x <= -5.8e+76: tmp = t_0 elif x <= 9.4e+116: tmp = (0.0 - y) - z else: tmp = t_0 return tmp
function code(x, y, z) t_0 = Float64(Float64(log(y) * x) - y) tmp = 0.0 if (x <= -5.8e+76) tmp = t_0; elseif (x <= 9.4e+116) tmp = Float64(Float64(0.0 - y) - z); else tmp = t_0; end return tmp end
function tmp_2 = code(x, y, z) t_0 = (log(y) * x) - y; tmp = 0.0; if (x <= -5.8e+76) tmp = t_0; elseif (x <= 9.4e+116) tmp = (0.0 - y) - z; else tmp = t_0; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(N[(N[Log[y], $MachinePrecision] * x), $MachinePrecision] - y), $MachinePrecision]}, If[LessEqual[x, -5.8e+76], t$95$0, If[LessEqual[x, 9.4e+116], N[(N[(0.0 - y), $MachinePrecision] - z), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log y \cdot x - y\\
\mathbf{if}\;x \leq -5.8 \cdot 10^{+76}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x \leq 9.4 \cdot 10^{+116}:\\
\;\;\;\;\left(0 - y\right) - z\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if x < -5.8000000000000003e76 or 9.4000000000000007e116 < x Initial program 99.6%
flip--N/A
div-subN/A
sub-negN/A
swap-sqrN/A
associate-/l*N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f64N/A
/-lowering-/.f64N/A
pow2N/A
pow-lowering-pow.f64N/A
log-lowering-log.f64N/A
accelerator-lowering-fma.f64N/A
log-lowering-log.f64N/A
neg-lowering-neg.f64N/A
/-lowering-/.f64N/A
Applied egg-rr29.0%
Taylor expanded in z around inf
*-lowering-*.f64N/A
sub-negN/A
associate-/l*N/A
metadata-evalN/A
accelerator-lowering-fma.f64N/A
/-lowering-/.f64N/A
log-lowering-log.f6468.2
Simplified68.2%
Taylor expanded in z around 0
*-lowering-*.f64N/A
log-lowering-log.f6488.7
Simplified88.7%
if -5.8000000000000003e76 < x < 9.4000000000000007e116Initial program 100.0%
Taylor expanded in x around 0
mul-1-negN/A
neg-sub0N/A
--lowering--.f6486.8
Simplified86.8%
Final simplification87.5%
(FPCore (x y z) :precision binary64 (let* ((t_0 (* (log y) x))) (if (<= x -3.9e+105) t_0 (if (<= x 8.4e+117) (- (- 0.0 y) z) t_0))))
double code(double x, double y, double z) {
double t_0 = log(y) * x;
double tmp;
if (x <= -3.9e+105) {
tmp = t_0;
} else if (x <= 8.4e+117) {
tmp = (0.0 - y) - z;
} else {
tmp = t_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) :: tmp
t_0 = log(y) * x
if (x <= (-3.9d+105)) then
tmp = t_0
else if (x <= 8.4d+117) then
tmp = (0.0d0 - y) - z
else
tmp = t_0
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double t_0 = Math.log(y) * x;
double tmp;
if (x <= -3.9e+105) {
tmp = t_0;
} else if (x <= 8.4e+117) {
tmp = (0.0 - y) - z;
} else {
tmp = t_0;
}
return tmp;
}
def code(x, y, z): t_0 = math.log(y) * x tmp = 0 if x <= -3.9e+105: tmp = t_0 elif x <= 8.4e+117: tmp = (0.0 - y) - z else: tmp = t_0 return tmp
function code(x, y, z) t_0 = Float64(log(y) * x) tmp = 0.0 if (x <= -3.9e+105) tmp = t_0; elseif (x <= 8.4e+117) tmp = Float64(Float64(0.0 - y) - z); else tmp = t_0; end return tmp end
function tmp_2 = code(x, y, z) t_0 = log(y) * x; tmp = 0.0; if (x <= -3.9e+105) tmp = t_0; elseif (x <= 8.4e+117) tmp = (0.0 - y) - z; else tmp = t_0; end tmp_2 = tmp; end
code[x_, y_, z_] := Block[{t$95$0 = N[(N[Log[y], $MachinePrecision] * x), $MachinePrecision]}, If[LessEqual[x, -3.9e+105], t$95$0, If[LessEqual[x, 8.4e+117], N[(N[(0.0 - y), $MachinePrecision] - z), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \log y \cdot x\\
\mathbf{if}\;x \leq -3.9 \cdot 10^{+105}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x \leq 8.4 \cdot 10^{+117}:\\
\;\;\;\;\left(0 - y\right) - z\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if x < -3.89999999999999978e105 or 8.4000000000000005e117 < x Initial program 99.6%
Taylor expanded in x around inf
+-rgt-identityN/A
accelerator-lowering-fma.f64N/A
log-lowering-log.f6473.7
Simplified73.7%
+-rgt-identityN/A
*-commutativeN/A
*-lowering-*.f64N/A
log-lowering-log.f6473.7
Applied egg-rr73.7%
if -3.89999999999999978e105 < x < 8.4000000000000005e117Initial program 99.9%
Taylor expanded in x around 0
mul-1-negN/A
neg-sub0N/A
--lowering--.f6486.1
Simplified86.1%
Final simplification82.1%
(FPCore (x y z) :precision binary64 (if (<= y 1.55e+48) (fma (log y) x (- 0.0 z)) (fma (log y) x (- 0.0 y))))
double code(double x, double y, double z) {
double tmp;
if (y <= 1.55e+48) {
tmp = fma(log(y), x, (0.0 - z));
} else {
tmp = fma(log(y), x, (0.0 - y));
}
return tmp;
}
function code(x, y, z) tmp = 0.0 if (y <= 1.55e+48) tmp = fma(log(y), x, Float64(0.0 - z)); else tmp = fma(log(y), x, Float64(0.0 - y)); end return tmp end
code[x_, y_, z_] := If[LessEqual[y, 1.55e+48], N[(N[Log[y], $MachinePrecision] * x + N[(0.0 - z), $MachinePrecision]), $MachinePrecision], N[(N[Log[y], $MachinePrecision] * x + N[(0.0 - y), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq 1.55 \cdot 10^{+48}:\\
\;\;\;\;\mathsf{fma}\left(\log y, x, 0 - z\right)\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(\log y, x, 0 - y\right)\\
\end{array}
\end{array}
if y < 1.55000000000000003e48Initial program 99.8%
sub-negN/A
associate--l+N/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
log-lowering-log.f64N/A
--lowering--.f64N/A
neg-sub0N/A
--lowering--.f6499.8
Applied egg-rr99.8%
Taylor expanded in z around inf
mul-1-negN/A
neg-sub0N/A
--lowering--.f6489.8
Simplified89.8%
sub0-negN/A
unpow1N/A
metadata-evalN/A
pow-divN/A
sqr-powN/A
pow2N/A
sqr-negN/A
sub0-negN/A
sub0-negN/A
pow-prod-downN/A
sqr-negN/A
sub0-negN/A
sub0-negN/A
pow-prod-downN/A
sqr-powN/A
pow2N/A
pow-divN/A
metadata-evalN/A
metadata-evalN/A
pow-flipN/A
inv-powN/A
remove-double-divN/A
neg-lowering-neg.f64N/A
flip3--N/A
Applied egg-rr89.8%
if 1.55000000000000003e48 < y Initial program 99.9%
sub-negN/A
associate--l+N/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
log-lowering-log.f64N/A
--lowering--.f64N/A
neg-sub0N/A
--lowering--.f6499.9
Applied egg-rr99.9%
Taylor expanded in z around 0
mul-1-negN/A
neg-sub0N/A
--lowering--.f6486.2
Simplified86.2%
Final simplification88.3%
(FPCore (x y z) :precision binary64 (if (<= y 8.4e+47) (fma (log y) x (- 0.0 z)) (- (* (log y) x) y)))
double code(double x, double y, double z) {
double tmp;
if (y <= 8.4e+47) {
tmp = fma(log(y), x, (0.0 - z));
} else {
tmp = (log(y) * x) - y;
}
return tmp;
}
function code(x, y, z) tmp = 0.0 if (y <= 8.4e+47) tmp = fma(log(y), x, Float64(0.0 - z)); else tmp = Float64(Float64(log(y) * x) - y); end return tmp end
code[x_, y_, z_] := If[LessEqual[y, 8.4e+47], N[(N[Log[y], $MachinePrecision] * x + N[(0.0 - z), $MachinePrecision]), $MachinePrecision], N[(N[(N[Log[y], $MachinePrecision] * x), $MachinePrecision] - y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq 8.4 \cdot 10^{+47}:\\
\;\;\;\;\mathsf{fma}\left(\log y, x, 0 - z\right)\\
\mathbf{else}:\\
\;\;\;\;\log y \cdot x - y\\
\end{array}
\end{array}
if y < 8.4e47Initial program 99.8%
sub-negN/A
associate--l+N/A
*-commutativeN/A
accelerator-lowering-fma.f64N/A
log-lowering-log.f64N/A
--lowering--.f64N/A
neg-sub0N/A
--lowering--.f6499.8
Applied egg-rr99.8%
Taylor expanded in z around inf
mul-1-negN/A
neg-sub0N/A
--lowering--.f6489.8
Simplified89.8%
sub0-negN/A
unpow1N/A
metadata-evalN/A
pow-divN/A
sqr-powN/A
pow2N/A
sqr-negN/A
sub0-negN/A
sub0-negN/A
pow-prod-downN/A
sqr-negN/A
sub0-negN/A
sub0-negN/A
pow-prod-downN/A
sqr-powN/A
pow2N/A
pow-divN/A
metadata-evalN/A
metadata-evalN/A
pow-flipN/A
inv-powN/A
remove-double-divN/A
neg-lowering-neg.f64N/A
flip3--N/A
Applied egg-rr89.8%
if 8.4e47 < y Initial program 99.9%
flip--N/A
div-subN/A
sub-negN/A
swap-sqrN/A
associate-/l*N/A
accelerator-lowering-fma.f64N/A
*-lowering-*.f64N/A
/-lowering-/.f64N/A
pow2N/A
pow-lowering-pow.f64N/A
log-lowering-log.f64N/A
accelerator-lowering-fma.f64N/A
log-lowering-log.f64N/A
neg-lowering-neg.f64N/A
/-lowering-/.f64N/A
Applied egg-rr63.6%
Taylor expanded in z around inf
*-lowering-*.f64N/A
sub-negN/A
associate-/l*N/A
metadata-evalN/A
accelerator-lowering-fma.f64N/A
/-lowering-/.f64N/A
log-lowering-log.f6487.1
Simplified87.1%
Taylor expanded in z around 0
*-lowering-*.f64N/A
log-lowering-log.f6486.2
Simplified86.2%
Final simplification88.3%
(FPCore (x y z) :precision binary64 (- (- (* (log y) x) z) y))
double code(double x, double y, double z) {
return ((log(y) * x) - 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 = ((log(y) * x) - z) - y
end function
public static double code(double x, double y, double z) {
return ((Math.log(y) * x) - z) - y;
}
def code(x, y, z): return ((math.log(y) * x) - z) - y
function code(x, y, z) return Float64(Float64(Float64(log(y) * x) - z) - y) end
function tmp = code(x, y, z) tmp = ((log(y) * x) - z) - y; end
code[x_, y_, z_] := N[(N[(N[(N[Log[y], $MachinePrecision] * x), $MachinePrecision] - z), $MachinePrecision] - y), $MachinePrecision]
\begin{array}{l}
\\
\left(\log y \cdot x - z\right) - y
\end{array}
Initial program 99.8%
Final simplification99.8%
(FPCore (x y z) :precision binary64 (if (<= y 1.25e+48) (- 0.0 z) (- 0.0 y)))
double code(double x, double y, double z) {
double tmp;
if (y <= 1.25e+48) {
tmp = 0.0 - z;
} else {
tmp = 0.0 - 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 (y <= 1.25d+48) then
tmp = 0.0d0 - z
else
tmp = 0.0d0 - y
end if
code = tmp
end function
public static double code(double x, double y, double z) {
double tmp;
if (y <= 1.25e+48) {
tmp = 0.0 - z;
} else {
tmp = 0.0 - y;
}
return tmp;
}
def code(x, y, z): tmp = 0 if y <= 1.25e+48: tmp = 0.0 - z else: tmp = 0.0 - y return tmp
function code(x, y, z) tmp = 0.0 if (y <= 1.25e+48) tmp = Float64(0.0 - z); else tmp = Float64(0.0 - y); end return tmp end
function tmp_2 = code(x, y, z) tmp = 0.0; if (y <= 1.25e+48) tmp = 0.0 - z; else tmp = 0.0 - y; end tmp_2 = tmp; end
code[x_, y_, z_] := If[LessEqual[y, 1.25e+48], N[(0.0 - z), $MachinePrecision], N[(0.0 - y), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;y \leq 1.25 \cdot 10^{+48}:\\
\;\;\;\;0 - z\\
\mathbf{else}:\\
\;\;\;\;0 - y\\
\end{array}
\end{array}
if y < 1.24999999999999993e48Initial program 99.8%
flip--N/A
clear-numN/A
/-lowering-/.f64N/A
clear-numN/A
flip--N/A
/-lowering-/.f64N/A
associate--l-N/A
--lowering--.f64N/A
*-lowering-*.f64N/A
log-lowering-log.f64N/A
+-commutativeN/A
+-lowering-+.f6499.6
Applied egg-rr99.6%
Taylor expanded in z around inf
/-lowering-/.f6446.1
Simplified46.1%
associate-/r/N/A
metadata-evalN/A
neg-mul-1N/A
unpow1N/A
metadata-evalN/A
pow-divN/A
sqr-powN/A
pow2N/A
sqr-negN/A
sub0-negN/A
sub0-negN/A
pow-prod-downN/A
sqr-negN/A
sub0-negN/A
sub0-negN/A
pow-prod-downN/A
sqr-powN/A
pow2N/A
pow-divN/A
metadata-evalN/A
metadata-evalN/A
pow-flipN/A
inv-powN/A
remove-double-divN/A
neg-lowering-neg.f64N/A
Applied egg-rr46.2%
if 1.24999999999999993e48 < y Initial program 99.9%
Taylor expanded in y around inf
mul-1-negN/A
neg-sub0N/A
--lowering--.f6468.9
Simplified68.9%
sub0-negN/A
neg-lowering-neg.f6468.9
Applied egg-rr68.9%
Final simplification55.4%
(FPCore (x y z) :precision binary64 (- (- 0.0 y) z))
double code(double x, double y, double z) {
return (0.0 - y) - z;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = (0.0d0 - y) - z
end function
public static double code(double x, double y, double z) {
return (0.0 - y) - z;
}
def code(x, y, z): return (0.0 - y) - z
function code(x, y, z) return Float64(Float64(0.0 - y) - z) end
function tmp = code(x, y, z) tmp = (0.0 - y) - z; end
code[x_, y_, z_] := N[(N[(0.0 - y), $MachinePrecision] - z), $MachinePrecision]
\begin{array}{l}
\\
\left(0 - y\right) - z
\end{array}
Initial program 99.8%
Taylor expanded in x around 0
mul-1-negN/A
neg-sub0N/A
--lowering--.f6466.4
Simplified66.4%
Final simplification66.4%
(FPCore (x y z) :precision binary64 (- 0.0 y))
double code(double x, double y, double z) {
return 0.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 = 0.0d0 - y
end function
public static double code(double x, double y, double z) {
return 0.0 - y;
}
def code(x, y, z): return 0.0 - y
function code(x, y, z) return Float64(0.0 - y) end
function tmp = code(x, y, z) tmp = 0.0 - y; end
code[x_, y_, z_] := N[(0.0 - y), $MachinePrecision]
\begin{array}{l}
\\
0 - y
\end{array}
Initial program 99.8%
Taylor expanded in y around inf
mul-1-negN/A
neg-sub0N/A
--lowering--.f6434.8
Simplified34.8%
sub0-negN/A
neg-lowering-neg.f6434.8
Applied egg-rr34.8%
Final simplification34.8%
(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.8%
flip--N/A
clear-numN/A
/-lowering-/.f64N/A
clear-numN/A
flip--N/A
/-lowering-/.f64N/A
associate--l-N/A
--lowering--.f64N/A
*-lowering-*.f64N/A
log-lowering-log.f64N/A
+-commutativeN/A
+-lowering-+.f6499.6
Applied egg-rr99.6%
Taylor expanded in z around inf
/-lowering-/.f6432.9
Simplified32.9%
frac-2negN/A
metadata-evalN/A
sub0-negN/A
inv-powN/A
pow-flipN/A
metadata-evalN/A
metadata-evalN/A
pow-divN/A
sqr-powN/A
pow-prod-downN/A
sub0-negN/A
sub0-negN/A
sqr-negN/A
pow-prod-downN/A
pow2N/A
sqr-powN/A
sub0-negN/A
sub0-negN/A
sqr-negN/A
pow2N/A
pow-divN/A
metadata-evalN/A
unpow12.3
Applied egg-rr2.3%
herbie shell --seed 2024196
(FPCore (x y z)
:name "Statistics.Distribution.Poisson:$clogProbability from math-functions-0.1.5.2"
:precision binary64
(- (- (* x (log y)) z) y))