
(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 8 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}
(FPCore (a b) :precision binary64 (* (* b a) (/ 1.0 (/ -1.0 (* b a)))))
double code(double a, double b) {
return (b * a) * (1.0 / (-1.0 / (b * a)));
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (b * a) * (1.0d0 / ((-1.0d0) / (b * a)))
end function
public static double code(double a, double b) {
return (b * a) * (1.0 / (-1.0 / (b * a)));
}
def code(a, b): return (b * a) * (1.0 / (-1.0 / (b * a)))
function code(a, b) return Float64(Float64(b * a) * Float64(1.0 / Float64(-1.0 / Float64(b * a)))) end
function tmp = code(a, b) tmp = (b * a) * (1.0 / (-1.0 / (b * a))); end
code[a_, b_] := N[(N[(b * a), $MachinePrecision] * N[(1.0 / N[(-1.0 / N[(b * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(b \cdot a\right) \cdot \frac{1}{\frac{-1}{b \cdot a}}
\end{array}
Initial program 83.4%
add-sqr-sqrt29.3%
sqrt-unprod30.6%
sqr-neg30.6%
sqrt-unprod30.4%
add-sqr-sqrt30.4%
associate-*l*30.3%
swap-sqr30.4%
Applied egg-rr30.4%
add-log-exp27.4%
log-pow27.4%
add-sqr-sqrt26.5%
sqrt-unprod43.6%
sqr-neg43.6%
sqrt-unprod39.4%
add-sqr-sqrt53.2%
neg-sub053.2%
pow-sub53.2%
metadata-eval53.2%
exp-prod60.0%
*-commutative60.0%
neg-log60.1%
add-log-exp99.6%
Applied egg-rr99.6%
*-commutative99.6%
distribute-rgt-neg-in99.6%
Simplified99.6%
add-cube-cbrt98.9%
pow399.0%
Applied egg-rr99.0%
Applied egg-rr99.6%
Final simplification99.6%
(FPCore (a b) :precision binary64 (if (<= (* b (* b (* a a))) 5e+99) (* a (* b (* b (- a)))) (* b (* b (* a (- a))))))
double code(double a, double b) {
double tmp;
if ((b * (b * (a * a))) <= 5e+99) {
tmp = a * (b * (b * -a));
} else {
tmp = b * (b * (a * -a));
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if ((b * (b * (a * a))) <= 5d+99) then
tmp = a * (b * (b * -a))
else
tmp = b * (b * (a * -a))
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if ((b * (b * (a * a))) <= 5e+99) {
tmp = a * (b * (b * -a));
} else {
tmp = b * (b * (a * -a));
}
return tmp;
}
def code(a, b): tmp = 0 if (b * (b * (a * a))) <= 5e+99: tmp = a * (b * (b * -a)) else: tmp = b * (b * (a * -a)) return tmp
function code(a, b) tmp = 0.0 if (Float64(b * Float64(b * Float64(a * a))) <= 5e+99) tmp = Float64(a * Float64(b * Float64(b * Float64(-a)))); else tmp = Float64(b * Float64(b * Float64(a * Float64(-a)))); end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if ((b * (b * (a * a))) <= 5e+99) tmp = a * (b * (b * -a)); else tmp = b * (b * (a * -a)); end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[N[(b * N[(b * N[(a * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 5e+99], N[(a * N[(b * N[(b * (-a)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(b * N[(b * N[(a * (-a)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \cdot \left(b \cdot \left(a \cdot a\right)\right) \leq 5 \cdot 10^{+99}:\\
\;\;\;\;a \cdot \left(b \cdot \left(b \cdot \left(-a\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(b \cdot \left(a \cdot \left(-a\right)\right)\right)\\
\end{array}
\end{array}
if (*.f64 (*.f64 (*.f64 a a) b) b) < 5.00000000000000008e99Initial program 85.0%
associate-*l*77.9%
associate-*r*83.3%
*-commutative83.3%
distribute-rgt-neg-in83.3%
distribute-rgt-neg-in83.3%
associate-*r*95.7%
Simplified95.7%
if 5.00000000000000008e99 < (*.f64 (*.f64 (*.f64 a a) b) b) Initial program 81.1%
Final simplification89.5%
(FPCore (a b) :precision binary64 (let* ((t_0 (* b (- a)))) (if (<= a 1.45e-234) (* a (* b t_0)) (* b (* a t_0)))))
double code(double a, double b) {
double t_0 = b * -a;
double tmp;
if (a <= 1.45e-234) {
tmp = a * (b * t_0);
} else {
tmp = b * (a * t_0);
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: t_0
real(8) :: tmp
t_0 = b * -a
if (a <= 1.45d-234) then
tmp = a * (b * t_0)
else
tmp = b * (a * t_0)
end if
code = tmp
end function
public static double code(double a, double b) {
double t_0 = b * -a;
double tmp;
if (a <= 1.45e-234) {
tmp = a * (b * t_0);
} else {
tmp = b * (a * t_0);
}
return tmp;
}
def code(a, b): t_0 = b * -a tmp = 0 if a <= 1.45e-234: tmp = a * (b * t_0) else: tmp = b * (a * t_0) return tmp
function code(a, b) t_0 = Float64(b * Float64(-a)) tmp = 0.0 if (a <= 1.45e-234) tmp = Float64(a * Float64(b * t_0)); else tmp = Float64(b * Float64(a * t_0)); end return tmp end
function tmp_2 = code(a, b) t_0 = b * -a; tmp = 0.0; if (a <= 1.45e-234) tmp = a * (b * t_0); else tmp = b * (a * t_0); end tmp_2 = tmp; end
code[a_, b_] := Block[{t$95$0 = N[(b * (-a)), $MachinePrecision]}, If[LessEqual[a, 1.45e-234], N[(a * N[(b * t$95$0), $MachinePrecision]), $MachinePrecision], N[(b * N[(a * t$95$0), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := b \cdot \left(-a\right)\\
\mathbf{if}\;a \leq 1.45 \cdot 10^{-234}:\\
\;\;\;\;a \cdot \left(b \cdot t\_0\right)\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(a \cdot t\_0\right)\\
\end{array}
\end{array}
if a < 1.45000000000000008e-234Initial program 79.0%
associate-*l*76.1%
associate-*r*81.8%
*-commutative81.8%
distribute-rgt-neg-in81.8%
distribute-rgt-neg-in81.8%
associate-*r*94.2%
Simplified94.2%
if 1.45000000000000008e-234 < a Initial program 90.2%
distribute-rgt-neg-in90.2%
associate-*l*98.4%
Simplified98.4%
Final simplification95.8%
(FPCore (a b) :precision binary64 (* (* b (- a)) (* b a)))
double code(double a, double b) {
return (b * -a) * (b * a);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (b * -a) * (b * a)
end function
public static double code(double a, double b) {
return (b * -a) * (b * a);
}
def code(a, b): return (b * -a) * (b * a)
function code(a, b) return Float64(Float64(b * Float64(-a)) * Float64(b * a)) end
function tmp = code(a, b) tmp = (b * -a) * (b * a); end
code[a_, b_] := N[(N[(b * (-a)), $MachinePrecision] * N[(b * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(b \cdot \left(-a\right)\right) \cdot \left(b \cdot a\right)
\end{array}
Initial program 83.4%
add-sqr-sqrt29.3%
sqrt-unprod30.6%
sqr-neg30.6%
sqrt-unprod30.4%
add-sqr-sqrt30.4%
associate-*l*30.3%
swap-sqr30.4%
Applied egg-rr30.4%
add-log-exp27.4%
log-pow27.4%
add-sqr-sqrt26.5%
sqrt-unprod43.6%
sqr-neg43.6%
sqrt-unprod39.4%
add-sqr-sqrt53.2%
neg-sub053.2%
pow-sub53.2%
metadata-eval53.2%
exp-prod60.0%
*-commutative60.0%
neg-log60.1%
add-log-exp99.6%
Applied egg-rr99.6%
*-commutative99.6%
distribute-rgt-neg-in99.6%
Simplified99.6%
Final simplification99.6%
(FPCore (a b) :precision binary64 (* b (* b (* a (- a)))))
double code(double a, double b) {
return b * (b * (a * -a));
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = b * (b * (a * -a))
end function
public static double code(double a, double b) {
return b * (b * (a * -a));
}
def code(a, b): return b * (b * (a * -a))
function code(a, b) return Float64(b * Float64(b * Float64(a * Float64(-a)))) end
function tmp = code(a, b) tmp = b * (b * (a * -a)); end
code[a_, b_] := N[(b * N[(b * N[(a * (-a)), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
b \cdot \left(b \cdot \left(a \cdot \left(-a\right)\right)\right)
\end{array}
Initial program 83.4%
Final simplification83.4%
(FPCore (a b) :precision binary64 (* b (* a (* b a))))
double code(double a, double b) {
return b * (a * (b * a));
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = b * (a * (b * a))
end function
public static double code(double a, double b) {
return b * (a * (b * a));
}
def code(a, b): return b * (a * (b * a))
function code(a, b) return Float64(b * Float64(a * Float64(b * a))) end
function tmp = code(a, b) tmp = b * (a * (b * a)); end
code[a_, b_] := N[(b * N[(a * N[(b * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
b \cdot \left(a \cdot \left(b \cdot a\right)\right)
\end{array}
Initial program 83.4%
distribute-rgt-neg-in83.4%
associate-*l*95.1%
Simplified95.1%
neg-sub095.1%
sub-neg95.1%
add-sqr-sqrt46.5%
sqrt-unprod53.3%
sqr-neg53.3%
sqrt-unprod13.6%
add-sqr-sqrt30.4%
Applied egg-rr30.4%
+-lft-identity30.4%
Simplified30.4%
Final simplification30.4%
(FPCore (a b) :precision binary64 (* (* b a) (* b a)))
double code(double a, double b) {
return (b * a) * (b * a);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (b * a) * (b * a)
end function
public static double code(double a, double b) {
return (b * a) * (b * a);
}
def code(a, b): return (b * a) * (b * a)
function code(a, b) return Float64(Float64(b * a) * Float64(b * a)) end
function tmp = code(a, b) tmp = (b * a) * (b * a); end
code[a_, b_] := N[(N[(b * a), $MachinePrecision] * N[(b * a), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(b \cdot a\right) \cdot \left(b \cdot a\right)
\end{array}
Initial program 83.4%
add-sqr-sqrt29.3%
sqrt-unprod30.6%
sqr-neg30.6%
sqrt-unprod30.4%
add-sqr-sqrt30.4%
associate-*l*30.3%
swap-sqr30.4%
Applied egg-rr30.4%
Final simplification30.4%
(FPCore (a b) :precision binary64 (* a (* b (* b a))))
double code(double a, double b) {
return a * (b * (b * a));
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = a * (b * (b * a))
end function
public static double code(double a, double b) {
return a * (b * (b * a));
}
def code(a, b): return a * (b * (b * a))
function code(a, b) return Float64(a * Float64(b * Float64(b * a))) end
function tmp = code(a, b) tmp = a * (b * (b * a)); end
code[a_, b_] := N[(a * N[(b * N[(b * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(b \cdot \left(b \cdot a\right)\right)
\end{array}
Initial program 83.4%
associate-*l*77.5%
associate-*r*83.3%
*-commutative83.3%
distribute-rgt-neg-in83.3%
distribute-rgt-neg-in83.3%
associate-*r*94.6%
Simplified94.6%
neg-sub094.6%
sub-neg94.6%
add-sqr-sqrt49.1%
sqrt-unprod56.4%
sqr-neg56.4%
sqrt-prod14.6%
add-sqr-sqrt30.4%
Applied egg-rr30.4%
+-lft-identity30.4%
Simplified30.4%
herbie shell --seed 2024181
(FPCore (a b)
:name "ab-angle->ABCF D"
:precision binary64
(- (* (* (* a a) b) b)))