怎么用Mathematica 5做这道题

陈了

幻灯片 1对(x+y-z)^5进行多项式展开，并且提取其中包含xmzn的项(m是任意奇数,n是任意偶数)
/ w. f3 ]& _9 C1 c& R) l谢谢哦

aqua2001

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

chuchumaolu

版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
0 i" n7 h8 j3 j- R. S
我想问问你做这个又什么目的吗，

chuchumaolu

第一步：Expand[expr];
  L- g' b' T/ X4 |9 k! T$ z, @+ D第二步：Cases[list,patterns];
(*pattern:见网址：http://reference.wolfram.com/mathematica/guide/Patterns.html*)
我还没有查到，你先自己找找吧
写出来了，告诉我哦

陈了

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

chuchumaolu

昨天晚上做到这这一步了;
$ H% [4 I, ?2 s2 P0 R4 Y0 T) Gexp = Expand[(x + y - z)^5];
  c9 S- j1 D/ ]# ?4 KCases[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

写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
exp = Expand[(x + y - z)^5];
f[l_Integer*x^m_.*z^n_.] = {m, n};
out = {};
Module[{i, list, len},
. K  A) a+ W& S. C9 E) o4 j len = Length[exp];
3 G8 N6 t0 ~) M; v2 S! ^ For[i = 1, i <= len, i++,
  If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
0 f0 e* p$ J( L4 X. v   If[OddQ[list[[1]]] && EvenQ[list[[2]]],
& l- z- p' c2 w: r/ Y% _1 s    out = Append[out, exp[[i]]]
9 C# }4 y3 I5 y    ]
* b5 `3 e. R% c2 r7 `* m3 v   ]
7 n* E2 B/ O5 o3 ?  ]
) B* c. J( d, ^' u- Z. y" e ]
) d/ ?% d4 ^0 z3 _8 E; H) `- Eout =
{10 x^3 z^2, 5 x z^4}

月下侏儒

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