我想在mathematica中计算系数。例如，我写了这段代码，在（a + b * cos（x））^ 4中找到cos（kx）的系数，其中“a”和“b”是参数。
f[x_] := (a + b Cos[x])^4
f1[x_] := TrigReduce[f[x]]
g[x_, k_] := Coefficient[f1[x], Cos[k x]]
它适用于cos（k * x），
的系数例如cos（2x）的系数是
g[x,2]= 1/8 (24 a^2 b^2 + 4 b^4)
但它不适用于常量（这里常量意味着独立于cos（kx）。换句话说，只是带有数字的术语和参数“a”和“b”）。
我想编写代码以找到上述含义中的常量。
感谢。
答案 0 :(得分：1)
将Coefficient[TrigReduce[(a + b*Cos[x])^4],Cos[2*x]]插入Wolfram | Alpha会产生您想要的输出。这使我建议你的问题可能与表达式的评估方式有关，而不是你在数学上如何考虑它的问题。
我无法访问Mathematica的副本，因此无法对此进行测试，但我会尝试在第二行代码中将:=更改为=。
我也会尝试将它全部放在一行中
g[x_, k_] := Coefficient[TrigReduce[(a + b Cos[x])^4], Cos[k x]]
如果可行的话，Mathematica如何/何时分配东西肯定是错误的。
有关详细信息，请参阅 this link 。