24小时热门版块排行榜    

查看: 280  |  回复: 0

郑美琴琴

金虫 (著名写手)

[求助] matlab程序出错

大神帮帮忙,感激不尽!!!
M文件
function yt=ped_a(t,y)
global nr nz dr dz drs dzs...
        r  z Ds DL   c   q...
        cs v e   R  kf   K...
        c0 p n ncall
     %1D to 2D矩阵
     for i=1:nz
         for j=1:nr
             ij=(i-1)*nr+j;
             c(i)=y(i);
             q(i,j)=y(ij+nz);
         end
     end
     %r,z网格化
     for i=1:nz
         for j=1:nr
             %2/r*qr
             if(j==1) %r=0
                 qr(i,j)=2.0*(q(i,j+1)-q(i,j))/drs;
             elseif(j==nr) %r=R
                 qr(i,j)=2/R*kf/(p*Ds)*(c(i)-cs);
             else
                 qr(i,j)=2/r(j)*(q(i,j+1)-q(i,j-1))/(2*dr);
             end
             %qrr
             if(j==1)
                 qrr(i,j)=2.0*(q(i,j+1)-q(i,j))/drs;
             elseif(j==nr)
                 qf(i,j)=q(i,j-1)+2.0*dr*kf/(p*Ds)*(c(i)-cs);
                 qrr(i,j)=(qf(i,j)-2.0*q(i,j)+q(i,j-1))/drs;
             else
                 qrr(i,j)=(q(i,j+1)-2.0*q(i,j)+q(i,j-1))/drs;
             end
             %cz
             if(i==1) %z=0
                 cz(i)=(c(i)-c0)/dz;
             elseif(i==nz) %z=L
                 cz(i)=0;
             else
                 cz(i)=(c(i)-c(i-1))/dz;
             end
             %czz
             czz(i)=(c(i+1)-2.0*c(i)+c(i-1))/dzs;
             %PDEs
             qt(i,j)=Ds*(qrr(i,j)+qr(i,j));
             ct(i)=DL*czz(i)-v*cz(i)-3*(1-e)/(e*R)*kf*(c(i)-cs(i,j));
             q(i,j)=K*cs(i,j)^(1/n);
         end
     end
     %2D to 1D
     for i=1:nz
         for j=1:nr
             ij=(i-1)*nr+j;
             yt(i)=ct(i);
             yt(ij+nz)=qt(i,j);
         end
     end
     %转置和计数
     yt=yt';
     ncall=ncall+1;


Command window:
%全部区域
>> global nr nz dr dz drs dzs...
        r  z Ds DL   c   q...
        cs v e   R  kf   K...
         p n ncall
>> %模型参数
>> c0=250;
>> L=0.15;
>> R=0.001;
>> p=436.8;
>> v=5.8*10^(-5);
>> e=0.363;
>> DL=1.66*10^(-7);
>> Ds=2.4281*10^(-12);
>> K=0.14;
>> n=1;
>> %z方向网格
>> nz=20;
>> dz=L/nz;
>> for i=1:nz
z(i)=i*dz;
end
>> dzs=dz^2;
>> %r方向网格
>> nr=7;
>> dr=R/(nr-1);
>> for j=1:nr
r(j)=(j-1)*dr;
end
>> drs=dr^2;
%ODE集成
>> tf=200;
>> tout=[0.0:50:tf];
>> nout=5;
>> ncall=0;
>> %初始条件
>> for i=1:nz
for j=1:nr
if(i==1)
c(i)=c0
else
c(i)=0
end
q(i,j)=0
y0(i)=c(i);
y0((i-1)*nr+j+nz)=q(i,j)
end
end
%ODE集成
>> reltol=1.0e-04; abstol=1.0e-04;
options=odeset('RelTol',reltol,'AbsTol',abstol);
[t,y]=ode15s(@ped_a,tout,y0,options);


模拟结果:
???  In an assignment  A(I) = B, the number of elements in B and
I must be the same.

Error in ==> ped_a at 36
                 cz(i)=(c(i)-c0)/dz;

Error in ==> funfun\private\odearguments at 110
f0 = feval(ode,t0,y0,args{:});   % ODE15I sets args{1} to yp0.

Error in ==> ode15s at 227
[neq, tspan, ntspan, next, t0, tfinal, tdir, y0, f0, odeArgs, ...
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 郑美琴琴 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 本人考085602 化学工程 专硕 +8 不知道叫什么! 2026-03-15 9/450 2026-03-16 07:45 by L135790
[考研] 材料与化工一志愿南昌大学327求调剂推荐 +6 Ncdx123456 2026-03-13 7/350 2026-03-16 07:44 by L135790
[考研] 化学调剂0703 +7 啊我我的 2026-03-11 7/350 2026-03-15 23:03 by 凌千颂111
[考研] 326求调剂 +3 上岸的小葡 2026-03-15 4/200 2026-03-15 18:50 by 无际的草原
[考研] 材料工程327求调剂 +3 xiaohe12w 2026-03-11 3/150 2026-03-14 20:20 by ms629
[考研] 293求调剂 +5 上班不着吉 2026-03-09 5/250 2026-03-14 02:37 by JourneyLucky
[考研] 一志愿天津大学,英一数二305分求调剂,四六级已过 +8 小小番的茄 2026-03-09 8/400 2026-03-14 01:53 by JourneyLucky
[考研] 271求调剂 +10 生如夏花… 2026-03-11 10/500 2026-03-14 00:35 by 卖报员小雨
[考研] 311求调剂 +8 zchqwer 2026-03-10 8/400 2026-03-14 00:01 by JourneyLucky
[考研] 四川大学085601材料工程专硕 初试294求调剂 +4 祝我们好在冬天 2026-03-11 4/200 2026-03-13 21:39 by peike
[考研] 293求调剂 +3 世界首富 2026-03-11 3/150 2026-03-13 16:27 by JourneyLucky
[考研] 310求调剂 +3 【上上签】 2026-03-11 3/150 2026-03-13 16:16 by JourneyLucky
[考研] 290求调剂 +7 ADT 2026-03-12 7/350 2026-03-13 15:17 by JourneyLucky
[考研] 求调剂 +3 程雨杭 2026-03-12 3/150 2026-03-13 15:06 by JourneyLucky
[考研] 328化工专硕求调剂 +4 。,。,。,。i 2026-03-12 4/200 2026-03-13 14:44 by JourneyLucky
[考研] 0856化学工程280分求调剂 +4 shenzxsn 2026-03-11 4/200 2026-03-13 11:55 by ymwdoctor
[考博] 福州大学杨黄浩课题组招收2026年专业学位博士研究生,2026.03.20截止 +3 Xiangyu_ou 2026-03-12 3/150 2026-03-13 09:36 by duanwu655
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-12 4/200 2026-03-12 19:33 by 求调剂zz
[考研] 化工0817调剂 +8 灿若星晨 2026-03-10 8/400 2026-03-10 22:44 by 星空星月
[考研] 一志愿:武汉理工,材料工程,英二数二 总分314 +3 2202020125 2026-03-10 4/200 2026-03-10 13:54 by xiongyaxuan
信息提示
请填处理意见