Wolfram 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）的系数为

但它不适用于常数（这里常数的意思是独立于cos（kx）。换句话说，只有带有数字和参数“a”和“b”的术语）

我想写代码来找到上面意义上的常数

---

谢谢。

将系数[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分配数据的方式/时间肯定有问题

---

有关更多信息，请参阅。

请格式化您的代码。

g[x_, k_] := Coefficient[TrigReduce[(a + b Cos[x])^4], Cos[k x]]