
(FPCore (a1 a2 th) :precision binary64 (let* ((t_1 (/ (cos th) (sqrt 2.0)))) (+ (* t_1 (* a1 a1)) (* t_1 (* a2 a2)))))
double code(double a1, double a2, double th) {
double t_1 = cos(th) / sqrt(2.0);
return (t_1 * (a1 * a1)) + (t_1 * (a2 * a2));
}
real(8) function code(a1, a2, th)
real(8), intent (in) :: a1
real(8), intent (in) :: a2
real(8), intent (in) :: th
real(8) :: t_1
t_1 = cos(th) / sqrt(2.0d0)
code = (t_1 * (a1 * a1)) + (t_1 * (a2 * a2))
end function
public static double code(double a1, double a2, double th) {
double t_1 = Math.cos(th) / Math.sqrt(2.0);
return (t_1 * (a1 * a1)) + (t_1 * (a2 * a2));
}
def code(a1, a2, th): t_1 = math.cos(th) / math.sqrt(2.0) return (t_1 * (a1 * a1)) + (t_1 * (a2 * a2))
function code(a1, a2, th) t_1 = Float64(cos(th) / sqrt(2.0)) return Float64(Float64(t_1 * Float64(a1 * a1)) + Float64(t_1 * Float64(a2 * a2))) end
function tmp = code(a1, a2, th) t_1 = cos(th) / sqrt(2.0); tmp = (t_1 * (a1 * a1)) + (t_1 * (a2 * a2)); end
code[a1_, a2_, th_] := Block[{t$95$1 = N[(N[Cos[th], $MachinePrecision] / N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision]}, N[(N[(t$95$1 * N[(a1 * a1), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 * N[(a2 * a2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\cos th}{\sqrt{2}}\\
t_1 \cdot \left(a1 \cdot a1\right) + t_1 \cdot \left(a2 \cdot a2\right)
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a1 a2 th) :precision binary64 (let* ((t_1 (/ (cos th) (sqrt 2.0)))) (+ (* t_1 (* a1 a1)) (* t_1 (* a2 a2)))))
double code(double a1, double a2, double th) {
double t_1 = cos(th) / sqrt(2.0);
return (t_1 * (a1 * a1)) + (t_1 * (a2 * a2));
}
real(8) function code(a1, a2, th)
real(8), intent (in) :: a1
real(8), intent (in) :: a2
real(8), intent (in) :: th
real(8) :: t_1
t_1 = cos(th) / sqrt(2.0d0)
code = (t_1 * (a1 * a1)) + (t_1 * (a2 * a2))
end function
public static double code(double a1, double a2, double th) {
double t_1 = Math.cos(th) / Math.sqrt(2.0);
return (t_1 * (a1 * a1)) + (t_1 * (a2 * a2));
}
def code(a1, a2, th): t_1 = math.cos(th) / math.sqrt(2.0) return (t_1 * (a1 * a1)) + (t_1 * (a2 * a2))
function code(a1, a2, th) t_1 = Float64(cos(th) / sqrt(2.0)) return Float64(Float64(t_1 * Float64(a1 * a1)) + Float64(t_1 * Float64(a2 * a2))) end
function tmp = code(a1, a2, th) t_1 = cos(th) / sqrt(2.0); tmp = (t_1 * (a1 * a1)) + (t_1 * (a2 * a2)); end
code[a1_, a2_, th_] := Block[{t$95$1 = N[(N[Cos[th], $MachinePrecision] / N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision]}, N[(N[(t$95$1 * N[(a1 * a1), $MachinePrecision]), $MachinePrecision] + N[(t$95$1 * N[(a2 * a2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{\cos th}{\sqrt{2}}\\
t_1 \cdot \left(a1 \cdot a1\right) + t_1 \cdot \left(a2 \cdot a2\right)
\end{array}
\end{array}
(FPCore (a1 a2 th) :precision binary64 (* (* (sqrt 0.5) (cos th)) (+ (* a1 a1) (* a2 a2))))
double code(double a1, double a2, double th) {
return (sqrt(0.5) * cos(th)) * ((a1 * a1) + (a2 * a2));
}
real(8) function code(a1, a2, th)
real(8), intent (in) :: a1
real(8), intent (in) :: a2
real(8), intent (in) :: th
code = (sqrt(0.5d0) * cos(th)) * ((a1 * a1) + (a2 * a2))
end function
public static double code(double a1, double a2, double th) {
return (Math.sqrt(0.5) * Math.cos(th)) * ((a1 * a1) + (a2 * a2));
}
def code(a1, a2, th): return (math.sqrt(0.5) * math.cos(th)) * ((a1 * a1) + (a2 * a2))
function code(a1, a2, th) return Float64(Float64(sqrt(0.5) * cos(th)) * Float64(Float64(a1 * a1) + Float64(a2 * a2))) end
function tmp = code(a1, a2, th) tmp = (sqrt(0.5) * cos(th)) * ((a1 * a1) + (a2 * a2)); end
code[a1_, a2_, th_] := N[(N[(N[Sqrt[0.5], $MachinePrecision] * N[Cos[th], $MachinePrecision]), $MachinePrecision] * N[(N[(a1 * a1), $MachinePrecision] + N[(a2 * a2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(\sqrt{0.5} \cdot \cos th\right) \cdot \left(a1 \cdot a1 + a2 \cdot a2\right)
\end{array}
Initial program 99.6%
distribute-lft-out99.6%
Simplified99.6%
clear-num99.6%
associate-/r/99.6%
pow1/299.6%
pow-flip99.6%
metadata-eval99.6%
Applied egg-rr99.6%
Taylor expanded in th around inf 99.6%
*-commutative99.6%
Simplified99.6%
Final simplification99.6%
(FPCore (a1 a2 th) :precision binary64 (* a2 (* (* (cos th) a2) (pow 2.0 -0.5))))
double code(double a1, double a2, double th) {
return a2 * ((cos(th) * a2) * pow(2.0, -0.5));
}
real(8) function code(a1, a2, th)
real(8), intent (in) :: a1
real(8), intent (in) :: a2
real(8), intent (in) :: th
code = a2 * ((cos(th) * a2) * (2.0d0 ** (-0.5d0)))
end function
public static double code(double a1, double a2, double th) {
return a2 * ((Math.cos(th) * a2) * Math.pow(2.0, -0.5));
}
def code(a1, a2, th): return a2 * ((math.cos(th) * a2) * math.pow(2.0, -0.5))
function code(a1, a2, th) return Float64(a2 * Float64(Float64(cos(th) * a2) * (2.0 ^ -0.5))) end
function tmp = code(a1, a2, th) tmp = a2 * ((cos(th) * a2) * (2.0 ^ -0.5)); end
code[a1_, a2_, th_] := N[(a2 * N[(N[(N[Cos[th], $MachinePrecision] * a2), $MachinePrecision] * N[Power[2.0, -0.5], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a2 \cdot \left(\left(\cos th \cdot a2\right) \cdot {2}^{-0.5}\right)
\end{array}
Initial program 99.6%
distribute-lft-out99.6%
Simplified99.6%
Taylor expanded in a1 around 0 54.4%
pow254.4%
Applied egg-rr54.4%
div-inv54.3%
associate-*l*54.3%
associate-*l*54.3%
pow1/254.3%
pow-flip54.4%
metadata-eval54.4%
Applied egg-rr54.4%
Final simplification54.4%
(FPCore (a1 a2 th) :precision binary64 (* a2 (* (* (sqrt 0.5) (cos th)) a2)))
double code(double a1, double a2, double th) {
return a2 * ((sqrt(0.5) * cos(th)) * a2);
}
real(8) function code(a1, a2, th)
real(8), intent (in) :: a1
real(8), intent (in) :: a2
real(8), intent (in) :: th
code = a2 * ((sqrt(0.5d0) * cos(th)) * a2)
end function
public static double code(double a1, double a2, double th) {
return a2 * ((Math.sqrt(0.5) * Math.cos(th)) * a2);
}
def code(a1, a2, th): return a2 * ((math.sqrt(0.5) * math.cos(th)) * a2)
function code(a1, a2, th) return Float64(a2 * Float64(Float64(sqrt(0.5) * cos(th)) * a2)) end
function tmp = code(a1, a2, th) tmp = a2 * ((sqrt(0.5) * cos(th)) * a2); end
code[a1_, a2_, th_] := N[(a2 * N[(N[(N[Sqrt[0.5], $MachinePrecision] * N[Cos[th], $MachinePrecision]), $MachinePrecision] * a2), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a2 \cdot \left(\left(\sqrt{0.5} \cdot \cos th\right) \cdot a2\right)
\end{array}
Initial program 99.6%
distribute-lft-out99.6%
Simplified99.6%
Taylor expanded in a1 around 0 54.4%
clear-num54.3%
pow254.3%
associate-/r/54.3%
*-commutative54.3%
associate-*l*54.4%
inv-pow54.4%
sqrt-pow254.4%
metadata-eval54.4%
associate-*r*54.4%
Applied egg-rr54.4%
Final simplification54.4%
(FPCore (a1 a2 th) :precision binary64 (/ (* (cos th) (* a2 a2)) (sqrt 2.0)))
double code(double a1, double a2, double th) {
return (cos(th) * (a2 * a2)) / sqrt(2.0);
}
real(8) function code(a1, a2, th)
real(8), intent (in) :: a1
real(8), intent (in) :: a2
real(8), intent (in) :: th
code = (cos(th) * (a2 * a2)) / sqrt(2.0d0)
end function
public static double code(double a1, double a2, double th) {
return (Math.cos(th) * (a2 * a2)) / Math.sqrt(2.0);
}
def code(a1, a2, th): return (math.cos(th) * (a2 * a2)) / math.sqrt(2.0)
function code(a1, a2, th) return Float64(Float64(cos(th) * Float64(a2 * a2)) / sqrt(2.0)) end
function tmp = code(a1, a2, th) tmp = (cos(th) * (a2 * a2)) / sqrt(2.0); end
code[a1_, a2_, th_] := N[(N[(N[Cos[th], $MachinePrecision] * N[(a2 * a2), $MachinePrecision]), $MachinePrecision] / N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\cos th \cdot \left(a2 \cdot a2\right)}{\sqrt{2}}
\end{array}
Initial program 99.6%
distribute-lft-out99.6%
Simplified99.6%
Taylor expanded in a1 around 0 54.4%
pow254.4%
Applied egg-rr54.4%
Final simplification54.4%
(FPCore (a1 a2 th) :precision binary64 (* a2 (* (sqrt 0.5) a2)))
double code(double a1, double a2, double th) {
return a2 * (sqrt(0.5) * a2);
}
real(8) function code(a1, a2, th)
real(8), intent (in) :: a1
real(8), intent (in) :: a2
real(8), intent (in) :: th
code = a2 * (sqrt(0.5d0) * a2)
end function
public static double code(double a1, double a2, double th) {
return a2 * (Math.sqrt(0.5) * a2);
}
def code(a1, a2, th): return a2 * (math.sqrt(0.5) * a2)
function code(a1, a2, th) return Float64(a2 * Float64(sqrt(0.5) * a2)) end
function tmp = code(a1, a2, th) tmp = a2 * (sqrt(0.5) * a2); end
code[a1_, a2_, th_] := N[(a2 * N[(N[Sqrt[0.5], $MachinePrecision] * a2), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a2 \cdot \left(\sqrt{0.5} \cdot a2\right)
\end{array}
Initial program 99.6%
distribute-lft-out99.6%
Simplified99.6%
Taylor expanded in th around 0 65.8%
Taylor expanded in a1 around 0 38.1%
*-un-lft-identity38.1%
pow238.1%
associate-*l/38.1%
associate-*r*38.0%
add-sqr-sqrt38.0%
sqrt-unprod38.0%
frac-times38.0%
metadata-eval38.0%
rem-square-sqrt38.1%
metadata-eval38.1%
Applied egg-rr38.1%
Final simplification38.1%
herbie shell --seed 2024018
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
:precision binary64
(+ (* (/ (cos th) (sqrt 2.0)) (* a1 a1)) (* (/ (cos th) (sqrt 2.0)) (* a2 a2))))