用MMA提取特解形式相关项

青青子衿

1. Collect[D[
2.   t (a*t + b) Exp[t] Cos[t] + t (c*t + d) Exp[t] Sin[t], {t,
3.    2}], {Exp[t], Cos[t], Sin[t], t}]
4. Coefficient[%, {Exp[t] Cos[t], Exp[t] Sin[t]}]

Copy the Code