数学建模社区-数学中国
标题:
怎么用Mathematica 5做这道题
[打印本页]
作者:
陈了
时间:
2010-3-19 09:29
标题:
怎么用Mathematica 5做这道题
幻灯片 1
对
(x+y-z)^5
进行多项式展开，并且提取其中包含
x
m
z
n
的项
(m
是任意奇数
,n
是任意偶数
)
2 C6 [/ j$ E9 S$ a6 {* _5 q
谢谢哦
+ G. p5 f! e+ ?7 H& w% q
作者:
aqua2001
时间:
2010-3-19 15:58
展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来，你可以手工弄出来！
作者:
chuchumaolu
时间:
2010-3-20 10:41
版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
* Y$ h, A1 a' r
: b1 g7 f$ N1 V6 T( S+ {' k
我想问问你做这个又什么目的吗，
作者:
chuchumaolu
时间:
2010-3-20 12:01
第一步：Expand[expr];
: i$ k3 h V2 m! o0 ^. M; n
第二步：Cases[list,patterns];
) z* `) S+ _, B+ j N
(*pattern:见网址：
http://reference.wolfram.com/mathematica/guide/Patterns.html
*)
! _6 ~ |/ A3 G: J2 f
我还没有查到，你先自己找找吧
- _- T; g% K6 a3 D0 o' f
写出来了，告诉我哦
作者:
陈了
时间:
2010-3-22 11:14
还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
作者:
chuchumaolu
时间:
2010-3-25 08:38
昨天晚上做到这这一步了;
: e _* E3 ^$ `! O v$ C; U" ^
exp = Expand[(x + y - z)^5];
& e6 L7 P. `# V3 C
Cases[exp, l_Integer x^m_. z^n_.]
' z' Y3 A% E7 Q+ ]* z0 s, z1 C
结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
6 R7 W* P2 J. T5 `$ y
但是对于：对于x,z的幂不知道怎么筛选
作者:
chuchumaolu
时间:
2010-3-27 12:51
写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
' A+ {. P. S4 e6 {) K5 E
exp = Expand[(x + y - z)^5];
5 f. X/ E- N/ x" z, q$ c
f[l_Integer*x^m_.*z^n_.] = {m, n};
( ?/ B: J/ n' U
out = {};
! t( j Q/ L/ f
Module[{i, list, len},
6 J, U, b/ K* }& r! m6 i
len = Length[exp];
+ @5 C; u8 u' R0 x
For[i = 1, i <= len, i++,
% i- W! w- t9 r( V
If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
. ]+ b3 h- }3 f" o& h
If[OddQ[list[[1]]] && EvenQ[list[[2]]],
F; ~8 m) e% p
out = Append[out, exp[[i]]]
1 c) h6 p; [3 K |
]
7 b T" X$ [9 A: p
]
! k$ F2 G% f9 [. i
]
0 V G8 p, {( L" m6 E
]
2 ]9 d1 V- P9 Z. C! C
out =
1 D: `% @+ s0 o: a/ M% S) }( `
{10 x^3 z^2, 5 x z^4}
作者:
月下侏儒
时间:
2012-7-23 09:45
。。。。。。。。。。。。。。
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
。。。。。。。。。。。。。。