数学建模社区-数学中国
标题:
怎么用Mathematica 5做这道题
[打印本页]
作者:
陈了
时间:
2010-3-19 09:29
标题:
怎么用Mathematica 5做这道题
幻灯片 1
对
(x+y-z)^5
进行多项式展开，并且提取其中包含
x
m
z
n
的项
(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
。。。。。。。。。。。。。。