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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 一个公式，对比两边不同项的系数，然后另他们相等，求各个系数，怎么列公式，谢谢
101/1返回列表
查看: 2122  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 我面上完蛋了 +5 且听虎啸 2026-08-20 5/250 2026-08-21 09:48 by climap
[基金申请] 今天放榜没戏了吧 +8 yuleib84 2026-08-19 9/450 2026-08-21 09:45 by climap
[基金申请] 让我中一个面上吧！ +10 大萍1987 2026-08-20 12/600 2026-08-21 09:31 by 020100099
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 只有每年这种时候来逛逛小木虫 +22 yaoyewhu2008 2026-08-20 24/1200 2026-08-21 07:44 by DanielDDDD
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 言之凿凿，明天官网会通知放榜？ +15 医学老男孩 2026-08-20 17/850 2026-08-20 20:35 by CaoLG
[基金申请] 今天系统多次维护，明天很可能放榜！ +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 重要消息，中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] 今天基金会出结果吗？20260819 +14 kkkl_v 2026-08-19 15/750 2026-08-20 08:21 by sunzitan
[基金申请] filecode=后面第一个是大写字母 +10 wangze12014 2026-08-14 12/600 2026-08-19 16:56 by 苦难博士
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 什么时候开奖？ +6 CrisMessi 2026-08-18 6/300 2026-08-19 08:06 by Equinoxhua
[基金申请] 明天放榜？ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[论文投稿] 投稿咨询 +4 wwm09 2026-08-17 6/300 2026-08-18 15:36 by wwm09
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
信息提示
关闭
请填处理意见
关闭