怎么用Mathematica 5做这道题

陈了

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

月下侏儒

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

chuchumaolu

写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
exp = Expand[(x + y - z)^5];
/ G' u, j. K$ P; S1 rf[l_Integer*x^m_.*z^n_.] = {m, n};
( H& K4 e. J+ @9 V: {  j% i  O" Pout = {};
! c5 [- u8 q( e  k3 b6 K, eModule[{i, list, len},
% ?. s+ o5 k8 ^9 H' U8 _. ? len = Length[exp];
  l. j" E, F' F  a For[i = 1, i <= len, i++,
  If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
; i( D4 t" \* ?0 o7 y+ h5 P$ J   If[OddQ[list[[1]]] && EvenQ[list[[2]]],
    out = Append[out, exp[[i]]]
8 @( k; f: n4 w+ M    ]
  K) @# _$ N1 C# E' T$ H: O- ]1 b   ]
  ]
]
out =
{10 x^3 z^2, 5 x z^4}

chuchumaolu

昨天晚上做到这这一步了;
! r" X9 ~8 t& `$ rexp = 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}
. t# o9 z7 o8 l3 e但是对于：对于x,z的幂不知道怎么筛选

陈了

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

chuchumaolu

第一步：Expand[expr];
第二步：Cases[list,patterns];
(*pattern:见网址：http://reference.wolfram.com/mathematica/guide/Patterns.html*)
我还没有查到，你先自己找找吧
写出来了，告诉我哦

chuchumaolu

版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
# H6 B7 m. L$ \
& }# e6 e7 W5 c, y我想问问你做这个又什么目的吗，

aqua2001

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