24小时热门版块排行榜    

查看: 1780  |  回复: 6

liuhaizhen

木虫 (初入文坛)

[求助] 求mathematica编程

dy(1)/dt=(a+b+c)*y(1)+g*y(2)+b*y(3)
dy(2)/dt=-(a+b)*y(3)
dy(3)/dt=(a-b-c)*y(3)-g*y(1)+2*g*y(2)*y(1)
其中a,b,c,g为常量
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mshwangg

至尊木虫 (正式写手)

【答案】应助回帖


jjdg(金币+1): 感谢参与 2011-11-17 02:41:04
确定方程没给错?
直接求解是解不出来的。消元之后将得到一元三阶的方程,估计其解若有也是形式很复杂的。你确定这样的解对你有用么?不如做数值了,如果你有边界条件的话。
2楼2011-11-17 00:30:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

koorb

铁虫 (初入文坛)

【答案】应助回帖

★ ★
余泽成(金币+2): 谢谢参与应助! 2011-11-19 14:28:38
liuhaizhen(金币+10): 感谢你的应助 2011-11-28 10:00:33
liuhaizhen(金币+5): 优秀 2011-12-07 10:16:41
下面是程序代码,语法肯定没错,只要你再给定初始条件,就可以得到结果。否则解出来的是通解。
eq1 = y1'[t] == (a + b + c)*y1[t] + g*y2[t] + b*y3[t]
eq2 = y2'[t] == -(a + b)*y3[t]
eq3 = y3'[t] == (a - b - c)*y3[t] - g*y1[t] + 2*g*y2[t]*y1[t]
DSolve[{eq1, eq2, eq3}, {y1[t], y2[t], y3[t]}, t]
天道
3楼2011-11-17 09:46:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

koorb

铁虫 (初入文坛)

【答案】应助回帖

引用回帖:
3楼: Originally posted by koorb at 2011-11-17 09:46:25:
下面是程序代码,语法肯定没错,只要你再给定初始条件,就可以得到结果。否则解出来的是通解。
eq1 = y1'[t] == (a + b + c)*y1[t] + g*y2[t] + b*y3[t]
eq2 = y2'[t] == -(a + b)*y3[t]
eq3 = y3'[t] == (a - ...

注意:不是每个方程都可以得到通解的。
天道
4楼2011-11-17 09:48:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

mshwangg

至尊木虫 (正式写手)


jjdg(金币+1): 感谢参与 2011-11-18 01:05:11
引用回帖:
3楼: Originally posted by koorb at 2011-11-17 09:46:25:
下面是程序代码,语法肯定没错,只要你再给定初始条件,就可以得到结果。否则解出来的是通解。
eq1 = y1'[t] == (a + b + c)*y1[t] + g*y2[t] + b*y3[t]
eq2 = y2'[t] == -(a + b)*y3[t]
eq3 = y3'[t] == (a - ...

有些时候mathematica是解不出来的,起码这个是
手工推导化简+mathematica才可能拿到结果
5楼2011-11-17 16:25:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

阿_拉

金虫 (小有名气)

【答案】应助回帖


jjdg(金币+1): 感谢参与 2011-11-18 01:05:01
liuhaizhen(金币+5): 感谢你的应助 2011-11-28 10:01:24
极力给楼主推荐一本
全美经典 Mathematica 科学出版社 D.尤金著 邓建松 彭冉冉译
frado
6楼2011-11-17 22:02:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

renliqing825

新虫 (小有名气)

【答案】应助回帖

你好,请问你要解析解还是数值解啊?
不断开拓新思路,你会走的更远
7楼2011-11-23 18:58:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 liuhaizhen 的主题更新
信息提示
请填处理意见