怎么用Mathematica 5做这道题

陈了

幻灯片 1对(x+y-z)^5进行多项式展开，并且提取其中包含xmzn的项(m是任意奇数,n是任意偶数)
) H3 C1 @$ D) ]. G! b2 f谢谢哦

aqua2001

展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来，你可以手工弄出来！

chuchumaolu

版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，

我想问问你做这个又什么目的吗，

chuchumaolu

第一步：Expand[expr];
第二步：Cases[list,patterns];
% j7 _  r) r. e" [0 B( b2 ?' k(*pattern:见网址：http://reference.wolfram.com/mathematica/guide/Patterns.html*)
3 Z& v) p: t: Z我还没有查到，你先自己找找吧
% _/ H9 e& T2 v! {写出来了，告诉我哦

陈了

还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

chuchumaolu

昨天晚上做到这这一步了;
! P% ~) S) J+ e& t& bexp = Expand[(x + y - z)^5];
Cases[exp, l_Integer x^m_. z^n_.]
结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
/ L# z: F3 \7 q9 p5 b但是对于：对于x,z的幂不知道怎么筛选

chuchumaolu

写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
exp = Expand[(x + y - z)^5];
4 u* d: m4 c8 @, a# kf[l_Integer*x^m_.*z^n_.] = {m, n};
out = {};
% ?  ~/ m3 K; f/ ~; JModule[{i, list, len},
len = Length[exp];
For[i = 1, i <= len, i++,
  If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
   If[OddQ[list[[1]]] && EvenQ[list[[2]]],
2 H# o1 d6 T  h' h% |4 h$ W    out = Append[out, exp[[i]]]
    ]
; h& T! v9 G  e   ]
  ]
0 g# q+ g* I! i9 c: S) i* g; m' h ]
  P6 e8 `& c+ c. F1 H; k5 P/ v* Cout =
{10 x^3 z^2, 5 x z^4}

月下侏儒

。。。。。。。。。。。。。。