
(FPCore (a b) :precision binary64 (- (* (* (* a a) b) b)))
double code(double a, double b) {
return -(((a * a) * b) * b);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = -(((a * a) * b) * b)
end function
public static double code(double a, double b) {
return -(((a * a) * b) * b);
}
def code(a, b): return -(((a * a) * b) * b)
function code(a, b) return Float64(-Float64(Float64(Float64(a * a) * b) * b)) end
function tmp = code(a, b) tmp = -(((a * a) * b) * b); end
code[a_, b_] := (-N[(N[(N[(a * a), $MachinePrecision] * b), $MachinePrecision] * b), $MachinePrecision])
\begin{array}{l}
\\
-\left(\left(a \cdot a\right) \cdot b\right) \cdot b
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 7 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b) :precision binary64 (- (* (* (* a a) b) b)))
double code(double a, double b) {
return -(((a * a) * b) * b);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = -(((a * a) * b) * b)
end function
public static double code(double a, double b) {
return -(((a * a) * b) * b);
}
def code(a, b): return -(((a * a) * b) * b)
function code(a, b) return Float64(-Float64(Float64(Float64(a * a) * b) * b)) end
function tmp = code(a, b) tmp = -(((a * a) * b) * b); end
code[a_, b_] := (-N[(N[(N[(a * a), $MachinePrecision] * b), $MachinePrecision] * b), $MachinePrecision])
\begin{array}{l}
\\
-\left(\left(a \cdot a\right) \cdot b\right) \cdot b
\end{array}
b_m = (fabs.f64 b) NOTE: a and b_m should be sorted in increasing order before calling this function. (FPCore (a b_m) :precision binary64 (/ (* a b_m) (/ (/ -1.0 b_m) a)))
b_m = fabs(b);
assert(a < b_m);
double code(double a, double b_m) {
return (a * b_m) / ((-1.0 / b_m) / a);
}
b_m = abs(b)
NOTE: a and b_m should be sorted in increasing order before calling this function.
real(8) function code(a, b_m)
real(8), intent (in) :: a
real(8), intent (in) :: b_m
code = (a * b_m) / (((-1.0d0) / b_m) / a)
end function
b_m = Math.abs(b);
assert a < b_m;
public static double code(double a, double b_m) {
return (a * b_m) / ((-1.0 / b_m) / a);
}
b_m = math.fabs(b) [a, b_m] = sort([a, b_m]) def code(a, b_m): return (a * b_m) / ((-1.0 / b_m) / a)
b_m = abs(b) a, b_m = sort([a, b_m]) function code(a, b_m) return Float64(Float64(a * b_m) / Float64(Float64(-1.0 / b_m) / a)) end
b_m = abs(b);
a, b_m = num2cell(sort([a, b_m])){:}
function tmp = code(a, b_m)
tmp = (a * b_m) / ((-1.0 / b_m) / a);
end
b_m = N[Abs[b], $MachinePrecision] NOTE: a and b_m should be sorted in increasing order before calling this function. code[a_, b$95$m_] := N[(N[(a * b$95$m), $MachinePrecision] / N[(N[(-1.0 / b$95$m), $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
[a, b_m] = \mathsf{sort}([a, b_m])\\
\\
\frac{a \cdot b\_m}{\frac{\frac{-1}{b\_m}}{a}}
\end{array}
Initial program 82.3%
lift-neg.f64N/A
lift-*.f64N/A
lift-*.f64N/A
associate-*l*N/A
lift-*.f64N/A
unswap-sqrN/A
distribute-lft-neg-inN/A
lower-*.f64N/A
distribute-lft-neg-inN/A
lower-*.f64N/A
lower-neg.f64N/A
*-commutativeN/A
lower-*.f6499.6
Applied rewrites99.6%
lift-*.f64N/A
*-commutativeN/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-*.f64N/A
lift-neg.f64N/A
neg-sub0N/A
flip--N/A
+-lft-identityN/A
associate-*r/N/A
lower-/.f64N/A
lower-*.f64N/A
metadata-evalN/A
pow2N/A
neg-sub0N/A
pow2N/A
distribute-lft-neg-inN/A
lift-neg.f64N/A
lower-*.f6479.8
Applied rewrites79.8%
lift-/.f64N/A
lift-*.f64N/A
lift-*.f64N/A
associate-*r*N/A
associate-/l*N/A
*-inversesN/A
*-commutativeN/A
metadata-evalN/A
associate-/r/N/A
lift-*.f64N/A
associate-*r*N/A
lift-neg.f64N/A
distribute-rgt-neg-outN/A
lift-*.f64N/A
associate-/r*N/A
unpow-1N/A
lift-pow.f64N/A
clear-numN/A
distribute-frac-negN/A
Applied rewrites99.7%
lift-/.f64N/A
lift-*.f64N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f6499.8
Applied rewrites99.8%
Final simplification99.8%
b_m = (fabs.f64 b) NOTE: a and b_m should be sorted in increasing order before calling this function. (FPCore (a b_m) :precision binary64 (* (/ b_m (/ -1.0 a)) (* a b_m)))
b_m = fabs(b);
assert(a < b_m);
double code(double a, double b_m) {
return (b_m / (-1.0 / a)) * (a * b_m);
}
b_m = abs(b)
NOTE: a and b_m should be sorted in increasing order before calling this function.
real(8) function code(a, b_m)
real(8), intent (in) :: a
real(8), intent (in) :: b_m
code = (b_m / ((-1.0d0) / a)) * (a * b_m)
end function
b_m = Math.abs(b);
assert a < b_m;
public static double code(double a, double b_m) {
return (b_m / (-1.0 / a)) * (a * b_m);
}
b_m = math.fabs(b) [a, b_m] = sort([a, b_m]) def code(a, b_m): return (b_m / (-1.0 / a)) * (a * b_m)
b_m = abs(b) a, b_m = sort([a, b_m]) function code(a, b_m) return Float64(Float64(b_m / Float64(-1.0 / a)) * Float64(a * b_m)) end
b_m = abs(b);
a, b_m = num2cell(sort([a, b_m])){:}
function tmp = code(a, b_m)
tmp = (b_m / (-1.0 / a)) * (a * b_m);
end
b_m = N[Abs[b], $MachinePrecision] NOTE: a and b_m should be sorted in increasing order before calling this function. code[a_, b$95$m_] := N[(N[(b$95$m / N[(-1.0 / a), $MachinePrecision]), $MachinePrecision] * N[(a * b$95$m), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
[a, b_m] = \mathsf{sort}([a, b_m])\\
\\
\frac{b\_m}{\frac{-1}{a}} \cdot \left(a \cdot b\_m\right)
\end{array}
Initial program 82.3%
lift-neg.f64N/A
lift-*.f64N/A
lift-*.f64N/A
associate-*l*N/A
lift-*.f64N/A
unswap-sqrN/A
distribute-lft-neg-inN/A
lower-*.f64N/A
distribute-lft-neg-inN/A
lower-*.f64N/A
lower-neg.f64N/A
*-commutativeN/A
lower-*.f6499.6
Applied rewrites99.6%
lift-*.f64N/A
lift-neg.f64N/A
distribute-lft-neg-outN/A
*-commutativeN/A
distribute-lft-neg-inN/A
rem-square-sqrtN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
associate-*r*N/A
distribute-lft-neg-inN/A
*-commutativeN/A
lower-*.f64N/A
distribute-lft-neg-inN/A
lower-*.f64N/A
lower-neg.f6450.1
Applied rewrites50.1%
lift-*.f64N/A
lift-*.f64N/A
*-commutativeN/A
associate-*l*N/A
lift-neg.f64N/A
distribute-lft-neg-outN/A
lift-sqrt.f64N/A
lift-sqrt.f64N/A
rem-square-sqrtN/A
distribute-rgt-neg-outN/A
lift-*.f64N/A
/-rgt-identityN/A
lift-*.f64N/A
associate-/l*N/A
clear-numN/A
div-invN/A
distribute-neg-frac2N/A
lower-/.f64N/A
distribute-neg-fracN/A
metadata-evalN/A
lower-/.f6499.7
Applied rewrites99.7%
Final simplification99.7%
b_m = (fabs.f64 b) NOTE: a and b_m should be sorted in increasing order before calling this function. (FPCore (a b_m) :precision binary64 (* (* (- a) b_m) (* a b_m)))
b_m = fabs(b);
assert(a < b_m);
double code(double a, double b_m) {
return (-a * b_m) * (a * b_m);
}
b_m = abs(b)
NOTE: a and b_m should be sorted in increasing order before calling this function.
real(8) function code(a, b_m)
real(8), intent (in) :: a
real(8), intent (in) :: b_m
code = (-a * b_m) * (a * b_m)
end function
b_m = Math.abs(b);
assert a < b_m;
public static double code(double a, double b_m) {
return (-a * b_m) * (a * b_m);
}
b_m = math.fabs(b) [a, b_m] = sort([a, b_m]) def code(a, b_m): return (-a * b_m) * (a * b_m)
b_m = abs(b) a, b_m = sort([a, b_m]) function code(a, b_m) return Float64(Float64(Float64(-a) * b_m) * Float64(a * b_m)) end
b_m = abs(b);
a, b_m = num2cell(sort([a, b_m])){:}
function tmp = code(a, b_m)
tmp = (-a * b_m) * (a * b_m);
end
b_m = N[Abs[b], $MachinePrecision] NOTE: a and b_m should be sorted in increasing order before calling this function. code[a_, b$95$m_] := N[(N[((-a) * b$95$m), $MachinePrecision] * N[(a * b$95$m), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
[a, b_m] = \mathsf{sort}([a, b_m])\\
\\
\left(\left(-a\right) \cdot b\_m\right) \cdot \left(a \cdot b\_m\right)
\end{array}
Initial program 82.3%
lift-neg.f64N/A
lift-*.f64N/A
lift-*.f64N/A
associate-*l*N/A
lift-*.f64N/A
unswap-sqrN/A
distribute-lft-neg-inN/A
lower-*.f64N/A
distribute-lft-neg-inN/A
lower-*.f64N/A
lower-neg.f64N/A
*-commutativeN/A
lower-*.f6499.6
Applied rewrites99.6%
Final simplification99.6%
b_m = (fabs.f64 b) NOTE: a and b_m should be sorted in increasing order before calling this function. (FPCore (a b_m) :precision binary64 (* (- b_m) (* (* a a) b_m)))
b_m = fabs(b);
assert(a < b_m);
double code(double a, double b_m) {
return -b_m * ((a * a) * b_m);
}
b_m = abs(b)
NOTE: a and b_m should be sorted in increasing order before calling this function.
real(8) function code(a, b_m)
real(8), intent (in) :: a
real(8), intent (in) :: b_m
code = -b_m * ((a * a) * b_m)
end function
b_m = Math.abs(b);
assert a < b_m;
public static double code(double a, double b_m) {
return -b_m * ((a * a) * b_m);
}
b_m = math.fabs(b) [a, b_m] = sort([a, b_m]) def code(a, b_m): return -b_m * ((a * a) * b_m)
b_m = abs(b) a, b_m = sort([a, b_m]) function code(a, b_m) return Float64(Float64(-b_m) * Float64(Float64(a * a) * b_m)) end
b_m = abs(b);
a, b_m = num2cell(sort([a, b_m])){:}
function tmp = code(a, b_m)
tmp = -b_m * ((a * a) * b_m);
end
b_m = N[Abs[b], $MachinePrecision] NOTE: a and b_m should be sorted in increasing order before calling this function. code[a_, b$95$m_] := N[((-b$95$m) * N[(N[(a * a), $MachinePrecision] * b$95$m), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
[a, b_m] = \mathsf{sort}([a, b_m])\\
\\
\left(-b\_m\right) \cdot \left(\left(a \cdot a\right) \cdot b\_m\right)
\end{array}
Initial program 82.3%
Final simplification82.3%
b_m = (fabs.f64 b) NOTE: a and b_m should be sorted in increasing order before calling this function. (FPCore (a b_m) :precision binary64 (* (* (* a a) b_m) b_m))
b_m = fabs(b);
assert(a < b_m);
double code(double a, double b_m) {
return ((a * a) * b_m) * b_m;
}
b_m = abs(b)
NOTE: a and b_m should be sorted in increasing order before calling this function.
real(8) function code(a, b_m)
real(8), intent (in) :: a
real(8), intent (in) :: b_m
code = ((a * a) * b_m) * b_m
end function
b_m = Math.abs(b);
assert a < b_m;
public static double code(double a, double b_m) {
return ((a * a) * b_m) * b_m;
}
b_m = math.fabs(b) [a, b_m] = sort([a, b_m]) def code(a, b_m): return ((a * a) * b_m) * b_m
b_m = abs(b) a, b_m = sort([a, b_m]) function code(a, b_m) return Float64(Float64(Float64(a * a) * b_m) * b_m) end
b_m = abs(b);
a, b_m = num2cell(sort([a, b_m])){:}
function tmp = code(a, b_m)
tmp = ((a * a) * b_m) * b_m;
end
b_m = N[Abs[b], $MachinePrecision] NOTE: a and b_m should be sorted in increasing order before calling this function. code[a_, b$95$m_] := N[(N[(N[(a * a), $MachinePrecision] * b$95$m), $MachinePrecision] * b$95$m), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
[a, b_m] = \mathsf{sort}([a, b_m])\\
\\
\left(\left(a \cdot a\right) \cdot b\_m\right) \cdot b\_m
\end{array}
Initial program 82.3%
lift-neg.f64N/A
+-lft-identityN/A
flip3-+N/A
distribute-neg-fracN/A
Applied rewrites30.7%
Final simplification30.7%
b_m = (fabs.f64 b) NOTE: a and b_m should be sorted in increasing order before calling this function. (FPCore (a b_m) :precision binary64 (* (* a b_m) (* a b_m)))
b_m = fabs(b);
assert(a < b_m);
double code(double a, double b_m) {
return (a * b_m) * (a * b_m);
}
b_m = abs(b)
NOTE: a and b_m should be sorted in increasing order before calling this function.
real(8) function code(a, b_m)
real(8), intent (in) :: a
real(8), intent (in) :: b_m
code = (a * b_m) * (a * b_m)
end function
b_m = Math.abs(b);
assert a < b_m;
public static double code(double a, double b_m) {
return (a * b_m) * (a * b_m);
}
b_m = math.fabs(b) [a, b_m] = sort([a, b_m]) def code(a, b_m): return (a * b_m) * (a * b_m)
b_m = abs(b) a, b_m = sort([a, b_m]) function code(a, b_m) return Float64(Float64(a * b_m) * Float64(a * b_m)) end
b_m = abs(b);
a, b_m = num2cell(sort([a, b_m])){:}
function tmp = code(a, b_m)
tmp = (a * b_m) * (a * b_m);
end
b_m = N[Abs[b], $MachinePrecision] NOTE: a and b_m should be sorted in increasing order before calling this function. code[a_, b$95$m_] := N[(N[(a * b$95$m), $MachinePrecision] * N[(a * b$95$m), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
[a, b_m] = \mathsf{sort}([a, b_m])\\
\\
\left(a \cdot b\_m\right) \cdot \left(a \cdot b\_m\right)
\end{array}
Initial program 82.3%
lift-neg.f64N/A
+-lft-identityN/A
flip3-+N/A
distribute-neg-fracN/A
Applied rewrites30.6%
Final simplification30.6%
b_m = (fabs.f64 b) NOTE: a and b_m should be sorted in increasing order before calling this function. (FPCore (a b_m) :precision binary64 (* (* (* b_m b_m) a) a))
b_m = fabs(b);
assert(a < b_m);
double code(double a, double b_m) {
return ((b_m * b_m) * a) * a;
}
b_m = abs(b)
NOTE: a and b_m should be sorted in increasing order before calling this function.
real(8) function code(a, b_m)
real(8), intent (in) :: a
real(8), intent (in) :: b_m
code = ((b_m * b_m) * a) * a
end function
b_m = Math.abs(b);
assert a < b_m;
public static double code(double a, double b_m) {
return ((b_m * b_m) * a) * a;
}
b_m = math.fabs(b) [a, b_m] = sort([a, b_m]) def code(a, b_m): return ((b_m * b_m) * a) * a
b_m = abs(b) a, b_m = sort([a, b_m]) function code(a, b_m) return Float64(Float64(Float64(b_m * b_m) * a) * a) end
b_m = abs(b);
a, b_m = num2cell(sort([a, b_m])){:}
function tmp = code(a, b_m)
tmp = ((b_m * b_m) * a) * a;
end
b_m = N[Abs[b], $MachinePrecision] NOTE: a and b_m should be sorted in increasing order before calling this function. code[a_, b$95$m_] := N[(N[(N[(b$95$m * b$95$m), $MachinePrecision] * a), $MachinePrecision] * a), $MachinePrecision]
\begin{array}{l}
b_m = \left|b\right|
\\
[a, b_m] = \mathsf{sort}([a, b_m])\\
\\
\left(\left(b\_m \cdot b\_m\right) \cdot a\right) \cdot a
\end{array}
Initial program 82.3%
lift-neg.f64N/A
+-lft-identityN/A
flip3-+N/A
distribute-neg-fracN/A
Applied rewrites30.6%
Taylor expanded in b around 0
unpow2N/A
associate-*l*N/A
remove-double-negN/A
mul-1-negN/A
neg-mul-1N/A
rem-square-sqrtN/A
associate-*r*N/A
mul-1-negN/A
distribute-rgt-neg-inN/A
*-commutativeN/A
lower-*.f64N/A
*-commutativeN/A
distribute-rgt-neg-inN/A
mul-1-negN/A
associate-*r*N/A
rem-square-sqrtN/A
neg-mul-1N/A
mul-1-negN/A
remove-double-negN/A
remove-double-negN/A
mul-1-negN/A
neg-mul-1N/A
Applied rewrites30.6%
Final simplification30.6%
herbie shell --seed 2024242
(FPCore (a b)
:name "ab-angle->ABCF D"
:precision binary64
(- (* (* (* a a) b) b)))