
(FPCore (re im) :precision binary64 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10.0)))
double code(double re, double im) {
return log(sqrt(((re * re) + (im * im)))) / log(10.0);
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = log(sqrt(((re * re) + (im * im)))) / log(10.0d0)
end function
public static double code(double re, double im) {
return Math.log(Math.sqrt(((re * re) + (im * im)))) / Math.log(10.0);
}
def code(re, im): return math.log(math.sqrt(((re * re) + (im * im)))) / math.log(10.0)
function code(re, im) return Float64(log(sqrt(Float64(Float64(re * re) + Float64(im * im)))) / log(10.0)) end
function tmp = code(re, im) tmp = log(sqrt(((re * re) + (im * im)))) / log(10.0); end
code[re_, im_] := N[(N[Log[N[Sqrt[N[(N[(re * re), $MachinePrecision] + N[(im * im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision] / N[Log[10.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\log \left(\sqrt{re \cdot re + im \cdot im}\right)}{\log 10}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 7 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (re im) :precision binary64 (/ (log (sqrt (+ (* re re) (* im im)))) (log 10.0)))
double code(double re, double im) {
return log(sqrt(((re * re) + (im * im)))) / log(10.0);
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = log(sqrt(((re * re) + (im * im)))) / log(10.0d0)
end function
public static double code(double re, double im) {
return Math.log(Math.sqrt(((re * re) + (im * im)))) / Math.log(10.0);
}
def code(re, im): return math.log(math.sqrt(((re * re) + (im * im)))) / math.log(10.0)
function code(re, im) return Float64(log(sqrt(Float64(Float64(re * re) + Float64(im * im)))) / log(10.0)) end
function tmp = code(re, im) tmp = log(sqrt(((re * re) + (im * im)))) / log(10.0); end
code[re_, im_] := N[(N[Log[N[Sqrt[N[(N[(re * re), $MachinePrecision] + N[(im * im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision] / N[Log[10.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\log \left(\sqrt{re \cdot re + im \cdot im}\right)}{\log 10}
\end{array}
(FPCore (re im) :precision binary64 (/ (log (hypot re im)) (log 10.0)))
double code(double re, double im) {
return log(hypot(re, im)) / log(10.0);
}
public static double code(double re, double im) {
return Math.log(Math.hypot(re, im)) / Math.log(10.0);
}
def code(re, im): return math.log(math.hypot(re, im)) / math.log(10.0)
function code(re, im) return Float64(log(hypot(re, im)) / log(10.0)) end
function tmp = code(re, im) tmp = log(hypot(re, im)) / log(10.0); end
code[re_, im_] := N[(N[Log[N[Sqrt[re ^ 2 + im ^ 2], $MachinePrecision]], $MachinePrecision] / N[Log[10.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\log \left(\mathsf{hypot}\left(re, im\right)\right)}{\log 10}
\end{array}
Initial program 51.2%
lift-sqrt.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lower-hypot.f6499.1
Applied rewrites99.1%
(FPCore (re im) :precision binary64 (/ (* 0.5 (fma (/ re im) (/ re im) (* (- -2.0) (log im)))) (log 10.0)))
double code(double re, double im) {
return (0.5 * fma((re / im), (re / im), (-(-2.0) * log(im)))) / log(10.0);
}
function code(re, im) return Float64(Float64(0.5 * fma(Float64(re / im), Float64(re / im), Float64(Float64(-(-2.0)) * log(im)))) / log(10.0)) end
code[re_, im_] := N[(N[(0.5 * N[(N[(re / im), $MachinePrecision] * N[(re / im), $MachinePrecision] + N[((--2.0) * N[Log[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[Log[10.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{0.5 \cdot \mathsf{fma}\left(\frac{re}{im}, \frac{re}{im}, \left(--2\right) \cdot \log im\right)}{\log 10}
\end{array}
Initial program 51.2%
lift-sqrt.f64N/A
lift-+.f64N/A
lift-*.f64N/A
lift-*.f64N/A
lower-hypot.f6499.1
Applied rewrites99.1%
lift-hypot.f64N/A
+-commutativeN/A
lift-hypot.f6499.1
remove-double-divN/A
unpow-1N/A
lift-pow.f64N/A
frac-2negN/A
metadata-evalN/A
lower-/.f64N/A
lift-pow.f64N/A
unpow-1N/A
distribute-neg-fracN/A
metadata-evalN/A
lower-/.f6499.0
Applied rewrites99.0%
lift-/.f64N/A
lift-/.f64N/A
associate-/r/N/A
metadata-evalN/A
*-lft-identity99.1
lift-log.f64N/A
lift-hypot.f64N/A
lift-*.f64N/A
lift-fma.f64N/A
pow1/2N/A
log-powN/A
lift-log.f64N/A
*-commutativeN/A
lower-*.f6451.2
lift-fma.f64N/A
+-commutativeN/A
lift-*.f64N/A
lower-fma.f64N/A
lower-*.f6451.2
Applied rewrites51.2%
Taylor expanded in im around inf
+-commutativeN/A
unpow2N/A
unpow2N/A
times-fracN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
*-commutativeN/A
lower-*.f64N/A
log-recN/A
lower-neg.f64N/A
lower-log.f6421.4
Applied rewrites21.4%
Final simplification21.4%
(FPCore (re im) :precision binary64 (/ (* (fma (/ re im) (/ re im) (* 2.0 (log im))) -0.5) (log 0.1)))
double code(double re, double im) {
return (fma((re / im), (re / im), (2.0 * log(im))) * -0.5) / log(0.1);
}
function code(re, im) return Float64(Float64(fma(Float64(re / im), Float64(re / im), Float64(2.0 * log(im))) * -0.5) / log(0.1)) end
code[re_, im_] := N[(N[(N[(N[(re / im), $MachinePrecision] * N[(re / im), $MachinePrecision] + N[(2.0 * N[Log[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * -0.5), $MachinePrecision] / N[Log[0.1], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\mathsf{fma}\left(\frac{re}{im}, \frac{re}{im}, 2 \cdot \log im\right) \cdot -0.5}{\log 0.1}
\end{array}
Initial program 51.2%
lift-/.f64N/A
frac-2negN/A
lower-/.f64N/A
lower-neg.f64N/A
lift-sqrt.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
lower-hypot.f64N/A
lift-log.f64N/A
neg-logN/A
lower-log.f64N/A
metadata-eval99.0
Applied rewrites99.0%
lift-neg.f64N/A
lift-log.f64N/A
lift-hypot.f64N/A
pow1/2N/A
+-commutativeN/A
log-powN/A
distribute-lft-neg-inN/A
metadata-evalN/A
lower-*.f64N/A
lower-log.f64N/A
+-commutativeN/A
lower-fma.f64N/A
lower-*.f6451.3
Applied rewrites51.3%
Taylor expanded in im around inf
+-commutativeN/A
unpow2N/A
unpow2N/A
times-fracN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
log-recN/A
mul-1-negN/A
associate-*r*N/A
metadata-evalN/A
lower-*.f64N/A
lower-log.f6421.4
Applied rewrites21.4%
Final simplification21.4%
(FPCore (re im) :precision binary64 (/ 1.0 (/ (log 10.0) (log im))))
double code(double re, double im) {
return 1.0 / (log(10.0) / log(im));
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = 1.0d0 / (log(10.0d0) / log(im))
end function
public static double code(double re, double im) {
return 1.0 / (Math.log(10.0) / Math.log(im));
}
def code(re, im): return 1.0 / (math.log(10.0) / math.log(im))
function code(re, im) return Float64(1.0 / Float64(log(10.0) / log(im))) end
function tmp = code(re, im) tmp = 1.0 / (log(10.0) / log(im)); end
code[re_, im_] := N[(1.0 / N[(N[Log[10.0], $MachinePrecision] / N[Log[im], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\frac{\log 10}{\log im}}
\end{array}
Initial program 51.2%
Taylor expanded in re around 0
lower-log.f6423.4
Applied rewrites23.4%
lift-/.f64N/A
clear-numN/A
lower-/.f64N/A
lower-/.f6423.4
Applied rewrites23.4%
(FPCore (re im) :precision binary64 (/ (log im) (log 10.0)))
double code(double re, double im) {
return log(im) / log(10.0);
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = log(im) / log(10.0d0)
end function
public static double code(double re, double im) {
return Math.log(im) / Math.log(10.0);
}
def code(re, im): return math.log(im) / math.log(10.0)
function code(re, im) return Float64(log(im) / log(10.0)) end
function tmp = code(re, im) tmp = log(im) / log(10.0); end
code[re_, im_] := N[(N[Log[im], $MachinePrecision] / N[Log[10.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\log im}{\log 10}
\end{array}
Initial program 51.2%
Taylor expanded in re around 0
lower-log.f6423.4
Applied rewrites23.4%
(FPCore (re im) :precision binary64 (* (* re re) (/ 0.5 (log 10.0))))
double code(double re, double im) {
return (re * re) * (0.5 / log(10.0));
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = (re * re) * (0.5d0 / log(10.0d0))
end function
public static double code(double re, double im) {
return (re * re) * (0.5 / Math.log(10.0));
}
def code(re, im): return (re * re) * (0.5 / math.log(10.0))
function code(re, im) return Float64(Float64(re * re) * Float64(0.5 / log(10.0))) end
function tmp = code(re, im) tmp = (re * re) * (0.5 / log(10.0)); end
code[re_, im_] := N[(N[(re * re), $MachinePrecision] * N[(0.5 / N[Log[10.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(re \cdot re\right) \cdot \frac{0.5}{\log 10}
\end{array}
Initial program 51.2%
lift-/.f64N/A
frac-2negN/A
lower-/.f64N/A
lower-neg.f64N/A
lift-sqrt.f64N/A
lift-+.f64N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
lower-hypot.f64N/A
lift-log.f64N/A
neg-logN/A
lower-log.f64N/A
metadata-eval99.0
Applied rewrites99.0%
lift-neg.f64N/A
lift-log.f64N/A
lift-hypot.f64N/A
pow1/2N/A
+-commutativeN/A
log-powN/A
distribute-lft-neg-inN/A
metadata-evalN/A
lower-*.f64N/A
lower-log.f64N/A
+-commutativeN/A
lower-fma.f64N/A
lower-*.f6451.3
Applied rewrites51.3%
Taylor expanded in im around inf
+-commutativeN/A
unpow2N/A
unpow2N/A
times-fracN/A
lower-fma.f64N/A
lower-/.f64N/A
lower-/.f64N/A
log-recN/A
mul-1-negN/A
associate-*r*N/A
metadata-evalN/A
lower-*.f64N/A
lower-log.f6421.4
Applied rewrites21.4%
Applied rewrites3.8%
Final simplification3.8%
(FPCore (re im) :precision binary64 (/ 0.0 (log 10.0)))
double code(double re, double im) {
return 0.0 / log(10.0);
}
real(8) function code(re, im)
real(8), intent (in) :: re
real(8), intent (in) :: im
code = 0.0d0 / log(10.0d0)
end function
public static double code(double re, double im) {
return 0.0 / Math.log(10.0);
}
def code(re, im): return 0.0 / math.log(10.0)
function code(re, im) return Float64(0.0 / log(10.0)) end
function tmp = code(re, im) tmp = 0.0 / log(10.0); end
code[re_, im_] := N[(0.0 / N[Log[10.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{0}{\log 10}
\end{array}
Initial program 51.2%
Taylor expanded in re around 0
lower-log.f6423.4
Applied rewrites23.4%
lift-/.f64N/A
div-invN/A
unpow-1N/A
sqr-powN/A
associate-*r*N/A
*-commutativeN/A
lower-*.f64N/A
metadata-evalN/A
lower-pow.f64N/A
*-commutativeN/A
lower-*.f64N/A
metadata-evalN/A
lower-pow.f6423.5
Applied rewrites23.5%
Applied rewrites3.1%
herbie shell --seed 2024283
(FPCore (re im)
:name "math.log10 on complex, real part"
:precision binary64
(/ (log (sqrt (+ (* re re) (* im im)))) (log 10.0)))