数学建模社区-数学中国
标题:
怎么用Mathematica 5做这道题
[打印本页]
作者:
陈了
时间:
2010-3-19 09:29
标题:
怎么用Mathematica 5做这道题
幻灯片 1
对
(x+y-z)^5
进行多项式展开，并且提取其中包含
x
m
z
n
的项
(m
是任意奇数
,n
是任意偶数
)
5 C7 X! C% B( |: h* Z6 O
谢谢哦
% K$ M5 E& B6 m3 m2 u% \
作者:
aqua2001
时间:
2010-3-19 15:58
展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来，你可以手工弄出来！
作者:
chuchumaolu
时间:
2010-3-20 10:41
版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
3 M4 d; {* N0 m4 X5 r: c
+ x ~) I# r" \7 s5 s. y
我想问问你做这个又什么目的吗，
作者:
chuchumaolu
时间:
2010-3-20 12:01
第一步：Expand[expr];
Z S9 v2 u' E% Z( g* i) q
第二步：Cases[list,patterns];
. O H" ~7 R7 D. N1 L
(*pattern:见网址：
http://reference.wolfram.com/mathematica/guide/Patterns.html
*)
! w- P1 c5 j# K" R4 d$ C1 o6 d1 c) l
我还没有查到，你先自己找找吧
: A! l1 i( p7 `2 b
写出来了，告诉我哦
作者:
陈了
时间:
2010-3-22 11:14
还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
作者:
chuchumaolu
时间:
2010-3-25 08:38
昨天晚上做到这这一步了;
! T a" f: o4 t, m: J7 Z
exp = Expand[(x + y - z)^5];
. M! H9 Y* q6 w. H. y! z1 B
Cases[exp, l_Integer x^m_. z^n_.]
' Q- U9 Y) t _
结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
$ w4 M6 P7 K/ w" e$ `
但是对于：对于x,z的幂不知道怎么筛选
作者:
chuchumaolu
时间:
2010-3-27 12:51
写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
- H0 ? g0 }# v1 h- _# u
exp = Expand[(x + y - z)^5];
/ j( O4 P7 t* }% X6 V
f[l_Integer*x^m_.*z^n_.] = {m, n};
- J) G/ Y' B+ u0 k. H3 B( D+ a. u8 K
out = {};
9 E$ C; {# Z0 O9 F- r8 Y* S& k: F( }
Module[{i, list, len},
& ~; q; m; d4 @( m- K/ l) E
len = Length[exp];
# C. N9 X" H+ o4 B2 W" a# T
For[i = 1, i <= len, i++,
8 |$ c+ _6 m' p: e# |( E
If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
6 t( d" f& G! l6 v
If[OddQ[list[[1]]] && EvenQ[list[[2]]],
4 }4 h: x2 z3 c4 }
out = Append[out, exp[[i]]]
( o; M$ e8 |1 o# c8 O \8 w: R
]
8 j8 b( A! R! _4 S+ B$ R* A8 ~! a* Y
]
: c# z+ V3 ?/ n9 j, `3 t
]
4 n/ q' ~7 |" Y5 R! f
]
3 Q% _$ i: _# H* G
out =
( w+ }! P; O1 _
{10 x^3 z^2, 5 x z^4}
作者:
月下侏儒
时间:
2012-7-23 09:45
。。。。。。。。。。。。。。
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
。。。。。。。。。。。。。。