数学建模社区-数学中国

标题: 怎么用Mathematica 5做这道题 [打印本页]

作者: 陈了    时间: 2010-3-19 09:29
标题: 怎么用Mathematica 5做这道题
幻灯片 1(x+y-z)^5进行多项式展开,并且提取其中包含xmzn的项(m是任意奇数,n是任意偶数)
; z; B: N: D- Z6 T/ W谢谢哦% i$ _$ U- v' Y4 x/ g3 b

作者: aqua2001    时间: 2010-3-19 15:58
展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来,你可以手工弄出来!
作者: chuchumaolu    时间: 2010-3-20 10:41
版主也这样垃圾呀,我不知道怎么在mathematica 中实现匹配,$ {0 u0 ~% T. Z3 I: k. s

$ q  Q; q; D. H% {) n我想问问你做这个又什么目的吗,
作者: chuchumaolu    时间: 2010-3-20 12:01
第一步:Expand[expr];3 T9 x( l! S/ @5 |8 ?% A$ t  }4 @
第二步:Cases[list,patterns];
& m) n5 X: O0 q. Y(*pattern:见网址:http://reference.wolfram.com/mathematica/guide/Patterns.html*)6 Q. A" E. _( o9 C/ w- N
我还没有查到,你先自己找找吧. q+ v% k3 v. D! R
写出来了,告诉我哦
作者: 陈了    时间: 2010-3-22 11:14
还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
作者: chuchumaolu    时间: 2010-3-25 08:38
昨天晚上做到这这一步了;
$ m  B  e0 X: f9 _exp = Expand[(x + y - z)^5];' g8 a! G/ e0 r# k7 u
Cases[exp, l_Integer x^m_. z^n_.]0 h9 N, V" |6 G% w, g+ T
结果为:{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}2 u1 Z: q& Z# X0 g
但是对于:对于x,z的幂不知道怎么筛选
作者: chuchumaolu    时间: 2010-3-27 12:51
写了一个垃圾程序做出来了,但是表达式怎么写实在不知道:) u& T. P/ v2 F! |. z. s' X6 F- W
exp = Expand[(x + y - z)^5];. x- b  D; w/ ]7 a
f[l_Integer*x^m_.*z^n_.] = {m, n};
% m) h! e6 _% t/ z  H8 w0 ?out = {};
' [8 Z, j2 m/ ]Module[{i, list, len},& c7 s- Q+ q9 _9 _: }
len = Length[exp];1 P8 }9 j# y4 q9 O
For[i = 1, i <= len, i++,
8 Z  I. N9 Q: w: c# \) Y6 Q% O2 b1 W  If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];4 u. u5 E( X3 D- y% ~- a! N
   If[OddQ[list[[1]]] && EvenQ[list[[2]]],
. _" s- z* o5 ?  f    out = Append[out, exp[[i]]]
9 R  [) L0 |" L1 M7 w( I    ]
. ?9 t6 \* L2 h7 o+ s5 m  X   ]
. ?3 n% `* j5 @0 E1 l; H  ]* ~6 J4 N; u5 z% d6 t* u
]3 O6 j5 L2 ~& p1 g
out =
  E1 E9 B/ _: O' j2 c8 O/ ]( x  t{10 x^3 z^2, 5 x z^4}
作者: 月下侏儒    时间: 2012-7-23 09:45
。。。。。。。。。。。。。。




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5