24小时热门版块排行榜

>论坛更新日志 (1893)
>虫友互识 (165)
>文献求助 (36)
>论文投稿 (35)
>考博 (29)
>公派出国 (29)
>硕博家园 (24)
>导师招生 (21)
>教师之家 (21)
>找工作 (21)
>考研 (21)
>博后之家 (19)
>休闲灌水 (17)
>基金申请 (16)
>论文道贺祈福 (14)
>晶体 (6)

返回列表

liangbao

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 978.7
帖子: 264
在线: 164.1小时
虫号: 868553

[交流] 【求助】ode45数值求解常微分方程总是错，找不出原因

程序如下：S1=0.4;
S2=0.8;
y=zeros(42,3);
y(1,1)=6e10;
y(2,1)=4e10;
y(3,1)=0;
for i=0:5;
for j=1:7
      if(j==6)|(j==7)
      [t,y]=ode45('tumor',[i*7+j  i*7+j+1],[y(i*7+j,1) y(i*7+j,2) y(i*7+j,3)]);
      else
         a=y(i*7+j,1);
         y(i*7+j,1)=S1*a;
         b=y(i*7+j,2);
         y(i*7+j,2)=S2*b;
         y(i*7+j,3)=(1-S1)*a+(1-S2)*b;
      [t,y]=ode45('tumor',[i*7+j i*7+j+1],[y(i*7+j,1) y(i*7+j,2) y(i*7+j,3)]);
      end
end
end
plot(t,y(1,

,'*',t,y(2,

,'.',t,y(3,

,'+');
错误为：Index exceeds matrix dimensions.

Error in ==> number1 at 12
[t,y]=ode45('tumor',[i*7+j i*7+j+1],[y(i*7+j,1) y(i*7+j,2) y(i*7+j,3)]);
我估计是向量传递出错了
发现ode45返回的是t和y(:,1) y(:,2) y(:,3)的列向量，
如果想得到向量的最后一个值应该怎么办？

[ Last edited by liangbao on 2010-11-25 at 09:51 ]

回复此楼

» 猜你喜欢

售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有6人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有10人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有8人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有10人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有11人回复
依托企业入选了国家启明计划青年人才。有无高校可以引进的。已经有14人回复
表哥与省会女结婚，父母去帮带孩子被省会女气回家生重病了已经有11人回复
江汉大学解明教授课题组招博士研究生/博士后已经有3人回复
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性已经有11人回复
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗已经有10人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2010-11-25 09:25:06

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

xiegangmai

版主 (职业作家)

★
liangbao(金币+2):谢谢参与
liangbao(金币+10): 2010-11-25 20:38:17

每次循环把t，y的值覆盖掉了。
循环里把y赋给一个矩阵的一行即可。

赞一下(1人)

回复此楼

2楼2010-11-25 20:01:10

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

liangbao

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 978.7
帖子: 264
在线: 164.1小时
虫号: 868553

引用回帖:

Originally posted by xiegangmai at 2010-11-25 20:01:10:
每次循环把t，y的值覆盖掉了。
循环里把y赋给一个矩阵的一行即可。

恩，谢谢
我这样改，运行通过了
您看看，没有什么对不？
S1=0.4;
S2=0.8;
y=zeros(100,42);
y(1,1)=6e10;
y(1,2)=4e10;
y(1,3)=0;
for i=0:5;
for j=1:7
if(j==6)|(j==7)
tspan=i*7+j:0.05:i*7+j+1;
[t,p]=ode45('tumor',tspan,[y(i*7+j,1) y(i*7+j,2) y(i*7+j,3)]);
else
      y(i*7+j,1)=S1*y(i*7+j,1);
      y(i*7+j,2)=S2*y(i*7+j,2);
      y(i*7+j,3)=((1-S1)/S1)*y(i*7+j,1)+((1-S2)/S2)*y(i*7+j,2);
tspan=i*7+j:0.05:i*7+j+1;
[t,p]=ode45('tumor',tspan,[y(i*7+j,1) y(i*7+j,2) y(i*7+j,3)]);
end
plot(t,p(:,1),'*',t,p(:,2),'.',t,p(:,3));
hold on;
y(i*7+j+1,1)=p(21,1);
y(i*7+j+1,2)=p(21,2);
y(i*7+j+1,3)=p(21,3);
end
end

赞一下

回复此楼

3楼2010-11-25 20:38:04

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖