
(FPCore (a k m) :precision binary64 (/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k))))
double code(double a, double k, double m) {
return (a * pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k));
}
real(8) function code(a, k, m)
real(8), intent (in) :: a
real(8), intent (in) :: k
real(8), intent (in) :: m
code = (a * (k ** m)) / ((1.0d0 + (10.0d0 * k)) + (k * k))
end function
public static double code(double a, double k, double m) {
return (a * Math.pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k));
}
def code(a, k, m): return (a * math.pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k))
function code(a, k, m) return Float64(Float64(a * (k ^ m)) / Float64(Float64(1.0 + Float64(10.0 * k)) + Float64(k * k))) end
function tmp = code(a, k, m) tmp = (a * (k ^ m)) / ((1.0 + (10.0 * k)) + (k * k)); end
code[a_, k_, m_] := N[(N[(a * N[Power[k, m], $MachinePrecision]), $MachinePrecision] / N[(N[(1.0 + N[(10.0 * k), $MachinePrecision]), $MachinePrecision] + N[(k * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 16 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a k m) :precision binary64 (/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k))))
double code(double a, double k, double m) {
return (a * pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k));
}
real(8) function code(a, k, m)
real(8), intent (in) :: a
real(8), intent (in) :: k
real(8), intent (in) :: m
code = (a * (k ** m)) / ((1.0d0 + (10.0d0 * k)) + (k * k))
end function
public static double code(double a, double k, double m) {
return (a * Math.pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k));
}
def code(a, k, m): return (a * math.pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k))
function code(a, k, m) return Float64(Float64(a * (k ^ m)) / Float64(Float64(1.0 + Float64(10.0 * k)) + Float64(k * k))) end
function tmp = code(a, k, m) tmp = (a * (k ^ m)) / ((1.0 + (10.0 * k)) + (k * k)); end
code[a_, k_, m_] := N[(N[(a * N[Power[k, m], $MachinePrecision]), $MachinePrecision] / N[(N[(1.0 + N[(10.0 * k), $MachinePrecision]), $MachinePrecision] + N[(k * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k}
\end{array}
(FPCore (a k m)
:precision binary64
(if (<= k 1e-137)
(/ a (pow k (- m)))
(if (<= k 5e+134)
(* (/ (pow k m) (fma (+ k 10.0) k 1.0)) a)
(pow (/ k (/ (* a (pow k m)) k)) -1.0))))
double code(double a, double k, double m) {
double tmp;
if (k <= 1e-137) {
tmp = a / pow(k, -m);
} else if (k <= 5e+134) {
tmp = (pow(k, m) / fma((k + 10.0), k, 1.0)) * a;
} else {
tmp = pow((k / ((a * pow(k, m)) / k)), -1.0);
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (k <= 1e-137) tmp = Float64(a / (k ^ Float64(-m))); elseif (k <= 5e+134) tmp = Float64(Float64((k ^ m) / fma(Float64(k + 10.0), k, 1.0)) * a); else tmp = Float64(k / Float64(Float64(a * (k ^ m)) / k)) ^ -1.0; end return tmp end
code[a_, k_, m_] := If[LessEqual[k, 1e-137], N[(a / N[Power[k, (-m)], $MachinePrecision]), $MachinePrecision], If[LessEqual[k, 5e+134], N[(N[(N[Power[k, m], $MachinePrecision] / N[(N[(k + 10.0), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision] * a), $MachinePrecision], N[Power[N[(k / N[(N[(a * N[Power[k, m], $MachinePrecision]), $MachinePrecision] / k), $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;k \leq 10^{-137}:\\
\;\;\;\;\frac{a}{{k}^{\left(-m\right)}}\\
\mathbf{elif}\;k \leq 5 \cdot 10^{+134}:\\
\;\;\;\;\frac{{k}^{m}}{\mathsf{fma}\left(k + 10, k, 1\right)} \cdot a\\
\mathbf{else}:\\
\;\;\;\;{\left(\frac{k}{\frac{a \cdot {k}^{m}}{k}}\right)}^{-1}\\
\end{array}
\end{array}
if k < 9.99999999999999978e-138Initial program 95.1%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-/.f6495.1
lift-+.f64N/A
lift-+.f64N/A
associate-+l+N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-+.f6495.1
Applied rewrites95.1%
Taylor expanded in k around 0
rem-exp-logN/A
remove-double-negN/A
log-recN/A
mul-1-negN/A
exp-prodN/A
associate-*r*N/A
*-commutativeN/A
rec-expN/A
mul-1-negN/A
remove-double-negN/A
*-commutativeN/A
log-recN/A
distribute-lft-neg-outN/A
distribute-rgt-neg-outN/A
mul-1-negN/A
exp-to-powN/A
lower-pow.f64N/A
mul-1-negN/A
lower-neg.f64100.0
Applied rewrites100.0%
if 9.99999999999999978e-138 < k < 4.99999999999999981e134Initial program 99.9%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6499.9
lift-+.f64N/A
lift-+.f64N/A
associate-+l+N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-+.f6499.9
Applied rewrites99.9%
if 4.99999999999999981e134 < k Initial program 67.5%
Taylor expanded in k around inf
*-rgt-identityN/A
times-fracN/A
*-commutativeN/A
associate-*r*N/A
exp-prodN/A
neg-mul-1N/A
log-recN/A
remove-double-negN/A
rem-exp-logN/A
/-rgt-identityN/A
lower-*.f64N/A
unpow2N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f64N/A
lower-pow.f6488.1
Applied rewrites88.1%
Applied rewrites99.9%
Final simplification100.0%
(FPCore (a k m)
:precision binary64
(let* ((t_0 (/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k)))))
(if (<= t_0 0.0)
(pow
(* k (fma (+ (/ (/ (pow a -1.0) k) k) (/ (/ 10.0 a) k)) k (/ k a)))
-1.0)
(if (<= t_0 1e+298)
(/ a (fma (+ 10.0 k) k 1.0))
(if (<= t_0 INFINITY)
(/ (/ (/ (* a (fma -10.0 k 99.0)) (* k k)) k) k)
(fma (* a (fma (- k) -99.0 -10.0)) k a))))))
double code(double a, double k, double m) {
double t_0 = (a * pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k));
double tmp;
if (t_0 <= 0.0) {
tmp = pow((k * fma((((pow(a, -1.0) / k) / k) + ((10.0 / a) / k)), k, (k / a))), -1.0);
} else if (t_0 <= 1e+298) {
tmp = a / fma((10.0 + k), k, 1.0);
} else if (t_0 <= ((double) INFINITY)) {
tmp = (((a * fma(-10.0, k, 99.0)) / (k * k)) / k) / k;
} else {
tmp = fma((a * fma(-k, -99.0, -10.0)), k, a);
}
return tmp;
}
function code(a, k, m) t_0 = Float64(Float64(a * (k ^ m)) / Float64(Float64(1.0 + Float64(10.0 * k)) + Float64(k * k))) tmp = 0.0 if (t_0 <= 0.0) tmp = Float64(k * fma(Float64(Float64(Float64((a ^ -1.0) / k) / k) + Float64(Float64(10.0 / a) / k)), k, Float64(k / a))) ^ -1.0; elseif (t_0 <= 1e+298) tmp = Float64(a / fma(Float64(10.0 + k), k, 1.0)); elseif (t_0 <= Inf) tmp = Float64(Float64(Float64(Float64(a * fma(-10.0, k, 99.0)) / Float64(k * k)) / k) / k); else tmp = fma(Float64(a * fma(Float64(-k), -99.0, -10.0)), k, a); end return tmp end
code[a_, k_, m_] := Block[{t$95$0 = N[(N[(a * N[Power[k, m], $MachinePrecision]), $MachinePrecision] / N[(N[(1.0 + N[(10.0 * k), $MachinePrecision]), $MachinePrecision] + N[(k * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, 0.0], N[Power[N[(k * N[(N[(N[(N[(N[Power[a, -1.0], $MachinePrecision] / k), $MachinePrecision] / k), $MachinePrecision] + N[(N[(10.0 / a), $MachinePrecision] / k), $MachinePrecision]), $MachinePrecision] * k + N[(k / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], -1.0], $MachinePrecision], If[LessEqual[t$95$0, 1e+298], N[(a / N[(N[(10.0 + k), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$0, Infinity], N[(N[(N[(N[(a * N[(-10.0 * k + 99.0), $MachinePrecision]), $MachinePrecision] / N[(k * k), $MachinePrecision]), $MachinePrecision] / k), $MachinePrecision] / k), $MachinePrecision], N[(N[(a * N[((-k) * -99.0 + -10.0), $MachinePrecision]), $MachinePrecision] * k + a), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k}\\
\mathbf{if}\;t\_0 \leq 0:\\
\;\;\;\;{\left(k \cdot \mathsf{fma}\left(\frac{\frac{{a}^{-1}}{k}}{k} + \frac{\frac{10}{a}}{k}, k, \frac{k}{a}\right)\right)}^{-1}\\
\mathbf{elif}\;t\_0 \leq 10^{+298}:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10 + k, k, 1\right)}\\
\mathbf{elif}\;t\_0 \leq \infty:\\
\;\;\;\;\frac{\frac{\frac{a \cdot \mathsf{fma}\left(-10, k, 99\right)}{k \cdot k}}{k}}{k}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(a \cdot \mathsf{fma}\left(-k, -99, -10\right), k, a\right)\\
\end{array}
\end{array}
if (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) < 0.0Initial program 96.7%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites50.4%
Applied rewrites50.6%
Taylor expanded in k around inf
Applied rewrites56.6%
if 0.0 < (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) < 9.9999999999999996e297Initial program 99.8%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites90.7%
if 9.9999999999999996e297 < (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) < +inf.0Initial program 100.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites3.2%
Taylor expanded in k around inf
Applied rewrites23.5%
Taylor expanded in k around 0
Applied rewrites44.3%
if +inf.0 < (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) Initial program 0.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites1.6%
Taylor expanded in k around 0
Applied rewrites12.9%
Taylor expanded in k around 0
Applied rewrites89.1%
Final simplification62.1%
(FPCore (a k m)
:precision binary64
(let* ((t_0 (/ a (* k k)))
(t_1 (/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k)))))
(if (<= t_1 4e-229)
t_0
(if (<= t_1 1e+298)
(/ a (fma 10.0 k 1.0))
(if (<= t_1 INFINITY) t_0 (fma (* a (fma (- k) -99.0 -10.0)) k a))))))
double code(double a, double k, double m) {
double t_0 = a / (k * k);
double t_1 = (a * pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k));
double tmp;
if (t_1 <= 4e-229) {
tmp = t_0;
} else if (t_1 <= 1e+298) {
tmp = a / fma(10.0, k, 1.0);
} else if (t_1 <= ((double) INFINITY)) {
tmp = t_0;
} else {
tmp = fma((a * fma(-k, -99.0, -10.0)), k, a);
}
return tmp;
}
function code(a, k, m) t_0 = Float64(a / Float64(k * k)) t_1 = Float64(Float64(a * (k ^ m)) / Float64(Float64(1.0 + Float64(10.0 * k)) + Float64(k * k))) tmp = 0.0 if (t_1 <= 4e-229) tmp = t_0; elseif (t_1 <= 1e+298) tmp = Float64(a / fma(10.0, k, 1.0)); elseif (t_1 <= Inf) tmp = t_0; else tmp = fma(Float64(a * fma(Float64(-k), -99.0, -10.0)), k, a); end return tmp end
code[a_, k_, m_] := Block[{t$95$0 = N[(a / N[(k * k), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(a * N[Power[k, m], $MachinePrecision]), $MachinePrecision] / N[(N[(1.0 + N[(10.0 * k), $MachinePrecision]), $MachinePrecision] + N[(k * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, 4e-229], t$95$0, If[LessEqual[t$95$1, 1e+298], N[(a / N[(10.0 * k + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$1, Infinity], t$95$0, N[(N[(a * N[((-k) * -99.0 + -10.0), $MachinePrecision]), $MachinePrecision] * k + a), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{a}{k \cdot k}\\
t_1 := \frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k}\\
\mathbf{if}\;t\_1 \leq 4 \cdot 10^{-229}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;t\_1 \leq 10^{+298}:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10, k, 1\right)}\\
\mathbf{elif}\;t\_1 \leq \infty:\\
\;\;\;\;t\_0\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(a \cdot \mathsf{fma}\left(-k, -99, -10\right), k, a\right)\\
\end{array}
\end{array}
if (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) < 4.00000000000000028e-229 or 9.9999999999999996e297 < (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) < +inf.0Initial program 97.3%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites44.2%
Taylor expanded in k around 0
Applied rewrites15.0%
Taylor expanded in k around inf
Applied rewrites7.8%
Taylor expanded in k around inf
Applied rewrites38.5%
if 4.00000000000000028e-229 < (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) < 9.9999999999999996e297Initial program 99.8%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites90.0%
Taylor expanded in k around 0
Applied rewrites63.6%
if +inf.0 < (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) Initial program 0.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites1.6%
Taylor expanded in k around 0
Applied rewrites12.9%
Taylor expanded in k around 0
Applied rewrites89.1%
(FPCore (a k m) :precision binary64 (if (<= (/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k))) 4e+271) (* (/ (pow k m) (fma (+ k 10.0) k 1.0)) a) (* (pow k m) a)))
double code(double a, double k, double m) {
double tmp;
if (((a * pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k))) <= 4e+271) {
tmp = (pow(k, m) / fma((k + 10.0), k, 1.0)) * a;
} else {
tmp = pow(k, m) * a;
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (Float64(Float64(a * (k ^ m)) / Float64(Float64(1.0 + Float64(10.0 * k)) + Float64(k * k))) <= 4e+271) tmp = Float64(Float64((k ^ m) / fma(Float64(k + 10.0), k, 1.0)) * a); else tmp = Float64((k ^ m) * a); end return tmp end
code[a_, k_, m_] := If[LessEqual[N[(N[(a * N[Power[k, m], $MachinePrecision]), $MachinePrecision] / N[(N[(1.0 + N[(10.0 * k), $MachinePrecision]), $MachinePrecision] + N[(k * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 4e+271], N[(N[(N[Power[k, m], $MachinePrecision] / N[(N[(k + 10.0), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision] * a), $MachinePrecision], N[(N[Power[k, m], $MachinePrecision] * a), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k} \leq 4 \cdot 10^{+271}:\\
\;\;\;\;\frac{{k}^{m}}{\mathsf{fma}\left(k + 10, k, 1\right)} \cdot a\\
\mathbf{else}:\\
\;\;\;\;{k}^{m} \cdot a\\
\end{array}
\end{array}
if (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) < 3.99999999999999981e271Initial program 97.2%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6497.2
lift-+.f64N/A
lift-+.f64N/A
associate-+l+N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-+.f6497.2
Applied rewrites97.2%
if 3.99999999999999981e271 < (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) Initial program 66.7%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6466.7
lift-+.f64N/A
lift-+.f64N/A
associate-+l+N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-+.f6466.7
Applied rewrites66.7%
Taylor expanded in k around 0
lower-pow.f64100.0
Applied rewrites100.0%
(FPCore (a k m) :precision binary64 (if (<= (/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k))) 0.0) (* (* -10.0 a) k) (* (fma -10.0 k 1.0) a)))
double code(double a, double k, double m) {
double tmp;
if (((a * pow(k, m)) / ((1.0 + (10.0 * k)) + (k * k))) <= 0.0) {
tmp = (-10.0 * a) * k;
} else {
tmp = fma(-10.0, k, 1.0) * a;
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (Float64(Float64(a * (k ^ m)) / Float64(Float64(1.0 + Float64(10.0 * k)) + Float64(k * k))) <= 0.0) tmp = Float64(Float64(-10.0 * a) * k); else tmp = Float64(fma(-10.0, k, 1.0) * a); end return tmp end
code[a_, k_, m_] := If[LessEqual[N[(N[(a * N[Power[k, m], $MachinePrecision]), $MachinePrecision] / N[(N[(1.0 + N[(10.0 * k), $MachinePrecision]), $MachinePrecision] + N[(k * k), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.0], N[(N[(-10.0 * a), $MachinePrecision] * k), $MachinePrecision], N[(N[(-10.0 * k + 1.0), $MachinePrecision] * a), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;\frac{a \cdot {k}^{m}}{\left(1 + 10 \cdot k\right) + k \cdot k} \leq 0:\\
\;\;\;\;\left(-10 \cdot a\right) \cdot k\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-10, k, 1\right) \cdot a\\
\end{array}
\end{array}
if (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) < 0.0Initial program 96.7%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites50.4%
Taylor expanded in k around 0
Applied rewrites15.5%
Taylor expanded in k around inf
Applied rewrites7.8%
Applied rewrites7.8%
if 0.0 < (/.f64 (*.f64 a (pow.f64 k m)) (+.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 10 binary64) k)) (*.f64 k k))) Initial program 80.4%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites40.1%
Taylor expanded in k around 0
Applied rewrites30.0%
Taylor expanded in k around 0
Applied rewrites30.0%
(FPCore (a k m)
:precision binary64
(if (<= k 8.8e-6)
(* (pow k m) a)
(if (<= k 600000.0)
(/ a (fma (+ 10.0 k) k 1.0))
(* (/ a k) (pow k (+ -1.0 m))))))
double code(double a, double k, double m) {
double tmp;
if (k <= 8.8e-6) {
tmp = pow(k, m) * a;
} else if (k <= 600000.0) {
tmp = a / fma((10.0 + k), k, 1.0);
} else {
tmp = (a / k) * pow(k, (-1.0 + m));
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (k <= 8.8e-6) tmp = Float64((k ^ m) * a); elseif (k <= 600000.0) tmp = Float64(a / fma(Float64(10.0 + k), k, 1.0)); else tmp = Float64(Float64(a / k) * (k ^ Float64(-1.0 + m))); end return tmp end
code[a_, k_, m_] := If[LessEqual[k, 8.8e-6], N[(N[Power[k, m], $MachinePrecision] * a), $MachinePrecision], If[LessEqual[k, 600000.0], N[(a / N[(N[(10.0 + k), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(a / k), $MachinePrecision] * N[Power[k, N[(-1.0 + m), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;k \leq 8.8 \cdot 10^{-6}:\\
\;\;\;\;{k}^{m} \cdot a\\
\mathbf{elif}\;k \leq 600000:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10 + k, k, 1\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{a}{k} \cdot {k}^{\left(-1 + m\right)}\\
\end{array}
\end{array}
if k < 8.8000000000000004e-6Initial program 96.2%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6496.2
lift-+.f64N/A
lift-+.f64N/A
associate-+l+N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-+.f6496.2
Applied rewrites96.2%
Taylor expanded in k around 0
lower-pow.f6499.5
Applied rewrites99.5%
if 8.8000000000000004e-6 < k < 6e5Initial program 99.7%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites99.7%
if 6e5 < k Initial program 81.5%
Taylor expanded in k around inf
*-rgt-identityN/A
times-fracN/A
*-commutativeN/A
associate-*r*N/A
exp-prodN/A
neg-mul-1N/A
log-recN/A
remove-double-negN/A
rem-exp-logN/A
/-rgt-identityN/A
lower-*.f64N/A
unpow2N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f64N/A
lower-pow.f6493.2
Applied rewrites93.2%
Applied rewrites97.3%
(FPCore (a k m) :precision binary64 (if (<= k 8.8e-6) (* (pow k m) a) (if (<= k 600000.0) (/ a (fma (+ 10.0 k) k 1.0)) (* (pow k (+ -2.0 m)) a))))
double code(double a, double k, double m) {
double tmp;
if (k <= 8.8e-6) {
tmp = pow(k, m) * a;
} else if (k <= 600000.0) {
tmp = a / fma((10.0 + k), k, 1.0);
} else {
tmp = pow(k, (-2.0 + m)) * a;
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (k <= 8.8e-6) tmp = Float64((k ^ m) * a); elseif (k <= 600000.0) tmp = Float64(a / fma(Float64(10.0 + k), k, 1.0)); else tmp = Float64((k ^ Float64(-2.0 + m)) * a); end return tmp end
code[a_, k_, m_] := If[LessEqual[k, 8.8e-6], N[(N[Power[k, m], $MachinePrecision] * a), $MachinePrecision], If[LessEqual[k, 600000.0], N[(a / N[(N[(10.0 + k), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[Power[k, N[(-2.0 + m), $MachinePrecision]], $MachinePrecision] * a), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;k \leq 8.8 \cdot 10^{-6}:\\
\;\;\;\;{k}^{m} \cdot a\\
\mathbf{elif}\;k \leq 600000:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10 + k, k, 1\right)}\\
\mathbf{else}:\\
\;\;\;\;{k}^{\left(-2 + m\right)} \cdot a\\
\end{array}
\end{array}
if k < 8.8000000000000004e-6Initial program 96.2%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6496.2
lift-+.f64N/A
lift-+.f64N/A
associate-+l+N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-+.f6496.2
Applied rewrites96.2%
Taylor expanded in k around 0
lower-pow.f6499.5
Applied rewrites99.5%
if 8.8000000000000004e-6 < k < 6e5Initial program 99.7%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites99.7%
if 6e5 < k Initial program 81.5%
Taylor expanded in k around inf
*-rgt-identityN/A
times-fracN/A
*-commutativeN/A
associate-*r*N/A
exp-prodN/A
neg-mul-1N/A
log-recN/A
remove-double-negN/A
rem-exp-logN/A
/-rgt-identityN/A
lower-*.f64N/A
unpow2N/A
associate-/r*N/A
lower-/.f64N/A
lower-/.f64N/A
lower-pow.f6493.2
Applied rewrites93.2%
Applied rewrites97.3%
Applied rewrites93.4%
Applied rewrites93.4%
(FPCore (a k m) :precision binary64 (if (or (<= m -1.55e-6) (not (<= m 2.45e-12))) (* (pow k m) a) (/ a (fma (+ 10.0 k) k 1.0))))
double code(double a, double k, double m) {
double tmp;
if ((m <= -1.55e-6) || !(m <= 2.45e-12)) {
tmp = pow(k, m) * a;
} else {
tmp = a / fma((10.0 + k), k, 1.0);
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if ((m <= -1.55e-6) || !(m <= 2.45e-12)) tmp = Float64((k ^ m) * a); else tmp = Float64(a / fma(Float64(10.0 + k), k, 1.0)); end return tmp end
code[a_, k_, m_] := If[Or[LessEqual[m, -1.55e-6], N[Not[LessEqual[m, 2.45e-12]], $MachinePrecision]], N[(N[Power[k, m], $MachinePrecision] * a), $MachinePrecision], N[(a / N[(N[(10.0 + k), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;m \leq -1.55 \cdot 10^{-6} \lor \neg \left(m \leq 2.45 \cdot 10^{-12}\right):\\
\;\;\;\;{k}^{m} \cdot a\\
\mathbf{else}:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10 + k, k, 1\right)}\\
\end{array}
\end{array}
if m < -1.55e-6 or 2.44999999999999986e-12 < m Initial program 89.1%
lift-/.f64N/A
lift-*.f64N/A
associate-/l*N/A
*-commutativeN/A
lower-*.f64N/A
lower-/.f6489.1
lift-+.f64N/A
lift-+.f64N/A
associate-+l+N/A
+-commutativeN/A
lift-*.f64N/A
lift-*.f64N/A
distribute-rgt-outN/A
*-commutativeN/A
lower-fma.f64N/A
+-commutativeN/A
lower-+.f6489.1
Applied rewrites89.1%
Taylor expanded in k around 0
lower-pow.f6498.2
Applied rewrites98.2%
if -1.55e-6 < m < 2.44999999999999986e-12Initial program 94.4%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites94.3%
Final simplification96.7%
(FPCore (a k m)
:precision binary64
(if (<= m -0.235)
(/ (/ (* (/ (/ a k) k) 99.0) k) k)
(if (<= m 1.85)
(/ a (fma (+ 10.0 k) k 1.0))
(if (<= m 4.2e+261)
(fma (* a (fma (- k) -99.0 -10.0)) k a)
(/
a
(fma
(/ (- (* (* k k) (- k 10.0)) (* (- k 10.0) 100.0)) (* k k))
k
1.0))))))
double code(double a, double k, double m) {
double tmp;
if (m <= -0.235) {
tmp = ((((a / k) / k) * 99.0) / k) / k;
} else if (m <= 1.85) {
tmp = a / fma((10.0 + k), k, 1.0);
} else if (m <= 4.2e+261) {
tmp = fma((a * fma(-k, -99.0, -10.0)), k, a);
} else {
tmp = a / fma(((((k * k) * (k - 10.0)) - ((k - 10.0) * 100.0)) / (k * k)), k, 1.0);
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (m <= -0.235) tmp = Float64(Float64(Float64(Float64(Float64(a / k) / k) * 99.0) / k) / k); elseif (m <= 1.85) tmp = Float64(a / fma(Float64(10.0 + k), k, 1.0)); elseif (m <= 4.2e+261) tmp = fma(Float64(a * fma(Float64(-k), -99.0, -10.0)), k, a); else tmp = Float64(a / fma(Float64(Float64(Float64(Float64(k * k) * Float64(k - 10.0)) - Float64(Float64(k - 10.0) * 100.0)) / Float64(k * k)), k, 1.0)); end return tmp end
code[a_, k_, m_] := If[LessEqual[m, -0.235], N[(N[(N[(N[(N[(a / k), $MachinePrecision] / k), $MachinePrecision] * 99.0), $MachinePrecision] / k), $MachinePrecision] / k), $MachinePrecision], If[LessEqual[m, 1.85], N[(a / N[(N[(10.0 + k), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[m, 4.2e+261], N[(N[(a * N[((-k) * -99.0 + -10.0), $MachinePrecision]), $MachinePrecision] * k + a), $MachinePrecision], N[(a / N[(N[(N[(N[(N[(k * k), $MachinePrecision] * N[(k - 10.0), $MachinePrecision]), $MachinePrecision] - N[(N[(k - 10.0), $MachinePrecision] * 100.0), $MachinePrecision]), $MachinePrecision] / N[(k * k), $MachinePrecision]), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision]]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;m \leq -0.235:\\
\;\;\;\;\frac{\frac{\frac{\frac{a}{k}}{k} \cdot 99}{k}}{k}\\
\mathbf{elif}\;m \leq 1.85:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10 + k, k, 1\right)}\\
\mathbf{elif}\;m \leq 4.2 \cdot 10^{+261}:\\
\;\;\;\;\mathsf{fma}\left(a \cdot \mathsf{fma}\left(-k, -99, -10\right), k, a\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(\frac{\left(k \cdot k\right) \cdot \left(k - 10\right) - \left(k - 10\right) \cdot 100}{k \cdot k}, k, 1\right)}\\
\end{array}
\end{array}
if m < -0.23499999999999999Initial program 100.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites31.2%
Taylor expanded in k around inf
Applied rewrites37.7%
Taylor expanded in k around 0
Applied rewrites58.2%
if -0.23499999999999999 < m < 1.8500000000000001Initial program 94.7%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites90.7%
if 1.8500000000000001 < m < 4.2000000000000001e261Initial program 75.4%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites3.1%
Taylor expanded in k around 0
Applied rewrites9.2%
Taylor expanded in k around 0
Applied rewrites32.6%
if 4.2000000000000001e261 < m Initial program 94.1%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites3.7%
Applied rewrites3.5%
Taylor expanded in k around inf
Applied rewrites54.2%
(FPCore (a k m)
:precision binary64
(if (<= m -0.235)
(/ (/ (* (/ (/ a k) k) 99.0) k) k)
(if (<= m 1.85)
(/ a (fma (+ 10.0 k) k 1.0))
(fma (* a (fma (- k) -99.0 -10.0)) k a))))
double code(double a, double k, double m) {
double tmp;
if (m <= -0.235) {
tmp = ((((a / k) / k) * 99.0) / k) / k;
} else if (m <= 1.85) {
tmp = a / fma((10.0 + k), k, 1.0);
} else {
tmp = fma((a * fma(-k, -99.0, -10.0)), k, a);
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (m <= -0.235) tmp = Float64(Float64(Float64(Float64(Float64(a / k) / k) * 99.0) / k) / k); elseif (m <= 1.85) tmp = Float64(a / fma(Float64(10.0 + k), k, 1.0)); else tmp = fma(Float64(a * fma(Float64(-k), -99.0, -10.0)), k, a); end return tmp end
code[a_, k_, m_] := If[LessEqual[m, -0.235], N[(N[(N[(N[(N[(a / k), $MachinePrecision] / k), $MachinePrecision] * 99.0), $MachinePrecision] / k), $MachinePrecision] / k), $MachinePrecision], If[LessEqual[m, 1.85], N[(a / N[(N[(10.0 + k), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(a * N[((-k) * -99.0 + -10.0), $MachinePrecision]), $MachinePrecision] * k + a), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;m \leq -0.235:\\
\;\;\;\;\frac{\frac{\frac{\frac{a}{k}}{k} \cdot 99}{k}}{k}\\
\mathbf{elif}\;m \leq 1.85:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10 + k, k, 1\right)}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(a \cdot \mathsf{fma}\left(-k, -99, -10\right), k, a\right)\\
\end{array}
\end{array}
if m < -0.23499999999999999Initial program 100.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites31.2%
Taylor expanded in k around inf
Applied rewrites37.7%
Taylor expanded in k around 0
Applied rewrites58.2%
if -0.23499999999999999 < m < 1.8500000000000001Initial program 94.7%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites90.7%
if 1.8500000000000001 < m Initial program 79.3%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites3.3%
Taylor expanded in k around 0
Applied rewrites8.1%
Taylor expanded in k around 0
Applied rewrites29.0%
(FPCore (a k m)
:precision binary64
(if (<= m -4000000000.0)
(/ (fma (/ a k) (- (/ 99.0 k) 10.0) a) (* k k))
(if (<= m 1.85)
(/ a (fma (+ 10.0 k) k 1.0))
(fma (* a (fma (- k) -99.0 -10.0)) k a))))
double code(double a, double k, double m) {
double tmp;
if (m <= -4000000000.0) {
tmp = fma((a / k), ((99.0 / k) - 10.0), a) / (k * k);
} else if (m <= 1.85) {
tmp = a / fma((10.0 + k), k, 1.0);
} else {
tmp = fma((a * fma(-k, -99.0, -10.0)), k, a);
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (m <= -4000000000.0) tmp = Float64(fma(Float64(a / k), Float64(Float64(99.0 / k) - 10.0), a) / Float64(k * k)); elseif (m <= 1.85) tmp = Float64(a / fma(Float64(10.0 + k), k, 1.0)); else tmp = fma(Float64(a * fma(Float64(-k), -99.0, -10.0)), k, a); end return tmp end
code[a_, k_, m_] := If[LessEqual[m, -4000000000.0], N[(N[(N[(a / k), $MachinePrecision] * N[(N[(99.0 / k), $MachinePrecision] - 10.0), $MachinePrecision] + a), $MachinePrecision] / N[(k * k), $MachinePrecision]), $MachinePrecision], If[LessEqual[m, 1.85], N[(a / N[(N[(10.0 + k), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(a * N[((-k) * -99.0 + -10.0), $MachinePrecision]), $MachinePrecision] * k + a), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;m \leq -4000000000:\\
\;\;\;\;\frac{\mathsf{fma}\left(\frac{a}{k}, \frac{99}{k} - 10, a\right)}{k \cdot k}\\
\mathbf{elif}\;m \leq 1.85:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10 + k, k, 1\right)}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(a \cdot \mathsf{fma}\left(-k, -99, -10\right), k, a\right)\\
\end{array}
\end{array}
if m < -4e9Initial program 100.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites31.6%
Taylor expanded in k around 0
Applied rewrites2.8%
Taylor expanded in k around inf
Applied rewrites56.4%
if -4e9 < m < 1.8500000000000001Initial program 94.7%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites89.9%
if 1.8500000000000001 < m Initial program 79.3%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites3.3%
Taylor expanded in k around 0
Applied rewrites8.1%
Taylor expanded in k around 0
Applied rewrites29.0%
(FPCore (a k m)
:precision binary64
(if (<= m -4000000000.0)
(/ a (* k k))
(if (<= m 1.85)
(/ a (fma (+ 10.0 k) k 1.0))
(fma (* a (fma (- k) -99.0 -10.0)) k a))))
double code(double a, double k, double m) {
double tmp;
if (m <= -4000000000.0) {
tmp = a / (k * k);
} else if (m <= 1.85) {
tmp = a / fma((10.0 + k), k, 1.0);
} else {
tmp = fma((a * fma(-k, -99.0, -10.0)), k, a);
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if (m <= -4000000000.0) tmp = Float64(a / Float64(k * k)); elseif (m <= 1.85) tmp = Float64(a / fma(Float64(10.0 + k), k, 1.0)); else tmp = fma(Float64(a * fma(Float64(-k), -99.0, -10.0)), k, a); end return tmp end
code[a_, k_, m_] := If[LessEqual[m, -4000000000.0], N[(a / N[(k * k), $MachinePrecision]), $MachinePrecision], If[LessEqual[m, 1.85], N[(a / N[(N[(10.0 + k), $MachinePrecision] * k + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(a * N[((-k) * -99.0 + -10.0), $MachinePrecision]), $MachinePrecision] * k + a), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;m \leq -4000000000:\\
\;\;\;\;\frac{a}{k \cdot k}\\
\mathbf{elif}\;m \leq 1.85:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10 + k, k, 1\right)}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(a \cdot \mathsf{fma}\left(-k, -99, -10\right), k, a\right)\\
\end{array}
\end{array}
if m < -4e9Initial program 100.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites31.6%
Taylor expanded in k around 0
Applied rewrites2.8%
Taylor expanded in k around inf
Applied rewrites1.9%
Taylor expanded in k around inf
Applied rewrites51.9%
if -4e9 < m < 1.8500000000000001Initial program 94.7%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites89.9%
if 1.8500000000000001 < m Initial program 79.3%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites3.3%
Taylor expanded in k around 0
Applied rewrites8.1%
Taylor expanded in k around 0
Applied rewrites29.0%
(FPCore (a k m) :precision binary64 (if (or (<= k -3.1e-256) (not (<= k 10.2))) (/ a (* k k)) (/ a (fma 10.0 k 1.0))))
double code(double a, double k, double m) {
double tmp;
if ((k <= -3.1e-256) || !(k <= 10.2)) {
tmp = a / (k * k);
} else {
tmp = a / fma(10.0, k, 1.0);
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if ((k <= -3.1e-256) || !(k <= 10.2)) tmp = Float64(a / Float64(k * k)); else tmp = Float64(a / fma(10.0, k, 1.0)); end return tmp end
code[a_, k_, m_] := If[Or[LessEqual[k, -3.1e-256], N[Not[LessEqual[k, 10.2]], $MachinePrecision]], N[(a / N[(k * k), $MachinePrecision]), $MachinePrecision], N[(a / N[(10.0 * k + 1.0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;k \leq -3.1 \cdot 10^{-256} \lor \neg \left(k \leq 10.2\right):\\
\;\;\;\;\frac{a}{k \cdot k}\\
\mathbf{else}:\\
\;\;\;\;\frac{a}{\mathsf{fma}\left(10, k, 1\right)}\\
\end{array}
\end{array}
if k < -3.09999999999999986e-256 or 10.199999999999999 < k Initial program 86.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites45.0%
Taylor expanded in k around 0
Applied rewrites4.9%
Taylor expanded in k around inf
Applied rewrites6.1%
Taylor expanded in k around inf
Applied rewrites45.4%
if -3.09999999999999986e-256 < k < 10.199999999999999Initial program 100.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites50.2%
Taylor expanded in k around 0
Applied rewrites47.7%
Final simplification46.2%
(FPCore (a k m) :precision binary64 (if (or (<= k -3.1e-256) (not (<= k 0.1))) (/ a (* k k)) (* (fma -10.0 k 1.0) a)))
double code(double a, double k, double m) {
double tmp;
if ((k <= -3.1e-256) || !(k <= 0.1)) {
tmp = a / (k * k);
} else {
tmp = fma(-10.0, k, 1.0) * a;
}
return tmp;
}
function code(a, k, m) tmp = 0.0 if ((k <= -3.1e-256) || !(k <= 0.1)) tmp = Float64(a / Float64(k * k)); else tmp = Float64(fma(-10.0, k, 1.0) * a); end return tmp end
code[a_, k_, m_] := If[Or[LessEqual[k, -3.1e-256], N[Not[LessEqual[k, 0.1]], $MachinePrecision]], N[(a / N[(k * k), $MachinePrecision]), $MachinePrecision], N[(N[(-10.0 * k + 1.0), $MachinePrecision] * a), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;k \leq -3.1 \cdot 10^{-256} \lor \neg \left(k \leq 0.1\right):\\
\;\;\;\;\frac{a}{k \cdot k}\\
\mathbf{else}:\\
\;\;\;\;\mathsf{fma}\left(-10, k, 1\right) \cdot a\\
\end{array}
\end{array}
if k < -3.09999999999999986e-256 or 0.10000000000000001 < k Initial program 86.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites45.0%
Taylor expanded in k around 0
Applied rewrites4.9%
Taylor expanded in k around inf
Applied rewrites6.1%
Taylor expanded in k around inf
Applied rewrites45.4%
if -3.09999999999999986e-256 < k < 0.10000000000000001Initial program 100.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites50.2%
Taylor expanded in k around 0
Applied rewrites47.3%
Taylor expanded in k around 0
Applied rewrites47.3%
Final simplification46.1%
(FPCore (a k m) :precision binary64 (if (<= m 4.5e+25) (* (/ a k) k) (* (* -10.0 a) k)))
double code(double a, double k, double m) {
double tmp;
if (m <= 4.5e+25) {
tmp = (a / k) * k;
} else {
tmp = (-10.0 * a) * k;
}
return tmp;
}
real(8) function code(a, k, m)
real(8), intent (in) :: a
real(8), intent (in) :: k
real(8), intent (in) :: m
real(8) :: tmp
if (m <= 4.5d+25) then
tmp = (a / k) * k
else
tmp = ((-10.0d0) * a) * k
end if
code = tmp
end function
public static double code(double a, double k, double m) {
double tmp;
if (m <= 4.5e+25) {
tmp = (a / k) * k;
} else {
tmp = (-10.0 * a) * k;
}
return tmp;
}
def code(a, k, m): tmp = 0 if m <= 4.5e+25: tmp = (a / k) * k else: tmp = (-10.0 * a) * k return tmp
function code(a, k, m) tmp = 0.0 if (m <= 4.5e+25) tmp = Float64(Float64(a / k) * k); else tmp = Float64(Float64(-10.0 * a) * k); end return tmp end
function tmp_2 = code(a, k, m) tmp = 0.0; if (m <= 4.5e+25) tmp = (a / k) * k; else tmp = (-10.0 * a) * k; end tmp_2 = tmp; end
code[a_, k_, m_] := If[LessEqual[m, 4.5e+25], N[(N[(a / k), $MachinePrecision] * k), $MachinePrecision], N[(N[(-10.0 * a), $MachinePrecision] * k), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;m \leq 4.5 \cdot 10^{+25}:\\
\;\;\;\;\frac{a}{k} \cdot k\\
\mathbf{else}:\\
\;\;\;\;\left(-10 \cdot a\right) \cdot k\\
\end{array}
\end{array}
if m < 4.5000000000000003e25Initial program 96.8%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites67.1%
Taylor expanded in k around 0
Applied rewrites26.1%
Taylor expanded in k around inf
Applied rewrites24.0%
Taylor expanded in k around 0
Applied rewrites34.2%
if 4.5000000000000003e25 < m Initial program 79.0%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites3.3%
Taylor expanded in k around 0
Applied rewrites8.2%
Taylor expanded in k around inf
Applied rewrites19.0%
Applied rewrites19.0%
(FPCore (a k m) :precision binary64 (* (* -10.0 a) k))
double code(double a, double k, double m) {
return (-10.0 * a) * k;
}
real(8) function code(a, k, m)
real(8), intent (in) :: a
real(8), intent (in) :: k
real(8), intent (in) :: m
code = ((-10.0d0) * a) * k
end function
public static double code(double a, double k, double m) {
return (-10.0 * a) * k;
}
def code(a, k, m): return (-10.0 * a) * k
function code(a, k, m) return Float64(Float64(-10.0 * a) * k) end
function tmp = code(a, k, m) tmp = (-10.0 * a) * k; end
code[a_, k_, m_] := N[(N[(-10.0 * a), $MachinePrecision] * k), $MachinePrecision]
\begin{array}{l}
\\
\left(-10 \cdot a\right) \cdot k
\end{array}
Initial program 91.1%
Taylor expanded in m around 0
lower-/.f64N/A
associate-+r+N/A
+-commutativeN/A
+-commutativeN/A
associate-+l+N/A
+-commutativeN/A
associate-+l+N/A
metadata-evalN/A
lft-mult-inverseN/A
associate-*l*N/A
associate-*r*N/A
unpow2N/A
associate-+l+N/A
distribute-lft1-inN/A
+-commutativeN/A
unpow2N/A
associate-*r*N/A
lower-fma.f64N/A
Applied rewrites46.9%
Taylor expanded in k around 0
Applied rewrites20.4%
Taylor expanded in k around inf
Applied rewrites7.5%
Applied rewrites7.5%
herbie shell --seed 2024321
(FPCore (a k m)
:name "Falkner and Boettcher, Appendix A"
:precision binary64
(/ (* a (pow k m)) (+ (+ 1.0 (* 10.0 k)) (* k k))))