24小时热门版块排行榜    

查看: 335  |  回复: 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)

我们都爱小木虫

相关版块跳转 我要订阅楼主 郑美琴琴 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 看来今天不会放榜了? +5 chengyan1220 2026-08-21 5/250 2026-08-21 12:34 by gltch
[基金申请] 只有每年这种时候来逛逛小木虫 +23 yaoyewhu2008 2026-08-20 25/1250 2026-08-21 12:19 by Poppy1104
[基金申请] 什么时候开奖? +7 CrisMessi 2026-08-18 7/350 2026-08-21 12:15 by weiyin
[基金申请] 时间戳又变了8-15 +15 archvillain 2026-08-15 27/1350 2026-08-21 11:32 by tim76
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[基金申请] 让我中一个面上吧! +10 大萍1987 2026-08-20 12/600 2026-08-21 09:31 by 020100099
[基金申请] 时间戳今天,20号变了 +4 archvillain 2026-08-20 4/200 2026-08-21 08:10 by gatelove
[基金申请] 估计是周四 +3 archvillain 2026-08-18 3/150 2026-08-21 01:48 by jnhyjjm
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +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
[基金申请] filecode,4个jtjc了 +11 ziyangfang 2026-08-19 13/650 2026-08-19 21:28 by aasahr
[基金申请] 今天放榜吗? +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。 +6 Tide man 2026-08-14 7/350 2026-08-19 09:56 by ZJTJZ
[基金申请] 明天放榜? +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[基金申请] 今天维护系统维护 祝所有人 高中 +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 蔡棒棒菂
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
信息提示
请填处理意见