应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 一个公式，对比两边不同项的系数，然后另他们相等，求各个系数，怎么列公式，谢谢
101/1返回列表
查看: 1376  |  回复: 9
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

wocamuchong

铁虫 (小有名气)

[求助] 一个公式，对比两边不同项的系数，然后另他们相等，求各个系数，怎么列公式，谢谢已有1人参与

具体问题是我现在得到一个公式，左边是
a[0] + y a[1] + y^2 a[2] + y^3 a[3] + y^4 a[4]
右边是
b[0] + y b[1] + y^2 b[2] + y^3 b[3] + y^4 b[4] + y^5 b[5] + y^6 b[6]
下一步是令两边的同次项的系数相等，所以 b[5] 和 b[6] 是零了，但是怎么自动的让其他项相等，注：b[ i ] 是 a[ i ] 的方程，最后的结果是求a[ i ]。我后面可能会用很多项，比如20项，不可能手动的一个个写。有什么好方法吗？谢谢

[ Last edited by wocamuchong on 2014-2-5 at 06:54 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2014-02-05 06:46:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

userhung

禁虫 (文学泰斗)

木虫博士

【答案】应助回帖

★
感谢参与，应助指数 +1
xzhdty: 金币+1, 谢谢参与 2014-02-05 08:56:58
a[ i ] = b[ i ]

其中 i = y的次方数
赞一下 回复此楼
2楼2014-02-05 08:25:20
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)
t1 = a[0] + y a[1] + y^2 a[2] + y^3 a[3] + y^4 a[4]
t2 = b[0] + y b[1] + y^2 b[2] + y^3 b[3] + y^4 b[4] + y^5 b[5] +
  y^6 b[6]
t3 = PadRight[t3, Max[Length[t3], Length[t4]]]
t4 = PadRight[t4, Max[Length[t3], Length[t4]]]
eqs = {t3 == t4}
赞一下 回复此楼
3楼2014-02-05 10:32:46
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)
引用回帖:
3楼: Originally posted by walk1997 at 2014-02-05 10:32:46
t1 = a + y a + y^2 a + y^3 a + y^4 a
t2 = b + y b + y^2 b + y^3 b + y^4 b + y^5 b +
  y^6 b
t3 = PadRight[t3, Max]
t4 = PadRight[t4, Max]
eqs = {t3 == t4}...

丢了2行

t1 = a[0] + y a[1] + y^2 a[2] + y^3 a[3] + y^4 a[4]
t2 = b[0] + y b[1] + y^2 b[2] + y^3 b[3] + y^4 b[4] + y^5 b[5] +
  y^6 b[6]
t3 = CoefficientList[t1, y]
t4 = CoefficientList[t2, y]
t3 = PadRight[t3, Max[Length[t3], Length[t4]]]
t4 = PadRight[t4, Max[Length[t3], Length[t4]]]
eqs = {t3 == t4}
赞一下 回复此楼
4楼2014-02-05 10:34:11
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wocamuchong

铁虫 (小有名气)
引用回帖:
4楼: Originally posted by walk1997 at 2014-02-05 10:34:11
丢了2行

t1 = a + y a + y^2 a + y^3 a + y^4 a
t2 = b + y b + y^2 b + y^3 b + y^4 b + y^5 b +
  y^6 b
t3 = CoefficientList
t4 = CoefficientList
t3 = PadRight[t3, Max]
t4 = PadRight[t4, Max]
...

谢谢！！还有个问题，我不太懂Solve出来的箭头表示什么意思
我定义atable
atable = Table[a, {i, 0, n}];
我Solve这个equation，以atable为自变量
Sol = Solve[eqs, atable]
得到的是a[0]->DD, a[1] -> B + 50. DD^2,  a[2] -> A + 50. B DD + 2500. DD^3.......等等，这里的B，DD不重要，我是想a[ i ]就变成这些值，我应该怎么做？
我试了，atable /. Sol，但是好像不管用。我附上我的文件，请看一下。谢谢。
赞一下 回复此楼
5楼2014-02-05 21:05:58
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wocamuchong

铁虫 (小有名气)
内容已删除
回复此楼
6楼2014-02-05 21:16:05
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)
引用回帖:
5楼: Originally posted by wocamuchong at 2014-02-05 21:05:58
谢谢！！还有个问题，我不太懂Solve出来的箭头表示什么意思
我定义atable
atable = Table;
我Solve这个equation，以atable为自变量
Sol = Solve
得到的是a->DD, a -> B + 50. DD^2,  a -> A + 50. B ...

是这么用的 不会不管用的
例子  取第一组解
Clear["Global`*"];
atable = Table[a[j], {j, 0, 1}]
sol = Solve[{a[0] + a[1] == 1, a[0] - a[1] == 2}, atable][[1]]
Table[a[j] = a[j] /. sol, {j, 0, 1}]
atable
赞一下(1人) 回复此楼
7楼2014-02-05 21:58:59
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wocamuchong

铁虫 (小有名气)
引用回帖:
7楼: Originally posted by walk1997 at 2014-02-05 21:58:59
是这么用的 不会不管用的
例子  取第一组解
Clear;
atable = Table
sol = Solve[]
Table
atable...

十分谢谢，你太厉害了。。。。以后用mathematica不懂都问你了。
赞一下 回复此楼
8楼2014-02-05 22:11:04
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wocamuchong

铁虫 (小有名气)
要分吗？你回复个应助之类的。谢谢
赞一下 回复此楼
9楼2014-02-05 22:11:52
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)
引用回帖:
9楼: Originally posted by wocamuchong at 2014-02-05 22:11:52
要分吗？你回复个应助之类的。谢谢

不用分  
客气  我也只是初入门(也许连入门也还谈不上)  真实感触
共同提高吧
赞一下(1人) 回复此楼
10楼2014-02-05 22:17:21
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wocamuchong 的主题更新
101/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭