Labfans是一个针对大学生、工程师和科研工作者的技术社区。 论坛首页 | 联系我们(Contact Us)
MATLAB爱好者论坛-LabFans.com
返回   MATLAB爱好者论坛-LabFans.com > 工程数学软件 > MATLAB论坛
MATLAB论坛 一切MATLAB相关问题在此讨论。
回复
 
主题工具 显示模式
旧 2009-04-13, 21:01   #1
summerlife163
初级会员
 
注册日期: 2009-04-02
年龄: 40
帖子: 4
声望力: 0
summerlife163 正向着好的方向发展
默认 关于一个浓度程序的求解请大家看看问题出在哪?

function [c,M,cf]=befordif(D,K,dt,dx,h,fo,bi,N,A,V,k1,k2,AA)
D=3.2e-9;K=6665;dt=1e-3;dx=1e-3;
h=3.21;
fo=D*dt/dx.^2;bi=h*dx/D;
N=94.9;
A=16.994;
V=A*2.5;
M(200001)=0;
k1=0.97;k2=0.19;
AA=62.404;
c(1:9,1)=3.19e7;
cb(200001)=0;
cf(200001)=0;
for i=2:200001
c(1,i)=2*fo*(c(2,i-1)+bi*cf(i-1))+(1-2*bi*fo/K-2*fo)*c(1,i-1);
cb(i-1)=c(1,i)/K;
for x=2:8
c(x,i)=fo*(c(x-1,i-1)+c(x+1,i-1))+(1-2*fo)*c(x,i-1);
end
c(9,i)=2*fo*c(8,i-1)+(1-2*fo)*c(9,i-1);
M(i)=dt*k1*cf(i-1)+(1-dt*k2)*M(i-1);
cf(i)=dt/V*(h*A*cb(i-1)+k2*AA*M(i-1))+(1-dt/V*(h*A+N*V+k1*AA))*cf(i-1);
end
summerlife163 当前离线   回复时引用此帖
回复


发帖规则
不可以发表新主题
不可以发表回复
不可以上传附件
不可以编辑自己的帖子

启用 BB 代码
论坛启用 表情符号
论坛启用 [IMG] 代码
论坛禁用 HTML 代码



所有时间均为北京时间。现在的时间是 11:14


Powered by vBulletin
版权所有 ©2000 - 2025,Jelsoft Enterprises Ltd.