24小时热门版块排行榜    

CyRhmU.jpeg
查看: 646  |  回复: 2

小木虫zb

木虫 (正式写手)

[求助] 求助matlab解一个复杂非线性方程组

解一个偏微分方程组,用有限差分法离散出了下列复杂的非线性方程组,不知道用matlab怎么求解
kf=200;k1=0.50427;n1=1/0.29823;k2=0.17356;n2=1/0.44799;
n11=21.9;n12=3118.9;k12=0.3;n22=-0.5;n21=-1;k21=0.1;
c0=7.03;a=0.363;u=0.361032/a;c01=7.03;c02=7.03;L=8.31e-2;p=436.8/(1-0.363);
m=20;dz=L/m;t=[20:20:1000]/60;t_end=t(end);n=20;dt=t_end/n;
A=u*dt/(4*dz);B=(1-a)*p/a;D=dt*kf/p;
for i=1:n%时间节点
%-----------定义平衡方程------------------------------
   q1(i,1:m)=k1*ce1(i,1:m).^(1/n1+1/n11)/(ce1(i,1:m).^(1/n11)+k12*ce2(i,1:m).^(1/n12));
   q2(i,1:m)=k2*ce2(i,1:m).^(1/n2+1/n22)/(ce2(i,1:m).^(1/n22)+k21*ce1(i,1:m).^(1/n21));
%---------定义吸附速率方程-----------------------------
   q1(i+1,1:m)=D*(c1(i,1:m)-ce1(i,1:m))+q1(i,1:m);
   q2(i+1,1:m)=D*(c2(i,1:m)-ce2(i,1:m))+q2(i,1:m);
%---------定义床层物料衡算方程-------------------------
   c1(i,1)=A*(c1(i,2)-2*c01+c1(i+1,2))+c1(i+1,1)+B*(q1(i+1,1)-q1(i,1));%边界条件j=1
   c2(i,1)=A*(c2(i,2)-2*c02+c2(i+1,2))+c2(i+1,1)+B*(q2(i+1,1)-q2(i,1));%边界条件j=1
   c1(i,m)=c1(i+1,m)+B*(q1(i+1,m)-q1(i,m));%j=m
   c2(i,m)=c2(i+1,m)+B*(q2(i+1,m)-q2(i,m));%j=m
   c1(i,2:m-1)=A*(c1(i,3:m)-c1(i,1:m-2)+c1(i+1,3:m)-c1(i+1,1:m-2))+c1(i+1,2:m-1)+B*(q1(i+1,2:m-1)-q1(i,2:m-1));
   c2(i,2:m-1)=A*(c2(i,3:m)-c2(i,1:m-2)+c2(i+1,3:m)-c2(i+1,1:m-2))+c2(i+1,2:m-1)+B*(q2(i+1,2:m-1)-q2(i,2:m-1));
end
想求c1、c2,用disp(c1)尝试了下,结果不理想,求大侠赐教

[ Last edited by 小木虫zb on 2013-5-21 at 16:46 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

thermalE

木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
csgt0: 金币+1, 谢谢 2013-05-22 20:15:18
小木虫zb: 金币+20, ★★★★★最佳答案 2013-07-05 15:25:11
看看龚纯的那本matlab数值求解的书,里面关于非线性代数方程组求解的那章,那几种方法都可以试试
2楼2013-05-22 14:56:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小木虫zb

木虫 (正式写手)

引用回帖:
2楼: Originally posted by thermalE at 2013-05-22 14:56:33
看看龚纯的那本matlab数值求解的书,里面关于非线性代数方程组求解的那章,那几种方法都可以试试

谢谢你,我试试
3楼2013-05-23 19:40:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 小木虫zb 的主题更新
信息提示
请填处理意见