怎么用Mathematica 5做这道题

陈了

幻灯片 1对(x+y-z)^5进行多项式展开，并且提取其中包含xmzn的项(m是任意奇数,n是任意偶数)
谢谢哦

月下侏儒

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

chuchumaolu

写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
# s% [& W8 K7 ~5 P! U4 {" n$ p5 s0 vexp = Expand[(x + y - z)^5];
f[l_Integer*x^m_.*z^n_.] = {m, n};
- m6 a) V/ _' L1 g8 U4 @/ ~( r3 Jout = {};
Module[{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]]],
    out = Append[out, exp[[i]]]
) b: S9 j0 Z0 t5 b5 a    ]
   ]
  ]
& i- P! h5 b4 |! c6 S6 e ]
out =
{10 x^3 z^2, 5 x z^4}

chuchumaolu

昨天晚上做到这这一步了;
9 a# U9 y2 u2 I& C! `exp = Expand[(x + y - z)^5];
Cases[exp, l_Integer x^m_. z^n_.]
4 N) w  @& D  }6 w9 X结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
但是对于：对于x,z的幂不知道怎么筛选

陈了

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

chuchumaolu

第一步：Expand[expr];
( Y7 i6 h- f9 e, E" V3 B# J第二步：Cases[list,patterns];
(*pattern:见网址：http://reference.wolfram.com/mathematica/guide/Patterns.html*)
/ S: O! L# V; ]% Q1 a我还没有查到，你先自己找找吧
写出来了，告诉我哦

chuchumaolu

版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
, i* T& M3 u1 B0 T
我想问问你做这个又什么目的吗，

aqua2001

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