数学建模社区-数学中国

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

作者: 陈了    时间: 2010-3-19 09:29
标题: 怎么用Mathematica 5做这道题
幻灯片 1(x+y-z)^5进行多项式展开,并且提取其中包含xmzn的项(m是任意奇数,n是任意偶数)
& _  G) B( |" y; ?谢谢哦
( q3 U% c  q7 r. G/ W- X( p/ N! B

作者: aqua2001    时间: 2010-3-19 15:58
展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来,你可以手工弄出来!
作者: chuchumaolu    时间: 2010-3-20 10:41
版主也这样垃圾呀,我不知道怎么在mathematica 中实现匹配,& r4 V8 p/ y5 J# @' Y( b% R
9 y" A; i5 I6 |
我想问问你做这个又什么目的吗,
作者: chuchumaolu    时间: 2010-3-20 12:01
第一步:Expand[expr];) j( {) w; R- o# G% S2 u
第二步:Cases[list,patterns];! `# n2 O  c+ d) [! g, p1 H; L
(*pattern:见网址:http://reference.wolfram.com/mathematica/guide/Patterns.html*)  I/ T$ \, Z0 \; Q
我还没有查到,你先自己找找吧; ^/ p: g& S: X6 B+ ?) V% D  N
写出来了,告诉我哦
作者: 陈了    时间: 2010-3-22 11:14
还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
作者: chuchumaolu    时间: 2010-3-25 08:38
昨天晚上做到这这一步了;
/ x1 q- d" I, `/ Jexp = Expand[(x + y - z)^5];
( `. N( \  [  RCases[exp, l_Integer x^m_. z^n_.]
: |& E$ z9 Q9 g# ^4 d. G, H结果为:{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}3 h0 ]+ `; Z' l  ~1 z4 U" |6 {
但是对于:对于x,z的幂不知道怎么筛选
作者: chuchumaolu    时间: 2010-3-27 12:51
写了一个垃圾程序做出来了,但是表达式怎么写实在不知道:
- T5 g" M% X, Q! n6 U) Cexp = Expand[(x + y - z)^5];
2 Z* L+ f3 \3 Kf[l_Integer*x^m_.*z^n_.] = {m, n};
4 e: ~1 L7 H# D7 W0 Dout = {};
/ E% b/ ~* s3 b8 W8 PModule[{i, list, len},' H- ^0 u$ i$ s2 x. l8 t
len = Length[exp];
  z' G+ ]. J$ L$ n( w For[i = 1, i <= len, i++,
, @- f  U# z5 n( [6 t  If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
  t& U) n2 p) _. ]0 f( `$ {   If[OddQ[list[[1]]] && EvenQ[list[[2]]],
! [6 k3 d. x5 w- _/ x    out = Append[out, exp[[i]]]
" C2 l- u9 e( x; u    ]6 Z& T/ N) r3 L% A
   ]
" g0 u9 N: {0 `: B, Q6 ~. t  ]- \0 ^+ E( _" j3 ?8 X
]5 z. G6 G9 Q6 {0 J' t4 N
out = + e& `, e2 y3 `' j! Y) T' k- U9 |
{10 x^3 z^2, 5 x z^4}
作者: 月下侏儒    时间: 2012-7-23 09:45
。。。。。。。。。。。。。。




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