数学建模社区-数学中国
标题:
怎么用Mathematica 5做这道题
[打印本页]
作者:
陈了
时间:
2010-3-19 09:29
标题:
怎么用Mathematica 5做这道题
幻灯片 1
对
(x+y-z)^5
进行多项式展开，并且提取其中包含
x
m
z
n
的项
(m
是任意奇数
,n
是任意偶数
)
( x: U" ~+ ^& C6 p& v2 T# X
谢谢哦
4 `: K O/ Y- Z+ i
作者:
aqua2001
时间:
2010-3-19 15:58
展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来，你可以手工弄出来！
作者:
chuchumaolu
时间:
2010-3-20 10:41
版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
4 v# I. c" ?9 ]. A# e
- o' n4 L) a' k% O' R
我想问问你做这个又什么目的吗，
作者:
chuchumaolu
时间:
2010-3-20 12:01
第一步：Expand[expr];
! K, R0 M) h* e
第二步：Cases[list,patterns];
+ s) Z/ R: A+ w( r7 }- e
(*pattern:见网址：
http://reference.wolfram.com/mathematica/guide/Patterns.html
*)
9 F8 v: O/ n4 o/ O7 ~0 ?
我还没有查到，你先自己找找吧
) }- T$ w! Z/ A' f4 f
写出来了，告诉我哦
作者:
陈了
时间:
2010-3-22 11:14
还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
作者:
chuchumaolu
时间:
2010-3-25 08:38
昨天晚上做到这这一步了;
# v3 G6 Q- z2 M& C* w1 i
exp = Expand[(x + y - z)^5];
& p R7 i; [& P `. v2 B& ?
Cases[exp, l_Integer x^m_. z^n_.]
9 a& { q, u) t9 M
结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
" ?- j) M8 U5 I h( y$ D* m( ?; {
但是对于：对于x,z的幂不知道怎么筛选
作者:
chuchumaolu
时间:
2010-3-27 12:51
写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
! ?8 L) I- O9 s# K2 i# k; A
exp = Expand[(x + y - z)^5];
% F5 `- X5 U2 I2 W0 x' Q/ a. I
f[l_Integer*x^m_.*z^n_.] = {m, n};
9 a L5 V) ]' ?: n x
out = {};
: Y# p9 i M$ ?+ E+ H: a
Module[{i, list, len},
2 U2 F' _, S6 N5 N! n
len = Length[exp];
$ Q% M% ^1 V: r$ h2 ]2 G* Q
For[i = 1, i <= len, i++,
" Y7 u( s" A5 A4 y
If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
' |9 i+ c+ F& G6 M' G1 V: U
If[OddQ[list[[1]]] && EvenQ[list[[2]]],
) l ^ N5 t8 T+ D1 K& x% y, c. M6 b
out = Append[out, exp[[i]]]
6 O3 a& u# w8 Y. [& ^ B( ?
]
* i4 E% Q0 \% E. H/ ~, `
]
# ` P* i: x) h* N
]
# P% [) B7 ^5 j' N5 m
]
# [3 K, ]7 @5 T8 v4 `9 B& P
out =
. H; Y! S* @! D, y) Q$ P4 H
{10 x^3 z^2, 5 x z^4}
作者:
月下侏儒
时间:
2012-7-23 09:45
。。。。。。。。。。。。。。
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
。。。。。。。。。。。。。。