怎么用Mathematica 5做这道题

陈了

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

月下侏儒

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

chuchumaolu

写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
exp = Expand[(x + y - z)^5];
. M$ b% J3 I) I. _8 z2 q$ \' p7 wf[l_Integer*x^m_.*z^n_.] = {m, n};
5 S* R& P: ^9 l2 Y$ t' Hout = {};
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]]];
- }: g' h5 @5 m# G   If[OddQ[list[[1]]] && EvenQ[list[[2]]],
0 t+ M6 ^1 F# @" e* t6 A    out = Append[out, exp[[i]]]
    ]
2 b  E# u) i6 z2 x  E   ]
7 c: \- c5 C6 g! A  ]
2 [& z3 ^6 N, ?" c- W ]
7 ~. K% ~- Q3 s8 rout =
{10 x^3 z^2, 5 x z^4}

chuchumaolu

昨天晚上做到这这一步了;
exp = Expand[(x + y - z)^5];
( J( [7 L3 u+ E( W1 s7 NCases[exp, l_Integer x^m_. z^n_.]
! |8 ~) L1 F9 T- u- a0 x5 j结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
; t2 G/ j7 g, t' Z9 ?但是对于：对于x,z的幂不知道怎么筛选

陈了

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

chuchumaolu

第一步：Expand[expr];
) P* I* H" J& Z: w1 s第二步：Cases[list,patterns];
(*pattern:见网址：http://reference.wolfram.com/mathematica/guide/Patterns.html*)
! O  F0 V- y' W5 F: S4 B. r( p% R; O我还没有查到，你先自己找找吧
写出来了，告诉我哦

chuchumaolu

版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
9 x8 ^$ s0 p0 S) S
我想问问你做这个又什么目的吗，

aqua2001

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