查看: 3720|回复: 7

怎么用Mathematica 5做这道题

[复制链接]

字体大小: 正常放大

陈了

15 主题	3 听众	553 积分

升级 84.33%

TA的每日心情

	开心 2014-11-16 19:37

签到天数: 16 天

[LV.4]偶尔看看III

自我介绍: 数学，没有不可能

电梯直达

1^#

发表于 2010-3-19 09:29 |只看该作者 |倒序浏览

|招呼Ta 关注Ta |邮箱已经成功绑定

幻灯片 1对(x+y-z)^5进行多项式展开，并且提取其中包含xmzn的项(m是任意奇数,n是任意偶数)
谢谢哦

zan

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

使用道具举报

aqua2001

930 主题	18 听众	4983 积分

升级 99.43%

TA的每日心情

	擦汗 2016-1-30 03:42

签到天数: 1 天

[LV.1]初来乍到

群组: 数学建模

群组: 趣味数学

群组: C 语言讨论组

群组: Matlab讨论组

群组: 2011年第一期数学建模

2^#

发表于 2010-3-19 15:58 |只看该作者 |招呼Ta 关注Ta

展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来，你可以手工弄出来！

我也说一句

发表

使用道具举报

chuchumaolu

16 主题	3 听众	83 积分

升级 82.11%

该用户从未签到

自我介绍: 学习哦，加泡妞

3^#

发表于 2010-3-20 10:41 |只看该作者 |招呼Ta 关注Ta

版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，

我想问问你做这个又什么目的吗，

我也说一句

发表

使用道具举报

chuchumaolu

16 主题	3 听众	83 积分

升级 82.11%

该用户从未签到

自我介绍: 学习哦，加泡妞

4^#

发表于 2010-3-20 12:01 |只看该作者 |招呼Ta 关注Ta

第一步：Expand[expr];
第二步：Cases[list,patterns];
(*pattern:见网址：http://reference.wolfram.com/mathematica/guide/Patterns.html*)
我还没有查到，你先自己找找吧
写出来了，告诉我哦

我也说一句

发表

使用道具举报

陈了

15 主题	3 听众	553 积分

升级 84.33%

TA的每日心情

	开心 2014-11-16 19:37

签到天数: 16 天

[LV.4]偶尔看看III

自我介绍: 数学，没有不可能

5^#

发表于 2010-3-22 11:14 |只看该作者 |招呼Ta 关注Ta |邮箱已经成功绑定

还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

我也说一句

发表

使用道具举报

chuchumaolu

16 主题	3 听众	83 积分

升级 82.11%

该用户从未签到

自我介绍: 学习哦，加泡妞

6^#

发表于 2010-3-25 08:38 |只看该作者 |招呼Ta 关注Ta

昨天晚上做到这这一步了;
exp = Expand[(x + y - z)^5];
Cases[exp, l_Integer x^m_. z^n_.]
结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
但是对于：对于x,z的幂不知道怎么筛选

我也说一句

发表

使用道具举报

chuchumaolu

16 主题	3 听众	83 积分

升级 82.11%

该用户从未签到

自我介绍: 学习哦，加泡妞

7^#

发表于 2010-3-27 12:51 |只看该作者 |招呼Ta 关注Ta

写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
exp = Expand[(x + y - z)^5];
f[l_Integer*x^m_.*z^n_.] = {m, n};
out = {};
Module[{i, list, len},
len = Length[exp];
For[i = 1, i <= len, i++,
If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
If[OddQ[list[[1]]] && EvenQ[list[[2]]],
out = Append[out, exp[[i]]]
]
]
]
]
out =
{10 x^3 z^2, 5 x z^4}