怎么用Mathematica 5做这道题

陈了

幻灯片 1对(x+y-z)^5进行多项式展开，并且提取其中包含xmzn的项(m是任意奇数,n是任意偶数)
: b) n' u  G- k0 L( H  h) I# {谢谢哦
( ?0 ?; }% R* o

月下侏儒

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

chuchumaolu

写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
  z9 b. H) T2 `+ t# C7 R2 p( M  Aexp = Expand[(x + y - z)^5];
5 E/ A# Q/ ]! E# T5 Bf[l_Integer*x^m_.*z^n_.] = {m, n};
5 M; u" A6 c6 Z7 ]% {- d2 S9 gout = {};
Module[{i, list, len},
len = Length[exp];
! J+ q7 \5 @: U! l' h2 t! _ For[i = 1, i <= len, i++,
" s! e8 y6 P3 G6 ^( D8 u. ^* L  If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
: A+ q, n. s1 G; G1 r& Z9 K   If[OddQ[list[[1]]] && EvenQ[list[[2]]],
; S4 l/ I5 V6 Y6 @    out = Append[out, exp[[i]]]
  G: N* M3 R4 A1 x1 @9 G    ]
   ]
  ]
]
3 _$ u, ^% z1 Cout =
. @6 d" A% N3 \6 }/ E- W, o{10 x^3 z^2, 5 x z^4}

chuchumaolu

昨天晚上做到这这一步了;
exp = Expand[(x + y - z)^5];
, D1 v. y7 K) u+ p* k: r+ l) BCases[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];
7 C( b1 w( T8 x- @* M% z第二步：Cases[list,patterns];
' U2 X  L, j: B; u5 h: S$ G(*pattern:见网址：http://reference.wolfram.com/mathematica/guide/Patterns.html*)
; F7 W( \. m- m* @我还没有查到，你先自己找找吧
写出来了，告诉我哦

chuchumaolu

版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
' T. {, Z( P5 U- {0 r
我想问问你做这个又什么目的吗，

aqua2001

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