数学建模社区-数学中国
标题:
怎么用Mathematica 5做这道题
[打印本页]
作者:
陈了
时间:
2010-3-19 09:29
标题:
怎么用Mathematica 5做这道题
幻灯片 1
对
(x+y-z)^5
进行多项式展开，并且提取其中包含
x
m
z
n
的项
(m
是任意奇数
,n
是任意偶数
)
" `9 {0 c6 @3 u; k) U! @3 M
谢谢哦
: S. q: E1 l w: c- S
作者:
aqua2001
时间:
2010-3-19 15:58
展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来，你可以手工弄出来！
作者:
chuchumaolu
时间:
2010-3-20 10:41
版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
( l7 p1 L4 w# N$ X
$ c, Z( q- w/ F7 x# l5 o
我想问问你做这个又什么目的吗，
作者:
chuchumaolu
时间:
2010-3-20 12:01
第一步：Expand[expr];
$ g& [7 W8 `' M0 B2 I8 j7 k0 Q% c
第二步：Cases[list,patterns];
5 {+ Q/ ~* h X& K, z. w2 L
(*pattern:见网址：
http://reference.wolfram.com/mathematica/guide/Patterns.html
*)
8 k- g! l% O5 o. Z- g/ z* ?' l
我还没有查到，你先自己找找吧
" V" E0 J% [9 X) Y' z) j
写出来了，告诉我哦
作者:
陈了
时间:
2010-3-22 11:14
还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
作者:
chuchumaolu
时间:
2010-3-25 08:38
昨天晚上做到这这一步了;
8 |6 m4 T0 l7 Q4 g( X# i0 F
exp = Expand[(x + y - z)^5];
/ K& a( j; l* n, U
Cases[exp, l_Integer x^m_. z^n_.]
' O4 p6 e" Q: [2 O; `
结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
' h4 J! H, E! n4 ?3 y% R+ [
但是对于：对于x,z的幂不知道怎么筛选
作者:
chuchumaolu
时间:
2010-3-27 12:51
写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
) f# x/ ^8 u' o7 I$ [: X7 K4 ]4 T
exp = Expand[(x + y - z)^5];
6 n1 `1 i5 T7 ]# j. c2 H
f[l_Integer*x^m_.*z^n_.] = {m, n};
3 R6 V) Q2 o9 Y7 y1 h# E
out = {};
' R, i) L! |6 u# _& }3 ]
Module[{i, list, len},
1 J; C1 [) J8 i! b
len = Length[exp];
8 L8 Z' Y- {- y; v( Y/ e
For[i = 1, i <= len, i++,
8 }4 A( {# P/ }) Q4 H, H2 ], j6 R0 i
If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
; K* b& m' }& }0 N2 c
If[OddQ[list[[1]]] && EvenQ[list[[2]]],
4 y, O( p0 L. v; y. ]6 m0 l( y
out = Append[out, exp[[i]]]
& a' Y b2 Z: W6 O
]
, T9 ~( H. I1 u9 X$ X8 ?4 k8 {8 A
]
# t4 m/ _, P1 l; z
]
8 Z. i" p: X$ h- C- n4 M
]
& x& n- s H" J7 a
out =
7 x0 ^% u& W! {* Q1 n
{10 x^3 z^2, 5 x z^4}
作者:
月下侏儒
时间:
2012-7-23 09:45
。。。。。。。。。。。。。。
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
。。。。。。。。。。。。。。