数学建模社区-数学中国
标题:
怎么用Mathematica 5做这道题
[打印本页]
作者:
陈了
时间:
2010-3-19 09:29
标题:
怎么用Mathematica 5做这道题
幻灯片 1
对
(x+y-z)^5
进行多项式展开,并且提取其中包含
x
m
z
n
的项
(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, `/ J
exp = Expand[(x + y - z)^5];
( `. N( \ [ R
Cases[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) C
exp = Expand[(x + y - z)^5];
2 Z* L+ f3 \3 K
f[l_Integer*x^m_.*z^n_.] = {m, n};
4 e: ~1 L7 H# D7 W0 D
out = {};
/ E% b/ ~* s3 b8 W8 P
Module[{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