wolfram-mathematica - Mathematica 中的计数表达式

Question

如果我想计算 ^ 在表达式 x 中出现的次数，这很简单:

Count[x, _Power, {0, Infinity}]

假设我只想计算 -1 提升到某个幂的实例。我怎样才能做到这一点？

我试过了

Count[(-1)^n + 2^n, _Power[-1, _], {0, Infinity}]

乃至

Count[Plus[Power[-1, n], Power[2, n]], _Power[-1, _], {0, Infinity}]

但都给了0。

问题的起源:我正在构建一个 ComplexityFunction ，它允许某些表达式，如 Power[-1, anyComplicatedExpressionHere] 和 Sqrt[5] (与我的问题相关)，但严重惩罚 Power 和 Sqrt 的其他用途。

Answer 1

你会做 Count[x,Power[-1,_], {0, Infinity}]

In[4]:= RandomInteger[{-1, 1}, 10]^RandomChoice[{x, y, z}, 10]

Out[4]= {(-1)^x, (-1)^x, 0^y, 0^z, (-1)^z, 1, 1, 1, (-1)^y, 0^x}

In[5]:= Count[%, (-1)^_, {0, Infinity}]

Out[5]= 4