怎么用Mathematica 5做这道题

陈了

幻灯片 1对(x+y-z)^5进行多项式展开，并且提取其中包含xmzn的项(m是任意奇数,n是任意偶数)
# ?/ K9 m, n! h谢谢哦
+ H3 g& q4 }4 M0 {$ A+ U  p6 I1 g

月下侏儒

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

chuchumaolu

写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
exp = Expand[(x + y - z)^5];
2 p1 V) }0 w7 Y) T) ^/ _$ w/ h: x* tf[l_Integer*x^m_.*z^n_.] = {m, n};
out = {};
1 w, M$ B/ }* Z) E  K5 N# p6 bModule[{i, list, len},
len = Length[exp];
For[i = 1, i <= len, i++,
6 Z8 [8 J1 Z  S. b. M" y3 |( K  If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
   If[OddQ[list[[1]]] && EvenQ[list[[2]]],
    out = Append[out, exp[[i]]]
    ]
9 ]$ k: _2 b* V: T   ]
- d  D0 @/ G$ J9 J) J- i& [  ]
]
out =
{10 x^3 z^2, 5 x z^4}

chuchumaolu

昨天晚上做到这这一步了;
exp = 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}
但是对于：对于x,z的幂不知道怎么筛选

陈了

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

chuchumaolu

第一步：Expand[expr];
第二步：Cases[list,patterns];
2 B8 `2 E4 H9 L( w(*pattern:见网址：http://reference.wolfram.com/mathematica/guide/Patterns.html*)
  h! g1 b, u2 i% L! W9 K我还没有查到，你先自己找找吧
写出来了，告诉我哦

chuchumaolu

版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
" e0 R( P) e7 F7 }
5 p) y( Z" f" z7 e$ \8 [$ p# \& B我想问问你做这个又什么目的吗，

aqua2001

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