数学建模社区-数学中国
标题:
怎么用Mathematica 5做这道题
[打印本页]
作者:
陈了
时间:
2010-3-19 09:29
标题:
怎么用Mathematica 5做这道题
幻灯片 1
对
(x+y-z)^5
进行多项式展开，并且提取其中包含
x
m
z
n
的项
(m
是任意奇数
,n
是任意偶数
)
. j) d5 d' \: R# |" L
谢谢哦
) N5 T$ h" u$ v/ U
作者:
aqua2001
时间:
2010-3-19 15:58
展开多项式的函数是Expand[],但是不知道该如何能自动把需要的项提出来，你可以手工弄出来！
作者:
chuchumaolu
时间:
2010-3-20 10:41
版主也这样垃圾呀，我不知道怎么在mathematica 中实现匹配，
. i2 ~4 {- ~. T p3 v
& F0 |# f: C8 O! p5 r
我想问问你做这个又什么目的吗，
作者:
chuchumaolu
时间:
2010-3-20 12:01
第一步：Expand[expr];
0 a8 n5 d; o/ l" v0 K
第二步：Cases[list,patterns];
3 X% x" t9 W# f9 j1 f0 i$ Y
(*pattern:见网址：
http://reference.wolfram.com/mathematica/guide/Patterns.html
*)
9 s$ J8 \4 r7 E8 G+ R/ H
我还没有查到，你先自己找找吧
0 I, W! v# \5 _+ }3 T! x
写出来了，告诉我哦
作者:
陈了
时间:
2010-3-22 11:14
还是不懂呀~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
作者:
chuchumaolu
时间:
2010-3-25 08:38
昨天晚上做到这这一步了;
6 J4 z" w: k# @' e" c
exp = Expand[(x + y - z)^5];
" e( Q3 I: q8 o0 C
Cases[exp, l_Integer x^m_. z^n_.]
; z! i' E3 m2 a ^% C
结果为：{-5 x^4 z, 10 x^3 z^2, -10 x^2 z^3, 5 x z^4}
) l1 d- o! ?1 _+ [' N
但是对于：对于x,z的幂不知道怎么筛选
作者:
chuchumaolu
时间:
2010-3-27 12:51
写了一个垃圾程序做出来了，但是表达式怎么写实在不知道：
. }2 V) I7 C4 I% Q" u9 t4 K
exp = Expand[(x + y - z)^5];
& f9 r5 G- F6 g% j/ |: N
f[l_Integer*x^m_.*z^n_.] = {m, n};
3 I; v2 B- y$ D# a3 B
out = {};
( Z. A" P1 `: Q& q- a3 n4 z
Module[{i, list, len},
1 ]+ e4 C/ g" g% H c- P
len = Length[exp];
0 }; ?6 F' u& n4 k2 v9 G# g
For[i = 1, i <= len, i++,
* ^0 {8 |# p' U$ ^
If[MatchQ[exp[[i]], l_Integer*x^m_.*z^n_.], list = f[exp[[i]]];
& p; I1 y& a# x) ]8 H- v
If[OddQ[list[[1]]] && EvenQ[list[[2]]],
% H/ Q Z, t( g
out = Append[out, exp[[i]]]
8 L9 _# p0 F! v2 z$ l6 T. A
]
5 y6 ]. D3 O/ P/ h
]
/ V( c/ @& B' A* `' W' ] C) e
]
! \& r4 o) i# \7 n
]
% l" G. ^: |' M, K2 I1 }' x
out =
, F1 i" F" i9 S6 w
{10 x^3 z^2, 5 x z^4}
作者:
月下侏儒
时间:
2012-7-23 09:45
。。。。。。。。。。。。。。
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
。。。。。。。。。。。。。。