| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 472 人关注过本帖
标题:现在迭代求个参数,解不出来, 求各位大侠指点迷津,万分感谢!
只看楼主 加入收藏
misaly
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-11-19
收藏
 问题点数:0 回复次数:0 
现在迭代求个参数,解不出来, 求各位大侠指点迷津,万分感谢!
现在需要迭代求壁表面的温度,但是迭代过程解都非常奇怪,而且无法收敛,大家帮忙看下,万分感谢!


while k<20         
G1=zeros(n,1);
q=xlsread('F:\matlab.m\sunfushe.xlsx');          %读取各面内扰(太阳辐射),设为0
qC=zeros(n,1);
qc=zeros(n,1);
C=zeros(n,n);
B=zeros(n,1);
G2=zeros(n,n);
G3=zeros(n,1);
mxt=[mxt,tb];
 Tm1=0;
for j=1:n
   Tm1=Tm1+(tb(j)+273.15)*area(j);   
end
for i=1:n     
    for j=1:n
        G2(i,j)=(G(i,j)+G(j,i))*(tb(j)+273.15);
        G3(i,1)=G3(i,1)+G2(i,j);
    end
     Tm=Tm1/sum(area);                             %计算辐射平均温度
    x=floor((abs(i-2))/4)+1;
    q(i)=q(i)/area(i);
    B(i,1)=0.75*h(i)*(t(x)+273.15)+namu(i)*(to+273.15)+q(i);
    for j=1:n
      C(i,j)=-4*(Tm)^3*f*sigema*(G(i,j)+G(j,i));
    end
      C(i,i)=8*(Tm)^3*f*sigema+0.75*h(i)+namu(i);
end
  tbb=C\B;                                      %计算壁面温度
  eps=1.000*10^(-3);
if abs(tb-tbb)>eps                 %控制误差10^(-3)
         tb=tbb;
         tb(1)=26;
else
           tb=tbb;
           tb(1)=26;
           break
end
k=k+1
end
搜索更多相关主题的帖子: 而且 
2012-11-19 20:57
快速回复:现在迭代求个参数,解不出来, 求各位大侠指点迷津,万分感谢!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027476 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved